Imported Upstream version 2.1

diff --git a/CMakeLists.txt b/CMakeLists.txt
index db2c551efc698f23995a477b2206921052a4c603..7f394c06baf046e192b589faf401e19302aacf9b 100644 (file)
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -1,17 +1,26 @@
-cmake_minimum_required(VERSION 2.8)
+cmake_minimum_required(VERSION 2.8.4)
 
 project( MathGL )
+
+if(NOT CMAKE_BUILD_TYPE)
+       set(CMAKE_BUILD_TYPE "Release" CACHE STRING "Choose the type of build, options are: 
+               None(CMAKE_CXX_FLAGS or CMAKE_C_FLAGS used) Debug Release RelWithDebInfo MinSizeRel." FORCE)
+endif(NOT CMAKE_BUILD_TYPE)
+
 set(CMAKE_VERBOSE_MAKEFILE ON)
 set(MathGL_VERSION_MAJOR 2)
-set(MathGL_VERSION_MINOR 0)
+set(MathGL_VERSION_MINOR 1)
+
+include(CMakeDependentOption)
 
 option(enable-double "Enable double precision in MathGL library" ON)
 option(enable-simple "Slightly increase drawing speed but disable mglDataA class")
 option(enable-mpi "Enable mpi")
-option(enable-all "Enable all features")
-option(enable-langall "Enable all language interfaces")
+option(enable-all "Enable all core features")
+option(enable-all-widgets "Enable all Widgets")
+option(enable-all-swig "Enable all SWIG based interfaces")
 option(enable-lgpl "Enable only LGPL part of MathGL" OFF)
-# option(enable-ltdl "Enable loading modules support")
+#option(enable-ltdl "Enable loading modules support")
 option(enable-pthread "Enable POSIX threads support")
 option(enable-gsl "Enable gsl support")
 option(enable-jpeg "Enable jpeg support")
@@ -21,8 +30,7 @@ option(enable-zlib "Enable zlib support" ON)
 option(enable-pdf "Enable pdf support")
 option(enable-gif "Enable gif support")
 option(enable-hdf4 "Enable hdf4 support")
-option(enable-hdf5 "Enable hdf5 1.6 support")
-option(enable-hdf5_18 "Enable hdf5 1.8 support")
+option(enable-hdf5 "Enable hdf5 support")
 option(enable-opengl "Enable OpenGL support" ON)
 option(enable-glut "Enable glut support")
 option(enable-fltk "Enable fltk widget")
@@ -30,18 +38,19 @@ option(enable-wx "Enable wxWidget widget")
 option(enable-qt "Enable Qt4 widget")
 option(enable-python "Enable python interface")
 option(enable-octave "Enable octave interface")
+option(enable-octave-install "Octave interface will install for all users" ON)
 option(enable-doc "Enable documentation building")
 
 include_directories( ${MathGL_SOURCE_DIR}/include ${MathGL_BINARY_DIR}/include)
 
-if(NOT MSVC)
+if(NOT MSVC AND NOT BORLAND)
        find_library(M_LIB m)
        if(NOT M_LIB)
                message(SEND_ERROR "${M_LIB}")
        endif(NOT M_LIB)
-else(NOT MSVC)
+else(NOT MSVC AND NOT BORLAND)
        set(M_LIB)
-endif(NOT MSVC)
+endif(NOT MSVC AND NOT BORLAND)
 
 if(enable-double)
        set(MGL_USE_DOUBLE 1)
@@ -61,7 +70,7 @@ if(enable-mpi)
        find_package(MPI REQUIRED)
        set(CMAKE_CXX_COMPILE_FLAGS ${CMAKE_CXX_COMPILE_FLAGS} ${MPI_COMPILE_FLAGS})
        set(CMAKE_CXX_LINK_FLAGS ${CMAKE_CXX_LINK_FLAGS} ${MPI_LINK_FLAGS})
-       include_directories(MPI_INCLUDE_PATH)
+       include_directories(${MPI_INCLUDE_PATH})
 else(enable-mpi)
        set(MGL_HAVE_MPI 0)
 endif(enable-mpi)
@@ -81,18 +90,18 @@ else((enable-all OR enable-gsl) AND (NOT enable-lgpl) )
        set(MGL_HAVE_GSL 0)
 endif((enable-all OR enable-gsl) AND (NOT enable-lgpl) )
 
-# if(enable-all OR enable-ltdl)
-#      set(MGL_HAVE_LTDL 1)
-#      find_library(LTDL_LIB ltdl)
-#      find_path(LTDL_INCLUDE_DIR ltdl.h)
-#      if(NOT LTDL_LIB OR NOT LTDL_INCLUDE_DIR)
-#              message(SEND_ERROR "${LTDL_LIB}")
-#              message(SEND_ERROR "${LTDL_INCLUDE_DIR}")
-#              message(SEND_ERROR "Couldn't find LTDL library.")
-#      endif(NOT LTDL_LIB OR NOT LTDL_INCLUDE_DIR)
-# else(enable-all OR enable-ltdl)
-#      set(MGL_HAVE_LTDL 0)
-# endif(enable-all OR enable-ltdl)
+#if(enable-all OR enable-ltdl)
+#      set(MGL_HAVE_LTDL 1)
+#      find_library(LTDL_LIB ltdl)
+#      find_path(LTDL_INCLUDE_DIR ltdl.h)
+#      if(NOT LTDL_LIB OR NOT LTDL_INCLUDE_DIR)
+#              message(SEND_ERROR "${LTDL_LIB}")
+#              message(SEND_ERROR "${LTDL_INCLUDE_DIR}")
+#              message(SEND_ERROR "Couldn't find LTDL library.")
+#      endif(NOT LTDL_LIB OR NOT LTDL_INCLUDE_DIR)
+#else(enable-all OR enable-ltdl)
+#      set(MGL_HAVE_LTDL 0)
+#endif(enable-all OR enable-ltdl)
 
 if(enable-all OR enable-pthread)
        set(MGL_HAVE_PTHREAD 1)
@@ -119,20 +128,15 @@ else((enable-all OR enable-hdf4) AND (NOT enable-lgpl) )
        set(MGL_HAVE_HDF4 0)
 endif((enable-all OR enable-hdf4) AND (NOT enable-lgpl) )
 
-if((enable-all OR enable-hdf5 OR enable-hdf5_18) AND (NOT enable-lgpl) )
+if((enable-all OR enable-hdf5) AND (NOT enable-lgpl) )
        set(MGL_HAVE_HDF5 1)
-       if(enable-hdf5_18)
-               set(MGL_HAVE_HDF5_18 1)
-       else(enable-hdf5_18)
-               set(MGL_HAVE_HDF5_18 0)
-       endif(enable-hdf5_18)
        include(FindHDF5)
        if(NOT HDF5_FOUND)
                message(SEND_ERROR "Couldn't find HDF5 library.")
        endif(NOT HDF5_FOUND)
-else((enable-all OR enable-hdf5 OR enable-hdf5_18) AND (NOT enable-lgpl) )
+else((enable-all OR enable-hdf5) AND (NOT enable-lgpl) )
        set(MGL_HAVE_HDF5 0)
-endif((enable-all OR enable-hdf5 OR enable-hdf5_18) AND (NOT enable-lgpl) )
+endif((enable-all OR enable-hdf5) AND (NOT enable-lgpl) )
 
 if(enable-all OR enable-jpeg)
        set(MGL_HAVE_JPEG 1)
@@ -224,7 +228,7 @@ else(enable-all OR enable-opengl)
        set(MGL_HAVE_OPENGL 0)
 endif(enable-all OR enable-opengl)
 
-if((enable-all OR enable-glut) AND (NOT enable-lgpl) )
+if((enable-all-widgets OR enable-glut) AND (NOT enable-lgpl) )
        set(MGL_HAVE_GLUT 1)
        if(NOT MGL_HAVE_OPENGL)
                message(SEND_ERROR "You have to enable OpenGL if you plan to use GLUT.")
@@ -233,41 +237,44 @@ if((enable-all OR enable-glut) AND (NOT enable-lgpl) )
        if(NOT GLUT_FOUND)
                message(SEND_ERROR "Couldn't find GLUT library.")
        endif(NOT GLUT_FOUND)
-else((enable-all OR enable-glut) AND (NOT enable-lgpl) )
+else((enable-all-widgets OR enable-glut) AND (NOT enable-lgpl) )
        set(MGL_HAVE_GLUT 0)
-endif((enable-all OR enable-glut) AND (NOT enable-lgpl) )
+endif((enable-all-widgets OR enable-glut) AND (NOT enable-lgpl) )
 
-if((enable-all OR enable-fltk) AND (NOT enable-lgpl) )
+if((enable-all-widgets OR enable-fltk) AND (NOT enable-lgpl) )
        set(MGL_HAVE_FLTK 1)
        include(FindFLTK)
        if(NOT FLTK_FOUND)
                message(SEND_ERROR "Couldn't find FLTK library.")
        endif(NOT FLTK_FOUND)
-else((enable-all OR enable-fltk) AND (NOT enable-lgpl) )
+else((enable-all-widgets OR enable-fltk) AND (NOT enable-lgpl) )
        set(MGL_HAVE_FLTK 0)
-endif((enable-all OR enable-fltk) AND (NOT enable-lgpl) )
+endif((enable-all-widgets OR enable-fltk) AND (NOT enable-lgpl) )
 
-if((enable-all OR enable-wx) AND (NOT enable-lgpl) )
-       set(MGL_HAVE_WX 0)
+#if((enable-all-widgets OR enable-wx) AND (NOT enable-lgpl) )
+if((enable-wx) AND (NOT enable-lgpl) )
+       set(MGL_HAVE_WX 1)
        FIND_PACKAGE(wxWidgets COMPONENTS base core gl)
        if(NOT wxWidgets_FOUND)
                message(SEND_ERROR "Couldn't find wxWidgets library.")
        endif(NOT wxWidgets_FOUND)
-else((enable-all OR enable-wx) AND (NOT enable-lgpl) )
+#else((enable-all-widgets OR enable-wx) AND (NOT enable-lgpl) )
+else((enable-wx) AND (NOT enable-lgpl) )
        set(MGL_HAVE_WX 0)
-endif((enable-all OR enable-wx) AND (NOT enable-lgpl) )
+#endif((enable-all-widgets OR enable-wx) AND (NOT enable-lgpl) )
+endif((enable-wx) AND (NOT enable-lgpl) )
 
-if((enable-all OR enable-qt) AND (NOT enable-lgpl) )
+if((enable-all-widgets OR enable-qt) AND (NOT enable-lgpl) )
        set(MGL_HAVE_QT 1)
        FIND_PACKAGE(Qt4)
        if(NOT QT4_FOUND)
                message(SEND_ERROR "Couldn't find Qt4 library.")
        endif(NOT QT4_FOUND)
-else((enable-all OR enable-qt) AND (NOT enable-lgpl) )
+else((enable-all-widgets OR enable-qt) AND (NOT enable-lgpl) )
        set(MGL_HAVE_QT 0)
-endif((enable-all OR enable-qt) AND (NOT enable-lgpl) )
+endif((enable-all-widgets OR enable-qt) AND (NOT enable-lgpl) )
 
-if((enable-langall OR enable-python) AND (NOT enable-lgpl) )
+if((enable-all-swig OR enable-python) AND (NOT enable-lgpl) )
        set(MGL_HAVE_PYTHON 1)
        FIND_PACKAGE(PythonInterp)
        if(NOT PYTHONINTERP_FOUND)
@@ -277,11 +284,20 @@ if((enable-langall OR enable-python) AND (NOT enable-lgpl) )
        if(NOT PYTHONLIBS_FOUND)
                message(SEND_ERROR "Couldn't find python development libraries.")
        endif(NOT PYTHONLIBS_FOUND)
-else((enable-langall OR enable-python) AND (NOT enable-lgpl) )
+       execute_process(
+               COMMAND ${PYTHON_EXECUTABLE} -c "import numpy; print numpy.get_include()"
+               OUTPUT_VARIABLE NUMPY_INCLUDE_PATH
+               RESULT_VARIABLE NUMPY_ERR
+               OUTPUT_STRIP_TRAILING_WHITESPACE
+       )
+       if(NOT NUMPY_INCLUDE_PATH)
+               message(SEND_ERROR "Couldn't find numpy.")
+       endif(NOT NUMPY_INCLUDE_PATH)
+else((enable-all-swig OR enable-python) AND (NOT enable-lgpl) )
        set(MGL_HAVE_PYTHON 0)
-endif((enable-langall OR enable-python) AND (NOT enable-lgpl) )
+endif((enable-all-swig OR enable-python) AND (NOT enable-lgpl) )
 
-if((enable-langall OR enable-octave) AND (NOT enable-lgpl) )
+if((enable-all-swig OR enable-octave) AND (NOT enable-lgpl) )
        set(MGL_HAVE_OCTAVE 1)
        find_program(oct_prog octave-config)
        if(NOT oct_prog)
@@ -299,9 +315,9 @@ if((enable-langall OR enable-octave) AND (NOT enable-lgpl) )
        if(NOT oct_tar)
                message(SEND_ERROR "Couldn't find tar needed for octave interfaces creation.")
        endif(NOT oct_tar)
-else((enable-langall OR enable-octave) AND (NOT enable-lgpl) )
+else((enable-all-swig OR enable-octave) AND (NOT enable-lgpl) )
        set(MGL_HAVE_OCTAVE 0)
-endif((enable-langall OR enable-octave) AND (NOT enable-lgpl) )
+endif((enable-all-swig OR enable-octave) AND (NOT enable-lgpl) )
 
 if(enable-doc)
        set(MGL_HAVE_DOC 1)
@@ -326,6 +342,7 @@ if(MGL_HAVE_PYTHON OR MGL_HAVE_OCTAVE)
        if(NOT SWIG_FOUND)
                message(SEND_ERROR "Couldn't find swig needed for interfaces compiling.")
        endif(NOT SWIG_FOUND)
+       INCLUDE(${SWIG_USE_FILE})
 endif(MGL_HAVE_PYTHON OR MGL_HAVE_OCTAVE)
 
 #execute_process(
@@ -359,8 +376,8 @@ add_subdirectory( include )
 add_subdirectory( udav )
 #add_subdirectory( mgllab )
 add_subdirectory( lang )
-if(NOT MSVC)
+if(NOT MSVC AND NOT BORLAND)
 add_subdirectory( utils )
 add_subdirectory( examples )
 add_subdirectory( texinfo )
-endif(NOT MSVC)
+endif(NOT MSVC AND NOT BORLAND)

diff --git a/ChangeLog.txt b/ChangeLog.txt
index 05243db32c9ff050dc1355949ae6491e623dc99f..e1894cccc2d9c0da443133e7c69b4b07bec84142 100644 (file)
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -1,3 +1,67 @@
+2.1 Released 13 December 2012
+
+* Add class mglDataC for complex data arrays.
+* Add mglData::Solve() for finding x-value where dat(x)=val.
+* Add mglData::Clean() for removing rows with duplicate values for given column.
+* Add Vect3() plot for drawing vectors on slice of 3d vector field.
+* Add Table() function for drawing table with data values.
+* Add ZoomAxis() for zooming/shifting axis range as whole.
+* Add WriteJSON() function for exporting in JSON format suitable for later drawing by JavaScript
+* Add JavaScript code for visualizing JSON data.
+* Add mgl.cgi tool which return PNG image for CGI request in form of MGL script.
+* Add MGL commands 'errbox', 'face'
+
+* Color can be specified as its RGB[A] values, i.e. like "{xFFFFFF}" or "{xFFFFFFFF}".
+* Color in color scheme  may have position in range [0,1]. Format is {CN,pos} or {xFFFFFF,pos}.
+* Now pen width for marks is proportional to pen width of line multiplied by size of marks.
+* Now you can use different font-faces in the plot simultaneously.
+* Now Legend() automatically use several columns if it contain too many legend entries.
+* Add style '-' for legend for drawing them horizontally.
+* Vectors is drawn now even if only starting or ending points are placed in bounding box.
+* Strongly rewrite the algorithm of vector field plotting.
+
+* Grid lines for NAN origin values are always located at far-away edges.
+* Try correctly place axis and tick labels even for axis with inverse range (i.e. for v2<v1).
+  Note, it work well for 2D axis. One should use Aspect() with negative values to do it correctly in general case.
+* Axis style 'XYZ' draw corresponding axis with ticks labels from other side of axis. This also influence on followng Label() calls.
+* Text is drawn for initially invisible axis (like z-axis) too.
+
+* Add functions GetFrame(), AddFrame() for replacing or adding data from given frame. Work if MGL_VECT_FRAME is set on (by default is on).
+* Frames now save 3D information if MGL_VECT_FRAME is set (by default).
+* CalcXYZ() function now use data from z-buffer for better determining {x,y,z} coordinates.
+
+* Add dialog for data arguments in "New command" dialog of UDAV.
+* Value of arguments are saved while the kind of command is changed in "New command" dialog of UDAV.
+* Extend classification of commands in "New command" dialog of UDAV and make it automatic.
+* Mouse position at an object click now is displayed on the image itself.
+* Add zoom in/out by mouse wheel.
+* Add zoom in/out of axis range by mouse wheel, and shift of axis range by middle button.
+* Text editor in UDAV now highlight current line.
+* Completer can be switched off correctly now.
+* Multi-line strings (i.e. separated by "\" symbol) are highlighted correctly now.
+* Add option to enable/disable selected plot in UDAV.
+* Rearrange hot-keys in UDAV and in QMathGL.
+
+* Make code compilable by Borland compiler too.
+* Improve output in OpenGL mode.
+* Add fog at export in EPS/SVG formats.
+* Add mglParse::AllowFileIO() for enable/disable I/O commands in MGL scripts.
+
+* Export functions now can write in stdout if file name is "-".
+* Picture drawing now use multi-threading for each stage.
+
+* Functions mglData::Spline*, mglData::Linear* now can return gradient at the point.
+* mglFourier now make true inverse transform
+
+* Add annotation for all pure C functions.
+* Update list of built-in glyphs
+* Update samples
+* Update documentation
+* Different bugfixes
+
+* INCOMPATIBLE CHANGES in the arguments of functions: mgl_axis, mgl_axis_grid, mgl_label, mgl_labelw, mgl_legend_pos, mgl_legend; and in functions for MGL parsing.
+* MINOR INCOMPATIBLE: plotting functions now use double argument always.
+
 2.0.3 Released 27 July 2012
 
 * Make code compilable by compilers GNU/MinGW GCC, Clang, MS VisualStudio

diff --git a/examples/CMakeLists.txt b/examples/CMakeLists.txt
index f0c61f71a044cf72200e71ef74a68f0b743c65ea..3a64e7eee9ca4cba66fe939e33a47cdd72d4e4a9 100644 (file)
--- a/examples/CMakeLists.txt
+++ b/examples/CMakeLists.txt
@@ -2,48 +2,28 @@ if(MGL_HAVE_GSL)
        include_directories(${GSL_INCLUDE_DIR})
 endif(MGL_HAVE_GSL)
 
-add_executable(mgl_example wnd_samples.cpp full_test.cpp)
+add_executable(mgl_example wnd_samples.cpp full_test.cpp samples.cpp)
 target_link_libraries(mgl_example mgl)
-# install(
-#      TARGETS mgl_example
-#      RUNTIME DESTINATION bin
-# )
 
 if(MGL_HAVE_FLTK)
        add_executable(mgl_fltk_example wnd_samples.cpp fltk_example.cpp)
-       target_link_libraries(mgl_fltk_example mgl-wnd)
-#      install(
-#              TARGETS mgl_fltk_example
-#              RUNTIME DESTINATION bin
-#      )
+       target_link_libraries(mgl_fltk_example mgl-fltk)
 endif(MGL_HAVE_FLTK)
 
 if(MGL_HAVE_GLUT)
        add_executable(mgl_glut_example wnd_samples.cpp glut_example.cpp)
        target_link_libraries(mgl_glut_example mgl-glut)
-#      install(
-#              TARGETS mgl_glut_example
-#              RUNTIME DESTINATION bin
-#      )
 endif(MGL_HAVE_GLUT)
 
 if(MGL_HAVE_WX)
        include(${wxWidgets_USE_FILE})
        add_executable(mgl_wx_example wnd_samples.cpp wx_example.cpp)
-       target_link_libraries(mgl_wx_example ${wxWidgets_LIBRARIES} mgl-wnd)
-#      install(
-#              TARGETS mgl_wx_example
-#              RUNTIME DESTINATION bin
-#      )
+       target_link_libraries(mgl_wx_example mgl-wx)
 endif(MGL_HAVE_WX)
 
 if(MGL_HAVE_QT)
        include(${QT_USE_FILE})
        qt_wrap_cpp(mgl_qt_example MGL_MOC_EX_FILES ../include/mgl2/qt.h)
        add_executable(mgl_qt_example wnd_samples.cpp qt_example.cpp ${MGL_MOC_EX_FILES})
-       target_link_libraries(mgl_qt_example mgl-wnd ${QT_LIBRARIES})
-#      install(
-#              TARGETS mgl_qt_example
-#              RUNTIME DESTINATION bin
-#      )
+       target_link_libraries(mgl_qt_example mgl-qt)
 endif(MGL_HAVE_QT)

diff --git a/examples/fltk_example.cpp b/examples/fltk_example.cpp
index 41cd32cf5d590887bfb1bb6c3f354d8873988116..28abdda7d19b9a309d78accedd4936456e71b480 100644 (file)
--- a/examples/fltk_example.cpp
+++ b/examples/fltk_example.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * fltk_example.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -17,9 +17,11 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-#include "mgl2/window.h"\r
+#include "mgl2/fltk.h"\r
 #if defined(WIN32) || defined(_MSC_VER) || defined(__BORLANDC__)\r
 #include <windows.h>\r
+#else\r
+#include <unistd.h>\r
 #endif\r
 //-----------------------------------------------------------------------------\r
 int test_wnd(mglGraph *gr);\r
@@ -37,7 +39,7 @@ void *mgl_fltk_tmp(void *)    {       mgl_fltk_run(); return 0;       }
 int main(int argc,char **argv)\r
 {\r
 #ifdef PTHREAD_SAMPLE\r
-       mglWindow gr("test");\r
+       mglFLTK gr("test");\r
        gr.RunThr();\r
        for(int i=0;i<10;i++)   // do calculation\r
        {\r
@@ -55,18 +57,18 @@ int main(int argc,char **argv)
        }\r
        return 0;       // finish calculations and close the window\r
 #else\r
-       mglWindow *gr;\r
+       mglFLTK *gr;\r
        char key = 0;\r
        if(argc>1)      key = argv[1][0]!='-' ? argv[1][0]:argv[1][1];\r
        else    printf("You may specify argument '1', '2', '3' or 'd' for viewing examples of 1d, 2d, 3d or dual plotting\n");\r
        switch(key)\r
        {\r
-               case '1':       gr = new mglWindow(sample_1,"1D plots",0);      break;\r
-               case '2':       gr = new mglWindow(sample_2,"2D plots",0);      break;\r
-               case '3':       gr = new mglWindow(sample_3,"3D plots",0);      break;\r
-               case 'd':       gr = new mglWindow(sample_d,"Dual plots",0);    break;\r
-               case 't':       gr = new mglWindow(test_wnd,"Testing",0);       break;\r
-               default:        gr = new mglWindow(sample,"Drop and waves",0);  break;\r
+               case '1':       gr = new mglFLTK(sample_1,"1D plots");  break;\r
+               case '2':       gr = new mglFLTK(sample_2,"2D plots");  break;\r
+               case '3':       gr = new mglFLTK(sample_3,"3D plots");  break;\r
+               case 'd':       gr = new mglFLTK(sample_d,"Dual plots");        break;\r
+               case 't':       gr = new mglFLTK(test_wnd,"Testing");   break;\r
+               default:        gr = new mglFLTK(sample,"Drop and waves");      break;\r
        }\r
        gr->Run();      return 0;\r
 #endif\r

diff --git a/examples/full_test.cpp b/examples/full_test.cpp
index 6b174c47c672810f603465373fb0cfd00309e779..a40758f61550b8b7842d4d40459fc1328ab9f32b 100644 (file)
--- a/examples/full_test.cpp
+++ b/examples/full_test.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * full_test.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -26,11 +26,23 @@
 #include "mgl2/mgl.h"\r
 #include "mgl2/eval.h"\r
 //-----------------------------------------------------------------------------\r
-void mgls_prepare1d(mglData *y, mglData *y1=0, mglData *y2=0, mglData *x1=0, mglData *x2=0);\r
-void mgls_prepare2d(mglData *a, mglData *b=0, mglData *v=0);\r
-void mgls_prepare3d(mglData *a, mglData *b=0);\r
-void mgls_prepare2v(mglData *a, mglData *b);\r
-void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez);\r
+void mgl_create_cpp_font(HMGL gr, const wchar_t *how);\r
+//-----------------------------------------------------------------------------\r
+struct mglSample       /// Structure for list of samples\r
+{\r
+       const char *name;\r
+       void (*func)(mglGraph*);\r
+       const char *mgl;\r
+};\r
+extern mglSample samp[];\r
+extern const char *mmgl_dat_prepare;\r
+//-----------------------------------------------------------------------------\r
+int mgl_cmd_smp(const void *a, const void *b)\r
+{\r
+       const mglSample *aa = (const mglSample *)a;\r
+       const mglSample *bb = (const mglSample *)b;\r
+       return strcmp(aa->name, bb->name);\r
+}\r
 //-----------------------------------------------------------------------------\r
 int type = 0;\r
 int dotest  = 0;\r
@@ -39,225 +51,30 @@ int height = 600;
 int mini = 0;\r
 int big  = 0;\r
 int srnd = 0;\r
+int use_mgl = 0;\r
+int verbose = 0;\r
+//-----------------------------------------------------------------------------\r
+void mgls_prepare1d(mglData *y, mglData *y1=0, mglData *y2=0, mglData *x1=0, mglData *x2=0);\r
+void mgls_prepare2d(mglData *a, mglData *b=0, mglData *v=0);\r
+void mgls_prepare3d(mglData *a, mglData *b=0);\r
+void mgls_prepare2v(mglData *a, mglData *b);\r
+void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez);\r
 //-----------------------------------------------------------------------------\r
-void smgl_colorbar(mglGraph *gr);\r
-void smgl_combined(mglGraph *gr);\r
+void mgl_write_obj_old(HMGL gr, const char *fname,const char *descr, int use_png);\r
 void save(mglGraph *gr,const char *name,const char *suf);\r
 void test(mglGraph *gr)\r
 {\r
-       float itime =0, ltime=100;\r
-       \r
-       gr->MultiPlot(10,1,2, 8,1);\r
-       gr->SetTickLen(-.02);\r
-       gr->SetTickShift(mglPoint(0.2,0.2));\r
-       gr->SetRanges((float) itime,(float) ltime,-3.,3);\r
-       gr->SetOrigin(NAN,NAN);\r
-       gr->SetTimeUTC(true);\r
-       \r
-       gr->SetTicksTime('x');\r
-       gr->Axis("y", "b");\r
-       gr->Axis("x");\r
-       gr->SetOrigin(itime,3);gr->Axis("x_");\r
-       gr->Label('y',"y_1",0);\r
-       gr->FPlot("2.5","k");\r
-       gr->SetRanges((float) itime,(float) ltime,-10,10);\r
-       gr->SetOrigin(ltime,-10); // second axis\r
-       gr->Axis("y","r");  gr->Label('y',"#r{y_r}",0.2);\r
-       gr->FPlot("5.5","r");\r
-       gr->SetRanges((float) itime,(float) ltime,-1,1);\r
-       gr->SetOrigin(itime-(ltime-itime)/7.,-1); // second axis\r
-       gr->Axis("y","b");  gr->Label('y',"#r{y_2}",0.2);\r
-       gr->FPlot("0.5","r");\r
-       gr->SetRanges((float) itime,(float) ltime,-2,1);\r
-       gr->SetOrigin(itime-2*(ltime-itime)/7.,-2); // second axis\r
-       gr->Axis("y","b");  gr->Label('y',"#r{y_2}",0.2);\r
-       gr->FPlot("0.5","r");\r
-       gr->SetRanges((float) itime,(float) ltime,-2,2);\r
-       gr->SetOrigin(itime-3*(ltime-itime)/7.,-2); // second axis\r
-       gr->Axis("y","r");  gr->Label('y',"#r{y_3}",0.2);\r
-       gr->FPlot("-1.5","r");\r
-       gr->SetRanges((float) itime,(float) ltime,-20,20);\r
-       gr->SetOrigin(itime-4*(ltime-itime)/7.,-20); // second axis\r
-       gr->Axis("y","r");  gr->Label('y',"#r{y_3}",0.2);\r
-       gr->FPlot("-15","r");\r
-       \r
-       gr->WriteJPEG("1.jpg");\r
-       gr->WriteEPS("1.eps");\r
-       return;\r
-       \r
-       mglData ys(10), y;\r
-       ys.Modify("0.8*sin(pi*2*x)+0.2*rnd");\r
-       mgls_prepare1d(&y);\r
-\r
-       gr->SubPlot(2,2,0);\r
-       gr->SetOrigin(mglPoint(-1,-1,-1));      gr->Axis();\r
-       gr->SetOrigin(mglPoint(1,1,1)); gr->Axis();\r
-       gr->Box();      gr->Plot(ys," *");      gr->Label(ys,"y=%y");\r
-       gr->Label('x',"x_y label");     gr->Label('y',"y_y label");     gr->Label('z',"z_y label");\r
-\r
-       gr->SubPlot(2,2,1);     gr->Rotate(40,60);\r
-       gr->SetOrigin(mglPoint(-1,-1,-1));      gr->Axis();\r
-       gr->SetOrigin(mglPoint(1,1,1)); gr->Axis();\r
-       gr->SetOrigin(mglPoint(NAN,NAN,NAN));   gr->Axis();\r
-       gr->Label('x',"x_y label");     gr->Label('y',"y_y label");     gr->Label('z',"z_y label");\r
-\r
-       gr->SubPlot(2,2,2);\r
-       gr->Box();      gr->Plot(y.SubData(-1,0));\r
-       gr->Text(y,"This is very very long string drawn along a curve",":k");\r
-       gr->Text(y,"Another string drawn above a curve","T:r");\r
-\r
-       gr->SubPlot(2,2,3);\r
-       mglPoint p;\r
-       gr->Mark(p,".r");\r
-       gr->Puts(p,"A","@:C",-1);\r
-       gr->Puts(p,"A","@:C",-2);\r
-       \r
-       gr->SetRange('x',1341610306,1341612408);\r
-       gr->SetTicksTime('x');\r
-       gr->Axis();\r
-       return;\r
-\r
-       /*      mglParse par;\r
+       mglParse par;\r
        par.AllowSetSize(true);\r
        setlocale(LC_CTYPE, "");\r
-       FILE *fp=fopen("/home/balakin/progr/sfnet/mathgl/mathgl-2x/examples/test.mgl","r");\r
+       FILE *fp=fopen("/home/balakin/mathgl-code/mathgl-2x/build/test.mgl","r");\r
        par.Execute(gr,fp,true);\r
-       fclose(fp);*/\r
+       fclose(fp);\r
 }\r
 //-----------------------------------------------------------------------------\r
 void fexport(mglGraph *gr)\r
 {\r
-       mglData a,b,d;  mgls_prepare2v(&a,&b);  d = a;\r
-       for(int i=0;i<a.nx*a.ny;i++)    d.a[i] = hypot(a.a[i],b.a[i]);\r
-       mglData c;      mgls_prepare3d(&c);\r
-       mglData v(10);  v.Fill(-0.5,1);\r
-       gr->SubPlot(2,2,1,"");  gr->Title("Flow + Dens");\r
-       gr->Flow(a,b,"br");     gr->Dens(d,"BbcyrR");   gr->Box();\r
-       gr->SubPlot(2,2,0);     gr->Title("Surf + Cont");       gr->Rotate(50,60);\r
-       gr->Light(true);        gr->Surf(a);    gr->Cont(a,"y");        gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Title("Mesh + Cont");       gr->Rotate(50,60);\r
-       gr->Box();      gr->Mesh(a);    gr->Cont(a,"_");\r
-       gr->SubPlot(2,2,3);     gr->Title("Surf3 + ContF_3");gr->Rotate(50,60);\r
-       gr->Box();      gr->ContF3(v,c,"z",0);  gr->ContF3(v,c,"x");    gr->ContF3(v,c);\r
-       gr->SetCutBox(mglPoint(0,-1,-1), mglPoint(1,0,1.1));\r
-       gr->ContF3(v,c,"z",c.nz-1);     gr->Surf3(-0.5,c);\r
-\r
-/*     gr->WriteJPEG("test.jpg");\r
-*      gr->WritePNG("test.png");\r
-*      gr->WriteBMP("test.bmp");\r
-*      gr->WriteTGA("test.tga");\r
-*      gr->WriteEPS("test.eps");\r
-*      gr->WriteSVG("test.svg");\r
-*      gr->WriteGIF("test.gif");*/\r
-\r
-       gr->WriteXYZ("test.xyz");\r
-       gr->WriteSTL("test.stl");\r
-       gr->WriteOFF("test.off");\r
-       gr->WriteTEX("test.tex");\r
-       gr->WriteOBJ("test.obj","",true);\r
-       //      gr->WriteX3D("test.x3d");\r
-}\r
-//-----------------------------------------------------------------------------\r
-//             Sample functions (v.2.*0)\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_triangulation="new x 100 '2*rnd-1':new y 100 '2*rnd-1':copy z x^2-y^2\n"\r
-"new g 30 30:triangulate d x y\n"\r
-"title 'Triangulation'\nrotate 50 60:box:light on\n"\r
-"triplot d x y z:triplot d x y z '#k'\ndatagrid g x y z:mesh g 'm'\n";\r
-void smgl_triangulation(mglGraph *gr)  // alpha and lighting\r
-{\r
-       mglData x(100), y(100), z(100);\r
-       gr->Fill(x,"2*rnd-1");  gr->Fill(y,"2*rnd-1");  gr->Fill(z,"v^2-w^2",x,y);\r
-       mglData d = mglTriangulation(x,y), g(30,30);\r
-       \r
-       if(!mini)       gr->Title("Triangulation");\r
-       gr->Rotate(40,60);      gr->Box();      gr->Light(true);\r
-       gr->TriPlot(d,x,y,z);   gr->TriPlot(d,x,y,z,"#k");\r
-\r
-       gr->DataGrid(g,x,y,z);  gr->Mesh(g,"m");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_alpha="subplot 2 2 0:title 'default':rotate 50 60:box\nsurf a\n"\r
-"subplot 2 2 0:title 'light on':rotate 50 60:box\nlight on:surf a\n"\r
-"subplot 2 2 0:title 'light on; alpha on':rotate 50 60:box\nalpha on:surf a\n"\r
-"subplot 2 2 0:title 'alpha on':rotate 50 60:box\nnlight off:surf a\n";\r
-void smgl_alpha(mglGraph *gr)  // alpha and lighting\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->SubPlot(2,2,0);     gr->Title("default");   gr->Rotate(50,60);\r
-       gr->Box();      gr->Surf(a);\r
-       gr->SubPlot(2,2,1);     gr->Title("light on");  gr->Rotate(50,60);\r
-       gr->Box();      gr->Light(true);        gr->Surf(a);\r
-       gr->SubPlot(2,2,2);     gr->Title("alpha on; light on");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Alpha(true);        gr->Surf(a);\r
-       gr->SubPlot(2,2,3);     gr->Title("alpha on");  gr->Rotate(50,60);\r
-       gr->Box();      gr->Light(false);       gr->Surf(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_schemes="call 'sch' 0 'kw'\ncall 'sch' 1 'wk'\ncall 'sch' 2 'kHCcw'\ncall 'sch' 3 'kBbcw'\n"\r
-"call 'sch' 4 'kRryw'\ncall 'sch' 5 'kGgew'\ncall 'sch' 6 'BbwrR'\ncall 'sch' 7 'BbwgG'\n"\r
-"call 'sch' 8 'GgwmM'\ncall 'sch' 9 'UuwqR'\ncall 'sch' 10 'QqwcC'\ncall 'sch' 11 'CcwyY'\n"\r
-"call 'sch' 12 'bcwyr'\ncall 'sch' 13 'bwr'\ncall 'sch' 13 'BbcyrR'\ncall 'sch' 15 'UbcyqR'\n"\r
-"call 'sch' 16 'BbcwyrR'\ncall 'sch' 17 'bcyr'\ncall 'sch' 18 'BbcyrR|'\ncall 'sch' 19 'bgr'\n"\r
-"stop\nfunc 'sch' 2\nsubplot 2 10 $1 0.2 0:fsurf 'x' '$2':text -1.4 -0.3 '$2' ':C' -8\nreturn\n";\r
-void smgl_schemes(mglGraph *gr)        // Color table\r
-{\r
-       mglData a(256,2);       a.Fill(-1,1);\r
-       gr->SubPlot(2,10,0,NULL,0.2);   gr->Dens(a,"kw");               gr->Puts(0.07, 0.92, "kw", "A");\r
-       gr->SubPlot(2,10,1,NULL,0.2);   gr->Dens(a,"wk");               gr->Puts(0.57, 0.92, "wk", "A");\r
-       gr->SubPlot(2,10,2,NULL,0.2);   gr->Dens(a,"kHCcw");    gr->Puts(0.07, 0.82, "kHCcw", "A");\r
-       gr->SubPlot(2,10,3,NULL,0.2);   gr->Dens(a,"kBbcw");    gr->Puts(0.57, 0.82, "kBbcw", "A");\r
-       gr->SubPlot(2,10,4,NULL,0.2);   gr->Dens(a,"kRryw");    gr->Puts(0.07, 0.72, "kRryw", "A");\r
-       gr->SubPlot(2,10,5,NULL,0.2);   gr->Dens(a,"kGgew");    gr->Puts(0.57, 0.72, "kGgew", "A");\r
-       gr->SubPlot(2,10,6,NULL,0.2);   gr->Dens(a,"BbwrR");    gr->Puts(0.07, 0.62, "BbwrR", "A");\r
-       gr->SubPlot(2,10,7,NULL,0.2);   gr->Dens(a,"BbwgG");    gr->Puts(0.57, 0.62, "BbwgG", "A");\r
-       gr->SubPlot(2,10,8,NULL,0.2);   gr->Dens(a,"GgwmM");    gr->Puts(0.07, 0.52, "GgwmM", "A");\r
-       gr->SubPlot(2,10,9,NULL,0.2);   gr->Dens(a,"UuwqR");    gr->Puts(0.57, 0.52, "UuwqR", "A");\r
-       gr->SubPlot(2,10,10,NULL,0.2);  gr->Dens(a,"QqwcC");    gr->Puts(0.07, 0.42, "QqwcC", "A");\r
-       gr->SubPlot(2,10,11,NULL,0.2);  gr->Dens(a,"CcwyY");    gr->Puts(0.57, 0.42, "CcwyY", "A");\r
-       gr->SubPlot(2,10,12,NULL,0.2);  gr->Dens(a,"bcwyr");    gr->Puts(0.07, 0.32, "bcwyr", "A");\r
-       gr->SubPlot(2,10,13,NULL,0.2);  gr->Dens(a,"bwr");              gr->Puts(0.57, 0.32, "bwr", "A");\r
-       gr->SubPlot(2,10,14,NULL,0.2);  gr->Dens(a,"BbcyrR");   gr->Puts(0.07, 0.22, "BbcyrR", "A");\r
-       gr->SubPlot(2,10,15,NULL,0.2);  gr->Dens(a,"UbcyqR");   gr->Puts(0.57, 0.22, "UbcyqR", "A");\r
-       gr->SubPlot(2,10,16,NULL,0.2);  gr->Dens(a,"BbcwyrR");  gr->Puts(0.07, 0.12, "BbcwyrR", "A");\r
-       gr->SubPlot(2,10,17,NULL,0.2);  gr->Dens(a,"bcyr");             gr->Puts(0.57, 0.12, "bcyr", "A");\r
-       gr->SubPlot(2,10,18,NULL,0.2);  gr->Dens(a,"BbcyrR|");  gr->Puts(0.07, 0.02, "BbcyrR|", "A");\r
-       gr->SubPlot(2,10,19,NULL,0.2);  gr->Dens(a,"bgr");              gr->Puts(0.57, 0.02, "bgr", "A");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_curvcor="origin -1 1 -1\nsubplot 2 2 0:title 'Cartesian':rotate 50 60:fplot '2*t-1' '0.5' '0':axis:grid\n"\r
-"axis 'y*sin(pi*x)' 'y*cos(pi*x)':subplot 2 2 1:title 'Cylindrical':rotate 50 60:fplot '2*t-1' '0.5' '0':axis:grid\n"\r
-"axis '2*y*x' 'y*y - x*x':subplot 2 2 2:title 'Parabolic':rotate 50 60:fplot '2*t-1' '0.5' '0':axis:grid\n"\r
-"axis 'y*sin(pi*x)' 'y*cos(pi*x)' 'x+z':subplot 2 2 3:title 'Spiral':rotate 50 60:fplot '2*t-1' '0.5' '0':axis:grid\n";\r
-void smgl_curvcoor(mglGraph *gr)       // curvilinear coordinates\r
-{\r
-       gr->SetOrigin(-1,1,-1);\r
-\r
-       gr->SubPlot(2,2,0);     gr->Title("Cartesian"); gr->Rotate(50,60);\r
-       gr->FPlot("2*t-1","0.5","0","r2");\r
-       gr->Axis(); gr->Grid();\r
-\r
-       gr->SetFunc("y*sin(pi*x)","y*cos(pi*x)",0);\r
-       gr->SubPlot(2,2,1);     gr->Title("Cylindrical");       gr->Rotate(50,60);\r
-       gr->FPlot("2*t-1","0.5","0","r2");\r
-       gr->Axis(); gr->Grid();\r
-\r
-       gr->SetFunc("2*y*x","y*y - x*x",0);\r
-       gr->SubPlot(2,2,2);     gr->Title("Parabolic"); gr->Rotate(50,60);\r
-       gr->FPlot("2*t-1","0.5","0","r2");\r
-       gr->Axis(); gr->Grid();\r
-\r
-       gr->SetFunc("y*sin(pi*x)","y*cos(pi*x)","x+z");\r
-       gr->SubPlot(2,2,3);     gr->Title("Spiral");    gr->Rotate(50,60);\r
-       gr->FPlot("2*t-1","0.5","0","r2");\r
-       gr->Axis(); gr->Grid();\r
-       gr->SetFunc(0,0,0);     // set to default Cartesian\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_style="";\r
-void smgl_style(mglGraph *gr)  // pen styles\r
-{\r
-       gr->SubPlot(2,2,0);\r
+       gr->SubPlot(3,2,0);\r
        double d,x1,x2,x0,y=0.95;\r
        d=0.3, x0=0.2, x1=0.5, x2=0.6;\r
        gr->Line(mglPoint(x0,1-0*d),mglPoint(x1,1-0*d),"k-");   gr->Puts(mglPoint(x2,y-0*d),"Solid '-'",":rL");\r
@@ -268,34 +85,34 @@ void smgl_style(mglGraph *gr)      // pen styles
        gr->Line(mglPoint(x0,1-5*d),mglPoint(x1,1-5*d),"ki");   gr->Puts(mglPoint(x2,y-5*d),"Small dash-dot 'i'",":rL");\r
        gr->Line(mglPoint(x0,1-6*d),mglPoint(x1,1-6*d),"k:");   gr->Puts(mglPoint(x2,y-6*d),"Dots ':'",":rL");\r
        gr->Line(mglPoint(x0,1-7*d),mglPoint(x1,1-7*d),"k ");   gr->Puts(mglPoint(x2,y-7*d),"None ' '",":rL");\r
-\r
+       \r
        d=0.25; x1=-1; x0=-0.8; y = -0.05;\r
-       gr->Mark(mglPoint(x1,5*d),".");         gr->Puts(mglPoint(x0,y+5*d),"'.'",":rL");\r
-       gr->Mark(mglPoint(x1,4*d),"+");         gr->Puts(mglPoint(x0,y+4*d),"'+'",":rL");\r
-       gr->Mark(mglPoint(x1,3*d),"x");         gr->Puts(mglPoint(x0,y+3*d),"'x'",":rL");\r
-       gr->Mark(mglPoint(x1,2*d),"*");         gr->Puts(mglPoint(x0,y+2*d),"'*'",":rL");\r
-       gr->Mark(mglPoint(x1,d),"s");           gr->Puts(mglPoint(x0,y+d),"'s'",":rL");\r
-       gr->Mark(mglPoint(x1,0),"d");           gr->Puts(mglPoint(x0,y),"'d'",":rL");\r
-       gr->Mark(mglPoint(x1,-d,0),"o");        gr->Puts(mglPoint(x0,y-d),"'o'",":rL");\r
-       gr->Mark(mglPoint(x1,-2*d,0),"^");      gr->Puts(mglPoint(x0,y-2*d),"'\\^'",":rL");\r
-       gr->Mark(mglPoint(x1,-3*d,0),"v");      gr->Puts(mglPoint(x0,y-3*d),"'v'",":rL");\r
-       gr->Mark(mglPoint(x1,-4*d,0),"<");      gr->Puts(mglPoint(x0,y-4*d),"'<'",":rL");\r
-       gr->Mark(mglPoint(x1,-5*d,0),">");      gr->Puts(mglPoint(x0,y-5*d),"'>'",":rL");\r
-\r
+       gr->Mark(mglPoint(x1,5*d),"k.");                gr->Puts(mglPoint(x0,y+5*d),"'.'",":rL");\r
+       gr->Mark(mglPoint(x1,4*d),"k+");                gr->Puts(mglPoint(x0,y+4*d),"'+'",":rL");\r
+       gr->Mark(mglPoint(x1,3*d),"kx");                gr->Puts(mglPoint(x0,y+3*d),"'x'",":rL");\r
+       gr->Mark(mglPoint(x1,2*d),"k*");                gr->Puts(mglPoint(x0,y+2*d),"'*'",":rL");\r
+       gr->Mark(mglPoint(x1,d),"ks");          gr->Puts(mglPoint(x0,y+d),"'s'",":rL");\r
+       gr->Mark(mglPoint(x1,0),"kd");          gr->Puts(mglPoint(x0,y),"'d'",":rL");\r
+       gr->Mark(mglPoint(x1,-d,0),"ko");       gr->Puts(mglPoint(x0,y-d),"'o'",":rL");\r
+       gr->Mark(mglPoint(x1,-2*d,0),"k^");     gr->Puts(mglPoint(x0,y-2*d),"'\\^'",":rL");\r
+       gr->Mark(mglPoint(x1,-3*d,0),"kv");     gr->Puts(mglPoint(x0,y-3*d),"'v'",":rL");\r
+       gr->Mark(mglPoint(x1,-4*d,0),"k<");     gr->Puts(mglPoint(x0,y-4*d),"'<'",":rL");\r
+       gr->Mark(mglPoint(x1,-5*d,0),"k>");     gr->Puts(mglPoint(x0,y-5*d),"'>'",":rL");\r
+       \r
        d=0.25; x1=-0.5; x0=-0.3;       y = -0.05;\r
-       gr->Mark(mglPoint(x1,5*d),"#.");        gr->Puts(mglPoint(x0,y+5*d),"'\\#.'",":rL");\r
-       gr->Mark(mglPoint(x1,4*d),"#+");        gr->Puts(mglPoint(x0,y+4*d),"'\\#+'",":rL");\r
-       gr->Mark(mglPoint(x1,3*d),"#x");        gr->Puts(mglPoint(x0,y+3*d),"'\\#x'",":rL");\r
-       gr->Mark(mglPoint(x1,2*d),"#*");        gr->Puts(mglPoint(x0,y+2*d),"'\\#*'",":rL");\r
-       gr->Mark(mglPoint(x1,d),"#s");          gr->Puts(mglPoint(x0,y+d),"'\\#s'",":rL");\r
-       gr->Mark(mglPoint(x1,0),"#d");          gr->Puts(mglPoint(x0,y),"'\\#d'",":rL");\r
-       gr->Mark(mglPoint(x1,-d,0),"#o");       gr->Puts(mglPoint(x0,y-d),"'\\#o'",":rL");\r
-       gr->Mark(mglPoint(x1,-2*d,0),"#^");     gr->Puts(mglPoint(x0,y-2*d),"'\\#\\^'",":rL");\r
-       gr->Mark(mglPoint(x1,-3*d,0),"#v");     gr->Puts(mglPoint(x0,y-3*d),"'\\#v'",":rL");\r
-       gr->Mark(mglPoint(x1,-4*d,0),"#<");     gr->Puts(mglPoint(x0,y-4*d),"'\\#<'",":rL");\r
-       gr->Mark(mglPoint(x1,-5*d,0),"#>");     gr->Puts(mglPoint(x0,y-5*d),"'\\#>'",":rL");\r
-\r
-       gr->SubPlot(2,2,1);\r
+       gr->Mark(mglPoint(x1,5*d),"k#.");       gr->Puts(mglPoint(x0,y+5*d),"'\\#.'",":rL");\r
+       gr->Mark(mglPoint(x1,4*d),"k#+");       gr->Puts(mglPoint(x0,y+4*d),"'\\#+'",":rL");\r
+       gr->Mark(mglPoint(x1,3*d),"k#x");       gr->Puts(mglPoint(x0,y+3*d),"'\\#x'",":rL");\r
+       gr->Mark(mglPoint(x1,2*d),"k#*");       gr->Puts(mglPoint(x0,y+2*d),"'\\#*'",":rL");\r
+       gr->Mark(mglPoint(x1,d),"k#s");         gr->Puts(mglPoint(x0,y+d),"'\\#s'",":rL");\r
+       gr->Mark(mglPoint(x1,0),"k#d");         gr->Puts(mglPoint(x0,y),"'\\#d'",":rL");\r
+       gr->Mark(mglPoint(x1,-d,0),"k#o");      gr->Puts(mglPoint(x0,y-d),"'\\#o'",":rL");\r
+       gr->Mark(mglPoint(x1,-2*d,0),"k#^");    gr->Puts(mglPoint(x0,y-2*d),"'\\#\\^'",":rL");\r
+       gr->Mark(mglPoint(x1,-3*d,0),"k#v");    gr->Puts(mglPoint(x0,y-3*d),"'\\#v'",":rL");\r
+       gr->Mark(mglPoint(x1,-4*d,0),"k#<");    gr->Puts(mglPoint(x0,y-4*d),"'\\#<'",":rL");\r
+       gr->Mark(mglPoint(x1,-5*d,0),"k#>");    gr->Puts(mglPoint(x0,y-5*d),"'\\#>'",":rL");\r
+       \r
+       gr->SubPlot(3,2,1);\r
        double a=0.1,b=0.4,c=0.5;\r
        gr->Line(mglPoint(a,1),mglPoint(b,1),"k-A");            gr->Puts(mglPoint(c,1),"Style 'A' or 'A\\_'",":rL");\r
        gr->Line(mglPoint(a,0.8),mglPoint(b,0.8),"k-V");        gr->Puts(mglPoint(c,0.8),"Style 'V' or 'V\\_'",":rL");\r
@@ -308,7 +125,7 @@ void smgl_style(mglGraph *gr)       // pen styles
        gr->Line(mglPoint(a,-0.6),mglPoint(b,-0.6),"k-_");      gr->Puts(mglPoint(c,-0.6),"Style '\\_' or none",":rL");\r
        gr->Line(mglPoint(a,-0.8),mglPoint(b,-0.8),"k-AS");     gr->Puts(mglPoint(c,-0.8),"Style 'AS'",":rL");\r
        gr->Line(mglPoint(a,-1),mglPoint(b,-1),"k-_A");         gr->Puts(mglPoint(c,-1),"Style '\\_A'",":rL");\r
-\r
+       \r
        a=-1;   b=-0.7; c=-0.6;\r
        gr->Line(mglPoint(a,1),mglPoint(b,1),"kAA");            gr->Puts(mglPoint(c,1),"Style 'AA'",":rL");\r
        gr->Line(mglPoint(a,0.8),mglPoint(b,0.8),"kVV");        gr->Puts(mglPoint(c,0.8),"Style 'VV'",":rL");\r
@@ -321,8 +138,8 @@ void smgl_style(mglGraph *gr)       // pen styles
        gr->Line(mglPoint(a,-0.6),mglPoint(b,-0.6),"k-__");     gr->Puts(mglPoint(c,-0.6),"Style '\\_\\_'",":rL");\r
        gr->Line(mglPoint(a,-0.8),mglPoint(b,-0.8),"k-VA");     gr->Puts(mglPoint(c,-0.8),"Style 'VA'",":rL");\r
        gr->Line(mglPoint(a,-1),mglPoint(b,-1),"k-AV");         gr->Puts(mglPoint(c,-1),"Style 'AV'",":rL");\r
-\r
-       gr->SubPlot(2,2,2);\r
+       \r
+       gr->SubPlot(3,2,2);\r
        //#LENUQ\r
        gr->FaceZ(mglPoint(-1,  -1), 0.4, 0.3, "L#");   gr->Puts(mglPoint(-0.8,-0.9), "L", "w:C", -1.4);\r
        gr->FaceZ(mglPoint(-0.6,-1), 0.4, 0.3, "E#");   gr->Puts(mglPoint(-0.4,-0.9), "E", "w:C", -1.4);\r
@@ -365,8 +182,11 @@ void smgl_style(mglGraph *gr)      // pen styles
        gr->FaceZ(mglPoint(-0.2,0.8), 0.4, 0.3, "{r5}#");       gr->Puts(mglPoint(0,   0.9), "\\{r5\\}", "k:C", -1.4);\r
        gr->FaceZ(mglPoint(0.2, 0.8), 0.4, 0.3, "{r7}#");       gr->Puts(mglPoint(0.4, 0.9), "\\{r7\\}", "k:C", -1.4);\r
        gr->FaceZ(mglPoint(0.6, 0.8), 0.4, 0.3, "{r9}#");       gr->Puts(mglPoint(0.8, 0.9), "\\{r9\\}", "k:C", -1.4);\r
-\r
-       gr->SubPlot(2,2,3);\r
+       // HEX\r
+       gr->FaceZ(mglPoint(-1, -1.3), 1, 0.3, "{xff9966}#");    gr->Puts(mglPoint(-0.5,-1.2), "\\{xff9966\\}", "k:C", -1.4);\r
+       gr->FaceZ(mglPoint(0,  -1.3), 1, 0.3, "{x83CAFF}#");    gr->Puts(mglPoint( 0.5,-1.2), "\\{x83CAFF\\}", "k:C", -1.4);\r
+       \r
+       gr->SubPlot(3,2,3);\r
        char stl[3]="r1", txt[4]="'1'";\r
        for(int i=0;i<10;i++)\r
        {\r
@@ -374,1588 +194,85 @@ void smgl_style(mglGraph *gr)   // pen styles
                gr->Line(mglPoint(-1,0.2*i-1),mglPoint(1,0.2*i-1),stl);\r
                gr->Puts(mglPoint(1.05,0.2*i-1),txt,":L");\r
        }\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_text="subplot 2 2 0 ''\ntext 0 1 'Text can be in ASCII and in Unicode'\ntext 0 0.6 'It can be \\wire{wire}, \\big{big} or #r{colored}'\n"\r
-"text 0 0.2 'One can change style in string: \\b{bold}, \\i{italic, \\b{both}}'\ntext 0 -0.2 'Easy to \\a{overline} or \\u{underline}'\n"\r
-"text 0 -0.6 'Easy to change indexes ^{up} _{down} @{center}'\ntext 0 -1 'It parse TeX: \\int \\alpha \\cdot '\n'\\sqrt3{sin(\\pi x)^2 + \\gamma_{i_k}} dx'\n"\r
-"subplot0 2 2 1 ''\n text 0 0 '\\sqrt{\\frac{\\alpha^{\\gamma^2}+\\overset 1{\\big\\infty}}{\\sqrt3{2+b}}}' '@' -2\n"\r
-"subplot 2 2 2 '':box:plot y(:,0)\ntext y 'This is very very long string drawn along a curve' 'k'\ntext y 'Another string drawn above a curve' 'r:T'\n"\r
-"subplot 2 2 3 '':line -1 -1 1 -1 'rA':text 0 -1 1 -1 'Horizontal'\n"\r
-"line -1 -1 1 1 'rA':text 0 0 1 1 'At angle' '@'\nline -1 0 -1 1 'rA':text -1 0 -1 1 'Vertical'\n";\r
-void smgl_text(mglGraph *gr)   // text drawing\r
-{\r
-       if(!mini)       gr->SubPlot(2,2,0,"");\r
-       gr->Putsw(mglPoint(0,1),L"Text can be in ASCII and in Unicode");\r
-       gr->Puts(mglPoint(0,0.6),"It can be \\wire{wire}, \\big{big} or #r{colored}");\r
-       gr->Puts(mglPoint(0,0.2),"One can change style in string: "\r
-       "\\b{bold}, \\i{italic, \\b{both}}");\r
-       gr->Puts(mglPoint(0,-0.2),"Easy to \\a{overline} or "\r
-       "\\u{underline}");\r
-       gr->Puts(mglPoint(0,-0.6),"Easy to change indexes ^{up} _{down} @{center}");\r
-       gr->Puts(mglPoint(0,-1),"It parse TeX: \\int \\alpha \\cdot "\r
-       "\\sqrt3{sin(\\pi x)^2 + \\gamma_{i_k}} dx");\r
-       if(mini)        return;\r
-\r
-       gr->SubPlot(2,2,1,"");\r
-       gr->Puts(mglPoint(0,0.5), "\\sqrt{\\frac{\\alpha^{\\gamma^2}+\\overset 1{\\big\\infty}}{\\sqrt3{2+b}}}", "@", -2);\r
-       gr->Puts(mglPoint(0,-0.5),"Text can be printed\non several lines");\r
-\r
-       gr->SubPlot(2,2,2,"");\r
-       mglData y;      mgls_prepare1d(&y);\r
-       gr->Box();      gr->Plot(y.SubData(-1,0));\r
-       gr->Text(y,"This is very very long string drawn along a curve",":k");\r
-       gr->Text(y,"Another string drawn above a curve","T:r");\r
-\r
-       gr->SubPlot(2,2,3,"");\r
-       gr->Line(mglPoint(-1,-1),mglPoint(1,-1),"rA");  gr->Puts(mglPoint(0,-1),mglPoint(1,-1),"Horizontal");\r
-       gr->Line(mglPoint(-1,-1),mglPoint(1,1),"rA");   gr->Puts(mglPoint(0,0),mglPoint(1,1),"At angle","@");\r
-       gr->Line(mglPoint(-1,-1),mglPoint(-1,1),"rA");  gr->Puts(mglPoint(-1,0),mglPoint(-1,1),"Vertical");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_fonts="loadfont 'bonum':text 0 1.1-2*d 'bonum font'\nloadfont 'chorus':text 0 1.1-3*d 'chorus font'\nloadfont 'cursor':text 0 1.1-4*d 'cursor font'\n"\r
-"loadfont 'heros':text 0 1.1-5*d 'heros font'\nloadfont 'heroscn':text 0 1.1-6*d 'heroscn font'\nloadfont 'pagella':text 0 1.1-7*d 'pagella font'\n"\r
-"loadfont 'schola':text 0 1.1-8*d 'schola font'\nloadfont 'termes':text 0 1.1-9*d 'termes font'\nnloadfont ''\n";\r
-void smgl_fonts(mglGraph *gr)  // font typefaces\r
-{\r
-       double h=1.1, d=0.25;\r
-       gr->LoadFont("STIX");           gr->Puts(mglPoint(0,h), "default font (STIX)");\r
-       gr->LoadFont("adventor");       gr->Puts(mglPoint(0,h-d), "adventor font");\r
-       gr->LoadFont("bonum");          gr->Puts(mglPoint(0,h-2*d), "bonum font");\r
-       gr->LoadFont("chorus");         gr->Puts(mglPoint(0,h-3*d), "chorus font");\r
-       gr->LoadFont("cursor");         gr->Puts(mglPoint(0,h-4*d), "cursor font");\r
-       gr->LoadFont("heros");          gr->Puts(mglPoint(0,h-5*d), "heros font");\r
-       gr->LoadFont("heroscn");        gr->Puts(mglPoint(0,h-6*d), "heroscn font");\r
-       gr->LoadFont("pagella");        gr->Puts(mglPoint(0,h-7*d), "pagella font");\r
-       gr->LoadFont("schola");         gr->Puts(mglPoint(0,h-8*d), "schola font");\r
-       gr->LoadFont("termes");         gr->Puts(mglPoint(0,h-9*d), "termes font");\r
-       gr->LoadFont("");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_bars="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0\n"\r
-"subplot 3 2 0 '':title 'Bars plot (default)':box:bars ys\nsubplot 3 2 1 '':title '2 colors':box:bars ys 'cbgGyr'\n"\r
-"subplot 3 2 4 '':title '\\\'\\#\\\' style':box:bars ys '#'\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 3 2 5:title '3d variant':rotate 50 60:box:bars xc yc z 'r'\n"\r
-"ranges -1 1 -3 3:subplot 3 2 2 '':title '\\\'a\\\' style':box:bars ys 'a'\nsubplot 3 2 3 '':title '\\\'f\\\' style':box:bars ys 'f'\n";\r
-void smgl_bars(mglGraph *gr)\r
-{\r
-       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");\r
-       gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(3,2,0,"");  gr->Title("Bars plot (default)");       }\r
-       gr->Box();      gr->Bars(ys);\r
-       if(mini)        return;\r
-       gr->SubPlot(3,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Bars(ys,"cbgGyr");\r
-       gr->SubPlot(3,2,4,"");  gr->Title("'\\#' style");       gr->Box();      gr->Bars(ys,"#");\r
-       gr->SubPlot(3,2,5);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       gr->Bars(xc,yc,z,"r");\r
-       gr->SetRanges(-1,1,-3,3);       // increase range since summation can exceed [-1,1]\r
-       gr->SubPlot(3,2,2,"");  gr->Title("'a' style"); gr->Box();      gr->Bars(ys,"a");\r
-       gr->SubPlot(3,2,3,"");  gr->Title("'f' style"); gr->Box();      gr->Bars(ys,"f");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_barh="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0\n"\r
-"subplot 2 2 0 '':title 'Barh plot (default)':box:barh ys\nsubplot 2 2 1 '':title '2 colors':box:barh y 'cbgGyr's\n"\r
-"ranges -3 3 -1 1:subplot 2 2 2 '':title '\\\'a\\\' style':box:barh ys 'a'\nsubplot 2 2 3 '': title '\\\'f\\\' style':box:barh ys 'f'\n";\r
-void smgl_barh(mglGraph *gr)\r
-{\r
-       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");\r
-       gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Barh plot (default)");       }\r
-       gr->Box();      gr->Barh(ys);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Barh(ys,"cbgGyr");\r
-       gr->SetRanges(-3,3,-1,1);       // increase range since summation can exceed [-1,1]\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'a' style"); gr->Box();      gr->Barh(ys,"a");\r
-       gr->SubPlot(2,2,3,"");  gr->Title("'f' style"); gr->Box();      gr->Barh(ys,"f");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_area="origin 0 0 0\nsubplot 2 2 0 '':title 'Area plot (default)':box:area y\n"\r
-"subplot 2 2 1 '':title '2 colors':box:area y 'cbgGyr'\nsubplot 2 2 2 '':title '\\\'!\\\' style':box:area y '!'\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 3:title '3d variant':rotate 50 60:box:area xc yc z 'r'\n";\r
-void smgl_area(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Area plot (default)");       }\r
-       gr->Box();      gr->Area(y);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Area(y,"cbgGyr");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Area(y,"!");\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       gr->Area(xc,yc,z,"r");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_plot="subplot 2 2 0 '':title 'Plot plot (default)':box:plot y\n"\r
-"subplot 2 2 2 '':title ''!' style; 'rgb' palette':box:plot y 'o!rgb'\nsubplot 2 2 3 '':title 'just markers':box:plot y ' +'\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:plot xc yc z 'rs'\n";\r
-void smgl_plot(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Plot plot (default)");       }\r
-       gr->Box();      gr->Plot(y);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'!' style; 'rgb' palette");  gr->Box();      gr->Plot(y,"o!rgb");\r
-       gr->SubPlot(2,2,3,"");  gr->Title("just markers");      gr->Box();      gr->Plot(y," +");\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       gr->Plot(xc,yc,z,"rs");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_tens="subplot 2 2 0 '':title 'Tens plot (default)':box:tens y(:.0) y(:,1)\nsubplot 2 2 1 '':title '' ' style':box:plot y(:.0) y(:,1) 'o '\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:tens xc yc z z 's'\n";\r
-void smgl_tens(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tens plot (default)");       }\r
-       gr->Box();      gr->Tens(y.SubData(-1,0), y.SubData(-1,1));\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,2,"");  gr->Title("' ' style"); gr->Box();      gr->Tens(y.SubData(-1,0), y.SubData(-1,1),"o ");\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       gr->Tens(xc,yc,z,z,"s");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_region="copy y1 y(:,1):copy y2 y(:,2)\n"\r
-"subplot 2 2 0 '':title 'Region plot (default)':box:region y1 y2:plot y1 'k2':plot y2 'k2'\n"\r
-"subplot 2 2 1 '':title '2 colors':box:region y1 y2 'yr':plot y1 'k2':plot y2 'k2'\n"\r
-"subplot 2 2 2 '':title '\\\'!\\\' style':box:region y1 y2 '!':plot y1 'k2':plot y2 'k2'\n"\r
-"subplot 2 2 3 '':title '\\\'i\\\' style':box:region y1 y2 'ir':plot y1 'k2':plot y2 'k2'\n";\r
-void smgl_region(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);\r
-       mglData y1 = y.SubData(-1,1), y2 = y.SubData(-1,2);     gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Region plot (default)");     }\r
-       gr->Box();      gr->Region(y1,y2);      gr->Plot(y1,"k2");      gr->Plot(y2,"k2");\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Region(y1,y2,"yr"); gr->Plot(y1,"k2");      gr->Plot(y2,"k2");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Region(y1,y2,"!");  gr->Plot(y1,"k2");      gr->Plot(y2,"k2");\r
-       gr->SubPlot(2,2,3,"");  gr->Title("'i' style"); gr->Box();      gr->Region(y1,y2,"ir"); gr->Plot(y1,"k2");      gr->Plot(y2,"k2");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_stem="origin 0 0 0:subplot 2 2 0 '':title 'Stem plot (default)':box:stem y\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:stem xc yc z 'rx'\n"\r
-"subplot 2 2 2 '':title '\\\\'!\\\' style':box:stem y 'o!rgb'\n";\r
-void smgl_stem(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Stem plot (default)");       }\r
-       gr->Box();      gr->Stem(y);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Stem(xc,yc,z,"rx");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Stem(y,"o!rgb");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_step="origin 0 0 0:subplot 2 2 0 '':title 'Step plot (default)':box:step y\n"\r
-"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:step xc yc z 'r'\n"\r
-"subplot 2 2 2 '':title '\\\\'!\\\' style':box:step y 's!rgb'\n";\r
-void smgl_step(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);\r
-       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Step plot (default)");       }\r
-       gr->Box();      gr->Step(y);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Step(xc,yc,z,"r");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Step(y,"s!rgb");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_boxplot="new a 10 7 '(2*rnd-1)^3/2'\nsubplot 1 1 0 '':title 'Boxplot plot':box:boxplot a";\r
-void smgl_boxplot(mglGraph *gr)        // flow threads and density plot\r
-{\r
-       mglData a(10,7);        a.Modify("(2*rnd-1)^3/2");\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Boxplot plot");      }\r
-       gr->Box();      gr->BoxPlot(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_type0="alpha on:light on:transptype 0:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"\r
-"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"\r
-"subplot 2 2 3:rotate 50 60:axial a:box";\r
-void smgl_type0(mglGraph *gr)  // TranspType = 0\r
-{\r
-       gr->Alpha(true);        gr->Light(true);\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->SetTranspType(0);   gr->Clf();\r
-       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();\r
-       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();\r
-       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_type1="alpha on:light on:transptype 1:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"\r
-"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"\r
-"subplot 2 2 3:rotate 50 60:axial a:box";\r
-void smgl_type1(mglGraph *gr)  // TranspType = 1\r
-{\r
-       gr->Alpha(true);        gr->Light(true);\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->SetTranspType(1);   gr->Clf();\r
-       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();\r
-       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();\r
-       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_type2="alpha on:light on:transptype 2:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"\r
-"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"\r
-"subplot 2 2 3:rotate 50 60:axial a:box";\r
-void smgl_type2(mglGraph *gr)  // TranspType = 2\r
-{\r
-       gr->Alpha(true);        gr->Light(true);\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->SetTranspType(2);   gr->Clf();\r
-       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();\r
-       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();\r
-       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_molecule="alpha on:light on\n"\r
-"subplot 2 2 0 '':title 'Methane, CH_4':rotate 60 120\n"\r
-"sphere 0 0 0 0.25 'k':drop 0 0 0 0 0 1 0.35 'h' 1 2:sphere 0 0 0.7 0.25 'g'\n"\r
-"drop 0 0 0 -0.94 0 -0.33 0.35 'h' 1 2:sphere -0.66 0 -0.23 0.25 'g'\n"\r
-"drop 0 0 0 0.47 0.82 -0.33 0.35 'h' 1 2:sphere 0.33 0.57 -0.23 0.25 'g'\n"\r
-"drop 0 0 0 0.47 -0.82 -0.33 0.35 'h' 1 2:sphere 0.33 -0.57 -0.23 0.25 'g'\n"\r
-"subplot 2 2 1 '':title 'Water, H{_2}O':rotate 60 100\n"\r
-"sphere 0 0 0 0.25 'r':drop 0 0 0 0.3 0.5 0 0.3 'm' 1 2:sphere 0.3 0.5 0 0.25 'g'\n"\r
-"drop 0 0 0 0.3 -0.5 0 0.3 'm' 1 2:sphere 0.3 -0.5 0 0.25 'g'\n"\r
-"subplot 2 2 2 '':title 'Oxygen, O_2':rotate 60 120\n"\r
-"drop 0 0.5 0 0 -0.3 0 0.3 'm' 1 2:sphere 0 0.5 0 0.25 'r'\n"\r
-"drop 0 -0.5 0 0 0.3 0 0.3 'm' 1 2:sphere 0 -0.5 0 0.25 'r'\n"\r
-"subplot 2 2 3 '':title 'Ammonia, NH_3':rotate 60 120\n"\r
-"sphere 0 0 0 0.25 'b':drop 0 0 0 0.33 0.57 0 0.32 'n' 1 2\n"\r
-"sphere 0.33 0.57 0 0.25 'g':drop 0 0 0 0.33 -0.57 0 0.32 'n' 1 2\n"\r
-"sphere 0.33 -0.57 0 0.25 'g':drop 0 0 0 -0.65 0 0 0.32 'n' 1 2\n"\r
-"sphere -0.65 0 0 0.25 'g'\n";\r
-void smgl_molecule(mglGraph *gr)       // example of moleculas\r
-{\r
-       gr->VertexColor(false); gr->Compression(false); // per-vertex colors and compression are detrimental to transparency\r
-       gr->DoubleSided(false); // we do not get into atoms, while rendering internal surface has negative impact on trasparency\r
-       gr->Alpha(true);        gr->Light(true);\r
-\r
-       gr->SubPlot(2,2,0,"");  gr->Title("Methane, CH_4");\r
-       gr->StartGroup("Methane");\r
-       gr->Rotate(60,120);\r
-       gr->Sphere(mglPoint(0,0,0),0.25,"k");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0,0,1),0.35,"h",1,2);\r
-       gr->Sphere(mglPoint(0,0,0.7),0.25,"g");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(-0.94,0,-0.33),0.35,"h",1,2);\r
-       gr->Sphere(mglPoint(-0.66,0,-0.23),0.25,"g");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.47,0.82,-0.33),0.35,"h",1,2);\r
-       gr->Sphere(mglPoint(0.33,0.57,-0.23),0.25,"g");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.47,-0.82,-0.33),0.35,"h",1,2);\r
-       gr->Sphere(mglPoint(0.33,-0.57,-0.23),0.25,"g");\r
-       gr->EndGroup();\r
-\r
-       gr->SubPlot(2,2,1,"");  gr->Title("Water, H_{2}O");\r
-       gr->StartGroup("Water");\r
-       gr->Rotate(60,100);\r
-       gr->StartGroup("Water_O");\r
-       gr->Sphere(mglPoint(0,0,0),0.25,"r");\r
-       gr->EndGroup();\r
-       gr->StartGroup("Water_Bond_1");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.3,0.5,0),0.3,"m",1,2);\r
-       gr->EndGroup();\r
-       gr->StartGroup("Water_H_1");\r
-       gr->Sphere(mglPoint(0.3,0.5,0),0.25,"g");\r
-       gr->EndGroup();\r
-       gr->StartGroup("Water_Bond_2");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.3,-0.5,0),0.3,"m",1,2);\r
-       gr->EndGroup();\r
-       gr->StartGroup("Water_H_2");\r
-       gr->Sphere(mglPoint(0.3,-0.5,0),0.25,"g");\r
-       gr->EndGroup();\r
-       gr->EndGroup();\r
-\r
-       gr->SubPlot(2,2,2,"");  gr->Title("Oxygen, O_2");\r
-       gr->StartGroup("Oxygen");\r
-       gr->Rotate(60,120);\r
-       gr->Drop(mglPoint(0,0.5,0),mglPoint(0,-0.3,0),0.3,"m",1,2);\r
-       gr->Sphere(mglPoint(0,0.5,0),0.25,"r");\r
-       gr->Drop(mglPoint(0,-0.5,0),mglPoint(0,0.3,0),0.3,"m",1,2);\r
-       gr->Sphere(mglPoint(0,-0.5,0),0.25,"r");\r
-       gr->EndGroup();\r
-\r
-       gr->SubPlot(2,2,3,"");  gr->Title("Ammonia, NH_3");\r
-       gr->StartGroup("Ammonia");\r
-       gr->Rotate(60,120);\r
-       gr->Sphere(mglPoint(0,0,0),0.25,"b");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.33,0.57,0),0.32,"n",1,2);\r
-       gr->Sphere(mglPoint(0.33,0.57,0),0.25,"g");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(0.33,-0.57,0),0.32,"n",1,2);\r
-       gr->Sphere(mglPoint(0.33,-0.57,0),0.25,"g");\r
-       gr->Drop(mglPoint(0,0,0),mglPoint(-0.65,0,0),0.32,"n",1,2);\r
-       gr->Sphere(mglPoint(-0.65,0,0),0.25,"g");\r
-       gr->EndGroup();\r
-       gr->DoubleSided( true ); // put back\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_error="new y 50 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2)'\n"\r
-"new x0 10 'x + 0.1*rnd-0.05':new ex 10 '0.1':new ey 10 '0.2'\n"\r
-"new y0 10 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2) + 0.2*rnd-0.1'\n"\r
-"subplot 2 2 0 '':title 'Error plot (default)':box:plot y:error x0 y0 ex ey 'k'\n"\r
-"subplot 2 2 1 '':title '\\\'!\\\' style; no e_x':box:plot y:error x0 y0 ex ey 'o!rgb'\n"\r
-"subplot 2 2 2 '':title '\\\'\\@\\\' style':box:plot y:error x0 y0 ex ey '@'; alpha 0.5\n"\r
-"subplot 2 2 3 '':title '3d variant':rotate 50 60:axis\n"\r
-"for $1 0 9\n\terror 2*rnd-1 2*rnd-1 2*rnd-1 0.2 0.2 0.2 'bo'\nnext\n";\r
-void smgl_error(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);\r
-       mglData x0(10), y0(10), ex0(10), ey0(10);\r
-       double x;\r
-       for(int i=0;i<10;i++)\r
-       {\r
-               x = i/9.;\r
-               x0.a[i] = 2*x-1 + 0.1*mgl_rnd()-0.05;\r
-               y0.a[i] = 0.7*sin(2*M_PI*x)+0.5*cos(3*M_PI*x)+0.2*sin(M_PI*x)+0.2*mgl_rnd()-0.1;\r
-               ey0.a[i]=0.2;   ex0.a[i]=0.1;\r
-       }\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Error plot (default)");      }\r
-       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ex0,ey0,"ko");\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("'!' style; no e_x");\r
-       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ey0,"o!rgb");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'\\@' style");\r
-       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ex0,ey0,"@","alpha 0.5");\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       for(int i=0;i<10;i++)\r
-               gr->Error(mglPoint(2*mgl_rnd()-1,2*mgl_rnd()-1,2*mgl_rnd()-1), mglPoint(0.2,0.2,0.2),"bo");\r
-       gr->Axis();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_chart="new ch 7 2 'rnd+0.1':light on\n"\r
-"subplot 2 2 0:title 'Chart plot (default)':rotate 50 60:box:chart ch\n"\r
-"subplot 2 2 1:title '\\\'\\#\\\' style':rotate 50 60:box:chart ch '#'\n"\r
-"subplot 2 2 2:title 'Pie chart; \\\'\\\' style':rotate 50 60:\n"\r
-"axis '(y+1)/2*cos(pi*x)' '(y+1)/2*sin(pi*x)':box:chart ch 'bgr cmy#'\n"\r
-"subplot 2 2 2:title 'Ring chart; \\\'\\\' style':rotate 50 60:\n"\r
-"axis '(y+2)/3*cos(pi*x)' '(y+2)/3*sin(pi*x)':box:chart ch 'bgr cmy#'\n";\r
-void smgl_chart(mglGraph *gr)\r
-{\r
-       mglData ch(7,2);        for(int i=0;i<7*2;i++)  ch.a[i]=mgl_rnd()+0.1;\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Chart plot (default)");      }\r
-       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Chart(ch);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'\\#' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"#");\r
-       gr->SubPlot(2,2,2);     gr->Title("Pie chart; ' ' color");\r
-       gr->SetFunc("(y+1)/2*cos(pi*x)","(y+1)/2*sin(pi*x)","");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"bgr cmy#");\r
-       gr->SubPlot(2,2,3);     gr->Title("Ring chart; ' ' color");\r
-       gr->SetFunc("(y+2)/3*cos(pi*x)","(y+2)/3*sin(pi*x)","");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"bgr cmy#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_mark="subplot 1 1 0:title 'Mark plot (default)':box:mark y y1 's'\n";\r
-void smgl_mark(mglGraph *gr)\r
-{\r
-       mglData y,y1;   mgls_prepare1d(&y,&y1);\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Mark plot (default)");       }\r
-       gr->Box();      gr->Mark(y,y1,"s");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_radar="new yr 10 3 '0.4*sin(pi*(x+1.5+y/2)+0.1*rnd)'\n"\r
-"subplot 1 1 0 '':title 'Radar plot (with grid, \\\'\\#\\\')':box:radar yr '#'\n";\r
-void smgl_radar(mglGraph *gr)\r
-{\r
-       mglData yr(10,3);       yr.Modify("0.4*sin(pi*(2*x+y))+0.1*rnd");\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Radar plot (with grid, '\\#')");     }\r
-       gr->Radar(yr,"#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_candle="new y 30 'sin(pi*x/2)^2':copy y1 y/2:copy y2 (y+1)/2\n"\r
-"subplot 1 1 0 '':title 'Candle plot (with grid, \\\'\\#\\\')'\nyrange 0 1:box:candle y y1 y2\n";\r
-void smgl_candle(mglGraph *gr)\r
-{\r
-       mglData y(30);  gr->Fill(y,"sin(pi*x/2)^2");\r
-       mglData y1(30); gr->Fill(y1,"v/2",y);\r
-       mglData y2(30); gr->Fill(y2,"(1+v)/2",y);\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Candle plot (default)");     }\r
-       gr->SetRange('y',0,1);  gr->Box();      gr->Candle(y,y1,y2);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_textmark="subplot 1 1 0 '':title 'TextMark plot (default)':box:textmark y y1 '\\gamma' 'r'\n";\r
-void smgl_textmark(mglGraph *gr)\r
-{\r
-       mglData y,y1;   mgls_prepare1d(&y,&y1);\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("TextMark plot (default)");   }\r
-       gr->Box();      gr->TextMark(y,y1,"\\gamma","r");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_tube="new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x':divto y1 20\n"\r
-"subplot 2 2 0 '':title 'Tube plot (default)':box:tube y 0.05\n"\r
-"subplot 2 2 1 '':title 'variable radius':box:tube y y1\n"\r
-"subplot 2 2 2 '':title '\\\'\\#\\\' style':box:tube y 0.05 '#'\n"\r
-"subplot 2 2 3:title '3d variant':rotate 50 60:box:tube xc yc z y2 'r'\n";\r
-void smgl_tube(mglGraph *gr)\r
-{\r
-       mglData y,y1,y2;        mgls_prepare1d(&y,&y1,&y2);     y1/=20;\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tube plot (default)");       }\r
-       gr->Light(true);        gr->Box();      gr->Tube(y,0.05);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("variable radius");   gr->Box();      gr->Tube(y,y1);\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Tube(y,0.05,"#");\r
-       mglData yc(50), xc(50), z(50);  z.Modify("2*x-1");\r
-       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();      gr->Tube(xc,yc,z,y2,"r");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_tape="new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x'\n"\r
-"subplot 2 2 0 '':title 'Tape plot (default)':box:tape y:plot y 'k'\n"\r
-"subplot 2 2 1:title '3d variant, 2 colors':rotate 50 60:light on\n"\r
-"box:plot xc yc z 'k':tape xc yc z 'rg'\n"\r
-"subplot 2 2 2:title '3d variant, x only':rotate 50 60\n"\r
-"box:plot xc yc z 'k':tape xc yc z 'xr':tape xc yc z 'xr#'\n"\r
-"subplot 2 2 2:title '3d variant, z only':rotate 50 60\n"\r
-"box:plot xc yc z 'k':tape xc yc z 'zg':tape xc yc z 'zg#'\n";\r
-void smgl_tape(mglGraph *gr)\r
-{\r
-       mglData y;      mgls_prepare1d(&y);\r
-       mglData xc(50), yc(50), z(50);\r
-       yc.Modify("sin(pi*(2*x-1))");\r
-       xc.Modify("cos(pi*2*x-pi)");    z.Fill(-1,1);\r
-       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tape plot (default)");       }\r
-       gr->Box();      gr->Tape(y);    gr->Plot(y,"k");\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant, 2 colors");      gr->Rotate(50,60);      gr->Light(true);\r
-       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"rg");\r
-       gr->SubPlot(2,2,2);     gr->Title("3d variant, x only");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"xr"); gr->Tape(xc,yc,z,"xr#");\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant, z only");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"zg"); gr->Tape(xc,yc,z,"zg#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_fog="rotate 50 60:light on:fog 1\nbox:surf a\n";\r
-void smgl_fog(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Fog sample");\r
-       gr->Light(true);        gr->Rotate(50,60);      gr->Fog(1);     gr->Box();\r
-       gr->Surf(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_map="new a 50 40 'x':new b 50 40 'y':zrange -2 2:text 0 0 '\to'\n"\r
-"subplot 2 1 0:text 0 1.1 '\\{x, y\\}' '' -2:box:map a b 'brgk' 0 0\n"\r
-"subplot 2 1 1:text 0 1.1 '\\{\\frac{x^3+y^3}{2}, \\frac{x-y}{2}\\}' '' -2\n"\r
-"box:fill a '(x^3+y^3)/2':fill b '(x-y)/2':map a b 'brgk' 0 0\n";\r
-void smgl_map(mglGraph *gr)    // example of mapping\r
-{\r
-       mglData a(50, 40), b(50, 40);\r
-       gr->Puts(mglPoint(0, 0), "\\to", ":C", -1.4);\r
-       gr->SetRanges(-1,1,-1,1,-2,2);\r
-\r
-       gr->SubPlot(2, 1, 0);\r
-       gr->Fill(a,"x");        gr->Fill(b,"y");\r
-       gr->Puts(mglPoint(0, 1.1), "\\{x, y\\}", ":C", -2);             gr->Box();\r
-       gr->Map(a, b, "brgk");\r
-\r
-       gr->SubPlot(2, 1, 1);\r
-       gr->Fill(a,"(x^3+y^3)/2");      gr->Fill(b,"(x-y)/2");\r
-       gr->Puts(mglPoint(0, 1.1), "\\{\\frac{x^3+y^3}{2}, \\frac{x-y}{2}\\}", ":C", -2);\r
-       gr->Box();\r
-       gr->Map(a, b, "brgk");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_stfa="new a 2000:new b 2000\nfill a 'cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+'\n"\r
-"'cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)'\n"\r
-"subplot 1 2 0:plot a:axis:xlabel '\\i t'\n"\r
-"subplot 1 2 1:stfa a b 64:axis:ylabel '\\omega' 0:xlabel '\\i t'\n";\r
-void smgl_stfa(mglGraph *gr)   // STFA sample\r
-{\r
-       mglData a(2000), b(2000);\r
-       gr->Fill(a,"cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+\\r
-       cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)");\r
-       gr->SubPlot(1, 2, 0,"<_");      gr->Title("Initial signal");\r
-       gr->Plot(a);\r
-       gr->Axis();\r
-       gr->Label('x', "\\i t");\r
-\r
-       gr->SubPlot(1, 2, 1,"<_");      gr->Title("STFA plot");\r
-       gr->STFA(a, b, 64);\r
-       gr->Axis();\r
-       gr->Label('x', "\\i t");\r
-       gr->Label('y', "\\omega", 0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_qo2d="define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'\n"\r
-"subplot 1 1 0 '<_':title 'Beam and ray tracing'\n"\r
-"ray r $1 -0.7 -1 0 0 0.5 0 0.02 2:plot r(0) r(1) 'k'\naxis:xlabel '\\i x':ylabel '\\i z'\n"\r
-"new re 128 'exp(-48*x^2)':new im 128:qo2d a $1 re im r 1 30 xx yy\n"\r
-"crange 0 1:dens xx yy a 'wyrRk':fplot '-x' 'k|'\n"\r
-"text 0 0.85 'absorption: (x+y)/2 for x+y>0'\ntext 0.7 -0.05 'central ray'";\r
-void smgl_qo2d(mglGraph *gr)\r
-{\r
-       mglData r, xx, yy, a, im(128), re(128);\r
-       const char *ham = "p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)";\r
-       r = mglRay(ham, mglPoint(-0.7, -1), mglPoint(0, 0.5), 0.02, 2);\r
-       if(!mini)       {gr->SubPlot(1,1,0,"<_");       gr->Title("Beam and ray tracing");}\r
-       gr->Plot(r.SubData(0), r.SubData(1), "k");\r
-       gr->Axis();     gr->Label('x', "\\i x");        gr->Label('y', "\\i z");\r
-       // now start beam tracing\r
-       gr->Fill(re,"exp(-48*x^2)");\r
-       a = mglQO2d(ham, re, im, r, xx, yy, 1, 30);\r
-       gr->SetRange('c',0, 1);\r
-       gr->Dens(xx, yy, a, "wyrRk");\r
-       gr->FPlot("-x", "k|");\r
-       gr->Puts(mglPoint(0, 0.85), "absorption: (x+y)/2 for x+y>0");\r
-       gr->Puts(mglPoint(0.7, -0.05), "central ray");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_pde="new re 128 'exp(-48*(x+0.7)^2)':new im 128\n"\r
-"pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01 30\ntranspose a\n"\r
-"subplot 1 1 0 '<_':title 'PDE solver'\n"\r
-"axis:xlabel '\\i x':ylabel '\\i z'\ncrange 0 1:dens a 'wyrRk'\n"\r
-"fplot '-x' 'k|':text 0 0.85 'absorption: (x+z)/2 for x+z>0'\n"\r
-"text 0 1.1 'Equation: ik_0\\partial_zu + \\Delta u + x\\cdot u + i \\frac{x+z}{2}\\cdot u = 0'";\r
-void smgl_pde(mglGraph *gr)    // PDE sample\r
-{\r
-       mglData a,re(128),im(128);\r
-       gr->Fill(re,"exp(-48*(x+0.7)^2)");\r
-       a = gr->PDE("p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)", re, im, 0.01, 30);\r
-       a.Transpose("yxz");\r
-       if(!mini)       {gr->SubPlot(1,1,0,"<_");       gr->Title("PDE solver");        }\r
-       gr->SetRange('c',0,1);  gr->Dens(a,"wyrRk");\r
-       gr->Axis();     gr->Label('x', "\\i x");        gr->Label('y', "\\i z");\r
-       gr->FPlot("-x", "k|");\r
-       gr->Puts(mglPoint(0, 0.85), "absorption: (x+z)/2 for x+z>0");\r
-       gr->Puts(mglPoint(0,1.1),"Equation: ik_0\\partial_zu + \\Delta u + x\\cdot u + i \\frac{x+z}{2}\\cdot u = 0");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_conta="title 'Cont3 sample':rotate 50 60:box\ncont3 c 'x':cont3 c:cont3 c 'z'";\r
-void smgl_conta(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("Cont3 sample");\r
-       gr->Rotate(50,60);      gr->Box();\r
-       gr->Cont3(c,"x");       gr->Cont3(c);   gr->Cont3(c,"z");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_contfa="title 'Cont3 sample':rotate 50 60:light on:box\n"\r
-"contf3 c 'x':contf3 c:contf3 c 'z'\ncont3 c 'xk':cont3 c 'k':cont3 c 'zk'\n";\r
-void smgl_contfa(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("ContF3 sample");\r
-       gr->Rotate(50,60);      gr->Light(true);        gr->Box();\r
-       gr->ContF3(c,"x");      gr->ContF3(c);          gr->ContF3(c,"z");\r
-       gr->Cont3(c,"kx");      gr->Cont3(c,"k");       gr->Cont3(c,"kz");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_densa="title 'Dens3 sample':rotate 50 60:alpha on:alphadef 0.7\n"\r
-"origin 0 0 0:box:axis '_xyz'\ndens3 c 'x':dens3 c ':y':dens3 c 'z'";\r
-void smgl_densa(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("Dens3 sample");\r
-       gr->Rotate(50,60);      gr->Alpha(true);        gr->SetAlphaDef(0.7);\r
-       gr->SetOrigin(0,0,0);   gr->Axis("_xyz");       gr->Box();\r
-       gr->Dens3(c,"x");       gr->Dens3(c);   gr->Dens3(c,"z");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_dens_xyz="title 'Dens[XYZ] sample':rotate 50 60:light on:box\n"\r
-"densx c.sum('x') '' -1:densy c.sum('y') '' 1:densz c.sum('z') '' -1";\r
-void smgl_dens_xyz(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("Dens[XYZ] sample");\r
-       gr->Rotate(50,60);      gr->Box();      gr->DensX(c.Sum("x"),0,-1);\r
-       gr->DensY(c.Sum("y"),0,1);              gr->DensZ(c.Sum("z"),0,-1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_cont_xyz="title 'Cont[XYZ] sample':rotate 50 60:light on:box\n"\r
-"contx c.sum('x') '' -1:conty c.sum('y') '' 1:contz c.sum('z') '' -1";\r
-void smgl_cont_xyz(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("Cont[XYZ] sample");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContX(c.Sum("x"),"",-1);\r
-       gr->ContY(c.Sum("y"),"",1);             gr->ContZ(c.Sum("z"),"",-1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_contf_xyz="title 'ContF[XYZ] sample':rotate 50 60:light on:box\n"\r
-"contfx c.sum('x') '' -1:contfy c.sum('y') '' 1:contfz c.sum('z') '' -1";\r
-void smgl_contf_xyz(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("ContF[XYZ] sample");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContFX(c.Sum("x"),"",-1);\r
-       gr->ContFY(c.Sum("y"),"",1);    gr->ContFZ(c.Sum("z"),"",-1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_cloud="subplot 2 2 0:title 'Cloud plot':rotate 50 60:alpha on:box:cloud c 'wyrRk'"\r
-"subplot 2 2 1:title '\\\'!\\\' style':rotate 50 60:box:cloud c '!wyrRk'"\r
-"subplot 2 2 2:title '\\\'.\\\' style':rotate 50 60:box:cloud c '.wyrRk'"\r
-"subplot 2 2 3:title 'meshnum 10':rotate 50 60:box:cloud c 'wyrRk'; meshnum 10";\r
-void smgl_cloud(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cloud plot");        }\r
-       gr->Rotate(50,60);      gr->Alpha(true);\r
-       gr->Box();      gr->Cloud(c,"wyrRk");\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'!' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,"!wyrRk");\r
-       gr->SubPlot(2,2,2);     gr->Title("'.' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,".wyrRk");\r
-       gr->SubPlot(2,2,3);     gr->Title("meshnum 10");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,"wyrRk","meshnum 10");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_cont="list v -0.5 -0.15 0 0.15 0.5\nsubplot 2 2 0:title 'Cont plot (default)':rotate 50 60:box:cont a\n"\r
-"subplot 2 2 1:title 'manual levels':rotate 50 60:box:cont v a\n"\r
-"subplot 2 2 2:title '\\\'\\_\\\' style':rotate 50 60:box:cont a '_'\n"\r
-"subplot 2 2 3 '':title '\\\'t\\\' style':box:cont a 't'\n";\r
-void smgl_cont(mglGraph *gr)\r
-{\r
-       mglData a,v(5); mgls_prepare2d(&a);     v.a[0]=-0.5;    v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cont plot (default)");       }\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cont(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("manual levels");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cont(v,a);\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cont(a,"_");\r
-       gr->SubPlot(2,2,3,"");  gr->Title("'t' style");\r
-       gr->Box();      gr->Cont(a,"t");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_contf="list v -0.5 -0.15 0 0.15 0.5\n"\r
-"new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'"\r
-"subplot 2 2 0:title 'ContF plot (default)':rotate 50 60:box:contf a\n"\r
-"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contf v a\n"\r
-"subplot 2 2 2:title '\\\'\\_\\\' style':rotate 50 60:box:contf a '_'\n"\r
-"subplot 2 2 3:title 'several slices':rotate 50 60:box:contf a1\n";\r
-void smgl_contf(mglGraph *gr)\r
-{\r
-       mglData a,v(5),a1(30,40,3);     mgls_prepare2d(&a);     v.a[0]=-0.5;\r
-       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;\r
-       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");\r
-\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContF plot (default)");      }\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContF(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("manual levels");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContF(v,a);\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContF(a,"_");\r
-       gr->SubPlot(2,2,3);     gr->Title("several slices");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContF(a1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_contd="list v -0.5 -0.15 0 0.15 0.5\n"\r
-"new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'"\r
-"subplot 2 2 0:title 'ContD plot (default)':rotate 50 60:box:contd a\n"\r
-"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contd v a\n"\r
-"subplot 2 2 2:title '\\\'\\_\\\' style':rotate 50 60:box:contd a '_'\n"\r
-"subplot 2 2 3:title 'several slices':rotate 50 60:box:contd a1\n";\r
-void smgl_contd(mglGraph *gr)\r
-{\r
-       mglData a,v(5),a1(30,40,3);     mgls_prepare2d(&a);     v.a[0]=-0.5;\r
-       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;\r
-       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");\r
-\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContD plot (default)");      }\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContD(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("manual levels");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContD(v,a);\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContD(a,"_");\r
-       gr->SubPlot(2,2,3);     gr->Title("several slices");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContD(a1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_contv="list v -0.5 -0.15 0 0.15 0.5\n"\r
-"subplot 2 2 0:title 'ContV plot (default)':rotate 50 60:box:contv a\n"\r
-"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contv v a\n"\r
-"subplot 2 2 2:title '\\\'\\_\\\' style':rotate 50 60:box:contv a '_'\n"\r
-"subplot 2 2 3:title 'ContV and ContF':rotate 50 60:light on:box\ncontv a:contf a:cont a 'k'\n";\r
-void smgl_contv(mglGraph *gr)\r
-{\r
-       mglData a,v(5); mgls_prepare2d(&a);     v.a[0]=-0.5;\r
-       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContV plot (default)");      }\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContV(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("manual levels");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContV(v,a);\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->ContV(a,"_");\r
-       gr->SubPlot(2,2,3);     gr->Title("ContV and ContF");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Light(true);\r
-       gr->ContV(a);   gr->ContF(a);   gr->Cont(a,"k");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_torus="subplot 2 2 0:title 'Torus plot (default)':light on:rotate 50 60:box:torus y1 y2\n"\r
-"subplot 2 2 0:title '\\\'x\\\' style':light on:rotate 50 60:box:torus y1 y2 'x'\n"\r
-"subplot 2 2 0:title '\\\'z\\\' style':light on:rotate 50 60:box:torus y1 y2 'z'\n"\r
-"subplot 2 2 0:title '\\\'\\#\\\' style':light on:rotate 50 60:box:torus y1 y2 '#'\n";\r
-void smgl_torus(mglGraph *gr)\r
-{\r
-       mglData y1,y2;  mgls_prepare1d(0,&y1,&y2);\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Torus plot (default)");      }\r
-       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'x' style"); gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"x");\r
-       gr->SubPlot(2,2,2);     gr->Title("'z' style"); gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"z");\r
-       gr->SubPlot(2,2,3);     gr->Title("'\\#' style");       gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_axial="subplot 2 2 0:title 'Axial plot (default)':light on:rotate 50 60:box:axial a\n"\r
-"subplot 2 2 0:title '\\\'x\\\' style':light on:rotate 50 60:box:axial a 'x'\n"\r
-"subplot 2 2 0:title '\\\'z\\\' style':light on:rotate 50 60:box:axial a 'z'\n"\r
-"subplot 2 2 0:title '\\\'\\#\\\' style':light on:rotate 50 60:box:axial a '#'\n";\r
-void smgl_axial(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Axial plot (default)");      }\r
-       gr->Light(true);        gr->Alpha(true);        gr->Rotate(50,60);      gr->Box();      gr->Axial(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'x' style"); gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"x");\r
-       gr->SubPlot(2,2,2);     gr->Title("'z' style"); gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"z");\r
-       gr->SubPlot(2,2,3);     gr->Title("'\\#' style");       gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_several_light="rotate 50 60:light on:light 1 0 1 0 'c'\n"\r
-"light 2 1 0 0 'y':light 3 0 -1 0 'm':box:surf a 'h'\n";\r
-void smgl_several_light(mglGraph *gr)  // several light sources\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Several light sources");\r
-       gr->Rotate(50,60);      gr->Light(true);        gr->AddLight(1,mglPoint(0,1,0),'c');\r
-       gr->AddLight(2,mglPoint(1,0,0),'y');    gr->AddLight(3,mglPoint(0,-1,0),'m');\r
-       gr->Box();      gr->Surf(a,"h");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surf3="title 'Surf3 plot':rotate 50 60:light on:alpha on:box:surf3 c";\r
-void smgl_surf3(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       if(!mini)       gr->Title("Surf3 plot");\r
-       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);\r
-       gr->Box();      gr->Surf3(c);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surf3a="title 'Surf3 plot':rotate 50 60:light on:alpha on:box:surf3a c d";\r
-void smgl_surf3a(mglGraph *gr)\r
-{\r
-       mglData c,d;    mgls_prepare3d(&c,&d);\r
-       if(!mini)       gr->Title("Surf3A plot");\r
-       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);\r
-       gr->Box();      gr->Surf3A(c,d);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surf3c="title 'Surf3 plot':rotate 50 60:light on:alpha on:box:surf3c c d";\r
-void smgl_surf3c(mglGraph *gr)\r
-{\r
-       mglData c,d;    mgls_prepare3d(&c,&d);\r
-       if(!mini)       gr->Title("Surf3C plot");\r
-       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);\r
-       gr->Box();      gr->Surf3C(c,d);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_cut="subplot 2 2 0:title 'Cut on (default)':rotate 50 60:light on:box:surf a; zrange -1 0.5\n"\r
-"subplot 2 2 1:title 'Cut off':rotate 50 60:box:surf a; zrange -1 0.5; cut off\n"\r
-"subplot 2 2 2:title 'Cut in box':rotate 50 60:box:alpha on\ncut 0 -1 -1 1 0 1.1:surf3 c\ncut 0 0 0 0 0 0\t# restore back\n"\r
-"subplot 2 2 3:title 'Cut by formula':rotate 50 60\ncut '(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)':surf3 c";\r
-void smgl_cut(mglGraph *gr)    // cutting\r
-{\r
-       mglData a,c,v(1);       mgls_prepare2d(&a);     mgls_prepare3d(&c);     v.a[0]=0.5;\r
-       gr->SubPlot(2,2,0);     gr->Title("Cut on (default)");  gr->Rotate(50,60);      gr->Light(true);\r
-       gr->Box();      gr->Surf(a,"","zrange -1 0.5");\r
-       gr->SubPlot(2,2,1);     gr->Title("Cut off");           gr->Rotate(50,60);\r
-       gr->Box();      gr->Surf(a,"","zrange -1 0.5; cut off");\r
-       gr->SubPlot(2,2,2);     gr->Title("Cut in box");        gr->Rotate(50,60);\r
-       gr->SetCutBox(mglPoint(0,-1,-1), mglPoint(1,0,1.1));\r
-       gr->Alpha(true);        gr->Box();      gr->Surf3(c);\r
-       gr->SetCutBox(mglPoint(0), mglPoint(0));        // switch it off\r
-       gr->SubPlot(2,2,3);     gr->Title("Cut by formula");    gr->Rotate(50,60);\r
-       gr->CutOff("(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)");\r
-       gr->Box();      gr->Surf3(c);   gr->CutOff(""); // switch it off\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_traj="subplot 1 1 0 '':title 'Traj plot':box:plot x y:traj x y y1 y2\n";\r
-void smgl_traj(mglGraph *gr)\r
-{\r
-       mglData x,y,y1,y2;      mgls_prepare1d(&y,&y1,&y2,&x);\r
-       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Traj plot");}\r
-       gr->Box();      gr->Plot(x,y);  gr->Traj(x,y,y1,y2);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_mesh="title 'Mesh plot':rotate 50 60:box:mesh a\n";\r
-void smgl_mesh(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Mesh plot");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Mesh(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_fall="title 'Fall plot':rotate 50 60:box:fall a\n";\r
-void smgl_fall(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Fall plot");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Fall(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surf="subplot 2 2 0:title 'Surf plot (default)':rotate 50 60:light on:box:surf a\n"\r
-"subplot 2 2 1:title '\\\'\\#\\\' style; meshnum 10':rotate 50 60:box:surf a '#'; meshnum 10\n"\r
-"subplot 2 2 2:title '\\\'|\\\' style':rotate 50 60:box:surf a '|'\n"\r
-"new x 50 40 '0.8*sin(pi*x)*sin(pi*(y+1)/2)'\nnew y 50 40 '0.8*cos(pi*x)*sin(pi*(y+1)/2)'\nnew z 50 40 '0.8*cos(pi*(y+1)/2)'\n"\r
-"subplot 2 2 3:title 'parametric form':rotate 50 60:box:surf x y z 'BbwrR'\n";\r
-void smgl_surf(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Surf plot (default)");       }\r
-       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Surf(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'\\#' style; meshnum 10");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Surf(a,"#","meshnum 10");\r
-       gr->SubPlot(2,2,2);     gr->Title("'|' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Surf(a,"|");\r
-       gr->SubPlot(2,2,3);     gr->Title("parametric form");\r
-       mglData x(50,40),y(50,40),z(50,40);\r
-       gr->Fill(x,"0.8*sin(pi*x)*sin(pi*(y+1)/2)");\r
-       gr->Fill(y,"0.8*cos(pi*x)*sin(pi*(y+1)/2)");\r
-       gr->Fill(z,"0.8*cos(pi*(y+1)/2)");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Surf(x,y,z,"BbwrR");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_parser="# NOT AVAILABLE\n";\r
-void smgl_parser(mglGraph *gr) // example of MGL parsing\r
-{\r
-       gr->Title("MGL parser sample");\r
-       double a[100];   // let a_i = sin(4*pi*x), x=0...1\r
-       for(int i=0;i<100;i++)a[i]=sin(4*M_PI*i/99);\r
-       mglParse *parser = new mglParse;\r
-       mglData *d = parser->AddVar("dat");\r
-       d->Set(a,100); // set data to variable\r
-       parser->Execute(gr, "plot dat; xrange 0 1\nbox\naxis");\r
-       // you may break script at any line do something\r
-       // and continue after that\r
-       parser->Execute(gr, "xlabel 'x'\nylabel 'y'\nbox");\r
-       // also you may use cycles or conditions in script\r
-       parser->Execute(gr, "for $0 -1 1 0.1\nline 0 0 -1 $0 'r'\nnext");\r
-       delete parser;\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_belt="title 'Fall plot':rotate 50 60:box:fall a\n";\r
-void smgl_belt(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Belt plot");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Belt(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_dens="new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'\n"\r
-"subplot 2 2 0 '':title 'Dens plot (default)':box:dens a\n"\r
-"subplot 2 2 1:title '3d variant':rotate 50 60:box:dens a\n"\r
-"subplot 2 2 2 '':title '\\\'\\#\\\' style; meshnum 10':box:dens a '#'; meshnum 10\n"\r
-"subplot 2 2 3:title 'several slices':rotate 50 60:box:dens a1\n";\r
-void smgl_dens(mglGraph *gr)\r
-{\r
-       mglData a,a1(30,40,3);  mgls_prepare2d(&a);\r
-       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");\r
-       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Dens plot (default)");}\r
-       gr->Box();      gr->Dens(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("3d variant");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Dens(a);\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style; meshnum 10");\r
-       gr->Box();      gr->Dens(a,"#","meshnum 10");\r
-       gr->SubPlot(2,2,3);     gr->Title("several slices");\r
-       gr->Rotate(50,60);              gr->Box();      gr->Dens(a1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surfc="title 'SurfC plot':rotate 50 60:light on:box:surfc a b\n";\r
-void smgl_surfc(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2d(&a,&b);\r
-       if(!mini)       gr->Title("SurfC plot");        gr->Rotate(50,60);\r
-       gr->Light(true);        gr->Box();      gr->SurfC(a,b);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_surfa="title 'SurfA plot':rotate 50 60:light on:box:surfa a b\n";\r
-void smgl_surfa(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2d(&a,&b);\r
-       if(!mini)       gr->Title("SurfA plot");        gr->Rotate(50,60);\r
-       gr->Alpha(true);        gr->Light(true);        gr->Box();      gr->SurfA(a,b);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_tile="title 'Tile plot':rotate 50 60:box:tile a\n";\r
-void smgl_tile(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       gr->Title("Tile plot");\r
-       gr->Rotate(40,60);      gr->Box();      gr->Tile(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_tiles="title 'Tiles plot':box:tiles a b\n";\r
-void smgl_tiles(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2d(&a,&b);\r
-       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("TileS plot");}\r
-       gr->Box();      gr->TileS(a,b);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_boxs="subplot 2 2 0 '':title 'Boxs plot (default)':light on:box:boxs a\n"\r
-"subplot 2 2 1:title '\\\'\\@\\\' style':rotate 50 60:box:boxs a '@'\n"\r
-"subplot 2 2 2:title '\\\'\\#\\\' style':box:boxs a '#'\n"\r
-"subplot 2 2 3:title 'compare with Tile':rotate 50 60:box:tile a\n";\r
-void smgl_boxs(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->SetOrigin(0,0,0);   gr->Light(true);\r
-       if(!mini)       {gr->SubPlot(2,2,0);    gr->Title("Boxs plot (default)");}\r
-       gr->Rotate(40,60);      gr->Box();      gr->Boxs(a);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("'\\@' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Boxs(a,"@");\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\#' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Boxs(a,"#");\r
-       gr->SubPlot(2,2,3);     gr->Title("compare with Tile");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Tile(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *fit="new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'\nnew in 100 '0.3+sin(2*pi*x)'\n"\r
-"list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini\n"\r
-"title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '\n"\r
-"plot res 'r':plot in 'b'\ntext -0.9 -1.3 'fitted:' 'r:L'\n"\r
-"putsfit 0 -1.8 'y = ' 'r':text 0 2.2 'initial: y = 0.3+sin(2\\pi x)' 'b'\n";\r
-void smgl_fit(mglGraph *gr)    // nonlinear fitting\r
-{\r
-       mglData rnd(100), in(100), res;\r
-       gr->Fill(rnd,"0.4*rnd+0.1+sin(2*pi*x)");\r
-       gr->Fill(in,"0.3+sin(2*pi*x)");\r
-       double ini[3] = {1,1,3};\r
-       mglData Ini(3,ini);\r
-       res = gr->Fit(rnd, "a+b*sin(c*x)", "abc", Ini);\r
-       if(!mini)       gr->Title("Fitting sample");\r
-       gr->SetRange('y',-2,2); gr->Box();      gr->Plot(rnd, ". ");\r
-       gr->Axis();             gr->Plot(res, "r");     gr->Plot(in, "b");\r
-       gr->Puts(mglPoint(-0.9, -1.3), "fitted:", "r:L");\r
-       gr->PutsFit(mglPoint(0, -1.8), "y = ", "r");\r
-       gr->Puts(mglPoint(0, 2.2), "initial: y = 0.3+sin(2\\pi x)", "b");\r
-//     gr->SetRanges(mglPoint(-1,-1,-1),mglPoint(1,1,1));      gr->SetOrigin(0,0,0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_vect="subplot 3 2 0 '':title 'Vect plot (default)':box:vect a b\n"\r
-"subplot 3 2 1 '':title '\\\'.\\\' style; \\\'=\\\' style':box:vect a b '.='\n"\r
-"subplot 3 2 2 '':title '\\\'f\\\' style':box:vect a b 'f'\n"\r
-"subplot 3 2 3 '':title '\\\'>\\\' style':box:vect a b '>'\n"\r
-"subplot 3 2 4 '':title '\\\'<\\\' style':box:vect a b '<'\n"\r
-"subplot 3 2 5:title '3d variant':rotate 50 60:box:vect ex ey ez\n";\r
-void smgl_vect(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2v(&a,&b);\r
-       if(!mini)       {gr->SubPlot(3,2,0,""); gr->Title("Vect plot (default)");}\r
-       gr->Box();      gr->Vect(a,b);\r
-       if(mini)        return;\r
-       gr->SubPlot(3,2,1,"");  gr->Title("'.' style; '=' style");      gr->Box();      gr->Vect(a,b,"=.");\r
-       gr->SubPlot(3,2,2,"");  gr->Title("'f' style"); gr->Box();      gr->Vect(a,b,"f");\r
-       gr->SubPlot(3,2,3,"");  gr->Title("'>' style"); gr->Box();      gr->Vect(a,b,">");\r
-       gr->SubPlot(3,2,4,"");  gr->Title("'<' style"); gr->Box();      gr->Vect(a,b,"<");\r
-       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);\r
-       gr->SubPlot(3,2,5);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Vect(ex,ey,ez);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_flow="subplot 2 2 0 '':title 'Flow plot (default)':box:flow a b\n"\r
-"subplot 2 2 1 '':title '\\\'v\\\' style':box:flow a b 'v'\n"\r
-"subplot 2 2 2 '':title 'from edges only':box:flow a b '#'\n"\r
-"subplot 2 2 3:title '3d variant':rotate 50 60:box:flow ex ey ez\n";\r
-void smgl_flow(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2v(&a,&b);\r
-       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Flow plot (default)");}\r
-       gr->Box();      gr->Flow(a,b);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("'v' style"); gr->Box();      gr->Flow(a,b,"v");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Flow(a,b,"#");\r
-       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Flow(ex,ey,ez);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_pipe="subplot 2 2 0 '':title 'Pipe plot (default)':light on:box:pipe a b\n"\r
-"subplot 2 2 1 '':title '\\\'i\\\' style':box:pipe a b 'i'\n"\r
-"subplot 2 2 2 '':title 'from edges only':box:pipe a b '#'\n"\r
-"subplot 2 2 3:title '3d variant':rotate 50 60:box:pipe ex ey ez '' 0.1\n";\r
-void smgl_pipe(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2v(&a,&b);\r
-       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Pipe plot (default)");}\r
-       gr->Light(true);        gr->Box();      gr->Pipe(a,b);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1,"");  gr->Title("'i' style"); gr->Box();      gr->Pipe(a,b,"i");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Pipe(a,b,"#");\r
-       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);\r
-       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);\r
-       gr->Box();      gr->Pipe(ex,ey,ez,"",0.1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_dew="subplot 1 1 0 '':title 'Dew plot':light on:box:dew a b\n";\r
-void smgl_dew(mglGraph *gr)\r
-{\r
-       mglData a,b;    mgls_prepare2v(&a,&b);\r
-       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Dew plot");}\r
-       gr->Box();      gr->Light(true);        gr->Dew(a,b);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_grad="subplot 1 1 0 '':title 'Grad plot':box:grad a:dens a '{u8}w{q8}'\n";\r
-void smgl_grad(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Grad plot");}\r
-       gr->Box();      gr->Grad(a);    gr->Dens(a,"{u8}w{q8}");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_cones="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'"\r
-"title 'Cones plot':rotate 50 60:light on:origin 0 0 0:box:cones ys\n";\r
-void smgl_cones(mglGraph *gr)\r
-{\r
-       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");\r
-       gr->Light(true);        gr->SetOrigin(0,0,0);\r
-       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cones plot");        }\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys);\r
-       if(mini)        return;\r
-       gr->SubPlot(2,2,1);     gr->Title("2 colors");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"cbgGyr");\r
-       gr->SubPlot(2,2,2);     gr->Title("'\\#' style");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"#");\r
-       gr->SubPlot(2,2,3);     gr->Title("'a' style");\r
-       gr->SetRange('z',-2,2); // increase range since summation can exceed [-1,1]\r
-       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"a");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_aspect="subplot 2 2 0:box:text -1 1.1 'Just box' ':L'\ninplot 0.2 0.5 0.7 1:box:text 0 1.2 'InPlot example'\n"\r
-"subplot 2 2 1:title 'Rotate only':rotate 50 60:box\nsubplot 2 2 2:title 'Rotate and Aspect':rotate 50 60:aspect 1 1 2:box\n"\r
-"subplot 2 2 3:title 'Aspect in other direction':rotate 50 60:aspect 1 2 2:box\n";\r
-void smgl_aspect(mglGraph *gr) // transformation\r
-{\r
-       gr->SubPlot(2,2,0);     gr->Box();\r
-       gr->Puts(mglPoint(-1,1.1),"Just box",":L");\r
-       gr->InPlot(0.2,0.5,0.7,1,false);        gr->Box();\r
-       gr->Puts(mglPoint(0,1.2),"InPlot example");\r
-       gr->SubPlot(2,2,1);     gr->Title("Rotate only");\r
-       gr->Rotate(50,60);      gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Title("Rotate and Aspect");\r
-       gr->Rotate(50,60);      gr->Aspect(1,1,2);      gr->Box();\r
-       gr->SubPlot(2,2,3);     gr->Title("Aspect in other direction");\r
-       gr->Rotate(50,60);      gr->Aspect(1,2,2);      gr->Box();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_inplot="subplot 3 2 0:title 'StickPlot'\nstickplot 3 0 20 30:box 'r':text 0 0 '0' 'r'\n"\r
-"stickplot 3 1 20 30:box 'g':text 0 0 '1' 'g'\nstickplot 3 2 20 30:box 'b':text 0 0 '2' 'b'\n"\r
-"subplot 3 2 3 '':title 'ColumnPlot'\ncolumnplot 3 0:box 'r':text 0 0 '0' 'r'\n"\r
-"columnplot 3 1:box 'g':text 0 0 '1' 'g'\ncolumnplot 3 2:box 'b':text 0 0 '2' 'b'\n"\r
-"subplot 3 2 4 '':title 'GridPlot'\ngridplot 2 2 0:box 'r':text 0 0 '0' 'r'\n"\r
-"gridplot 2 2 1:box 'g':text 0 0 '1' 'g'\ngridplot 2 2 2:box 'b':text 0 0 '2' 'b'\n"\r
-"gridplot 2 2 3:box 'm':text 0 0 '3' 'm'\nsubplot 3 2 5 '':title 'InPlot':box\n"\r
-"inplot 0.4 1 0.6 1 on:box 'r'\nmultiplot 3 2 1 2 1 '':title 'MultiPlot':box\n";\r
-void smgl_inplot(mglGraph *gr)\r
-{\r
-       gr->SubPlot(3,2,0);     gr->Title("StickPlot");\r
-       gr->StickPlot(3, 0, 20, 30);    gr->Box("r");   gr->Puts(mglPoint(0),"0","r");\r
-       gr->StickPlot(3, 1, 20, 30);    gr->Box("g");   gr->Puts(mglPoint(0),"1","g");\r
-       gr->StickPlot(3, 2, 20, 30);    gr->Box("b");   gr->Puts(mglPoint(0),"2","b");\r
-       gr->SubPlot(3,2,3,"");  gr->Title("ColumnPlot");\r
-       gr->ColumnPlot(3, 0);   gr->Box("r");   gr->Puts(mglPoint(0),"0","r");\r
-       gr->ColumnPlot(3, 1);   gr->Box("g");   gr->Puts(mglPoint(0),"1","g");\r
-       gr->ColumnPlot(3, 2);   gr->Box("b");   gr->Puts(mglPoint(0),"2","b");\r
-       gr->SubPlot(3,2,4,"");  gr->Title("GridPlot");\r
-       gr->GridPlot(2, 2, 0);  gr->Box("r");   gr->Puts(mglPoint(0),"0","r");\r
-       gr->GridPlot(2, 2, 1);  gr->Box("g");   gr->Puts(mglPoint(0),"1","g");\r
-       gr->GridPlot(2, 2, 2);  gr->Box("b");   gr->Puts(mglPoint(0),"2","b");\r
-       gr->GridPlot(2, 2, 3);  gr->Box("m");   gr->Puts(mglPoint(0),"3","m");\r
-       gr->SubPlot(3,2,5,"");  gr->Title("InPlot");    gr->Box();\r
-       gr->InPlot(0.4, 1, 0.6, 1, true);       gr->Box("r");\r
-       gr->MultiPlot(3,2,1, 2, 1,"");  gr->Title("MultiPlot"); gr->Box();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_combined="new v 10:fill v -0.5 1:copy d sqrt(a^2+b^2)\n"\r
-"subplot 2 2 0:title 'Surf + Cont':rotate 50 60:light on:box:surf a:cont a 'y'\n"\r
-"subplot 2 2 1 '':title 'Flow + Dens':box:flow a b 'br':dens d\n"\r
-"subplot 2 2 2:title 'Mesh + Cont':rotate 50 60:box:mesh a:cont a '_'\n"\r
-"subplot 2 2 3:title 'Surf3 + ContF3':rotate 50 60:light on\n"\r
-"box:contf3 v c 'z' 0:contf3 v c 'x':contf3 v c\ncut 0 -1 -1 1 0 1.1\ncontf3 v c 'z' c.nz-1:surf3 -0.5 c\n";\r
-void smgl_combined(mglGraph *gr)       // flow threads and density plot\r
-{\r
-       mglData a,b,d;  mgls_prepare2v(&a,&b);  d = a;\r
-       for(int i=0;i<a.nx*a.ny;i++)    d.a[i] = hypot(a.a[i],b.a[i]);\r
-       mglData c;      mgls_prepare3d(&c);\r
-       mglData v(10);  v.Fill(-0.5,1);\r
-       gr->SubPlot(2,2,1,"");  gr->Title("Flow + Dens");\r
-       gr->Flow(a,b,"br");     gr->Dens(d,"BbcyrR");   gr->Box();\r
-       gr->SubPlot(2,2,0);     gr->Title("Surf + Cont");       gr->Rotate(50,60);\r
-       gr->Light(true);        gr->Surf(a);    gr->Cont(a,"y");        gr->Box();\r
-       gr->SubPlot(2,2,2);     gr->Title("Mesh + Cont");       gr->Rotate(50,60);\r
-       gr->Box();      gr->Mesh(a);    gr->Cont(a,"_");\r
-       gr->SubPlot(2,2,3);     gr->Title("Surf3 + ContF3");gr->Rotate(50,60);\r
-       gr->Box();      gr->ContF3(v,c,"z",0);  gr->ContF3(v,c,"x");    gr->ContF3(v,c);\r
-       gr->SetCutBox(mglPoint(0,-1,-1), mglPoint(1,0,1.1));\r
-       gr->ContF3(v,c,"z",c.nz-1);     gr->Surf3(-0.5,c);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_axis="subplot 2 2 0:title 'Axis origin, Grid':origin 0 0:axis:grid:fplot 'x^3'\n"\r
-"subplot 2 2 1:title '2 axis':ranges -1 1 -1 1:origin -1 -1:axis:ylabel 'axis_1':fplot 'sin(pi*x)'\n"\r
-"ranges 0 1 0 1:origin 1 1:axis:ylabel 'axis_2':fplot 'cos(pi*x)'\n"\r
-"subplot 2 2 3:title 'More axis':origin nan nan:xrange -1 1:axis:xlabel 'x':ylabel 'y':fplot 'x^2' 'k'\n"\r
-"yrange -1 1:origin -1.3 -1:axis 'y' 'r':ylabel '#r{y_2}' 0.2:fplot 'x^3' 'r'\n\n"\r
-"subplot 2 2 2:title '4 segments, inverted axis':origin 0 0:\n"\r
-"inplot 0.5 1 0.5 1:ranges 0 10 0 2:axis\nfplot 'sqrt(x/2)':xlabel 'W' 1:ylabel 'U' 1\n"\r
-"inplot 0 0.5 0.5 1:ranges 1 0 0 2:axis 'x':fplot 'sqrt(x)+x^3':xlabel '\\tau' 1\n"\r
-"inplot 0.5 1 0 0.5:ranges 0 10 4 0:axis 'y':fplot 'x/4':ylabel 'L' -1\n"\r
-"inplot 0 0.5 0 0.5:ranges 1 0 4 0:fplot '4*x^2'\n";\r
-void smgl_axis(mglGraph *gr)\r
-{\r
-       gr->SubPlot(2,2,0);     gr->Title("Axis origin, Grid"); gr->SetOrigin(0,0);\r
-       gr->Axis();     gr->Grid();     gr->FPlot("x^3");\r
-\r
-       gr->SubPlot(2,2,1);     gr->Title("2 axis");\r
-       gr->SetRanges(-1,1,-1,1);       gr->SetOrigin(-1,-1,-1);        // first axis\r
-       gr->Axis();     gr->Label('y',"axis 1",0);      gr->FPlot("sin(pi*x)");\r
-       gr->SetRanges(0,1,0,1);         gr->SetOrigin(1,1,1);           // second axis\r
-       gr->Axis();     gr->Label('y',"axis 2",0);      gr->FPlot("cos(pi*x)");\r
-\r
-       gr->SubPlot(2,2,3);     gr->Title("More axis"); gr->SetOrigin(NAN,NAN); gr->SetRange('x',-1,1);\r
-       gr->Axis();     gr->Label('x',"x",0);   gr->Label('y',"y_1",0); gr->FPlot("x^2","k");\r
-       gr->SetRanges(-1,1,-1,1);       gr->SetOrigin(-1.3,-1); // second axis\r
-       gr->Axis("y","r");      gr->Label('y',"#r{y_2}",0.2);   gr->FPlot("x^3","r");\r
-\r
-       gr->SubPlot(2,2,2);     gr->Title("4 segments, inverted axis");         gr->SetOrigin(0,0);\r
-       gr->InPlot(0.5,1,0.5,1);        gr->SetRanges(0,10,0,2);        gr->Axis();\r
-       gr->FPlot("sqrt(x/2)");         gr->Label('x',"W",1);   gr->Label('y',"U",1);\r
-       gr->InPlot(0,0.5,0.5,1);        gr->SetRanges(1,0,0,2); gr->Axis("x");\r
-       gr->FPlot("sqrt(x)+x^3");       gr->Label('x',"\\tau",-1);\r
-       gr->InPlot(0.5,1,0,0.5);        gr->SetRanges(0,10,4,0);        gr->Axis("y");\r
-       gr->FPlot("x/4");       gr->Label('y',"L",-1);\r
-       gr->InPlot(0,0.5,0,0.5);        gr->SetRanges(1,0,4,0); gr->FPlot("4*x^2");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_ticks="subplot 3 2 0:title 'Usual axis':axis\n"\r
-"subplot 3 2 1:title 'Too big/small range':ranges -1000 1000 0 0.001:axis\n"\r
-"subplot 3 2 3:title 'Too narrow range':ranges 100 100.1 10 10.01:axis\n"\r
-"subplot 3 2 4:title 'Disable ticks tuning':tuneticks off:axis\n"\r
-"subplot 3 2 2:title 'Manual ticks':ranges -pi pi 0 2:\nxtick -pi '\\pi' -pi/2 '-\\pi/2' 0 '0' 0.886 'x^*' pi/2 '\\pi/2' pi 'pi':axis\n"\r
-"# or you can use: list v -pi -pi/2 0 0.886 pi/2 pi:xtick v '-\\pi\n-\\pi/2\n0\nx^*\n\\pi/2\n\\pi':axis\n"\r
-"subplot 3 2 5:title 'Time ticks':xrange 0 3e5:ticktime 'x':axis\n";\r
-void smgl_ticks(mglGraph *gr)\r
-{\r
-       gr->SubPlot(3,2,0);     gr->Title("Usual axis");        gr->Axis();\r
-       gr->SubPlot(3,2,1);     gr->Title("Too big/small range");\r
-       gr->SetRanges(-1000,1000,0,0.001);      gr->Axis();\r
-       gr->SubPlot(3,2,3);     gr->Title("Too narrow range");\r
-       gr->SetRanges(100,100.1,10,10.01);      gr->Axis();\r
-       gr->SubPlot(3,2,4);     gr->Title("Disable ticks tuning");\r
-       gr->SetTuneTicks(0);    gr->Axis();\r
-\r
-       gr->SubPlot(3,2,2);     gr->Title("Manual ticks");      gr->SetRanges(-M_PI,M_PI, 0, 2);\r
-       double val[]={-M_PI, -M_PI/2, 0, 0.886, M_PI/2, M_PI};\r
-       gr->SetTicksVal('x', mglData(6,val), "-\\pi\n-\\pi/2\n0\nx^*\n\\pi/2\n\\pi");\r
-       gr->Axis();     gr->Grid();     gr->FPlot("2*cos(x^2)^2", "r2");\r
-\r
-       gr->SubPlot(3,2,5);     gr->Title("Time ticks");        gr->SetRange('x',0,3e5);\r
-       gr->SetTicksTime('x',0);        gr->Axis();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_box="subplot 2 2 0:title 'Box (default)':rotate 50 60:box\n"\r
-"subplot 2 2 0:title 'colored':rotate 50 60:box 'r'\n"\r
-"subplot 2 2 0:title 'with faces':rotate 50 60:box '@'\n"\r
-"subplot 2 2 0:title 'both':rotate 50 60:box '@cm'\n";\r
-void smgl_box(mglGraph *gr)\r
-{\r
-       gr->SubPlot(2,2,0);     gr->Title("Box (default)");     gr->Rotate(50,60);      gr->Box();\r
-       gr->SubPlot(2,2,1);     gr->Title("colored");           gr->Rotate(50,60);      gr->Box("r");\r
-       gr->SubPlot(2,2,2);     gr->Title("with faces");        gr->Rotate(50,60);      gr->Box("@");\r
-       gr->SubPlot(2,2,3);     gr->Title("both");      gr->Rotate(50,60);      gr->Box("@cm");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_loglog="subplot 2 2 0 '<_':title 'Semi-log axis':ranges 0.01 100 -1 1:axis 'lg(x)' ''\n"\r
-"axis:fplot 'sin(1/x)':xlabel 'x':ylabel 'y = sin 1/x'\n"\r
-"subplot 2 2 1 '<_':title 'Log-log axis':ranges 0.01 100 0.1 100:axis 'lg(x)' 'lg(y)'\n"\r
-"axis:grid 'xy' 'g':fplot 'sqrt(1+x^2)':xlabel 'x':ylabel 'y = \\sqrt{1+x^2}'\n"\r
-"subplot 2 2 2 '<_':title 'Minus-log axis':ranges -100 -0.01 -100 -0.1:axis '-lg(-x)' '-lg(-y)'\n"\r
-"axis:fplot '-sqrt(1+x^2)':xlabel 'x':ylabel 'y = -\\sqrt{1+x^2}'\n"\r
-"subplot 2 2 3 '<_':title 'Log-ticks':ranges 0.01 100 0 100:axis 'sqrt(x)' ''\n"\r
-"axis:fplot 'x':xlabel 'x':ylabel 'y = x'\n";\r
-void smgl_loglog(mglGraph *gr) // log-log axis\r
-{\r
-       gr->SubPlot(2,2,0,"<_");        gr->Title("Semi-log axis");     gr->SetRanges(0.01,100,-1,1);   gr->SetFunc("lg(x)","");\r
-       gr->Axis();     gr->Grid("xy","g");     gr->FPlot("sin(1/x)");  gr->Label('x',"x",0); gr->Label('y', "y = sin 1/x",0);\r
-       gr->SubPlot(2,2,1,"<_");        gr->Title("Log-log axis");      gr->SetRanges(0.01,100,0.1,100);        gr->SetFunc("lg(x)","lg(y)");\r
-       gr->Axis();     gr->FPlot("sqrt(1+x^2)");       gr->Label('x',"x",0); gr->Label('y', "y = \\sqrt{1+x^2}",0);\r
-       gr->SubPlot(2,2,2,"<_");        gr->Title("Minus-log axis");    gr->SetRanges(-100,-0.01,-100,-0.1);    gr->SetFunc("-lg(-x)","-lg(-y)");\r
-       gr->Axis();     gr->FPlot("-sqrt(1+x^2)");      gr->Label('x',"x",0); gr->Label('y', "y = -\\sqrt{1+x^2}",0);\r
-       gr->SubPlot(2,2,3,"<_");        gr->Title("Log-ticks"); gr->SetRanges(0.1,100,0,100);   gr->SetFunc("sqrt(x)","");\r
-       gr->Axis();     gr->FPlot("x"); gr->Label('x',"x",1); gr->Label('y', "y = x",0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_venn="list x -0.3 0 0.3:list y 0.3 -0.3 0.3:list e 0.7 0.7 0.7\n"\r
-"subplot 1 1 0 '':title 'Venn-like diagram':alpha on:error x y e e '!rgb@#o'";\r
-void smgl_venn(mglGraph *gr)\r
-{\r
-       double xx[3]={-0.3,0,0.3}, yy[3]={0.3,-0.3,0.3}, ee[3]={0.7,0.7,0.7};\r
-       mglData x(3,xx), y(3,yy), e(3,ee);\r
-       gr->SubPlot(1,1,0);     gr->Title("Venn-like diagram"); gr->Alpha(true);        gr->Error(x,y,e,e,"!rgb@#o");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_stereo="light on subplot 2 1 0:rotate 50 60+3:box:surf a\nsubplot 2 1 1:rotate 50 60-3:box:surf a\n";\r
-void smgl_stereo(mglGraph *gr)\r
-{\r
-       mglData a;      mgls_prepare2d(&a);\r
-       gr->Light(true);\r
-       gr->SubPlot(2,1,0);     gr->Rotate(50,60+1);\r
-       gr->Box();      gr->Surf(a);\r
-       gr->SubPlot(2,1,1);     gr->Rotate(50,60-1);\r
-       gr->Box();      gr->Surf(a);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_hist="new x 10000 '2*rnd-1':new y 10000 '2*rnd-1':copy z x 'exp(-6*(u^2+v^2))' y\n"\r
-"hist xx x z:norm xx 0 1:hist yy y z:norm yy 0 1\nmultiplot 3 3 3 2 2 '':ranges -1 1 -1 1 0 1:box:dots x y z 'wyrRk'\n"\r
-"multiplot 3 3 0 2 1 '':ranges -1 1 0 1:box:bars xx\nmultiplot 3 3 5 1 2 '':ranges 0 1 -1 1:box:barh yy\n"\r
-"subplot 3 3 2:text 0 0 'Hist and\\nMultiPlot\\nsample' 'a' -6\n";\r
-void smgl_hist(mglGraph *gr)\r
-{\r
-       mglData x(10000), y(10000), z(10000);   gr->Fill(x,"2*rnd-1");  gr->Fill(y,"2*rnd-1");  gr->Fill(z,"exp(-6*(v^2+w^2))",x,y);\r
-       mglData xx=gr->Hist(x,z), yy=gr->Hist(y,z);     xx.Norm(0,1);   yy.Norm(0,1);\r
-       gr->MultiPlot(3,3,3,2,2,"");    gr->SetRanges(-1,1,-1,1,0,1);   gr->Box();      gr->Dots(x,y,z,"wyrRk");\r
-       gr->MultiPlot(3,3,0,2,1,"");    gr->SetRanges(-1,1,0,1);        gr->Box();      gr->Bars(xx);\r
-       gr->MultiPlot(3,3,5,1,2,"");    gr->SetRanges(0,1,-1,1);        gr->Box();      gr->Barh(yy);\r
-       gr->SubPlot(3,3,2);             gr->Puts(mglPoint(0.5,0.5),"Hist and\nMultiPlot\nsample","a",-3);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_primitives="";        // TODO add later\r
-void smgl_primitives(mglGraph *gr)     // flag #\r
-{\r
-       gr->SubPlot(2,2,0,"");  gr->Title("Line, Curve, Rhomb, Ellipse");\r
-       gr->Line(mglPoint(-1,-1),mglPoint(-0.5,1),"qAI");\r
-       gr->Curve(mglPoint(-0.6,-1),mglPoint(1,1),mglPoint(0,1),mglPoint(1,1),"rA");\r
-       gr->Rhomb(mglPoint(0,0.4),mglPoint(1,0.9),0.2,"b#");\r
-       gr->Rhomb(mglPoint(0,0),mglPoint(1,0.4),0.2,"cg@");\r
-       gr->Ellipse(mglPoint(0,-0.5),mglPoint(1,-0.1),0.2,"u#");\r
-       gr->Ellipse(mglPoint(0,-1),mglPoint(1,-0.6),0.2,"m@");\r
-       gr->Mark(mglPoint(0,-0.5),"*"); gr->Mark(mglPoint(1,-0.1),"*");\r
-\r
-       gr->Light(true);\r
-       gr->SubPlot(2,2,1);     gr->Title("Face[xyz]"); gr->Rotate(50,60);      gr->Box();\r
-       gr->FaceX(mglPoint(1,0,-1),1,1,"r");\r
-       gr->FaceY(mglPoint(-1,-1,-1),1,1,"g");\r
-       gr->FaceZ(mglPoint(1,-1,-1),-1,1,"b");\r
-       gr->Face(mglPoint(-1,-1,1),mglPoint(-1,1,1),mglPoint(1,-1,0),mglPoint(1,1,1),"m");\r
-\r
-       gr->SubPlot(2,2,3,"");  gr->Title("Cone");\r
-       gr->Cone(mglPoint(-0.7,-0.3),mglPoint(-0.7,0.7,0.5),0.2,0.1,"b");\r
-       gr->Puts(mglPoint(-0.7,-0.7),"no edges\n(default)");\r
-       gr->Cone(mglPoint(0,-0.3),mglPoint(0,0.7,0.5),0.2,0.1,"g@");\r
-       gr->Puts(mglPoint(0,-0.7),"with edges\n('\\@' style)");\r
-       gr->Cone(mglPoint(0.7,-0.3),mglPoint(0.7,0.7,0.5),0.2,0,"ry");\r
-       gr->Puts(mglPoint(0.7,-0.7),"'arrow' with\ngradient");\r
-\r
-       gr->SubPlot(2,2,2,"");  gr->Title("Sphere and Drop");\r
-       gr->Alpha(false);\r
-       gr->Puts(mglPoint(-0.9,-0.7),"sh=0");\r
-       gr->Drop(mglPoint(-0.9,0),mglPoint(0,1),0.5,"r",0);\r
-       gr->Puts(mglPoint(-0.3,-0.7),"sh=0.33");\r
-       gr->Drop(mglPoint(-0.3,0),mglPoint(0,1),0.5,"r",0.33);\r
-       gr->Puts(mglPoint(0.3,-0.7),"sh=0.67");\r
-       gr->Drop(mglPoint(0.3,0),mglPoint(0,1),0.5,"r",0.67);\r
-       gr->Puts(mglPoint(0.9,-0.7),"sh=1");\r
-       gr->Drop(mglPoint(0.9,0),mglPoint(0,1),0.5,"r",1);\r
-       gr->Ball(mglPoint(-0.9,0,1),'k');\r
-       gr->Ball(mglPoint(-0.3,0,1),'k');\r
-       gr->Ball(mglPoint(0.3,0,1),'k');\r
-       gr->Ball(mglPoint(0.9,0,1),'k');\r
-       gr->Line(mglPoint(-0.9,0,1),mglPoint(0.9,0,1),"b");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_label="new ys 10 '0.2*rnd-0.8*sin(pi*x)'\n"\r
-"subplot 1 1 0 '':title 'Label plot':box:plot ys ' *':label ys 'y=%y'\n";\r
-void smgl_label(mglGraph *gr)\r
-{\r
-       mglData ys(10); ys.Modify("0.8*sin(pi*2*x)+0.2*rnd");\r
-       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Label plot");        }\r
-       gr->Box();      gr->Plot(ys," *");      gr->Label(ys,"y=%y");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_colorbar="subplot 2 2 0:title 'Colorbar out of box':box\n"\r
-"colorbar '<':colorbar '>':colorbar '_':colorbar '^'\n"\r
-"subplot 2 2 0:title 'Colorbar near box':box\n"\r
-"colorbar '<I':colorbar '>I':colorbar '_I':colorbar '^I'\n"\r
-"subplot 2 2 0:title 'manual colors':box:contd v a\n"\r
-"colorbar v '<':colorbar v '>':colorbar v '_':colorbar v '^'\n"\r
-"subplot 2 2 0:title 'log-scale'\n"\r
-"colorbar '>' 0.5 0:text 0 1.2 'Normal scale':colorbar '>':text 1.3 1.2 'Log scale'\n";\r
-void smgl_colorbar(mglGraph *gr)\r
-{\r
-       gr->SubPlot(2,2,0);     gr->Title("Colorbar out of box");       gr->Box();\r
-       gr->Colorbar("<");      gr->Colorbar(">");      gr->Colorbar("_");      gr->Colorbar("^");\r
-       gr->SubPlot(2,2,1);     gr->Title("Colorbar near box");         gr->Box();\r
-       gr->Colorbar("<I");     gr->Colorbar(">I");     gr->Colorbar("_I");     gr->Colorbar("^I");\r
-       gr->SubPlot(2,2,2);     gr->Title("manual colors");\r
-       mglData a,v;    mgls_prepare2d(&a,0,&v);\r
-       gr->Box();      gr->ContD(v,a);\r
-       gr->Colorbar(v,"<");    gr->Colorbar(v,">");    gr->Colorbar(v,"_");    gr->Colorbar(v,"^");\r
-       gr->SubPlot(2,2,3);     gr->Title("log-scale");\r
-       gr->SetRange('c',0.01,1e3);\r
-       gr->Colorbar(">",0.5,0);        gr->Puts(mglPoint(0,1.2),"Normal scale");\r
-       gr->SetFunc("","","","lg(c)");\r
-       gr->Colorbar(">");              gr->Puts(mglPoint(1.3,1.2),"Log scale");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_legend="addlegend 'sin(\\pi {x^2})' 'b':addlegend 'sin(\\pi x)' 'g*'\n"\r
-"addlegend 'sin(\\pi \\sqrt{x})' 'rd':addlegend 'jsut text' ' ':addlegend 'no indent for this' ''\n"\r
-"subplot 2 2 0 '':title 'Legend (default)':box:legend\n"\r
-"legend 3 'A#':text 0.75 0.65 'Absolute position' 'A'\n"\r
-"subplot 2 2 2 '':title 'coloring':box:legend 0 'r#':legend 1 'Wb#':legend 2 'ygr#'\n"\r
-"subplot 2 2 3 '':title 'manual position':box:legend 0.5 0.5\n";\r
-void smgl_legend(mglGraph *gr)\r
-{\r
-       gr->AddLegend("sin(\\pi {x^2})","b");\r
-       gr->AddLegend("sin(\\pi x)","g*");\r
-       gr->AddLegend("sin(\\pi \\sqrt{x})","rd");\r
-       gr->AddLegend("just text"," ");\r
-       gr->AddLegend("no indent for this","");\r
-       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Legend (default)");}\r
-       gr->Box();      gr->Legend();\r
-       if(mini)        return;\r
-       gr->Legend(3,"A#");\r
-       gr->Puts(mglPoint(0.75,0.65),"Absolute position","A");\r
-       gr->SubPlot(2,2,2,"");  gr->Title("coloring");  gr->Box();\r
-       gr->Legend(0,"r#");     gr->Legend(1,"Wb#");    gr->Legend(2,"ygr#");\r
-       gr->SubPlot(2,2,3,"");  gr->Title("manual position");   gr->Box();      gr->Legend(0.5,0.5);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_data_diff="";         // TODO add later\r
-void smgl_dat_diff(mglGraph *gr)       // differentiate\r
-{\r
-       gr->SetRanges(0,1,0,1,0,1);\r
-       mglData a(30,40);       a.Modify("x*y");\r
-       gr->SubPlot(2,2,0);     gr->Rotate(60,40);\r
-       gr->Surf(a);            gr->Box();\r
-       gr->Puts(mglPoint(0.7,1,1.2),"a(x,y)","",-2);\r
-       gr->SubPlot(2,2,1);     gr->Rotate(60,40);\r
-       a.Diff("x");            gr->Surf(a);    gr->Box();\r
-       gr->Puts(mglPoint(0.7,1,1.2),"da/dx","",-2);\r
-       gr->SubPlot(2,2,2);     gr->Rotate(60,40);\r
-       a.Integral("xy");       gr->Surf(a);    gr->Box();\r
-       gr->Puts(mglPoint(0.7,1,1.2),"\\int da/dx dxdy","",-2);\r
-       gr->SubPlot(2,2,3);     gr->Rotate(60,40);\r
-       a.Diff2("y");   gr->Surf(a);    gr->Box();\r
-       gr->Puts(mglPoint(0.7,1,1.2),"\\int {d^2}a/dxdy dx","",-2);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_data_extra="";                // TODO add later\r
-void smgl_dat_extra(mglGraph *gr)      // differentiate\r
-{\r
-       gr->SubPlot(2,2,0,"");  gr->Title("Envelop sample");\r
-       mglData d1(1000);       gr->Fill(d1,"exp(-8*x^2)*sin(10*pi*x)");\r
-       gr->Axis();                     gr->Plot(d1, "b");\r
-       d1.Envelop('x');        gr->Plot(d1, "r");\r
-\r
-       gr->SubPlot(2,2,1,"");  gr->Title("Smooth sample");\r
-       mglData y0(30),y1,y2,y3;\r
-       gr->SetRanges(0,1,0,1);\r
-       gr->Fill(y0, "0.4*sin(pi*x) + 0.3*cos(1.5*pi*x) - 0.4*sin(2*pi*x)+0.5*rnd");\r
-\r
-       y1=y0;  y1.Smooth("x3");\r
-       y2=y0;  y2.Smooth("x5");\r
-       y3=y0;  y3.Smooth("x");\r
-\r
-       gr->Plot(y0,"{m7}:s", "legend 'none'"); //gr->AddLegend("none","k");\r
-       gr->Plot(y1,"r", "legend ''3' style'");\r
-       gr->Plot(y2,"g", "legend ''5' style'");\r
-       gr->Plot(y3,"b", "legend 'default'");\r
-       gr->Legend();           gr->Box();\r
-\r
-       gr->SubPlot(2,2,2);             gr->Title("Sew sample");\r
-       mglData d2(100, 100);   gr->Fill(d2, "mod((y^2-(1-x)^2)/2,0.1)");\r
-       gr->Rotate(50, 60);     gr->Light(true);        gr->Alpha(true);\r
-       gr->Box();                      gr->Surf(d2, "b");\r
-       d2.Sew("xy", 0.1);      gr->Surf(d2, "r");\r
-\r
-       gr->SubPlot(2,2,3);             gr->Title("Resize sample (interpolation)");\r
-       mglData x0(10), v0(10), x1, v1;\r
-       gr->Fill(x0,"rnd");             gr->Fill(v0,"rnd");\r
-       x1 = x0.Resize(100);    v1 = v0.Resize(100);\r
-       gr->Plot(x0,v0,"b+ ");  gr->Plot(x1,v1,"r-");\r
-       gr->Label(x0,v0,"%n");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_ternary="";   // TODO add later\r
-void smgl_ternary(mglGraph *gr)        // flag #\r
-{\r
-       gr->SetRanges(0,1,0,1,0,1);\r
-       mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);\r
-       a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");\r
-       x.Modify("0.25*(1+cos(2*pi*x))");\r
-       y.Modify("0.25*(1+sin(2*pi*x))");\r
-       rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);\r
-       z.Modify("x");\r
-\r
-       gr->SubPlot(2,2,0);     gr->Title("Ordinary axis 3D");\r
-       gr->Rotate(50,60);              gr->Light(true);\r
-       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");\r
-       gr->Axis(); gr->Grid(); gr->Box();\r
-       gr->Label('x',"B",1);   gr->Label('y',"C",1);   gr->Label('z',"Z",1);\r
-\r
-       gr->SubPlot(2,2,1);     gr->Title("Ternary axis (x+y+t=1)");\r
-       gr->Ternary(1);\r
-       gr->Plot(x,y,"r2");     gr->Plot(rx,ry,"q^ ");  gr->Cont(a,"BbcyrR");\r
-       gr->Line(mglPoint(0.5,0), mglPoint(0,0.75), "g2");\r
-       gr->Axis(); gr->Grid("xyz","B;");\r
-       gr->Label('x',"B");     gr->Label('y',"C");     gr->Label('t',"A");\r
-\r
-       gr->SubPlot(2,2,2);     gr->Title("Quaternary axis 3D");\r
-       gr->Rotate(50,60);              gr->Light(true);\r
-       gr->Ternary(2);\r
-       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");\r
-       gr->Axis(); gr->Grid(); gr->Box();\r
-       gr->Label('t',"A",1);   gr->Label('x',"B",1);\r
-       gr->Label('y',"C",1);   gr->Label('z',"D",1);\r
-\r
-       gr->SubPlot(2,2,3);     gr->Title("Ternary axis 3D");\r
-       gr->Rotate(50,60);              gr->Light(true);\r
-       gr->Ternary(1);\r
-       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");\r
-       gr->Axis(); gr->Grid(); gr->Box();\r
-       gr->Label('t',"A",1);   gr->Label('x',"B",1);\r
-       gr->Label('y',"C",1);   gr->Label('z',"Z",1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_triplot="list q 0 1 2 3 | 4 5 6 7 | 0 2 4 6 | 1 3 5 7 | 0 4 1 5 | 2 6 3 7\n"\r
-"list xq -1 1 -1 1 -1 1 -1 1\nlist yq -1 -1 1 1 -1 -1 1 1\nlist zq -1 -1 -1 -1 1 1 1 1\nlight on\n"\r
-"subplot 2 1 0:title 'QuadPlot sample':rotate 50 60\n"\r
-"quadplot q xq yq zq 'yr'\nquadplot q xq yq zq '#k'\n"\r
-"list t 0 1 2 | 0 1 3 | 0 2 3 | 1 2 3\n"\r
-"list xq -1 1 0 0\nlist yq -1 -1 1 0\nlist zq -1 -1 -1 1\n"\r
-"subplot 2 1 1:title 'TriPlot sample':rotate 50 60\n"\r
-"triplot t xt yt zt 'b'\ntriplot t xt yt zt '#k'\n";\r
-void smgl_triplot(mglGraph *gr)\r
-{\r
-       double q[] = {0,1,2,3, 4,5,6,7, 0,2,4,6, 1,3,5,7, 0,4,1,5, 2,6,3,7};\r
-       double xc[] = {-1,1,-1,1,-1,1,-1,1}, yc[] = {-1,-1,1,1,-1,-1,1,1}, zc[] = {-1,-1,-1,-1,1,1,1,1};\r
-       mglData qq(6,4,q), xx(8,xc), yy(8,yc), zz(8,zc);\r
-       gr->Light(true);        //gr->Alpha(true);\r
-       gr->SubPlot(2,1,0);     gr->Title("QuadPlot sample");   gr->Rotate(50,60);\r
-       gr->QuadPlot(qq,xx,yy,zz,"yr");\r
-       gr->QuadPlot(qq,xx,yy,zz,"k#");\r
-\r
+       \r
+       gr->SubPlot(3,2,4);     gr->Title("TriPlot sample");    gr->Rotate(50,60);\r
        double t[] = {0,1,2, 0,1,3, 0,2,3, 1,2,3};\r
        double xt[] = {-1,1,0,0}, yt[] = {-1,-1,1,0}, zt[] = {-1,-1,-1,1};\r
        mglData tt(4,3,t), uu(4,xt), vv(4,yt), ww(4,zt);\r
-       gr->SubPlot(2,1,1);     gr->Title("TriPlot sample");    gr->Rotate(50,60);\r
        gr->TriPlot(tt,uu,vv,ww,"b");\r
        gr->TriPlot(tt,uu,vv,ww,"k#");\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_dots="new t 1000 'pi*(rnd-0.5)':new f 1000 '2*pi*rnd'\n"\r
-"copy x 0.9*cos(t)*cos(f):copy y 0.9*cos(t)*sin(f):copy z 0.6*sin(t)\n"\r
-"title 'Dots sample':rotate 50 60\nbox:dots x y z\n";\r
-void smgl_dots(mglGraph *gr)\r
-{\r
-       int i, n=1000;\r
-       mglData x(n),y(n),z(n);\r
-       for(i=0;i<n;i++)\r
-       {\r
-               double t=M_PI*(mgl_rnd()-0.5), f=2*M_PI*mgl_rnd();\r
-               x.a[i] = 0.9*cos(t)*cos(f);\r
-               y.a[i] = 0.9*cos(t)*sin(f);\r
-               z.a[i] = 0.6*sin(t);\r
-       }\r
-       if(!mini)       gr->Title("Dots sample");\r
-       gr->Rotate(50,60);      gr->Box();      gr->Dots(x,y,z);\r
-}\r
-//-----------------------------------------------------------------------------\r
-/*void smgl_surf3_rgbd(mglGraph *gr)\r
-{\r
-       mglData c;      mgls_prepare3d(&c);\r
-       gr->Rotate(40,60);      gr->VertexColor(true);\r
-       gr->Box();      gr->Surf3(c,"bgrd");\r
-}*/\r
-//-----------------------------------------------------------------------------\r
-const char *mmgl_mirror="new a 30 40 '-pi*x*exp(-(y+1)^2-4*x^2)'\nalpha on:light on:rotate 40 60:box\n"\r
-"surf a 'r';yrange 0 1\nsurf a 'b';yrange 0 -1\n";\r
-void smgl_mirror(mglGraph *gr) // flag #\r
-{\r
-       mglData a(30,40);\r
-       gr->Fill(a,"-pi*x*exp(-(y+1)^2-4*x^2)");\r
-\r
-       if(!mini)       gr->Title("Example of options");\r
-       gr->Alpha(false);       gr->Rotate(40,60);\r
-       gr->Light(true);        gr->Box();\r
-       gr->Surf(a,"r","yrange 0 1"); gr->Surf(a,"b","yrange 0 -1");\r
-}\r
-//-----------------------------------------------------------------------------\r
-//=============================================================================\r
-struct mglSample       /// Structure for list of samples\r
-{\r
-       const char *name;\r
-       void (*func)(mglGraph*);\r
-};\r
-extern mglSample samp[];\r
-//-----------------------------------------------------------------------------\r
-int mgl_cmd_smp(const void *a, const void *b)\r
-{\r
-       const mglSample *aa = (const mglSample *)a;\r
-       const mglSample *bb = (const mglSample *)b;\r
-       return strcmp(aa->name, bb->name);\r
+       \r
+       gr->SubPlot(3,2,5);\r
+       mglData r(4);   r.Fill(1,4);\r
+       gr->SetRanges(1,4,1,4); gr->Axis();\r
+       gr->Mark(r,r,"s");\r
+       gr->Plot(r,"b");\r
+       \r
+       gr->WriteJPEG("test.jpg");\r
+       gr->WritePNG("test.png");\r
+       gr->WriteBMP("test.bmp");\r
+       gr->WriteTGA("test.tga");\r
+       gr->WriteEPS("test.eps");\r
+       gr->WriteSVG("test.svg");\r
+       gr->WriteGIF("test.gif");\r
+       \r
+       gr->WriteXYZ("test.xyz");\r
+       gr->WriteSTL("test.stl");\r
+       gr->WriteOFF("test.off");\r
+       gr->WriteTEX("test.tex");\r
+       gr->WriteOBJ("test.obj");\r
+       gr->WritePRC("test.prc");\r
 }\r
 //-----------------------------------------------------------------------------\r
 #if !defined(_MSC_VER) && !defined(__BORLANDC__)\r
 static struct option longopts[] =\r
 {\r
-       { "test",                       no_argument,    &dotest,        1 },\r
-       { "srnd",                       no_argument,    &srnd,          1 },\r
-       { "width",                      required_argument,      NULL,   'w' },\r
-       { "height",                     required_argument,      NULL,   'h' },\r
-       { "list",                       no_argument,    NULL,           'l' },\r
-       { "kind",                       required_argument,      NULL,   'k' },\r
-       { "thread",                     required_argument,      NULL,   't' },\r
-       { "mini",                       no_argument,    &mini,          1 },\r
-       { "big",                        no_argument,    &big,           1 },\r
-       { "png",                        no_argument,    &type,          0 },\r
-       { "eps",                        no_argument,    &type,          1 },\r
-       { "svg",                        no_argument,    &type,          2 },\r
-       { "solid",                      no_argument,    &type,          3 },\r
-       { "jpeg",                       no_argument,    &type,          4 },\r
-       { "prc",                        no_argument,    &type,          5 },\r
-       { "gif",                        no_argument,    &type,          6 },\r
-       { "none",                       no_argument,    &type,          7 },\r
-       { "bps",                        no_argument,    &type,          8 },\r
-       { "u3d",                        no_argument,    &type,          9 },\r
-       { "pdf",                        no_argument,    &type,          10 },\r
-       { "obj",                        no_argument,    &type,          11 },\r
-       { "off",                        no_argument,    &type,          12 },\r
-       { "stl",                        no_argument,    &type,          13 },\r
-       { "help",                       no_argument,    NULL,           '?' },\r
-       { NULL,                         0,                              NULL,           0 }\r
+       { "big",        no_argument,    &big,           1 },\r
+       { "bps",        no_argument,    &type,          8 },\r
+       { "help",       no_argument,    NULL,           '?' },\r
+       { "height",     required_argument,      NULL,   'h' },\r
+       { "png",        no_argument,    &type,          0 },\r
+       { "eps",        no_argument,    &type,          1 },\r
+       { "gif",        no_argument,    &type,          6 },\r
+       { "jpeg",       no_argument,    &type,          4 },\r
+       { "kind",       required_argument,      NULL,   'k' },\r
+       { "list",       no_argument,    NULL,           'l' },\r
+       { "mgl",        no_argument,    &use_mgl,       1 },\r
+       { "mini",       no_argument,    &mini,          1 },\r
+       { "none",       no_argument,    &type,          7 },\r
+       { "obj",        no_argument,    &type,          11 },\r
+       { "off",        no_argument,    &type,          12 },\r
+       { "prc",        no_argument,    &type,          5 },\r
+       { "solid",      no_argument,    &type,          3 },\r
+       { "srnd",       no_argument,    &srnd,          1 },\r
+       { "svg",        no_argument,    &type,          2 },\r
+       { "stl",        no_argument,    &type,          13 },\r
+       { "tex",        no_argument,    &type,          14 },\r
+       { "json",       no_argument,    &type,          15 },\r
+       { "test",       no_argument,    &dotest,        1 },\r
+       { "font",       no_argument,    &dotest,        2 },\r
+       { "fmts",       no_argument,    &dotest,        3 },\r
+       { "thread",     required_argument,      NULL,   't' },\r
+       { "verbose",no_argument,        &verbose,       1 },\r
+       { "width",      required_argument,      NULL,   'w' },\r
+       { NULL,         0,                              NULL,           0 }\r
 };\r
 //-----------------------------------------------------------------------------\r
 void usage()\r
 {\r
        puts (\r
-               "--png          - output png\n"\r
+//             "--png          - output png\n"\r
                "--width=num    - png picture width\n"\r
                "--height=num   - png picture height\n"\r
                "--mini         - png picture is 200x150\n"\r
                "--big          - png picture is 1920x1440\n"\r
                "--idtf         - output idtf\n"\r
-               "--u3d          - output u3d\n"\r
-               "--pdf          - output pdf\n"\r
+               "--prc          - output prc\n"\r
                "--eps          - output EPS\n"\r
+               "--eps          - output LaTeX\n"\r
                "--jpeg         - output JPEG\n"\r
-               "--solid                - output solid PNG\n"\r
+               "--json         - output JSON\n"\r
+               "--solid        - output solid PNG\n"\r
                "--svg          - output SVG\n"\r
                "--obj          - output obj/mtl\n"\r
                "--off          - output off\n"\r
@@ -1965,7 +282,10 @@ void usage()
                "--list         - print list of sample names\n"\r
                "--kind=name    - produce only this sample\n"\r
                "--thread=num   - number of threads used\n"\r
+               "--mgl          - use MGL scripts for samples\n"\r
                "--test         - perform test\n"\r
+               "--font         - write current font as C++ file\n"\r
+               "--fmts         - write sample in all possible formats\n"\r
        );\r
 }\r
 #endif\r
@@ -2002,12 +322,6 @@ void save(mglGraph *gr,const char *name,const char *suf="")
                        sprintf(buf,"%s%s.png",name,suf);\r
                        gr->WritePNG(buf,0,false);\r
                        break;\r
-               case 9: // U3D\r
-                       sprintf(buf,"%s%s.u3d",name,suf);\r
-                       //gr->WriteU3D(buf);    break;  // TODO: Add IDTF support\r
-               case 10:        // PDF\r
-                       sprintf(buf,"%s%s.pdf",name,suf);\r
-                       //gr->WritePDF(buf);    break;  // TODO: Add IDTF support\r
                case 11:        // OBJ\r
                        sprintf(buf,"%s%s.obj",name,suf);\r
                        gr->WriteOBJ(buf);      break;\r
@@ -2017,6 +331,12 @@ void save(mglGraph *gr,const char *name,const char *suf="")
                case 13:        // STL\r
                        sprintf(buf,"%s%s.stl",name,suf);\r
                        gr->WriteSTL(buf);      break;\r
+               case 14:        // TeX\r
+                       sprintf(buf,"%s%s.tex",name,suf);\r
+                       gr->WriteTEX(buf);      break;\r
+               case 15:        // JSON\r
+                       sprintf(buf,"%s%s.json",name,suf);\r
+                       gr->WriteJSON(buf);     break;\r
                default:// PNG (no alpha)\r
                        sprintf(buf,"%s%s.png",name,suf);\r
                        gr->WritePNG(buf,0,false);      break;\r
@@ -2051,28 +371,49 @@ int main(int argc,char **argv)
                }\r
 #endif\r
 \r
+       if(dotest==1)   printf("Global (before):%s\n",mglGlobalMess.c_str());\r
        gr = new mglGraph;      //gr->SetQuality(0);\r
-\r
        if(mini)                {       gr->SetSize(190,145);   suf = "-sm";    }\r
        else if(big)\r
        {       gr->SetSize(1920,1440); suf = "-lg";    }\r
        else    gr->SetSize(width,height);\r
 \r
-       if(dotest)\r
+       if(dotest==1)\r
        {\r
-//             gr->SetSize(600,600);\r
                mgl_set_test_mode(true);        test(gr);\r
                gr->WritePNG("test.png","",false);\r
                gr->WriteEPS("test.eps");\r
+               printf("Messages:%s\n",gr->Message());\r
+               printf("Global:%s\n",mglGlobalMess.c_str());\r
                delete gr;      return 0;\r
        }\r
+       else if(dotest==2)\r
+       {       mgl_create_cpp_font(gr->Self(), L"!-~,¡-ÿ,̀-̏,Α-ω,ϑ,ϕ,ϖ,ϰ,ϱ,ϵ,А-я,ℏ,ℑ,ℓ,ℜ,←-↙,∀-∯,≠-≯,⟂");\r
+               delete gr;      return 0;       }\r
+       else if(dotest==3)\r
+       {       fexport(gr);    delete gr;      return 0;       }\r
 \r
+       if(type==15)    mini=1; // save mini version for json\r
+       \r
        if(srnd)        mgl_srnd(1);\r
        gr->VertexColor(false); gr->TextureColor(true); gr->Compression(false);\r
        if(name[0]==0)  while(s->name[0])       // all samples\r
        {\r
                gr->DefaultPlotParam(); gr->Clf();\r
-               s->func(gr);    save(gr, s->name, suf);\r
+               if(use_mgl)\r
+               {\r
+                       mglParse par;\r
+                       par.AllowSetSize(true);\r
+                       setlocale(LC_CTYPE, "");\r
+                       char *buf = new char[strlen(s->mgl)+strlen(mmgl_dat_prepare)+1];\r
+                       strcpy(buf,s->mgl);             strcat(buf,mmgl_dat_prepare);\r
+                       printf("\n-------\n%s\n-------\n",verbose?buf:s->mgl);\r
+                       par.Execute(gr,buf);    delete []buf;\r
+                       const char *mess = gr->Message();\r
+                       if(*mess)       printf("Warnings: %s\n-------\n",mess);\r
+               }\r
+               else    s->func(gr);\r
+               save(gr, s->name, suf);\r
                fflush(stdout); s++;\r
        }\r
        else    // manual sample\r
@@ -2084,7 +425,20 @@ int main(int argc,char **argv)
                if(s)\r
                {\r
                        gr->DefaultPlotParam(); gr->Clf();\r
-                       s->func(gr);    save(gr, s->name, suf);\r
+                       if(use_mgl)\r
+                       {\r
+                               mglParse par;\r
+                               par.AllowSetSize(true);\r
+                               setlocale(LC_CTYPE, "");\r
+                               char *buf = new char[strlen(s->mgl)+strlen(mmgl_dat_prepare)+1];\r
+                               strcpy(buf,s->mgl);             strcat(buf,mmgl_dat_prepare);\r
+                               printf("\n-------\n%s\n-------\n",verbose?buf:s->mgl);\r
+                               par.Execute(gr,buf);    delete []buf;\r
+                               const char *mess = gr->Message();\r
+                               if(*mess)       printf("Warnings: %s\n-------\n",mess);\r
+                       }\r
+                       else    s->func(gr);\r
+                       save(gr, s->name, suf);\r
                }\r
                else    printf("no sample %s\n",name);\r
        }\r
@@ -2092,96 +446,3 @@ int main(int argc,char **argv)
        delete gr;      return 0;\r
 }\r
 //-----------------------------------------------------------------------------\r
-mglSample samp[] = {\r
-       {"alpha", smgl_alpha},\r
-       {"area", smgl_area},\r
-       {"aspect", smgl_aspect},\r
-       {"axial", smgl_axial},\r
-       {"axis", smgl_axis},\r
-       {"barh", smgl_barh},\r
-       {"bars", smgl_bars},\r
-       {"belt", smgl_belt},\r
-       {"box", smgl_box},\r
-       {"boxplot", smgl_boxplot},\r
-       {"boxs", smgl_boxs},\r
-       {"candle", smgl_candle},\r
-       {"chart", smgl_chart},\r
-       {"cloud", smgl_cloud},\r
-       {"colorbar", smgl_colorbar},\r
-       {"combined", smgl_combined},\r
-       {"cones", smgl_cones},\r
-       {"cont", smgl_cont},\r
-       {"cont_xyz", smgl_cont_xyz},\r
-       {"conta", smgl_conta},\r
-       {"contd", smgl_contd},\r
-       {"contf", smgl_contf},\r
-       {"contf_xyz", smgl_contf_xyz},\r
-       {"contfa", smgl_contfa},\r
-       {"contv", smgl_contv},\r
-//     {"crust", smgl_crust},  // TODO: open after triangulation\r
-       {"curvcoor", smgl_curvcoor},\r
-       {"cut", smgl_cut},\r
-       {"dat_diff", smgl_dat_diff},\r
-       {"dat_extra", smgl_dat_extra},\r
-       {"dens", smgl_dens},\r
-       {"dens_xyz", smgl_dens_xyz},\r
-       {"densa", smgl_densa},\r
-       {"dew", smgl_dew},\r
-       {"dots", smgl_dots},\r
-       {"error", smgl_error},\r
-       {"fall", smgl_fall},\r
-       {"fit", smgl_fit},\r
-       {"flow", smgl_flow},\r
-       {"fog", smgl_fog},\r
-//     {"fonts", smgl_fonts},  // TODO enable later\r
-       {"grad", smgl_grad},\r
-       {"hist", smgl_hist},\r
-       {"inplot", smgl_inplot},\r
-       {"label", smgl_label},\r
-       {"legend", smgl_legend},\r
-       {"loglog", smgl_loglog},\r
-       {"map",         smgl_map},\r
-       {"mark", smgl_mark},\r
-       {"mesh", smgl_mesh},\r
-       {"mirror", smgl_mirror},\r
-       {"molecule", smgl_molecule},\r
-       {"parser", smgl_parser},\r
-       {"pde", smgl_pde},\r
-       {"pipe", smgl_pipe},\r
-       {"plot", smgl_plot},\r
-       {"primitives", smgl_primitives},\r
-       {"qo2d", smgl_qo2d},\r
-       {"radar", smgl_radar},\r
-       {"region", smgl_region},\r
-       {"schemes", smgl_schemes},\r
-       {"several_light", smgl_several_light},\r
-       {"stem", smgl_stem},\r
-       {"step", smgl_step},\r
-       {"stereo", smgl_stereo},\r
-       {"stfa", smgl_stfa},\r
-       {"style", smgl_style},\r
-       {"surf", smgl_surf},\r
-       {"surf3", smgl_surf3},\r
-       {"surf3a", smgl_surf3a},\r
-       {"surf3c", smgl_surf3c},\r
-       {"surfa", smgl_surfa},\r
-       {"surfc", smgl_surfc},\r
-       {"tape", smgl_tape},\r
-       {"tens", smgl_tens},\r
-       {"ternary", smgl_ternary},\r
-       {"text", smgl_text},\r
-       {"textmark", smgl_textmark},\r
-       {"ticks", smgl_ticks},\r
-       {"tile", smgl_tile},\r
-       {"tiles", smgl_tiles},\r
-       {"torus", smgl_torus},\r
-       {"traj", smgl_traj},\r
-       {"triangulation",smgl_triangulation},\r
-       {"triplot", smgl_triplot},\r
-       {"tube", smgl_tube},\r
-       {"type0", smgl_type0},\r
-       {"type1", smgl_type1},\r
-       {"type2", smgl_type2},\r
-       {"vect", smgl_vect},\r
-       {"venn", smgl_venn},\r
-{"", NULL}};\r

diff --git a/examples/glut_example.cpp b/examples/glut_example.cpp
index 4d758be17a4efce421af0fc0f9c29d07efdbdbde..419bb745d84c1e080b966f69a499de7faf3bd50f 100644 (file)
--- a/examples/glut_example.cpp
+++ b/examples/glut_example.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * glut_example.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r

diff --git a/examples/qt_example.cpp b/examples/qt_example.cpp
index 4a16d086b3d0fc7daf917f7efa2d7bf38bb280aa..2dfbb75002fe94aa3cf1396b8f65954809512681 100644 (file)
--- a/examples/qt_example.cpp
+++ b/examples/qt_example.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * qt_example.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -17,9 +17,11 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-#include "mgl2/window.h"\r
+#include "mgl2/qt.h"\r
 #if defined(WIN32) || defined(_MSC_VER) || defined(__BORLANDC__)\r
 #include <windows.h>\r
+#else\r
+#include <unistd.h>\r
 #endif\r
 //-----------------------------------------------------------------------------\r
 int test_wnd(mglGraph *gr);\r
@@ -40,7 +42,7 @@ class Foo : public mglDraw
 {\r
        mglPoint pnt;  // some result of calculation\r
 public:\r
-       mglWindow *Gr;  // graphics to be updated\r
+       mglWnd *Gr;  // graphics to be updated\r
        int Draw(mglGraph *gr);\r
        void Calc();\r
 } foo;\r
@@ -69,22 +71,22 @@ int Foo::Draw(mglGraph *gr)
 int main(int argc,char **argv)\r
 {\r
 #ifdef PTHREAD_SAMPLE\r
-       mglWindow gr(&foo,"MathGL examples");\r
+       mglQT gr(&foo,"MathGL examples");\r
        foo.Gr = &gr;   foo.Run();\r
        return gr.Run();\r
 #else\r
-       mglWindow *gr;\r
+       mglQT *gr;\r
        char key = 0;\r
        if(argc>1)      key = argv[1][0]!='-' ? argv[1][0]:argv[1][1];\r
        else    printf("You may specify argument '1', '2', '3' or 'd' for viewing examples of 1d, 2d, 3d or dual plotting\n");\r
        switch(key)\r
        {\r
-       case '1':       gr = new mglWindow(sample_1,"1D plots",1);      break;\r
-       case '2':       gr = new mglWindow(sample_2,"2D plots",1);      break;\r
-       case '3':       gr = new mglWindow(sample_3,"3D plots",1);      break;\r
-       case 'd':       gr = new mglWindow(sample_d,"Dual plots",1);    break;\r
-       case 't':       gr = new mglWindow(test_wnd,"Testing",1);       break;\r
-       default:        gr = new mglWindow(sample,"Drop and waves",1);  break;\r
+       case '1':       gr = new mglQT(sample_1,"1D plots");    break;\r
+       case '2':       gr = new mglQT(sample_2,"2D plots");    break;\r
+       case '3':       gr = new mglQT(sample_3,"3D plots");    break;\r
+       case 'd':       gr = new mglQT(sample_d,"Dual plots");  break;\r
+       case 't':       gr = new mglQT(test_wnd,"Testing");     break;\r
+       default:        gr = new mglQT(sample,"Drop and waves");        break;\r
        }\r
        gr->Run();      return 0;\r
 #endif\r

diff --git a/examples/samples.cpp b/examples/samples.cpp
new file mode 100644 (file)
index 0000000..9e94bf0
--- /dev/null
+++ b/examples/samples.cpp
@@ -0,0 +1,2137 @@
+/***************************************************************************
+ * samples.cpp is part of Math Graphic Library
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+#include "mgl2/mgl.h"
+//-----------------------------------------------------------------------------
+void mgls_prepare1d(mglData *y, mglData *y1=0, mglData *y2=0, mglData *x1=0, mglData *x2=0);
+void mgls_prepare2d(mglData *a, mglData *b=0, mglData *v=0);
+void mgls_prepare3d(mglData *a, mglData *b=0);
+void mgls_prepare2v(mglData *a, mglData *b);
+void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez);
+extern int mini;
+//-----------------------------------------------------------------------------
+struct mglSample       /// Structure for list of samples
+{
+       const char *name;
+       void (*func)(mglGraph*);
+       const char *mgl;
+};
+//-----------------------------------------------------------------------------
+//             MGL functions for preparing data
+//-----------------------------------------------------------------------------
+const char *mmgl_dat_prepare = "\nstop\n\nfunc 'prepare1d'\n\
+new y 50 3\nmodify y '0.7*sin(2*pi*x)+0.5*cos(3*pi*x)+0.2*sin(pi*x)'\n\
+modify y 'sin(2*pi*x)' 1\nmodify y 'cos(2*pi*x)' 2\n\
+new x1 50 'x'\nnew x2 50 '0.05-0.03*cos(pi*x)'\n\
+new y1 50 '0.5-0.3*cos(pi*x)'\nnew y2 50 '-0.3*sin(pi*x)'\n\
+return\n\nfunc 'prepare2d'\n\
+new a 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'\n\
+new b 50 40 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'\n\
+return\n\nfunc 'prepare3d'\n\
+new c 61 50 40 '-2*(x^2+y^2+z^4-z^2)+0.2'\n\
+new d 61 50 40 '1-2*tanh((x+y)*(x+y))'\n\
+return\n\nfunc 'prepare2v'\n\
+new a 20 30 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'\n\
+new b 20 30 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'\n\
+return\n\nfunc 'prepare3v'\n\
+define $1 pow(x*x+y*y+(z-0.3)*(z-0.3)+0.03,1.5)\n\
+define $2 pow(x*x+y*y+(z+0.3)*(z+0.3)+0.03,1.5)\n\
+new ex 10 10 10 '0.2*x/$1-0.2*x/$2'\n\
+new ey 10 10 10 '0.2*y/$1-0.2*y/$2'\n\
+new ez 10 10 10 '0.2*(z-0.3)/$1-0.2*(z+0.3)/$2'\nreturn\n";
+//-----------------------------------------------------------------------------
+//             Sample functions (v.2.*0)
+//-----------------------------------------------------------------------------
+const char *mmgl_solve="zrange 0 1\nnew x 20 30 '(x+2)/3*cos(pi*y)'\n"
+"new y 20 30 '(x+2)/3*sin(pi*y)'\nnew z 20 30 'exp(-6*x^2-2*sin(pi*y)^2)'\n\n"
+"subplot 2 1 0:title 'Cartesian space':rotate 30 -40\naxis 'xyzU':box\nxlabel 'x':ylabel 'y'"
+"origin 1 1:grid 'xy'\nmesh x y z\n\n"
+"# section along 'x' direction\nsolve u x 0.5 'x'\nvar v u.nx 0 1\n"
+"evaluate yy y u v\nevaluate xx x u v\nevaluate zz z u v\nplot xx yy zz 'k2o'\n\n"
+"# 1st section along 'y' direction\nsolve u1 x -0.5 'y'\nvar v1 u1.nx 0 1\n"
+"evaluate yy y v1 u1\nevaluate xx x v1 u1\nevaluate zz z v1 u1\nplot xx yy zz 'b2^'\n\n"
+"# 2nd section along 'y' direction\nsolve u2 x -0.5 'y' u1\n"
+"evaluate yy y v1 u2\nevaluate xx x v1 u2\nevaluate zz z v1 u2\nplot xx yy zz 'r2v'\n\n"
+"subplot 2 1 1:title 'Accompanied space'\nranges 0 1 0 1:origin 0 0\n"
+"axis:box:xlabel 'i':ylabel 'j':grid2 z 'h'\n\n"
+"plot u v 'k2o':line 0.4 0.5 0.8 0.5 'kA'\n"
+"plot v1 u1 'b2^':line 0.5 0.15 0.5 0.3 'bA'\n"
+"plot v1 u2 'r2v':line 0.5 0.7 0.5 0.85 'rA'\n";
+void smgl_solve(mglGraph *gr)  // solve and evaluate
+{
+       gr->SetRange('z',0,1);
+       mglData x(20,30), y(20,30), z(20,30), xx,yy,zz;
+       gr->Fill(x,"(x+2)/3*cos(pi*y)");
+       gr->Fill(y,"(x+2)/3*sin(pi*y)");
+       gr->Fill(z,"exp(-6*x^2-2*sin(pi*y)^2)");
+
+       gr->SubPlot(2,1,0);     gr->Title("Cartesian space");   gr->Rotate(30,-40);
+       gr->Axis("xyzU");       gr->Box();      gr->Label('x',"x");     gr->Label('y',"y");
+       gr->SetOrigin(1,1);     gr->Grid("xy");
+       gr->Mesh(x,y,z);
+
+       // section along 'x' direction
+       mglData u = x.Solve(0.5,'x');
+       mglData v(u.nx);        v.Fill(0,1);
+       xx = x.Evaluate(u,v);   yy = y.Evaluate(u,v);   zz = z.Evaluate(u,v);
+       gr->Plot(xx,yy,zz,"k2o");
+
+       // 1st section along 'y' direction
+       mglData u1 = x.Solve(-0.5,'y');
+       mglData v1(u1.nx);      v1.Fill(0,1);
+       xx = x.Evaluate(v1,u1); yy = y.Evaluate(v1,u1); zz = z.Evaluate(v1,u1);
+       gr->Plot(xx,yy,zz,"b2^");
+
+       // 2nd section along 'y' direction
+       mglData u2 = x.Solve(-0.5,'y',u1);
+       xx = x.Evaluate(v1,u2); yy = y.Evaluate(v1,u2); zz = z.Evaluate(v1,u2);
+       gr->Plot(xx,yy,zz,"r2v");
+
+       gr->SubPlot(2,1,1);     gr->Title("Accompanied space");
+       gr->SetRanges(0,1,0,1); gr->SetOrigin(0,0);
+       gr->Axis();     gr->Box();      gr->Label('x',"i");     gr->Label('y',"j");
+       gr->Grid(z,"h");
+
+       gr->Plot(u,v,"k2o");    gr->Line(mglPoint(0.4,0.5),mglPoint(0.8,0.5),"kA");
+       gr->Plot(v1,u1,"b2^");  gr->Line(mglPoint(0.5,0.15),mglPoint(0.5,0.3),"bA");
+       gr->Plot(v1,u2,"r2v");  gr->Line(mglPoint(0.5,0.7),mglPoint(0.5,0.85),"rA");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_triangulation="new x 100 '2*rnd-1':new y 100 '2*rnd-1':copy z x^2-y^2\n"
+"new g 30 30:triangulate d x y\n"
+"title 'Triangulation'\nrotate 50 60:box:light on\n"
+"triplot d x y z:triplot d x y z '#k'\ndatagrid g x y z:mesh g 'm'\n";
+void smgl_triangulation(mglGraph *gr)  // surface triangulation
+{
+       mglData x(100), y(100), z(100);
+       gr->Fill(x,"2*rnd-1");  gr->Fill(y,"2*rnd-1");  gr->Fill(z,"v^2-w^2",x,y);
+       mglData d = mglTriangulation(x,y), g(30,30);
+       
+       if(!mini)       gr->Title("Triangulation");
+       gr->Rotate(40,60);      gr->Box();      gr->Light(true);
+       gr->TriPlot(d,x,y,z);   gr->TriPlot(d,x,y,z,"#k");
+
+       gr->DataGrid(g,x,y,z);  gr->Mesh(g,"m");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_alpha="call 'prepare2d'\nsubplot 2 2 0:title 'default':rotate 50 60:box\nsurf a\n"
+"subplot 2 2 1:title 'light on':rotate 50 60:box\nlight on:surf a\n"
+"subplot 2 2 3:title 'light on; alpha on':rotate 50 60:box\nalpha on:surf a\n"
+"subplot 2 2 2:title 'alpha on':rotate 50 60:box\nlight off:surf a\n";
+void smgl_alpha(mglGraph *gr)  // alpha and lighting
+{
+       mglData a;      mgls_prepare2d(&a);
+       gr->SubPlot(2,2,0);     gr->Title("default");   gr->Rotate(50,60);
+       gr->Box();      gr->Surf(a);
+       gr->SubPlot(2,2,1);     gr->Title("light on");  gr->Rotate(50,60);
+       gr->Box();      gr->Light(true);        gr->Surf(a);
+       gr->SubPlot(2,2,3);     gr->Title("alpha on; light on");        gr->Rotate(50,60);
+       gr->Box();      gr->Alpha(true);        gr->Surf(a);
+       gr->SubPlot(2,2,2);     gr->Title("alpha on");  gr->Rotate(50,60);
+       gr->Box();      gr->Light(false);       gr->Surf(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_schemes="call 'sch' 0 'kw'\ncall 'sch' 1 'wk'\ncall 'sch' 2 'kHCcw'\ncall 'sch' 3 'kBbcw'\n"
+"call 'sch' 4 'kRryw'\ncall 'sch' 5 'kGgew'\ncall 'sch' 6 'BbwrR'\ncall 'sch' 7 'BbwgG'\n"
+"call 'sch' 8 'GgwmM'\ncall 'sch' 9 'UuwqR'\ncall 'sch' 10 'QqwcC'\ncall 'sch' 11 'CcwyY'\n"
+"call 'sch' 12 'bcwyr'\ncall 'sch' 13 'bwr'\ncall 'sch' 14 'BbcyrR'\ncall 'sch' 15 'UbcyqR'\n"
+"call 'sch' 16 'BbcwyrR'\ncall 'sch' 17 'bgr'\ncall 'sch' 18 'BbcyrR|'\ncall 'sch' 19 'b\\{g,0.3\\}r'\n"
+"stop\nfunc 'sch' 2\nsubplot 2 10 $1 '<>_^' 0.2 0:fsurf 'x' '$2'\n"
+"text 0.07+0.5*mod($1,2) 0.92-0.1*int($1/2) '$2' 'A'\nreturn\n";
+void smgl_schemes(mglGraph *gr)        // Color table
+{
+       mglData a(256,2);       a.Fill(-1,1);
+       gr->SubPlot(2,10,0,NULL,0.2);   gr->Dens(a,"kw");               gr->Puts(0.07, 0.92, "'kw'", "A");
+       gr->SubPlot(2,10,1,NULL,0.2);   gr->Dens(a,"wk");               gr->Puts(0.57, 0.92, "'wk'", "A");
+       gr->SubPlot(2,10,2,NULL,0.2);   gr->Dens(a,"kHCcw");    gr->Puts(0.07, 0.82, "'kHCcw'", "A");
+       gr->SubPlot(2,10,3,NULL,0.2);   gr->Dens(a,"kBbcw");    gr->Puts(0.57, 0.82, "'kBbcw'", "A");
+       gr->SubPlot(2,10,4,NULL,0.2);   gr->Dens(a,"kRryw");    gr->Puts(0.07, 0.72, "'kRryw'", "A");
+       gr->SubPlot(2,10,5,NULL,0.2);   gr->Dens(a,"kGgew");    gr->Puts(0.57, 0.72, "'kGgew'", "A");
+       gr->SubPlot(2,10,6,NULL,0.2);   gr->Dens(a,"BbwrR");    gr->Puts(0.07, 0.62, "'BbwrR'", "A");
+       gr->SubPlot(2,10,7,NULL,0.2);   gr->Dens(a,"BbwgG");    gr->Puts(0.57, 0.62, "'BbwgG'", "A");
+       gr->SubPlot(2,10,8,NULL,0.2);   gr->Dens(a,"GgwmM");    gr->Puts(0.07, 0.52, "'GgwmM'", "A");
+       gr->SubPlot(2,10,9,NULL,0.2);   gr->Dens(a,"UuwqR");    gr->Puts(0.57, 0.52, "'UuwqR'", "A");
+       gr->SubPlot(2,10,10,NULL,0.2);  gr->Dens(a,"QqwcC");    gr->Puts(0.07, 0.42, "'QqwcC'", "A");
+       gr->SubPlot(2,10,11,NULL,0.2);  gr->Dens(a,"CcwyY");    gr->Puts(0.57, 0.42, "'CcwyY'", "A");
+       gr->SubPlot(2,10,12,NULL,0.2);  gr->Dens(a,"bcwyr");    gr->Puts(0.07, 0.32, "'bcwyr'", "A");
+       gr->SubPlot(2,10,13,NULL,0.2);  gr->Dens(a,"bwr");              gr->Puts(0.57, 0.32, "'bwr'", "A");
+       gr->SubPlot(2,10,14,NULL,0.2);  gr->Dens(a,"BbcyrR");   gr->Puts(0.07, 0.22, "'BbcyrR'", "A");
+       gr->SubPlot(2,10,15,NULL,0.2);  gr->Dens(a,"UbcyqR");   gr->Puts(0.57, 0.22, "'UbcyqR'", "A");
+       gr->SubPlot(2,10,16,NULL,0.2);  gr->Dens(a,"BbcwyrR");  gr->Puts(0.07, 0.12, "'BbcwyrR'", "A");
+       gr->SubPlot(2,10,17,NULL,0.2);  gr->Dens(a,"bgr");              gr->Puts(0.57, 0.12, "'bgr'", "A");
+       gr->SubPlot(2,10,18,NULL,0.2);  gr->Dens(a,"BbcyrR|");  gr->Puts(0.07, 0.02, "'BbcyrR|'", "A");
+       gr->SubPlot(2,10,19,NULL,0.2);  gr->Dens(a,"b{g,0.3}r");                gr->Puts(0.57, 0.02, "'b\\{g,0.3\\}r'", "A");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_curvcoor="origin -1 1 -1\nsubplot 2 2 0:title 'Cartesian':rotate 50 60:fplot '2*t-1' '0.5' '0' '2r':axis:grid\n"
+"axis 'y*sin(pi*x)' 'y*cos(pi*x)' '':subplot 2 2 1:title 'Cylindrical':rotate 50 60:fplot '2*t-1' '0.5' '0' '2r':axis:grid\n"
+"axis '2*y*x' 'y*y - x*x' '':subplot 2 2 2:title 'Parabolic':rotate 50 60:fplot '2*t-1' '0.5' '0' '2r':axis:grid\n"
+"axis 'y*sin(pi*x)' 'y*cos(pi*x)' 'x+z':subplot 2 2 3:title 'Spiral':rotate 50 60:fplot '2*t-1' '0.5' '0' '2r':axis:grid\n";
+void smgl_curvcoor(mglGraph *gr)       // curvilinear coordinates
+{
+       gr->SetOrigin(-1,1,-1);
+
+       gr->SubPlot(2,2,0);     gr->Title("Cartesian"); gr->Rotate(50,60);
+       gr->FPlot("2*t-1","0.5","0","r2");
+       gr->Axis(); gr->Grid();
+
+       gr->SetFunc("y*sin(pi*x)","y*cos(pi*x)",0);
+       gr->SubPlot(2,2,1);     gr->Title("Cylindrical");       gr->Rotate(50,60);
+       gr->FPlot("2*t-1","0.5","0","r2");
+       gr->Axis(); gr->Grid();
+
+       gr->SetFunc("2*y*x","y*y - x*x",0);
+       gr->SubPlot(2,2,2);     gr->Title("Parabolic"); gr->Rotate(50,60);
+       gr->FPlot("2*t-1","0.5","0","r2");
+       gr->Axis(); gr->Grid();
+
+       gr->SetFunc("y*sin(pi*x)","y*cos(pi*x)","x+z");
+       gr->SubPlot(2,2,3);     gr->Title("Spiral");    gr->Rotate(50,60);
+       gr->FPlot("2*t-1","0.5","0","r2");
+       gr->Axis(); gr->Grid();
+       gr->SetFunc(0,0,0);     // set to default Cartesian
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_style="";
+void smgl_style(mglGraph *gr)  // pen styles
+{
+       gr->SubPlot(2,2,0);
+       double d,x1,x2,x0,y=0.95;
+       d=0.3, x0=0.2, x1=0.5, x2=0.6;
+       gr->Line(mglPoint(x0,1-0*d),mglPoint(x1,1-0*d),"k-");   gr->Puts(mglPoint(x2,y-0*d),"Solid '-'",":rL");
+       gr->Line(mglPoint(x0,1-1*d),mglPoint(x1,1-1*d),"k|");   gr->Puts(mglPoint(x2,y-1*d),"Long Dash '|'",":rL");
+       gr->Line(mglPoint(x0,1-2*d),mglPoint(x1,1-2*d),"k;");   gr->Puts(mglPoint(x2,y-2*d),"Dash ';'",":rL");
+       gr->Line(mglPoint(x0,1-3*d),mglPoint(x1,1-3*d),"k=");   gr->Puts(mglPoint(x2,y-3*d),"Small dash '='",":rL");
+       gr->Line(mglPoint(x0,1-4*d),mglPoint(x1,1-4*d),"kj");   gr->Puts(mglPoint(x2,y-4*d),"Dash-dot 'j'",":rL");
+       gr->Line(mglPoint(x0,1-5*d),mglPoint(x1,1-5*d),"ki");   gr->Puts(mglPoint(x2,y-5*d),"Small dash-dot 'i'",":rL");
+       gr->Line(mglPoint(x0,1-6*d),mglPoint(x1,1-6*d),"k:");   gr->Puts(mglPoint(x2,y-6*d),"Dots ':'",":rL");
+       gr->Line(mglPoint(x0,1-7*d),mglPoint(x1,1-7*d),"k ");   gr->Puts(mglPoint(x2,y-7*d),"None ' '",":rL");
+
+       d=0.25; x1=-1; x0=-0.8; y = -0.05;
+       gr->Mark(mglPoint(x1,5*d),"k.");                gr->Puts(mglPoint(x0,y+5*d),"'.'",":rL");
+       gr->Mark(mglPoint(x1,4*d),"k+");                gr->Puts(mglPoint(x0,y+4*d),"'+'",":rL");
+       gr->Mark(mglPoint(x1,3*d),"kx");                gr->Puts(mglPoint(x0,y+3*d),"'x'",":rL");
+       gr->Mark(mglPoint(x1,2*d),"k*");                gr->Puts(mglPoint(x0,y+2*d),"'*'",":rL");
+       gr->Mark(mglPoint(x1,d),"ks");          gr->Puts(mglPoint(x0,y+d),"'s'",":rL");
+       gr->Mark(mglPoint(x1,0),"kd");          gr->Puts(mglPoint(x0,y),"'d'",":rL");
+       gr->Mark(mglPoint(x1,-d,0),"ko");       gr->Puts(mglPoint(x0,y-d),"'o'",":rL");
+       gr->Mark(mglPoint(x1,-2*d,0),"k^");     gr->Puts(mglPoint(x0,y-2*d),"'\\^'",":rL");
+       gr->Mark(mglPoint(x1,-3*d,0),"kv");     gr->Puts(mglPoint(x0,y-3*d),"'v'",":rL");
+       gr->Mark(mglPoint(x1,-4*d,0),"k<");     gr->Puts(mglPoint(x0,y-4*d),"'<'",":rL");
+       gr->Mark(mglPoint(x1,-5*d,0),"k>");     gr->Puts(mglPoint(x0,y-5*d),"'>'",":rL");
+
+       d=0.25; x1=-0.5; x0=-0.3;       y = -0.05;
+       gr->Mark(mglPoint(x1,5*d),"k#.");       gr->Puts(mglPoint(x0,y+5*d),"'\\#.'",":rL");
+       gr->Mark(mglPoint(x1,4*d),"k#+");       gr->Puts(mglPoint(x0,y+4*d),"'\\#+'",":rL");
+       gr->Mark(mglPoint(x1,3*d),"k#x");       gr->Puts(mglPoint(x0,y+3*d),"'\\#x'",":rL");
+       gr->Mark(mglPoint(x1,2*d),"k#*");       gr->Puts(mglPoint(x0,y+2*d),"'\\#*'",":rL");
+       gr->Mark(mglPoint(x1,d),"k#s");         gr->Puts(mglPoint(x0,y+d),"'\\#s'",":rL");
+       gr->Mark(mglPoint(x1,0),"k#d");         gr->Puts(mglPoint(x0,y),"'\\#d'",":rL");
+       gr->Mark(mglPoint(x1,-d,0),"k#o");      gr->Puts(mglPoint(x0,y-d),"'\\#o'",":rL");
+       gr->Mark(mglPoint(x1,-2*d,0),"k#^");    gr->Puts(mglPoint(x0,y-2*d),"'\\#\\^'",":rL");
+       gr->Mark(mglPoint(x1,-3*d,0),"k#v");    gr->Puts(mglPoint(x0,y-3*d),"'\\#v'",":rL");
+       gr->Mark(mglPoint(x1,-4*d,0),"k#<");    gr->Puts(mglPoint(x0,y-4*d),"'\\#<'",":rL");
+       gr->Mark(mglPoint(x1,-5*d,0),"k#>");    gr->Puts(mglPoint(x0,y-5*d),"'\\#>'",":rL");
+
+       gr->SubPlot(2,2,1);
+       double a=0.1,b=0.4,c=0.5;
+       gr->Line(mglPoint(a,1),mglPoint(b,1),"k-A");            gr->Puts(mglPoint(c,1),"Style 'A' or 'A\\_'",":rL");
+       gr->Line(mglPoint(a,0.8),mglPoint(b,0.8),"k-V");        gr->Puts(mglPoint(c,0.8),"Style 'V' or 'V\\_'",":rL");
+       gr->Line(mglPoint(a,0.6),mglPoint(b,0.6),"k-K");        gr->Puts(mglPoint(c,0.6),"Style 'K' or 'K\\_'",":rL");
+       gr->Line(mglPoint(a,0.4),mglPoint(b,0.4),"k-I");        gr->Puts(mglPoint(c,0.4),"Style 'I' or 'I\\_'",":rL");
+       gr->Line(mglPoint(a,0.2),mglPoint(b,0.2),"k-D");        gr->Puts(mglPoint(c,0.2),"Style 'D' or 'D\\_'",":rL");
+       gr->Line(mglPoint(a,0),mglPoint(b,0),"k-S");            gr->Puts(mglPoint(c,0),"Style 'S' or 'S\\_'",":rL");
+       gr->Line(mglPoint(a,-0.2),mglPoint(b,-0.2),"k-O");      gr->Puts(mglPoint(c,-0.2),"Style 'O' or 'O\\_'",":rL");
+       gr->Line(mglPoint(a,-0.4),mglPoint(b,-0.4),"k-T");      gr->Puts(mglPoint(c,-0.4),"Style 'T' or 'T\\_'",":rL");
+       gr->Line(mglPoint(a,-0.6),mglPoint(b,-0.6),"k-_");      gr->Puts(mglPoint(c,-0.6),"Style '\\_' or none",":rL");
+       gr->Line(mglPoint(a,-0.8),mglPoint(b,-0.8),"k-AS");     gr->Puts(mglPoint(c,-0.8),"Style 'AS'",":rL");
+       gr->Line(mglPoint(a,-1),mglPoint(b,-1),"k-_A");         gr->Puts(mglPoint(c,-1),"Style '\\_A'",":rL");
+
+       a=-1;   b=-0.7; c=-0.6;
+       gr->Line(mglPoint(a,1),mglPoint(b,1),"kAA");            gr->Puts(mglPoint(c,1),"Style 'AA'",":rL");
+       gr->Line(mglPoint(a,0.8),mglPoint(b,0.8),"kVV");        gr->Puts(mglPoint(c,0.8),"Style 'VV'",":rL");
+       gr->Line(mglPoint(a,0.6),mglPoint(b,0.6),"kKK");        gr->Puts(mglPoint(c,0.6),"Style 'KK'",":rL");
+       gr->Line(mglPoint(a,0.4),mglPoint(b,0.4),"kII");        gr->Puts(mglPoint(c,0.4),"Style 'II'",":rL");
+       gr->Line(mglPoint(a,0.2),mglPoint(b,0.2),"kDD");        gr->Puts(mglPoint(c,0.2),"Style 'DD'",":rL");
+       gr->Line(mglPoint(a,0),mglPoint(b,0),"kSS");            gr->Puts(mglPoint(c,0),"Style 'SS'",":rL");
+       gr->Line(mglPoint(a,-0.2),mglPoint(b,-0.2),"kOO");      gr->Puts(mglPoint(c,-0.2),"Style 'OO'",":rL");
+       gr->Line(mglPoint(a,-0.4),mglPoint(b,-0.4),"kTT");      gr->Puts(mglPoint(c,-0.4),"Style 'TT'",":rL");
+       gr->Line(mglPoint(a,-0.6),mglPoint(b,-0.6),"k-__");     gr->Puts(mglPoint(c,-0.6),"Style '\\_\\_'",":rL");
+       gr->Line(mglPoint(a,-0.8),mglPoint(b,-0.8),"k-VA");     gr->Puts(mglPoint(c,-0.8),"Style 'VA'",":rL");
+       gr->Line(mglPoint(a,-1),mglPoint(b,-1),"k-AV");         gr->Puts(mglPoint(c,-1),"Style 'AV'",":rL");
+
+       gr->SubPlot(2,2,2);
+       //#LENUQ
+       gr->FaceZ(mglPoint(-1,  -1), 0.4, 0.3, "L#");   gr->Puts(mglPoint(-0.8,-0.9), "L", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,-1), 0.4, 0.3, "E#");   gr->Puts(mglPoint(-0.4,-0.9), "E", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,-1), 0.4, 0.3, "N#");   gr->Puts(mglPoint(0,  -0.9), "N", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, -1), 0.4, 0.3, "U#");   gr->Puts(mglPoint(0.4,-0.9), "U", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, -1), 0.4, 0.3, "Q#");   gr->Puts(mglPoint(0.8,-0.9), "Q", "w:C", -1.4);
+       //#lenuq
+       gr->FaceZ(mglPoint(-1,  -0.7), 0.4, 0.3, "l#"); gr->Puts(mglPoint(-0.8,-0.6), "l", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,-0.7), 0.4, 0.3, "e#"); gr->Puts(mglPoint(-0.4,-0.6), "e", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,-0.7), 0.4, 0.3, "n#"); gr->Puts(mglPoint(0,  -0.6), "n", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, -0.7), 0.4, 0.3, "u#"); gr->Puts(mglPoint(0.4,-0.6), "u", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, -0.7), 0.4, 0.3, "q#"); gr->Puts(mglPoint(0.8,-0.6), "q", "k:C", -1.4);
+       //#CMYkP
+       gr->FaceZ(mglPoint(-1,  -0.4), 0.4, 0.3, "C#"); gr->Puts(mglPoint(-0.8,-0.3), "C", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,-0.4), 0.4, 0.3, "M#"); gr->Puts(mglPoint(-0.4,-0.3), "M", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,-0.4), 0.4, 0.3, "Y#"); gr->Puts(mglPoint(0,  -0.3), "Y", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, -0.4), 0.4, 0.3, "k#"); gr->Puts(mglPoint(0.4,-0.3), "k", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, -0.4), 0.4, 0.3, "P#"); gr->Puts(mglPoint(0.8,-0.3), "P", "w:C", -1.4);
+       //#cmywp
+       gr->FaceZ(mglPoint(-1,  -0.1), 0.4, 0.3, "c#"); gr->Puts(mglPoint(-0.8, 0), "c", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,-0.1), 0.4, 0.3, "m#"); gr->Puts(mglPoint(-0.4, 0), "m", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,-0.1), 0.4, 0.3, "y#"); gr->Puts(mglPoint(0,   0), "y", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, -0.1), 0.4, 0.3, "w#"); gr->Puts(mglPoint(0.4, 0), "w", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, -0.1), 0.4, 0.3, "p#"); gr->Puts(mglPoint(0.8, 0), "p", "k:C", -1.4);
+       //#BGRHW
+       gr->FaceZ(mglPoint(-1,  0.2), 0.4, 0.3, "B#");  gr->Puts(mglPoint(-0.8, 0.3), "B", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,0.2), 0.4, 0.3, "G#");  gr->Puts(mglPoint(-0.4, 0.3), "G", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,0.2), 0.4, 0.3, "R#");  gr->Puts(mglPoint(0,   0.3), "R", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, 0.2), 0.4, 0.3, "H#");  gr->Puts(mglPoint(0.4, 0.3), "H", "w:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, 0.2), 0.4, 0.3, "W#");  gr->Puts(mglPoint(0.8, 0.3), "W", "w:C", -1.4);
+       //#bgrhw
+       gr->FaceZ(mglPoint(-1,  0.5), 0.4, 0.3, "b#");  gr->Puts(mglPoint(-0.8, 0.6), "b", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,0.5), 0.4, 0.3, "g#");  gr->Puts(mglPoint(-0.4, 0.6), "g", "k:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,0.5), 0.4, 0.3, "r#");  gr->Puts(mglPoint(0,   0.6), "r", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, 0.5), 0.4, 0.3, "h#");  gr->Puts(mglPoint(0.4, 0.6), "h", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, 0.5), 0.4, 0.3, "w#");  gr->Puts(mglPoint(0.8, 0.6), "w", "k:C", -1.4);
+       //#brighted
+       gr->FaceZ(mglPoint(-1,  0.8), 0.4, 0.3, "{r1}#");       gr->Puts(mglPoint(-0.8, 0.9), "\\{r1\\}", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.6,0.8), 0.4, 0.3, "{r3}#");       gr->Puts(mglPoint(-0.4, 0.9), "\\{r3\\}", "w:C", -1.4);
+       gr->FaceZ(mglPoint(-0.2,0.8), 0.4, 0.3, "{r5}#");       gr->Puts(mglPoint(0,   0.9), "\\{r5\\}", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.2, 0.8), 0.4, 0.3, "{r7}#");       gr->Puts(mglPoint(0.4, 0.9), "\\{r7\\}", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0.6, 0.8), 0.4, 0.3, "{r9}#");       gr->Puts(mglPoint(0.8, 0.9), "\\{r9\\}", "k:C", -1.4);
+       // HEX
+       gr->FaceZ(mglPoint(-1, -1.3), 1, 0.3, "{xff9966}#");    gr->Puts(mglPoint(-0.5,-1.2), "\\{xff9966\\}", "k:C", -1.4);
+       gr->FaceZ(mglPoint(0,  -1.3), 1, 0.3, "{x83CAFF}#");    gr->Puts(mglPoint( 0.5,-1.2), "\\{x83CAFF\\}", "k:C", -1.4);
+
+       gr->SubPlot(2,2,3);
+       char stl[3]="r1", txt[4]="'1'";
+       for(int i=0;i<10;i++)
+       {
+               txt[1]=stl[1]='0'+i;
+               gr->Line(mglPoint(-1,0.2*i-1),mglPoint(1,0.2*i-1),stl);
+               gr->Puts(mglPoint(1.05,0.2*i-1),txt,":L");
+       }
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_text="call 'prepare1d'\nsubplot 2 2 0 ''\ntext 0 1 'Text can be in ASCII and in Unicode'\n"
+"text 0 0.6 'It can be \\wire{wire}, \\big{big} or #r{colored}'\n"
+"text 0 0.2 'One can change style in string: \\b{bold}, \\i{italic, \\b{both}}'\n"
+"text 0 -0.2 'Easy to \\a{overline} or \\u{underline}'\n"
+"text 0 -0.6 'Easy to change indexes ^{up} _{down} @{center}'\n"
+"text 0 -1 'It parse TeX: \\int \\alpha \\cdot \\\n\\sqrt3{sin(\\pi x)^2 + \\gamma_{i_k}} dx'\n"
+"subplot 2 2 1 ''\n text 0 0.5 '\\sqrt{\\frac{\\alpha^{\\gamma^2}+\\overset 1{\\big\\infty}}{\\sqrt3{2+b}}}' '@' -2\n"
+"text 0 -0.5 'Text can be printed\\n{}on several lines'\n"
+"subplot 2 2 2 '':box:plot y(:,0)\ntext y 'This is very very long string drawn along a curve' 'k'\ntext y 'Another string drawn above a curve' 'Tr'\n"
+"subplot 2 2 3 '':line -1 -1 1 -1 'rA':text 0 -1 1 -1 'Horizontal'\n"
+"line -1 -1 1 1 'rA':text 0 0 1 1 'At angle' '@'\nline -1 -1 -1 1 'rA':text -1 0 -1 1 'Vertical'\n";
+void smgl_text(mglGraph *gr)   // text drawing
+{
+       if(!mini)       gr->SubPlot(2,2,0,"");
+       gr->Putsw(mglPoint(0,1),L"Text can be in ASCII and in Unicode");
+       gr->Puts(mglPoint(0,0.6),"It can be \\wire{wire}, \\big{big} or #r{colored}");
+       gr->Puts(mglPoint(0,0.2),"One can change style in string: "
+       "\\b{bold}, \\i{italic, \\b{both}}");
+       gr->Puts(mglPoint(0,-0.2),"Easy to \\a{overline} or "
+       "\\u{underline}");
+       gr->Puts(mglPoint(0,-0.6),"Easy to change indexes ^{up} _{down} @{center}");
+       gr->Puts(mglPoint(0,-1),"It parse TeX: \\int \\alpha \\cdot "
+       "\\sqrt3{sin(\\pi x)^2 + \\gamma_{i_k}} dx");
+       if(mini)        return;
+
+       gr->SubPlot(2,2,1,"");
+       gr->Puts(mglPoint(0,0.5), "\\sqrt{\\frac{\\alpha^{\\gamma^2}+\\overset 1{\\big\\infty}}{\\sqrt3{2+b}}}", "@", -2);
+       gr->Puts(mglPoint(0,-0.5),"Text can be printed\non several lines");
+
+       gr->SubPlot(2,2,2,"");
+       mglData y;      mgls_prepare1d(&y);
+       gr->Box();      gr->Plot(y.SubData(-1,0));
+       gr->Text(y,"This is very very long string drawn along a curve","k");
+       gr->Text(y,"Another string drawn above a curve","Tr");
+
+       gr->SubPlot(2,2,3,"");
+       gr->Line(mglPoint(-1,-1),mglPoint(1,-1),"rA");  gr->Puts(mglPoint(0,-1),mglPoint(1,-1),"Horizontal");
+       gr->Line(mglPoint(-1,-1),mglPoint(1,1),"rA");   gr->Puts(mglPoint(0,0),mglPoint(1,1),"At angle","@");
+       gr->Line(mglPoint(-1,-1),mglPoint(-1,1),"rA");  gr->Puts(mglPoint(-1,0),mglPoint(-1,1),"Vertical");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_fonts="define d 0.25\nloadfont 'STIX':text 0 1.1 'default font (STIX)'\nloadfont 'adventor':text 0 1.1-d 'adventor font'\n"
+"loadfont 'bonum':text 0 1.1-2*d 'bonum font'\nloadfont 'chorus':text 0 1.1-3*d 'chorus font'\nloadfont 'cursor':text 0 1.1-4*d 'cursor font'\n"
+"loadfont 'heros':text 0 1.1-5*d 'heros font'\nloadfont 'heroscn':text 0 1.1-6*d 'heroscn font'\nloadfont 'pagella':text 0 1.1-7*d 'pagella font'\n"
+"loadfont 'schola':text 0 1.1-8*d 'schola font'\nloadfont 'termes':text 0 1.1-9*d 'termes font'\nloadfont ''\n";
+void smgl_fonts(mglGraph *gr)  // font typefaces
+{
+       double h=1.1, d=0.25;
+       gr->LoadFont("STIX");           gr->Puts(mglPoint(0,h), "default font (STIX)");
+       gr->LoadFont("adventor");       gr->Puts(mglPoint(0,h-d), "adventor font");
+       gr->LoadFont("bonum");          gr->Puts(mglPoint(0,h-2*d), "bonum font");
+       gr->LoadFont("chorus");         gr->Puts(mglPoint(0,h-3*d), "chorus font");
+       gr->LoadFont("cursor");         gr->Puts(mglPoint(0,h-4*d), "cursor font");
+       gr->LoadFont("heros");          gr->Puts(mglPoint(0,h-5*d), "heros font");
+       gr->LoadFont("heroscn");        gr->Puts(mglPoint(0,h-6*d), "heroscn font");
+       gr->LoadFont("pagella");        gr->Puts(mglPoint(0,h-7*d), "pagella font");
+       gr->LoadFont("schola");         gr->Puts(mglPoint(0,h-8*d), "schola font");
+       gr->LoadFont("termes");         gr->Puts(mglPoint(0,h-9*d), "termes font");
+       gr->LoadFont("");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_bars="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0\n"
+"subplot 3 2 0 '':title 'Bars plot (default)':box:bars ys\nsubplot 3 2 1 '':title '2 colors':box:bars ys 'cbgGyr'\n"
+"subplot 3 2 4 '':title '\"\\#\" style':box:bars ys '#'\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 3 2 5:title '3d variant':rotate 50 60:box:bars xc yc z 'r'\n"
+"ranges -1 1 -3 3:subplot 3 2 2 '':title '\"a\" style':box:bars ys 'a'\nsubplot 3 2 3 '':title '\"f\" style':box:bars ys 'f'\n";
+void smgl_bars(mglGraph *gr)
+{
+       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+       gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(3,2,0,"");  gr->Title("Bars plot (default)");       }
+       gr->Box();      gr->Bars(ys);
+       if(mini)        return;
+       gr->SubPlot(3,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Bars(ys,"cbgGyr");
+       gr->SubPlot(3,2,4,"");  gr->Title("'\\#' style");       gr->Box();      gr->Bars(ys,"#");
+       gr->SubPlot(3,2,5);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       gr->Bars(xc,yc,z,"r");
+       gr->SetRanges(-1,1,-3,3);       // increase range since summation can exceed [-1,1]
+       gr->SubPlot(3,2,2,"");  gr->Title("'a' style"); gr->Box();      gr->Bars(ys,"a");
+       gr->SubPlot(3,2,3,"");  gr->Title("'f' style"); gr->Box();      gr->Bars(ys,"f");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_barh="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0\n"
+"subplot 2 2 0 '':title 'Barh plot (default)':box:barh ys\nsubplot 2 2 1 '':title '2 colors':box:barh ys 'cbgGyr'\n"
+"ranges -3 3 -1 1:subplot 2 2 2 '':title '\"a\" style':box:barh ys 'a'\nsubplot 2 2 3 '': title '\"f\" style':box:barh ys 'f'\n";
+void smgl_barh(mglGraph *gr)
+{
+       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+       gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Barh plot (default)");       }
+       gr->Box();      gr->Barh(ys);
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Barh(ys,"cbgGyr");
+       gr->SetRanges(-3,3,-1,1);       // increase range since summation can exceed [-1,1]
+       gr->SubPlot(2,2,2,"");  gr->Title("'a' style"); gr->Box();      gr->Barh(ys,"a");
+       gr->SubPlot(2,2,3,"");  gr->Title("'f' style"); gr->Box();      gr->Barh(ys,"f");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_area="call 'prepare1d'\norigin 0 0 0\nsubplot 2 2 0 '':title 'Area plot (default)':box:area y\n"
+"subplot 2 2 1 '':title '2 colors':box:area y 'cbgGyr'\nsubplot 2 2 2 '':title '\"!\" style':box:area y '!'\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 3:title '3d variant':rotate 50 60:box:area xc yc z 'r'\n";
+void smgl_area(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Area plot (default)");       }
+       gr->Box();      gr->Area(y);
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Area(y,"cbgGyr");
+       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Area(y,"!");
+       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       gr->Area(xc,yc,z,"r");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_plot="call 'prepare1d'\nsubplot 2 2 0 '':title 'Plot plot (default)':box:plot y\n"
+"subplot 2 2 2 '':title ''!' style; 'rgb' palette':box:plot y 'o!rgb'\nsubplot 2 2 3 '':title 'just markers':box:plot y ' +'\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:plot xc yc z 'rs'\n";
+void smgl_plot(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Plot plot (default)");       }
+       gr->Box();      gr->Plot(y);
+       if(mini)        return;
+       gr->SubPlot(2,2,2,"");  gr->Title("'!' style; 'rgb' palette");  gr->Box();      gr->Plot(y,"o!rgb");
+       gr->SubPlot(2,2,3,"");  gr->Title("just markers");      gr->Box();      gr->Plot(y," +");
+       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       gr->Plot(xc,yc,z,"rs");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_tens="call 'prepare1d'\nsubplot 2 2 0 '':title 'Tens plot (default)':box:tens y(:,0) y(:,1)\n"
+"subplot 2 2 2 '':title '" " style':box:tens y(:,0) y(:,1) 'o '\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\n"
+"subplot 2 2 1:title '3d variant':rotate 50 60:box:tens xc yc z z 's'\n";
+void smgl_tens(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tens plot (default)");       }
+       gr->Box();      gr->Tens(y.SubData(-1,0), y.SubData(-1,1));
+       if(mini)        return;
+       gr->SubPlot(2,2,2,"");  gr->Title("' ' style"); gr->Box();      gr->Tens(y.SubData(-1,0), y.SubData(-1,1),"o ");
+       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       gr->Tens(xc,yc,z,z,"s");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_region="call 'prepare1d'\ncopy y1 y(:,1):copy y2 y(:,2)\n"
+"subplot 2 2 0 '':title 'Region plot (default)':box:region y1 y2:plot y1 'k2':plot y2 'k2'\n"
+"subplot 2 2 1 '':title '2 colors':box:region y1 y2 'yr':plot y1 'k2':plot y2 'k2'\n"
+"subplot 2 2 2 '':title '\"!\" style':box:region y1 y2 '!':plot y1 'k2':plot y2 'k2'\n"
+"subplot 2 2 3 '':title '\"i\" style':box:region y1 y2 'ir':plot y1 'k2':plot y2 'k2'\n";
+void smgl_region(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);
+       mglData y1 = y.SubData(-1,1), y2 = y.SubData(-1,2);     gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Region plot (default)");     }
+       gr->Box();      gr->Region(y1,y2);      gr->Plot(y1,"k2");      gr->Plot(y2,"k2");
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("2 colors");  gr->Box();      gr->Region(y1,y2,"yr"); gr->Plot(y1,"k2");      gr->Plot(y2,"k2");
+       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Region(y1,y2,"!");  gr->Plot(y1,"k2");      gr->Plot(y2,"k2");
+       gr->SubPlot(2,2,3,"");  gr->Title("'i' style"); gr->Box();      gr->Region(y1,y2,"ir"); gr->Plot(y1,"k2");      gr->Plot(y2,"k2");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_stem="call 'prepare1d'\norigin 0 0 0:subplot 2 2 0 '':title 'Stem plot (default)':box:stem y\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:stem xc yc z 'rx'\n"
+"subplot 2 2 2 '':title '\"!\" style':box:stem y 'o!rgb'\n";
+void smgl_stem(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Stem plot (default)");       }
+       gr->Box();      gr->Stem(y);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);
+       gr->Box();      gr->Stem(xc,yc,z,"rx");
+       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Stem(y,"o!rgb");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_step="call 'prepare1d'\norigin 0 0 0:subplot 2 2 0 '':title 'Step plot (default)':box:step y\n"
+"new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'\nsubplot 2 2 1:title '3d variant':rotate 50 60:box:step xc yc z 'r'\n"
+"subplot 2 2 2 '':title '\"!\" style':box:step y 's!rgb'\n";
+void smgl_step(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);     gr->SetOrigin(0,0,0);
+       mglData yc(30), xc(30), z(30);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Step plot (default)");       }
+       gr->Box();      gr->Step(y);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("3d variant");        gr->Rotate(50,60);
+       gr->Box();      gr->Step(xc,yc,z,"r");
+       gr->SubPlot(2,2,2,"");  gr->Title("'!' style"); gr->Box();      gr->Step(y,"s!rgb");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_boxplot="new a 10 7 '(2*rnd-1)^3/2'\nsubplot 1 1 0 '':title 'Boxplot plot':box:boxplot a";
+void smgl_boxplot(mglGraph *gr)        // flow threads and density plot
+{
+       mglData a(10,7);        a.Modify("(2*rnd-1)^3/2");
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Boxplot plot");      }
+       gr->Box();      gr->BoxPlot(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_type0="call 'prepare2d'\nalpha on:light on:transptype 0:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"
+"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"
+"subplot 2 2 3:rotate 50 60:axial a:box";
+void smgl_type0(mglGraph *gr)  // TranspType = 0
+{
+       gr->Alpha(true);        gr->Light(true);
+       mglData a;      mgls_prepare2d(&a);
+       gr->SetTranspType(0);   gr->Clf();
+       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();
+       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();
+       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();
+       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_type1="call 'prepare2d'\nalpha on:light on:transptype 1:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"
+"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"
+"subplot 2 2 3:rotate 50 60:axial a:box";
+void smgl_type1(mglGraph *gr)  // TranspType = 1
+{
+       gr->Alpha(true);        gr->Light(true);
+       mglData a;      mgls_prepare2d(&a);
+       gr->SetTranspType(1);   gr->Clf();
+       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();
+       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();
+       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();
+       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_type2="call 'prepare2d'\nalpha on:light on:transptype 2:clf\nsubplot 2 2 0:rotate 50 60:surf a:box\n"
+"subplot 2 2 1:rotate 50 60:dens a:box\nsubplot 2 2 2:rotate 50 60:cont a:box\n"
+"subplot 2 2 3:rotate 50 60:axial a:box";
+void smgl_type2(mglGraph *gr)  // TranspType = 2
+{
+       gr->Alpha(true);        gr->Light(true);
+       mglData a;      mgls_prepare2d(&a);
+       gr->SetTranspType(2);   gr->Clf();
+       gr->SubPlot(2,2,0);     gr->Rotate(50,60);      gr->Surf(a);    gr->Box();
+       gr->SubPlot(2,2,1);     gr->Rotate(50,60);      gr->Dens(a);    gr->Box();
+       gr->SubPlot(2,2,2);     gr->Rotate(50,60);      gr->Cont(a);    gr->Box();
+       gr->SubPlot(2,2,3);     gr->Rotate(50,60);      gr->Axial(a);   gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_molecule="alpha on:light on\n"
+"subplot 2 2 0 '':title 'Methane, CH_4':rotate 60 120\n"
+"sphere 0 0 0 0.25 'k':drop 0 0 0 0 0 1 0.35 'h' 1 2:sphere 0 0 0.7 0.25 'g'\n"
+"drop 0 0 0 -0.94 0 -0.33 0.35 'h' 1 2:sphere -0.66 0 -0.23 0.25 'g'\n"
+"drop 0 0 0 0.47 0.82 -0.33 0.35 'h' 1 2:sphere 0.33 0.57 -0.23 0.25 'g'\n"
+"drop 0 0 0 0.47 -0.82 -0.33 0.35 'h' 1 2:sphere 0.33 -0.57 -0.23 0.25 'g'\n"
+"subplot 2 2 1 '':title 'Water, H{_2}O':rotate 60 100\n"
+"sphere 0 0 0 0.25 'r':drop 0 0 0 0.3 0.5 0 0.3 'm' 1 2:sphere 0.3 0.5 0 0.25 'g'\n"
+"drop 0 0 0 0.3 -0.5 0 0.3 'm' 1 2:sphere 0.3 -0.5 0 0.25 'g'\n"
+"subplot 2 2 2 '':title 'Oxygen, O_2':rotate 60 120\n"
+"drop 0 0.5 0 0 -0.3 0 0.3 'm' 1 2:sphere 0 0.5 0 0.25 'r'\n"
+"drop 0 -0.5 0 0 0.3 0 0.3 'm' 1 2:sphere 0 -0.5 0 0.25 'r'\n"
+"subplot 2 2 3 '':title 'Ammonia, NH_3':rotate 60 120\n"
+"sphere 0 0 0 0.25 'b':drop 0 0 0 0.33 0.57 0 0.32 'n' 1 2\n"
+"sphere 0.33 0.57 0 0.25 'g':drop 0 0 0 0.33 -0.57 0 0.32 'n' 1 2\n"
+"sphere 0.33 -0.57 0 0.25 'g':drop 0 0 0 -0.65 0 0 0.32 'n' 1 2\n"
+"sphere -0.65 0 0 0.25 'g'\n";
+void smgl_molecule(mglGraph *gr)       // example of moleculas
+{
+       gr->VertexColor(false); gr->Compression(false); // per-vertex colors and compression are detrimental to transparency
+       gr->DoubleSided(false); // we do not get into atoms, while rendering internal surface has negative impact on trasparency
+       gr->Alpha(true);        gr->Light(true);
+
+       gr->SubPlot(2,2,0,"");  gr->Title("Methane, CH_4");
+       gr->StartGroup("Methane");
+       gr->Rotate(60,120);
+       gr->Sphere(mglPoint(0,0,0),0.25,"k");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0,0,1),0.35,"h",1,2);
+       gr->Sphere(mglPoint(0,0,0.7),0.25,"g");
+       gr->Drop(mglPoint(0,0,0),mglPoint(-0.94,0,-0.33),0.35,"h",1,2);
+       gr->Sphere(mglPoint(-0.66,0,-0.23),0.25,"g");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.47,0.82,-0.33),0.35,"h",1,2);
+       gr->Sphere(mglPoint(0.33,0.57,-0.23),0.25,"g");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.47,-0.82,-0.33),0.35,"h",1,2);
+       gr->Sphere(mglPoint(0.33,-0.57,-0.23),0.25,"g");
+       gr->EndGroup();
+
+       gr->SubPlot(2,2,1,"");  gr->Title("Water, H_{2}O");
+       gr->StartGroup("Water");
+       gr->Rotate(60,100);
+       gr->StartGroup("Water_O");
+       gr->Sphere(mglPoint(0,0,0),0.25,"r");
+       gr->EndGroup();
+       gr->StartGroup("Water_Bond_1");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.3,0.5,0),0.3,"m",1,2);
+       gr->EndGroup();
+       gr->StartGroup("Water_H_1");
+       gr->Sphere(mglPoint(0.3,0.5,0),0.25,"g");
+       gr->EndGroup();
+       gr->StartGroup("Water_Bond_2");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.3,-0.5,0),0.3,"m",1,2);
+       gr->EndGroup();
+       gr->StartGroup("Water_H_2");
+       gr->Sphere(mglPoint(0.3,-0.5,0),0.25,"g");
+       gr->EndGroup();
+       gr->EndGroup();
+
+       gr->SubPlot(2,2,2,"");  gr->Title("Oxygen, O_2");
+       gr->StartGroup("Oxygen");
+       gr->Rotate(60,120);
+       gr->Drop(mglPoint(0,0.5,0),mglPoint(0,-0.3,0),0.3,"m",1,2);
+       gr->Sphere(mglPoint(0,0.5,0),0.25,"r");
+       gr->Drop(mglPoint(0,-0.5,0),mglPoint(0,0.3,0),0.3,"m",1,2);
+       gr->Sphere(mglPoint(0,-0.5,0),0.25,"r");
+       gr->EndGroup();
+
+       gr->SubPlot(2,2,3,"");  gr->Title("Ammonia, NH_3");
+       gr->StartGroup("Ammonia");
+       gr->Rotate(60,120);
+       gr->Sphere(mglPoint(0,0,0),0.25,"b");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.33,0.57,0),0.32,"n",1,2);
+       gr->Sphere(mglPoint(0.33,0.57,0),0.25,"g");
+       gr->Drop(mglPoint(0,0,0),mglPoint(0.33,-0.57,0),0.32,"n",1,2);
+       gr->Sphere(mglPoint(0.33,-0.57,0),0.25,"g");
+       gr->Drop(mglPoint(0,0,0),mglPoint(-0.65,0,0),0.32,"n",1,2);
+       gr->Sphere(mglPoint(-0.65,0,0),0.25,"g");
+       gr->EndGroup();
+       gr->DoubleSided( true ); // put back
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_error="call 'prepare1d'\nnew y 50 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2)'\n"
+"new x0 10 'x + 0.1*rnd-0.05':new ex 10 '0.1':new ey 10 '0.2'\n"
+"new y0 10 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2) + 0.2*rnd-0.1'\n"
+"subplot 2 2 0 '':title 'Error plot (default)':box:plot y:error x0 y0 ex ey 'k'\n"
+"subplot 2 2 1 '':title '\"!\" style; no e_x':box:plot y:error x0 y0 ey 'o!rgb'\n"
+"subplot 2 2 2 '':title '\"\\@\" style':alpha on:box:plot y:error x0 y0 ex ey '@'; alpha 0.5\n"
+"subplot 2 2 3:title '3d variant':rotate 50 60:axis\n"
+"for $1 0 9\n\terrbox 2*rnd-1 2*rnd-1 2*rnd-1 0.2 0.2 0.2 'bo'\nnext\n";
+void smgl_error(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);
+       mglData x0(10), y0(10), ex0(10), ey0(10);
+       double x;
+       for(int i=0;i<10;i++)
+       {
+               x = i/9.;
+               x0.a[i] = 2*x-1 + 0.1*mgl_rnd()-0.05;
+               y0.a[i] = 0.7*sin(2*M_PI*x)+0.5*cos(3*M_PI*x)+0.2*sin(M_PI*x)+0.2*mgl_rnd()-0.1;
+               ey0.a[i]=0.2;   ex0.a[i]=0.1;
+       }
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Error plot (default)");      }
+       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ex0,ey0,"ko");
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("'!' style; no e_x");
+       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ey0,"o!rgb");
+       gr->SubPlot(2,2,2,"");  gr->Title("'\\@' style");       gr->Alpha(true);
+       gr->Box();      gr->Plot(y.SubData(-1,0));      gr->Error(x0,y0,ex0,ey0,"@","alpha 0.5");
+       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);
+       for(int i=0;i<10;i++)
+               gr->Error(mglPoint(2*mgl_rnd()-1,2*mgl_rnd()-1,2*mgl_rnd()-1), mglPoint(0.2,0.2,0.2),"bo");
+       gr->Axis();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_chart="new ch 7 2 'rnd+0.1':light on\n"
+"subplot 2 2 0:title 'Chart plot (default)':rotate 50 60:box:chart ch\n"
+"subplot 2 2 1:title '\"\\#\" style':rotate 50 60:box:chart ch '#'\n"
+"subplot 2 2 2:title 'Pie chart; \" \" color':rotate 50 60:\n"
+"axis '(y+1)/2*cos(pi*x)' '(y+1)/2*sin(pi*x)' '':box:chart ch 'bgr cmy#'\n"
+"subplot 2 2 3:title 'Ring chart; \" \" color':rotate 50 60:\n"
+"axis '(y+2)/3*cos(pi*x)' '(y+2)/3*sin(pi*x)' '':box:chart ch 'bgr cmy#'\n";
+void smgl_chart(mglGraph *gr)
+{
+       mglData ch(7,2);        for(int i=0;i<7*2;i++)  ch.a[i]=mgl_rnd()+0.1;
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Chart plot (default)");      }
+       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Chart(ch);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'\\#' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"#");
+       gr->SubPlot(2,2,2);     gr->Title("Pie chart; ' ' color");
+       gr->SetFunc("(y+1)/2*cos(pi*x)","(y+1)/2*sin(pi*x)","");
+       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"bgr cmy#");
+       gr->SubPlot(2,2,3);     gr->Title("Ring chart; ' ' color");
+       gr->SetFunc("(y+2)/3*cos(pi*x)","(y+2)/3*sin(pi*x)","");
+       gr->Rotate(50,60);      gr->Box();      gr->Chart(ch,"bgr cmy#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_mark="call 'prepare1d'\nsubplot 1 1 0 '':title 'Mark plot (default)':box:mark y y1 's'\n";
+void smgl_mark(mglGraph *gr)
+{
+       mglData y,y1;   mgls_prepare1d(&y,&y1);
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Mark plot (default)");       }
+       gr->Box();      gr->Mark(y,y1,"s");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_radar="new yr 10 3 '0.4*sin(pi*(x+1.5+y/2)+0.1*rnd)'\n"
+"subplot 1 1 0 '':title 'Radar plot (with grid, \"\\#\")':radar yr '#'\n";
+void smgl_radar(mglGraph *gr)
+{
+       mglData yr(10,3);       yr.Modify("0.4*sin(pi*(2*x+y))+0.1*rnd");
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Radar plot (with grid, '\\#')");     }
+       gr->Radar(yr,"#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_candle="new y 30 'sin(pi*x/2)^2':copy y1 y/2:copy y2 (y+1)/2\n"
+"subplot 1 1 0 '':title 'Candle plot (default)'\nyrange 0 1:box:candle y y1 y2\n";
+void smgl_candle(mglGraph *gr)
+{
+       mglData y(30);  gr->Fill(y,"sin(pi*x/2)^2");
+       mglData y1(30); gr->Fill(y1,"v/2",y);
+       mglData y2(30); gr->Fill(y2,"(1+v)/2",y);
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Candle plot (default)");     }
+       gr->SetRange('y',0,1);  gr->Box();      gr->Candle(y,y1,y2);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_textmark="call 'prepare1d'\nsubplot 1 1 0 '':title 'TextMark plot (default)':box:textmark y y1 '\\gamma' 'r'\n";
+void smgl_textmark(mglGraph *gr)
+{
+       mglData y,y1;   mgls_prepare1d(&y,&y1);
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("TextMark plot (default)");   }
+       gr->Box();      gr->TextMark(y,y1,"\\gamma","r");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_tube="call 'prepare1d'\nlight on\n"
+"new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x':divto y1 20\n"
+"subplot 2 2 0 '':title 'Tube plot (default)':box:tube y 0.05\n"
+"subplot 2 2 1 '':title 'variable radius':box:tube y y1\n"
+"subplot 2 2 2 '':title '\"\\#\" style':box:tube y 0.05 '#'\n"
+"subplot 2 2 3:title '3d variant':rotate 50 60:box:tube xc yc z y2 'r'\n";
+void smgl_tube(mglGraph *gr)
+{
+       mglData y,y1,y2;        mgls_prepare1d(&y,&y1,&y2);     y1/=20;
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tube plot (default)");       }
+       gr->Light(true);        gr->Box();      gr->Tube(y,0.05);
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("variable radius");   gr->Box();      gr->Tube(y,y1);
+       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Tube(y,0.05,"#");
+       mglData yc(50), xc(50), z(50);  z.Modify("2*x-1");
+       yc.Modify("sin(pi*(2*x-1))");   xc.Modify("cos(pi*2*x-pi)");
+       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);      gr->Box();      gr->Tube(xc,yc,z,y2,"r");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_tape="call 'prepare1d'\nnew yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x'\n"
+"subplot 2 2 0 '':title 'Tape plot (default)':box:tape y:plot y 'k'\n"
+"subplot 2 2 1:title '3d variant, 2 colors':rotate 50 60:light on\n"
+"box:plot xc yc z 'k':tape xc yc z 'rg'\n"
+"subplot 2 2 2:title '3d variant, x only':rotate 50 60\n"
+"box:plot xc yc z 'k':tape xc yc z 'xr':tape xc yc z 'xr#'\n"
+"subplot 2 2 3:title '3d variant, z only':rotate 50 60\n"
+"box:plot xc yc z 'k':tape xc yc z 'zg':tape xc yc z 'zg#'\n";
+void smgl_tape(mglGraph *gr)
+{
+       mglData y;      mgls_prepare1d(&y);
+       mglData xc(50), yc(50), z(50);
+       yc.Modify("sin(pi*(2*x-1))");
+       xc.Modify("cos(pi*2*x-pi)");    z.Fill(-1,1);
+       if(!mini)       {       gr->SubPlot(2,2,0,"");  gr->Title("Tape plot (default)");       }
+       gr->Box();      gr->Tape(y);    gr->Plot(y,"k");
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("3d variant, 2 colors");      gr->Rotate(50,60);      gr->Light(true);
+       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"rg");
+       gr->SubPlot(2,2,2);     gr->Title("3d variant, x only");        gr->Rotate(50,60);
+       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"xr"); gr->Tape(xc,yc,z,"xr#");
+       gr->SubPlot(2,2,3);     gr->Title("3d variant, z only");        gr->Rotate(50,60);
+       gr->Box();      gr->Plot(xc,yc,z,"k");  gr->Tape(xc,yc,z,"zg"); gr->Tape(xc,yc,z,"zg#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_fog="call 'prepare2d'\ntitle 'Fog sample':rotate 50 60:light on:fog 1\nbox:surf a\n";
+void smgl_fog(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Fog sample");
+       gr->Light(true);        gr->Rotate(50,60);      gr->Fog(1);     gr->Box();
+       gr->Surf(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_map="new a 50 40 'x':new b 50 40 'y':zrange -2 2:text 0 0 '\\to'\n"
+"subplot 2 1 0:text 0 1.1 '\\{x, y\\}' '' -2:box:map a b 'brgk' 0 0\n"
+"subplot 2 1 1:text 0 1.1 '\\{\\frac{x^3+y^3}{2}, \\frac{x-y}{2}\\}' '' -2\n"
+"box:fill a '(x^3+y^3)/2':fill b '(x-y)/2':map a b 'brgk' 0 0\n";
+void smgl_map(mglGraph *gr)    // example of mapping
+{
+       mglData a(50, 40), b(50, 40);
+       gr->Puts(mglPoint(0, 0), "\\to", ":C", -1.4);
+       gr->SetRanges(-1,1,-1,1,-2,2);
+
+       gr->SubPlot(2, 1, 0);
+       gr->Fill(a,"x");        gr->Fill(b,"y");
+       gr->Puts(mglPoint(0, 1.1), "\\{x, y\\}", ":C", -2);             gr->Box();
+       gr->Map(a, b, "brgk");
+
+       gr->SubPlot(2, 1, 1);
+       gr->Fill(a,"(x^3+y^3)/2");      gr->Fill(b,"(x-y)/2");
+       gr->Puts(mglPoint(0, 1.1), "\\{\\frac{x^3+y^3}{2}, \\frac{x-y}{2}\\}", ":C", -2);
+       gr->Box();
+       gr->Map(a, b, "brgk");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_stfa="new a 2000:new b 2000\nfill a 'cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+\\\n"
+"cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)'\n"
+"subplot 1 2 0 '<_':title 'Initial signal':plot a:axis:xlabel '\\i t'\n"
+"subplot 1 2 1 '<_':title 'STFA plot':stfa a b 64:axis:ylabel '\\omega' 0:xlabel '\\i t'\n";
+void smgl_stfa(mglGraph *gr)   // STFA sample
+{
+       mglData a(2000), b(2000);
+       gr->Fill(a,"cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+\
+       cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)");
+       gr->SubPlot(1, 2, 0,"<_");      gr->Title("Initial signal");
+       gr->Plot(a);
+       gr->Axis();
+       gr->Label('x', "\\i t");
+
+       gr->SubPlot(1, 2, 1,"<_");      gr->Title("STFA plot");
+       gr->STFA(a, b, 64);
+       gr->Axis();
+       gr->Label('x', "\\i t");
+       gr->Label('y', "\\omega", 0);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_qo2d="define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'\n"
+"subplot 1 1 0 '<_':title 'Beam and ray tracing'\n"
+"ray r $1 -0.7 -1 0 0 0.5 0 0.02 2:plot r(0) r(1) 'k'\naxis:xlabel '\\i x':ylabel '\\i z'\n"
+"new re 128 'exp(-48*x^2)':new im 128\nnew xx 1:new yy 1\nqo2d a $1 re im r 1 30 xx yy\n"
+"crange 0 1:dens xx yy a 'wyrRk':fplot '-x' 'k|'\n"
+"text 0 0.85 'absorption: (x+y)/2 for x+y>0'\ntext 0.7 -0.05 'central ray'";
+void smgl_qo2d(mglGraph *gr)
+{
+       mglData r, xx, yy, a, im(128), re(128);
+       const char *ham = "p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)";
+       r = mglRay(ham, mglPoint(-0.7, -1), mglPoint(0, 0.5), 0.02, 2);
+       if(!mini)       {gr->SubPlot(1,1,0,"<_");       gr->Title("Beam and ray tracing");}
+       gr->Plot(r.SubData(0), r.SubData(1), "k");
+       gr->Axis();     gr->Label('x', "\\i x");        gr->Label('y', "\\i y");
+       // now start beam tracing
+       gr->Fill(re,"exp(-48*x^2)");
+       a = mglQO2d(ham, re, im, r, xx, yy, 1, 30);
+       gr->SetRange('c',0, 1);
+       gr->Dens(xx, yy, a, "wyrRk");
+       gr->FPlot("-x", "k|");
+       gr->Puts(mglPoint(0, 0.85), "absorption: (x+y)/2 for x+y>0");
+       gr->Puts(mglPoint(0.7, -0.05), "central ray");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_pde="new re 128 'exp(-48*(x+0.7)^2)':new im 128\n"
+"pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01 30\ntranspose a\n"
+"subplot 1 1 0 '<_':title 'PDE solver'\n"
+"axis:xlabel '\\i x':ylabel '\\i z'\ncrange 0 1:dens a 'wyrRk'\n"
+"fplot '-x' 'k|'\n"
+"text 0 0.95 'Equation: ik_0\\partial_zu + \\Delta u + x\\cdot u + i \\frac{x+z}{2}\\cdot u = 0\\n{}absorption: (x+z)/2 for x+z>0'";
+void smgl_pde(mglGraph *gr)    // PDE sample
+{
+       mglData a,re(128),im(128);
+       gr->Fill(re,"exp(-48*(x+0.7)^2)");
+       a = gr->PDE("p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)", re, im, 0.01, 30);
+       a.Transpose("yxz");
+       if(!mini)       {gr->SubPlot(1,1,0,"<_");       gr->Title("PDE solver");        }
+       gr->SetRange('c',0,1);  gr->Dens(a,"wyrRk");
+       gr->Axis();     gr->Label('x', "\\i x");        gr->Label('y', "\\i z");
+       gr->FPlot("-x", "k|");
+       gr->Puts(mglPoint(0, 0.95), "Equation: ik_0\\partial_zu + \\Delta u + x\\cdot u + i \\frac{x+z}{2}\\cdot u = 0\nabsorption: (x+z)/2 for x+z>0");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_conta="call 'prepare3d'\ntitle 'Cont3 sample':rotate 50 60:box\ncont3 c 'x':cont3 c:cont3 c 'z'";
+void smgl_conta(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("Cont3 sample");
+       gr->Rotate(50,60);      gr->Box();
+       gr->Cont3(c,"x");       gr->Cont3(c);   gr->Cont3(c,"z");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_contfa="call 'prepare3d'\ntitle 'Cont3 sample':rotate 50 60:box:light on\n"
+"contf3 c 'x':contf3 c:contf3 c 'z'\ncont3 c 'xk':cont3 c 'k':cont3 c 'zk'\n";
+void smgl_contfa(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("ContF3 sample");
+       gr->Rotate(50,60);      gr->Light(true);        gr->Box();
+       gr->ContF3(c,"x");      gr->ContF3(c);          gr->ContF3(c,"z");
+       gr->Cont3(c,"kx");      gr->Cont3(c,"k");       gr->Cont3(c,"kz");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_densa="call 'prepare3d'\ntitle 'Dens3 sample':rotate 50 60:alpha on:alphadef 0.7\n"
+"origin 0 0 0:box:axis '_xyz'\ndens3 c 'x':dens3 c ':y':dens3 c 'z'";
+void smgl_densa(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("Dens3 sample");
+       gr->Rotate(50,60);      gr->Alpha(true);        gr->SetAlphaDef(0.7);
+       gr->SetOrigin(0,0,0);   gr->Axis("_xyz");       gr->Box();
+       gr->Dens3(c,"x");       gr->Dens3(c);   gr->Dens3(c,"z");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dens_xyz="call 'prepare3d'\ntitle 'Dens[XYZ] sample':rotate 50 60:box\n"
+"densx {sum c 'x'} '' -1:densy {sum c 'y'} '' 1:densz {sum c 'z'} '' -1";
+void smgl_dens_xyz(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("Dens[XYZ] sample");
+       gr->Rotate(50,60);      gr->Box();      gr->DensX(c.Sum("x"),0,-1);
+       gr->DensY(c.Sum("y"),0,1);              gr->DensZ(c.Sum("z"),0,-1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_cont_xyz="call 'prepare3d'\ntitle 'Cont[XYZ] sample':rotate 50 60:box\n"
+"contx {sum c 'x'} '' -1:conty {sum c 'y'} '' 1:contz {sum c 'z'} '' -1";
+void smgl_cont_xyz(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("Cont[XYZ] sample");
+       gr->Rotate(50,60);      gr->Box();      gr->ContX(c.Sum("x"),"",-1);
+       gr->ContY(c.Sum("y"),"",1);             gr->ContZ(c.Sum("z"),"",-1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_contf_xyz="call 'prepare3d'\ntitle 'ContF[XYZ] sample':rotate 50 60:box\n"
+"contfx {sum c 'x'} '' -1:contfy {sum c 'y'} '' 1:contfz {sum c 'z'} '' -1";
+void smgl_contf_xyz(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       gr->Title("ContF[XYZ] sample");
+       gr->Rotate(50,60);      gr->Box();      gr->ContFX(c.Sum("x"),"",-1);
+       gr->ContFY(c.Sum("y"),"",1);    gr->ContFZ(c.Sum("z"),"",-1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_cloud="call 'prepare3d'\nsubplot 2 2 0:title 'Cloud plot':rotate 50 60:alpha on:box:cloud c 'wyrRk'\n"
+"subplot 2 2 1:title '\"!\" style':rotate 50 60:box:cloud c '!wyrRk'\n"
+"subplot 2 2 2:title '\".\" style':rotate 50 60:box:cloud c '.wyrRk'\n"
+"subplot 2 2 3:title 'meshnum 10':rotate 50 60:box:cloud c 'wyrRk'; meshnum 10\n";
+void smgl_cloud(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cloud plot");        }
+       gr->Rotate(50,60);      gr->Alpha(true);
+       gr->Box();      gr->Cloud(c,"wyrRk");
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'!' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,"!wyrRk");
+       gr->SubPlot(2,2,2);     gr->Title("'.' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,".wyrRk");
+       gr->SubPlot(2,2,3);     gr->Title("meshnum 10");
+       gr->Rotate(50,60);      gr->Box();      gr->Cloud(c,"wyrRk","meshnum 10");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_cont="call 'prepare2d'\nlist v -0.5 -0.15 0 0.15 0.5\nsubplot 2 2 0:title 'Cont plot (default)':rotate 50 60:box:cont a\n"
+"subplot 2 2 1:title 'manual levels':rotate 50 60:box:cont v a\n"
+"subplot 2 2 2:title '\"\\_\" style':rotate 50 60:box:cont a '_'\n"
+"subplot 2 2 3 '':title '\"t\" style':box:cont a 't'\n";
+void smgl_cont(mglGraph *gr)
+{
+       mglData a,v(5); mgls_prepare2d(&a);     v.a[0]=-0.5;    v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cont plot (default)");       }
+       gr->Rotate(50,60);      gr->Box();      gr->Cont(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("manual levels");
+       gr->Rotate(50,60);      gr->Box();      gr->Cont(v,a);
+       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Cont(a,"_");
+       gr->SubPlot(2,2,3,"");  gr->Title("'t' style");
+       gr->Box();      gr->Cont(a,"t");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_contf="call 'prepare2d'\nlist v -0.5 -0.15 0 0.15 0.5\n"
+"new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'\n"
+"subplot 2 2 0:title 'ContF plot (default)':rotate 50 60:box:contf a\n"
+"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contf v a\n"
+"subplot 2 2 2:title '\"\\_\" style':rotate 50 60:box:contf a '_'\n"
+"subplot 2 2 3:title 'several slices':rotate 50 60:box:contf a1\n";
+void smgl_contf(mglGraph *gr)
+{
+       mglData a,v(5),a1(30,40,3);     mgls_prepare2d(&a);     v.a[0]=-0.5;
+       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;
+       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");
+
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContF plot (default)");      }
+       gr->Rotate(50,60);      gr->Box();      gr->ContF(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("manual levels");
+       gr->Rotate(50,60);      gr->Box();      gr->ContF(v,a);
+       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");
+       gr->Rotate(50,60);      gr->Box();      gr->ContF(a,"_");
+       gr->SubPlot(2,2,3);     gr->Title("several slices");
+       gr->Rotate(50,60);      gr->Box();      gr->ContF(a1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_contd="call 'prepare2d'\nlist v -0.5 -0.15 0 0.15 0.5\n"
+"new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'\n"
+"subplot 2 2 0:title 'ContD plot (default)':rotate 50 60:box:contd a\n"
+"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contd v a\n"
+"subplot 2 2 2:title '\"\\_\" style':rotate 50 60:box:contd a '_'\n"
+"subplot 2 2 3:title 'several slices':rotate 50 60:box:contd a1\n";
+void smgl_contd(mglGraph *gr)
+{
+       mglData a,v(5),a1(30,40,3);     mgls_prepare2d(&a);     v.a[0]=-0.5;
+       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;
+       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");
+
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContD plot (default)");      }
+       gr->Rotate(50,60);      gr->Box();      gr->ContD(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("manual levels");
+       gr->Rotate(50,60);      gr->Box();      gr->ContD(v,a);
+       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");
+       gr->Rotate(50,60);      gr->Box();      gr->ContD(a,"_");
+       gr->SubPlot(2,2,3);     gr->Title("several slices");
+       gr->Rotate(50,60);      gr->Box();      gr->ContD(a1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_contv="call 'prepare2d'\nlist v -0.5 -0.15 0 0.15 0.5\n"
+"subplot 2 2 0:title 'ContV plot (default)':rotate 50 60:box:contv a\n"
+"subplot 2 2 1:title 'manual levels':rotate 50 60:box:contv v a\n"
+"subplot 2 2 2:title '\"\\_\" style':rotate 50 60:box:contv a '_'\n"
+"subplot 2 2 3:title 'ContV and ContF':rotate 50 60:light on:box\ncontv a:contf a:cont a 'k'\n";
+void smgl_contv(mglGraph *gr)
+{
+       mglData a,v(5); mgls_prepare2d(&a);     v.a[0]=-0.5;
+       v.a[1]=-0.15;   v.a[2]=0;       v.a[3]=0.15;    v.a[4]=0.5;
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("ContV plot (default)");      }
+       gr->Rotate(50,60);      gr->Box();      gr->ContV(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("manual levels");
+       gr->Rotate(50,60);      gr->Box();      gr->ContV(v,a);
+       gr->SubPlot(2,2,2);     gr->Title("'\\_' style");
+       gr->Rotate(50,60);      gr->Box();      gr->ContV(a,"_");
+       gr->SubPlot(2,2,3);     gr->Title("ContV and ContF");
+       gr->Rotate(50,60);      gr->Box();      gr->Light(true);
+       gr->ContV(a);   gr->ContF(a);   gr->Cont(a,"k");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_torus="call 'prepare1d'\nsubplot 2 2 0:title 'Torus plot (default)':light on:rotate 50 60:box:torus y1 y2\n"
+"subplot 2 2 1:title '\"x\" style':light on:rotate 50 60:box:torus y1 y2 'x'\n"
+"subplot 2 2 2:title '\"z\" style':light on:rotate 50 60:box:torus y1 y2 'z'\n"
+"subplot 2 2 3:title '\"\\#\" style':light on:rotate 50 60:box:torus y1 y2 '#'\n";
+void smgl_torus(mglGraph *gr)
+{
+       mglData y1,y2;  mgls_prepare1d(0,&y1,&y2);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Torus plot (default)");      }
+       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'x' style"); gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"x");
+       gr->SubPlot(2,2,2);     gr->Title("'z' style"); gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"z");
+       gr->SubPlot(2,2,3);     gr->Title("'\\#' style");       gr->Rotate(50,60);      gr->Box();      gr->Torus(y1,y2,"#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_axial="call 'prepare2d'\nsubplot 2 2 0:title 'Axial plot (default)':light on:alpha on:rotate 50 60:box:axial a\n"
+"subplot 2 2 1:title '\"x\" style;\".\" style':light on:rotate 50 60:box:axial a 'x.'\n"
+"subplot 2 2 2:title '\"z\" style':light on:rotate 50 60:box:axial a 'z'\n"
+"subplot 2 2 3:title '\"\\#\" style':light on:rotate 50 60:box:axial a '#'\n";
+void smgl_axial(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Axial plot (default)");      }
+       gr->Light(true);        gr->Alpha(true);        gr->Rotate(50,60);      gr->Box();      gr->Axial(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'x' style; '.'style");       gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"x.");
+       gr->SubPlot(2,2,2);     gr->Title("'z' style"); gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"z");
+       gr->SubPlot(2,2,3);     gr->Title("'\\#' style");       gr->Rotate(50,60);      gr->Box();      gr->Axial(a,"#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_several_light="call 'prepare2d'\ntitle 'Several light sources':rotate 50 60:light on\n"
+"light 1 0 1 0 'c':light 2 1 0 0 'y':light 3 0 -1 0 'm'\nbox:surf a 'h'\n";
+void smgl_several_light(mglGraph *gr)  // several light sources
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Several light sources");
+       gr->Rotate(50,60);      gr->Light(true);        gr->AddLight(1,mglPoint(0,1,0),'c');
+       gr->AddLight(2,mglPoint(1,0,0),'y');    gr->AddLight(3,mglPoint(0,-1,0),'m');
+       gr->Box();      gr->Surf(a,"h");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surf3="call 'prepare3d'\nlight on:alpha on\n"
+"subplot 2 2 0:title 'Surf3 plot (default)'\nrotate 50 60:box:surf3 c"
+"subplot 2 2 1:title '\"\\#\" style'\nrotate 50 60:box:surf3 c '#'\n"
+"subplot 2 2 2:title '\".\" style'\nrotate 50 60:box:surf3 c '.'\n";
+void smgl_surf3(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Surf3 plot (default)");      }
+       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);
+       gr->Box();      gr->Surf3(c);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'\\#' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Surf3(c,"#");
+       gr->SubPlot(2,2,2);     gr->Title("'.' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Surf3(c,".");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surf3a="call 'prepare3d'\ntitle 'Surf3 plot':rotate 50 60:light on:alpha on:box:surf3a c d";
+void smgl_surf3a(mglGraph *gr)
+{
+       mglData c,d;    mgls_prepare3d(&c,&d);
+       if(!mini)       gr->Title("Surf3A plot");
+       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);
+       gr->Box();      gr->Surf3A(c,d);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surf3c="call 'prepare3d'\ntitle 'Surf3 plot':rotate 50 60:light on:alpha on:box:surf3c c d";
+void smgl_surf3c(mglGraph *gr)
+{
+       mglData c,d;    mgls_prepare3d(&c,&d);
+       if(!mini)       gr->Title("Surf3C plot");
+       gr->Rotate(50,60);      gr->Light(true);        gr->Alpha(true);
+       gr->Box();      gr->Surf3C(c,d);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_cut="call 'prepare2d'\ncall 'prepare3d'\nsubplot 2 2 0:title 'Cut on (default)':rotate 50 60:light on:box:surf a; zrange -1 0.5\n"
+"subplot 2 2 1:title 'Cut off':rotate 50 60:box:surf a; zrange -1 0.5; cut off\n"
+"subplot 2 2 2:title 'Cut in box':rotate 50 60:box:alpha on\ncut 0 -1 -1 1 0 1.1:surf3 c\ncut 0 0 0 0 0 0\t# restore back\n"
+"subplot 2 2 3:title 'Cut by formula':rotate 50 60:box\ncut '(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)':surf3 c";
+void smgl_cut(mglGraph *gr)    // cutting
+{
+       mglData a,c,v(1);       mgls_prepare2d(&a);     mgls_prepare3d(&c);     v.a[0]=0.5;
+       gr->SubPlot(2,2,0);     gr->Title("Cut on (default)");  gr->Rotate(50,60);      gr->Light(true);
+       gr->Box();      gr->Surf(a,"","zrange -1 0.5");
+       gr->SubPlot(2,2,1);     gr->Title("Cut off");           gr->Rotate(50,60);
+       gr->Box();      gr->Surf(a,"","zrange -1 0.5; cut off");
+       gr->SubPlot(2,2,2);     gr->Title("Cut in box");        gr->Rotate(50,60);
+       gr->SetCutBox(mglPoint(0,-1,-1), mglPoint(1,0,1.1));
+       gr->Alpha(true);        gr->Box();      gr->Surf3(c);
+       gr->SetCutBox(mglPoint(0), mglPoint(0));        // switch it off
+       gr->SubPlot(2,2,3);     gr->Title("Cut by formula");    gr->Rotate(50,60);
+       gr->CutOff("(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)");
+       gr->Box();      gr->Surf3(c);   gr->CutOff(""); // switch it off
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_traj="call 'prepare1d'\nsubplot 1 1 0 '':title 'Traj plot':box:plot x1 y:traj x1 y y1 y2\n";
+void smgl_traj(mglGraph *gr)
+{
+       mglData x,y,y1,y2;      mgls_prepare1d(&y,&y1,&y2,&x);
+       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Traj plot");}
+       gr->Box();      gr->Plot(x,y);  gr->Traj(x,y,y1,y2);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_mesh="call 'prepare2d'\ntitle 'Mesh plot':rotate 50 60:box:mesh a\n";
+void smgl_mesh(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Mesh plot");
+       gr->Rotate(50,60);      gr->Box();      gr->Mesh(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_fall="call 'prepare2d'\ntitle 'Fall plot':rotate 50 60:box:fall a\n";
+void smgl_fall(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Fall plot");
+       gr->Rotate(50,60);      gr->Box();      gr->Fall(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surf="call 'prepare2d'\nsubplot 2 2 0:title 'Surf plot (default)':rotate 50 60:light on:box:surf a\n"
+"subplot 2 2 1:title '\"\\#\" style; meshnum 10':rotate 50 60:box:surf a '#'; meshnum 10\n"
+"subplot 2 2 2:title '\".\" style':rotate 50 60:box:surf a '.'\n"
+"new x 50 40 '0.8*sin(pi*x)*sin(pi*(y+1)/2)'\nnew y 50 40 '0.8*cos(pi*x)*sin(pi*(y+1)/2)'\nnew z 50 40 '0.8*cos(pi*(y+1)/2)'\n"
+"subplot 2 2 3:title 'parametric form':rotate 50 60:box:surf x y z 'BbwrR'\n";
+void smgl_surf(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Surf plot (default)");       }
+       gr->Light(true);        gr->Rotate(50,60);      gr->Box();      gr->Surf(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'\\#' style; meshnum 10");
+       gr->Rotate(50,60);      gr->Box();      gr->Surf(a,"#","meshnum 10");
+       gr->SubPlot(2,2,2);     gr->Title("'.' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Surf(a,".");
+       gr->SubPlot(2,2,3);     gr->Title("parametric form");
+       mglData x(50,40),y(50,40),z(50,40);
+       gr->Fill(x,"0.8*sin(pi*x)*sin(pi*(y+1)/2)");
+       gr->Fill(y,"0.8*cos(pi*x)*sin(pi*(y+1)/2)");
+       gr->Fill(z,"0.8*cos(pi*(y+1)/2)");
+       gr->Rotate(50,60);      gr->Box();      gr->Surf(x,y,z,"BbwrR");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_parser="title 'MGL parser sample'\ncall 'sample'\nstop\nfunc 'sample'\n"
+"new dat 100 'sin(2*pi*(x+1))'\nplot dat; xrange 0 1\nbox\naxis\n"
+"xlabel 'x'\nylabel 'y'\nbox\nfor $0 -1 1 0.1\nif $0<0\n"
+"line 0 0 -1 $0 'r':else:line 0 0 -1 $0 'g'\nendif\nnext";
+void smgl_parser(mglGraph *gr) // example of MGL parsing
+{
+       gr->Title("MGL parser sample");
+       double a[100];   // let a_i = sin(4*pi*x), x=0...1
+       for(int i=0;i<100;i++)a[i]=sin(4*M_PI*i/99);
+       mglParse *parser = new mglParse;
+       mglData *d = parser->AddVar("dat");
+       d->Set(a,100); // set data to variable
+       parser->Execute(gr, "plot dat; xrange 0 1\nbox\naxis");
+       // you may break script at any line do something
+       // and continue after that
+       parser->Execute(gr, "xlabel 'x'\nylabel 'y'\nbox");
+       // also you may use cycles or conditions in script
+       parser->Execute(gr, "for $0 -1 1 0.1\nif $0<0\n"
+               "line 0 0 -1 $0 'r':else:line 0 0 -1 $0 'g'\n"
+               "endif\nnext");
+       delete parser;
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_belt="call 'prepare2d'\ntitle 'Belt plot':rotate 50 60:box:belt a\n";
+void smgl_belt(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Belt plot");
+       gr->Rotate(50,60);      gr->Box();      gr->Belt(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dens="call 'prepare2d'\nnew a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'\n"
+"subplot 2 2 0 '':title 'Dens plot (default)':box:dens a\n"
+"subplot 2 2 1:title '3d variant':rotate 50 60:box:dens a\n"
+"subplot 2 2 2 '':title '\"\\#\" style; meshnum 10':box:dens a '#'; meshnum 10\n"
+"subplot 2 2 3:title 'several slices':rotate 50 60:box:dens a1\n";
+void smgl_dens(mglGraph *gr)
+{
+       mglData a,a1(30,40,3);  mgls_prepare2d(&a);
+       gr->Fill(a1,"0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) + 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)");
+       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Dens plot (default)");}
+       gr->Box();      gr->Dens(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("3d variant");
+       gr->Rotate(50,60);      gr->Box();      gr->Dens(a);
+       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style; meshnum 10");
+       gr->Box();      gr->Dens(a,"#","meshnum 10");
+       gr->SubPlot(2,2,3);     gr->Title("several slices");
+       gr->Rotate(50,60);              gr->Box();      gr->Dens(a1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surfc="call 'prepare2d'\ntitle 'SurfC plot':rotate 50 60:light on:box:surfc a b\n";
+void smgl_surfc(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2d(&a,&b);
+       if(!mini)       gr->Title("SurfC plot");        gr->Rotate(50,60);
+       gr->Light(true);        gr->Box();      gr->SurfC(a,b);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_surfa="call 'prepare2d'\ntitle 'SurfA plot':rotate 50 60:light on:alpha on:box:surfa a b\n";
+void smgl_surfa(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2d(&a,&b);
+       if(!mini)       gr->Title("SurfA plot");        gr->Rotate(50,60);
+       gr->Alpha(true);        gr->Light(true);        gr->Box();      gr->SurfA(a,b);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_tile="call 'prepare2d'\ntitle 'Tile plot':rotate 50 60:box:tile a\n";
+void smgl_tile(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       gr->Title("Tile plot");
+       gr->Rotate(40,60);      gr->Box();      gr->Tile(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_tiles="call 'prepare2d'\nsubplot 1 1 0 '':title 'Tiles plot':box:tiles a b\n";
+void smgl_tiles(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2d(&a,&b);
+       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("TileS plot");}
+       gr->Box();      gr->TileS(a,b);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_boxs="call 'prepare2d'\norigin 0 0 0\nsubplot 2 2 0:title 'Boxs plot (default)':rotate 40 60:light on:box:boxs a\n"
+"subplot 2 2 1:title '\"\\@\" style':rotate 50 60:box:boxs a '@'\n"
+"subplot 2 2 2:title '\"\\#\" style':rotate 50 60:box:boxs a '#'\n"
+"subplot 2 2 3:title 'compare with Tile':rotate 50 60:box:tile a\n";
+void smgl_boxs(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       gr->SetOrigin(0,0,0);   gr->Light(true);
+       if(!mini)       {gr->SubPlot(2,2,0);    gr->Title("Boxs plot (default)");}
+       gr->Rotate(40,60);      gr->Box();      gr->Boxs(a);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("'\\@' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Boxs(a,"@");
+       gr->SubPlot(2,2,2);     gr->Title("'\\#' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Boxs(a,"#");
+       gr->SubPlot(2,2,3);     gr->Title("compare with Tile");
+       gr->Rotate(50,60);      gr->Box();      gr->Tile(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_fit="new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'\nnew in 100 '0.3+sin(2*pi*x)'\n"
+"list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini\n"
+"title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '\n"
+"plot res 'r':plot in 'b'\ntext -0.9 -1.3 'fitted:' 'r:L'\n"
+"putsfit 0 -1.8 'y = ' 'r':text 0 2.2 'initial: y = 0.3+sin(2\\pi x)' 'b'\n";
+void smgl_fit(mglGraph *gr)    // nonlinear fitting
+{
+       mglData rnd(100), in(100), res;
+       gr->Fill(rnd,"0.4*rnd+0.1+sin(2*pi*x)");
+       gr->Fill(in,"0.3+sin(2*pi*x)");
+       double ini[3] = {1,1,3};
+       mglData Ini(3,ini);
+       res = gr->Fit(rnd, "a+b*sin(c*x)", "abc", Ini);
+       if(!mini)       gr->Title("Fitting sample");
+       gr->SetRange('y',-2,2); gr->Box();      gr->Plot(rnd, ". ");
+       gr->Axis();             gr->Plot(res, "r");     gr->Plot(in, "b");
+       gr->Puts(mglPoint(-0.9, -1.3), "fitted:", "r:L");
+       gr->PutsFit(mglPoint(0, -1.8), "y = ", "r");
+       gr->Puts(mglPoint(0, 2.2), "initial: y = 0.3+sin(2\\pi x)", "b");
+//     gr->SetRanges(mglPoint(-1,-1,-1),mglPoint(1,1,1));      gr->SetOrigin(0,0,0);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_vecta="call 'prepare3v'\nsubplot 2 1 0:title 'Vect3 sample':rotate 50 60\n"
+"origin 0 0 0:box:axis '_xyz'\nvect3 ex ey ez 'x':vect3 ex ey ez:vect3 ex ey ez 'z'\n"
+"subplot 2 1 1:title '\"f\" style':rotate 50 60\n"
+"origin 0 0 0:box:axis '_xyz'\nvect3 ex ey ez 'fx':vect3 ex ey ez 'f':vect3 ex ey ez 'fz'\n"
+"grid3 ex 'Wx':grid3 ex 'W':grid3 ex 'Wz'\n";
+void smgl_vecta(mglGraph *gr)
+{
+       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);
+       if(!mini)       {       gr->SubPlot(2,1,0);     gr->Title("Vect3 sample");      }
+       gr->Rotate(50,60);      gr->SetOrigin(0,0,0);   gr->Axis("_xyz");       gr->Box();
+       gr->Vect3(ex,ey,ez,"x");        gr->Vect3(ex,ey,ez);    gr->Vect3(ex,ey,ez,"z");
+       if(mini)        return;
+       gr->SubPlot(2,1,1);     gr->Title("'f' style");
+       gr->Rotate(50,60);      gr->SetOrigin(0,0,0);   gr->Axis("_xyz");       gr->Box();
+       gr->Vect3(ex,ey,ez,"fx");       gr->Vect3(ex,ey,ez,"f");        gr->Vect3(ex,ey,ez,"fz");
+       gr->Grid3(ex,"Wx");     gr->Grid3(ex,"W");      gr->Grid3(ex,"Wz");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_vect="call 'prepare2v'\ncall 'prepare3v'\nsubplot 3 2 0 '':title 'Vect plot (default)':box:vect a b\n"
+"subplot 3 2 1 '':title '\".\" style; \"=\" style':box:vect a b '.='\n"
+"subplot 3 2 2 '':title '\"f\" style':box:vect a b 'f'\n"
+"subplot 3 2 3 '':title '\">\" style':box:vect a b '>'\n"
+"subplot 3 2 4 '':title '\"<\" style':box:vect a b '<'\n"
+"subplot 3 2 5:title '3d variant':rotate 50 60:box:vect ex ey ez\n";
+void smgl_vect(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2v(&a,&b);
+       if(!mini)       {gr->SubPlot(3,2,0,""); gr->Title("Vect plot (default)");}
+       gr->Box();      gr->Vect(a,b);
+       if(mini)        return;
+       gr->SubPlot(3,2,1,"");  gr->Title("'.' style; '=' style");      gr->Box();      gr->Vect(a,b,"=.");
+       gr->SubPlot(3,2,2,"");  gr->Title("'f' style"); gr->Box();      gr->Vect(a,b,"f");
+       gr->SubPlot(3,2,3,"");  gr->Title("'>' style"); gr->Box();      gr->Vect(a,b,">");
+       gr->SubPlot(3,2,4,"");  gr->Title("'<' style"); gr->Box();      gr->Vect(a,b,"<");
+       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);
+       gr->SubPlot(3,2,5);     gr->Title("3d variant");        gr->Rotate(50,60);
+       gr->Box();      gr->Vect(ex,ey,ez);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_flow="call 'prepare2v'\ncall 'prepare3v'\nsubplot 2 2 0 '':title 'Flow plot (default)':box:flow a b\n"
+"subplot 2 2 1 '':title '\"v\" style':box:flow a b 'v'\n"
+"subplot 2 2 2 '':title 'from edges only':box:flow a b '#'\n"
+"subplot 2 2 3:title '3d variant':rotate 50 60:box:flow ex ey ez\n";
+void smgl_flow(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2v(&a,&b);
+       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Flow plot (default)");}
+       gr->Box();      gr->Flow(a,b);
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("'v' style"); gr->Box();      gr->Flow(a,b,"v");
+       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Flow(a,b,"#");
+       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);
+       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);
+       gr->Box();      gr->Flow(ex,ey,ez);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_pipe="call 'prepare2v'\ncall 'prepare3v'\nsubplot 2 2 0 '':title 'Pipe plot (default)':light on:box:pipe a b\n"
+"subplot 2 2 1 '':title '\"i\" style':box:pipe a b 'i'\n"
+"subplot 2 2 2 '':title 'from edges only':box:pipe a b '#'\n"
+"subplot 2 2 3:title '3d variant':rotate 50 60:box:pipe ex ey ez '' 0.1\n";
+void smgl_pipe(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2v(&a,&b);
+       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Pipe plot (default)");}
+       gr->Light(true);        gr->Box();      gr->Pipe(a,b);
+       if(mini)        return;
+       gr->SubPlot(2,2,1,"");  gr->Title("'i' style"); gr->Box();      gr->Pipe(a,b,"i");
+       gr->SubPlot(2,2,2,"");  gr->Title("'\\#' style");       gr->Box();      gr->Pipe(a,b,"#");
+       mglData ex,ey,ez;       mgls_prepare3v(&ex,&ey,&ez);
+       gr->SubPlot(2,2,3);     gr->Title("3d variant");        gr->Rotate(50,60);
+       gr->Box();      gr->Pipe(ex,ey,ez,"",0.1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dew="call 'prepare2v'\nsubplot 1 1 0 '':title 'Dew plot':light on:box:dew a b\n";
+void smgl_dew(mglGraph *gr)
+{
+       mglData a,b;    mgls_prepare2v(&a,&b);
+       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Dew plot");}
+       gr->Box();      gr->Light(true);        gr->Dew(a,b);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_grad="call 'prepare2d'\nsubplot 1 1 0 '':title 'Grad plot':box:grad a:dens a '{u8}w{q8}'\n";
+void smgl_grad(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       if(!mini)       {gr->SubPlot(1,1,0,""); gr->Title("Grad plot");}
+       gr->Box();      gr->Grad(a);    gr->Dens(a,"{u8}w{q8}");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_cones="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'\n"
+"subplot 2 2 0:title 'Cones plot':rotate 50 60:light on:origin 0 0 0:box:cones ys\n"
+"subplot 2 2 1:title '2 colors':rotate 50 60:light on:origin 0 0 0:box:cones ys 'cbgGyr'\n"
+"subplot 2 2 2:title '\"\\#\" style':rotate 50 60:light on:origin 0 0 0:box:cones ys '#'\n"
+"subplot 2 2 3:title '\"a\" style':rotate 50 60:zrange -2 2:light on:origin 0 0 0:box:cones ys 'a'\n";
+void smgl_cones(mglGraph *gr)
+{
+       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+       gr->Light(true);        gr->SetOrigin(0,0,0);
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Cones plot");        }
+       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys);
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("2 colors");
+       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"cbgGyr");
+       gr->SubPlot(2,2,2);     gr->Title("'\\#' style");
+       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"#");
+       gr->SubPlot(2,2,3);     gr->Title("'a' style");
+       gr->SetRange('z',-2,2); // increase range since summation can exceed [-1,1]
+       gr->Rotate(50,60);      gr->Box();      gr->Cones(ys,"a");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_aspect="subplot 2 2 0:box:text -1 1.1 'Just box' ':L'\ninplot 0.2 0.5 0.7 1:box:text 0 1.2 'InPlot example'\n"
+"subplot 2 2 1:title 'Rotate only':rotate 50 60:box\nsubplot 2 2 2:title 'Rotate and Aspect':rotate 50 60:aspect 1 1 2:box\n"
+"subplot 2 2 3:title 'Aspect in other direction':rotate 50 60:aspect 1 2 2:box\n";
+void smgl_aspect(mglGraph *gr) // transformation
+{
+       gr->SubPlot(2,2,0);     gr->Box();
+       gr->Puts(mglPoint(-1,1.1),"Just box",":L");
+       gr->InPlot(0.2,0.5,0.7,1,false);        gr->Box();
+       gr->Puts(mglPoint(0,1.2),"InPlot example");
+       gr->SubPlot(2,2,1);     gr->Title("Rotate only");
+       gr->Rotate(50,60);      gr->Box();
+       gr->SubPlot(2,2,2);     gr->Title("Rotate and Aspect");
+       gr->Rotate(50,60);      gr->Aspect(1,1,2);      gr->Box();
+       gr->SubPlot(2,2,3);     gr->Title("Aspect in other direction");
+       gr->Rotate(50,60);      gr->Aspect(1,2,2);      gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_inplot="subplot 3 2 0:title 'StickPlot'\nstickplot 3 0 20 30:box 'r':text 0 0 '0' 'r'\n"
+"stickplot 3 1 20 30:box 'g':text 0 0 '1' 'g'\nstickplot 3 2 20 30:box 'b':text 0 0 '2' 'b'\n"
+"subplot 3 2 3 '':title 'ColumnPlot'\ncolumnplot 3 0:box 'r':text 0 0 '0' 'r'\n"
+"columnplot 3 1:box 'g':text 0 0 '1' 'g'\ncolumnplot 3 2:box 'b':text 0 0 '2' 'b'\n"
+"subplot 3 2 4 '':title 'GridPlot'\ngridplot 2 2 0:box 'r':text 0 0 '0' 'r'\n"
+"gridplot 2 2 1:box 'g':text 0 0 '1' 'g'\ngridplot 2 2 2:box 'b':text 0 0 '2' 'b'\n"
+"gridplot 2 2 3:box 'm':text 0 0 '3' 'm'\nsubplot 3 2 5 '':title 'InPlot':box\n"
+"inplot 0.4 1 0.6 1 on:box 'r'\nmultiplot 3 2 1 2 1 '':title 'MultiPlot':box\n";
+void smgl_inplot(mglGraph *gr)
+{
+       gr->SubPlot(3,2,0);     gr->Title("StickPlot");
+       gr->StickPlot(3, 0, 20, 30);    gr->Box("r");   gr->Puts(mglPoint(0),"0","r");
+       gr->StickPlot(3, 1, 20, 30);    gr->Box("g");   gr->Puts(mglPoint(0),"1","g");
+       gr->StickPlot(3, 2, 20, 30);    gr->Box("b");   gr->Puts(mglPoint(0),"2","b");
+       gr->SubPlot(3,2,3,"");  gr->Title("ColumnPlot");
+       gr->ColumnPlot(3, 0);   gr->Box("r");   gr->Puts(mglPoint(0),"0","r");
+       gr->ColumnPlot(3, 1);   gr->Box("g");   gr->Puts(mglPoint(0),"1","g");
+       gr->ColumnPlot(3, 2);   gr->Box("b");   gr->Puts(mglPoint(0),"2","b");
+       gr->SubPlot(3,2,4,"");  gr->Title("GridPlot");
+       gr->GridPlot(2, 2, 0);  gr->Box("r");   gr->Puts(mglPoint(0),"0","r");
+       gr->GridPlot(2, 2, 1);  gr->Box("g");   gr->Puts(mglPoint(0),"1","g");
+       gr->GridPlot(2, 2, 2);  gr->Box("b");   gr->Puts(mglPoint(0),"2","b");
+       gr->GridPlot(2, 2, 3);  gr->Box("m");   gr->Puts(mglPoint(0),"3","m");
+       gr->SubPlot(3,2,5,"");  gr->Title("InPlot");    gr->Box();
+       gr->InPlot(0.4, 1, 0.6, 1, true);       gr->Box("r");
+       gr->MultiPlot(3,2,1, 2, 1,"");  gr->Title("MultiPlot"); gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_combined="call 'prepare2v'\ncall 'prepare3d'\nnew v 10:fill v -0.5 1:copy d sqrt(a^2+b^2)\n"
+"subplot 2 2 0:title 'Surf + Cont':rotate 50 60:light on:box:surf a:cont a 'y'\n"
+"subplot 2 2 1 '':title 'Flow + Dens':light off:box:flow a b 'br':dens d\n"
+"subplot 2 2 2:title 'Mesh + Cont':rotate 50 60:box:mesh a:cont a '_'\n"
+"subplot 2 2 3:title 'Surf3 + ContF3':rotate 50 60:light on\n"
+"box:contf3 v c 'z' 0:contf3 v c 'x':contf3 v c\ncut 0 -1 -1 1 0 1.1\ncontf3 v c 'z' c.nz-1:surf3 c -0.5\n";
+void smgl_combined(mglGraph *gr)       // flow threads and density plot
+{
+       mglData a,b,d;  mgls_prepare2v(&a,&b);  d = a;
+       for(int i=0;i<a.nx*a.ny;i++)    d.a[i] = hypot(a.a[i],b.a[i]);
+       mglData c;      mgls_prepare3d(&c);
+       mglData v(10);  v.Fill(-0.5,1);
+       gr->SubPlot(2,2,1,"");  gr->Title("Flow + Dens");
+       gr->Flow(a,b,"br");     gr->Dens(d,"BbcyrR");   gr->Box();
+       gr->SubPlot(2,2,0);     gr->Title("Surf + Cont");       gr->Rotate(50,60);
+       gr->Light(true);        gr->Surf(a);    gr->Cont(a,"y");        gr->Box();
+       gr->SubPlot(2,2,2);     gr->Title("Mesh + Cont");       gr->Rotate(50,60);
+       gr->Box();      gr->Mesh(a);    gr->Cont(a,"_");
+       gr->SubPlot(2,2,3);     gr->Title("Surf3 + ContF3");gr->Rotate(50,60);
+       gr->Box();      gr->ContF3(v,c,"z",0);  gr->ContF3(v,c,"x");    gr->ContF3(v,c);
+       gr->SetCutBox(mglPoint(0,-1,-1), mglPoint(1,0,1.1));
+       gr->ContF3(v,c,"z",c.nz-1);     gr->Surf3(-0.5,c);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_axis="subplot 2 2 0:title 'Axis origin, Grid':origin 0 0:axis:grid:fplot 'x^3'\n"
+"subplot 2 2 1:title '2 axis':ranges -1 1 -1 1:origin -1 -1:axis:ylabel 'axis_1':fplot 'sin(pi*x)' 'r2'\n"
+"ranges 0 1 0 1:origin 1 1:axis:ylabel 'axis_2':fplot 'cos(pi*x)'\n"
+"subplot 2 2 3:title 'More axis':origin nan nan:xrange -1 1:axis:xlabel 'x' 0:ylabel 'y_1' 0:fplot 'x^2' 'k'\n"
+"yrange -1 1:origin -1.3 -1:axis 'y' 'r':ylabel '#r{y_2}' 0.2:fplot 'x^3' 'r'\n\n"
+"subplot 2 2 2:title '4 segments, inverted axis':origin 0 0:\n"
+"inplot 0.5 1 0.5 1 on:ranges 0 10 0 2:axis\nfplot 'sqrt(x/2)':xlabel 'W' 1:ylabel 'U' 1\n"
+"inplot 0 0.5 0.5 1 on:ranges 1 0 0 2:axis 'x':fplot 'sqrt(x)+x^3':xlabel '\\tau' 1\n"
+"inplot 0.5 1 0 0.5 on:ranges 0 10 4 0:axis 'y':fplot 'x/4':ylabel 'L' -1\n"
+"inplot 0 0.5 0 0.5 on:ranges 1 0 4 0:fplot '4*x^2'\n";
+void smgl_axis(mglGraph *gr)
+{
+       gr->SubPlot(2,2,0);     gr->Title("Axis origin, Grid"); gr->SetOrigin(0,0);
+       gr->Axis();     gr->Grid();     gr->FPlot("x^3");
+
+       gr->SubPlot(2,2,1);     gr->Title("2 axis");
+       gr->SetRanges(-1,1,-1,1);       gr->SetOrigin(-1,-1,-1);        // first axis
+       gr->Axis();     gr->Label('y',"axis 1",0);      gr->FPlot("sin(pi*x)","r2");
+       gr->SetRanges(0,1,0,1);         gr->SetOrigin(1,1,1);           // second axis
+       gr->Axis();     gr->Label('y',"axis 2",0);      gr->FPlot("cos(pi*x)");
+
+       gr->SubPlot(2,2,3);     gr->Title("More axis"); gr->SetOrigin(NAN,NAN); gr->SetRange('x',-1,1);
+       gr->Axis();     gr->Label('x',"x",0);   gr->Label('y',"y_1",0); gr->FPlot("x^2","k");
+       gr->SetRanges(-1,1,-1,1);       gr->SetOrigin(-1.3,-1); // second axis
+       gr->Axis("y","r");      gr->Label('y',"#r{y_2}",0.2);   gr->FPlot("x^3","r");
+
+       gr->SubPlot(2,2,2);     gr->Title("4 segments, inverted axis");         gr->SetOrigin(0,0);
+       gr->InPlot(0.5,1,0.5,1);        gr->SetRanges(0,10,0,2);        gr->Axis();
+       gr->FPlot("sqrt(x/2)");         gr->Label('x',"W",1);   gr->Label('y',"U",1);
+       gr->InPlot(0,0.5,0.5,1);        gr->SetRanges(1,0,0,2); gr->Axis("x");
+       gr->FPlot("sqrt(x)+x^3");       gr->Label('x',"\\tau",-1);
+       gr->InPlot(0.5,1,0,0.5);        gr->SetRanges(0,10,4,0);        gr->Axis("y");
+       gr->FPlot("x/4");       gr->Label('y',"L",-1);
+       gr->InPlot(0,0.5,0,0.5);        gr->SetRanges(1,0,4,0); gr->FPlot("4*x^2");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_ticks="subplot 3 2 0:title 'Usual axis':axis\n"
+"subplot 3 2 1:title 'Too big/small range':ranges -1000 1000 0 0.001:axis\n"
+"subplot 3 2 3:title 'Too narrow range':ranges 100 100.1 10 10.01:axis\n"
+"subplot 3 2 4:title 'Disable ticks tuning':tuneticks off:axis\n"
+"subplot 3 2 2:title 'Manual ticks':ranges -pi pi 0 2:\n"
+"xtick -pi '\\pi' -pi/2 '-\\pi/2' 0 '0' 0.886 'x^*' pi/2 '\\pi/2' pi 'pi'\n"
+"# or you can use:\n#list v -pi -pi/2 0 0.886 pi/2 pi:xtick v '-\\pi\\n-\\pi/2\\n{}0\\n{}x^*\\n\\pi/2\\n\\pi'\n"
+"axis:grid:fplot '2*cos(x^2)^2' 'r2'\n"
+"subplot 3 2 5:title 'Time ticks':xrange 0 3e5:ticktime 'x':axis\n";
+void smgl_ticks(mglGraph *gr)
+{
+       gr->SubPlot(3,2,0);     gr->Title("Usual axis");        gr->Axis();
+       gr->SubPlot(3,2,1);     gr->Title("Too big/small range");
+       gr->SetRanges(-1000,1000,0,0.001);      gr->Axis();
+       gr->SubPlot(3,2,3);     gr->Title("Too narrow range");
+       gr->SetRanges(100,100.1,10,10.01);      gr->Axis();
+       gr->SubPlot(3,2,4);     gr->Title("Disable ticks tuning");
+       gr->SetTuneTicks(0);    gr->Axis();
+
+       gr->SubPlot(3,2,2);     gr->Title("Manual ticks");      gr->SetRanges(-M_PI,M_PI, 0, 2);
+       double val[]={-M_PI, -M_PI/2, 0, 0.886, M_PI/2, M_PI};
+       gr->SetTicksVal('x', mglData(6,val), "-\\pi\n-\\pi/2\n0\nx^*\n\\pi/2\n\\pi");
+       gr->Axis();     gr->Grid();     gr->FPlot("2*cos(x^2)^2", "r2");
+
+       gr->SubPlot(3,2,5);     gr->Title("Time ticks");        gr->SetRange('x',0,3e5);
+       gr->SetTicksTime('x',0);        gr->Axis();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_box="subplot 2 2 0:title 'Box (default)':rotate 50 60:box\n"
+"subplot 2 2 1:title 'colored':rotate 50 60:box 'r'\n"
+"subplot 2 2 2:title 'with faces':rotate 50 60:box '@'\n"
+"subplot 2 2 3:title 'both':rotate 50 60:box '@cm'\n";
+void smgl_box(mglGraph *gr)
+{
+       gr->SubPlot(2,2,0);     gr->Title("Box (default)");     gr->Rotate(50,60);      gr->Box();
+       gr->SubPlot(2,2,1);     gr->Title("colored");           gr->Rotate(50,60);      gr->Box("r");
+       gr->SubPlot(2,2,2);     gr->Title("with faces");        gr->Rotate(50,60);      gr->Box("@");
+       gr->SubPlot(2,2,3);     gr->Title("both");      gr->Rotate(50,60);      gr->Box("@cm");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_loglog="subplot 2 2 0 '<_':title 'Semi-log axis':ranges 0.01 100 -1 1:axis 'lg(x)' '' ''\n"
+"axis:grid 'xy' 'g':fplot 'sin(1/x)':xlabel 'x' 0:ylabel 'y = sin 1/x' 0\n"
+"subplot 2 2 1 '<_':title 'Log-log axis':ranges 0.01 100 0.1 100:axis 'lg(x)' 'lg(y)' ''\n"
+"axis:fplot 'sqrt(1+x^2)':xlabel 'x' 0:ylabel 'y = \\sqrt{1+x^2}' 0\n"
+"subplot 2 2 2 '<_':title 'Minus-log axis':ranges -100 -0.01 -100 -0.1:axis '-lg(-x)' '-lg(-y)' ''\n"
+"axis:fplot '-sqrt(1+x^2)':xlabel 'x' 0:ylabel 'y = -\\sqrt{1+x^2}' 0\n"
+"subplot 2 2 3 '<_':title 'Log-ticks':ranges 0.01 100 0 100:axis 'sqrt(x)' '' ''\n"
+"axis:fplot 'x':xlabel 'x' 1:ylabel 'y = x' 0\n";
+void smgl_loglog(mglGraph *gr) // log-log axis
+{
+       gr->SubPlot(2,2,0,"<_");        gr->Title("Semi-log axis");     gr->SetRanges(0.01,100,-1,1);   gr->SetFunc("lg(x)","");
+       gr->Axis();     gr->Grid("xy","g");     gr->FPlot("sin(1/x)");  gr->Label('x',"x",0); gr->Label('y', "y = sin 1/x",0);
+       gr->SubPlot(2,2,1,"<_");        gr->Title("Log-log axis");      gr->SetRanges(0.01,100,0.1,100);        gr->SetFunc("lg(x)","lg(y)");
+       gr->Axis();     gr->FPlot("sqrt(1+x^2)");       gr->Label('x',"x",0); gr->Label('y', "y = \\sqrt{1+x^2}",0);
+       gr->SubPlot(2,2,2,"<_");        gr->Title("Minus-log axis");    gr->SetRanges(-100,-0.01,-100,-0.1);    gr->SetFunc("-lg(-x)","-lg(-y)");
+       gr->Axis();     gr->FPlot("-sqrt(1+x^2)");      gr->Label('x',"x",0); gr->Label('y', "y = -\\sqrt{1+x^2}",0);
+       gr->SubPlot(2,2,3,"<_");        gr->Title("Log-ticks"); gr->SetRanges(0.1,100,0,100);   gr->SetFunc("sqrt(x)","");
+       gr->Axis();     gr->FPlot("x"); gr->Label('x',"x",1); gr->Label('y', "y = x",0);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_venn="list x -0.3 0 0.3:list y 0.3 -0.3 0.3:list e 0.7 0.7 0.7\n"
+"subplot 1 1 0:title 'Venn-like diagram':alpha on:error x y e e '!rgb@#o'";
+void smgl_venn(mglGraph *gr)
+{
+       double xx[3]={-0.3,0,0.3}, yy[3]={0.3,-0.3,0.3}, ee[3]={0.7,0.7,0.7};
+       mglData x(3,xx), y(3,yy), e(3,ee);
+       gr->SubPlot(1,1,0);     gr->Title("Venn-like diagram"); gr->Alpha(true);        gr->Error(x,y,e,e,"!rgb@#o");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_stereo="call 'prepare2d'\nlight on\nsubplot 2 1 0:rotate 50 60+1:box:surf a\nsubplot 2 1 1:rotate 50 60-1:box:surf a\n";
+void smgl_stereo(mglGraph *gr)
+{
+       mglData a;      mgls_prepare2d(&a);
+       gr->Light(true);
+       gr->SubPlot(2,1,0);     gr->Rotate(50,60+1);
+       gr->Box();      gr->Surf(a);
+       gr->SubPlot(2,1,1);     gr->Rotate(50,60-1);
+       gr->Box();      gr->Surf(a);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_hist="new x 10000 '2*rnd-1':new y 10000 '2*rnd-1':copy z exp(-6*(x^2+y^2))\n"
+"hist xx x z:norm xx 0 1:hist yy y z:norm yy 0 1\nmultiplot 3 3 3 2 2 '':ranges -1 1 -1 1 0 1:box:dots x y z 'wyrRk'\n"
+"multiplot 3 3 0 2 1 '':ranges -1 1 0 1:box:bars xx\nmultiplot 3 3 5 1 2 '':ranges 0 1 -1 1:box:barh yy\n"
+"subplot 3 3 2:text 0.5 0.5 'Hist and\\n{}MultiPlot\\n{}sample' 'a' -3\n";
+void smgl_hist(mglGraph *gr)
+{
+       mglData x(10000), y(10000), z(10000);   gr->Fill(x,"2*rnd-1");  gr->Fill(y,"2*rnd-1");  gr->Fill(z,"exp(-6*(v^2+w^2))",x,y);
+       mglData xx=gr->Hist(x,z), yy=gr->Hist(y,z);     xx.Norm(0,1);   yy.Norm(0,1);
+       gr->MultiPlot(3,3,3,2,2,"");    gr->SetRanges(-1,1,-1,1,0,1);   gr->Box();      gr->Dots(x,y,z,"wyrRk");
+       gr->MultiPlot(3,3,0,2,1,"");    gr->SetRanges(-1,1,0,1);        gr->Box();      gr->Bars(xx);
+       gr->MultiPlot(3,3,5,1,2,"");    gr->SetRanges(0,1,-1,1);        gr->Box();      gr->Barh(yy);
+       gr->SubPlot(3,3,2);             gr->Puts(mglPoint(0.5,0.5),"Hist and\nMultiPlot\nsample","a",-3);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_primitives="subplot 2 2 0 '':title 'Line, Curve, Rhomb, Ellipse' '' -1.5\n"
+"line -1 -1 -0.5 1 'qAI'\ncurve -0.6 -1 1 1 0 1 1 1 'rA'\nball 0 -0.5 '*':ball 1 -0.1 '*'\n"
+"rhomb 0 0.4 1 0.9 0.2 'b#'\nrhomb 0 0 1 0.4 0.2 'cg@'\n"
+"ellipse 0 -0.5 1 -0.1 0.2 'u#'\nellipse 0 -1 1 -0.6 0.2 'm@'\n\n"
+"light on\nsubplot 2 2 1:title 'Face[xyz]':rotate 50 60:box\n"
+"facex 1 0 -1 1 1 'r':facey -1 -1 -1 1 1 'g':facez 1 -1 -1 -1 1 'b'\n"
+"face -1 -1 1 -1 1 1 1 -1 0 1 1 1 'm'\n\n"
+"subplot 2 2 3 '':title 'Cone'\n"
+"cone -0.7 -0.3 0 -0.7 0.7 0.5 0.2 0.1 'b':text -0.7 -0.7 'no edges\\n(default)'\n"
+"cone 0 -0.3 0 0 0.7 0.5 0.2 0.1 'g@':text 0 -0.7 'with edges\\n('\\@' style)'\n"
+"cone 0.7 -0.3 0 0.7 0.7 0.5 0.2 0.1 'ry':text 0.7 -0.7 '\"arrow\" with\\n{}gradient'\n\n"
+"subplot 2 2 2 '':title 'Sphere and Drop'\nline -0.9 0 1 0.9 0 1\n"
+"text -0.9 0.4 'sh=0':drop -0.9 0 0 1 0.5 'r' 0:ball -0.9 0 1 'k'n"
+"text -0.3 0.6 'sh=0.33':drop -0.3 0 0 1 0.5 'r' 0.33:ball -0.3 0 1 'k'n"
+"text 0.3 0.8 'sh=0.67':drop 0.3 0 0 1 0.5 'r' 0.67:ball 0.3 0 1 'k'n"
+"text 0.9 1. 'sh=1':drop 0.9 0 0 1 0.5 'r' 1:ball 0.9 0 1 'k'\n\n"
+"text -0.9 -1.1 'asp=0.33':drop -0.9 -0.7 0 1 0.5 'b' 0 0.33\n"
+"text -0.3 -1.1 'asp=0.67':drop -0.3 -0.7 0 1 0.5 'b' 0 0.67\n"
+"text 0.3 -1.1 'asp=1':drop 0.3 -0.7 0 1 0.5 'b' 0 1\n"
+"text 0.9 -1.1 'asp=1.5':drop 0.9 -0.7 0 1 0.5 'b' 0 1.5\n";
+void smgl_primitives(mglGraph *gr)     // flag #
+{
+       gr->SubPlot(2,2,0,"");  gr->Title("Line, Curve, Rhomb, Ellipse","",-1.5);
+       gr->Line(mglPoint(-1,-1),mglPoint(-0.5,1),"qAI");
+       gr->Curve(mglPoint(-0.6,-1),mglPoint(1,1),mglPoint(0,1),mglPoint(1,1),"rA");
+       gr->Rhomb(mglPoint(0,0.4),mglPoint(1,0.9),0.2,"b#");
+       gr->Rhomb(mglPoint(0,0),mglPoint(1,0.4),0.2,"cg@");
+       gr->Ellipse(mglPoint(0,-0.5),mglPoint(1,-0.1),0.2,"u#");
+       gr->Ellipse(mglPoint(0,-1),mglPoint(1,-0.6),0.2,"m@");
+       gr->Mark(mglPoint(0,-0.5),"*"); gr->Mark(mglPoint(1,-0.1),"*");
+
+       gr->Light(true);
+       gr->SubPlot(2,2,1);     gr->Title("Face[xyz]"); gr->Rotate(50,60);      gr->Box();
+       gr->FaceX(mglPoint(1,0,-1),1,1,"r");
+       gr->FaceY(mglPoint(-1,-1,-1),1,1,"g");
+       gr->FaceZ(mglPoint(1,-1,-1),-1,1,"b");
+       gr->Face(mglPoint(-1,-1,1),mglPoint(-1,1,1),mglPoint(1,-1,0),mglPoint(1,1,1),"m");
+
+       gr->SubPlot(2,2,3,"");  gr->Title("Cone");
+       gr->Cone(mglPoint(-0.7,-0.3),mglPoint(-0.7,0.7,0.5),0.2,0.1,"b");
+       gr->Puts(mglPoint(-0.7,-0.7),"no edges\n(default)");
+       gr->Cone(mglPoint(0,-0.3),mglPoint(0,0.7,0.5),0.2,0.1,"g@");
+       gr->Puts(mglPoint(0,-0.7),"with edges\n('\\@' style)");
+       gr->Cone(mglPoint(0.7,-0.3),mglPoint(0.7,0.7,0.5),0.2,0,"ry");
+       gr->Puts(mglPoint(0.7,-0.7),"'arrow' with\ngradient");
+
+       gr->SubPlot(2,2,2,"");  gr->Title("Sphere and Drop");   gr->Alpha(false);
+       gr->Puts(mglPoint(-0.9,0.4),"sh=0");            gr->Ball(mglPoint(-0.9,0,1),'k');
+       gr->Drop(mglPoint(-0.9,0),mglPoint(0,1),0.5,"r",0);
+       gr->Puts(mglPoint(-0.3,0.6),"sh=0.33"); gr->Ball(mglPoint(-0.3,0,1),'k');
+       gr->Drop(mglPoint(-0.3,0),mglPoint(0,1),0.5,"r",0.33);
+       gr->Puts(mglPoint(0.3,0.8),"sh=0.67");          gr->Ball(mglPoint(0.3,0,1),'k');
+       gr->Drop(mglPoint(0.3,0),mglPoint(0,1),0.5,"r",0.67);
+       gr->Puts(mglPoint(0.9,1),"sh=1");                       gr->Ball(mglPoint(0.9,0,1),'k');
+       gr->Drop(mglPoint(0.9,0),mglPoint(0,1),0.5,"r",1);
+       gr->Line(mglPoint(-0.9,0,1),mglPoint(0.9,0,1),"b");
+       
+       gr->Puts(mglPoint(-0.9,-1.1),"asp=0.33");
+       gr->Drop(mglPoint(-0.9,-0.7),mglPoint(0,1),0.5,"b",0,0.33);
+       gr->Puts(mglPoint(-0.3,-1.1),"asp=0.67");
+       gr->Drop(mglPoint(-0.3,-0.7),mglPoint(0,1),0.5,"b",0,0.67);
+       gr->Puts(mglPoint(0.3,-1.1),"asp=1");
+       gr->Drop(mglPoint(0.3,-0.7),mglPoint(0,1),0.5,"b",0,1);
+       gr->Puts(mglPoint(0.9,-1.1),"asp=1.5");
+       gr->Drop(mglPoint(0.9,-0.7),mglPoint(0,1),0.5,"b",0,1.5);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_table="new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'\n"
+"subplot 2 2 0:title 'Table sample':box\ntable ys 'y_1\\n{}y_2\\n{}y_3'\n\n"
+"subplot 2 2 1:title 'no borders, colored'\ntable ys 'y_1\\n{}y_2\\n{}y_3' 'r|'\n\n"
+"subplot 2 2 2:title 'no font decrease'\ntable ys 'y_1\\n{}y_2\\n{}y_3' '#'\n\n"
+"subplot 2 2 3:title 'manual width and position':box\n"
+"table 0.5 0.95 ys 'y_1\\n{}y_2\\n{}y_3' '#';value 0.7\n";
+void smgl_table(mglGraph *gr)
+{
+       mglData ys(10,3);       ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Table plot");        }
+       gr->Table(ys,"y_1\ny_2\ny_3");  gr->Box();
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("no borders, colored");
+       gr->Table(ys,"y_1\ny_2\ny_3","r|");
+       gr->SubPlot(2,2,2);     gr->Title("no font decrease");
+       gr->Table(ys,"y_1\ny_2\ny_3","#");
+       gr->SubPlot(2,2,3);     gr->Title("manual width, position");
+       gr->Table(0.5, 0.95, ys,"y_1\ny_2\ny_3","#", "value 0.7");      gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_label="new ys 10 '0.2*rnd-0.8*sin(pi*x)'\n"
+"subplot 1 1 0 '':title 'Label plot':box:plot ys ' *':label ys 'y=%y'\n";
+void smgl_label(mglGraph *gr)
+{
+       mglData ys(10); ys.Modify("0.8*sin(pi*2*x)+0.2*rnd");
+       if(!mini)       {       gr->SubPlot(1,1,0,"");  gr->Title("Label plot");        }
+       gr->Box();      gr->Plot(ys," *");      gr->Label(ys,"y=%y");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_colorbar="call 'prepare2d'\nnew v 9 'x'\nsubplot 2 2 0:title 'Colorbar out of box':box\n"
+"colorbar '<':colorbar '>':colorbar '_':colorbar '^'\n"
+"subplot 2 2 1:title 'Colorbar near box':box\n"
+"colorbar '<I':colorbar '>I':colorbar '_I':colorbar '^I'\n"
+"subplot 2 2 2:title 'manual colors':box:contd v a\n"
+"colorbar v '<':colorbar v '>':colorbar v '_':colorbar v '^'\n"
+"subplot 2 2 3:title '':text -0.5 1.55 'Color positions' ':C' -2\n"
+"colorbar 'bwr>' 0.25 0:text -0.9 1.2 'Default'\n"
+"colorbar 'b{w,0.3}r>' 0.5 0:text -0.1 1.2 'Manual'\ncrange 0.01 1e3\n"
+"colorbar '>' 0.75 0:text 0.65 1.2 'Normal scale':colorbar '>':text 1.35 1.2 'Log scale'\n";
+void smgl_colorbar(mglGraph *gr)
+{
+       gr->SubPlot(2,2,0);     gr->Title("Colorbar out of box");       gr->Box();
+       gr->Colorbar("<");      gr->Colorbar(">");      gr->Colorbar("_");      gr->Colorbar("^");
+       gr->SubPlot(2,2,1);     gr->Title("Colorbar near box");         gr->Box();
+       gr->Colorbar("<I");     gr->Colorbar(">I");     gr->Colorbar("_I");     gr->Colorbar("^I");
+       gr->SubPlot(2,2,2);     gr->Title("manual colors");
+       mglData a,v;    mgls_prepare2d(&a,0,&v);
+       gr->Box();      gr->ContD(v,a);
+       gr->Colorbar(v,"<");    gr->Colorbar(v,">");    gr->Colorbar(v,"_");    gr->Colorbar(v,"^");
+       
+       gr->SubPlot(2,2,3);     gr->Title(" ");
+       gr->Puts(mglPoint(-0.5,1.55),"Color positions",":C",-2);
+       gr->Colorbar("bwr>",0.25,0);    gr->Puts(mglPoint(-0.9,1.2),"Default");
+       gr->Colorbar("b{w,0.3}r>",0.5,0);       gr->Puts(mglPoint(-0.1,1.2),"Manual");
+       
+       gr->Puts(mglPoint(1,1.55),"log-scale",":C",-2);
+       gr->SetRange('c',0.01,1e3);
+       gr->Colorbar(">",0.75,0);       gr->Puts(mglPoint(0.65,1.2),"Normal scale");
+       gr->SetFunc("","","","lg(c)");
+       gr->Colorbar(">");              gr->Puts(mglPoint(1.35,1.2),"Log scale");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_legend="addlegend 'sin(\\pi {x^2})' 'b':addlegend 'sin(\\pi x)' 'g*'\n"
+"addlegend 'sin(\\pi \\sqrt{x})' 'rd':addlegend 'jsut text' ' ':addlegend 'no indent for this' ''\n"
+"subplot 2 2 0 '':title 'Legend (default)':box:legend\n"
+"legend 3 'A#':text 0.75 0.65 'Absolute position' 'A'\n"
+"subplot 2 2 2 '':title 'coloring':box:legend 0 'r#':legend 1 'Wb#':legend 2 'ygr#'\n"
+"subplot 2 2 3 '':title 'manual position':box\n"
+"legend 0.5 1:text 0.5 0.55 'at x=0.5, y=1' 'a'\n"
+"legend 1 '#-':text 0.75 0.25 'Horizontal legend' 'a'\n";
+void smgl_legend(mglGraph *gr)
+{
+       gr->AddLegend("sin(\\pi {x^2})","b");
+       gr->AddLegend("sin(\\pi x)","g*");
+       gr->AddLegend("sin(\\pi \\sqrt{x})","rd");
+       gr->AddLegend("just text"," ");
+       gr->AddLegend("no indent for this","");
+       if(!mini)       {gr->SubPlot(2,2,0,""); gr->Title("Legend (default)");}
+       gr->Box();      gr->Legend();
+       if(mini)        return;
+       gr->Legend(3,"A#");
+       gr->Puts(mglPoint(0.75,0.65),"Absolute position","A");
+       gr->SubPlot(2,2,2,"");  gr->Title("coloring");  gr->Box();
+       gr->Legend(0,"r#");     gr->Legend(1,"Wb#");    gr->Legend(2,"ygr#");
+       gr->SubPlot(2,2,3,"");  gr->Title("manual position");   gr->Box();
+       gr->Legend(0.5,1);
+       gr->Puts(mglPoint(0.5,0.55),"at x=0.5, y=1","a");
+       gr->Legend(1,"#-");
+       gr->Puts(mglPoint(0.75,0.25),"Horizontal legend","a");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dat_diff="ranges 0 1 0 1 0 1:new a 30 40 'x*y'\n"
+"subplot 2 2 0:title 'a(x,y)':rotate 60 40:surf a:box\n"
+"subplot 2 2 1:title 'da/dx':rotate 60 40:diff a 'x':surf a:box\n"
+"subplot 2 2 2:title '\\int da/dx dxdy':rotate 60 40:integrate a 'xy':surf a:box\n"
+"subplot 2 2 3:title '\\int {d^2}a/dxdy dx':rotate 60 40:diff2 a 'y':surf a:box\n";
+void smgl_dat_diff(mglGraph *gr)       // differentiate
+{
+       gr->SetRanges(0,1,0,1,0,1);
+       mglData a(30,40);       a.Modify("x*y");
+       gr->SubPlot(2,2,0);     gr->Title("a(x,y)");    gr->Rotate(60,40);
+       gr->Surf(a);            gr->Box();
+       gr->SubPlot(2,2,1);     gr->Title("da/dx");             gr->Rotate(60,40);
+       a.Diff("x");            gr->Surf(a);    gr->Box();
+       gr->SubPlot(2,2,2);     gr->Title("\\int da/dx dxdy");  gr->Rotate(60,40);
+       a.Integral("xy");       gr->Surf(a);    gr->Box();
+       gr->SubPlot(2,2,3);     gr->Title("\\int {d^2}a/dxdy dx");      gr->Rotate(60,40);
+       a.Diff2("y");   gr->Surf(a);    gr->Box();
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dat_extra="subplot 2 2 0 '':title 'Envelop sample':new d1 1000 'exp(-8*x^2)*sin(10*pi*x)'\n"
+"axis:plot d1 'b':envelop d1 'x':plot d1 'r'\n"
+"subplot 2 2 1 '':title 'Smooth sample':ranges 0 1 0 1\nnew y0 30 '0.4*sin(pi*x) + 0.3*cos(1.5*pi*x) - 0.4*sin(2*pi*x)+0.5*rnd'\n"
+"copy y1 y0:smooth y1 'x3':plot y1 'r';legend '\"3\" style'\ncopy y2 y0:smooth y2 'x5':plot y2 'g';legend '\"5\" style'\n"
+"copy y3 y0:smooth y3 'x':plot y3 'b';legend 'default'\nplot y0 '{m7}:s';legend 'none'\nlegend:box\n"
+"subplot 2 2 2:title 'Sew sample':rotate 50 60:light on:alpha on\nnew d2 100 100 'mod((y^2-(1-x)^2)/2,0.1)'\n"
+"box:surf d2 'b':sew d2 'xy' 0.1:surf d2 'r'\n"
+"subplot 2 2 3:title 'Resize sample (interpolation)'\nnew x0 10 'rnd':new v0 10 'rnd'\n"
+"resize x1 x0 100:resize v1 v0 100\nplot x0 v0 'b+ ':plot x1 v1 'r-':label x0 v0 '%n'\n";
+void smgl_dat_extra(mglGraph *gr)      // differentiate
+{
+       gr->SubPlot(2,2,0,"");  gr->Title("Envelop sample");
+       mglData d1(1000);       gr->Fill(d1,"exp(-8*x^2)*sin(10*pi*x)");
+       gr->Axis();                     gr->Plot(d1, "b");
+       d1.Envelop('x');        gr->Plot(d1, "r");
+
+       gr->SubPlot(2,2,1,"");  gr->Title("Smooth sample");
+       mglData y0(30),y1,y2,y3;
+       gr->SetRanges(0,1,0,1);
+       gr->Fill(y0, "0.4*sin(pi*x) + 0.3*cos(1.5*pi*x) - 0.4*sin(2*pi*x)+0.5*rnd");
+
+       y1=y0;  y1.Smooth("x3");
+       y2=y0;  y2.Smooth("x5");
+       y3=y0;  y3.Smooth("x");
+
+       gr->Plot(y0,"{m7}:s", "legend 'none'"); //gr->AddLegend("none","k");
+       gr->Plot(y1,"r", "legend ''3' style'");
+       gr->Plot(y2,"g", "legend ''5' style'");
+       gr->Plot(y3,"b", "legend 'default'");
+       gr->Legend();           gr->Box();
+
+       gr->SubPlot(2,2,2);             gr->Title("Sew sample");
+       mglData d2(100, 100);   gr->Fill(d2, "mod((y^2-(1-x)^2)/2,0.1)");
+       gr->Rotate(50, 60);     gr->Light(true);        gr->Alpha(true);
+       gr->Box();                      gr->Surf(d2, "b");
+       d2.Sew("xy", 0.1);      gr->Surf(d2, "r");
+
+       gr->SubPlot(2,2,3);             gr->Title("Resize sample (interpolation)");
+       mglData x0(10), v0(10), x1, v1;
+       gr->Fill(x0,"rnd");             gr->Fill(v0,"rnd");
+       x1 = x0.Resize(100);    v1 = v0.Resize(100);
+       gr->Plot(x0,v0,"b+ ");  gr->Plot(x1,v1,"r-");
+       gr->Label(x0,v0,"%n");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_ternary="ranges 0 1 0 1 0 1\nnew x 50 '0.25*(1+cos(2*pi*x))'\n"
+"new y 50 '0.25*(1+sin(2*pi*x))'\nnew z 50 'x'\nnew a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'\n"
+"new rx 10 'rnd':new ry 10:fill ry '(1-v)*rnd' rx\nlight on\n\n"
+"subplot 2 2 0:title 'Ordinary axis 3D':rotate 50 60\nbox:axis:grid\n"
+"plot x y z 'r2':surf a '#'\nxlabel 'B':ylabel 'C':zlabel 'Z'\n\n"
+"subplot 2 2 1:title 'Ternary axis (x+y+t=1)':ternary 1\nbox:axis:grid 'xyz' 'B;'\n"
+"plot x y 'r2':plot rx ry 'q^ ':cont a:line 0.5 0 0 0.75 'g2'\nxlabel 'B':ylabel 'C':tlabel 'A'\n\n"
+"subplot 2 2 2:title 'Quaternary axis 3D':rotate 50 60:ternary 2\nbox:axis:grid 'xyz' 'B;'\n"
+"plot x y z 'r2':surf a '#'\nxlabel 'B':ylabel 'C':tlabel 'A':zlabel 'D'\n\n"
+"subplot 2 2 3:title 'Ternary axis 3D':rotate 50 60:ternary 1\nbox:axis:grid 'xyz' 'B;'\n"
+"plot x y z 'r2':surf a '#'\nxlabel 'B':ylabel 'C':tlabel 'A':zlabel 'Z'\n";
+void smgl_ternary(mglGraph *gr)        // flag #
+{
+       gr->SetRanges(0,1,0,1,0,1);
+       mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);
+       a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");
+       x.Modify("0.25*(1+cos(2*pi*x))");
+       y.Modify("0.25*(1+sin(2*pi*x))");
+       rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);
+       z.Modify("x");
+
+       gr->SubPlot(2,2,0);     gr->Title("Ordinary axis 3D");
+       gr->Rotate(50,60);              gr->Light(true);
+       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");
+       gr->Axis(); gr->Grid(); gr->Box();
+       gr->Label('x',"B",1);   gr->Label('y',"C",1);   gr->Label('z',"Z",1);
+
+       gr->SubPlot(2,2,1);     gr->Title("Ternary axis (x+y+t=1)");
+       gr->Ternary(1);
+       gr->Plot(x,y,"r2");     gr->Plot(rx,ry,"q^ ");  gr->Cont(a,"BbcyrR");
+       gr->Line(mglPoint(0.5,0), mglPoint(0,0.75), "g2");
+       gr->Axis(); gr->Grid("xyz","B;");
+       gr->Label('x',"B");     gr->Label('y',"C");     gr->Label('t',"A");
+
+       gr->SubPlot(2,2,2);     gr->Title("Quaternary axis 3D");
+       gr->Rotate(50,60);              gr->Light(true);
+       gr->Ternary(2);
+       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");
+       gr->Axis(); gr->Grid(); gr->Box();
+       gr->Label('t',"A",1);   gr->Label('x',"B",1);
+       gr->Label('y',"C",1);   gr->Label('z',"D",1);
+
+       gr->SubPlot(2,2,3);     gr->Title("Ternary axis 3D");
+       gr->Rotate(50,60);              gr->Light(true);
+       gr->Ternary(1);
+       gr->Plot(x,y,z,"r2");   gr->Surf(a,"BbcyrR#");
+       gr->Axis(); gr->Grid(); gr->Box();
+       gr->Label('t',"A",1);   gr->Label('x',"B",1);
+       gr->Label('y',"C",1);   gr->Label('z',"Z",1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_projection="ranges 0 1 0 1 0 1\nnew x 50 '0.25*(1+cos(2*pi*x))'\n"
+"new y 50 '0.25*(1+sin(2*pi*x))'\nnew z 50 'x'\nnew a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'\n"
+"new rx 10 'rnd':new ry 10:fill ry '(1-v)*rnd' rx\nlight on\n\n"
+"title 'Projection sample':ternary 4:rotate 50 60\nbox:axis:grid\n"
+"plot x y z 'r2':surf a '#'\nxlabel 'X':ylabel 'Y':zlabel 'Z'\n";
+void smgl_projection(mglGraph *gr)     // flag #
+{
+       gr->SetRanges(0,1,0,1,0,1);
+       mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);
+       a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");
+       x.Modify("0.25*(1+cos(2*pi*x))");
+       y.Modify("0.25*(1+sin(2*pi*x))");
+       rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);
+       z.Modify("x");
+       
+       if(!mini)       gr->Title("Projection sample");
+       gr->Ternary(4);
+       gr->Rotate(50,60);              gr->Light(true);
+       gr->Plot(x,y,z,"r2");   gr->Surf(a,"#");
+       gr->Axis(); gr->Grid(); gr->Box();
+       gr->Label('x',"X",1);   gr->Label('y',"Y",1);   gr->Label('z',"Z",1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_projection5="ranges 0 1 0 1 0 1\nnew x 50 '0.25*(1+cos(2*pi*x))'\n"
+"new y 50 '0.25*(1+sin(2*pi*x))'\nnew z 50 'x'\nnew a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'\n"
+"new rx 10 'rnd':new ry 10:fill ry '(1-v)*rnd' rx\nlight on\n\n"
+"title 'Projection sample (ternary)':ternary 5:rotate 50 60\nbox:axis:grid\n"
+"plot x y z 'r2':surf a '#'\nxlabel 'X':ylabel 'Y':zlabel 'Z'\n";
+void smgl_projection5(mglGraph *gr)    // flag #
+{
+       gr->SetRanges(0,1,0,1,0,1);
+       mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);
+       a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");
+       x.Modify("0.25*(1+cos(2*pi*x))");
+       y.Modify("0.25*(1+sin(2*pi*x))");
+       rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);
+       z.Modify("x");
+       
+       if(!mini)       gr->Title("Projection sample (ternary)");
+       gr->Ternary(5);
+       gr->Rotate(50,60);              gr->Light(true);
+       gr->Plot(x,y,z,"r2");   gr->Surf(a,"#");
+       gr->Axis(); gr->Grid(); gr->Box();
+       gr->Label('x',"X",1);   gr->Label('y',"Y",1);   gr->Label('z',"Z",1);
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_triplot="list q 0 1 2 3 | 4 5 6 7 | 0 2 4 6 | 1 3 5 7 | 0 4 1 5 | 2 6 3 7\n"
+"list xq -1 1 -1 1 -1 1 -1 1\nlist yq -1 -1 1 1 -1 -1 1 1\nlist zq -1 -1 -1 -1 1 1 1 1\nlight on\n"
+"subplot 2 1 0:title 'QuadPlot sample':rotate 50 60\n"
+"quadplot q xq yq zq 'yr'\nquadplot q xq yq zq '#k'\n"
+"list t 0 1 2 | 0 1 3 | 0 2 3 | 1 2 3\n"
+"list xt -1 1 0 0\nlist yt -1 -1 1 0\nlist zt -1 -1 -1 1\n"
+"subplot 2 1 1:title 'TriPlot sample':rotate 50 60\n"
+"triplot t xt yt zt 'b'\ntriplot t xt yt zt '#k'\n";
+void smgl_triplot(mglGraph *gr)
+{
+       double q[] = {0,1,2,3, 4,5,6,7, 0,2,4,6, 1,3,5,7, 0,4,1,5, 2,6,3,7};
+       double xc[] = {-1,1,-1,1,-1,1,-1,1}, yc[] = {-1,-1,1,1,-1,-1,1,1}, zc[] = {-1,-1,-1,-1,1,1,1,1};
+       mglData qq(6,4,q), xx(8,xc), yy(8,yc), zz(8,zc);
+       gr->Light(true);        //gr->Alpha(true);
+       gr->SubPlot(2,1,0);     gr->Title("QuadPlot sample");   gr->Rotate(50,60);
+       gr->QuadPlot(qq,xx,yy,zz,"yr");
+       gr->QuadPlot(qq,xx,yy,zz,"k#");
+
+       double t[] = {0,1,2, 0,1,3, 0,2,3, 1,2,3};
+       double xt[] = {-1,1,0,0}, yt[] = {-1,-1,1,0}, zt[] = {-1,-1,-1,1};
+       mglData tt(4,3,t), uu(4,xt), vv(4,yt), ww(4,zt);
+       gr->SubPlot(2,1,1);     gr->Title("TriPlot sample");    gr->Rotate(50,60);
+       gr->TriPlot(tt,uu,vv,ww,"b");
+       gr->TriPlot(tt,uu,vv,ww,"k#");
+}
+//-----------------------------------------------------------------------------
+const char *mmgl_dots="new t 1000 'pi*(rnd-0.5)':new f 1000 '2*pi*rnd'\n"
+"copy x 0.9*cos(t)*cos(f):copy y 0.9*cos(t)*sin(f):copy z 0.6*sin(t)\n"
+"title 'Dots sample':rotate 50 60\nbox:dots x y z\n";
+void smgl_dots(mglGraph *gr)
+{
+       int i, n=1000;
+       mglData x(n),y(n),z(n);
+       for(i=0;i<n;i++)
+       {
+               double t=M_PI*(mgl_rnd()-0.5), f=2*M_PI*mgl_rnd();
+               x.a[i] = 0.9*cos(t)*cos(f);
+               y.a[i] = 0.9*cos(t)*sin(f);
+               z.a[i] = 0.6*sin(t);
+       }
+       if(!mini)       gr->Title("Dots sample");
+       gr->Rotate(50,60);      gr->Box();      gr->Dots(x,y,z);
+}
+//-----------------------------------------------------------------------------
+/*void smgl_surf3_rgbd(mglGraph *gr)
+{
+       mglData c;      mgls_prepare3d(&c);
+       gr->Rotate(40,60);      gr->VertexColor(true);
+       gr->Box();      gr->Surf3(c,"bgrd");
+}*/
+//-----------------------------------------------------------------------------
+const char *mmgl_mirror="new a 31 41 '-pi*x*exp(-(y+1)^2-4*x^2)'\n"
+"subplot 2 2 0:title 'Options for coordinates':alpha on:light on:rotate 40 60:box\n"
+"surf a 'r';yrange 0 1:surf a 'b';yrange 0 -1\n"
+"subplot 2 2 1:title 'Option \"meshnum\"':rotate 40 60:box\n"
+"mesh a 'r'; yrange 0 1:mesh a 'b';yrange 0 -1; meshnum 5\n"
+"subplot 2 2 2:title 'Option \"alpha\"':rotate 40 60:box\n"
+"surf a 'r';yrange 0 1; alpha 0.7:surf a 'b';yrange 0 -1; alpha 0.3\n"
+"subplot 2 2 3 '<_':title 'Option \"legend\"'\n"
+"fplot 'x^3' 'r'; legend 'y = x^3':fplot 'cos(pi*x)' 'b'; legend 'y = cos \\pi x'\n"
+"box:axis:legend 2\n";
+void smgl_mirror(mglGraph *gr) // flag #
+{
+       mglData a(31,41);
+       gr->Fill(a,"-pi*x*exp(-(y+1)^2-4*x^2)");
+       
+       if(!mini)       {       gr->SubPlot(2,2,0);     gr->Title("Options for coordinates");   }
+       gr->Alpha(true);        gr->Light(true);
+       gr->Rotate(40,60);      gr->Box();
+       gr->Surf(a,"r","yrange 0 1"); gr->Surf(a,"b","yrange 0 -1");
+       if(mini)        return;
+       gr->SubPlot(2,2,1);     gr->Title("Option 'meshnum'");
+       gr->Rotate(40,60);      gr->Box();
+       gr->Mesh(a,"r","yrange 0 1"); gr->Mesh(a,"b","yrange 0 -1; meshnum 5");
+       gr->SubPlot(2,2,2);     gr->Title("Option 'alpha'");
+       gr->Rotate(40,60);      gr->Box();
+       gr->Surf(a,"r","yrange 0 1; alpha 0.7"); gr->Surf(a,"b","yrange 0 -1; alpha 0.3");
+       gr->SubPlot(2,2,3,"<_");        gr->Title("Option 'legend'");
+       gr->FPlot("x^3","r","legend 'y = x^3'"); gr->FPlot("cos(pi*x)","b","legend 'y = cos \\pi x'");
+       gr->Box();      gr->Axis();     gr->Legend(2,"");
+}
+//-----------------------------------------------------------------------------
+mglSample samp[] = {
+       {"alpha", smgl_alpha, mmgl_alpha },
+       {"area", smgl_area, mmgl_area},
+       {"aspect", smgl_aspect, mmgl_aspect },
+       {"axial", smgl_axial, mmgl_axial },
+       {"axis", smgl_axis, mmgl_axis},
+       {"barh", smgl_barh, mmgl_barh},
+       {"bars", smgl_bars, mmgl_bars},
+       {"belt", smgl_belt, mmgl_belt},
+       {"box", smgl_box, mmgl_box},
+       {"boxplot", smgl_boxplot, mmgl_boxplot},
+       {"boxs", smgl_boxs, mmgl_boxs},
+       {"candle", smgl_candle, mmgl_candle},
+       {"chart", smgl_chart, mmgl_chart},
+       {"cloud", smgl_cloud, mmgl_cloud },
+       {"colorbar", smgl_colorbar, mmgl_colorbar},
+       {"combined", smgl_combined, mmgl_combined },
+       {"cones", smgl_cones, mmgl_cones},
+       {"cont", smgl_cont, mmgl_cont},
+       {"cont_xyz", smgl_cont_xyz, mmgl_cont_xyz},
+       {"conta", smgl_conta, mmgl_conta},
+       {"contd", smgl_contd, mmgl_contd},
+       {"contf", smgl_contf, mmgl_contf},
+       {"contf_xyz", smgl_contf_xyz, mmgl_contf_xyz},
+       {"contfa", smgl_contfa, mmgl_contfa},
+       {"contv", smgl_contv, mmgl_contv},
+//     {"crust", smgl_crust, mmgl_crust},      // TODO: open after triangulation
+       {"curvcoor", smgl_curvcoor, mmgl_curvcoor},
+       {"cut", smgl_cut, mmgl_cut},
+       {"dat_diff", smgl_dat_diff, mmgl_dat_diff},
+       {"dat_extra", smgl_dat_extra, mmgl_dat_extra },
+       {"dens", smgl_dens, mmgl_dens},
+       {"dens_xyz", smgl_dens_xyz, mmgl_dens_xyz},
+       {"densa", smgl_densa, mmgl_densa},
+       {"dew", smgl_dew, mmgl_dew},
+       {"dots", smgl_dots, mmgl_dots},
+       {"error", smgl_error, mmgl_error },
+       {"fall", smgl_fall, mmgl_fall},
+       {"fit", smgl_fit, mmgl_fit},
+       {"flow", smgl_flow, mmgl_flow},
+       {"fog", smgl_fog, mmgl_fog},
+       {"fonts", smgl_fonts, mmgl_fonts},
+       {"grad", smgl_grad, mmgl_grad},
+       {"hist", smgl_hist, mmgl_hist},
+       {"inplot", smgl_inplot, mmgl_inplot},
+       {"label", smgl_label, mmgl_label},
+       {"legend", smgl_legend, mmgl_legend },
+       {"loglog", smgl_loglog, mmgl_loglog},
+       {"map", smgl_map, mmgl_map},
+       {"mark", smgl_mark, mmgl_mark},
+       {"mesh", smgl_mesh, mmgl_mesh},
+       {"mirror", smgl_mirror, mmgl_mirror },
+       {"molecule", smgl_molecule, mmgl_molecule },
+       {"parser", smgl_parser, mmgl_parser},
+       {"pde", smgl_pde, mmgl_pde},
+       {"pipe", smgl_pipe, mmgl_pipe},
+       {"plot", smgl_plot, mmgl_plot},
+       {"primitives", smgl_primitives, mmgl_primitives },
+       {"projection", smgl_projection, mmgl_projection },
+       {"projection5", smgl_projection5, mmgl_projection5 },
+       {"qo2d", smgl_qo2d, mmgl_qo2d},
+       {"radar", smgl_radar, mmgl_radar},
+       {"region", smgl_region, mmgl_region},
+       {"schemes", smgl_schemes, mmgl_schemes },
+       {"several_light", smgl_several_light, mmgl_several_light },
+       {"solve", smgl_solve, mmgl_solve},
+       {"stem", smgl_stem, mmgl_stem},
+       {"step", smgl_step, mmgl_step},
+       {"stereo", smgl_stereo, mmgl_stereo},
+       {"stfa", smgl_stfa, mmgl_stfa},
+       {"style", smgl_style, mmgl_style },
+       {"surf", smgl_surf, mmgl_surf},
+       {"surf3", smgl_surf3, mmgl_surf3},
+       {"surf3a", smgl_surf3a, mmgl_surf3a},
+       {"surf3c", smgl_surf3c, mmgl_surf3c},
+       {"surfa", smgl_surfa, mmgl_surfa},
+       {"surfc", smgl_surfc, mmgl_surfc},
+       {"table", smgl_table, mmgl_table},
+       {"tape", smgl_tape, mmgl_tape},
+       {"tens", smgl_tens, mmgl_tens},
+       {"ternary", smgl_ternary, mmgl_ternary },
+       {"text", smgl_text, mmgl_text},
+       {"textmark", smgl_textmark, mmgl_textmark},
+       {"ticks", smgl_ticks, mmgl_ticks},
+       {"tile", smgl_tile, mmgl_tile},
+       {"tiles", smgl_tiles, mmgl_tiles},
+       {"torus", smgl_torus, mmgl_torus },
+       {"traj", smgl_traj, mmgl_traj},
+       {"triangulation",smgl_triangulation, mmgl_triangulation },
+       {"triplot", smgl_triplot, mmgl_triplot},
+       {"tube", smgl_tube, mmgl_tube},
+       {"type0", smgl_type0, mmgl_type0},
+       {"type1", smgl_type1, mmgl_type1},
+       {"type2", smgl_type2, mmgl_type2},
+       {"vect", smgl_vect, mmgl_vect},
+       {"vecta", smgl_vecta, mmgl_vecta},
+       {"venn", smgl_venn, mmgl_venn},
+{"", NULL}};
+//-----------------------------------------------------------------------------

diff --git a/examples/wnd_samples.cpp b/examples/wnd_samples.cpp
index 92b160ce904fe698bd1cd178c20ccd1dd260f0f2..4d751e41a4bfec82783905dbcdd9d7805ed255a3 100644 (file)
--- a/examples/wnd_samples.cpp
+++ b/examples/wnd_samples.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * wnd_sample.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -19,7 +19,6 @@
  ***************************************************************************/\r
 //-----------------------------------------------------------------------------\r
 #include "mgl2/mgl.h"\r
-#include "mgl2/parser.h"\r
 //-----------------------------------------------------------------------------\r
 void mgls_prepare1d(mglData *y, mglData *y1=0, mglData *y2=0, mglData *x1=0, mglData *x2=0);\r
 void mgls_prepare2d(mglData *a, mglData *b=0, mglData *v=0);\r
@@ -30,8 +29,28 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez);
 int test_wnd(mglGraph *gr)\r
 {\r
 mgl_set_test_mode(true);\r
-       gr->SetQuality(6);\r
+//     gr->SetQuality(6);\r
+       gr->NewFrame(); // 0\r
        gr->Box();\r
+       gr->EndFrame();\r
+       gr->NewFrame(); // 1\r
+       gr->Axis();\r
+       gr->EndFrame();\r
+       gr->NewFrame(); // 2\r
+       gr->Label('x',"XXXX",0);\r
+       gr->Label('y',"YYYY",0);\r
+       gr->EndFrame();\r
+       gr->NewFrame(); // 3\r
+       gr->Puts(mglPoint(0,0),"0");\r
+       gr->EndFrame();\r
+\r
+       gr->Clf();\r
+       gr->ShowFrame(0);\r
+       gr->ShowFrame(1);\r
+       gr->ShowFrame(2);\r
+       gr->ShowFrame(3);\r
+       //      gr->Puts(mglPoint(0,1),"1");\r
+       gr->Finish();\r
        return 0;\r
 }\r
 //-----------------------------------------------------------------------------\r

diff --git a/examples/wx_example.cpp b/examples/wx_example.cpp
index 3611237f42c10da2d532059ba2627b0ac2938cc6..c7a8685447a38e31ec51e60207e4468a6cb3f6c1 100644 (file)
--- a/examples/wx_example.cpp
+++ b/examples/wx_example.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * wx_example.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r

diff --git a/include/CMakeLists.txt b/include/CMakeLists.txt
index 08b063aa36530554dcf1b470e76bab2322046f82..794601dc501dd482f51af85fbb7427fa54dd432e 100644 (file)
--- a/include/CMakeLists.txt
+++ b/include/CMakeLists.txt
@@ -7,6 +7,8 @@ install(DIRECTORY mgl2/ DESTINATION ${MGL_INCLUDE_PATH}
                         PATTERN "glut.h" EXCLUDE
                         PATTERN "wx.h" EXCLUDE
                         PATTERN "qt.h" EXCLUDE
+                        PATTERN "qmathgl.h" EXCLUDE
+                        PATTERN "window.h" EXCLUDE
                         PATTERN "*~" EXCLUDE
                         PATTERN "*.fs"
                         PATTERN "*.pas"
@@ -23,5 +25,11 @@ if(MGL_HAVE_WX)
        install(FILES mgl2/wx.h DESTINATION ${MGL_INCLUDE_PATH})
 endif(MGL_HAVE_WX)
 if(MGL_HAVE_QT)
-       install(FILES mgl2/qt.h DESTINATION ${MGL_INCLUDE_PATH})
+       install(FILES mgl2/qt.h mgl2/qmathgl.h DESTINATION ${MGL_INCLUDE_PATH})
 endif(MGL_HAVE_QT)
+
+#if(MGL_HAVE_FLTK AND MGL_HAVE_WX AND MGL_HAVE_QT)
+if(MGL_HAVE_FLTK AND MGL_HAVE_QT)
+       install(FILES mgl2/window.h DESTINATION ${MGL_INCLUDE_PATH})
+#endif(MGL_HAVE_FLTK AND MGL_HAVE_WX AND MGL_HAVE_QT)
+endif(MGL_HAVE_FLTK AND MGL_HAVE_QT)

diff --git a/include/config.h.in b/include/config.h.in
index 78639f8874f075b8a1c2c362a4d39ceae537e93d..629342ddb585f01e98b40236f28c4a239da4f5fa 100644 (file)
--- a/include/config.h.in
+++ b/include/config.h.in
@@ -1,7 +1,6 @@
 #ifndef _MGL_CONFIG_H_
 #define _MGL_CONFIG_H_
 
-/* This define enables double precision in MathGL */
 #define MGL_USE_DOUBLE ${MGL_USE_DOUBLE}
 #define MGL_NO_DATA_A ${MGL_NO_DATA_A}
 
@@ -14,21 +13,13 @@
 #endif
 #define MGL_HAVE_HDF4 ${MGL_HAVE_HDF4}
 #define MGL_HAVE_HDF5 ${MGL_HAVE_HDF5}
-#define MGL_HAVE_HDF5_18 ${MGL_HAVE_HDF5_18}
 #define MGL_HAVE_JPEG ${MGL_HAVE_JPEG}
 #define MGL_HAVE_PNG ${MGL_HAVE_PNG}
 #define MGL_HAVE_ZLIB ${MGL_HAVE_ZLIB}
-#define MGL_HAVE_U3D ${MGL_HAVE_U3D}
 #define MGL_HAVE_PDF ${MGL_HAVE_PDF}
 #define MGL_HAVE_GIF ${MGL_HAVE_GIF}
 #define MGL_HAVE_OPENGL ${MGL_HAVE_OPENGL}
-#define MGL_HAVE_GLUT ${MGL_HAVE_GLUT}
-#define MGL_HAVE_FLTK ${MGL_HAVE_FLTK}
-#define MGL_HAVE_WX ${MGL_HAVE_WX}
-#define MGL_HAVE_QT ${MGL_HAVE_QT}
-#define MGL_HAVE_PYTHON ${MGL_HAVE_PYTHON}
-#define MGL_HAVE_OCTAVE ${MGL_HAVE_OCTAVE}
-#define MGL_HAVE_DOC ${MGL_HAVE_DOC}
 #define MGL_HAVE_MPI ${MGL_HAVE_MPI}
+#define MGL_FONT_PATH "${MGL_FONT_PATH}"
 
 #endif

diff --git a/include/mgl2/addon.h b/include/mgl2/addon.h
index c5fa78772384892e0e3b84d827d10ffdc5c09a08..3b25e2edccb18188f1142e3be73d6afbe3e7f579 100644 (file)
--- a/include/mgl2/addon.h
+++ b/include/mgl2/addon.h
@@ -1,6 +1,6 @@
 /***************************************************************************
  * addon.h is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -19,48 +19,44 @@
  ***************************************************************************/
 #ifndef _MGL_ADDON_H_
 #define _MGL_ADDON_H_
-/***************************************************************************/
+//-----------------------------------------------------------------------------
+#include "mgl2/define.h"
 #ifdef __cplusplus
-/***************************************************************************/
-#include <complex>
-#ifndef dual
-#define dual std::complex<double>
-#endif
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 dual mgl_ipowc(dual x,int n);
 dual expi(dual a);
 dual expi(double a);
-//---------------------------------------------------------------------------
+
 /// Explicit scheme for 1 step of axial diffraction
 bool mgl_difr_axial(dual *a, int n, dual q, int Border,dual *b, dual *d, int kk, double di);
 /// Explicit scheme for 1 step of plane diffraction
 bool mgl_difr_grid(dual *a,int n,dual q,int Border,dual *b,dual *d,int kk);
-/***************************************************************************/
+//-----------------------------------------------------------------------------
 extern "C" {
 #endif
-/***************************************************************************/
+
 double mgl_gauss_rnd();
-void mgl_fft_freq(double *freq,unsigned nn);
-/***************************************************************************/
-/** Remove double spaces from the string */
+void mgl_fft_freq(double *freq,size_t nn);
+
+/// Remove double spaces from the string
 void mgl_strcls(char *str);
-/** Get position of substring or return -1 if not found */
+/// Get position of substring or return -1 if not found
 int mgl_strpos(const char *str,char *fnd);
-/** Get position of symbol or return -1 if not found */
+/// Get position of symbol or return -1 if not found
 int mgl_chrpos(const char *str,char fnd);
-/***************************************************************************/
-/** Get uncommented string from file (NOTE: it is not thread safe!!!) */
+
+/// Get uncommented string from file (NOTE: it is not thread safe!!!)
 char *mgl_fgetstr(FILE *fp);
-/** Check if symbol denote true */
+/// Check if symbol denote true
 int mgl_istrue(char ch);
-/** Print test message */
+/// Print test message
 void mgl_test(const char *str, ...);
-/** Print info message */
+/// Print info message
 void mgl_info(const char *str, ...);
-/** Locate next data block (block started by -----) */
+/// Locate next data block (block started by -----)
 FILE *mgl_next_data(const char *fname,int p);
-/***************************************************************************/
+
 #ifdef __cplusplus
-};
+}
 #endif
 #endif

diff --git a/include/mgl2/base.h b/include/mgl2/base.h
index ff57b3ff585f24d8338f59e7455d715076c0167f..d66fbe7edd6b89c56b1cb8f91448f4c9c7d4e986 100644 (file)
--- a/include/mgl2/base.h
+++ b/include/mgl2/base.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * base.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,22 +19,22 @@
  ***************************************************************************/\r
 #ifndef _MGL_BASE_H_\r
 #define _MGL_BASE_H_\r
-#if !defined(_MSC_VER) && !defined(__BORLANDC__)\r
+#if !defined(_MSC_VER)\r
 #include <stdint.h>\r
 #endif\r
 #include "mgl2/define.h"\r
-/*****************************************************************************/\r
+\r
 #ifdef __cplusplus\r
 #include <vector>\r
 #include <string>\r
 #include "mgl2/type.h"\r
 #include "mgl2/eval.h"\r
-#include "mgl2/font.h"\r
 //-----------------------------------------------------------------------------\r
 class mglBase;\r
 class mglData;\r
 class mglParser;\r
 class mglFormula;\r
+class mglFont;\r
 typedef mglBase*  HMGL;\r
 typedef mglData* HMDT;\r
 typedef mglParser* HMPR;\r
@@ -45,11 +45,12 @@ typedef mglFormula* HMEX;
 typedef const mglData* HCDT;\r
 #include "mgl2/data.h"\r
 #else\r
+//-----------------------------------------------------------------------------\r
 /// Abstract class for data array\r
 class mglDataA\r
 {\r
 public:\r
-       virtual ~mglDataA()     {};\r
+       virtual ~mglDataA()     {}\r
        virtual mreal v(long i,long j=0,long k=0) const = 0;\r
        virtual mreal vthr(long i) const = 0;\r
        virtual long GetNx() const = 0;\r
@@ -95,9 +96,9 @@ bool operator>(const mglPrim &a,const mglPrim &b);
 /// Structure for group of primitives\r
 struct mglGroup\r
 {\r
-       std::vector<long> p;///< list of primitives (not filled!!!)\r
+       std::vector<long> p;    ///< list of primitives (not filled!!!)\r
        int Id;                         ///< Current list of primitives\r
-       std::string Lbl;        ///< Group label\r
+       std::string Lbl;                ///< Group label\r
        mglGroup(const char *lbl="", int id=0)  {       Lbl=lbl;        Id=id;  }\r
 };\r
 //-----------------------------------------------------------------------------\r
@@ -107,17 +108,17 @@ struct mglText
        std::wstring text;\r
        std::string stl;\r
        mreal val;\r
-       mglText(const wchar_t *txt=0, const char *fnt=0, mreal v=0)     {       text=txt;       stl=fnt;        val=v;  }\r
+       mglText(const wchar_t *txt=L"", const char *fnt="", mreal v=0)  {       text=txt;       stl=fnt;        val=v;  }\r
        mglText(const std::wstring &txt, mreal v=0)     {       text=txt;       val=v;  }\r
 };\r
 //-----------------------------------------------------------------------------\r
-/// Structure for internal point represenatation\r
+/// Structure for internal point representation\r
 struct mglPnt  // NOTE: use float for reducing memory size\r
 {\r
        float xx,yy,zz; // original coordinates\r
-       float x,y,z;            // coordinates\r
+       float x,y,z;    // coordinates\r
        float c,t,ta;   // index in color scheme\r
-       float u,v,w;            // normales\r
+       float u,v,w;    // normales\r
        float r,g,b,a;  // RGBA color\r
        mglPnt()        {       xx=yy=zz=x=y=z=c=t=ta=u=v=w=r=g=b=a=0;  }\r
 };\r
@@ -138,6 +139,25 @@ inline mglPnt operator*(float b, const mglPnt &a)
        c.x*=b; c.y*=b; c.z*=b; c.u*=b; c.v*=b; c.w*=b;\r
        c.r*=b; c.g*=b; c.b*=b; c.a*=b; return c;       }\r
 //-----------------------------------------------------------------------------\r
+/// Structure for glyph representation\r
+struct mglGlyph\r
+{\r
+       long nt, nl;                    ///< number of triangles and lines\r
+       short *trig, *line;     ///< vertexes of triangles and lines\r
+\r
+       mglGlyph()      {       nl=nt=0;        trig=line=0;    }\r
+       mglGlyph(const mglGlyph &a)     {       trig=line=0;    *this=a;        }\r
+       mglGlyph(long Nt, long Nl)              {       trig=line=0;    Create(Nt,Nl);  }\r
+       ~mglGlyph()     {       if(trig)        delete []trig;  if(line)        delete []line;  }\r
+\r
+       void Create(long Nt, long Nl);\r
+       bool operator==(const mglGlyph &g);\r
+       inline mglGlyph &operator=(const mglGlyph &a)\r
+       {       Create(a.nt, a.nl);     memcpy(trig, a.trig, 6*nt*sizeof(short));\r
+               memcpy(line, a.line, 2*nl*sizeof(short));       return *this;   }\r
+};\r
+//-----------------------------------------------------------------------------\r
+/// Structure for texture (color scheme + palette) representation\r
 struct mglTexture\r
 {\r
        mglColor col[512];      ///< Colors itself\r
@@ -152,10 +172,13 @@ struct mglTexture
        {       n=0;    Set(cols,smooth,alpha); }\r
        void Clear()    {       n=0;    }\r
        void Set(const char *cols, int smooth=0,mreal alpha=1);\r
+       void Set(HCDT val, const char *cols);\r
        void GetC(mreal u,mreal v,mglPnt &p) const;\r
+       mglColor GetC(mreal u,mreal v=0) const;\r
        inline bool IsSame(const mglTexture &t) const\r
        {       return n==t.n && !memcmp(col,t.col,512*sizeof(mglColor));       }\r
-       void GetRGBA(unsigned char *f) const;   // Write as BGRA for fastest export to TGA\r
+       void GetRGBA(unsigned char *f) const;\r
+       void GetRGBAOBJ(unsigned char *f) const;        // Export repeating border colors, since OBJ by default wraps textures and we need an extra boundary to work around implementation quirks\r
 };\r
 //-----------------------------------------------------------------------------\r
 const mglColor NC(-1,-1,-1);\r
@@ -171,6 +194,15 @@ struct mglColorID
        mglColor col;\r
 };\r
 extern mglColorID mglColorIds[31];\r
+extern std::string mglGlobalMess;      ///< Buffer for receiving global messages\r
+//-----------------------------------------------------------------------------\r
+/// Structure active points\r
+struct mglActivePos\r
+{\r
+       int x,y;                ///< coordinates of active point\r
+       int id;         ///< object id for active point\r
+       int n;          ///< position of active point in command (object id)\r
+};\r
 //-----------------------------------------------------------------------------\r
 /// Base class for canvas which handle all basic drawing\r
 class mglBase\r
@@ -186,13 +218,15 @@ public:
        std::string Mess;       ///< Buffer for receiving messages\r
        int ObjId;                      ///< object id for mglPrim\r
        int HighId;                     ///< object id to be highlited\r
-       std::vector<mglGroup> Grp;      ///< List of groups with names -- need for export\r
+       std::vector<mglGroup> Grp;              ///< List of groups with names -- need for export\r
+       std::vector<mglActivePos> Act;  ///< Position of active points\r
        std::string PlotId;     ///< Id of plot for saving filename (in GLUT window for example)\r
 \r
        mreal CDef;                     ///< Default (current) color in texture\r
        mreal AlphaDef;         ///< Default value of alpha channel (transparency)\r
        mreal BarWidth;         ///< Relative width of rectangles in Bars().\r
-       int MeshNum;            ///< Set approximate number of lines in Mesh and Grid. By default (=0) it draw all lines.\r
+       int MeshNum;                    ///< Set approximate number of lines in Mesh and Grid. By default (=0) it draw all lines.\r
+       int FaceNum;                    ///< Set approximate number of visible faces and lines. By default (=0) it draw everything.\r
        char Arrow1, Arrow2;///< Style of arrows at end and at start of curve\r
        long InUse;                     ///< Smart pointer (number of users)\r
        long Flag;                      ///< Flags for controlling drawing\r
@@ -202,6 +236,8 @@ public:
        inline void clr(long fl)        {       Flag &=~fl;     }\r
        inline void set(bool v,long fl) {       Flag = v ? Flag|fl : Flag&(~fl);        }\r
 \r
+       /// Set axis range scaling -- simplified way to shift/zoom axis range -- need to replot whole image!\r
+       inline void ZoomAxis(mglPoint p1=mglPoint(0,0,0,0), mglPoint p2=mglPoint(1,1,1,1))      {       AMin = p1;      AMax = p2;      }\r
        /// Set values of mglGraph::Min and mglGraph::Max\r
        inline void SetRanges(mreal x1, mreal x2, mreal y1, mreal y2, mreal z1=0, mreal z2=0, mreal c1=0, mreal c2=0)\r
        {       SetRanges(mglPoint(x1,y1,z1,c1),mglPoint(x2,y2,z2,c2)); }\r
@@ -221,14 +257,13 @@ public:
        /// Set ranges for automatic variables\r
        void SetAutoRanges(mreal x1, mreal x2, mreal y1=0, mreal y2=0, mreal z1=0, mreal z2=0, mreal c1=0, mreal c2=0);\r
        /// Set axis origin\r
-       inline void SetOrigin(mreal x0, mreal y0, mreal z0=NAN, mreal c0=NAN)\r
-       {       Org=mglPoint(x0,y0,z0,c0);      }\r
+       void SetOrigin(mreal x0, mreal y0, mreal z0=NAN, mreal c0=NAN);\r
        /// Save ranges into internal variable and put parsed\r
        mreal SaveState(const char *opt);\r
        /// Load ranges from internal variable\r
        void LoadState();\r
        /// Increase ZMin\r
-       mreal AdjustZMin()      {       ZMin /= MGL_EPSILON;    return Max.z - ZMin*(Max.z-Min.z);      }\r
+       mreal AdjustZMin()      {       ZMin /= MGL_FEPSILON;   return Max.z - ZMin*(Max.z-Min.z);      }\r
 \r
        /// Safetly set the transformation formulas for coordinate.\r
        void SetFunc(const char *EqX, const char *EqY, const char *EqZ=0, const char *EqA=0);\r
@@ -257,19 +292,19 @@ public:
        virtual bool Alpha(bool enable)\r
        {       bool t=get(MGL_ENABLE_ALPHA);   set(enable,MGL_ENABLE_ALPHA);   return t;       }\r
        /// Set default value of alpha-channel\r
-       inline void SetAlphaDef(mreal val)      {       AlphaDef=val;   };\r
+       inline void SetAlphaDef(mreal val)      {       AlphaDef=val;   }\r
        /// Set default palette\r
        inline void SetPalette(const char *colors)\r
        {       Txt[0].Set(mgl_have_color(colors)?colors:MGL_DEF_PAL,-1);       }\r
-       inline long GetNumPal(long id) const    {       return Txt[abs(id)/256].n;      }\r
+       inline long GetNumPal(long id) const    {       return Txt[labs(id)/256].n;     }\r
        /// Set default color scheme\r
        inline void SetDefScheme(const char *colors)\r
        {       Txt[1].Set(mgl_have_color(colors)?colors:"BbcyrR");     }\r
 \r
        /// Set number of mesh lines\r
-       inline void SetMeshNum(int val) {       MeshNum=val;    };\r
+       inline void SetMeshNum(int val) {       MeshNum=val;    }\r
        /// Set relative width of rectangles in Bars, Barh, BoxPlot\r
-       inline void SetBarWidth(mreal val)      {       BarWidth=val;   };\r
+       inline void SetBarWidth(mreal val)      {       BarWidth=val;   }\r
        /// Set size of marks\r
        inline void SetMarkSize(mreal val)      {       MarkSize=0.02*val;      }\r
        /// Set size of arrows\r
@@ -288,33 +323,34 @@ public:
        /// Set FontSize by size in pt and picture DPI (default is 16 pt for dpi=72)\r
        virtual void SetFontSizePT(mreal pt, int dpi=72){       FontSize = pt*27.f/dpi; }\r
        /// Set FontSize by size in centimeters and picture DPI (default is 0.56 cm = 16 pt)\r
-       inline void SetFontSizeCM(mreal cm, int dpi=72) {       SetFontSizePT(cm*28.45f,dpi);   };\r
+       inline void SetFontSizeCM(mreal cm, int dpi=72) {       SetFontSizePT(cm*28.45f,dpi);   }\r
        /// Set FontSize by size in inch and picture DPI (default is 0.22 in = 16 pt)\r
-       inline void SetFontSizeIN(mreal in, int dpi=72) {       SetFontSizePT(in*72.27f,dpi);   };\r
+       inline void SetFontSizeIN(mreal in, int dpi=72) {       SetFontSizePT(in*72.27f,dpi);   }\r
        /// Set font typeface. Note that each mglFont instance can be used with ONLY ONE mglGraph instance at a moment of time!\r
        void SetFont(mglFont *f);\r
        /// Get current typeface. Note that this variable can be deleted at next SetFont() call!\r
        inline mglFont *GetFont()       {       return fnt;     }\r
        /// Restore font\r
-       inline void RestoreFont()       {       fnt->Restore(); }\r
+       void RestoreFont();\r
        /// Load font from file\r
-       inline void LoadFont (const char *name, const char *path=NULL)\r
-       {       fnt->Load(name,path);   };\r
+       void LoadFont (const char *name, const char *path=NULL);\r
        /// Copy font from another mglGraph instance\r
-       inline void CopyFont(mglBase *gr)       {       fnt->Copy(gr->GetFont());       }\r
+       void CopyFont(mglBase *gr);\r
        /// Set default font size\r
-       inline void SetFontSize(mreal val)      {       FontSize=val>0 ? val:FontSize*val;      }\r
-       inline mreal GetFontSize() const        {       return FontSize;        };\r
-       inline mreal TextWidth(const wchar_t *text, const char *font, mreal size) const\r
-       {       return (size<0?-size*FontSize:size)*font_factor*fnt->Width(text,(font&&*font)?font:FontDef)/8;  }\r
-       inline mreal TextHeight(const char *font, mreal size) const\r
-       {       return (size<0?-size*FontSize:size)*font_factor*fnt->Height(font?font:FontDef)/8; }\r
+       inline void SetFontSize(mreal val)      {       FontSize=val>0 ? val:-FontSize*val;     }\r
+       inline mreal GetFontSize() const        {       return FontSize;        }\r
+       mreal TextWidth(const char *text, const char *font, mreal size) const;\r
+       mreal TextWidth(const wchar_t *text, const char *font, mreal size) const;\r
+       mreal TextHeight(const char *font, mreal size) const;\r
        inline mreal FontFactor() const         {       return font_factor;     }\r
        virtual mreal GetRatio() const;\r
+       virtual int GetWidth() const;\r
+       virtual int GetHeight() const;\r
+       \r
        /// Set to use or not text rotation\r
        inline void SetRotatedText(bool val)    {       set(val,MGL_ENABLE_RTEXT);      }\r
        /// Set default font style and color\r
-       inline void SetFontDef(const char *font)        {       strncpy(FontDef, font, 31);     }\r
+       void SetFontDef(const char *font);\r
        /// Set to use or not text rotation\r
        inline void SetTickRotate(bool val)     {       set(val,MGL_TICKS_ROTATE);      }\r
        /// Set to use or not text rotation\r
@@ -331,25 +367,34 @@ public:
        inline int GetQuality() const   {       return Quality; }\r
 \r
        // ~~~~~~~~~~~~~~~~~~~~~~ Developer functions ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
-       /// Add point to the pntN and return its position\r
+       /// Add point to the Pnt and return its position\r
        long AddPnt(mglPoint p, mreal c=-1, mglPoint n=mglPoint(NAN), mreal a=-1, int scl=1);\r
        long CopyNtoC(long k, mreal c);\r
        long CopyProj(long from, mglPoint p, mglPoint n);\r
-       virtual void Reserve(long n);           ///< Allocate n-cells for pntC and return current position\r
-       /// Set to reduce accuracy of points (to reduc size of output files)\r
+       virtual void Reserve(long n);           ///< Allocate n-cells for Pnt and return current position\r
+       /// Set to reduce accuracy of points (to reduce size of output files)\r
        inline void SetReduceAcc(bool val)      {       set(val, MGL_REDUCEACC);        }\r
-\r
-//     inline long GetPos()    {       return Pnt.size()-1;    }\r
+       /// Add glyph of current font to the Glf and return its position\r
+       long AddGlyph(int s, long j);\r
+       /// Add active point as k-th element of Pnt\r
+       void AddActive(long k,int n=0);\r
+       /// Clear unused points and primitives\r
+       void ClearUnused();\r
+       \r
        inline mglPoint GetPntP(long i) const\r
        {       const mglPnt &p=Pnt[i]; return mglPoint(p.x,p.y,p.z);   }\r
+       inline mglPoint GetPntN(long i) const\r
+       {       const mglPnt &p=Pnt[i]; return mglPoint(p.u,p.v,p.w);   }\r
        inline float GetClrC(long i) const      {       return Pnt[i].c;        }\r
-       inline const mglPnt &GetPnt(long i) const               {       return Pnt[i];          }\r
+       inline const mglGlyph &GetGlf(long i) const     {       return Glf[i];  }\r
+       inline long GetGlfNum() const           {       return Glf.size();      }\r
+       inline const mglPnt &GetPnt(long i) const       {       return Pnt[i];          }\r
        inline long GetPntNum() const           {       return Pnt.size();      }\r
        inline mglPrim &GetPrm(long i)          {       return Prm[i];          }\r
        inline long GetPrmNum() const           {       return Prm.size();      }\r
-       inline const mglText &GetPtx(long i) const              {       return Ptx[i];          }\r
+       inline const mglText &GetPtx(long i) const      {       return Ptx[i];          }\r
        inline long GetPtxNum() const           {       return Ptx.size();      }\r
-       inline const mglTexture &GetTxt(long i) const   {       return Txt[i];          }\r
+       inline const mglTexture &GetTxt(long i) const   {       return Txt[i];  }\r
        inline long GetTxtNum() const           {       return Txt.size();      }\r
        /// Scale coordinates and cut off some points\r
        virtual bool ScalePoint(mglPoint &p, mglPoint &n, bool use_nan=true) const;\r
@@ -360,14 +405,14 @@ public:
 \r
        /// Get color depending on single variable z, which should be scaled if scale=true\r
        inline mreal GetC(long s,mreal z,bool scale = true) const\r
-       {       return s+(scale?GetA(z):(z>0?z/MGL_EPSILON:0)); }\r
-       /// Get alpha value depending on single variable \a a\r
+       {       return s+(scale?GetA(z):(z>0?z/MGL_FEPSILON:0));        }\r
+       /// Get alpha value depending on single variable a\r
        mreal GetA(mreal a) const;\r
        /// Set pen/palette\r
        char SetPenPal(const char *stl, long *id=0);\r
        /// Add texture (like color scheme) and return the position of first color\r
        long AddTexture(const char *cols, int smooth=0);\r
-//     inline mreal AddTexture(char col)       {       return AddTexture(mglColor(col));       };\r
+//     inline mreal AddTexture(char col)       {       return AddTexture(mglColor(col));       }\r
        mreal AddTexture(mglColor col);\r
        inline void DefColor(mglColor col)      {       CDef = AddTexture(col); }\r
        /// Set next color from palette\r
@@ -386,18 +431,24 @@ public:
        inline const char *last_line()  {       return last_style;      }\r
 \r
 protected:\r
+       mglPoint OMin;          ///< Lower edge for original axis (before scaling)\r
+       mglPoint OMax;          ///< Upper edge for original axis (before scaling)\r
+       mglPoint AMin;          ///< Lower edge for axis scaling\r
+       mglPoint AMax;          ///< Upper edge for axis scaling\r
        mglPoint FMin;          ///< Actual lower edge after transformation formulas.\r
        mglPoint FMax;          ///< Actual upper edge after transformation formulas.\r
        mglPoint Org;           ///< Center of axis cross section.\r
        int WarnCode;           ///< Warning code\r
-       std::vector<mglPnt> Pnt;        ///< Internal points\r
+       std::vector<mglPnt> Pnt;        ///< Internal points\r
        std::vector<mglPrim> Prm;       ///< Primitives (lines, triangles and so on) -- need for export\r
        std::vector<mglPrim> Sub;       ///< InPlot regions {n1=x1,n2=x2,n3=y1,n4=y2,id}\r
        std::vector<mglText> Ptx;       ///< Text labels for mglPrim\r
        std::vector<mglText> Leg;       ///< Text labels for legend\r
-       std::vector<mglTexture> Txt;///< Pointer to textures\r
+       std::vector<mglGlyph> Glf;      ///< Glyphs data \r
+       std::vector<mglTexture> Txt;    ///< Pointer to textures\r
 #if MGL_HAVE_PTHREAD\r
-       pthread_mutex_t mutexPnt, mutexTxt, mutexLeg;\r
+       pthread_mutex_t mutexPnt, mutexTxt, mutexLeg, mutexGlf, mutexAct, mutexDrw;\r
+       pthread_mutex_t mutexSub, mutexPrm, mutexPtx, mutexStk, mutexGrp;\r
 #endif\r
 \r
        int TernAxis;           ///< Flag that Ternary axis is used\r
@@ -430,6 +481,7 @@ private:
        mglPoint MinS;          ///< Saved lower edge of bounding box for graphics.\r
        mglPoint MaxS;          ///< Saved upper edge of bounding box for graphics.\r
        mreal MSS, ASS, FSS, ADS, MNS, LSS;     ///< Saved state\r
+       mreal PrevState;                ///< Previous value of SaveState()\r
        long CSS;                       ///< Saved flags\r
        bool saved;                     ///< State is saved\r
        std::string leg_str;///< text to be save in legend\r
@@ -443,6 +495,7 @@ private:
        void ClearEq();                 ///< Clear the used variables for axis transformation\r
 };\r
 //-----------------------------------------------------------------------------\r
+bool mgl_check_dim0(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *name, bool less=false);\r
 bool mgl_check_dim1(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *name, bool less=false);\r
 bool mgl_check_dim2(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *name, bool less=false);\r
 bool mgl_check_dim3(HMGL gr, bool both, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *name);\r
@@ -465,5 +518,4 @@ typedef void *HMEX;
 typedef void *HMPR;\r
 typedef const void *HCDT;\r
 #endif\r
-/*****************************************************************************/\r
 #endif\r

diff --git a/include/mgl2/base_cf.h b/include/mgl2/base_cf.h
index 1391d2e561ec5e62aaadb99c98b55973983206ce..f4b2b6919bf6484c443154894ecf6a503c28acf5 100644 (file)
--- a/include/mgl2/base_cf.h
+++ b/include/mgl2/base_cf.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * base_cf.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,111 +20,148 @@
 #ifndef _MGL_BASE_CF_H_\r
 #define _MGL_BASE_CF_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
+/// Get last warning code\r
 int mgl_get_warn(HMGL gr);\r
+int mgl_get_warn_(uintptr_t *gr);\r
+/// Set warning code ant fill message\r
 void mgl_set_warn(HMGL gr, int code, const char *text);\r
+void mgl_set_warn_(uintptr_t *gr, int *code, const char *text,int);\r
+/// Set buffer for warning messages\r
 const char *mgl_get_mess(HMGL gr);\r
+\r
+/// Get bit-value flag of HMGL state (for advanced users only)\r
 int mgl_get_flag(HMGL gr, long flag);\r
+/// Set bit-value flag of HMGL state (for advanced users only)\r
 void mgl_set_flag(HMGL gr, int val, long flag);\r
-\r
+/// Change counter of HMGL uses (for advanced users only). Non-zero counter prevent automatic object removing.\r
 long mgl_use_graph(HMGL gr, int inc);\r
+long mgl_use_graph_(uintptr_t *gr, int *inc);\r
+void mgl_set_rdc_acc(HMGL gr, int reduce);     // TODO\r
+void mgl_set_rdc_acc_(uintptr_t *gr, int *reduce);\r
+\r
+/// Start group of objects\r
 void mgl_start_group(HMGL gr, const char *);\r
+void mgl_start_group_(uintptr_t *gr, const char *,int);\r
+/// End group of objects\r
 void mgl_end_group(HMGL gr);\r
+void mgl_end_group_(uintptr_t *gr);\r
+/// Highlight objects with given id\r
 void mgl_highlight(HMGL gr, int id);\r
+void mgl_highlight_(uintptr_t *gr, int *id);\r
 \r
+/// Set default palette\r
 void mgl_set_palette(HMGL gr, const char *colors);\r
-void mgl_set_alpha_default(HMGL graph, mreal alpha);\r
-void mgl_set_bar_width(HMGL graph, mreal width);\r
-void mgl_set_meshnum(HMGL graph, int num);\r
-void mgl_set_ambbr(HMGL gr, mreal i);\r
-void mgl_set_light_dif(HMGL gr, int enable);\r
-\r
-void mgl_set_rdc_acc(HMGL graph, int reduce);\r
-void mgl_set_cut(HMGL graph, int cut);\r
-void mgl_set_cut_box(HMGL gr, mreal x1,mreal y1,mreal z1,mreal x2,mreal y2,mreal z2);\r
-void mgl_set_ranges(HMGL graph, mreal x1, mreal x2, mreal y1, mreal y2, mreal z1, mreal z2);\r
-void mgl_set_range_val(HMGL gr, char dir, mreal v1,mreal v2);\r
-void mgl_set_range_dat(HMGL gr, char dir, HCDT a, int add);\r
-\r
-void mgl_set_origin(HMGL graph, mreal x0, mreal y0, mreal z0);\r
-void mgl_set_func(HMGL graph, const char *EqX,const char *EqY,const char *EqZ,const char *EqA);\r
-void mgl_set_coor(HMGL gr, int how);\r
-void mgl_set_ternary(HMGL gr, int enable);\r
-void mgl_set_cutoff(HMGL graph, const char *EqC);\r
-\r
-void mgl_set_tick_rotate(HMGL graph, int enable);\r
-void mgl_set_tick_skip(HMGL graph, int enable);\r
-\r
-mreal mgl_data_get_value(HCDT d, long i, long j, long k);\r
-long mgl_data_get_nx(HCDT d);\r
-long mgl_data_get_ny(HCDT d);\r
-long mgl_data_get_nz(HCDT d);\r
-\r
-void mgl_set_mark_size(HMGL graph, mreal size);\r
-void mgl_set_arrow_size(HMGL graph, mreal size);\r
-void mgl_set_font_size(HMGL graph, mreal size);\r
-void mgl_set_font_def(HMGL graph, const char *fnt);\r
-void mgl_set_rotated_text(HMGL graph, int enable);\r
-void mgl_load_font(HMGL gr, const char *name, const char *path);\r
-void mgl_copy_font(HMGL gr, HMGL gr_from);\r
-void mgl_restore_font(HMGL gr);\r
-void mgl_set_color(char id, mreal r, mreal g, mreal b);\r
+void mgl_set_palette_(uintptr_t *gr, const char *colors, int);\r
+void mgl_set_pal_color_(uintptr_t *gr, int *n, mreal *r, mreal *g, mreal *b);\r
+void mgl_set_pal_num_(uintptr_t *gr, int *num);\r
+/// Sets RGB values for color with given id\r
+void mgl_set_color(char id, double r, double g, double b);\r
+void mgl_set_color_(char *id, mreal *r, mreal *g, mreal *b, int);\r
+/// Set default color scheme\r
 void mgl_set_def_sch(HMGL gr, const char *sch);\r
-/*****************************************************************************/\r
 void mgl_set_def_sch_(uintptr_t *gr, const char *sch,int);\r
-void mgl_set_color_(char *id, mreal *r, mreal *g, mreal *b, int);\r
-int mgl_get_warn_(uintptr_t *gr);\r
-void mgl_set_warn_(uintptr_t *gr, int *code, const char *text,int);\r
-long mgl_use_graph_(uintptr_t *gr, int *inc);\r
-void mgl_start_group_(uintptr_t *gr, const char *,int);\r
-void mgl_end_group_(uintptr_t *gr);\r
-void mgl_highlight_(uintptr_t *gr, int *id);\r
 \r
-void mgl_set_palette_(uintptr_t *gr, const char *colors, int);\r
-void mgl_set_pal_color_(uintptr_t *graph, int *n, mreal *r, mreal *g, mreal *b);\r
-void mgl_set_pal_num_(uintptr_t *graph, int *num);\r
-void mgl_set_alpha_default_(uintptr_t *graph, mreal *alpha);\r
-void mgl_set_bar_width_(uintptr_t *graph, mreal *width);\r
-void mgl_set_meshnum_(uintptr_t *graph, int *num);\r
+/// Set default value of alpha-channel\r
+void mgl_set_alpha_default(HMGL gr, double alpha);\r
+void mgl_set_alpha_default_(uintptr_t *gr, mreal *alpha);\r
+/// Set relative width of rectangles in Bars, Barh, BoxPlot\r
+void mgl_set_bar_width(HMGL gr, double width);\r
+void mgl_set_bar_width_(uintptr_t *gr, mreal *width);\r
+/// Set number of mesh lines (use 0 to draw all of them)\r
+void mgl_set_meshnum(HMGL gr, int num);\r
+void mgl_set_meshnum_(uintptr_t *gr, int *num);\r
+/// Set number of visible faces (use 0 to draw all of them)\r
+void mgl_set_facenum(HMGL gr, int num);\r
+void mgl_set_facenum_(uintptr_t *gr, int *num);\r
+/// Clear unused points and primitives. Useful only in combination with mgl_set_facenum().\r
+void mgl_clear_unused(HMGL gr);\r
+void mgl_clear_unused_(uintptr_t *gr);\r
+\r
+/// Set ambient light brightness\r
+void mgl_set_ambbr(HMGL gr, double i);\r
 void mgl_set_ambbr_(uintptr_t *gr, mreal *i);\r
-void mgl_set_light_dif_(uintptr_t *graph, int *enable);\r
+/// Use diffusive light (only for local light sources)\r
+void mgl_set_light_dif(HMGL gr, int enable);\r
+void mgl_set_light_dif_(uintptr_t *gr, int *enable);\r
+\r
+/// Set cutting for points outside of bounding box\r
+void mgl_set_cut(HMGL gr, int cut);\r
+void mgl_set_cut_(uintptr_t *gr, int *cut);\r
+/// Set additional cutting box\r
+void mgl_set_cut_box(HMGL gr, double x1,double y1,double z1,double x2,double y2,double z2);\r
+void mgl_set_cut_box_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2);\r
+/// Set the cutting off condition (formula)\r
+void mgl_set_cutoff(HMGL gr, const char *EqC);\r
+void mgl_set_cutoff_(uintptr_t *gr, const char *EqC, int);\r
 \r
-void mgl_set_rdc_acc_(uintptr_t *graph, int *reduce);\r
-void mgl_set_cut_(uintptr_t *graph, int *cut);\r
-void mgl_set_cut_box_(uintptr_t *gr, mreal *x1,mreal *y1,mreal *z1,mreal *x2,mreal *y2,mreal *z2);\r
-void mgl_set_ranges_(uintptr_t *graph, mreal *x1, mreal *x2, mreal *y1, mreal *y2, mreal *z1, mreal *z2);\r
-void mgl_set_range_val_(uintptr_t *gr, const char *dir, mreal *v1,mreal *v2,int);\r
+/// Set values of axis range\r
+void mgl_set_ranges(HMGL gr, double x1, double x2, double y1, double y2, double z1, double z2);\r
+void mgl_set_ranges_(uintptr_t *gr, mreal *x1, mreal *x2, mreal *y1, mreal *y2, mreal *z1, mreal *z2);\r
+/// Set range in direction dir as [v1, v2]\r
+void mgl_set_range_val(HMGL gr, char dir, double v1,double v2);\r
+void mgl_set_range_val_(uintptr_t *gr, const char *dir, mreal *v1, mreal *v2,int);\r
+/// Set range in direction dir as minimal and maximal values of data a\r
+void mgl_set_range_dat(HMGL gr, char dir, HCDT a, int add);\r
 void mgl_set_range_dat_(uintptr_t *gr, const char *dir, uintptr_t *a, int *add,int);\r
+/// Set axis range scaling -- simplified way to shift/zoom axis range -- need to redraw whole image!\r
+void mgl_zoom_axis(HMGL gr, double x1,double y1,double z1,double c1,double x2,double y2,double z2,double c2);\r
+void mgl_zoom_axis_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *c1, mreal *x2, mreal *y2, mreal *z2, mreal *c2);\r
 \r
+/// Set axis origin\r
+void mgl_set_origin(HMGL gr, double x0, double y0, double z0);\r
 void mgl_set_origin_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0);\r
-void mgl_set_func_(uintptr_t *graph, const char *EqX, const char *EqY, const char *EqZ, const char *EqA, int, int, int, int);\r
+/// Set the transformation formulas for coordinate\r
+void mgl_set_func(HMGL gr, const char *EqX,const char *EqY,const char *EqZ,const char *EqA);\r
+void mgl_set_func_(uintptr_t *gr, const char *EqX, const char *EqY, const char *EqZ, const char *EqA, int, int, int, int);\r
+/// Set one of predefined transformation rule\r
+void mgl_set_coor(HMGL gr, int how);\r
 void mgl_set_coor_(uintptr_t *gr, int *how);\r
-void mgl_set_ternary_(uintptr_t *graph, int *enable);\r
-void mgl_set_cutoff_(uintptr_t *graph, const char *EqC, int);\r
-\r
-void mgl_set_tick_rotate_(uintptr_t *graph, int *enable);\r
-void mgl_set_tick_skip_(uintptr_t *graph, int *enable);\r
+/// Set to draw Ternary axis (triangle like axis, grid and so on)\r
+void mgl_set_ternary(HMGL gr, int enable);\r
+void mgl_set_ternary_(uintptr_t *gr, int *enable);\r
 \r
-mreal mgl_data_get_value_(uintptr_t *d, int *i, int *j, int *k);\r
-long mgl_data_get_nx_(uintptr_t *d);\r
-long mgl_data_get_ny_(uintptr_t *d);\r
-long mgl_data_get_nz_(uintptr_t *d);\r
+/// Set to use or not tick labels rotation\r
+void mgl_set_tick_rotate(HMGL gr, int enable);\r
+void mgl_set_tick_rotate_(uintptr_t *gr, int *enable);\r
+/// Set to use or not tick labels skipping\r
+void mgl_set_tick_skip(HMGL gr, int enable);\r
+void mgl_set_tick_skip_(uintptr_t *gr, int *enable);\r
 \r
-void mgl_set_mark_size_(uintptr_t *graph, mreal *size);\r
-void mgl_set_arrow_size_(uintptr_t *graph, mreal *size);\r
-void mgl_set_font_size_(uintptr_t *graph, mreal *size);\r
-void mgl_set_font_def_(uintptr_t *graph, const char *fnt, int);\r
-void mgl_set_rotated_text_(uintptr_t *graph, int *enable);\r
+/// Set default font for all new HMGL objects\r
+void mgl_def_font(const char *name, const char *path);\r
+void mgl_def_font_(const char *name, const char *path,int,int);\r
+/// Set default size of marks (locally you can use "size" option)\r
+void mgl_set_mark_size(HMGL gr, double size);\r
+void mgl_set_mark_size_(uintptr_t *gr, mreal *size);\r
+/// Set default size of arrows (locally you can use "size" option)\r
+void mgl_set_arrow_size(HMGL gr, double size);\r
+void mgl_set_arrow_size_(uintptr_t *gr, mreal *size);\r
+/// Set default font size\r
+void mgl_set_font_size(HMGL gr, double size);\r
+void mgl_set_font_size_(uintptr_t *gr, mreal *size);\r
+/// Set default font style and color\r
+void mgl_set_font_def(HMGL gr, const char *fnt);\r
+void mgl_set_font_def_(uintptr_t *gr, const char *fnt, int);\r
+/// Set to use or not text rotation\r
+void mgl_set_rotated_text(HMGL gr, int enable);\r
+void mgl_set_rotated_text_(uintptr_t *gr, int *enable);\r
+/// Load font from file\r
+void mgl_load_font(HMGL gr, const char *name, const char *path);\r
 void mgl_load_font_(uintptr_t *gr, char *name, char *path, int l, int n);\r
+/// Copy font from another mglGraph instance\r
+void mgl_copy_font(HMGL gr, HMGL gr_from);\r
 void mgl_copy_font_(uintptr_t *gr, uintptr_t *gr_from);\r
+/// Restore font (load default font for new HMGL objects)\r
+void mgl_restore_font(HMGL gr);\r
 void mgl_restore_font_(uintptr_t *gr);\r
-/*****************************************************************************/\r
+\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/canvas.h b/include/mgl2/canvas.h
index 8937e3b718efa8f11ab0a514c701a5191512f5a8..2189f66fdc04f9fbed2c400cf50d20919c64190e 100644 (file)
--- a/include/mgl2/canvas.h
+++ b/include/mgl2/canvas.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * canvas.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -45,10 +45,10 @@ struct mglMatrix
 /// Structure for drawing axis and ticks\r
 struct mglAxis\r
 {\r
-       mglAxis()       {       dv=ds=d=v0=v1=v2=o=sh=0;        ns=f=ch=*t=0;   }\r
+       mglAxis()       {       dv=ds=d=v0=v1=v2=o=sh=0;        ns=f=ch=*t=0;   pos = 't';      }\r
        mglAxis(const mglAxis &aa)\r
        {       dv=aa.dv;       ds=aa.ds;       d=aa.d;         dir=aa.dir;     sh=aa.sh;\r
-               v0=aa.v0;       v1=aa.v1;       v2=aa.v2;       o=aa.o;\r
+               v0=aa.v0;       v1=aa.v1;       v2=aa.v2;       o=aa.o;         pos=aa.pos;\r
                a = aa.a;       b = aa.b;       org=aa.org;     txt=aa.txt;\r
                ns=aa.ns;       f=aa.f;         ch=aa.ch;       wcscpy(t,aa.t); }\r
        inline void AddLabel(const wchar_t *lbl, mreal v)\r
@@ -59,7 +59,7 @@ struct mglAxis
        mreal dv,ds;            ///< Actual step for ticks and subticks.\r
        mreal d;                        ///< Step for axis ticks (if positive) or its number (if negative).\r
        int ns;                 ///< Number of axis subticks.\r
-       wchar_t t[256]; ///< Tick template (set NULL to use default one ("%.2g" in simplest case))\r
+       wchar_t t[256]; ///< Tick template (set "" to use default one ("%.2g" in simplest case))\r
        mglPoint dir;   ///< Axis direction\r
        mglPoint a,b;   ///< Directions of over axis\r
        mglPoint org;\r
@@ -70,6 +70,7 @@ struct mglAxis
        int f;                  ///< Flag 0x1 - time, 0x2 - manual, 0x4 - fixed dv\r
        std::vector<mglText> txt;       ///< Axis labels\r
        char ch;                        ///< Character of axis (like 'x','y','z','c')\r
+       char pos;               ///< Text position ('t' by default, or 'T' for opposite)\r
        mreal sh;               ///< Extra shift of ticks and axis labels\r
 };\r
 //-----------------------------------------------------------------------------\r
@@ -91,6 +92,9 @@ class mglCanvas;
 /// Structure for light source\r
 struct mglDrawReg\r
 {\r
+       unsigned PDef;\r
+       int ObjId;\r
+       mreal PenWidth, pPos;\r
        int x1,x2,y1,y2;\r
        void set(mglCanvas *gr, int nx, int ny, int m);\r
 };\r
@@ -98,13 +102,11 @@ struct mglDrawReg
 /// Structure contains everything for drawing\r
 struct mglDrawDat\r
 {\r
-       std::vector<mglGroup> Grp;      ///< List of groups with names -- need for export\r
-       std::vector<mglPnt> Pnt;        ///< Internal points\r
+       std::vector<mglPnt>  Pnt;       ///< Internal points\r
        std::vector<mglPrim> Prm;       ///< Primitives (lines, triangles and so on) -- need for export\r
-       std::vector<mglPrim> Sub;       ///< InPlot regions {n1=x1,n2=x2,n3=y1,n4=y2,id}\r
        std::vector<mglText> Ptx;       ///< Text labels for mglPrim\r
-       std::vector<mglText> Leg;       ///< Text labels for legend\r
-       std::vector<mglTexture> Txt;///< Pointer to textures\r
+       std::vector<mglGlyph> Glf;      ///< Glyphs data\r
+       std::vector<mglTexture> Txt;    ///< Pointer to textures\r
 };\r
 //-----------------------------------------------------------------------------\r
 /// Class contains all functionality for creating different mathematical plots\r
@@ -125,12 +127,12 @@ using mglBase::Light;
        /// Zoom in or zoom out (if Zoom(0, 0, 1, 1)) a part of picture\r
        virtual void Zoom(mreal x1, mreal y1, mreal x2, mreal y2);\r
        /// Restore image after View() and Zoom()\r
-       virtual void Restore()  {       Bp.clear();     Bp.pf=0;        }\r
+       inline void Restore()   {       Zoom(0,0,1,1);  }\r
 \r
        /// Clear transformation matrix.\r
        inline void Identity(bool rel=false)    {       InPlot(0,1,0,1,rel);    }\r
        /// Push transformation matrix into stack\r
-       inline void Push()      {       stack.push_back(B);     }\r
+       inline void Push()      {       MGL_PUSH(stack,B,mutexStk);     }\r
        /// Set PlotFactor\r
        inline void SetPlotFactor(mreal val)\r
        {       if(val<=0)      {B.pf=1.55;     set(MGL_AUTO_FACTOR);}  else {B.pf=val; clr(MGL_AUTO_FACTOR);}  }\r
@@ -182,17 +184,19 @@ using mglBase::Light;
        inline void SetDelay(mreal d)   {       Delay=d;        }\r
 \r
        /// Calculate 3D coordinate {x,y,z} for screen point {xs,ys}\r
-       mglPoint CalcXYZ(int xs, int ys) const;\r
+       mglPoint CalcXYZ(int xs, int ys, bool real=false) const;\r
        /// Calculate screen point {xs,ys} for 3D coordinate {x,y,z}\r
        void CalcScr(mglPoint p, int *xs, int *ys) const;\r
        mglPoint CalcScr(mglPoint p) const;\r
        /// Set object/subplot id\r
        inline void SetObjId(long id)   {       ObjId = id;     }\r
        /// Get object id\r
-       inline int GetObjId(long x,long y) const        {       return OI[x+Width*y];   }\r
+       inline int GetObjId(long xs,long ys) const      {       return OI[xs+Width*ys]; }\r
        /// Get subplot id\r
-       int GetSplId(long x,long y) const;\r
-\r
+       int GetSplId(long xs,long ys) const;\r
+       /// Check if there is active point or primitive (n=-1)\r
+       int IsActive(int xs, int ys,int &n);\r
+       \r
        /// Create new frame.\r
        virtual int NewFrame();\r
        /// Finish frame drawing\r
@@ -200,8 +204,16 @@ using mglBase::Light;
        /// Get the number of created frames\r
        inline int GetNumFrame() const  {       return CurFrameId;      }\r
        /// Reset frames counter (start it from zero)\r
-       inline void ResetFrames()       {       CurFrameId=0;   DrwDat.clear(); }\r
-\r
+       virtual void ResetFrames();\r
+       /// Delete primitives for i-th frame\r
+       virtual void DelFrame(long i);\r
+       /// Get drawing data for i-th frame.\r
+       void GetFrame(long i);\r
+       /// Set drawing data for i-th frame. This work as EndFrame() but don't add frame to GIF image.\r
+       virtual void SetFrame(long i);\r
+       /// Add drawing data from i-th frame to the current drawing\r
+       void ShowFrame(long i);\r
+       \r
        /// Start write frames to cinema using GIF format\r
        void StartGIF(const char *fname, int ms=100);\r
        /// Stop writing cinema using GIF format\r
@@ -212,6 +224,8 @@ using mglBase::Light;
        bool ExportMGLD(const char *fname, const char *descr=0);\r
        /// Import points and primitives from file using MGLD format\r
        bool ImportMGLD(const char *fname, bool add=false);\r
+       /// Export in JSON format suitable for later drawing by JavaScript\r
+       bool WriteJSON(const char *fname);\r
 \r
        /// Set the transparency type\r
        inline void SetTranspType(int val)\r
@@ -243,21 +257,21 @@ using mglBase::Light;
        void AdjustTicks(const char *dir="xyzc", bool force=false);\r
        /// Tune ticks\r
        inline void SetTuneTicks(int tune, mreal pos=1.15)\r
-       {       TuneTicks = tune;       FactorPos = pos;        };\r
+       {       TuneTicks = tune;       FactorPos = pos;        }\r
        /// Set ticks styles\r
        void SetAxisStl(const char *stl="k", const char *tck=0, const char *sub=0);\r
        /// Set ticks length\r
        void SetTickLen(mreal tlen, mreal stt=1.);\r
 \r
-       /// Draws bounding box outside the plotting volume with color \a c.\r
+       /// Draws bounding box outside the plotting volume with color c.\r
        void Box(const char *col=0, bool ticks=true);\r
-       /// Draw axises with ticks in directions determined by string parameter \a dir.\r
-       void Axis(const char *dir="xyzt", const char *stl="");\r
-       /// Draw grid lines perpendicular to direction determined by string parameter \a dir.\r
-       void Grid(const char *dir="xyzt",const char *pen="B-");\r
-       /// Print the label \a text for axis \a dir.\r
-       void Label(char dir, const char *text, mreal pos=0, mreal shift=0);\r
-       void Labelw(char dir, const wchar_t *text, mreal pos=0, mreal shift=0);\r
+       /// Draw axises with ticks in directions determined by string parameter dir.\r
+       void Axis(const char *dir="xyzt", const char *stl="", const char *opt="");\r
+       /// Draw grid lines perpendicular to direction determined by string parameter dir.\r
+       void Grid(const char *dir="xyzt",const char *pen="B-", const char *opt="");\r
+       /// Print the label text for axis dir.\r
+       void Label(char dir, const char *text, mreal pos=0, const char *opt="");\r
+       void Labelw(char dir, const wchar_t *text, mreal pos=0, const char *opt="");\r
 \r
        /// Draw colorbar at edge of axis\r
        void Colorbar(const char *sch=0);\r
@@ -266,19 +280,22 @@ using mglBase::Light;
        void Colorbar(HCDT v, const char *sch=0);\r
        void Colorbar(HCDT v, const char *sch, mreal x, mreal y, mreal w, mreal h);\r
 \r
-       /// Draw legend of accumulated strings at position (x, y) by \a font with \a size\r
-       inline void Legend(mreal x, mreal y, const char *font="#", mreal size=-0.8, mreal llen=0.1)\r
-       {       Legend(Leg,x,y,font,size,llen); }\r
-       /// Draw legend of accumulated strings by \a font with \a size\r
-       inline void Legend(int where=0x3, const char *font="#", mreal size=-0.8, mreal llen=0.1)\r
-       {       Legend(Leg,(where&1)?1:0,(where&2)?1:0,font,size,llen); }\r
-       /// Draw legend of accumulated strings by \a font with \a size\r
-       inline void Legend(const std::vector<mglText> &leg, int where=3, const char *font="#", mreal size=-0.8, mreal llen=0)\r
-       {       Legend(leg,(where&1)?1:0,(where&2)?1:0,font,size,llen); }\r
-       /// Draw legend strings \a text at position (x, y) by \a font with \a size\r
-       void Legend(const std::vector<mglText> &leg, mreal x, mreal y, const char *font="#", mreal size=-0.8, mreal llen=0);\r
+       /// Draw legend of accumulated strings at position (x, y) by font with size\r
+       inline void Legend(mreal x, mreal y, const char *font="#", const char *opt="")\r
+       {       Legend(Leg,x,y,font,opt);       }\r
+       /// Draw legend of accumulated strings by font with size\r
+       inline void Legend(int where=0x3, const char *font="#", const char *opt="")\r
+       {       Legend(Leg,(where&1)?1:0,(where&2)?1:0,font,opt);       }\r
+       /// Draw legend of accumulated strings by font with size\r
+       inline void Legend(const std::vector<mglText> &leg, int where=3, const char *font="#", const char *opt="")\r
+       {       Legend(leg,(where&1)?1:0,(where&2)?1:0,font,opt);       }\r
+       /// Draw legend strings text at position (x, y) by font with size\r
+       void Legend(const std::vector<mglText> &leg, mreal x, mreal y, const char *font="#", const char *opt="");\r
        /// Number of marks in legend sample\r
-       inline void SetLegendMarks(int num=1)   {       LegendMarks = num>0?num:1;      };\r
+       inline void SetLegendMarks(int num=1)   {       LegendMarks = num>0?num:1;      }\r
+\r
+       /// Draw table for values val along given direction with row labels text at given position\r
+       void Table(mreal x, mreal y, HCDT val, const wchar_t *text, const char *fnt, const char *opt);\r
 \r
        void StartAutoGroup (const char *);\r
        void EndGroup();\r
@@ -297,9 +314,6 @@ protected:
        unsigned char *G4;      ///< Final picture in RGBA format. Prepared in Finish().\r
        unsigned char *G;       ///< Final picture in RGB format. Prepared in Finish().\r
        std::vector<mglDrawDat> DrwDat; ///< Set of ALL drawing data for each frames\r
-#if MGL_HAVE_PTHREAD\r
-       pthread_mutex_t mutexSub, mutexPrm, mutexPtx, mutexStk, mutexGrp;\r
-#endif\r
 \r
        int LegendMarks;        ///< Number of marks in the Legend\r
        unsigned char BDef[4];  ///< Background color\r
@@ -321,6 +335,7 @@ protected:
        mglMatrix B;            ///< Transformation matrix\r
        mglMatrix B1;           ///< Transformation matrix for colorbar\r
        mreal inW, inH;         ///< Width and height of last InPlot\r
+       mreal inX, inY;         ///< Coordinates of last InPlot\r
        mglLight light[10];     ///< Light sources\r
        mreal FogDist;          ///< Inverse fog distance (fog ~ exp(-FogDist*Z))\r
        mreal FogDz;            ///< Relative shift of fog\r
@@ -330,7 +345,7 @@ protected:
        /// Prepare labels for ticks\r
        void LabelTicks(mglAxis &aa);\r
        /// Draw axis\r
-       void DrawAxis(mglAxis &aa, bool text=true, char arr=0,const char *stl="");\r
+       void DrawAxis(mglAxis &aa, bool text=true, char arr=0,const char *stl="",const char *opt="");\r
        /// Draw axis grid lines\r
        void DrawGrid(mglAxis &aa);\r
        /// Update axis ranges\r
@@ -340,27 +355,24 @@ protected:
                ax.v2=Max.x;    ay.v2=Max.y;    az.v2=Max.z;    ac.v2=Max.c;    }\r
 \r
        /// Clear ZBuffer only\r
-       void ClfZB();\r
+       void ClfZB(bool force=false);\r
        /// Scale coordinates and cut off some points\r
        bool ScalePoint(mglPoint &p, mglPoint &n, bool use_nan=true) const;\r
        void LightScale();      ///< Additionally scale positions of light sources\r
-\r
        /// Push drawing data (for frames only). NOTE: can be VERY large\r
        long PushDrwDat();\r
-       /// Get drawing data for i-th frame.\r
-       void GetDrwDat(long i);\r
-\r
+       \r
        mreal GetOrgX(char dir) const;  ///< Get Org.x (parse NAN value)\r
        mreal GetOrgY(char dir) const;  ///< Get Org.y (parse NAN value)\r
        mreal GetOrgZ(char dir) const;  ///< Get Org.z (parse NAN value)\r
 \r
-       void mark_plot(long p, char type, mreal size=1);        // position in pntC\r
-       void arrow_plot(long p1, long p2, char st);                     // position in pntC\r
-       void line_plot(long p1, long p2);       // position in pntC\r
-       void trig_plot(long p1, long p2, long p3);                      // position in pntN\r
-       void quad_plot(long p1, long p2, long p3, long p4);     // position in pntN\r
+       void mark_plot(long p, char type, mreal size=1);\r
+       void arrow_plot(long p1, long p2, char st);\r
+       void line_plot(long p1, long p2);\r
+       void trig_plot(long p1, long p2, long p3);\r
+       void quad_plot(long p1, long p2, long p3, long p4);\r
        void Glyph(mreal x, mreal y, mreal f, int style, long icode, mreal col);\r
-       mreal text_plot(long p,const wchar_t *text,const char *fnt,mreal size=-1,mreal sh=0,mreal  col=-('k'), bool rot=true);  // position in pntN\r
+       mreal text_plot(long p,const wchar_t *text,const char *fnt,mreal size=-1,mreal sh=0,mreal  col=-('k'), bool rot=true);\r
 \r
        void add_prim(mglPrim &a);      ///< add primitive to list\r
        void mark_draw(long p, char type, mreal size, mglDrawReg *d);\r
@@ -369,19 +381,24 @@ protected:
        virtual void trig_draw(long p1, long p2, long p3, bool anorm, mglDrawReg *d);\r
        virtual void quad_draw(long p1, long p2, long p3, long p4, mglDrawReg *d);\r
        virtual void pnt_draw(long p, mglDrawReg *d);\r
+       void arrow_draw(long n1, long n2, char st, float ll);\r
+       void arrow_plot_3d(long p1, long p2, char st, float ll);\r
        void glyph_draw(const mglPrim *P, mglDrawReg *d);\r
        bool IsSame(const mglPrim &pr,mreal wp,mglColor cp,int st);\r
 \r
+       // restore normalized coordinates from screen ones\r
+       mglPoint RestorePnt(mglPoint ps, bool norm=false) const;\r
+\r
        // functions for multi-threading\r
        void PreparePrim(bool fast);\r
-       void pxl_combine(unsigned long id, unsigned long n, const void *);\r
-       void pxl_memcpy(unsigned long id, unsigned long n, const void *);\r
-       void pxl_backgr(unsigned long id, unsigned long n, const void *);\r
-       void pxl_primdr(unsigned long id, unsigned long n, const void *);\r
-       void pxl_transform(unsigned long id, unsigned long n, const void *);\r
-       void pxl_setz(unsigned long id, unsigned long n, const void *);\r
-       void pxl_setz_adv(unsigned long id, unsigned long n, const void *);\r
-       void pxl_other(unsigned long id, unsigned long n, const void *p);\r
+       void pxl_combine(size_t id, size_t n, const void *);\r
+       void pxl_memcpy(size_t id, size_t n, const void *);\r
+       void pxl_backgr(size_t id, size_t n, const void *);\r
+       void pxl_primdr(size_t id, size_t n, const void *);\r
+       void pxl_transform(size_t id, size_t n, const void *);\r
+       void pxl_setz(size_t id, size_t n, const void *);\r
+       void pxl_setz_adv(size_t id, size_t n, const void *);\r
+       void pxl_other(size_t id, size_t n, const void *p);\r
        /// Put drawing from other mglCanvas (for multithreading, like subplots)\r
        void PutDrawReg(mglDrawReg *d, const mglCanvas *gr);\r
        \r
@@ -391,44 +408,50 @@ private:
        int dr_nx1, dr_nx2, dr_ny1, dr_ny2;     // Allowed drawing region\r
        GifFileType *gif;\r
        mreal fscl,ftet;        ///< last scale and rotation for glyphs\r
+       long forg;              ///< original point (for directions)\r
+       size_t grp_counter;     ///< Counter for StartGroup(); EndGroup();\r
 \r
        /// Draw generic colorbar\r
        void colorbar(HCDT v, const mreal *s, int where, mreal x, mreal y, mreal w, mreal h);\r
        /// Draw labels for ticks\r
        void DrawLabels(mglAxis &aa);\r
+       /// Get label style\r
+       char GetLabelPos(mreal c, long kk, mglAxis &aa);\r
        /// Draw tick\r
        void tick_draw(mglPoint o, mglPoint d1, mglPoint d2, int f, const char *stl);\r
-       /// Plot point \a p with color \a c\r
-       void pnt_plot(long x,long y,mreal z,const unsigned char c[4]);\r
+       /// Plot point p with color c\r
+       void pnt_plot(long x,long y,mreal z,const unsigned char c[4], int obj_id);\r
        mreal FindOptOrg(char dir, int ind) const;\r
        /// Transform mreal color and alpha to bits format\r
-       unsigned char* col2int(const mglPnt &p, unsigned char *r);\r
+       unsigned char* col2int(const mglPnt &p, unsigned char *r, int obj_id);\r
        /// Combine colors in 2 plane.\r
-       void combine(unsigned char *c1,unsigned char *c2);\r
+       void combine(unsigned char *c1, const unsigned char *c2);\r
        /// Fast drawing of line between 2 points\r
        void fast_draw(long p1, long p2, mglDrawReg *d);\r
 \r
-       /// Additionally scale points \a p for positioning in image\r
+       /// Additionally scale points p for positioning in image\r
        void PostScale(mglPoint &p) const;\r
-       /// Scale points \a p for projection to the face number \a nface in image\r
-       long ProjScale(int nface, long p);\r
+       /// Scale points p for projection to the face number nface in image\r
+       long ProjScale(int nface, long p, bool text=false);\r
        inline void PostScale(mglPoint *p,long n) const {       for(long i=0;i<n;i++)   PostScale(p[i]);        }\r
-\r
+       /// Set coordinate and add the point, return its id\r
+       long setPp(mglPnt &q, const mglPoint &p);\r
+       \r
        // functions for glyph drawing\r
-       void glyph_fill(const mglPnt &p, mreal f, int nt, const short *trig, mglDrawReg *d);\r
-       void glyph_wire(const mglPnt &p, mreal f, int nl, const short *line, mglDrawReg *d);\r
+       void glyph_fill(const mglPnt &p, mreal f, const mglGlyph &g, mglDrawReg *d);\r
+       void glyph_wire(const mglPnt &p, mreal f, const mglGlyph &g, mglDrawReg *d);\r
        void glyph_line(const mglPnt &p, mreal f, bool solid, mglDrawReg *d);\r
 };\r
 //-----------------------------------------------------------------------------\r
 struct mglThreadG\r
 {\r
        mglCanvas *gr;          // grapher\r
-       void (mglCanvas::*f)(unsigned long i, unsigned long n, const void *);\r
+       void (mglCanvas::*f)(size_t i, size_t n, const void *);\r
        unsigned id;            // thread id\r
-       unsigned long n;        // total number of iteration\r
+       size_t n;       // total number of iteration\r
        const void *p;          // external parameter\r
 };\r
 /// Start several thread for the task\r
-void mglStartThread(void (mglCanvas::*func)(unsigned long i, unsigned long n), mglCanvas *gr, unsigned long n);\r
+void mglStartThread(void (mglCanvas::*func)(size_t i, size_t n), mglCanvas *gr, size_t n);\r
 //-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/canvas_cf.h b/include/mgl2/canvas_cf.h
index 5eebdd96a85c16df11d838850c0b4b86e1a18e2d..9f8260b0ae4a66a9eafb0684c251453aa86b72ab 100644 (file)
--- a/include/mgl2/canvas_cf.h
+++ b/include/mgl2/canvas_cf.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * canvas_cf.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,336 +20,493 @@
 #ifndef MGL_CANVAS_CF_H\r
 #define MGL_CANVAS_CF_H\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
+/// Create HMGL object with specified sizes\r
 HMGL mgl_create_graph(int width, int height);\r
-void mgl_delete_graph(HMGL graph);\r
+uintptr_t mgl_create_graph_(int *width, int *height);\r
+/// Delete HMGL object\r
+void mgl_delete_graph(HMGL gr);\r
+void mgl_delete_graph_(uintptr_t *gr);\r
+/// Set size of frame in pixels. Normally this function is called internally.\r
 void mgl_set_size(HMGL gr, int width, int height);\r
+void mgl_set_size_(uintptr_t *gr, int *width, int *height);\r
+/// Set default parameters for plotting\r
 void mgl_set_def_param(HMGL gr);\r
+void mgl_set_def_param_(uintptr_t *gr);\r
+/// Set plot quality\r
 void mgl_set_quality(HMGL gr, int qual);\r
+void mgl_set_quality_(uintptr_t *gr, int *qual);\r
+/// Combine plots from 2 canvases. Result will be saved into gr\r
 void mgl_combine_gr(HMGL gr, HMGL in);\r
+void mgl_combine_gr_(uintptr_t *gr, uintptr_t *in);\r
+/// Force preparing the image. It can be useful for OpenGL mode mostly.\r
+void mgl_finish(HMGL gr);\r
+void mgl_finish_(uintptr_t *gr);\r
 \r
-void mgl_set_tick_len(HMGL gr, mreal len, mreal stt);\r
+/// Set tick length\r
+void mgl_set_tick_len(HMGL gr, double len, double stt);\r
+void mgl_set_tick_len_(uintptr_t *gr, mreal *len, mreal *stt);\r
+/// Set axis and ticks style\r
 void mgl_set_axis_stl(HMGL gr, const char *stl, const char *tck, const char *sub);\r
+void mgl_set_axis_stl_(uintptr_t *gr, const char *stl, const char *tck, const char *sub, int,int,int);\r
+\r
+/// Auto adjust ticks\r
 void mgl_adjust_ticks(HMGL gr, const char *dir);\r
-void mgl_set_ticks(HMGL gr, char dir, mreal d, int ns, mreal org);\r
+void mgl_adjust_ticks_(uintptr_t *gr, const char *dir, int);\r
+/// Set the ticks parameters\r
+void mgl_set_ticks(HMGL gr, char dir, double d, int ns, double org);\r
+void mgl_set_ticks_(uintptr_t *gr, char *dir, mreal *d, int *ns, mreal *org, int);\r
+/// Set ticks text (\n separated). Use "" to disable this feature.\r
 void mgl_set_ticks_str(HMGL gr, char dir, const char *lbl, int add);\r
+void mgl_set_ticks_str_(uintptr_t *gr, const char *dir, const char *lbl, int *add,int,int);\r
 void mgl_set_ticks_wcs(HMGL gr, char dir, const wchar_t *lbl, int add);\r
+/// Set ticks position and text (\n separated). Use "" to disable this feature.\r
 void mgl_set_ticks_val(HMGL gr, char dir, HCDT val, const char *lbl, int add);\r
+void mgl_set_ticks_val_(uintptr_t *gr, const char *dir, uintptr_t *val, const char *lbl, int *add,int,int);\r
 void mgl_set_ticks_valw(HMGL gr, char dir, HCDT val, const wchar_t *lbl, int add);\r
-void mgl_tune_ticks(HMGL gr, int tune, mreal fact_pos);\r
+/// Tune ticks\r
+void mgl_tune_ticks(HMGL gr, int tune, double fact_pos);\r
+void mgl_tune_ticks_(uintptr_t *gr, int *tune, mreal *fact_pos);\r
+/// Set templates for ticks\r
 void mgl_set_tick_templ(HMGL gr, char dir, const char *templ);\r
+void mgl_set_tick_templ_(uintptr_t *gr, const char *dir, const char *templ,int,int);\r
 void mgl_set_tick_templw(HMGL gr, char dir, const wchar_t *templ);\r
-void mgl_set_ticks_time(HMGL gr, char dir, mreal d, const char *t);\r
-void mgl_set_tick_shift(HMGL gr, mreal sx, mreal sy, mreal sz, mreal sc);\r
+/// Set time templates for ticks\r
+void mgl_set_ticks_time(HMGL gr, char dir, double d, const char *t);\r
+void mgl_set_ticks_time_(uintptr_t *gr, const char *dir, mreal *d, const char *t,int,int);\r
+/// Set additional shift of tick labels\r
+void mgl_set_tick_shift(HMGL gr, double sx, double sy, double sz, double sc);\r
+void mgl_set_tick_shift_(uintptr_t *gr, mreal *sx, mreal *sy, mreal *sz, mreal *sc);\r
 \r
-void mgl_box(HMGL graph);\r
+/// Draws bounding box outside the plotting volume\r
+void mgl_box(HMGL gr);\r
+void mgl_box_(uintptr_t *gr);\r
+/// Draws bounding box outside the plotting volume with color c\r
 void mgl_box_str(HMGL gr, const char *col, int ticks);\r
-void mgl_axis(HMGL gr, const char *dir, const char *stl);\r
-void mgl_axis_grid(HMGL gr, const char *dir,const char *pen);\r
-void mgl_label(HMGL gr, char dir, const char *text);\r
-void mgl_label_ext(HMGL gr, char dir, const char *text, mreal pos, mreal shift);\r
-void mgl_labelw_ext(HMGL gr, char dir, const wchar_t *text, mreal pos, mreal shift);\r
+void mgl_box_str_(uintptr_t *gr, const char *col, int *ticks, int);\r
+/// Draw axises with ticks in direction(s) dir.\r
+void mgl_axis(HMGL gr, const char *dir, const char *stl, const char *opt);\r
+void mgl_axis_(uintptr_t *gr, const char *dir, const char *stl, const char *opt,int,int,int);\r
+/// Draw grid lines perpendicular to direction(s) dir.\r
+void mgl_axis_grid(HMGL gr, const char *dir,const char *pen, const char *opt);\r
+void mgl_axis_grid_(uintptr_t *gr, const char *dir,const char *pen, const char *opt,int,int,int);\r
+/// Print the label text for axis dir.\r
+void mgl_label(HMGL gr, char dir, const char *text, double pos, const char *opt);\r
+void mgl_label_(uintptr_t *gr, const char *dir, const char *text, const char *opt,int,int,int);\r
+void mgl_labelw(HMGL gr, char dir, const wchar_t *text, double pos, const char *opt);\r
 \r
+/// Draw colorbar at edge of axis\r
 void mgl_colorbar(HMGL gr, const char *sch);\r
-void mgl_colorbar_ext(HMGL gr, const char *sch, mreal x, mreal y, mreal w, mreal h);\r
+void mgl_colorbar_(uintptr_t *gr, const char *sch,int);\r
+/// Draw colorbar at manual position\r
+void mgl_colorbar_ext(HMGL gr, const char *sch, double x, double y, double w, double h);\r
+void mgl_colorbar_ext_(uintptr_t *gr, const char *sch, mreal *x, mreal *y, mreal *w, mreal *h, int);\r
+/// Draw colorbar with manual colors at edge of axis\r
 void mgl_colorbar_val(HMGL gr, HCDT dat, const char *sch);\r
-void mgl_colorbar_val_ext(HMGL gr, HCDT dat, const char *sch,mreal x, mreal y, mreal w, mreal h);\r
+void mgl_colorbar_val_(uintptr_t *gr, uintptr_t *dat, const char *sch,int);\r
+/// Draw colorbar with manual colors at manual position\r
+void mgl_colorbar_val_ext(HMGL gr, HCDT dat, const char *sch,double x, double y, double w, double h);\r
+void mgl_colorbar_val_ext_(uintptr_t *gr, uintptr_t *dat, const char *sch, mreal *x, mreal *y, mreal *w, mreal *h, int);\r
 \r
+/// Add string to legend\r
 void mgl_add_legend(HMGL gr, const char *text,const char *style);\r
+void mgl_add_legend_(uintptr_t *gr, const char *text,const char *style,int,int);\r
 void mgl_add_legendw(HMGL gr, const wchar_t *text,const char *style);\r
-void mgl_clear_legend(HMGL graph);\r
-void mgl_legend_pos(HMGL gr, mreal x, mreal y, const char *font, mreal size, mreal llen);\r
-void mgl_legend(HMGL gr, int where, const char *font, mreal size, mreal llen);\r
+/// Clear saved legend string\r
+void mgl_clear_legend(HMGL gr);\r
+void mgl_clear_legend_(uintptr_t *gr);\r
+/// Draw legend of accumulated strings at position {x,y}\r
+void mgl_legend_pos(HMGL gr, double x, double y, const char *font, const char *opt);\r
+void mgl_legend_pos_(uintptr_t *gr, mreal *x, mreal *y, const char *font, const char *opt,int,int);\r
+/// Draw legend of accumulated strings\r
+void mgl_legend(HMGL gr, int where, const char *font, const char *opt);\r
+void mgl_legend_(uintptr_t *gr, int *where, const char *font, const char *opt,int,int);\r
+/// Set number of marks in legend sample\r
 void mgl_set_legend_marks(HMGL gr, int num);\r
+void mgl_set_legend_marks_(uintptr_t *gr, int *num);\r
 \r
-HMEX mgl_create_expr(const char *expr);\r
-void mgl_delete_expr(HMEX ex);\r
-mreal mgl_expr_eval(HMEX ex, mreal x, mreal y,mreal z);\r
-mreal mgl_expr_eval_v(HMEX ex, mreal *var);\r
-mreal mgl_expr_diff(HMEX ex, char dir, mreal x, mreal y,mreal z);\r
-mreal mgl_expr_diff_v(HMEX ex, char dir, mreal *var);\r
-\r
+/// Show current image\r
 void mgl_show_image(HMGL gr, const char *viewer, int keep);\r
+void mgl_show_image_(uintptr_t *gr, const char *viewer, int *keep, int);\r
+/// Write the frame in file (depending extension, write current frame if fname is empty)\r
 void mgl_write_frame(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_frame_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using BMP format\r
 void mgl_write_tga(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_tga_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using BMP format\r
 void mgl_write_bmp(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_bmp_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using JPEG format\r
 void mgl_write_jpg(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_jpg_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using PNG format with transparency\r
 void mgl_write_png(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_png_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using PNG format without transparency\r
 void mgl_write_png_solid(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_png_solid_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using PostScript format as bitmap\r
 void mgl_write_bps(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_bps_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using PostScript format\r
 void mgl_write_eps(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_eps_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using SVG format\r
 void mgl_write_svg(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_svg_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using LaTeX format\r
 void mgl_write_tex(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_tex_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using OBJ format\r
 void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png);\r
+void mgl_write_obj_(uintptr_t *gr, const char *fname,const char *descr, int *use_png,int,int);\r
+/// Write the frame in file using STL format (faces only)\r
 void mgl_write_stl(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_stl_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Write the frame in file using OFF format\r
 void mgl_write_off(HMGL gr, const char *fname,const char *descr, int colored);\r
+void mgl_write_off_(uintptr_t *gr, const char *fname,const char *descr,int *colored,int,int);\r
+/// Write the frame in file using XYZ format\r
 void mgl_write_xyz(HMGL gr, const char *fname,const char *descr);\r
-//void mgl_write_x3d(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_xyz_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+\r
+/*void mgl_write_x3d(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_x3d_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
 void mgl_write_wgl(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_wgl_(uintptr_t *gr, const char *fname,const char *descr,int,int);*/\r
+\r
+/// Write the frame in file using PRC format\r
 void mgl_write_prc(HMGL gr, const char *fname,const char *descr, int make_pdf);\r
+void mgl_write_prc_(uintptr_t *gr, const char *fname,const char *descr, int *make_pdf,int,int);\r
+/// Write the frame in file using GIF format (only for current frame!)\r
 void mgl_write_gif(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_gif_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+\r
+/// Start write frames to cinema using GIF format\r
 void mgl_start_gif(HMGL gr, const char *fname,int ms);\r
-void mgl_close_gif(HMGL graph);\r
+void mgl_start_gif_(uintptr_t *gr, const char *fname,int *ms,int);\r
+/// Stop writing cinema using GIF format\r
+void mgl_close_gif(HMGL gr);\r
+void mgl_close_gif_(uintptr_t *gr);\r
+/// Set name of plot for saving filename\r
 void mgl_set_plotid(HMGL gr, const char *id);\r
+void mgl_set_plotid_(uintptr_t *gr, const char *id,int);\r
+\r
+/// Export points and primitives in file using MGLD format\r
 void mgl_export_mgld(HMGL gr, const char *fname,const char *descr);\r
+void mgl_export_mgld_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
+/// Import points and primitives from file using MGLD format\r
 void mgl_import_mgld(HMGL gr, const char *fname, int add);\r
+void mgl_import_mgld_(uintptr_t *gr, const char *fname, int *add, int);\r
+/// Export in JSON format suitable for later drawing by JavaScript\r
+void mgl_write_json(HMGL gr, const char *fname,const char *descr);\r
+void mgl_write_json_(uintptr_t *gr, const char *fname,const char *descr,int,int);\r
 \r
-const unsigned char *mgl_get_rgb(HMGL graph);\r
-const unsigned char *mgl_get_rgba(HMGL graph);\r
+/// Get RGB values of current bitmap\r
+const unsigned char *mgl_get_rgb(HMGL gr);\r
+const unsigned char *mgl_get_rgb_(uintptr_t *gr);\r
+/// Get RGBA values of current bitmap\r
+const unsigned char *mgl_get_rgba(HMGL gr);\r
+const unsigned char *mgl_get_rgba_(uintptr_t *gr);\r
+/// Set object/subplot id\r
 void mgl_set_obj_id(HMGL gr, int id);\r
-int mgl_get_obj_id(HMGL gr, long x, long y);\r
-int mgl_get_spl_id(HMGL gr, long x, long y);\r
-int mgl_get_width(HMGL graph);\r
-int mgl_get_height(HMGL graph);\r
+void mgl_set_obj_id_(uintptr_t *gr, int *id);\r
+/// Get object id\r
+int mgl_get_obj_id(HMGL gr, int x, int y);\r
+int mgl_get_obj_id_(uintptr_t *gr, int *x, int *y);\r
+/// Get subplot id\r
+int mgl_get_spl_id(HMGL gr, int x, int y);\r
+int mgl_get_spl_id_(uintptr_t *gr, int *x, int *y);\r
+/// Get width of the image\r
+int mgl_get_width(HMGL gr);\r
+int mgl_get_width_(uintptr_t *gr);\r
+/// Get height of the image\r
+int mgl_get_height(HMGL gr);\r
+int mgl_get_height_(uintptr_t *gr);\r
+/// Calculate 3D coordinate {x,y,z} for screen point {xs,ys}\r
 void mgl_calc_xyz(HMGL gr, int xs, int ys, mreal *x, mreal *y, mreal *z);\r
-void mgl_calc_scr(HMGL gr, mreal x, mreal y, mreal z, int *xs, int *ys);\r
+void mgl_calc_xyz_(uintptr_t *gr, int *xs, int *ys, mreal *x, mreal *y, mreal *z);\r
+/// Calculate screen point {xs,ys} for 3D coordinate {x,y,z}\r
+void mgl_calc_scr(HMGL gr, double x, double y, double z, int *xs, int *ys);\r
+void mgl_calc_scr_(uintptr_t *gr, mreal *x, mreal *y, mreal *z, int *xs, int *ys);\r
+/// Check if {xs,ys} is close to active point with accuracy d, and return its position or -1\r
+long mgl_is_active(HMGL gr, int xs, int ys, int d);\r
+long mgl_is_active_(uintptr_t *gr, int *xs, int *ys, int *d);\r
 \r
-int mgl_new_frame(HMGL graph);\r
-void mgl_end_frame(HMGL graph);\r
-int mgl_get_num_frame(HMGL graph);\r
-void mgl_reset_frames(HMGL graph);\r
+/// Create new frame.\r
+int mgl_new_frame(HMGL gr);\r
+int mgl_new_frame_(uintptr_t *gr);\r
+/// Finish frame drawing\r
+void mgl_end_frame(HMGL gr);\r
+void mgl_end_frame_(uintptr_t *gr);\r
+/// Get the number of created frames\r
+int mgl_get_num_frame(HMGL gr);\r
+int mgl_get_num_frame_(uintptr_t *gr);\r
+/// Reset frames counter (start it from zero)\r
+void mgl_reset_frames(HMGL gr);\r
+void mgl_reset_frames_(uintptr_t *gr);\r
+/// Get drawing data for i-th frame (work if MGL_VECT_FRAME is set on)\r
+void mgl_get_frame(HMGL gr, int i);\r
+void mgl_get_frame_(uintptr_t *gr, int *i);\r
+/// Set drawing data for i-th frame (work if MGL_VECT_FRAME is set on)\r
+void mgl_set_frame(HMGL gr, int i);\r
+void mgl_set_frame_(uintptr_t *gr, int *i);\r
+/// Append drawing data from i-th frame (work if MGL_VECT_FRAME is set on)\r
+void mgl_show_frame(HMGL gr, int i);\r
+void mgl_show_frame_(uintptr_t *gr, int *i);\r
+/// Delete primitives for i-th frame (work if MGL_VECT_FRAME is set on)\r
+void mgl_del_frame(HMGL gr, int i);\r
+void mgl_del_frame_(uintptr_t *gr, int *i);\r
 \r
+/// Set the transparency type (0 - usual, 1 - glass, 2 - lamp)\r
 void mgl_set_transp_type(HMGL gr, int type);\r
+void mgl_set_transp_type_(uintptr_t *gr, int *type);\r
+/// Set the transparency on/off.\r
 void mgl_set_alpha(HMGL gr, int enable);\r
-void mgl_set_fog(HMGL gr, mreal d, mreal dz);\r
+void mgl_set_alpha_(uintptr_t *gr, int *enable);\r
+/// Set the fog distance or switch it off (if d=0).\r
+void mgl_set_fog(HMGL gr, double d, double dz);\r
+void mgl_set_fog_(uintptr_t *gr, mreal *dist, mreal *dz);\r
+/// Set the using of light on/off.\r
 void mgl_set_light(HMGL gr, int enable);\r
+void mgl_set_light_(uintptr_t *gr, int *enable);\r
+/// Switch on/off the specified light source.\r
 void mgl_set_light_n(HMGL gr, int n, int enable);\r
+void mgl_set_light_n_(uintptr_t *gr, int *n, int *enable);\r
+\r
+/// Add white light source at infinity.\r
+void mgl_add_light(HMGL gr, int n, double x, double y, double z);\r
+void mgl_add_light_(uintptr_t *gr, int *n, mreal *x, mreal *y, mreal *z);\r
+/// Add light source at infinity (more settings).\r
+void mgl_add_light_ext(HMGL gr, int n, double x, double y, double z, char c, double br, double ap);\r
+void mgl_add_light_ext_(uintptr_t *gr, int *n, mreal *x, mreal *y, mreal *z, char *c, mreal *br, mreal *ap, int);\r
+/// Add local light source.\r
+void mgl_add_light_loc(HMGL gr, int n, double x, double y, double z, double dx, double dy, double dz, char c, double br, double ap);\r
+void mgl_add_light_loc_(uintptr_t *gr, int *n, mreal *x, mreal *y, mreal *z, mreal *dx, mreal *dy, mreal *dz, char *c, mreal *br, mreal *ap, int);\r
 \r
+/// Pop transformation matrix from stack\r
 void mgl_mat_pop(HMGL gr);\r
+void mgl_mat_pop_(uintptr_t *gr);\r
+/// Push transformation matrix into stack\r
 void mgl_mat_push(HMGL gr);\r
-void mgl_clf(HMGL graph);\r
-void mgl_clf_rgb(HMGL gr, mreal r, mreal g, mreal b);\r
+void mgl_mat_push_(uintptr_t *gr);\r
 \r
-void mgl_subplot_d(HMGL gr, int nx,int ny,int m,const char *style, mreal dx, mreal dy);\r
+/// Clear up the frame\r
+void mgl_clf(HMGL gr);\r
+void mgl_clf_(uintptr_t *gr);\r
+/// Clear up the frame and fill background by specified color\r
+void mgl_clf_rgb(HMGL gr, double r, double g, double b);\r
+void mgl_clf_rgb_(uintptr_t *gr, mreal *r, mreal *g, mreal *b);\r
+\r
+/// Put further plotting in some region of whole frame.\r
 void mgl_subplot(HMGL gr, int nx,int ny,int m,const char *style);\r
+void mgl_subplot_(uintptr_t *gr, int *nx,int *ny,int *m, const char *s,int);\r
+/// Put further plotting in some region of whole frame and shift it by distance {dx,dy}.\r
+void mgl_subplot_d(HMGL gr, int nx,int ny,int m,const char *style, double dx, double dy);\r
+void mgl_subplot_d_(uintptr_t *gr, int *nx,int *ny,int *m, mreal *dx, mreal *dy);\r
+/// Like mgl_subplot() but "join" several cells\r
 void mgl_multiplot(HMGL gr, int nx,int ny,int m,int dx,int dy,const char *style);\r
-void mgl_inplot(HMGL gr, mreal x1,mreal x2,mreal y1,mreal y2);\r
-void mgl_relplot(HMGL gr, mreal x1,mreal x2,mreal y1,mreal y2);\r
-void mgl_columnplot(HMGL gr, int num, int ind, mreal d);\r
-void mgl_gridplot(HMGL gr, int nx, int ny, int m, mreal d);\r
-void mgl_stickplot(HMGL gr, int num, int ind, mreal tet, mreal phi);\r
-void mgl_title(HMGL gr, const char *title, const char *stl, mreal size);\r
-void mgl_titlew(HMGL gr, const wchar_t *title, const char *stl, mreal size);\r
-void mgl_set_plotfactor(HMGL gr, mreal val);\r
-\r
-void mgl_aspect(HMGL gr, mreal Ax,mreal Ay,mreal Az);\r
-void mgl_rotate(HMGL gr, mreal TetX,mreal TetZ,mreal TetY);\r
-void mgl_view(HMGL gr, mreal TetX,mreal TetZ,mreal TetY);\r
-void mgl_zoom(HMGL gr, mreal x1, mreal y1, mreal x2, mreal y2);\r
-void mgl_rotate_vector(HMGL gr, mreal Tet,mreal x,mreal y,mreal z);\r
-void mgl_perspective(HMGL gr, mreal val);\r
-\r
-void mgl_draw_thr(void *);\r
-/*****************************************************************************/\r
-uintptr_t mgl_create_graph_(int *width, int *height);\r
-void mgl_delete_graph_(uintptr_t *graph);\r
-void mgl_set_size_(uintptr_t *graph, int *width, int *height);\r
-void mgl_set_def_param_(uintptr_t *gr);\r
-void mgl_set_quality_(uintptr_t *gr, int *qual);\r
-void mgl_combine_gr_(uintptr_t *gr, uintptr_t *in);\r
-\r
-void mgl_set_tick_len_(uintptr_t *graph, mreal *len, mreal *stt);\r
-void mgl_set_axis_stl_(uintptr_t *graph, const char *stl, const char *tck, const char *sub, int,int,int);\r
-void mgl_set_tick_shift_(uintptr_t *gr, mreal *sx, mreal *sy, mreal *sz, mreal *sc);\r
-\r
-void mgl_adjust_ticks_(uintptr_t *gr, const char *dir, int l);\r
-void mgl_set_ticks_(uintptr_t *gr, char *dir, mreal *d, int *ns, mreal *org, int);\r
-void mgl_set_ticks_str_(uintptr_t *gr, const char *dir, const char *lbl, int *add,int,int l);\r
-void mgl_set_ticks_val_(uintptr_t *gr, const char *dir, uintptr_t *val, const char *lbl, int *add,int,int l);\r
-void mgl_tune_ticks_(uintptr_t *gr, int *tune, mreal *fact_pos);\r
-void mgl_set_tick_templ_(uintptr_t *gr, const char *dir, const char *templ,int,int l);\r
-void mgl_set_ticks_time_(uintptr_t *gr, const char *dir, mreal *d, const char *t,int,int l);\r
-void mgl_box_(uintptr_t *gr);\r
-void mgl_box_str_(uintptr_t *gr, const char *col, int *ticks, int l);\r
-void mgl_axis_(uintptr_t *gr, const char *dir, const char *stl,int,int);\r
-void mgl_axis_grid_(uintptr_t *gr, const char *dir,const char *pen,int l,int n);\r
-void mgl_label_(uintptr_t *gr, const char *dir, const char *text,int,int l);\r
-void mgl_label_ext_(uintptr_t *gr, const char *dir, const char *text, mreal *pos, mreal *shift,int,int l);\r
-/*****************************************************************************/\r
-void mgl_colorbar_(uintptr_t *gr, const char *sch,int l);\r
-void mgl_colorbar_ext_(uintptr_t *gr, const char *sch, mreal *x, mreal *y, mreal *w, mreal *h, int l);\r
-void mgl_colorbar_val_(uintptr_t *gr, uintptr_t *dat, const char *sch,int l);\r
-void mgl_colorbar_val_ext_(uintptr_t *gr, uintptr_t *dat, const char *sch, mreal *x, mreal *y, mreal *w, mreal *h, int l);\r
-\r
-void mgl_add_legend_(uintptr_t *gr, const char *text,const char *style,int l,int n);\r
-void mgl_clear_legend_(uintptr_t *gr);\r
-void mgl_legend_pos_(uintptr_t *gr, mreal *x, mreal *y, const char *font, mreal *size, mreal *llen,int l);\r
-void mgl_legend_(uintptr_t *gr, int *where, const char *font, mreal *size, mreal *llen,int l);\r
-void mgl_set_legend_marks_(uintptr_t *gr, int *num);\r
-\r
-uintptr_t mgl_create_expr_(const char *expr, int);\r
-void mgl_delete_expr_(uintptr_t *ex);\r
-mreal mgl_eval_expr_(uintptr_t *ex, mreal *x, mreal *y,mreal *z);\r
-mreal mgl_diff_expr_(uintptr_t *ex, const char *dir, mreal *x, mreal *y,mreal *z, int);\r
-\r
-void mgl_show_image_(uintptr_t *graph, const char *viewer, int *keep, int);\r
-void mgl_write_frame_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_tga_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_bmp_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_jpg_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_png_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_png_solid_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_eps_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_svg_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_prc_(uintptr_t *graph, const char *fname,const char *descr, int *make_pdf,int lf,int ld);\r
-void mgl_write_gif_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_start_gif_(uintptr_t *graph, const char *fname,int *ms,int l);\r
-void mgl_close_gif_(uintptr_t *graph);\r
-void mgl_write_obj_(uintptr_t *graph, const char *fname,const char *descr, int *use_png,int lf,int ld);\r
-void mgl_write_stl_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_off_(uintptr_t *graph, const char *fname,const char *descr,int *colored,int lf,int ld);\r
-void mgl_write_xyz_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-//void mgl_write_x3d_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_tex_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_write_wgl_(uintptr_t *graph, const char *fname,const char *descr,int lf,int ld);\r
-void mgl_set_plotid_(uintptr_t *gr, const char *id,int l);\r
-void mgl_export_mgld_(uintptr_t *gr, const char *fname,const char *descr,int l,int n);\r
-void mgl_import_mgld_(uintptr_t *gr, const char *fname, int *add, int l);\r
-\r
-const unsigned char *mgl_get_rgb_(uintptr_t *graph);\r
-const unsigned char *mgl_get_rgba_(uintptr_t *graph);\r
-void mgl_set_obj_id_(uintptr_t *graph, int *id);\r
-int mgl_get_obj_id_(uintptr_t *graph, int *x, int *y);\r
-int mgl_get_spl_id_(uintptr_t *graph, int *x, int *y);\r
-int mgl_get_width_(uintptr_t *graph);\r
-int mgl_get_height_(uintptr_t *graph);\r
-void mgl_calc_xyz_(uintptr_t *gr, int *xs, int *ys, mreal *x, mreal *y, mreal *z);\r
-void mgl_calc_scr_(uintptr_t *gr, mreal *x, mreal *y, mreal *z, int *xs, int *ys);\r
-\r
-int mgl_new_frame_(uintptr_t *graph);\r
-void mgl_end_frame_(uintptr_t *graph);\r
-int mgl_get_num_frame_(uintptr_t *graph);\r
-void mgl_reset_frames_(uintptr_t *graph);\r
+void mgl_multiplot_(uintptr_t *gr, int *nx,int *ny,int *m,int *dx,int *dy, const char *s,int);\r
+/// Put further plotting in a region of whole frame.\r
+void mgl_inplot(HMGL gr, double x1,double x2,double y1,double y2);\r
+void mgl_inplot_(uintptr_t *gr, mreal *x1, mreal *x2, mreal *y1, mreal *y2);\r
+/// Put further plotting in a region of current subplot/inplot.\r
+void mgl_relplot(HMGL gr, double x1,double x2,double y1,double y2);\r
+void mgl_relplot_(uintptr_t *gr, mreal *x1, mreal *x2, mreal *y1, mreal *y2);\r
+/// Put further plotting in column cell of previous subplot/inplot.\r
+void mgl_columnplot(HMGL gr, int num, int ind, double d);\r
+void mgl_columnplot_(uintptr_t *gr, int *num, int *i, mreal *d);\r
+/// Put further plotting in matrix cell of previous subplot/inplot.\r
+void mgl_gridplot(HMGL gr, int nx, int ny, int m, double d);\r
+void mgl_gridplot_(uintptr_t *gr, int *nx, int *ny, int *i, mreal *d);\r
+/// Put further plotting in cell of stick rotated on angles tet, phi.\r
+void mgl_stickplot(HMGL gr, int num, int ind, double tet, double phi);\r
+void mgl_stickplot_(uintptr_t *gr, int *num, int *i, mreal *tet, mreal *phi);\r
+/// Add title for current subplot/inplot.\r
+void mgl_title(HMGL gr, const char *title, const char *stl, double size);\r
+void mgl_title_(uintptr_t *gr, const char *title, const char *stl, mreal *size, int,int);\r
+void mgl_titlew(HMGL gr, const wchar_t *title, const char *stl, double size);\r
+/// Set factor of plot size\r
+void mgl_set_plotfactor(HMGL gr, double val);\r
+void mgl_set_plotfactor_(uintptr_t *gr, mreal *val);\r
 \r
-void mgl_set_transp_type_(uintptr_t *graph, int *type);\r
-void mgl_set_alpha_(uintptr_t *graph, int *enable);\r
-void mgl_set_fog_(uintptr_t *graph, mreal *dist, mreal *dz);\r
-void mgl_set_light_(uintptr_t *graph, int *enable);\r
-void mgl_set_light_n_(uintptr_t *gr, int *n, int *enable);\r
-void mgl_add_light_(uintptr_t *graph, int *n, mreal *x, mreal *y, mreal *z);\r
-void mgl_add_light(HMGL gr, int n, mreal x, mreal y, mreal z);\r
-void mgl_add_light_ext_(uintptr_t *graph, int *n, mreal *x, mreal *y, mreal *z, char *c, mreal *br, mreal *ap, int);\r
-void mgl_add_light_ext(HMGL gr, int n, mreal x, mreal y, mreal z, char c, mreal br, mreal ap);\r
-void mgl_add_light_loc_(uintptr_t *graph, int *n, mreal *x, mreal *y, mreal *z, mreal *dx, mreal *dy, mreal *dz, char *c, mreal *br, mreal *ap, int);\r
-void mgl_add_light_loc(HMGL gr, int n, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, char c, mreal br, mreal ap);\r
+/// Set aspect ratio for further plotting.\r
+void mgl_aspect(HMGL gr, double Ax,double Ay,double Az);\r
+void mgl_aspect_(uintptr_t *gr, mreal *Ax, mreal *Ay, mreal *Az);\r
+/// Rotate a further plotting.\r
+void mgl_rotate(HMGL gr, double TetX,double TetZ,double TetY);\r
+void mgl_rotate_(uintptr_t *gr, mreal *TetX, mreal *TetZ, mreal *TetY);\r
+/// Rotate a further plotting around vector {x,y,z}.\r
+void mgl_rotate_vector(HMGL gr, double Tet,double x,double y,double z);\r
+void mgl_rotate_vector_(uintptr_t *gr, mreal *Tet, mreal *x, mreal *y, mreal *z);\r
+/// Set perspective (in range [0,1)) for plot. Set to zero for switching off.\r
+void mgl_perspective(HMGL gr, double val);\r
+void mgl_perspective_(uintptr_t *gr, double val);\r
+/// Set angle of view independently from Rotate().\r
+void mgl_view(HMGL gr, double TetX,double TetZ,double TetY);\r
+void mgl_view_(uintptr_t *gr, mreal *TetX, mreal *TetZ, mreal *TetY);\r
+/// Zoom in/out a part of picture (use mgl_zoom(0, 0, 1, 1) for restore default)\r
+void mgl_zoom(HMGL gr, double x1, double y1, double x2, double y2);\r
+void mgl_zoom_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *x2, mreal *y2);\r
 \r
-void mgl_mat_push_(uintptr_t *gr);\r
-void mgl_mat_pop_(uintptr_t *gr);\r
-void mgl_clf_(uintptr_t *graph);\r
-void mgl_clf_rgb_(uintptr_t *graph, mreal *r, mreal *g, mreal *b);\r
-\r
-void mgl_subplot_(uintptr_t *graph, int *nx,int *ny,int *m);\r
-void mgl_subplot_d_(uintptr_t *graph, int *nx,int *ny,int *m,mreal *dx,mreal *dy);\r
-void mgl_subplot_s_(uintptr_t *graph, int *nx,int *ny,int *m, const char *s,int);\r
-void mgl_multiplot_(uintptr_t *graph, int *nx,int *ny,int *m,int *dx,int *dy, const char *s,int);\r
-void mgl_inplot_(uintptr_t *graph, mreal *x1,mreal *x2,mreal *y1,mreal *y2);\r
-void mgl_relplot_(uintptr_t *graph, mreal *x1,mreal *x2,mreal *y1,mreal *y2);\r
-void mgl_columnplot_(uintptr_t *graph, int *num, int *i, mreal *d);\r
-void mgl_gridplot_(uintptr_t *graph, int *nx, int *ny, int *i, mreal *d);\r
-void mgl_stickplot_(uintptr_t *graph, int *num, int *i, mreal *tet, mreal *phi);\r
-void mgl_set_plotfactor_(uintptr_t *graph, mreal *val);\r
+/// Send graphical information to node id using MPI\r
+void mgl_mpi_send(HMGL gr, int id);\r
+void mgl_mpi_send_(uintptr_t *gr, int *id);\r
+/// Receive graphical information from node id using MPI\r
+void mgl_mpi_recv(HMGL gr, int id);\r
+void mgl_mpi_recv_(uintptr_t *gr, int *id);\r
 \r
-void mgl_title_(uintptr_t *gr, const char *title, const char *stl, mreal *size, int,int);\r
-void mgl_aspect_(uintptr_t *graph, mreal *Ax,mreal *Ay,mreal *Az);\r
-void mgl_rotate_(uintptr_t *graph, mreal *TetX,mreal *TetZ,mreal *TetY);\r
-void mgl_view_(uintptr_t *graph, mreal *TetX,mreal *TetZ,mreal *TetY);\r
-void mgl_zoom_(uintptr_t *graph, mreal *x1, mreal *y1, mreal *x2, mreal *y2);\r
-void mgl_rotate_vector_(uintptr_t *graph, mreal *Tet,mreal *x,mreal *y,mreal *z);\r
-void mgl_perspective_(uintptr_t *graph, mreal val);\r
-/*****************************************************************************/\r
-HMGL mgl_create_graph_qt(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
-HMGL mgl_create_graph_fltk(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
+//-----------------------------------------------------------------------------\r
+void mgl_draw_thr(void *);\r
+/// Callback function for mouse click\r
 void mgl_set_click_func(HMGL gr, void (*func)(void *p));\r
-int mgl_fltk_run();\r
-int mgl_fltk_thr();\r
-int mgl_qt_run();\r
-/*****************************************************************************/\r
-uintptr_t mgl_create_graph_qt_(const char *title, int);\r
-uintptr_t mgl_create_graph_fltk_(const char *title, int);\r
-int mgl_fltk_run_();\r
-int mgl_qt_run_();\r
-/*****************************************************************************/\r
-void mgl_wnd_set_delay(HMGL gr, mreal dt);\r
+\r
+/// Delay for animation in seconds\r
+void mgl_wnd_set_delay(HMGL gr, double dt);\r
+void mgl_wnd_set_delay_(uintptr_t *gr, mreal *dt);\r
+/// Set window properties\r
 void mgl_setup_window(HMGL gr, int clf_upd, int showpos);\r
+void mgl_setup_window_(uintptr_t *gr, int *clf_upd, int *showpos);\r
+/// Switch on/off transparency (do not overwrite user settings)\r
 void mgl_wnd_toggle_alpha(HMGL gr);\r
+void mgl_wnd_toggle_alpha_(uintptr_t *gr);\r
+/// Switch on/off lighting (do not overwrite user settings)\r
 void mgl_wnd_toggle_light(HMGL gr);\r
+void mgl_wnd_toggle_light_(uintptr_t *gr);\r
+/// Switch on/off zooming by mouse\r
 void mgl_wnd_toggle_zoom(HMGL gr);\r
+void mgl_wnd_toggle_zoom_(uintptr_t *gr);\r
+/// Switch on/off rotation by mouse\r
 void mgl_wnd_toggle_rotate(HMGL gr);\r
+void mgl_wnd_toggle_rotate_(uintptr_t *gr);\r
+/// Switch off all zooming and rotation\r
 void mgl_wnd_toggle_no(HMGL gr);\r
+void mgl_wnd_toggle_no_(uintptr_t *gr);\r
+/// Update picture by calling user drawing function\r
 void mgl_wnd_update(HMGL gr);\r
+void mgl_wnd_update_(uintptr_t *gr);\r
+/// Reload user data and update picture\r
 void mgl_wnd_reload(HMGL gr);\r
+void mgl_wnd_reload_(uintptr_t *gr);\r
+/// Adjust size of bitmap to window size\r
 void mgl_wnd_adjust(HMGL gr);\r
+void mgl_wnd_adjust_(uintptr_t *gr);\r
+/// Show next frame (if one)\r
 void mgl_wnd_next_frame(HMGL gr);\r
+void mgl_wnd_next_frame_(uintptr_t *gr);\r
+/// Show previous frame (if one)\r
 void mgl_wnd_prev_frame(HMGL gr);\r
+void mgl_wnd_prev_frame_(uintptr_t *gr);\r
+/// Run slideshow (animation) of frames\r
 void mgl_wnd_animation(HMGL gr);\r
+void mgl_wnd_animation_(uintptr_t *gr);\r
+/// Get last mouse position\r
 void mgl_get_last_mouse_pos(HMGL gr, mreal *x, mreal *y, mreal *z);\r
-/*****************************************************************************/\r
 void mgl_get_last_mouse_pos_(uintptr_t *gr, mreal *x, mreal *y, mreal *z);\r
-void mgl_wnd_set_delay_(uintptr_t *gr, mreal *dt);\r
-void mgl_setup_window_(uintptr_t *gr, int *clf_upd, int *showpos);\r
-void mgl_wnd_toggle_alpha_(uintptr_t *gr);\r
-void mgl_wnd_toggle_light_(uintptr_t *gr);\r
-void mgl_wnd_toggle_zoom_(uintptr_t *gr);\r
-void mgl_wnd_toggle_rotate_(uintptr_t *gr);\r
-void mgl_wnd_toggle_no_(uintptr_t *gr);\r
-void mgl_wnd_update_(uintptr_t *gr);\r
-void mgl_wnd_reload_(uintptr_t *gr);\r
-void mgl_wnd_adjust_(uintptr_t *gr);\r
-void mgl_wnd_next_frame_(uintptr_t *gr);\r
-void mgl_wnd_prev_frame_(uintptr_t *gr);\r
-void mgl_wnd_animation_(uintptr_t *gr);\r
-/*****************************************************************************/\r
-void mgl_mpi_send(HMGL gr, int id);\r
-void mgl_mpi_recv(HMGL gr, int id);\r
-void mgl_mpi_send_(uintptr_t *gr, int *id);\r
-void mgl_mpi_recv_(uintptr_t *gr, int *id);\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
+/// Create HMPR object for parsing MGL scripts\r
 HMPR mgl_create_parser();\r
+uintptr_t mgl_create_parser_();\r
+/// Change counter of HMPR uses (for advanced users only). Non-zero counter prevent automatic object removing.\r
 long mgl_use_parser(HMPR p, int inc);\r
+long mgl_use_parser_(uintptr_t* , int *inc);\r
+/// Delete HMPR object\r
 void mgl_delete_parser(HMPR p);\r
-void mgl_add_param(HMPR p, int id, const char *str);\r
-void mgl_add_paramw(HMPR p, int id, const wchar_t *str);\r
-/*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-HMDT mgl_add_var(HMPR p, const char *name);\r
-/*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-HMDT mgl_find_var(HMPR p, const char *name);\r
-void mgl_del_var(HMPR p, const char *name);\r
-int mgl_parse(HMGL gr, HMPR p, const char *str, int pos);\r
-int mgl_parsew(HMGL gr, HMPR p, const wchar_t *str, int pos);\r
+void mgl_delete_parser_(uintptr_t* p);\r
+/// Set value for parameter $N\r
+void mgl_parser_add_param(HMPR p, int id, const char *str);\r
+void mgl_parser_add_param_(uintptr_t* p, int *id, const char *str, int);\r
+void mgl_parser_add_paramw(HMPR p, int id, const wchar_t *str);\r
+\r
+/// Find variable with given name or add a new one\r
+/// NOTE !!! You must not delete obtained data arrays !!!\r
+HMDT mgl_parser_add_var(HMPR p, const char *name);\r
+uintptr_t mgl_parser_add_var_(uintptr_t* p, const char *name, int);\r
+HMDT mgl_parser_add_varw(HMPR p, const wchar_t *name);\r
+/// Find variable with given name or return NULL if no one\r
+/// NOTE !!! You must not delete obtained data arrays !!!\r
+HMDT mgl_parser_find_var(HMPR p, const char *name);\r
+uintptr_t mgl_parser_find_var_(uintptr_t* p, const char *name, int);\r
+HMDT mgl_parser_find_varw(HMPR p, const wchar_t *name);\r
+\r
+/// Delete variable with name\r
+void mgl_parser_del_var(HMPR p, const char *name);\r
+void mgl_parser_del_var_(uintptr_t* p, const char *name, int);\r
+void mgl_parser_del_varw(HMPR p, const wchar_t *name);\r
+/// Delete all data variables\r
+void mgl_parser_del_all(HMPR p);\r
+void mgl_parser_del_all_(uintptr_t *p);\r
+\r
+/// Parse and draw single line of the MGL script\r
+int mgl_parse_line(HMGL gr, HMPR p, const char *str, int pos);\r
+int mgl_parse_line_(uintptr_t* gr, uintptr_t* p, const char *str, int *pos, int);\r
+int mgl_parse_linew(HMGL gr, HMPR p, const wchar_t *str, int pos);\r
+/// Execute and draw script from the file\r
 void mgl_parse_file(HMGL gr, HMPR p, FILE *fp, int print);\r
+/// Execute MGL script text with '\n' separated lines\r
 void mgl_parse_text(HMGL gr, HMPR p, const char *str);\r
-void mgl_parsew_text(HMGL gr, HMPR p, const wchar_t *str);\r
-void mgl_restore_once(HMPR p);\r
+void mgl_parse_text_(uintptr_t* gr, uintptr_t* p, const char *str, int);\r
+void mgl_parse_textw(HMGL gr, HMPR p, const wchar_t *str);\r
+\r
+/// Restore once flag\r
+void mgl_parser_restore_once(HMPR p);\r
+void mgl_parser_restore_once_(uintptr_t* p);\r
+/// Allow changing size of the picture\r
 void mgl_parser_allow_setsize(HMPR p, int a);\r
-void mgl_parser_stop(HMPR p);\r
-int mgl_cmd_type(HMPR pr, const char *name);\r
-const char *mgl_cmd_desc(HMPR pr, const char *name);\r
-const char *mgl_cmd_frmt(HMPR pr, const char *name);\r
-//int mgl_parser_find_cmdw(HMPR pr, const wchar_t *name);\r
-/*****************************************************************************/\r
-uintptr_t mgl_create_parser_();\r
-long mgl_use_parser_(uintptr_t* , int *inc);\r
-void mgl_delete_parser_(uintptr_t* p);\r
-void mgl_add_param_(uintptr_t* p, int *id, const char *str, int l);\r
-/*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-uintptr_t mgl_add_var_(uintptr_t* p, const char *name, int l);\r
-/*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-uintptr_t mgl_find_var_(uintptr_t* p, const char *name, int l);\r
-void mgl_del_var_(uintptr_t* p, const char *name, int l);\r
-int mgl_parse_(uintptr_t* gr, uintptr_t* p, const char *str, int *pos, int l);\r
-void mgl_parse_text_(uintptr_t* gr, uintptr_t* p, const char *str, int l);\r
-void mgl_restore_once_(uintptr_t* p);\r
 void mgl_parser_allow_setsize_(uintptr_t* p, int *a);\r
+/// Allow reading/saving files\r
+void mgl_parser_allow_file_io(HMPR p, int a);\r
+void mgl_parser_allow_file_io_(uintptr_t* p, int *a);\r
+/// Set flag to stop script parsing\r
+void mgl_parser_stop(HMPR p);\r
 void mgl_parser_stop_(uintptr_t* p);\r
-int mgl_cmd_type_(uintptr_t* p, const char *name, int l);\r
-/*****************************************************************************/\r
+\r
+/// Return type of command: 0 - not found, 1 - data plot, 2 - other plot,\r
+///            3 - setup, 4 - data handle, 5 - data create, 6 - subplot, 7 - program\r
+///            8 - 1d plot, 9 - 2d plot, 10 - 3d plot, 11 - dd plot, 12 - vector plot\r
+///            13 - axis, 14 - primitives, 15 - axis setup, 16 - text/legend, 17 - data transform\r
+int mgl_parser_cmd_type(HMPR pr, const char *name);\r
+int mgl_parser_cmd_type_(uintptr_t* p, const char *name, int);\r
+/// Return description of MGL command\r
+const char *mgl_parser_cmd_desc(HMPR pr, const char *name);\r
+/// Return string of command format (command name and its argument[s])\r
+const char *mgl_parser_cmd_frmt(HMPR pr, const char *name);\r
+/// Get name of command with nmber n\r
+const char *mgl_parser_cmd_name(HMPR pr, long id);\r
+/// Get number of defined commands\r
+long mgl_parser_cmd_num(HMPR pr);\r
+\r
+/// Return result of formula evaluation\r
+HMDT mgl_parser_calc(HMPR pr, const char *formula);\r
+uintptr_t mgl_parser_calc_(uintptr_t *pr, const char *formula,int);\r
+HMDT mgl_parser_calcw(HMPR pr, const wchar_t *formula);\r
+\r
+//-----------------------------------------------------------------------------\r
+/// Create HMEX object for expression evaluating\r
+HMEX mgl_create_expr(const char *expr);\r
+uintptr_t mgl_create_expr_(const char *expr, int);\r
+/// Delete HMEX object\r
+void mgl_delete_expr(HMEX ex);\r
+void mgl_delete_expr_(uintptr_t *ex);\r
+/// Return value of expression for given x,y,z variables\r
+double mgl_expr_eval(HMEX ex, double x, double y,double z);\r
+double mgl_eval_expr_(uintptr_t *ex, mreal *x, mreal *y, mreal *z);\r
+/// Return value of expression for given variables\r
+double mgl_expr_eval_v(HMEX ex, mreal *var);\r
+/// Return value of expression differentiation over variable dir for given x,y,z variables\r
+double mgl_expr_diff(HMEX ex, char dir, double x, double y,double z);\r
+double mgl_diff_expr_(uintptr_t *ex, const char *dir, mreal *x, mreal *y, mreal *z, int);\r
+/// Return value of expression differentiation over variable dir for given variables\r
+double mgl_expr_diff_v(HMEX ex, char dir, mreal *var);\r
+\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r
 \r

diff --git a/include/mgl2/canvas_wnd.h b/include/mgl2/canvas_wnd.h
index 1009e1de3030b9a5905aa6f23bb7ce986c00886d..f1b24302adbc15f463960dd54eb0e2c5196eb99d 100644 (file)
--- a/include/mgl2/canvas_wnd.h
+++ b/include/mgl2/canvas_wnd.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * window.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,12 +17,11 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-//-----------------------------------------------------------------------------\r
 #ifndef _MGL_CANVAS_WND_H_\r
 #define _MGL_CANVAS_WND_H_\r
-/*****************************************************************************/\r
+\r
 #include "mgl2/canvas.h"\r
-#include "mgl2/window.h"\r
+#include "mgl2/wnd.h"\r
 //-----------------------------------------------------------------------------\r
 /// Base class for windows containing MathGL graphics\r
 class mglCanvasWnd : public mglCanvas\r
@@ -36,11 +35,13 @@ public:
 \r
        void SetSize(int w,int h);\r
        void EndFrame();\r
+       void SetFrame(long i);\r
+       void DelFrame(long i);\r
        const unsigned char *GetBits();\r
        inline int GetNumFig() const    {       return NumFig;  }\r
        inline int GetCurFig() const    {       return CurFig;  }\r
        void SetCurFig(int c);\r
-       void ClearFrames();\r
+       void ResetFrames();\r
        inline mglPoint GetMousePos() const     {       return LastMousePos;}\r
        inline void SetMousePos(mglPoint p)     {       LastMousePos=p; }\r
        inline void Setup(bool clf_upd=true, bool showpos=false)\r

diff --git a/include/mgl2/cont.h b/include/mgl2/cont.h
index 89d6bb812623a60bb3502ed2c06a54b2d75ede96..22bc70d0036f0ddd71de6917007c3d0de32cc7e2 100644 (file)
--- a/include/mgl2/cont.h
+++ b/include/mgl2/cont.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * cont.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,115 +20,139 @@
 #ifndef _MGL_CONT_H_\r
 #define _MGL_CONT_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
-void mgl_textw_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const wchar_t *text, const char *font, const char *opt);\r
-void mgl_textw_xy(HMGL gr, HCDT x, HCDT y, const wchar_t *text, const char *font, const char *opt);\r
-void mgl_textw_y(HMGL gr, HCDT y, const wchar_t *text, const char *font, const char *opt);\r
-void mgl_text_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *text, const char *font, const char *opt);\r
-void mgl_text_xy(HMGL gr, HCDT x, HCDT y, const char *text, const char *font, const char *opt);\r
-void mgl_text_y(HMGL gr, HCDT y, const char *text, const char *font, const char *opt);\r
-\r
-void mgl_cont_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, HCDT z, const char *stl);\r
-void mgl_contf_gen(HMGL gr, mreal v1, mreal v2, HCDT a, HCDT x, HCDT y, HCDT z, const char *stl);\r
-\r
-void mgl_cont_xy_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_cont_val(HMGL graph, HCDT v, HCDT z, const char *sch, const char *opt);\r
-void mgl_cont_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_cont(HMGL graph, HCDT z, const char *sch, const char *opt);\r
-\r
-void mgl_contf_xy_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contf_val(HMGL graph, HCDT v, HCDT z, const char *sch, const char *opt);\r
-void mgl_contf_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contf(HMGL graph, HCDT z, const char *sch, const char *opt);\r
-\r
-void mgl_contd_xy_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contd_val(HMGL graph, HCDT v, HCDT z, const char *sch, const char *opt);\r
-void mgl_contd_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contd(HMGL graph, HCDT z, const char *sch, const char *opt);\r
-\r
-void mgl_contv_xy_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contv_val(HMGL graph, HCDT v, HCDT z, const char *sch, const char *opt);\r
-void mgl_contv_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-void mgl_contv(HMGL graph, HCDT z, const char *sch, const char *opt);\r
-\r
-void mgl_axial_xy_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT a, const char *sch, const char *opt);\r
-void mgl_axial_val(HMGL graph, HCDT v, HCDT a, const char *sch, const char *opt);\r
-void mgl_axial_xy(HMGL graph, HCDT x, HCDT y, HCDT a, const char *sch, const char *opt);\r
-void mgl_axial(HMGL graph, HCDT a, const char *sch, const char *opt);\r
-\r
-void mgl_torus(HMGL graph, HCDT r, HCDT z, const char *col, const char *opt);\r
-\r
-void mgl_grid3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_grid3(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_dens3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_dens3(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_cont3_xyz_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_cont3_val(HMGL graph, HCDT v, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_cont3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_cont3(HMGL graph, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-\r
-void mgl_contf3_xyz_val(HMGL graph, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_contf3_val(HMGL graph, HCDT v, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_contf3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt);\r
-void mgl_contf3(HMGL graph, HCDT a, const char *sch, mreal sVal, const char *opt);\r
 \r
-/*****************************************************************************/\r
+/// Print text along the curve in parametric form {x,y,z}\r
+void mgl_text_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *text, const char *font, const char *opt);\r
 void mgl_text_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z,const char *text,const char *font, const char *opt,int,int l,int n);\r
+void mgl_textw_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const wchar_t *text, const char *font, const char *opt);\r
+/// Print text along the curve in parametric form {x,y}\r
+void mgl_text_xy(HMGL gr, HCDT x, HCDT y, const char *text, const char *font, const char *opt);\r
 void mgl_text_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, const char *text, const char *font, const char *opt,int, int l,int n);\r
+void mgl_textw_xy(HMGL gr, HCDT x, HCDT y, const wchar_t *text, const char *font, const char *opt);\r
+/// Print text along the curve\r
+void mgl_text_y(HMGL gr, HCDT y, const char *text, const char *font, const char *opt);\r
 void mgl_text_y_(uintptr_t *gr, uintptr_t *y, const char *text, const char *font, const char *opt,int, int l,int n);\r
+void mgl_textw_y(HMGL gr, HCDT y, const wchar_t *text, const char *font, const char *opt);\r
 \r
-void mgl_cont_xy_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_cont_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_cont_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_cont_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_contf_xy_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contf_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contf_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contf_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_contd_xy_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contd_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contd_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contd_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_contv_xy_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contv_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contv_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_contv_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_axial_xy_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);\r
-void mgl_axial_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *sch, const char *opt,int,int);\r
-void mgl_axial_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);\r
-void mgl_axial_(uintptr_t *graph, uintptr_t *a, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_torus_(uintptr_t *graph, uintptr_t *r, uintptr_t *z, const char *pen, const char *opt,int,int);\r
-\r
-void mgl_grid3_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_grid3_(uintptr_t *graph, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-\r
-void mgl_dens3_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_dens3_(uintptr_t *graph, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-\r
-void mgl_cont3_xyz_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_cont3_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_cont3_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_cont3_(uintptr_t *graph, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-\r
-void mgl_contf3_xyz_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_contf3_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_contf3_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-void mgl_contf3_(uintptr_t *graph, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
-\r
-/*****************************************************************************/\r
+void mgl_cont_gen(HMGL gr, double val, HCDT a, HCDT x, HCDT y, HCDT z, const char *stl);\r
+void mgl_contf_gen(HMGL gr, double v1, double v2, HCDT a, HCDT x, HCDT y, HCDT z, const char *stl);\r
+\r
+/// Draw manual contour lines for 2d data specified parametrically\r
+void mgl_cont_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_cont_xy_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw manual contour lines for 2d data\r
+void mgl_cont_val(HMGL gr, HCDT v, HCDT z, const char *sch, const char *opt);\r
+void mgl_cont_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw contour lines for 2d data specified parametrically\r
+void mgl_cont_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_cont_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw contour lines for 2d data\r
+void mgl_cont(HMGL gr, HCDT z, const char *sch, const char *opt);\r
+void mgl_cont_(uintptr_t *gr, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw manual solid contours for 2d data specified parametrically\r
+void mgl_contf_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contf_xy_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw manual solid contours for 2d data\r
+void mgl_contf_val(HMGL gr, HCDT v, HCDT z, const char *sch, const char *opt);\r
+void mgl_contf_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw solid contours for 2d data specified parametrically\r
+void mgl_contf_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contf_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw solid contours for 2d data\r
+void mgl_contf(HMGL gr, HCDT z, const char *sch, const char *opt);\r
+void mgl_contf_(uintptr_t *gr, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw manual solid contours for 2d data specified parametrically with manual colors\r
+void mgl_contd_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contd_xy_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw manual solid contours for 2d data with manual colors\r
+void mgl_contd_val(HMGL gr, HCDT v, HCDT z, const char *sch, const char *opt);\r
+void mgl_contd_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw solid contours for 2d data specified parametrically with manual colors\r
+void mgl_contd_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contd_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw solid contours for 2d data with manual colors\r
+void mgl_contd(HMGL gr, HCDT z, const char *sch, const char *opt);\r
+void mgl_contd_(uintptr_t *gr, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw manual contour tubes for 2d data specified parametrically\r
+void mgl_contv_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contv_xy_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw manual contour tubes for 2d data\r
+void mgl_contv_val(HMGL gr, HCDT v, HCDT z, const char *sch, const char *opt);\r
+void mgl_contv_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw contour tubes for 2d data specified parametrically\r
+void mgl_contv_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_contv_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw contour tubes for 2d data\r
+void mgl_contv(HMGL gr, HCDT z, const char *sch, const char *opt);\r
+void mgl_contv_(uintptr_t *gr, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw manual axial-symmetric isosurfaces for 2d data specified parametrically\r
+void mgl_axial_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT a, const char *sch, const char *opt);\r
+void mgl_axial_xy_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);\r
+/// Draw manual axial-symmetric isosurfaces for 2d data\r
+void mgl_axial_val(HMGL gr, HCDT v, HCDT a, const char *sch, const char *opt);\r
+void mgl_axial_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *a, const char *sch, const char *opt,int,int);\r
+/// Draw axial-symmetric isosurfaces for 2d data specified parametrically\r
+void mgl_axial_xy(HMGL gr, HCDT x, HCDT y, HCDT a, const char *sch, const char *opt);\r
+void mgl_axial_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);\r
+/// Draw axial-symmetric isosurfaces for 2d data\r
+void mgl_axial(HMGL gr, HCDT a, const char *sch, const char *opt);\r
+void mgl_axial_(uintptr_t *gr, uintptr_t *a, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw surface of curve {r,z} rotatation around axis\r
+void mgl_torus(HMGL gr, HCDT r, HCDT z, const char *col, const char *opt);\r
+void mgl_torus_(uintptr_t *gr, uintptr_t *r, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw grid lines for density plot at slice for 3d data specified parametrically\r
+void mgl_grid3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, double sVal, const char *opt);\r
+void mgl_grid3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw grid lines for density plot at slice for 3d data\r
+void mgl_grid3(HMGL gr, HCDT a, const char *stl, double sVal, const char *opt);\r
+void mgl_grid3_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw density plot at slice for 3d data specified parametrically\r
+void mgl_dens3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, double sVal, const char *opt);\r
+void mgl_dens3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw density plot at slice for 3d data\r
+void mgl_dens3(HMGL gr, HCDT a, const char *stl, double sVal, const char *opt);\r
+void mgl_dens3_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw manual contour lines at slice for 3d data specified parametrically\r
+void mgl_cont3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_cont3_xyz_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual contour lines at slice for 3d data\r
+void mgl_cont3_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_cont3_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw contour lines at slice for 3d data specified parametrically\r
+void mgl_cont3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_cont3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw contour lines at slice for 3d data\r
+void mgl_cont3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_cont3_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw manual solid contours at slice for 3d data specified parametrically\r
+void mgl_contf3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_contf3_xyz_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual solid contours at slice for 3d data\r
+void mgl_contf3_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_contf3_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw solid contours at slice for 3d data specified parametrically\r
+void mgl_contf3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_contf3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw solid contours at slice for 3d data\r
+void mgl_contf3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt);\r
+void mgl_contf3_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sVal, const char *opt,int,int);\r
+\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/data.h b/include/mgl2/data.h
index d5416868bb65ca6e940d0a748bb7352b601aa563..e95f20d89f548413de7e5f61053c7421a14f664a 100644 (file)
--- a/include/mgl2/data.h
+++ b/include/mgl2/data.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,8 +19,7 @@
  ***************************************************************************/\r
 #ifndef _MGL_DATA_H_\r
 #define _MGL_DATA_H_\r
-/*****************************************************************************/\r
-#include "mgl2/base.h"\r
+\r
 #include "mgl2/data_cf.h"\r
 #ifdef __cplusplus\r
 //-----------------------------------------------------------------------------\r
@@ -41,11 +40,10 @@ public:
        long nz;                ///< number of points in 3d dimensions ('z' dimension)\r
        mreal *a;               ///< data array\r
        std::string id; ///< column (or slice) names\r
-//     char *id;               ///< column (or slice) names\r
        bool link;              ///< use external data (i.e. don't free it)\r
 \r
        /// Initiate by other mglData variable\r
-       inline mglData(const mglData &d)        {       a=0;    mgl_data_set(this,&d);          }\r
+       inline mglData(const mglData &d)        {       a=0;    mgl_data_set(this,&d);          }       // NOTE: must be constructor for mglData& to exclude copy one\r
        inline mglData(const mglDataA *d)       {       a=0;    mgl_data_set(this, d);          }\r
        inline mglData(bool, mglData *d)        // NOTE: Variable d will be deleted!!!\r
        {       if(d)\r
@@ -77,7 +75,7 @@ public:
        /// Link external data array (don't delete it at exit)\r
        inline void Link(mreal *A, long NX, long NY=1, long NZ=1)\r
        {       mgl_data_link(this,A,NX,NY,NZ); }\r
-       inline void Link(mglData *d)    {       Link(d->a,d->nx,d->ny,d->nz);   }\r
+       inline void Link(mglData &d)    {       Link(d.a,d.nx,d.ny,d.nz);       }\r
        /// Allocate memory and copy the data from the gsl_vector\r
        inline void Set(gsl_vector *m)  {       mgl_data_set_vector(this,m);    }\r
        /// Allocate memory and copy the data from the gsl_matrix\r
@@ -106,7 +104,7 @@ public:
        {       mgl_data_set_values(this,str,NX,NY,NZ); }\r
        /// Import data from abstract type\r
        inline void Set(HCDT dat)       {       mgl_data_set(this, dat);        }\r
-       inline void Set(const mglData &dat)     {       mgl_data_set(this, &dat);       }\r
+       inline void Set(const mglDataA &dat)    {       mgl_data_set(this, &dat);       }\r
        /// Allocate memory and copy data from std::vector<T>\r
        inline void Set(const std::vector<int> &d)\r
        {       if(d.size()<1)  return;\r
@@ -136,40 +134,43 @@ public:
        /// Crop the data\r
        inline void Crop(long n1, long n2,char dir='x')\r
        {       mgl_data_crop(this,n1,n2,dir);  }\r
-       /// Insert data\r
+       /// Insert data rows/columns/slices\r
        inline void Insert(char dir, long at=0, long num=1)\r
        {       mgl_data_insert(this,dir,at,num);       }\r
-       /// Delete data\r
+       /// Delete data rows/columns/slices\r
        inline void Delete(char dir, long at=0, long num=1)\r
        {       mgl_data_delete(this,dir,at,num);       }\r
-\r
+       /// Remove rows with duplicate values in column id\r
+       inline void Clean(long id)\r
+       {       mgl_data_clean(this,id);        }\r
+       \r
        /// Modify the data by specified formula\r
        inline void Modify(const char *eq,long dim=0)\r
        {       mgl_data_modify(this, eq, dim); }\r
        /// Modify the data by specified formula\r
-       inline void Modify(const char *eq,const mglData &vdat, const mglData &wdat)\r
+       inline void Modify(const char *eq,const mglDataA &vdat, const mglDataA &wdat)\r
        {       mgl_data_modify_vw(this,eq,&vdat,&wdat);        }\r
        /// Modify the data by specified formula\r
-       inline void Modify(const char *eq,const mglData &vdat)\r
+       inline void Modify(const char *eq,const mglDataA &vdat)\r
        {       mgl_data_modify_vw(this,eq,&vdat,0);    }\r
        /// Modify the data by specified formula assuming x,y,z in range [r1,r2]\r
        inline void Fill(mglBase *gr, const char *eq, const char *opt="")\r
        {       mgl_data_fill_eq(gr,this,eq,0,0,opt);   }\r
-       inline void Fill(mglBase *gr, const char *eq, const mglData &vdat, const char *opt="")\r
+       inline void Fill(mglBase *gr, const char *eq, const mglDataA &vdat, const char *opt="")\r
        {       mgl_data_fill_eq(gr,this,eq,&vdat,0,opt);       }\r
-       inline void Fill(mglBase *gr, const char *eq, const mglData &vdat, const mglData &wdat,const char *opt="")\r
+       inline void Fill(mglBase *gr, const char *eq, const mglDataA &vdat, const mglDataA &wdat,const char *opt="")\r
        {       mgl_data_fill_eq(gr,this,eq,&vdat,&wdat,opt);   }\r
-       /// Eqidistantly fill the data to range [x1,x2] in direction \a dir\r
+       /// Equidistantly fill the data to range [x1,x2] in direction dir\r
        inline void Fill(mreal x1,mreal x2=NaN,char dir='x')\r
        {       return mgl_data_fill(this,x1,x2,dir);   }\r
        /// Set the data by triangulated surface values assuming x,y,z in range [r1,r2]\r
-       inline void Grid(mglBase *gr, const mglData &x, const mglData &y, const mglData &z, const char *opt="")\r
+       inline void Grid(mglBase *gr, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *opt="")\r
        {       mgl_data_grid(gr,this,&x,&y,&z,opt);    }\r
        /// Put value to data element(s)\r
        inline void Put(mreal val, long i=-1, long j=-1, long k=-1)\r
        {       mgl_data_put_val(this,val,i,j,k);       }\r
        /// Put array to data element(s)\r
-       inline void Put(const mglData &dat, long i=-1, long j=-1, long k=-1)\r
+       inline void Put(const mglDataA &dat, long i=-1, long j=-1, long k=-1)\r
        {       mgl_data_put_dat(this,&dat,i,j,k);      }\r
        /// Set names for columns (slices)\r
        inline void SetColumnId(const char *ids)\r
@@ -208,7 +209,7 @@ public:
        inline void SaveHDF(const char *fname,const char *data,bool rewrite=false) const\r
        {       mgl_data_save_hdf(this,fname,data,rewrite);     }\r
        /// Put HDF data names into buf as '\t' separated.\r
-       inline int DatasHDF(const char *fname, char *buf, long size) const\r
+       inline static int DatasHDF(const char *fname, char *buf, long size)\r
        {       return mgl_datas_hdf(fname,buf,size);   }\r
 \r
        /// Get column (or slice) of the data filled by formulas of named columns\r
@@ -220,16 +221,16 @@ public:
        /// Get sub-array of the data with given fixed indexes\r
        inline mglData SubData(long xx,long yy=-1,long zz=-1) const\r
        {       return mglData(true,mgl_data_subdata(this,xx,yy,zz));   }\r
-       inline mglData SubData(const mglData &xx, const mglData &yy, const mglData &zz) const\r
+       inline mglData SubData(const mglDataA &xx, const mglDataA &yy, const mglDataA &zz) const\r
        {       return mglData(true,mgl_data_subdata_ext(this,&xx,&yy,&zz));    }\r
        /// Get trace of the data array\r
        inline mglData Trace() const\r
        {       return mglData(true,mgl_data_trace(this));      }\r
        /// Create n-th points distribution of this data values in range [v1, v2]\r
-       mglData Hist(long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
+       inline mglData Hist(long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
        {       return mglData(true,mgl_data_hist(this,n,v1,v2,nsub));  }\r
-       /// Create n-th points distribution of this data values in range [v1, v2] with weight \a w\r
-       mglData Hist(const mglData &w, long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
+       /// Create n-th points distribution of this data values in range [v1, v2] with weight w\r
+       inline mglData Hist(const mglDataA &w, long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
        {       return mglData(true,mgl_data_hist_w(this,&w,n,v1,v2,nsub));     }\r
        /// Get array which is result of summation in given direction or directions\r
        inline mglData Sum(const char *dir) const\r
@@ -241,7 +242,7 @@ public:
        inline mglData Min(const char *dir) const\r
        {       return mglData(true,mgl_data_min_dir(this,dir));        }\r
        /// Get the data which is direct multiplication (like, d[i,j] = this[i]*a[j] and so on)\r
-       inline mglData Combine(const mglData &dat) const\r
+       inline mglData Combine(const mglDataA &dat) const\r
        {       return mglData(true,mgl_data_combine(this,&dat));       }\r
        /// Resize the data to new size of box [x1,x2]*[y1,y2]*[z1,z2]\r
        inline mglData Resize(long mx,long my=1,long mz=1, mreal x1=0,mreal x2=1, mreal y1=0,mreal y2=1, mreal z1=0,mreal z2=1) const\r
@@ -261,19 +262,19 @@ public:
        /// Differentiate the data in given direction or directions\r
        inline void Diff(const char *dir)       {       mgl_data_diff(this,dir);        }\r
        /// Differentiate the parametrically specified data along direction v1 with v2=const\r
-       inline void Diff(const mglData &v1, const mglData &v2)\r
+       inline void Diff(const mglDataA &v1, const mglDataA &v2)\r
        {       mgl_data_diff_par(this,&v1,&v2,0);      }\r
        /// Differentiate the parametrically specified data along direction v1 with v2,v3=const\r
-       inline void Diff(const mglData &v1, const mglData &v2, const mglData &v3)\r
+       inline void Diff(const mglDataA &v1, const mglDataA &v2, const mglDataA &v3)\r
        {       mgl_data_diff_par(this,&v1,&v2,&v3);    }\r
-       /// Double-differentiate (like laplace operator) the data in given direction\r
+       /// Double-differentiate (like Laplace operator) the data in given direction\r
        inline void Diff2(const char *dir)      {       mgl_data_diff2(this,dir);       }\r
 \r
-       /// Swap left and right part of the data in given direction (useful for fourier spectrums)\r
+       /// Swap left and right part of the data in given direction (useful for Fourier spectrum)\r
        inline void Swap(const char *dir)               {       mgl_data_swap(this,dir);        }\r
-       /// Roll data along direction \a dir by \a num slices\r
+       /// Roll data along direction dir by num slices\r
        inline void Roll(char dir, long num)    {       mgl_data_roll(this,dir,num);    }\r
-       /// Mirror the data in given direction (useful for fourier spectrums)\r
+       /// Mirror the data in given direction (useful for Fourier spectrum)\r
        inline void Mirror(const char *dir)             {       mgl_data_mirror(this,dir);      }\r
        /// Sort rows (or slices) by values of specified column\r
        inline void Sort(long idx, long idy=-1) {       mgl_data_sort(this,idx,idy);    }\r
@@ -294,30 +295,53 @@ public:
        inline void NormSl(mreal v1=0,mreal v2=1,char dir='z',bool keep_en=true,bool sym=false)\r
        {       mgl_data_norm_slice(this,v1,v2,dir,keep_en,sym);        }\r
 \r
-       /// Hankel transform\r
+       /// Apply Hankel transform\r
        inline void Hankel(const char *dir)     {       mgl_data_hankel(this,dir);      }\r
-       /// Sin-Fourier transform\r
+       /// Apply Sin-Fourier transform\r
        inline void SinFFT(const char *dir)     {       mgl_data_sinfft(this,dir);      }\r
-       /// Cos-Fourier transform\r
+       /// Apply Cos-Fourier transform\r
        inline void CosFFT(const char *dir)     {       mgl_data_cosfft(this,dir);      }\r
        /// Fill data by 'x'/'k' samples for Hankel ('h') or Fourier ('f') transform\r
        inline void FillSample(const char *how)\r
        {       mgl_data_fill_sample(this,how); }\r
 \r
-       /// Interpolate by qubic splain the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+       /// Interpolate by cubic spline the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
        inline mreal Spline(mreal x,mreal y=0,mreal z=0) const\r
        {       return mgl_data_spline(this, x,y,z);    }\r
-       /// Interpolate by qubic splain the data to given point \a x,\a y,\a z which normalized in range [0, 1]\r
+       /// Interpolate by cubic spline the data to given point x,\a y,\a z which normalized in range [0, 1]\r
        inline mreal Spline1(mreal x,mreal y=0,mreal z=0) const\r
        {       return mgl_data_spline(this, x*(nx-1),y*(ny-1),z*(nz-1));       }\r
        /// Interpolate by linear function the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
        inline mreal Linear(mreal x,mreal y=0,mreal z=0)        const\r
        {       return mgl_data_linear(this,x,y,z);     }\r
-       /// Interpolate by line the data to given point \a x,\a y,\a z which normalized in range [0, 1]\r
+       /// Interpolate by line the data to given point x,\a y,\a z which normalized in range [0, 1]\r
        inline mreal Linear1(mreal x,mreal y=0,mreal z=0) const\r
        {       return mgl_data_linear(this,x*(nx-1),y*(ny-1),z*(nz-1));        }\r
-\r
-       /// Print information about the data (sizes and momentum) to string\r
+       /// Return an approximated x-value (root) when dat(x) = val\r
+       inline mreal Solve(mreal val, bool use_spline=true, long i0=0) const\r
+       {       return mgl_data_solve_1d(this, val, use_spline, i0);            }\r
+       /// Return an approximated value (root) when dat(x) = val\r
+       inline mglData Solve(mreal val, char dir, bool norm=true) const\r
+       {       return mglData(true,mgl_data_solve(this, val, dir, 0, norm));   }\r
+       inline mglData Solve(mreal val, char dir, const mglData &i0, bool norm=true) const\r
+       {       return mglData(true,mgl_data_solve(this, val, dir, &i0, norm)); }\r
+       \r
+       /// Interpolate by cubic spline the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+       inline mreal Spline(mglPoint &dif, mreal x,mreal y=0,mreal z=0) const\r
+       {       return mgl_data_spline_ext(this, x,y,z, &(dif.x),&(dif.y), &(dif.z));   }\r
+       /// Interpolate by cubic spline the data and return its derivatives at given point x,\a y,\a z which normalized in range [0, 1]\r
+       inline mreal Spline1(mglPoint &dif, mreal x,mreal y=0,mreal z=0) const\r
+       {       mreal res=mgl_data_spline_ext(this, x*(nx-1),y*(ny-1),z*(nz-1), &(dif.x),&(dif.y), &(dif.z));\r
+               dif.x/=nx>1?nx-1:1;     dif.y/=ny>1?ny-1:1;     dif.z/=nz>1?nz-1:1;     return res;     }\r
+       /// Interpolate by linear function the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+       inline mreal Linear(mglPoint &dif, mreal x,mreal y=0,mreal z=0) const\r
+       {       return mgl_data_linear_ext(this,x,y,z, &(dif.x),&(dif.y), &(dif.z));    }\r
+       /// Interpolate by line the data and return its derivatives at given point x,\a y,\a z which normalized in range [0, 1]\r
+       inline mreal Linear1(mglPoint &dif, mreal x,mreal y=0,mreal z=0) const\r
+       {       mreal res=mgl_data_linear_ext(this,x*(nx-1),y*(ny-1),z*(nz-1), &(dif.x),&(dif.y), &(dif.z));\r
+               dif.x/=nx>1?nx-1:1;     dif.y/=ny>1?ny-1:1;     dif.z/=nz>1?nz-1:1;     return res;     }\r
+       \r
+       /// Get information about the data (sizes and momentum) to string\r
        inline const char *PrintInfo() const    {       return mgl_data_info(this);     }\r
        /// Print information about the data (sizes and momentum) to FILE (for example, stdout)\r
        inline void PrintInfo(FILE *fp) const\r
@@ -338,10 +362,10 @@ public:
        /// Get minimal value of the data and its approximated position\r
        inline mreal Minimal(mreal &x,mreal &y,mreal &z) const\r
        {       return mgl_data_min_real(this,&x,&y,&z);        }\r
-       /// Get "energy" and find first (median) and second (width) momentums of data\r
+       /// Get "energy" and find first (median) and second (width) momenta of data\r
        inline mreal Momentum(char dir,mreal &m,mreal &w) const\r
        {       return mgl_data_momentum_val(this,dir,&m,&w,0,0);       }\r
-       /// Get "energy and find 4 momentums of data: median, width, skewness, kurtosis\r
+       /// Get "energy and find 4 momenta of data: median, width, skewness, kurtosis\r
        inline mreal Momentum(char dir,mreal &m,mreal &w,mreal &s,mreal &k) const\r
        {       return mgl_data_momentum_val(this,dir,&m,&w,&s,&k);     }\r
        /// Find position (after specified in i,j,k) of first nonzero value of formula\r
@@ -362,21 +386,21 @@ public:
        {       if(this!=&d)    Set(d.a,d.nx,d.ny,d.nz);        return *this;   }\r
        inline mreal operator=(mreal val)\r
        {       for(long i=0;i<nx*ny*nz;i++)    a[i]=val;       return val;     }\r
-       /// Multiplicate the data by other one for each element\r
-       inline void operator*=(const mglData &d)        {       mgl_data_mul_dat(this,&d);      }\r
+       /// Multiply the data by other one for each element\r
+       inline void operator*=(const mglDataA &d)       {       mgl_data_mul_dat(this,&d);      }\r
        /// Divide the data by other one for each element\r
-       inline void operator/=(const mglData &d)        {       mgl_data_div_dat(this,&d);      }\r
+       inline void operator/=(const mglDataA &d)       {       mgl_data_div_dat(this,&d);      }\r
        /// Add the other data\r
-       inline void operator+=(const mglData &d)        {       mgl_data_add_dat(this,&d);      }\r
-       /// Substract the other data\r
-       inline void operator-=(const mglData &d)        {       mgl_data_sub_dat(this,&d);      }\r
-       /// Multiplicate each element by the number\r
+       inline void operator+=(const mglDataA &d)       {       mgl_data_add_dat(this,&d);      }\r
+       /// Subtract the other data\r
+       inline void operator-=(const mglDataA &d)       {       mgl_data_sub_dat(this,&d);      }\r
+       /// Multiply each element by the number\r
        inline void operator*=(mreal d)         {       mgl_data_mul_num(this,d);       }\r
        /// Divide each element by the number\r
        inline void operator/=(mreal d)         {       mgl_data_div_num(this,d);       }\r
        /// Add the number\r
        inline void operator+=(mreal d)         {       mgl_data_add_num(this,d);       }\r
-       /// Substract the number\r
+       /// Subtract the number\r
        inline void operator-=(mreal d)         {       mgl_data_sub_num(this,d);       }\r
 #ifndef SWIG\r
        /// Direct access to the data cell\r
@@ -410,31 +434,35 @@ protected:
 };\r
 //-----------------------------------------------------------------------------\r
 #ifndef SWIG\r
-inline mglData operator*(const mglData &b, const mglData &d)\r
-{      mglData a(b);   a*=d;   return a;       }\r
-inline mglData operator*(mreal b, const mglData &d)\r
-{      mglData a(d);   a*=b;   return a;       }\r
-inline mglData operator*(const mglData &d, mreal b)\r
-{      mglData a(d);   a*=b;   return a;       }\r
-inline mglData operator-(const mglData &b, const mglData &d)\r
-{      mglData a(b);   a-=d;   return a;       }\r
-inline mglData operator-(mreal b, const mglData &d)\r
-{      mglData a(d);   a-=b;   return a;       }\r
-inline mglData operator-(const mglData &d, mreal b)\r
-{      mglData a(d);   a-=b;   return a;       }\r
-inline mglData operator+(const mglData &b, const mglData &d)\r
-{      mglData a(b);   a+=d;   return a;       }\r
-inline mglData operator+(mreal b, const mglData &d)\r
-{      mglData a(d);   a+=b;   return a;       }\r
-inline mglData operator+(const mglData &d, mreal b)\r
-{      mglData a(d);   a+=b;   return a;       }\r
-inline mglData operator/(const mglData &b, const mglData &d)\r
-{      mglData a(b);   a/=d;   return a;       }\r
-inline mglData operator/(const mglData &d, mreal b)\r
-{      mglData a(d);   a/=b;   return a;       }\r
+inline mglData operator*(const mglDataA &b, const mglDataA &d)\r
+{      mglData a(&b);  a*=d;   return a;       }\r
+inline mglData operator*(mreal b, const mglDataA &d)\r
+{      mglData a(&d);  a*=b;   return a;       }\r
+inline mglData operator*(const mglDataA &d, mreal b)\r
+{      mglData a(&d);  a*=b;   return a;       }\r
+inline mglData operator-(const mglDataA &b, const mglDataA &d)\r
+{      mglData a(&b);  a-=d;   return a;       }\r
+inline mglData operator-(mreal b, const mglDataA &d)\r
+{      mglData a(&d);  a-=b;   return a;       }\r
+inline mglData operator-(const mglDataA &d, mreal b)\r
+{      mglData a(&d);  a-=b;   return a;       }\r
+inline mglData operator+(const mglDataA &b, const mglDataA &d)\r
+{      mglData a(&b);  a+=d;   return a;       }\r
+inline mglData operator+(mreal b, const mglDataA &d)\r
+{      mglData a(&d);  a+=b;   return a;       }\r
+inline mglData operator+(const mglDataA &d, mreal b)\r
+{      mglData a(&d);  a+=b;   return a;       }\r
+inline mglData operator/(const mglDataA &b, const mglDataA &d)\r
+{      mglData a(&b);  a/=d;   return a;       }\r
+inline mglData operator/(const mglDataA &d, mreal b)\r
+{      mglData a(&d);  a/=b;   return a;       }\r
 inline bool operator==(const mglData &b, const mglData &d)\r
 {      if(b.nx!=d.nx || b.ny!=d.ny || b.ny!=d.ny)      return false;\r
        return !memcmp(b.a,d.a,b.nx*b.ny*b.nz*sizeof(mreal));   }\r
+inline bool operator<(const mglDataA &b, const mglDataA &d)\r
+{      return b.Maximal()<d.Maximal(); }\r
+inline bool operator>(const mglDataA &b, const mglDataA &d)\r
+{      return b.Minimal()>d.Minimal(); }\r
 #endif\r
 //-----------------------------------------------------------------------------\r
 #ifndef SWIG\r
@@ -444,10 +472,10 @@ mreal mglSpline3(const mreal *a, long nx, long ny, long nz, mreal x, mreal y, mr
 //-----------------------------------------------------------------------------\r
 /// Integral data transformation (like Fourier 'f' or 'i', Hankel 'h' or None 'n') for amplitude and phase\r
 inline mglData mglTransformA(const mglDataA &am, const mglDataA &ph, const char *tr)\r
-{      return mgl_transform_a(&am,&ph,tr);     }\r
+{      return mglData(true,mgl_transform_a(&am,&ph,tr));       }\r
 /// Integral data transformation (like Fourier 'f' or 'i', Hankel 'h' or None 'n') for real and imaginary parts\r
 inline mglData mglTransform(const mglDataA &re, const mglDataA &im, const char *tr)\r
-{      return mgl_transform(&re,&im,tr);       }\r
+{      return mglData(true,mgl_transform(&re,&im,tr)); }\r
 /// Apply Fourier transform for the data and save result into it\r
 inline void mglFourier(mglData &re, mglData &im, const char *dir)\r
 {      mgl_data_fourier(&re,&im,dir);  }\r
@@ -455,27 +483,27 @@ inline void mglFourier(mglData &re, mglData &im, const char *dir)
 inline mglData mglSTFA(const mglDataA &re, const mglDataA &im, long dn, char dir='x')\r
 {      return mglData(true, mgl_data_stfa(&re,&im,dn,dir));    }\r
 //-----------------------------------------------------------------------------\r
-/// Saves result of PDE solving (|u|^2) for "Hamiltonian" \a ham with initial conditions \a ini\r
-inline mglData mglPDE(mglBase *gr, const char *ham, const mglData &ini_re, const mglData &ini_im, mreal dz=0.1, mreal k0=100,const char *opt="")\r
+/// Saves result of PDE solving (|u|^2) for "Hamiltonian" ham with initial conditions ini\r
+inline mglData mglPDE(mglBase *gr, const char *ham, const mglDataA &ini_re, const mglDataA &ini_im, mreal dz=0.1, mreal k0=100,const char *opt="")\r
 {      return mglData(true, mgl_pde_solve(gr,ham, &ini_re, &ini_im, dz, k0,opt));      }\r
-/// Saves result of PDE solving for "Hamiltonian" \a ham with initial conditions \a ini along a curve \a ray (must have nx>=7 - x,y,z,px,py,pz,tau or nx=5 - x,y,px,py,tau)\r
-inline mglData mglQO2d(const char *ham, const mglData &ini_re, const mglData &ini_im, const mglData &ray, mreal r=1, mreal k0=100)\r
+/// Saves result of PDE solving for "Hamiltonian" ham with initial conditions ini along a curve ray (must have nx>=7 - x,y,z,px,py,pz,tau or nx=5 - x,y,px,py,tau)\r
+inline mglData mglQO2d(const char *ham, const mglDataA &ini_re, const mglDataA &ini_im, const mglDataA &ray, mreal r=1, mreal k0=100)\r
 {      return mglData(true, mgl_qo2d_solve(ham, &ini_re, &ini_im, &ray, r, k0, 0, 0)); }\r
-inline mglData mglQO2d(const char *ham, const mglData &ini_re, const mglData &ini_im, const mglData &ray, mglData &xx, mglData &yy, mreal r=1, mreal k0=100)\r
+inline mglData mglQO2d(const char *ham, const mglDataA &ini_re, const mglDataA &ini_im, const mglDataA &ray, mglData &xx, mglData &yy, mreal r=1, mreal k0=100)\r
 {      return mglData(true, mgl_qo2d_solve(ham, &ini_re, &ini_im, &ray, r, k0, &xx, &yy));     }\r
-/// Prepares ray data for mglQO_PDE with starting point \a r0, \a p0\r
+/// Finds ray with starting point r0, p0 (and prepares ray data for mglQO2d)\r
 inline mglData mglRay(const char *ham, mglPoint r0, mglPoint p0, mreal dt=0.1, mreal tmax=10)\r
 {      return mglData(true, mgl_ray_trace(ham, r0.x, r0.y, r0.z, p0.x, p0.y, p0.z, dt, tmax)); }\r
 /// Calculate Jacobian determinant for D{x(u,v), y(u,v)} = dx/du*dy/dv-dx/dv*dy/du\r
-inline mglData mglJacobian(const mglData &x, const mglData &y)\r
+inline mglData mglJacobian(const mglDataA &x, const mglDataA &y)\r
 {      return mglData(true, mgl_jacobian_2d(&x, &y));  }\r
 /// Calculate Jacobian determinant for D{x(u,v,w), y(u,v,w), z(u,v,w)}\r
-inline mglData mglJacobian(const mglData &x, const mglData &y, const mglData &z)\r
+inline mglData mglJacobian(const mglDataA &x, const mglDataA &y, const mglDataA &z)\r
 {      return mglData(true, mgl_jacobian_3d(&x, &y, &z));      }\r
 /// Do something like Delone triangulation\r
-inline mglData mglTriangulation(const mglData &x, const mglData &y, const mglData &z)\r
+inline mglData mglTriangulation(const mglDataA &x, const mglDataA &y, const mglDataA &z)\r
 {      return mglData(true,mgl_triangulation_3d(&x,&y,&z));    }\r
-inline mglData mglTriangulation(const mglData &x, const mglData &y)\r
+inline mglData mglTriangulation(const mglDataA &x, const mglDataA &y)\r
 {      return mglData(true,mgl_triangulation_2d(&x,&y));       }\r
 //-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/data_cf.h b/include/mgl2/data_cf.h
index 1c894cc3bee5f47a524ee96cd85b61cac750b329..c928ec02e508d594647db5b45a7d8f28bd44b909 100644 (file)
--- a/include/mgl2/data_cf.h
+++ b/include/mgl2/data_cf.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data_cf.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,9 +19,9 @@
  ***************************************************************************/\r
 #ifndef _MGL_DATA_CF_H_\r
 #define _MGL_DATA_CF_H_\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #if MGL_HAVE_GSL\r
 #include <gsl/gsl_vector.h>\r
 #include <gsl/gsl_matrix.h>\r
@@ -29,273 +29,385 @@
 struct gsl_vector;\r
 struct gsl_matrix;\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
 void mgl_srnd(long seed);\r
 double mgl_rnd();\r
 double mgl_ipow(double x,int n);\r
-/*****************************************************************************/\r
+\r
+/// Create HMDT object\r
 HMDT mgl_create_data();\r
-HMDT mgl_create_data_size(long nx, long ny, long nz);\r
-HMDT mgl_create_data_file(const char *fname);\r
-void mgl_delete_data(HMDT dat);\r
-const char *mgl_data_info(HCDT dat);\r
-/*****************************************************************************/\r
 uintptr_t mgl_create_data_();\r
+/// Create HMDT object with specified sizes\r
+HMDT mgl_create_data_size(long nx, long ny, long nz);\r
 uintptr_t mgl_create_data_size_(int *nx, int *ny, int *nz);\r
+/// Create HMDT object with data from file\r
+HMDT mgl_create_data_file(const char *fname);\r
 uintptr_t mgl_create_data_file_(const char *fname, int len);\r
+/// Delete HMDT object\r
+void mgl_delete_data(HMDT dat);\r
 void mgl_delete_data_(uintptr_t *dat);\r
-/*****************************************************************************/\r
-/*             Data creation functions                                                                                          */\r
-/*****************************************************************************/\r
+/// Get information about the data (sizes and momentum) to string\r
+const char *mgl_data_info(HCDT dat);\r
+\r
+/// Rearange data dimensions\r
 void mgl_data_rearrange(HMDT dat, long mx,long my,long mz);\r
+void mgl_data_rearrange_(uintptr_t *dat, int *mx, int *my, int *mz);\r
+/// Link external data array (don't delete it at exit)\r
 void mgl_data_link(HMDT dat, mreal *A,long mx,long my,long mz);\r
+void mgl_data_link_(uintptr_t *d, float *A, int *nx,int *ny,int *nz);\r
+/// Allocate memory and copy the data from the (float *) array\r
 void mgl_data_set_float(HMDT dat, const float *A,long mx,long my,long mz);\r
+void mgl_data_set_float_(uintptr_t *dat, const float *A,int *NX,int *NY,int *NZ);\r
+void mgl_data_set_float1_(uintptr_t *d, const float *A,int *N1);\r
+/// Allocate memory and copy the data from the (double *) array\r
 void mgl_data_set_double(HMDT dat, const double *A,long mx,long my,long mz);\r
+void mgl_data_set_double_(uintptr_t *dat, const double *A,int *NX,int *NY,int *NZ);\r
+void mgl_data_set_double1_(uintptr_t *d, const double *A,int *N1);\r
+/// Allocate memory and copy the data from the (float **) array\r
 void mgl_data_set_float2(HMDT d, const float **A,long N1,long N2);\r
+void mgl_data_set_float2_(uintptr_t *d, const float *A,int *N1,int *N2);\r
+/// Allocate memory and copy the data from the (double **) array\r
 void mgl_data_set_double2(HMDT d, const double **A,long N1,long N2);\r
+void mgl_data_set_double2_(uintptr_t *d, const double *A,int *N1,int *N2);\r
+/// Allocate memory and copy the data from the (float ***) array\r
 void mgl_data_set_float3(HMDT d, const float ***A,long N1,long N2,long N3);\r
+void mgl_data_set_float3_(uintptr_t *d, const float *A,int *N1,int *N2,int *N3);\r
+/// Allocate memory and copy the data from the (double ***) array\r
 void mgl_data_set_double3(HMDT d, const double ***A,long N1,long N2,long N3);\r
+void mgl_data_set_double3_(uintptr_t *d, const double *A,int *N1,int *N2,int *N3);\r
+/// Import data from abstract type\r
 void mgl_data_set(HMDT dat, HCDT a);\r
+void mgl_data_set_(uintptr_t *dat, uintptr_t *a);\r
+/// Allocate memory and copy the data from the gsl_vector\r
 void mgl_data_set_vector(HMDT dat, gsl_vector *v);\r
+/// Allocate memory and copy the data from the gsl_matrix\r
 void mgl_data_set_matrix(HMDT dat, gsl_matrix *m);\r
+/// Set value of data element [i,j,k]\r
 void mgl_data_set_value(HMDT dat, mreal v, long i, long j, long k);\r
+void mgl_data_set_value_(uintptr_t *d, mreal *v, int *i, int *j, int *k);\r
+/// Get value of data element [i,j,k]\r
 mreal mgl_data_get_value(HCDT dat, long i, long j, long k);\r
+mreal mgl_data_get_value_(uintptr_t *d, int *i, int *j, int *k);\r
+/// Allocate memory and scanf the data from the string\r
 void mgl_data_set_values(HMDT dat, const char *val, long nx, long ny, long nz);\r
+void mgl_data_set_values_(uintptr_t *d, const char *val, int *nx, int *ny, int *nz, int l);\r
 \r
+/// Read data array from HDF file (parse HDF4 and HDF5 files)\r
 int mgl_data_read_hdf(HMDT d,const char *fname,const char *data);\r
+int mgl_data_read_hdf_(uintptr_t *d, const char *fname, const char *data,int l,int n);\r
+/// Save data to HDF file\r
 void mgl_data_save_hdf(HCDT d,const char *fname,const char *data,int rewrite);\r
+void mgl_data_save_hdf_(uintptr_t *d, const char *fname, const char *data, int *rewrite,int l,int n);\r
+/// Put HDF data names into buf as '\t' separated.\r
 int mgl_datas_hdf(const char *fname, char *buf, long size);\r
+/// Read data from tab-separated text file with auto determining size\r
 int mgl_data_read(HMDT dat, const char *fname);\r
+int mgl_data_read_(uintptr_t *d, const char *fname,int l);\r
+/// Read data from text file with size specified at beginning of the file\r
 int mgl_data_read_mat(HMDT dat, const char *fname, long dim);\r
+int mgl_data_read_mat_(uintptr_t *dat, const char *fname, int *dim, int);\r
+/// Read data from text file with specifeid size\r
 int mgl_data_read_dim(HMDT dat, const char *fname,long mx,long my,long mz);\r
+int mgl_data_read_dim_(uintptr_t *dat, const char *fname,int *mx,int *my,int *mz,int);\r
+/// Read data from tab-separated text files with auto determining size which filenames are result of sprintf(fname,templ,t) where t=from:step:to\r
 int mgl_data_read_range(HMDT d, const char *templ, double from, double to, double step, int as_slice);\r
+int mgl_data_read_range_(uintptr_t *d, const char *fname, mreal *from, mreal *to, mreal *step, int *as_slice,int l);\r
+/// Read data from tab-separated text files with auto determining size which filenames are satisfied to template (like "t_*.dat")\r
 int mgl_data_read_all(HMDT dat, const char *templ, int as_slice);\r
+int mgl_data_read_all_(uintptr_t *d, const char *fname, int *as_slice,int l);\r
+/// Save whole data array (for ns=-1) or only ns-th slice to text file\r
 void mgl_data_save(HCDT dat, const char *fname,long ns);\r
+void mgl_data_save_(uintptr_t *dat, const char *fname,int *ns,int);\r
+/// Export data array (for ns=-1) or only ns-th slice to PNG file according color scheme\r
 void mgl_data_export(HCDT dat, const char *fname, const char *scheme,mreal v1,mreal v2,long ns);\r
+void mgl_data_export_(uintptr_t *dat, const char *fname, const char *scheme,mreal *v1,mreal *v2,int *ns,int,int);\r
+/// Import data array from PNG file according color scheme\r
 void mgl_data_import(HMDT dat, const char *fname, const char *scheme,mreal v1,mreal v2);\r
+void mgl_data_import_(uintptr_t *dat, const char *fname, const char *scheme,mreal *v1,mreal *v2,int,int);\r
 \r
+/// Create or recreate the array with specified size and fill it by zero\r
 void mgl_data_create(HMDT dat, long nx,long ny,long nz);\r
+void mgl_data_create_(uintptr_t *dat, int *nx,int *ny,int *nz);\r
+/// Transpose dimensions of the data (generalization of Transpose)\r
 void mgl_data_transpose(HMDT dat, const char *dim);\r
+void mgl_data_transpose_(uintptr_t *dat, const char *dim,int);\r
+/// Normalize the data to range [v1,v2]\r
 void mgl_data_norm(HMDT dat, mreal v1,mreal v2,long sym,long dim);\r
+void mgl_data_norm_(uintptr_t *dat, mreal *v1,mreal *v2,int *sym,int *dim);\r
+/// Normalize the data to range [v1,v2] slice by slice\r
 void mgl_data_norm_slice(HMDT dat, mreal v1,mreal v2,char dir,long keep_en,long sym);\r
+void mgl_data_norm_slice_(uintptr_t *dat, mreal *v1,mreal *v2,char *dir,int *keep_en,int *sym,int l);\r
+/// Get sub-array of the data with given fixed indexes\r
 HMDT mgl_data_subdata(HCDT dat, long xx,long yy,long zz);\r
+uintptr_t mgl_data_subdata_(uintptr_t *dat, int *xx,int *yy,int *zz);\r
+/// Get sub-array of the data with given fixed indexes (like indirect access)\r
 HMDT mgl_data_subdata_ext(HCDT dat, HCDT xx, HCDT yy, HCDT zz);\r
+uintptr_t mgl_data_subdata_ext_(uintptr_t *dat, uintptr_t *xx,uintptr_t *yy,uintptr_t *zz);\r
+/// Get column (or slice) of the data filled by formulas of named columns\r
 HMDT mgl_data_column(HCDT dat, const char *eq);\r
+uintptr_t mgl_data_column_(uintptr_t *dat, const char *eq,int l);\r
+/// Set names for columns (slices)\r
 void mgl_data_set_id(HMDT d, const char *id);\r
+void mgl_data_set_id_(uintptr_t *dat, const char *id,int l);\r
+/// Equidistantly fill the data to range [x1,x2] in direction dir\r
 void mgl_data_fill(HMDT dat, mreal x1,mreal x2,char dir);\r
+void mgl_data_fill_(uintptr_t *dat, mreal *x1,mreal *x2,const char *dir,int);\r
+/// Modify the data by specified formula assuming x,y,z in range [r1,r2]\r
 void mgl_data_fill_eq(HMGL gr, HMDT dat, const char *eq, HCDT vdat, HCDT wdat,const char *opt);\r
+void mgl_data_fill_eq_(uintptr_t *gr, uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,const char *opt, int, int);\r
+/// Set the data by triangulated surface values assuming x,y,z in range [r1,r2]\r
 void mgl_data_grid(HMGL gr, HMDT d, HCDT xdat, HCDT ydat, HCDT zdat,const char *opt);\r
+void mgl_data_grid_(uintptr_t *gr, uintptr_t *dat, uintptr_t *xdat, uintptr_t *ydat, uintptr_t *zdat, const char *opt,int);\r
+/// Put value to data element(s)\r
 void mgl_data_put_val(HMDT dat, mreal val, long i, long j, long k);\r
+void mgl_data_put_val_(uintptr_t *dat, mreal *val, int *i, int *j, int *k);\r
+/// Put array to data element(s)\r
 void mgl_data_put_dat(HMDT dat, HCDT val, long i, long j, long k);\r
+void mgl_data_put_dat_(uintptr_t *dat, uintptr_t *val, int *i, int *j, int *k);\r
+/// Modify the data by specified formula\r
 void mgl_data_modify(HMDT dat, const char *eq,long dim);\r
+void mgl_data_modify_(uintptr_t *dat, const char *eq,int *dim,int);\r
+/// Modify the data by specified formula\r
 void mgl_data_modify_vw(HMDT dat, const char *eq,HCDT vdat,HCDT wdat);\r
+void mgl_data_modify_vw_(uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,int);\r
+/// Reduce size of the data\r
 void mgl_data_squeeze(HMDT dat, long rx,long ry,long rz,long smooth);\r
+void mgl_data_squeeze_(uintptr_t *dat, int *rx,int *ry,int *rz,int *smooth);\r
+\r
+/// Get maximal value of the data\r
 mreal mgl_data_max(HCDT dat);\r
+mreal mgl_data_max_(uintptr_t *dat);\r
+/// Get minimal value of the data\r
 mreal mgl_data_min(HCDT dat);\r
+mreal mgl_data_min_(uintptr_t *dat);\r
+/// Returns pointer to data element [i,j,k]\r
 mreal *mgl_data_value(HMDT dat, long i,long j,long k);\r
+/// Returns pointer to internal data array\r
 mreal *mgl_data_data(HMDT dat);\r
 \r
-mreal mgl_data_first(HCDT dat, const char *cond, long *i, long *j, long *k);\r
-mreal mgl_data_last(HCDT dat, const char *cond, long *i, long *j, long *k);\r
-long mgl_data_find(HCDT dat, const char *cond, char dir, long i, long j, long k);\r
-int mgl_data_find_any(HCDT dat, const char *cond);\r
-mreal mgl_data_max_int(HCDT dat, long *i, long *j, long *k);\r
-mreal mgl_data_max_real(HCDT dat, mreal *x, mreal *y, mreal *z);\r
-mreal mgl_data_min_int(HCDT dat, long *i, long *j, long *k);\r
-mreal mgl_data_min_real(HCDT dat, mreal *x, mreal *y, mreal *z);\r
-mreal mgl_data_momentum_val(HCDT d, char dir, mreal *m, mreal *w, mreal *s, mreal *k);\r
-\r
-HMDT mgl_data_combine(HCDT dat1, HCDT dat2);\r
-void mgl_data_extend(HMDT dat, long n1, long n2);\r
-void mgl_data_insert(HMDT dat, char dir, long at, long num);\r
-void mgl_data_delete(HMDT dat, char dir, long at, long num);\r
-/*****************************************************************************/\r
-/*             Data manipulation functions                                                                                      */\r
-/*****************************************************************************/\r
-void mgl_data_smooth(HMDT d, const char *dirs, mreal delta);\r
-HMDT mgl_data_sum(HCDT dat, const char *dir);\r
-HMDT mgl_data_max_dir(HCDT dat, const char *dir);\r
-HMDT mgl_data_min_dir(HCDT dat, const char *dir);\r
-void mgl_data_cumsum(HMDT dat, const char *dir);\r
-void mgl_data_integral(HMDT dat, const char *dir);\r
-void mgl_data_diff(HMDT dat, const char *dir);\r
-void mgl_data_diff_par(HMDT dat, HCDT v1, HCDT v2, HCDT v3);\r
-void mgl_data_diff2(HMDT dat, const char *dir);\r
-void mgl_data_swap(HMDT dat, const char *dir);\r
-void mgl_data_roll(HMDT dat, char dir, long num);\r
-void mgl_data_mirror(HMDT dat, const char *dir);\r
-void mgl_data_sort(HMDT dat, long idx, long idy);\r
-\r
-void mgl_data_hankel(HMDT dat, const char *dir);\r
-void mgl_data_sinfft(HMDT dat, const char *dir);\r
-void mgl_data_cosfft(HMDT dat, const char *dir);\r
-void mgl_data_fill_sample(HMDT dat, const char *how);\r
-\r
-mreal mgl_data_spline(HCDT dat, mreal x,mreal y,mreal z);\r
-mreal mgl_data_linear(HCDT dat, mreal x,mreal y,mreal z);\r
-HMDT mgl_data_trace(HCDT d);\r
-HMDT mgl_data_resize(HCDT dat, long mx,long my,long mz);\r
-HMDT mgl_data_resize_box(HCDT dat, long mx,long my,long mz,mreal x1,mreal x2,mreal y1,mreal y2,mreal z1,mreal z2);\r
-HMDT mgl_data_hist(HCDT dat, long n, mreal v1, mreal v2, long nsub);\r
-HMDT mgl_data_hist_w(HCDT dat, HCDT weight, long n, mreal v1, mreal v2, long nsub);\r
-HMDT mgl_data_momentum(HCDT dat, char dir, const char *how);\r
-HMDT mgl_data_evaluate(HCDT dat, HCDT idat, HCDT jdat, HCDT kdat, int norm);\r
-void mgl_data_envelop(HMDT dat, char dir);\r
-void mgl_data_sew(HMDT dat, const char *dirs, mreal da);\r
-void mgl_data_crop(HMDT dat, long n1, long n2, char dir);\r
-/*****************************************************************************/\r
-/*             Data operations                                                                                                          */\r
-/*****************************************************************************/\r
-void mgl_data_mul_dat(HMDT dat, HCDT d);\r
-void mgl_data_div_dat(HMDT dat, HCDT d);\r
-void mgl_data_add_dat(HMDT dat, HCDT d);\r
-void mgl_data_sub_dat(HMDT dat, HCDT d);\r
-void mgl_data_mul_num(HMDT dat, mreal d);\r
-void mgl_data_div_num(HMDT dat, mreal d);\r
-void mgl_data_add_num(HMDT dat, mreal d);\r
-void mgl_data_sub_num(HMDT dat, mreal d);\r
-/*****************************************************************************/\r
-HMDT mgl_pde_solve(HMGL gr, const char *ham, HCDT ini_re, HCDT ini_im, mreal dz, mreal k0,const char *opt);\r
-HMDT mgl_qo2d_solve(const char *ham, HCDT ini_re, HCDT ini_im, HCDT ray, mreal r, mreal k0, HMDT xx, HMDT yy);\r
-HMDT mgl_ray_trace(const char *ham, mreal x0, mreal y0, mreal z0, mreal px, mreal py, mreal pz, mreal dt, mreal tmax);\r
-HMDT mgl_jacobian_2d(HCDT x, HCDT y);\r
-HMDT mgl_jacobian_3d(HCDT x, HCDT y, HCDT z);\r
-HMDT mgl_transform_a(HCDT am, HCDT ph, const char *tr);\r
-HMDT mgl_transform(HCDT re, HCDT im, const char *tr);\r
-void mgl_data_fourier(HMDT re, HMDT im, const char *dir);\r
-HMDT mgl_data_stfa(HCDT re, HCDT im, long dn, char dir);\r
-\r
-HMDT mgl_triangulation_3d(HCDT x, HCDT y, HCDT z);\r
-HMDT mgl_triangulation_2d(HCDT x, HCDT y);\r
-/*****************************************************************************/\r
-/*             Data creation functions                                                                                          */\r
-/*****************************************************************************/\r
-void mgl_data_rearrange_(uintptr_t *dat, int *mx, int *my, int *mz);\r
-void mgl_data_set_float_(uintptr_t *dat, const float *A,int *NX,int *NY,int *NZ);\r
-void mgl_data_set_double_(uintptr_t *dat, const double *A,int *NX,int *NY,int *NZ);\r
-void mgl_data_set_float1_(uintptr_t *d, const float *A,int *N1);\r
-void mgl_data_set_double1_(uintptr_t *d, const double *A,int *N1);\r
-void mgl_data_set_float2_(uintptr_t *d, const float *A,int *N1,int *N2);\r
-void mgl_data_set_double2_(uintptr_t *d, const double *A,int *N1,int *N2);\r
-void mgl_data_set_float3_(uintptr_t *d, const float *A,int *N1,int *N2,int *N3);\r
-void mgl_data_set_double3_(uintptr_t *d, const double *A,int *N1,int *N2,int *N3);\r
-void mgl_data_set_(uintptr_t *dat, uintptr_t *a);\r
-\r
-void mgl_data_set_value_(uintptr_t *d, mreal *v, int *i, int *j, int *k);\r
-void mgl_data_set_values_(uintptr_t *d, const char *val, int *nx, int *ny, int *nz, int l);\r
-mreal mgl_data_get_value_(uintptr_t *d, int *i, int *j, int *k);\r
-int mgl_data_read_(uintptr_t *d, const char *fname,int l);\r
-int mgl_data_read_mat_(uintptr_t *dat, const char *fname, int *dim, int);\r
-int mgl_data_read_dim_(uintptr_t *dat, const char *fname,int *mx,int *my,int *mz,int);\r
-void mgl_data_save_(uintptr_t *dat, const char *fname,int *ns,int);\r
-void mgl_data_export_(uintptr_t *dat, const char *fname, const char *scheme,mreal *v1,mreal *v2,int *ns,int,int);\r
-void mgl_data_import_(uintptr_t *dat, const char *fname, const char *scheme,mreal *v1,mreal *v2,int,int);\r
-void mgl_data_create_(uintptr_t *dat, int *nx,int *ny,int *nz);\r
-void mgl_data_transpose_(uintptr_t *dat, const char *dim,int);\r
-void mgl_data_norm_(uintptr_t *dat, mreal *v1,mreal *v2,int *sym,int *dim);\r
-void mgl_data_norm_slice_(uintptr_t *dat, mreal *v1,mreal *v2,char *dir,int *keep_en,int *sym,int l);\r
-uintptr_t mgl_data_subdata_(uintptr_t *dat, int *xx,int *yy,int *zz);\r
-uintptr_t mgl_data_subdata_ext_(uintptr_t *dat, uintptr_t *xx,uintptr_t *yy,uintptr_t *zz);\r
-uintptr_t mgl_data_column_(uintptr_t *dat, const char *eq,int l);\r
-void mgl_data_set_id_(uintptr_t *dat, const char *id,int l);\r
-void mgl_data_fill_(uintptr_t *dat, mreal *x1,mreal *x2,const char *dir,int);\r
-void mgl_data_fill_eq_(uintptr_t *gr, uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,const char *opt, int, int);\r
-void mgl_data_grid_(uintptr_t *gr, uintptr_t *dat, uintptr_t *xdat, uintptr_t *ydat, uintptr_t *zdat, const char *opt,int);\r
-void mgl_data_put_val_(uintptr_t *dat, mreal *val, int *i, int *j, int *k);\r
-void mgl_data_put_dat_(uintptr_t *dat, uintptr_t *val, int *i, int *j, int *k);\r
-void mgl_data_modify_(uintptr_t *dat, const char *eq,int *dim,int);\r
-void mgl_data_modify_vw_(uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,int);\r
-void mgl_data_squeeze_(uintptr_t *dat, int *rx,int *ry,int *rz,int *smooth);\r
-mreal mgl_data_max_(uintptr_t *dat);\r
-mreal mgl_data_min_(uintptr_t *dat);\r
+/// Gets the x-size of the data.\r
+long mgl_data_get_nx(HCDT d);\r
+long mgl_data_get_nx_(uintptr_t *d);\r
+/// Gets the y-size of the data.\r
+long mgl_data_get_ny(HCDT d);\r
+long mgl_data_get_ny_(uintptr_t *d);\r
+/// Gets the z-size of the data.\r
+long mgl_data_get_nz(HCDT d);\r
+long mgl_data_get_nz_(uintptr_t *d);\r
 \r
+/// Find position (after specified in i,j,k) of first nonzero value of formula\r
+mreal mgl_data_first(HCDT dat, const char *cond, long *i, long *j, long *k);\r
 mreal mgl_data_first_(uintptr_t *dat, const char *cond, int *i, int *j, int *k, int);\r
+/// Find position (before specified in i,j,k) of last nonzero value of formula\r
+mreal mgl_data_last(HCDT dat, const char *cond, long *i, long *j, long *k);\r
 mreal mgl_data_last_(uintptr_t *dat, const char *cond, int *i, int *j, int *k, int);\r
+/// Find position of first in direction 'dir' nonzero value of formula\r
+long mgl_data_find(HCDT dat, const char *cond, char dir, long i, long j, long k);\r
 int mgl_data_find_(uintptr_t *dat, const char *cond, char *dir, int *i, int *j, int *k, int,int);\r
+/// Find if any nonzero value of formula\r
+int mgl_data_find_any(HCDT dat, const char *cond);\r
 int mgl_data_find_any_(uintptr_t *dat, const char *cond, int);\r
+/// Get maximal value of the data and its position\r
+mreal mgl_data_max_int(HCDT dat, long *i, long *j, long *k);\r
 mreal mgl_data_max_int_(uintptr_t *dat, int *i, int *j, int *k);\r
+/// Get maximal value of the data and its approximated position\r
+mreal mgl_data_max_real(HCDT dat, mreal *x, mreal *y, mreal *z);\r
 mreal mgl_data_max_real_(uintptr_t *dat, mreal *x, mreal *y, mreal *z);\r
+/// Get minimal value of the data and its position\r
+mreal mgl_data_min_int(HCDT dat, long *i, long *j, long *k);\r
 mreal mgl_data_min_int_(uintptr_t *dat, int *i, int *j, int *k);\r
+/// Get minimal value of the data and its approximated position\r
+mreal mgl_data_min_real(HCDT dat, mreal *x, mreal *y, mreal *z);\r
 mreal mgl_data_min_real_(uintptr_t *dat, mreal *x, mreal *y, mreal *z);\r
+/// Get "energy and find 4 momenta of data: median, width, skewness, kurtosis\r
+mreal mgl_data_momentum_val(HCDT d, char dir, mreal *m, mreal *w, mreal *s, mreal *k);\r
 mreal mgl_data_momentum_val_(uintptr_t *dat, char *dir, mreal *m, mreal *w, mreal *s, mreal *k,int);\r
 \r
+/// Get the data which is direct multiplication (like, d[i,j] = this[i]*a[j] and so on)\r
+HMDT mgl_data_combine(HCDT dat1, HCDT dat2);\r
 uintptr_t mgl_data_combine_(uintptr_t *dat1, uintptr_t *dat2);\r
+/// Extend data dimensions\r
+void mgl_data_extend(HMDT dat, long n1, long n2);\r
 void mgl_data_extend_(uintptr_t *dat, int *n1, int *n2);\r
+/// Insert data rows/columns/slices\r
+void mgl_data_insert(HMDT dat, char dir, long at, long num);\r
 void mgl_data_insert_(uintptr_t *dat, const char *dir, int *at, int *num, int);\r
+/// Delete data rows/columns/slices\r
+void mgl_data_delete(HMDT dat, char dir, long at, long num);\r
 void mgl_data_delete_(uintptr_t *dat, const char *dir, int *at, int *num, int);\r
-/*****************************************************************************/\r
-/*             Data manipulation functions                                                                                      */\r
-/*****************************************************************************/\r
+\r
+/// Smooth the data on specified direction or directions\r
+void mgl_data_smooth(HMDT d, const char *dirs, mreal delta);\r
 void mgl_data_smooth_(uintptr_t *dat, const char *dirs, mreal *delta,int);\r
+/// Get array which is result of summation in given direction or directions\r
+HMDT mgl_data_sum(HCDT dat, const char *dir);\r
 uintptr_t mgl_data_sum_(uintptr_t *dat, const char *dir,int);\r
+/// Get array which is result of maximal values in given direction or directions\r
+HMDT mgl_data_max_dir(HCDT dat, const char *dir);\r
 uintptr_t mgl_data_max_dir_(uintptr_t *dat, const char *dir,int);\r
+/// Get array which is result of minimal values in given direction or directions\r
+HMDT mgl_data_min_dir(HCDT dat, const char *dir);\r
 uintptr_t mgl_data_min_dir_(uintptr_t *dat, const char *dir,int);\r
+/// Cumulative summation the data in given direction or directions\r
+void mgl_data_cumsum(HMDT dat, const char *dir);\r
 void mgl_data_cumsum_(uintptr_t *dat, const char *dir,int);\r
+/// Integrate (cumulative summation) the data in given direction or directions\r
+void mgl_data_integral(HMDT dat, const char *dir);\r
 void mgl_data_integral_(uintptr_t *dat, const char *dir,int);\r
+/// Differentiate the data in given direction or directions\r
+void mgl_data_diff(HMDT dat, const char *dir);\r
 void mgl_data_diff_(uintptr_t *dat, const char *dir,int);\r
+/// Differentiate the parametrically specified data along direction v1 with v2,v3=const (v3 can be NULL)\r
+void mgl_data_diff_par(HMDT dat, HCDT v1, HCDT v2, HCDT v3);\r
 void mgl_data_diff_par_(uintptr_t *dat, uintptr_t *v1, uintptr_t *v2, uintptr_t *v3);\r
+/// Double-differentiate (like Laplace operator) the data in given direction\r
+void mgl_data_diff2(HMDT dat, const char *dir);\r
 void mgl_data_diff2_(uintptr_t *dat, const char *dir,int);\r
+/// Swap left and right part of the data in given direction (useful for Fourier spectrum)\r
+void mgl_data_swap(HMDT dat, const char *dir);\r
 void mgl_data_swap_(uintptr_t *dat, const char *dir,int);\r
+/// Roll data along direction dir by num slices\r
+void mgl_data_roll(HMDT dat, char dir, long num);\r
 void mgl_data_roll_(uintptr_t *dat, const char *dir, int *num, int);\r
+/// Mirror the data in given direction (useful for Fourier spectrum)\r
+void mgl_data_mirror(HMDT dat, const char *dir);\r
 void mgl_data_mirror_(uintptr_t *dat, const char *dir,int);\r
+/// Sort rows (or slices) by values of specified column\r
+void mgl_data_sort(HMDT dat, long idx, long idy);\r
 void mgl_data_sort_(uintptr_t *dat, int *idx, int *idy);\r
 \r
+/// Apply Hankel transform\r
+void mgl_data_hankel(HMDT dat, const char *dir);\r
 void mgl_data_hankel_(uintptr_t *dat, const char *dir,int);\r
+/// Apply Sin-Fourier transform\r
+void mgl_data_sinfft(HMDT dat, const char *dir);\r
 void mgl_data_sinfft_(uintptr_t *dat, const char *dir,int);\r
+/// Apply Cos-Fourier transform\r
+void mgl_data_cosfft(HMDT dat, const char *dir);\r
 void mgl_data_cosfft_(uintptr_t *dat, const char *dir,int);\r
+/// Fill data by 'x'/'k' samples for Hankel ('h') or Fourier ('f') transform\r
+void mgl_data_fill_sample(HMDT dat, const char *how);\r
 void mgl_data_fill_sample_(uintptr_t *dat, const char *how,int);\r
 \r
+/// Interpolate by cubic spline the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+mreal mgl_data_spline(HCDT dat, mreal x,mreal y,mreal z);\r
 mreal mgl_data_spline_(uintptr_t *dat, mreal *x,mreal *y,mreal *z);\r
+/// Interpolate by linear function the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+mreal mgl_data_linear(HCDT dat, mreal x,mreal y,mreal z);\r
 mreal mgl_data_linear_(uintptr_t *dat, mreal *x,mreal *y,mreal *z);\r
+/// Interpolate by cubic spline the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+mreal mgl_data_spline_ext(HCDT dat, mreal x,mreal y,mreal z, mreal *dx,mreal *dy,mreal *dz);\r
+mreal mgl_data_spline_ext_(uintptr_t *dat, mreal *x,mreal *y,mreal *z, mreal *dx,mreal *dy,mreal *dz);\r
+/// Interpolate by linear function the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+mreal mgl_data_linear_ext(HCDT dat, mreal x,mreal y,mreal z, mreal *dx,mreal *dy,mreal *dz);\r
+mreal mgl_data_linear_ext_(uintptr_t *dat, mreal *x,mreal *y,mreal *z, mreal *dx,mreal *dy,mreal *dz);\r
+/// Return an approximated x-value (root) when dat(x) = val\r
+mreal mgl_data_solve_1d(HCDT dat, mreal val, int spl, long i0);\r
+mreal mgl_data_solve_1d_(uintptr_t *dat, mreal *val, int *spl, int *i0);\r
+/// Return an approximated value (root) when dat(x) = val\r
+HMDT mgl_data_solve(HCDT dat, mreal val, char dir, HCDT i0, int norm);\r
+uintptr_t mgl_data_solve_(uintptr_t *dat, mreal *val, const char *dir, uintptr_t *i0, int *norm,int);\r
+\r
+/// Get trace of the data array\r
+HMDT mgl_data_trace(HCDT d);\r
 uintptr_t mgl_data_trace_(uintptr_t *d);\r
+/// Resize the data to new sizes\r
+HMDT mgl_data_resize(HCDT dat, long mx,long my,long mz);\r
 uintptr_t mgl_data_resize_(uintptr_t *dat, int *mx,int *my,int *mz);\r
+/// Resize the data to new sizes of box [x1,x2]*[y1,y2]*[z1,z2]\r
+HMDT mgl_data_resize_box(HCDT dat, long mx,long my,long mz,mreal x1,mreal x2,mreal y1,mreal y2,mreal z1,mreal z2);\r
 uintptr_t mgl_data_resize_box_(uintptr_t *dat, int *mx,int *my,int *mz,mreal *x1,mreal *x2,mreal *y1,mreal *y2,mreal *z1,mreal *z2);\r
+/// Create n-th points distribution of this data values in range [v1, v2]\r
+HMDT mgl_data_hist(HCDT dat, long n, mreal v1, mreal v2, long nsub);\r
 uintptr_t mgl_data_momentum_(uintptr_t *dat, char *dir, const char *how, int,int);\r
+/// Create n-th points distribution of this data values in range [v1, v2] with weight w\r
+HMDT mgl_data_hist_w(HCDT dat, HCDT weight, long n, mreal v1, mreal v2, long nsub);\r
 uintptr_t mgl_data_hist_(uintptr_t *dat, int *n, mreal *v1, mreal *v2, int *nsub);\r
+/// Get momentum (1D-array) of data along direction 'dir'. String looks like "x1" for median in x-direction, "x2" for width in x-dir and so on.\r
+HMDT mgl_data_momentum(HCDT dat, char dir, const char *how);\r
 uintptr_t mgl_data_hist_w_(uintptr_t *dat, uintptr_t *weight, int *n, mreal *v1, mreal *v2, int *nsub);\r
+/// Get array which values is result of interpolation this for coordinates from other arrays\r
+HMDT mgl_data_evaluate(HCDT dat, HCDT idat, HCDT jdat, HCDT kdat, int norm);\r
 uintptr_t mgl_data_evaluate_(uintptr_t *dat, uintptr_t *idat, uintptr_t *jdat, uintptr_t *kdat, int *norm);\r
+/// Set as the data envelop\r
+void mgl_data_envelop(HMDT dat, char dir);\r
 void mgl_data_envelop_(uintptr_t *dat, const char *dir, int);\r
+/// Remove phase jump\r
+void mgl_data_sew(HMDT dat, const char *dirs, mreal da);\r
 void mgl_data_sew_(uintptr_t *dat, const char *dirs, mreal *da, int);\r
+/// Crop the data\r
+void mgl_data_crop(HMDT dat, long n1, long n2, char dir);\r
 void mgl_data_crop_(uintptr_t *dat, int *n1, int *n2, const char *dir,int);\r
-/*****************************************************************************/\r
-/*             Data operations                                                                                                          */\r
-/*****************************************************************************/\r
+/// Remove rows with duplicate values in column id\r
+void mgl_data_clean(HMDT dat, long id);\r
+void mgl_data_clean_(uintptr_t *dat, int *id);\r
+\r
+/// Multiply the data by other one for each element\r
+void mgl_data_mul_dat(HMDT dat, HCDT d);\r
 void mgl_data_mul_dat_(uintptr_t *dat, uintptr_t *d);\r
+/// Divide the data by other one for each element\r
+void mgl_data_div_dat(HMDT dat, HCDT d);\r
 void mgl_data_div_dat_(uintptr_t *dat, uintptr_t *d);\r
+/// Add the other data\r
+void mgl_data_add_dat(HMDT dat, HCDT d);\r
 void mgl_data_add_dat_(uintptr_t *dat, uintptr_t *d);\r
+/// Subtract the other data\r
+void mgl_data_sub_dat(HMDT dat, HCDT d);\r
 void mgl_data_sub_dat_(uintptr_t *dat, uintptr_t *d);\r
+/// Multiply each element by the number\r
+void mgl_data_mul_num(HMDT dat, mreal d);\r
 void mgl_data_mul_num_(uintptr_t *dat, mreal *d);\r
+/// Divide each element by the number\r
+void mgl_data_div_num(HMDT dat, mreal d);\r
 void mgl_data_div_num_(uintptr_t *dat, mreal *d);\r
+/// Add the number\r
+void mgl_data_add_num(HMDT dat, mreal d);\r
 void mgl_data_add_num_(uintptr_t *dat, mreal *d);\r
+/// Subtract the number\r
+void mgl_data_sub_num(HMDT dat, mreal d);\r
 void mgl_data_sub_num_(uintptr_t *dat, mreal *d);\r
-/*****************************************************************************/\r
-/*             Nonlinear fitting                                                                                                        */\r
-/*****************************************************************************/\r
+\r
+/// Saves result of PDE solving (|u|^2) for "Hamiltonian" ham with initial conditions ini\r
+HMDT mgl_pde_solve(HMGL gr, const char *ham, HCDT ini_re, HCDT ini_im, mreal dz, mreal k0,const char *opt);\r
 uintptr_t mgl_pde_solve_(uintptr_t* gr, const char *ham, uintptr_t* ini_re, uintptr_t* ini_im, mreal *dz, mreal *k0,const char *opt,int,int);\r
+/// Saves result of PDE solving for "Hamiltonian" ham with initial conditions ini along a curve ray (must have nx>=7 - x,y,z,px,py,pz,tau or nx=5 - x,y,px,py,tau)\r
+HMDT mgl_qo2d_solve(const char *ham, HCDT ini_re, HCDT ini_im, HCDT ray, mreal r, mreal k0, HMDT xx, HMDT yy);\r
 uintptr_t mgl_qo2d_solve_(const char *ham, uintptr_t* ini_re, uintptr_t* ini_im, uintptr_t* ray, mreal *r, mreal *k0, uintptr_t* xx, uintptr_t* yy, int);\r
+/// Finds ray with starting point r0, p0 (and prepares ray data for mgl_qo2d_solve)\r
+HMDT mgl_ray_trace(const char *ham, mreal x0, mreal y0, mreal z0, mreal px, mreal py, mreal pz, mreal dt, mreal tmax);\r
 uintptr_t mgl_ray_trace_(const char *ham, mreal *x0, mreal *y0, mreal *z0, mreal *px, mreal *py, mreal *pz, mreal *dt, mreal *tmax,int);\r
+/// Calculate Jacobian determinant for D{x(u,v), y(u,v)} = dx/du*dy/dv-dx/dv*dy/du\r
+HMDT mgl_jacobian_2d(HCDT x, HCDT y);\r
 uintptr_t mgl_jacobian_2d_(uintptr_t* x, uintptr_t* y);\r
+/// Calculate Jacobian determinant for D{x(u,v,w), y(u,v,w), z(u,v,w)}\r
+HMDT mgl_jacobian_3d(HCDT x, HCDT y, HCDT z);\r
 uintptr_t mgl_jacobian_3d_(uintptr_t* x, uintptr_t* y, uintptr_t* z);\r
-\r
+/// Integral data transformation (like Fourier 'f' or 'i', Hankel 'h' or None 'n') for amplitude and phase\r
+HMDT mgl_transform_a(HCDT am, HCDT ph, const char *tr);\r
 uintptr_t mgl_transform_a_(uintptr_t *am, uintptr_t *ph, const char *tr, int);\r
+/// Integral data transformation (like Fourier 'f' or 'i', Hankel 'h' or None 'n') for real and imaginary parts\r
+HMDT mgl_transform(HCDT re, HCDT im, const char *tr);\r
 uintptr_t mgl_transform_(uintptr_t *re, uintptr_t *im, const char *tr, int);\r
+/// Apply Fourier transform for the data and save result into it\r
+void mgl_data_fourier(HMDT re, HMDT im, const char *dir);\r
 void mgl_data_fourier_(uintptr_t *re, uintptr_t *im, const char *dir, int l);\r
+/// Short time Fourier analysis for real and imaginary parts. Output is amplitude of partial Fourier (result will have size {dn, floor(nx/dn), ny} for dir='x'\r
+HMDT mgl_data_stfa(HCDT re, HCDT im, long dn, char dir);\r
 uintptr_t mgl_data_stfa_(uintptr_t *re, uintptr_t *im, int *dn, char *dir, int);\r
 \r
+/// Do something like Delone triangulation for 3d points\r
+HMDT mgl_triangulation_3d(HCDT x, HCDT y, HCDT z);\r
 uintptr_t mgl_triangulation_3d_(uintptr_t *x, uintptr_t *y, uintptr_t *z);\r
+/// Do Delone triangulation for 2d points\r
+HMDT mgl_triangulation_2d(HCDT x, HCDT y);\r
 uintptr_t mgl_triangulation_2d_(uintptr_t *x, uintptr_t *y);\r
-/*****************************************************************************/\r
-int mgl_data_read_hdf_(uintptr_t *d, const char *fname, const char *data,int l,int n);\r
-void mgl_data_link_(uintptr_t *d, float *A, int *nx,int *ny,int *nz);\r
-void mgl_data_save_hdf_(uintptr_t *d, const char *fname, const char *data, int *rewrite,int l,int n);\r
-int mgl_data_read_range_(uintptr_t *d, const char *fname, double *from, double *to, double *step, int *as_slice,int l);\r
-int mgl_data_read_all_(uintptr_t *d, const char *fname, int *as_slice,int l);\r
-/*****************************************************************************/\r
+\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/datac.h b/include/mgl2/datac.h
new file mode 100644 (file)
index 0000000..ea96d47
--- /dev/null
+++ b/include/mgl2/datac.h
@@ -0,0 +1,372 @@
+/***************************************************************************\r
+ * data.h is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#ifndef _MGL_DATAC_H_\r
+#define _MGL_DATAC_H_\r
+\r
+#include "mgl2/data.h"\r
+#include "mgl2/datac_cf.h"\r
+#ifdef __cplusplus\r
+//-----------------------------------------------------------------------------\r
+#include <vector>\r
+#include <string>\r
+#define mgl2   mreal(2)\r
+#define mgl3   mreal(3)\r
+#define mgl4   mreal(4)\r
+//-----------------------------------------------------------------------------\r
+/// Class for working with data array\r
+class mglDataC : public mglDataA\r
+{\r
+public:\r
+\r
+       long nx;                ///< number of points in 1st dimensions ('x' dimension)\r
+       long ny;                ///< number of points in 2nd dimensions ('y' dimension)\r
+       long nz;                ///< number of points in 3d dimensions ('z' dimension)\r
+       dual *a;                ///< data array\r
+       std::string id; ///< column (or slice) names\r
+       bool link;              ///< use external data (i.e. don't free it)\r
+\r
+       /// Initiate by other mglData variable\r
+       inline mglDataC(const mglDataC &d)      {       a=0;    mgl_datac_set(this,&d);         }       // NOTE: must be constructor for mglDataC& to exclude copy one\r
+       inline mglDataC(const mglDataA *d)      {       a=0;    mgl_datac_set(this, d);         }\r
+       inline mglDataC(bool, mglDataC *d)      // NOTE: Variable d will be deleted!!!\r
+       {       if(d)\r
+               {       nx=d->nx;       ny=d->ny;       nz=d->nz;       a=d->a; d->a=0;\r
+                       id=d->id;       link=d->link;   delete d;       }\r
+               else    {       a=0;    Create(1);      }       }\r
+       /// Initiate by flat array\r
+       inline mglDataC(int size, const dual *d)        {       a=0;    Set(d,size);    }\r
+       inline mglDataC(int rows, int cols, const dual *d)      {       a=0;    Set(d,cols,rows);       }\r
+       inline mglDataC(int size, const double *d)      {       a=0;    Set(d,size);    }\r
+       inline mglDataC(int rows, int cols, const double *d)    {       a=0;    Set(d,cols,rows);       }\r
+       inline mglDataC(int size, const float *d)       {       a=0;    Set(d,size);    }\r
+       inline mglDataC(int rows, int cols, const float *d)     {       a=0;    Set(d,cols,rows);       }\r
+       /// Read data from file\r
+       inline mglDataC(const char *fname)                      {       a=0;    Read(fname);    }\r
+       /// Allocate the memory for data array and initialize it zero\r
+       inline mglDataC(long xx=1,long yy=1,long zz=1)  {       a=0;    Create(xx,yy,zz);       }\r
+       /// Delete the array\r
+       virtual ~mglDataC()     {       if(!link && a)  delete []a;     }\r
+       inline dual GetVal(long i, long j=0, long k=0)\r
+       {       return mgl_datac_get_value(this,i,j,k);}\r
+       inline void SetVal(dual f, long i, long j=0, long k=0)\r
+       {       mgl_datac_set_value(this,f,i,j,k);      }\r
+       /// Get sizes\r
+       inline long GetNx() const       {       return nx;      }\r
+       inline long GetNy() const       {       return ny;      }\r
+       inline long GetNz() const       {       return nz;      }\r
+\r
+       /// Link external data array (don't delete it at exit)\r
+       inline void Link(dual *A, long NX, long NY=1, long NZ=1)\r
+       {       mgl_datac_link(this,A,NX,NY,NZ);        }\r
+       inline void Link(mglDataC &d)   {       Link(d.a,d.nx,d.ny,d.nz);       }\r
+       /// Allocate memory and copy the data from the gsl_vector\r
+       inline void Set(gsl_vector *m)  {       mgl_datac_set_vector(this,m);   }\r
+       /// Allocate memory and copy the data from the gsl_matrix\r
+       inline void Set(gsl_matrix *m)  {       mgl_datac_set_matrix(this,m);   }\r
+\r
+       /// Allocate memory and copy the data from the (float *) array\r
+       inline void Set(const float *A,long NX,long NY=1,long NZ=1)\r
+       {       mgl_datac_set_float(this,A,NX,NY,NZ);   }\r
+       /// Allocate memory and copy the data from the (double *) array\r
+       inline void Set(const double *A,long NX,long NY=1,long NZ=1)\r
+       {       mgl_datac_set_double(this,A,NX,NY,NZ);  }\r
+       /// Allocate memory and copy the data from the (complex *) array\r
+       inline void Set(const dual *A,long NX,long NY=1,long NZ=1)\r
+       {       mgl_datac_set_complex(this,A,NX,NY,NZ); }\r
+       /// Allocate memory and scanf the data from the string\r
+       inline void Set(const char *str,long NX,long NY=1,long NZ=1)\r
+       {       mgl_datac_set_values(this,str,NX,NY,NZ);        }\r
+       /// Import data from abstract type\r
+       inline void Set(HCDT dat)       {       mgl_datac_set(this, dat);       }\r
+       inline void Set(const mglDataA &dat)    {       mgl_datac_set(this, &dat);      }\r
+       inline void Set(const mglDataA &re, const mglDataA &im) {       mgl_datac_set_ri(this, &re, &im);       }\r
+       inline void Set(HCDT re, HCDT im)       {       mgl_datac_set_ri(this, re, im); }\r
+       inline void SetAmpl(const mglDataA &ampl, const mglDataA &phase)\r
+       {       mgl_datac_set_ap(this, &ampl, &phase);  }\r
+       /// Allocate memory and copy data from std::vector<T>\r
+       inline void Set(const std::vector<int> &d)\r
+       {       if(d.size()<1)  return;\r
+               Create(d.size());       for(long i=0;i<nx;i++)  a[i] = d[i];    }\r
+       inline void Set(const std::vector<float> &d)\r
+       {       if(d.size()<1)  return;\r
+               Create(d.size());       for(long i=0;i<nx;i++)  a[i] = d[i];    }\r
+       inline void Set(const std::vector<double> &d)\r
+       {       if(d.size()<1)  return;\r
+               Create(d.size());       for(long i=0;i<nx;i++)  a[i] = d[i];    }\r
+       inline void Set(const std::vector<dual> &d)\r
+       {       if(d.size()<1)  return;\r
+               Create(d.size());       for(long i=0;i<nx;i++)  a[i] = d[i];    }\r
+\r
+       /// Create or recreate the array with specified size and fill it by zero\r
+       inline void Create(long mx,long my=1,long mz=1)\r
+       {       mgl_datac_create(this,mx,my,mz);        }\r
+       /// Rearange data dimensions\r
+       inline void Rearrange(long mx, long my=0, long mz=0)\r
+       {       mgl_datac_rearrange(this,mx,my,mz);     }\r
+       /// Transpose dimensions of the data (generalization of Transpose)\r
+       inline void Transpose(const char *dim="yx")\r
+       {       mgl_datac_transpose(this,dim);  }\r
+       /// Extend data dimensions\r
+       inline void Extend(long n1, long n2=0)\r
+       {       mgl_datac_extend(this,n1,n2);   }\r
+       /// Reduce size of the data\r
+       inline void Squeeze(long rx,long ry=1,long rz=1,bool smooth=false)\r
+       {       mgl_datac_squeeze(this,rx,ry,rz,smooth);        }\r
+       /// Crop the data\r
+       inline void Crop(long n1, long n2,char dir='x')\r
+       {       mgl_datac_crop(this,n1,n2,dir); }\r
+       /// Insert data\r
+       inline void Insert(char dir, long at=0, long num=1)\r
+       {       mgl_datac_insert(this,dir,at,num);      }\r
+       /// Delete data\r
+       inline void Delete(char dir, long at=0, long num=1)\r
+       {       mgl_datac_delete(this,dir,at,num);      }\r
+\r
+       /// Modify the data by specified formula\r
+       inline void Modify(const char *eq,long dim=0)\r
+       {       mgl_datac_modify(this, eq, dim);        }\r
+       /// Modify the data by specified formula\r
+       inline void Modify(const char *eq,const mglDataA &vdat, const mglDataA &wdat)\r
+       {       mgl_datac_modify_vw(this,eq,&vdat,&wdat);       }\r
+       /// Modify the data by specified formula\r
+       inline void Modify(const char *eq,const mglDataA &vdat)\r
+       {       mgl_datac_modify_vw(this,eq,&vdat,0);   }\r
+       /// Modify the data by specified formula assuming x,y,z in range [r1,r2]\r
+       inline void Fill(mglBase *gr, const char *eq, const char *opt="")\r
+       {       mgl_datac_fill_eq(gr,this,eq,0,0,opt);  }\r
+       inline void Fill(mglBase *gr, const char *eq, const mglDataA &vdat, const char *opt="")\r
+       {       mgl_datac_fill_eq(gr,this,eq,&vdat,0,opt);      }\r
+       inline void Fill(mglBase *gr, const char *eq, const mglDataA &vdat, const mglDataA &wdat,const char *opt="")\r
+       {       mgl_datac_fill_eq(gr,this,eq,&vdat,&wdat,opt);  }\r
+       /// Equidistantly fill the data to range [x1,x2] in direction dir\r
+       inline void Fill(dual x1,dual x2=NaN,char dir='x')\r
+       {       return mgl_datac_fill(this,x1,x2,dir);  }\r
+\r
+       /// Set names for columns (slices)\r
+       inline void SetColumnId(const char *ids)\r
+       {       mgl_datac_set_id(this,ids);     }\r
+       /// Make new id\r
+       inline void NewId()     {       id.clear();     }\r
+\r
+       /// Read data from tab-separated text file with auto determining size\r
+       inline bool Read(const char *fname)\r
+       {       return mgl_datac_read(this,fname); }\r
+       /// Read data from text file with specifeid size\r
+       inline bool Read(const char *fname,long mx,long my=1,long mz=1)\r
+       {       return mgl_datac_read_dim(this,fname,mx,my,mz); }\r
+       /// Save whole data array (for ns=-1) or only ns-th slice to text file\r
+       inline void Save(const char *fname,long ns=-1) const\r
+       {       mgl_datac_save(this,fname,ns);  }\r
+       /// Read data from tab-separated text files with auto determining size which filenames are result of sprintf(fname,templ,t) where t=from:step:to\r
+       inline bool ReadRange(const char *templ, double from, double to, double step=1, bool as_slice=false)\r
+       {       return mgl_datac_read_range(this,templ,from,to,step,as_slice);  }\r
+       /// Read data from tab-separated text files with auto determining size which filenames are satisfied to template (like "t_*.dat")\r
+       inline bool ReadAll(const char *templ, bool as_slice=false)\r
+       {       return mgl_datac_read_all(this, templ, as_slice);       }\r
+       /// Read data from text file with size specified at beginning of the file\r
+       inline bool ReadMat(const char *fname, long dim=2)\r
+       {       return mgl_datac_read_mat(this,fname,dim);      }\r
+\r
+               /// Read data array from HDF file (parse HDF4 and HDF5 files)\r
+       inline int ReadHDF(const char *fname,const char *data)\r
+       {       return mgl_datac_read_hdf(this,fname,data);     }\r
+       /// Save data to HDF file\r
+       inline void SaveHDF(const char *fname,const char *data,bool rewrite=false) const\r
+       {       mgl_datac_save_hdf(this,fname,data,rewrite);    }\r
+       /// Put HDF data names into buf as '\t' separated.\r
+       inline static int DatasHDF(const char *fname, char *buf, long size)\r
+       {       return mgl_datas_hdf(fname,buf,size);   }\r
+\r
+       /// Get real part of data values\r
+       inline mglData Real() const\r
+       {       return mglData(true,mgl_datac_real(this));      }\r
+       /// Get imaginary part of data values\r
+       inline mglData Imag() const\r
+       {       return mglData(true,mgl_datac_imag(this));      }\r
+       /// Get absolute value of data values\r
+       inline mglData Abs() const\r
+       {       return mglData(true,mgl_datac_abs(this));       }\r
+       /// Get argument of data values\r
+       inline mglData Arg() const\r
+       {       return mglData(true,mgl_datac_arg(this));       }\r
+       \r
+       /// Get column (or slice) of the data filled by formulas of named columns\r
+       inline mglData Column(const char *eq) const\r
+       {       return mglData(true,mgl_data_column(this,eq));  }\r
+       /// Get momentum (1D-array) of data along direction 'dir'. String looks like "x1" for median in x-direction, "x2" for width in x-dir and so on.\r
+       inline mglData Momentum(char dir, const char *how) const\r
+       {       return mglData(true,mgl_data_momentum(this,dir,how));   }\r
+       /// Get sub-array of the data with given fixed indexes\r
+       inline mglData SubData(long xx,long yy=-1,long zz=-1) const\r
+       {       return mglData(true,mgl_data_subdata(this,xx,yy,zz));   }\r
+       inline mglData SubData(const mglDataA &xx, const mglDataA &yy, const mglDataA &zz) const\r
+       {       return mglData(true,mgl_data_subdata_ext(this,&xx,&yy,&zz));    }\r
+       /// Get trace of the data array\r
+       inline mglData Trace() const\r
+       {       return mglData(true,mgl_data_trace(this));      }\r
+       /// Create n-th points distribution of this data values in range [v1, v2]\r
+       inline mglData Hist(long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
+       {       return mglData(true,mgl_data_hist(this,n,v1,v2,nsub));  }\r
+       /// Create n-th points distribution of this data values in range [v1, v2] with weight w\r
+       inline mglData Hist(const mglDataA &w, long n,mreal v1=0,mreal v2=1, long nsub=0) const\r
+       {       return mglData(true,mgl_data_hist_w(this,&w,n,v1,v2,nsub));     }\r
+       /// Get array which is result of summation in given direction or directions\r
+       inline mglData Sum(const char *dir) const\r
+       {       return mglData(true,mgl_data_sum(this,dir));    }\r
+       /// Get array which is result of maximal values in given direction or directions\r
+       inline mglData Max(const char *dir) const\r
+       {       return mglData(true,mgl_data_max_dir(this,dir));        }\r
+       /// Get array which is result of minimal values in given direction or directions\r
+       inline mglData Min(const char *dir) const\r
+       {       return mglData(true,mgl_data_min_dir(this,dir));        }\r
+       /// Get the data which is direct multiplication (like, d[i,j] = this[i]*a[j] and so on)\r
+       inline mglData Combine(const mglDataA &dat) const\r
+       {       return mglData(true,mgl_data_combine(this,&dat));       }\r
+       /// Resize the data to new size of box [x1,x2]*[y1,y2]*[z1,z2]\r
+       inline mglData Resize(long mx,long my=1,long mz=1, mreal x1=0,mreal x2=1, mreal y1=0,mreal y2=1, mreal z1=0,mreal z2=1) const\r
+       {       return mglData(true,mgl_data_resize_box(this,mx,my,mz,x1,x2,y1,y2,z1,z2));      }\r
+       /// Get array which values is result of interpolation this for coordinates from other arrays\r
+       inline mglData Evaluate(const mglData &idat, bool norm=true) const\r
+       {       return mglData(true,mgl_data_evaluate(this,&idat,0,0,norm));    }\r
+       inline mglData Evaluate(const mglData &idat, const mglData &jdat, bool norm=true) const\r
+       {       return mglData(true,mgl_data_evaluate(this,&idat,&jdat,0,norm));        }\r
+       inline mglData Evaluate(const mglData &idat, const mglData &jdat, const mglData &kdat, bool norm=true) const\r
+       {       return mglData(true,mgl_data_evaluate(this,&idat,&jdat,&kdat,norm));    }\r
+\r
+       /// Cumulative summation the data in given direction or directions\r
+       inline void CumSum(const char *dir)     {       mgl_datac_cumsum(this,dir);     }\r
+       /// Integrate (cumulative summation) the data in given direction or directions\r
+       inline void Integral(const char *dir)   {       mgl_datac_integral(this,dir);   }\r
+       /// Differentiate the data in given direction or directions\r
+       inline void Diff(const char *dir)       {       mgl_datac_diff(this,dir);       }\r
+       /// Double-differentiate (like laplace operator) the data in given direction\r
+       inline void Diff2(const char *dir)      {       mgl_datac_diff2(this,dir);      }\r
+\r
+       /// Swap left and right part of the data in given direction (useful for fourier spectrums)\r
+       inline void Swap(const char *dir)               {       mgl_datac_swap(this,dir);       }\r
+       /// Roll data along direction dir by num slices\r
+       inline void Roll(char dir, long num)    {       mgl_datac_roll(this,dir,num);   }\r
+       /// Mirror the data in given direction (useful for fourier spectrums)\r
+       inline void Mirror(const char *dir)             {       mgl_datac_mirror(this,dir);     }\r
+       /// Smooth the data on specified direction or directions\r
+       inline void Smooth(const char *dirs="xyz",mreal delta=0)\r
+       {       mgl_datac_smooth(this,dirs,delta);      }\r
+\r
+       /// Hankel transform\r
+       inline void Hankel(const char *dir)     {       mgl_datac_hankel(this,dir);     }\r
+       /// Fourier transform\r
+       inline void FFT(const char *dir)        {       mgl_datac_fft(this,dir);        }\r
+\r
+       /// Interpolate by linear function the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+       inline dual Linear(mreal x,mreal y=0,mreal z=0) const\r
+       {       return mgl_datac_linear(this,x,y,z);    }\r
+       /// Interpolate by line the data to given point x,\a y,\a z which normalized in range [0, 1]\r
+       inline dual Linear1(mreal x,mreal y=0,mreal z=0) const\r
+       {       return mgl_datac_linear(this,x*(nx-1),y*(ny-1),z*(nz-1));       }\r
+       /// Interpolate by linear function the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+       inline dual Linear(mglPoint &dif, mreal x,mreal y=0,mreal z=0)  const\r
+       {\r
+               dual val,dx,dy,dz;\r
+               val = mgl_datac_linear_ext(this,x,y,z, &dx, &dy, &dz);\r
+               dif = mglPoint(dx.real(),dy.real(),dz.real());  return val;\r
+       }\r
+       /// Interpolate by line the data and return its derivatives at given point x,\a y,\a z which normalized in range [0, 1]\r
+       inline dual Linear1(mglPoint &dif, mreal x,mreal y=0,mreal z=0) const\r
+       {\r
+               dual val,dx,dy,dz;\r
+               val = mgl_datac_linear_ext(this,x,y,z, &dx, &dy, &dz);\r
+               dif = mglPoint(dx.real(),dy.real(),dz.real());\r
+               dif.x/=nx>1?nx-1:1;     dif.y/=ny>1?ny-1:1;     dif.z/=nz>1?nz-1:1;\r
+               return val;\r
+       }\r
+       /// Return an approximated x-value (root) when dat(x) = val\r
+       inline mreal Solve(mreal val, bool use_spline=true, long i0=0) const\r
+       {       return mgl_data_solve_1d(this, val, use_spline, i0);            }\r
+       /// Return an approximated value (root) when dat(x) = val\r
+       inline mglData Solve(mreal val, char dir, bool norm=true) const\r
+       {       return mglData(true,mgl_data_solve(this, val, dir, 0, norm));   }\r
+       inline mglData Solve(mreal val, char dir, const mglData &i0, bool norm=true) const\r
+       {       return mglData(true,mgl_data_solve(this, val, dir, &i0, norm)); }\r
+       \r
+       /// Print information about the data (sizes and momentum) to string\r
+       inline const char *PrintInfo() const    {       return mgl_data_info(this);     }\r
+       /// Print information about the data (sizes and momentum) to FILE (for example, stdout)\r
+       inline void PrintInfo(FILE *fp) const\r
+       {       if(fp)  {       fprintf(fp,"%s",mgl_data_info(this));   fflush(fp);     }       }\r
+       /// Get maximal value of the data\r
+       inline mreal Maximal() const    {       return mgl_data_max(this);      }\r
+       /// Get minimal value of the data\r
+       inline mreal Minimal() const    {       return mgl_data_min(this);      }\r
+       /// Get maximal value of the data and its position\r
+       inline mreal Maximal(long &i,long &j,long &k) const\r
+       {       return mgl_data_max_int(this,&i,&j,&k); }\r
+       /// Get minimal value of the data and its position\r
+       inline mreal Minimal(long &i,long &j,long &k) const\r
+       {       return mgl_data_min_int(this,&i,&j,&k); }\r
+       /// Get maximal value of the data and its approximated position\r
+       inline mreal Maximal(mreal &x,mreal &y,mreal &z) const\r
+       {       return mgl_data_max_real(this,&x,&y,&z);        }\r
+       /// Get minimal value of the data and its approximated position\r
+       inline mreal Minimal(mreal &x,mreal &y,mreal &z) const\r
+       {       return mgl_data_min_real(this,&x,&y,&z);        }\r
+\r
+       /// Copy data from other mglData variable\r
+       inline mglDataC &operator=(const mglData &d)\r
+       {       Set(&d);        return *this;   }\r
+       /// Copy data from other mglDataC variable\r
+       inline mglDataC &operator=(const mglDataC &d)\r
+       {       if(this!=&d)    Set(d.a,d.nx,d.ny,d.nz);        return *this;   }\r
+       inline dual operator=(dual val)\r
+       {       for(long i=0;i<nx*ny*nz;i++)    a[i]=val;       return val;     }\r
+#ifndef SWIG\r
+       /// Direct access to the data cell\r
+       inline dual &operator[](long i) {       return a[i];    }\r
+#endif\r
+#if MGL_NO_DATA_A\r
+       inline long GetNN() const {     return nx*ny*nz;        }\r
+#else\r
+protected:\r
+#endif\r
+       /// Get the value in given cell of the data without border checking\r
+       inline mreal v(long i,long j=0,long k=0) const\r
+#ifdef DEBUG\r
+       {       if(i<0 || j<0 || k<0 || i>=nx || j>=ny || k>=nz)        printf("Wrong index in mglData");\r
+               return abs(a[i+nx*(j+ny*k)]);   }\r
+#else\r
+       {       return abs(a[i+nx*(j+ny*k)]);   }\r
+#endif\r
+       inline mreal vthr(long i) const {       return abs(a[i]);       }\r
+       // add for speeding up !!!\r
+       inline mreal dvx(long i,long j=0,long k=0) const\r
+       {   register long i0=i+nx*(j+ny*k);\r
+               return i>0? abs(i<nx-1? (a[i0+1]-a[i0-1])/mgl2:a[i0]-a[i0-1]) : abs(a[i0+1]-a[i0]);     }\r
+       inline mreal dvy(long i,long j=0,long k=0) const\r
+       {   register long i0=i+nx*(j+ny*k);\r
+       return j>0? abs(j<ny-1? (a[i0+nx]-a[i0-nx])/mgl2:a[i0]-a[i0-nx]) : abs(a[i0+nx]-a[i0]);}\r
+       inline mreal dvz(long i,long j=0,long k=0) const\r
+       {   register long i0=i+nx*(j+ny*k), n=nx*ny;\r
+       return k>0? abs(k<nz-1? (a[i0+n]-a[i0-n])/mgl2:a[i0]-a[i0-n]) : abs(a[i0+n]-a[i0]);     }\r
+};\r
+//-----------------------------------------------------------------------------\r
+#define _DN_(a)        ((mglDataC *)*(a))\r
+#define _DC_           ((mglDataC *)*d)\r
+//-----------------------------------------------------------------------------\r
+#endif\r
+#endif\r

diff --git a/include/mgl2/datac_cf.h b/include/mgl2/datac_cf.h
new file mode 100644 (file)
index 0000000..80ca34c
--- /dev/null
+++ b/include/mgl2/datac_cf.h
@@ -0,0 +1,213 @@
+/***************************************************************************\r
+ * data_cf.h is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#ifndef _MGL_DATAC_CF_H_\r
+#define _MGL_DATAC_CF_H_\r
+//-----------------------------------------------------------------------------\r
+#include "mgl2/base.h"\r
+//-----------------------------------------------------------------------------\r
+#if MGL_HAVE_GSL\r
+#include <gsl/gsl_vector.h>\r
+#include <gsl/gsl_matrix.h>\r
+#else\r
+struct gsl_vector;\r
+struct gsl_matrix;\r
+#endif\r
+//-----------------------------------------------------------------------------\r
+#ifdef __cplusplus\r
+class mglDataC;\r
+typedef mglDataC* HADT;\r
+extern "C" {\r
+#else\r
+typedef void *HADT;\r
+#endif\r
+\r
+/// Create HMDT object\r
+HADT mgl_create_datac();\r
+uintptr_t mgl_create_datac_();\r
+/// Create HMDT object with specified sizes\r
+HADT mgl_create_datac_size(long nx, long ny, long nz);\r
+uintptr_t mgl_create_datac_size_(int *nx, int *ny, int *nz);\r
+/// Create HMDT object with data from file\r
+HADT mgl_create_datac_file(const char *fname);\r
+uintptr_t mgl_create_datac_file_(const char *fname, int len);\r
+/// Delete HMDT object\r
+void mgl_delete_datac(HADT dat);\r
+void mgl_delete_datac_(uintptr_t *dat);\r
+\r
+/// Rearange data dimensions\r
+void mgl_datac_rearrange(HADT dat, long mx,long my,long mz);\r
+void mgl_datac_rearrange_(uintptr_t *dat, int *mx, int *my, int *mz);\r
+/// Link external data array (don't delete it at exit)\r
+void mgl_datac_link(HADT dat, dual *A,long mx,long my,long mz);\r
+void mgl_datac_link_(uintptr_t *d, dual *A, int *nx,int *ny,int *nz);\r
+/// Allocate memory and copy the data from the (float *) array\r
+void mgl_datac_set_float(HADT dat, const float *A,long mx,long my,long mz);\r
+void mgl_datac_set_float_(uintptr_t *dat, const float *A,int *NX,int *NY,int *NZ);\r
+/// Allocate memory and copy the data from the (double *) array\r
+void mgl_datac_set_double(HADT dat, const double *A,long mx,long my,long mz);\r
+void mgl_datac_set_double_(uintptr_t *dat, const double *A,int *NX,int *NY,int *NZ);\r
+/// Allocate memory and copy the data from the (dual *) array\r
+void mgl_datac_set_complex(HADT dat, const dual *A,long mx,long my,long mz);\r
+void mgl_datac_set_complex_(uintptr_t *d, const dual *A,int *NX,int *NY,int *NZ);\r
+/// Import data from abstract type\r
+void mgl_datac_set(HADT dat, HCDT a);\r
+void mgl_datac_set_(uintptr_t *dat, uintptr_t *a);\r
+/// Allocate memory and copy the data from the gsl_vector\r
+void mgl_datac_set_vector(HADT dat, gsl_vector *v);\r
+/// Allocate memory and copy the data from the gsl_matrix\r
+void mgl_datac_set_matrix(HADT dat, gsl_matrix *m);\r
+/// Set value of data element [i,j,k]\r
+void mgl_datac_set_value(HADT dat, dual v, long i, long j, long k);\r
+void mgl_datac_set_value_(uintptr_t *d, mreal *v, int *i, int *j, int *k);\r
+/// Get value of data element [i,j,k]\r
+dual mgl_datac_get_value(HCDT dat, long i, long j, long k);\r
+/// Allocate memory and scanf the data from the string\r
+void mgl_datac_set_values(HADT dat, const char *val, long nx, long ny, long nz);\r
+void mgl_datac_set_values_(uintptr_t *d, const char *val, int *nx, int *ny, int *nz, int l);\r
+\r
+/// Returns pointer to internal data array\r
+dual *mgl_datac_data(HADT dat);\r
+/// Returns pointer to data element [i,j,k]\r
+dual *mgl_datac_value(HADT dat, long i,long j,long k);\r
+\r
+/// Set the data from HCDT objects for real and imaginary parts\r
+void mgl_datac_set_ri(HADT dat, HCDT re, HCDT im);\r
+void mgl_datac_set_ri_(uintptr_t *dat, uintptr_t *re, uintptr_t *im);\r
+/// Set the data from HCDT objects as amplitude and phase of complex data\r
+void mgl_datac_set_ap(HADT dat, HCDT abs, HCDT phi);\r
+void mgl_datac_set_ap_(uintptr_t *dat, uintptr_t *abs, uintptr_t *phi);\r
+\r
+/// Read data from tab-separated text file with auto determining size\r
+int mgl_datac_read(HADT dat, const char *fname);\r
+int mgl_datac_read_(uintptr_t *d, const char *fname,int l);\r
+/// Read data from text file with size specified at beginning of the file\r
+int mgl_datac_read_mat(HADT dat, const char *fname, long dim);\r
+int mgl_datac_read_mat_(uintptr_t *dat, const char *fname, int *dim, int);\r
+/// Read data from text file with specifeid size\r
+int mgl_datac_read_dim(HADT dat, const char *fname,long mx,long my,long mz);\r
+int mgl_datac_read_dim_(uintptr_t *dat, const char *fname,int *mx,int *my,int *mz,int);\r
+/// Read data from tab-separated text files with auto determining size which filenames are result of sprintf(fname,templ,t) where t=from:step:to\r
+int mgl_datac_read_range(HADT d, const char *templ, double from, double to, double step, int as_slice);\r
+int mgl_data_read_range_(uintptr_t *d, const char *fname, mreal *from, mreal *to, mreal *step, int *as_slice,int l);\r
+/// Read data from tab-separated text files with auto determining size which filenames are satisfied to template (like "t_*.dat")\r
+int mgl_datac_read_all(HADT dat, const char *templ, int as_slice);\r
+int mgl_data_read_all_(uintptr_t *d, const char *fname, int *as_slice,int l);\r
+/// Save whole data array (for ns=-1) or only ns-th slice to text file\r
+void mgl_datac_save(HCDT dat, const char *fname,long ns);\r
+void mgl_datac_save_(uintptr_t *dat, const char *fname,int *ns,int);\r
+\r
+/// Read data array from HDF file (parse HDF4 and HDF5 files)\r
+int mgl_datac_read_hdf(HADT d,const char *fname,const char *data);\r
+int mgl_datac_read_hdf_(uintptr_t *d, const char *fname, const char *data,int l,int n);\r
+/// Save data to HDF file\r
+void mgl_datac_save_hdf(HCDT d,const char *fname,const char *data,int rewrite);\r
+void mgl_datac_save_hdf_(uintptr_t *d, const char *fname, const char *data, int *rewrite,int l,int n);\r
+\r
+/// Create or recreate the array with specified size and fill it by zero\r
+void mgl_datac_create(HADT dat, long nx,long ny,long nz);\r
+void mgl_datac_create_(uintptr_t *dat, int *nx,int *ny,int *nz);\r
+/// Transpose dimensions of the data (generalization of Transpose)\r
+void mgl_datac_transpose(HADT dat, const char *dim);\r
+void mgl_datac_transpose_(uintptr_t *dat, const char *dim,int);\r
+/// Set names for columns (slices)\r
+void mgl_datac_set_id(HADT d, const char *id);\r
+void mgl_datac_set_id_(uintptr_t *dat, const char *id,int l);\r
+/// Equidistantly fill the data to range [x1,x2] in direction dir\r
+void mgl_datac_fill(HADT dat, dual x1,dual x2,char dir);\r
+void mgl_datac_fill_(uintptr_t *dat, mreal *x1,mreal *x2,const char *dir,int);\r
+/// Modify the data by specified formula assuming x,y,z in range [r1,r2]\r
+void mgl_datac_fill_eq(HMGL gr, HADT dat, const char *eq, HCDT vdat, HCDT wdat,const char *opt);\r
+void mgl_datac_fill_eq_(uintptr_t *gr, uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,const char *opt, int, int);\r
+/// Modify the data by specified formula\r
+void mgl_datac_modify(HADT dat, const char *eq,long dim);\r
+void mgl_datac_modify_(uintptr_t *dat, const char *eq,int *dim,int);\r
+/// Modify the data by specified formula\r
+void mgl_datac_modify_vw(HADT dat, const char *eq,HCDT vdat,HCDT wdat);\r
+void mgl_datac_modify_vw_(uintptr_t *dat, const char *eq, uintptr_t *vdat, uintptr_t *wdat,int);\r
+\r
+/// Reduce size of the data\r
+void mgl_datac_squeeze(HADT dat, long rx,long ry,long rz,long smooth);\r
+void mgl_datac_squeeze_(uintptr_t *dat, int *rx,int *ry,int *rz,int *smooth);\r
+/// Extend data dimensions\r
+void mgl_datac_extend(HADT dat, long n1, long n2);\r
+void mgl_datac_extend_(uintptr_t *dat, int *n1, int *n2);\r
+/// Insert data rows/columns/slices\r
+void mgl_datac_insert(HADT dat, char dir, long at, long num);\r
+void mgl_datac_insert_(uintptr_t *dat, const char *dir, int *at, int *num, int);\r
+/// Delete data rows/columns/slices\r
+void mgl_datac_delete(HADT dat, char dir, long at, long num);\r
+void mgl_datac_delete_(uintptr_t *dat, const char *dir, int *at, int *num, int);\r
+\r
+/// Smooth the data on specified direction or directions\r
+void mgl_datac_smooth(HADT d, const char *dirs, mreal delta);\r
+void mgl_datac_smooth_(uintptr_t *dat, const char *dirs, mreal *delta,int);\r
+/// Cumulative summation the data in given direction or directions\r
+void mgl_datac_cumsum(HADT dat, const char *dir);\r
+void mgl_datac_cumsum_(uintptr_t *dat, const char *dir,int);\r
+/// Integrate (cumulative summation) the data in given direction or directions\r
+void mgl_datac_integral(HADT dat, const char *dir);\r
+void mgl_datac_integral_(uintptr_t *dat, const char *dir,int);\r
+/// Differentiate the data in given direction or directions\r
+void mgl_datac_diff(HADT dat, const char *dir);\r
+void mgl_datac_diff_(uintptr_t *dat, const char *dir,int);\r
+/// Double-differentiate (like Laplace operator) the data in given direction\r
+void mgl_datac_diff2(HADT dat, const char *dir);\r
+void mgl_datac_diff2_(uintptr_t *dat, const char *dir,int);\r
+/// Swap left and right part of the data in given direction (useful for Fourier spectrum)\r
+void mgl_datac_swap(HADT dat, const char *dir);\r
+void mgl_datac_swap_(uintptr_t *dat, const char *dir,int);\r
+/// Roll data along direction dir by num slices\r
+void mgl_datac_roll(HADT dat, char dir, long num);\r
+void mgl_datac_roll_(uintptr_t *dat, const char *dir, int *num, int);\r
+/// Mirror the data in given direction (useful for Fourier spectrum)\r
+void mgl_datac_mirror(HADT dat, const char *dir);\r
+void mgl_datac_mirror_(uintptr_t *dat, const char *dir,int);\r
+/// Crop the data\r
+void mgl_datac_crop(HADT dat, long n1, long n2, char dir);\r
+void mgl_data_crop_(uintptr_t *dat, int *n1, int *n2, const char *dir,int);\r
+\r
+/// Apply Hankel transform\r
+void mgl_datac_hankel(HADT dat, const char *dir);\r
+void mgl_datac_hankel_(uintptr_t *dat, const char *dir,int);\r
+/// Apply Fourier transform\r
+void mgl_datac_fft(HADT dat, const char *dir);\r
+void mgl_datac_fft_(uintptr_t *dat, const char *dir,int);\r
+\r
+HMDT mgl_datac_real(HCDT dat);\r
+uintptr_t mgl_datac_real_(uintptr_t *dat);\r
+HMDT mgl_datac_imag(HCDT dat);\r
+uintptr_t mgl_datac_imag_(uintptr_t *dat);\r
+HMDT mgl_datac_abs(HCDT dat);\r
+uintptr_t mgl_datac_abs_(uintptr_t *dat);\r
+HMDT mgl_datac_arg(HCDT dat);\r
+uintptr_t mgl_datac_arg_(uintptr_t *dat);\r
+\r
+/// Interpolate by linear function the data to given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+dual mgl_datac_linear(HCDT d, mreal x,mreal y,mreal z);\r
+dual mgl_datac_linear_(uintptr_t *d, mreal *x,mreal *y,mreal *z);\r
+/// Interpolate by linear function the data and return its derivatives at given point x=[0...nx-1], y=[0...ny-1], z=[0...nz-1]\r
+dual mgl_datac_linear_ext(HCDT d, mreal x,mreal y,mreal z, dual *dx,dual *dy,dual *dz);\r
+dual mgl_datac_linear_ext_(uintptr_t *d, mreal *x,mreal *y,mreal *z, dual *dx,dual *dy,dual *dz);\r
+\r
+#ifdef __cplusplus\r
+}\r
+#endif\r
+//-----------------------------------------------------------------------------\r
+#endif\r

diff --git a/include/mgl2/define.h b/include/mgl2/define.h
index b95a7acd2d15449c08ffb8d3bb1a6bb6748c2135..fc4e279ebfb0fa3d2ffa38680b4487dbc6fe9011 100644 (file)
--- a/include/mgl2/define.h
+++ b/include/mgl2/define.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * define.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -21,11 +21,14 @@
 #define _MGL_DEFINE_H_\r
 //-----------------------------------------------------------------------------\r
 #include "mgl2/config.h"\r
+\r
+#define MGL_VER2       1.0\r
 //-----------------------------------------------------------------------------\r
 #ifdef WIN32 //_MSC_VER needs this before math.h\r
 #define        _USE_MATH_DEFINES\r
 #endif\r
 \r
+#ifdef MGL_SRC\r
 #if MGL_HAVE_ZLIB\r
 #include <zlib.h>\r
 #ifndef Z_BEST_COMPRESSION\r
@@ -40,6 +43,7 @@
 #define gzgets(fp,str,size)    fgets(str,size,fp)\r
 #define gzgetc fgetc\r
 #endif\r
+#endif\r
 \r
 #include <math.h>\r
 #include <stdio.h>\r
@@ -52,14 +56,13 @@
 #define fmax(a,b)      ((a)>(b))?(a):(b)\r
 #endif\r
 \r
-#define MGL_VER2       0.3\r
+#if defined(_MSC_VER)\r
+#define hypot  _hypot\r
+#define getcwd _getcwd\r
+#define chdir  _chdir // BORLAND has chdir\r
+#endif\r
 \r
-//#ifdef WIN32\r
 #if defined(_MSC_VER) || defined(__BORLANDC__)\r
-#define hypot _hypot\r
-#define getcwd _getcwd\r
-#define isfinite _finite\r
-#define chdir  _chdir // BORLAND has chdir\r
 #include <float.h>\r
 \r
 const unsigned long mgl_nan[2] = {0xffffffff, 0x7fffffff};\r
@@ -90,6 +93,7 @@ typedef double mreal;
 typedef float mreal;\r
 #define MGL_EPSILON    (1.+1e-5)\r
 #endif\r
+#define MGL_FEPSILON   (1.+1e-5)\r
 //-----------------------------------------------------------------------------\r
 #ifndef MGL_CMAP_COLOR\r
 #define MGL_CMAP_COLOR 32\r
@@ -103,14 +107,6 @@ typedef float mreal;
 #define MGL_DEF_VIEWER "evince"\r
 #endif\r
 //-----------------------------------------------------------------------------\r
-#ifndef MGL_FONT_PATH\r
-#ifdef WIN32\r
-#define MGL_FONT_PATH "."      // path to fonts\r
-#else\r
-#define MGL_FONT_PATH "/usr/local/share/mathgl/fonts"  // path to fonts\r
-#endif\r
-#endif\r
-//-----------------------------------------------------------------------------\r
 #define mgl_min(a,b)   (((a)>(b)) ? (b) : (a))\r
 #define mgl_max(a,b)   (((a)>(b)) ? (a) : (b))\r
 #define mgl_isnan(a)   ((a)!=(a))\r
@@ -151,20 +147,20 @@ enum{     // types of predefined curvelinear coordinate systems
 enum{  // Codes for warnings/messages\r
        mglWarnNone = 0,// Everything OK\r
        mglWarnDim,             // Data dimension(s) is incompatible\r
-       mglWarnLow,     // Data dimension(s) is too small\r
-       mglWarnNeg,     // Minimal data value is negative\r
-       mglWarnFile,    // No file or wrong data dimensions\r
+       mglWarnLow,             // Data dimension(s) is too small\r
+       mglWarnNeg,             // Minimal data value is negative\r
+       mglWarnFile,    // No file or wrong data dimensions\r
        mglWarnMem,             // Not enough memory\r
-       mglWarnZero,    // Data values are zero\r
+       mglWarnZero,    // Data values are zero\r
        mglWarnLeg,             // No legend entries\r
        mglWarnSlc,             // Slice value is out of range\r
        mglWarnCnt,             // Number of contours is zero or negative\r
-       mglWarnOpen,    // Couldn't open file\r
+       mglWarnOpen,    // Couldn't open file\r
        mglWarnLId,             // Light: ID is out of range\r
-       mglWarnSize,    // Setsize: size(s) is zero or negative\r
+       mglWarnSize,    // Setsize: size(s) is zero or negative\r
        mglWarnFmt,             // Format is not supported for that build\r
-       mglWarnTern,    // Axis ranges are incompatible\r
-       mglWarnNull,    // Pointer is NULL\r
+       mglWarnTern,    // Axis ranges are incompatible\r
+       mglWarnNull,    // Pointer is NULL\r
        mglWarnSpc,             // Not enough space for plot\r
        mglWarnEnd              // Maximal number of warnings (must be last)\r
 };\r
@@ -175,57 +171,93 @@ enum{     // Codes for warnings/messages
 #define MGL_COLORS     "kwrgbcymhWRGBCYMHlenpquLENPQU"\r
 //-----------------------------------------------------------------------------\r
 #define MGL_TRANSP_NORM                0x000000\r
-#define MGL_TRANSP_GLASS       0x000001\r
+#define MGL_TRANSP_GLASS       0x000001\r
 #define MGL_TRANSP_LAMP                0x000002\r
-#define MGL_ENABLE_CUT         0x000004        ///< Flag which determines how points outside bounding box are drown.\r
-#define MGL_ENABLE_RTEXT       0x000008        ///< Use text rotation along axis\r
-#define MGL_AUTO_FACTOR                0x000010        ///< Enable autochange PlotFactor\r
-#define MGL_ENABLE_ALPHA       0x000020        ///< Flag that Alpha is used\r
-#define MGL_ENABLE_LIGHT       0x000040        ///< Flag of using lightning\r
-#define MGL_TICKS_ROTATE       0x000080        ///< Allow ticks rotation\r
-#define MGL_TICKS_SKIP         0x000100        ///< Allow ticks rotation\r
+#define MGL_ENABLE_CUT         0x000004        ///< Flag which determines how points outside bounding box are drown.\r
+#define MGL_ENABLE_RTEXT       0x000008        ///< Use text rotation along axis\r
+#define MGL_AUTO_FACTOR                0x000010        ///< Enable autochange PlotFactor\r
+#define MGL_ENABLE_ALPHA       0x000020        ///< Flag that Alpha is used\r
+#define MGL_ENABLE_LIGHT       0x000040        ///< Flag of using lightning\r
+#define MGL_TICKS_ROTATE       0x000080        ///< Allow ticks rotation\r
+#define MGL_TICKS_SKIP         0x000100        ///< Allow ticks rotation\r
 // flags for internal use only\r
-#define MGL_DISABLE_SCALE      0x000200        ///< Temporary flag for disable scaling (used for axis)\r
-#define MGL_FINISHED           0x000400        ///< Flag that final picture (i.e. mglCanvas::G) is ready\r
-#define MGL_USE_GMTIME         0x000800        ///< Use gmtime instead of localtime\r
-#define MGL_SHOW_POS           0x001000        ///< Switch to show or not mouse click position\r
-#define MGL_CLF_ON_UPD         0x002000        ///< Clear plot before Update()\r
-#define MGL_NOSUBTICKS         0x004000        ///< Disable subticks drawing (for bounding box)\r
-#define MGL_DIFFUSIVE          0x008000        ///< Use diffusive light instead of specular\r
-#define MGL_USEDRWDAT          0x010000        ///< Use DrwDat to remember all data of frames\r
-#define MGL_REDUCEACC          0x020000        ///< Reduce accuracy of points (to reduc size of output files)\r
-#define MGL_PREFERVC           0x040000        ///< Prefer vertex color instead of texture if output format supports\r
-#define MGL_ONESIDED           0x080000        ///< Render only front side of surfaces if output format supports (for debugging)\r
-//-----------------------------------------------------------------------------\r
-//#define mgl_realloc(T,o,no,nn) {T *_tmp = new T[nn]; memcpy(_tmp,o,(no)*sizeof(T)); delete []o; o=_tmp;}\r
+#define MGL_DISABLE_SCALE      0x000200        ///< Temporary flag for disable scaling (used for axis)\r
+#define MGL_FINISHED           0x000400        ///< Flag that final picture (i.e. mglCanvas::G) is ready\r
+#define MGL_USE_GMTIME         0x000800        ///< Use gmtime instead of localtime\r
+#define MGL_SHOW_POS                   0x001000        ///< Switch to show or not mouse click position\r
+#define MGL_CLF_ON_UPD         0x002000        ///< Clear plot before Update()\r
+#define MGL_NOSUBTICKS         0x004000        ///< Disable subticks drawing (for bounding box)\r
+#define MGL_DIFFUSIVE          0x008000        ///< Use diffusive light instead of specular\r
+#define MGL_VECT_FRAME         0x010000        ///< Use DrwDat to remember all data of frames\r
+#define MGL_REDUCEACC          0x020000        ///< Reduce accuracy of points (to reduc size of output files)\r
+#define MGL_PREFERVC           0x040000        ///< Prefer vertex color instead of texture if output format supports\r
+#define MGL_ONESIDED           0x080000        ///< Render only front side of surfaces if output format supports (for debugging)\r
+//#define MGL_3D_ARROW                 0x100000        ///< Use 3D arrows instead of 2d ones\r
 //-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 //-----------------------------------------------------------------------------\r
+#include <complex>\r
+typedef std::complex<mreal> dual;\r
+//-----------------------------------------------------------------------------\r
 struct mglThreadD\r
 {\r
        mreal *a;               // float* array with parameters or results\r
        const mreal *b,*c,*d,*e;        // float* arrays with parameters\r
        const long *p;  // long* array with parameters\r
-       void *v;                // pointer to data/grapher\r
+       const void *v;  // pointer to data/grapher\r
        int id;                 // thread id\r
        long n;                 // total number of iteration\r
        const char *s;\r
 };\r
+struct mglThreadC\r
+{\r
+       dual *a;                // dual* array with parameters or results\r
+       const dual *b,*c,*d,*e; // dual* arrays with parameters\r
+       const long *p;  // long* array with parameters\r
+       const void *v;  // pointer to data/grapher\r
+       int id;                 // thread id\r
+       long n;                 // total number of iteration\r
+       const char *s;\r
+};\r
+struct mglThreadV\r
+{\r
+       mreal *a;               // float* array with parameters or results\r
+       dual *aa;               // dual* array with parameters or results\r
+       const void *b,*c;       // float* arrays with parameters\r
+       const mreal *d; // float* arrays with parameters\r
+       const long *p;  // long* array with parameters\r
+       const void *v;  // pointer to data/grapher\r
+       int id;                 // thread id\r
+       long n;                 // total number of iteration\r
+};\r
 /// Start several thread for the task\r
 void mglStartThread(void *(*func)(void *), void (*post)(mglThreadD *,mreal *), long n,\r
                                        mreal *a=0, const mreal *b=0, const mreal *c=0, const long *p=0,\r
-                                       void *v=0, const mreal *d=0, const mreal *e=0, const char *s=0);\r
+                                       const void *v=0, const mreal *d=0, const mreal *e=0, const char *s=0);\r
+void mglStartThreadV(void *(*func)(void *), long n, mreal *a, const void *b=0,\r
+                                       const void *c=0, const long *p=0, const void *v=0, const mreal *d=0);\r
+void mglStartThreadV(void *(*func)(void *), long n, dual *a, const void *b=0,\r
+                                       const void *c=0, const long *p=0, const void *v=0, const mreal *d=0);\r
+void mglStartThreadC(void *(*func)(void *), void (*post)(mglThreadC *,dual *), long n,\r
+                                       dual *a=0, const dual *b=0, const dual *c=0, const long *p=0,\r
+                                       const void *v=0, const dual *d=0, const dual *e=0, const char *s=0);\r
 extern int mglNumThr;          ///< Number of thread for plotting and data handling\r
 //-----------------------------------------------------------------------------\r
 extern "C" {\r
+#else\r
+#include <complex.h>\r
+#if MGL_USE_DOUBLE\r
+typedef double _Complex dual;\r
+#else\r
+typedef float _Complex dual;\r
+#endif\r
 #endif\r
+/** Find symbol in string excluding {} and return its position or NULL */\r
+const char *mglchr(const char *str, char ch);\r
 /** Set number of thread for plotting and data handling*/\r
 void mgl_set_num_thr(int n);\r
 void mgl_test_txt(const char *str, ...);\r
 void mgl_set_test_mode(int enable);\r
-/** Duplicate string (returned pointer must be free() after usage) */\r
-char *mgl_strdup(const char *s);\r
-wchar_t *mgl_wcsdup(const wchar_t *s);\r
 /** Remove spaces at begining and at the end of the string */\r
 void mgl_strtrim(char *str);\r
 void mgl_wcstrim(wchar_t *str);\r

diff --git a/include/mgl2/eval.h b/include/mgl2/eval.h
index 3171c1127d5ff7c5a68a3de9ef72228f576ebbf2..a8d780fd4ab2dceda03a8f1c269a280898637320 100644 (file)
--- a/include/mgl2/eval.h
+++ b/include/mgl2/eval.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * eval.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,18 +17,17 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-//---------------------------------------------------------------------------\r
 #ifndef _MGL_EVAL_H_\r
 #define _MGL_EVAL_H_\r
-//---------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
 #include "mgl2/define.h"\r
 /// types of errors\r
 #define MGL_ERR_LOG            1\r
 #define MGL_ERR_ARC            2\r
 #define MGL_ERR_SQRT   3\r
-/// size of \a var array\r
+/// size of var array\r
 const int MGL_VS = 'z'-'a'+1;\r
-//---------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
 /// Class for evaluating formula specified by the string\r
 class mglFormula                                       // îáúåêò äëÿ ââîäà è âû÷èñëåíèÿ ôîðìóë\r
 {\r
@@ -37,17 +36,17 @@ public:
        mreal Calc(mreal x,mreal y=0,mreal z=0,mreal u=0) const;\r
        /// Evaluates the formula for 'x, y, z, u, v, w'\r
        mreal Calc(mreal x,mreal y,mreal z,mreal u,mreal v,mreal w) const;\r
-       /// Evaluates the formula for variables \a var\r
+       /// Evaluates the formula for variables var\r
        mreal Calc(const mreal var[MGL_VS]) const;\r
        /// Evaluates the formula for 'x','r'=\a x, 'y','n'=\a y, 'z','t'=\a z, 'u'=\a u\r
        mreal CalcD(char diff, mreal x,mreal y=0,mreal z=0,mreal u=0) const;\r
        /// Evaluates the formula for 'x, y, z, u, v, w'\r
        mreal CalcD(char diff, mreal x,mreal y,mreal z,mreal u,mreal v,mreal w) const;\r
-       /// Evaluates the derivates of the formula for variables \a var respect to variable \a diff\r
+       /// Evaluates the derivates of the formula for variables var respect to variable diff\r
        mreal CalcD(const mreal var[MGL_VS], char diff) const;\r
        /// Return error code\r
        int GetError() const;\r
-       /// Parse the formula \a str and create formula-tree\r
+       /// Parse the formula str and create formula-tree\r
        mglFormula(const char *str);\r
        /// Clean up formula-tree\r
        ~mglFormula();\r
@@ -56,8 +55,8 @@ protected:
        mreal CalcDIn(int id, const mreal *a1) const;\r
        mglFormula *Left,*Right;        // first and second argument of the function\r
        int Kod;                                        // the function ID\r
-       mreal Res;                                      // the number or the variable ID\r
+       mreal Res;                              // the number or the variable ID\r
        static int Error;\r
 };\r
-//---------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/evalc.h b/include/mgl2/evalc.h
index 621e88a69b5814f8a50267f5aacc54de47d0e395..3b0469bc56d25c9a3b9c2521109166b23384196e 100644 (file)
--- a/include/mgl2/evalc.h
+++ b/include/mgl2/evalc.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * evalc.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,16 +17,11 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-//---------------------------------------------------------------------------\r
 #ifndef _MGL_EVALC_H_\r
 #define _MGL_EVALC_H_\r
-//---------------------------------------------------------------------------\r
-#include <complex>\r
-#ifndef dual\r
-#define dual std::complex<double>      ///< short name for complex numbers\r
-#endif\r
+//-----------------------------------------------------------------------------\r
 #include "mgl2/eval.h"\r
-//---------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
 /// Class for evaluating formula specified by the string\r
 class mglFormulaC                                      // ������ ��� ����� � ���������� ������\r
 {\r
@@ -35,20 +30,20 @@ public:
        dual Calc(dual x,dual y=0,dual z=0,dual u=0) const;\r
        /// Evaluates the formula for 'x, y, z, u, v, w'\r
        dual Calc(dual x,dual y,dual z,dual u,dual v,dual w) const;\r
-       /// Evaluates the formula for variables \a var\r
+       /// Evaluates the formula for variables var\r
        dual Calc(const dual var[MGL_VS]) const;\r
        /// Return error code\r
        int GetError() const;\r
-       /// Parse the formula \a str and create formula-tree\r
+       /// Parse the formula str and create formula-tree\r
        mglFormulaC(const char *str);\r
        /// Clean up formula-tree\r
        virtual ~mglFormulaC();\r
 protected:\r
        dual CalcIn(const dual *a1) const;\r
        mglFormulaC *Left,*Right;       // first and second argument of the function\r
-       int Kod;                                        // the function ID\r
+       int Kod;                                                // the function ID\r
        dual Res;                                       // the number or the variable ID\r
        static int Error;\r
 };\r
-//---------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/fit.h b/include/mgl2/fit.h
index 5e6b1549001d6f77c1076a77ad527fc2df7503fb..6ac673ccc03ad545a03b88e3e253b59c850072aa 100644 (file)
--- a/include/mgl2/fit.h
+++ b/include/mgl2/fit.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * fit.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,11 +20,11 @@
 #ifndef _MGL_FIT_H_\r
 #define _MGL_FIT_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 extern int mglFitPnts;                 ///< Number of output points in fitting\r
 extern char mglFitRes[1024];   ///< Last fitted formula\r
 HMDT mgl_fit_1(HMGL gr, HCDT y, const char *eq, const char *var, HMDT ini, const char *opt);\r
@@ -44,8 +44,8 @@ HMDT mgl_hist_x(HMGL gr, HCDT x, HCDT a, const char *opt);
 HMDT mgl_hist_xy(HMGL gr, HCDT x, HCDT y, HCDT a, const char *opt);\r
 HMDT mgl_hist_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *opt);\r
 \r
-void mgl_puts_fit(HMGL gr, mreal x, mreal y, mreal z, const char *prefix, const char *font, mreal size);\r
-/*****************************************************************************/\r
+void mgl_puts_fit(HMGL gr, double x, double y, double z, const char *prefix, const char *font, double size);\r
+//-----------------------------------------------------------------------------\r
 uintptr_t mgl_fit_1_(uintptr_t* gr, uintptr_t* y, const char *eq, const char *var, uintptr_t *ini, const char *opt,int, int l, int n);\r
 uintptr_t mgl_fit_2_(uintptr_t* gr, uintptr_t* z, const char *eq, const char *var, uintptr_t *ini, const char *opt,int, int l, int n);\r
 uintptr_t mgl_fit_3_(uintptr_t* gr, uintptr_t* a, const char *eq, const char *var, uintptr_t *ini, const char *opt,int, int l, int n);\r
@@ -62,9 +62,9 @@ uintptr_t mgl_hist_xy_(uintptr_t* gr, uintptr_t* x, uintptr_t* y, uintptr_t* a,
 uintptr_t mgl_hist_xyz_(uintptr_t* gr, uintptr_t* x, uintptr_t* y, uintptr_t* z, uintptr_t* a, const char *opt,int);\r
 \r
 void mgl_puts_fit_(uintptr_t* gr, mreal *x, mreal *y, mreal *z, const char *prefix, const char *font, mreal *size, int l, int n);\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/fltk.h b/include/mgl2/fltk.h
index e21016b383f2b56b06042ec9f431160d185a661b..815b6042ef2cbdaa0454b8e1b47d397f3afe7e81 100644 (file)
--- a/include/mgl2/fltk.h
+++ b/include/mgl2/fltk.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * window.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,10 +20,40 @@
 //-----------------------------------------------------------------------------\r
 #ifndef _MGL_FLTK_H_\r
 #define _MGL_FLTK_H_\r
-/*****************************************************************************/\r
+\r
+#include <mgl2/base.h>\r
+//-----------------------------------------------------------------------------\r
+#ifdef __cplusplus\r
+extern "C" {\r
+#endif\r
+/// Creates FLTK window for plotting\r
+HMGL mgl_create_graph_fltk(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
+uintptr_t mgl_create_graph_fltk_(const char *title, int);\r
+/// Run main FLTK loop for event handling.\r
+int mgl_fltk_run();\r
+int mgl_fltk_run_();\r
+/// Run main FLTK loop for event handling in separate thread.\r
+int mgl_fltk_thr();\r
 #ifdef __cplusplus\r
-#include "mgl2/canvas_wnd.h"\r
-#if MGL_HAVE_FLTK\r
+}\r
+//-----------------------------------------------------------------------------\r
+#include <mgl2/wnd.h>\r
+//-----------------------------------------------------------------------------\r
+/// Wrapper class for windows displaying graphics\r
+class mglFLTK : public mglWnd\r
+{\r
+public:\r
+       mglFLTK(const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_fltk(0,title,0,0);        }\r
+       mglFLTK(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=NULL, void (*load)(void *p)=0) : mglWnd()\r
+       {       gr = mgl_create_graph_fltk(draw,title,par,load);        }\r
+       mglFLTK(int (*draw)(mglGraph *gr), const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_fltk(draw?mgl_draw_graph:0,title,(void*)draw,0);  }\r
+       mglFLTK(mglDraw *draw, const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_fltk(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
+               mgl_set_click_func(gr, mgl_click_class);        }\r
+       int Run()       {       return mgl_fltk_run();  }       ///< Run main loop for event handling\r
+};\r
 //-----------------------------------------------------------------------------\r
 #ifdef __MWERKS__\r
 # define FL_DLL\r
@@ -35,6 +65,7 @@
 #include <FL/Fl_Button.H>\r
 #include <FL/Fl_Counter.H>\r
 #include <FL/Fl_Menu_Bar.H>\r
+class mglCanvas;\r
 //-----------------------------------------------------------------------------\r
 /// Class is FLTK widget which display MathGL graphics\r
 class Fl_MathGL : public Fl_Widget\r
@@ -43,7 +74,7 @@ public:
        Fl_Valuator     *tet_val;       ///< pointer to external tet-angle validator\r
        Fl_Valuator     *phi_val;       ///< pointer to external phi-angle validator\r
 \r
-       Fl_MathGL(int x, int y, int w, int h, char *label=0);\r
+       Fl_MathGL(int x, int y, int w, int h, const char *label=0);\r
        ~Fl_MathGL();\r
 \r
        /// Update (redraw) plot\r
@@ -53,24 +84,24 @@ public:
        /// Set bitwise flags for general state (1-Alpha, 2-Light)\r
        inline void set_flag(int f)     {       flag = f;       }\r
        /// Set flags for handling mouse\r
-       void set_graph(mglCanvas *gr);  ///< Set grapher object\r
+       void set_graph(HMGL gr);        ///< Set grapher object\r
        inline void set_graph(mglGraph *Gr)\r
-       {       set_graph(dynamic_cast<mglCanvas *>(Gr->Self()));       }\r
+       {       set_graph(Gr->Self());  }\r
        /// Get pointer to grapher\r
-       inline HMGL get_graph() {       return gr;      }\r
+       inline HMGL get_graph() {       return (HMGL)gr;        }\r
        /// Set drawing functions and its parameter\r
        inline void set_draw(int (*func)(mglBase *gr, void *par), void *par=0)\r
        {       draw_func = func;       draw_par = par; }\r
        inline void set_draw(mglDraw *dr)       {       draw_cl = dr;   }\r
        inline void set_draw(int (*dr)(mglGraph *gr))\r
-       {       set_draw(mgl_draw_graph,(void*)dr);     }\r
+       {       set_draw(dr?mgl_draw_graph:0,(void*)dr);        }\r
        void set_state(bool z, bool r)  {       zoom = z;       rotate = r;     }\r
        /// Set zoom in/out region\r
        inline void set_zoom(mreal X1, mreal Y1, mreal X2, mreal Y2)\r
-       {       x1 = X1;        x2 = X2;        y1 = Y1;        y2 = Y2;        update();       };\r
+       {       x1 = X1;        x2 = X2;        y1 = Y1;        y2 = Y2;        update();       }\r
        /// Get zoom region\r
        inline void get_zoom(mreal *X1, mreal *Y1, mreal *X2, mreal *Y2)\r
-       {       *X1 = x1;       *X2 = x2;       *Y1 = y1;       *Y2 = y2;       };\r
+       {       *X1 = x1;       *X2 = x2;       *Y1 = y1;       *Y2 = y2;       }\r
        /// Set popup menu pointer\r
        inline void set_popup(const Fl_Menu_Item *pmenu, Fl_Widget *wdg, void *v)\r
        {       popup = pmenu;  wpar = wdg;     vpar = v;       }\r
@@ -117,60 +148,29 @@ public:
        void toggle_alpha()     {       toggle(alpha, alpha_bt, "Graphics/Alpha");      }\r
        void toggle_light()     {       toggle(light, light_bt, "Graphics/Light");      }\r
        void toggle_sshow()     {       toggle(sshow, anim_bt, "Graphics/Slideshow");   }\r
-       void toggle_wire()      {       toggle(wire, wire_bt, "Graphics/Wire"); }\r
+       void toggle_grid()      {       toggle(grid, grid_bt, "Graphics/Grid"); }\r
        void toggle_zoom()      {       toggle(zoom, zoom_bt);  }\r
        void toggle_rotate(){   toggle(rotate, rotate_bt);      }\r
        void setoff_zoom()      {       setoff(zoom, zoom_bt);  }\r
        void setoff_rotate(){   setoff(rotate, rotate_bt);      }\r
        bool is_sshow()         {       return sshow;   }\r
 \r
-       Fl_MGLView(int x, int y, int w, int h, char *label=0);\r
+       Fl_MGLView(int x, int y, int w, int h, const char *label=0);\r
        ~Fl_MGLView();\r
        void update();                  ///< Update picture by calling user drawing function\r
 protected:\r
-       Fl_Button *alpha_bt, *light_bt, *rotate_bt, *anim_bt, *zoom_bt, *wire_bt;\r
+       Fl_Button *alpha_bt, *light_bt, *rotate_bt, *anim_bt, *zoom_bt, *grid_bt;\r
 //     Fl_Counter *tet, *phi;\r
 \r
-       int wire, alpha, light; ///< Current states of wire, alpha, light switches (toggle buttons)\r
+       int grid, alpha, light; ///< Current states of wire, alpha, light switches (toggle buttons)\r
        int sshow, rotate, zoom;///< Current states of slideshow, rotate, zoom switches (toggle buttons)\r
 \r
        void toggle(int &val, Fl_Button *b, const char *txt=NULL);\r
        void setoff(int &val, Fl_Button *b, const char *txt=NULL);\r
 };\r
 //-----------------------------------------------------------------------------\r
-/// Class allows the window creation for displaying plot bitmap with the help of FLTK library\r
-/** NOTE!!! All frames are saved in memory. So animation with many frames require a lot memory and CPU time (for example, for mouse rotation).*/\r
-class mglCanvasFL : public mglCanvasWnd\r
-{\r
-public:\r
-using mglCanvasWnd::Window;\r
-       Fl_Window *Wnd;         ///< Pointer to window\r
-       Fl_MGLView *mgl;        ///< Pointer to MGL widget with buttons\r
-\r
-       mglCanvasFL();\r
-       ~mglCanvasFL();\r
-\r
-       // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Ñëóæåáíûå ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
-       /// Create a window for plotting. Now implemeted only for GLUT.\r
-       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p), const char *title,\r
-                                               void *par=NULL, void (*reload)(void *p)=NULL, bool maximize=false);\r
-       /// Switch on/off transparency (do not overwrite switches in user drawing function)\r
-       void ToggleAlpha();\r
-       /// Switch on/off lighting (do not overwrite switches in user drawing function)\r
-       void ToggleLight();\r
-       void ToggleRotate();    ///< Switch on/off rotation by mouse\r
-       void ToggleZoom();              ///< Switch on/off zooming by mouse\r
-       void ToggleNo();                ///< Switch off all zooming and rotation\r
-       void Update();                  ///< Update picture by calling user drawing function\r
-       void Adjust();                  ///< Adjust size of bitmap to window size\r
-       void GotoFrame(int d);  ///< Show arbitrary frame (use relative step)\r
-       void Animation();       ///< Run animation (I'm too lasy to change it)\r
-};\r
-//-----------------------------------------------------------------------------\r
 void mgl_ask_fltk(const wchar_t *quest, wchar_t *res);\r
+void mgl_makemenu_fltk(Fl_Menu_ *m, Fl_MGLView *w);\r
 //-----------------------------------------------------------------------------\r
-#else\r
-#error "Please enable FLTK support"\r
-#endif\r
 #endif\r
 #endif\r

diff --git a/include/mgl2/font.h b/include/mgl2/font.h
index a8b4148a53c4694a5d5dd61bd6d7acd23c6b84a2..95a2356f5b721f340876069f767b83c927b9a2fc 100644 (file)
--- a/include/mgl2/font.h
+++ b/include/mgl2/font.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * font.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -44,6 +44,7 @@
 #endif\r
 //-----------------------------------------------------------------------------\r
 struct mglTeXsymb      {       unsigned kod;   const wchar_t *tex;     };\r
+const float mgl_fgen = 4*14;\r
 /// Get font color, style and align for internal parser\r
 char mglGetStyle(const char *how, int *font, int *align=0);\r
 class mglBase;\r
@@ -66,7 +67,7 @@ public:
        /// Restore default font\r
        void Restore();\r
        /// Return true if font is loaded\r
-       inline bool Ready() const       {       return numg!=0; };\r
+       inline bool Ready() const       {       return numg!=0; }\r
 \r
        /// Get height of text\r
        float Height(int font) const;\r
@@ -81,14 +82,17 @@ public:
        /// Get width of text string for font specified by string\r
        float Width(const wchar_t *str,const char *how) const;\r
 \r
+       /// Get internal code for symbol\r
+       long Internal(unsigned s) const;\r
        /// Return number of glyphs\r
        inline unsigned GetNumGlyph() const     {       return numg;    };\r
        /// Return some of pointers\r
-       inline const short *GetTr(int s, long j) const  {       return Buf+tr[s][j];    };\r
-       inline const short *GetLn(int s, long j) const  {       return Buf+ln[s][j];    };\r
-       inline int GetNt(int s, long j) const   {       return numt[s][j];      };\r
-       inline int GetNl(int s, long j) const   {       return numl[s][j];      };\r
-       inline float GetFact(int s) const               {       return fact[s]; };\r
+       inline const short *GetTr(int s, long j) const  {       return Buf+tr[s][j];    }\r
+       inline const short *GetLn(int s, long j) const  {       return Buf+ln[s][j];    }\r
+       inline int GetNt(int s, long j) const   {       return numt[s][j];      }\r
+       inline int GetNl(int s, long j) const   {       return numl[s][j];      }\r
+       inline short GetWidth(int s, long j) const      {       return width[s][j];     }\r
+       inline float GetFact(int s) const               {       return fact[s]; }\r
 protected:\r
        wchar_t *id;            ///< Unicode ID for glyph\r
        unsigned *tr[4];        ///< Shift of glyph description by triangles (for solid font)\r
@@ -113,10 +117,7 @@ protected:
        float Puts(const unsigned *str, float x,float y,float f,int style,float col) const;\r
        /// Parse LaTeX command\r
        unsigned Parse(const wchar_t *s) const;\r
-       /// Get internal code for symbol\r
-       long Internal(unsigned s) const;\r
-\r
-       /// Get symbol for character \a ch with given \a font style\r
+       /// Get symbol for character ch with given font style\r
        unsigned Symbol(char ch) const;\r
 private:\r
        float get_ptr(long &i,unsigned *str, unsigned **b1, unsigned **b2,float &w1,float &w2, float f1, float f2, int st) const;\r

diff --git a/include/mgl2/glut.h b/include/mgl2/glut.h
index 66b58ed2ff7627dd1695000a75bbfc03a1328118..2febc46907794acd5b7a3f0793d70b42cbde0c45 100644 (file)
--- a/include/mgl2/glut.h
+++ b/include/mgl2/glut.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_glut.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -21,61 +21,14 @@
 #ifndef _MGL_GLUT_H_\r
 #define _MGL_GLUT_H_\r
 #ifdef __cplusplus\r
-#include "mgl2/opengl.h"\r
-#include "mgl2/window.h"\r
+#include <mgl2/wnd.h>\r
 //-----------------------------------------------------------------------------\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
 void _mgl_key_up(unsigned char ch,int ,int );\r
 HMGL mgl_create_graph_glut(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
-/*****************************************************************************/\r
 #ifdef __cplusplus\r
 }\r
-/// Class allows the window creation under OpenGL with the help of GLUT library\r
-class mglCanvasGLUT : public mglCanvasGL\r
-{\r
-friend void _mgl_display();\r
-friend void _mgl_key_up(unsigned char ch,int ,int );\r
-friend void _mgl_timer(int);\r
-public:\r
-       mreal Delay;    ///< Delay for animation in seconds\r
-       bool AutoClf;           ///< Clear canvas between drawing\r
-\r
-       mglCanvasGLUT();\r
-       mglCanvasGLUT(int (*draw)(mglGraph *gr, void *p), const char *title, void *par=NULL,\r
-                               void (*reload)(int next, void *p)=NULL, bool maximize=false);\r
-       virtual ~mglCanvasGLUT();\r
-       // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ��������� ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
-       /// Create a window for plotting. Now implemeted only for GLUT.\r
-       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p),\r
-                                               const char *title,void *par=NULL,\r
-                                               void (*reload)(void *p)=NULL, bool maximize=false);\r
-       void Window(int argc, char **argv, int (*draw)(mglGraph *gr),\r
-                               const char *title, bool maximize=false)\r
-       {       Window(argc,argv,mgl_draw_graph,title,(void*)draw,0,maximize);  }\r
-       /// Create a window for plotting based on class mglDraw.\r
-       void Window(int argc, char **argv, const char *title, mglDraw *draw, bool maximize=false)\r
-       {       Window(argc, argv, mgl_draw_class, title, draw, mgl_reload_class, maximize);    }\r
-       /// Switch on/off transparency (do not overwrite switches in user drawing function)\r
-       void ToggleAlpha()      {       _mgl_key_up('r',0,0);   }\r
-       /// Switch on/off lighting (do not overwrite switches in user drawing function)\r
-       void ToggleLight()      {       _mgl_key_up('f',0,0);   }\r
-       void ToggleNo()         {       _mgl_key_up('n',0,0);   }       ///< Switch off all zooming and rotation\r
-       void Update()           {       _mgl_key_up(' ',0,0);   }       ///< Update picture by calling user drawing function\r
-       void ReLoad(bool o)     {       _mgl_key_up(o?']':'[',0,0);     }       ///< Reload user data and update picture\r
-       void NextFrame()        {       _mgl_key_up('.',0,0);   }       ///< Show next frame (if one)\r
-       void PrevFrame()        {       _mgl_key_up(',',0,0);   }       ///< Show previous frame (if one)\r
-       void Animation()        {       _mgl_key_up('m',0,0);   }       ///< Run slideshow (animation) of frames\r
-private:\r
-       void (*LoadFunc)(void *par);\r
-       void *FuncPar;          ///< Parameters for drawing function mglCanvas::DrawFunc.\r
-       /// Drawing function for window procedure. It should return the number of frames.\r
-       int (*DrawFunc)(mglBase *gr, void *par);\r
-       int NumFig;             ///< Number of figures in the list. If 0 then no list and mglCanvas::DrawFunc will called for each drawing.\r
-       int curr_fig;   ///< Current figure in the list.\r
-       int tt;                 ///< Temporal variable\r
-};\r
 //-----------------------------------------------------------------------------\r
 class mglGLUT: public mglGraph\r
 {\r
@@ -83,9 +36,9 @@ public:
        mglGLUT(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=0, void (*load)(void *p)=0) : mglGraph(-1)\r
        {       gr = mgl_create_graph_glut(draw,title,par,load);        }\r
        mglGLUT(int (*draw)(mglGraph *gr), const char *title="MathGL") : mglGraph(-1)\r
-       {       gr = mgl_create_graph_glut(mgl_draw_graph,title,(void*)draw,0); }\r
-       mglGLUT(mglDraw *dr=0, const char *title="MathGL") : mglGraph(-1)\r
-       {       mgl_create_graph_glut(mgl_draw_class,title,dr,0);       }\r
+       {       gr = mgl_create_graph_glut(draw?mgl_draw_graph:0,title,(void*)draw,0);  }\r
+       mglGLUT(mglDraw *draw=0, const char *title="MathGL") : mglGraph(-1)\r
+       {       gr = mgl_create_graph_glut(draw?mgl_draw_class:0,title,draw,mgl_reload_class);  }\r
 };\r
 //-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/mgl.h b/include/mgl2/mgl.h
index e73cbfa7afdc2f9bdeed33b3c234cb4130fc097f..583e4c39dc7afc97c2b0da31c73cf1a847c2c1ef 100644 (file)
--- a/include/mgl2/mgl.h
+++ b/include/mgl2/mgl.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -23,6 +23,7 @@
 #include "mgl2/define.h"\r
 #include "mgl2/mgl_cf.h"\r
 #include "mgl2/data.h"\r
+#include "mgl2/datac.h"\r
 //-----------------------------------------------------------------------------\r
 /// Wrapper class for all graphics\r
 class mglGraph\r
@@ -35,6 +36,10 @@ public:
                if(kind==-1)    gr=NULL;\r
 #if MGL_HAVE_OPENGL\r
                else if(kind==1)        gr=mgl_create_graph_gl();\r
+#else\r
+               else if(kind==1)\r
+               {       gr=mgl_create_graph(width, height);\r
+                       mglGlobalMess += "OpenGL support was disabled. Please, enable it and rebuild MathGL.\n";        }\r
 #endif\r
                else    gr=mgl_create_graph(width, height);\r
        }\r
@@ -46,17 +51,17 @@ public:
        {       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);   }\r
        /// Get pointer to internal mglCanvas object\r
        inline HMGL Self()      {       return gr;      }\r
-       /// Set default parameter for plotting\r
-       inline void DefaultPlotParam()  {       mgl_set_def_param(gr);  }\r
+       /// Set default parameters for plotting\r
+       inline void DefaultPlotParam()                  {       mgl_set_def_param(gr);  }\r
        /// Set name of plot for saving filename\r
        inline void SetPlotId(const char *id)   {       mgl_set_plotid(gr,id);  }\r
 \r
        /// Set the transparency on/off.\r
        inline void Alpha(bool enable)                  {       mgl_set_alpha(gr, enable);      }\r
        /// Set default value of alpha-channel\r
-       inline void SetAlphaDef(mreal alpha)    {       mgl_set_alpha_default(gr, alpha);       }\r
+       inline void SetAlphaDef(double alpha)   {       mgl_set_alpha_default(gr, alpha);       }\r
        /// Set the transparency type (0 - usual, 1 - glass, 2 - lamp)\r
-       inline void SetTranspType(int type)             {       mgl_set_transp_type(gr, type);}\r
+       inline void SetTranspType(int type)             {       mgl_set_transp_type(gr, type);  }\r
 \r
        /// Set the using of light on/off.\r
        inline void Light(bool enable)                  {       mgl_set_light(gr, enable);      }\r
@@ -65,48 +70,50 @@ public:
        /// Use diffusive light (only for local light sources)\r
        inline void SetDifLight(bool dif)               {       mgl_set_light_dif(gr, dif);     }\r
        /// Add a light source.\r
-       inline void AddLight(int n, mglPoint p, char col='w', mreal bright=0.5, mreal ap=0)\r
+       inline void AddLight(int n, mglPoint p, char col='w', double bright=0.5, double ap=0)\r
        {       mgl_add_light_ext(gr, n, p.x, p.y, p.z, col, bright, ap);       }\r
-       inline void AddLight(int n, mglPoint r, mglPoint p, char col='w', mreal bright=0.5, mreal ap=0)\r
+       inline void AddLight(int n, mglPoint r, mglPoint p, char col='w', double bright=0.5, double ap=0)\r
        {       mgl_add_light_loc(gr, n, r.x, r.y, r.z, p.x, p.y, p.z, col, bright, ap);        }\r
        /// Set ambient light brightness\r
-       inline void SetAmbient(mreal i)                 {       mgl_set_ambbr(gr, i);   }\r
+       inline void SetAmbient(double i)                        {       mgl_set_ambbr(gr, i);   }\r
        /// Set the fog distance or switch it off (if d=0).\r
-       inline void Fog(mreal d, mreal dz=0.25) {       mgl_set_fog(gr, d, dz);         }\r
+       inline void Fog(double d, double dz=0.25)       {       mgl_set_fog(gr, d, dz);         }\r
 \r
        /// Set relative width of rectangles in Bars, Barh, BoxPlot\r
-       inline void SetBarWidth(mreal width)    {       mgl_set_bar_width(gr, width);   }\r
-       /// Set size of marks\r
-       inline void SetMarkSize(mreal size)             {       mgl_set_mark_size(gr, size);    }\r
-       /// Set size of arrows\r
-       inline void SetArrowSize(mreal size)    {       mgl_set_arrow_size(gr, size);   }\r
-       /// Set number of mesh lines\r
-       inline void SetMeshNum(int num)                 {       mgl_set_meshnum(gr, num);               }\r
-\r
+       inline void SetBarWidth(double width)   {       mgl_set_bar_width(gr, width);   }\r
+       /// Set default size of marks (locally you can use "size" option)\r
+       inline void SetMarkSize(double size)            {       mgl_set_mark_size(gr, size);    }\r
+       /// Set default size of arrows (locally you can use "size" option)\r
+       inline void SetArrowSize(double size)   {       mgl_set_arrow_size(gr, size);   }\r
+       /// Set number of mesh lines (use 0 to draw all of them)\r
+       inline void SetMeshNum(int num)                 {       mgl_set_meshnum(gr, num);       }\r
+       /// Set number of visible faces (use 0 to draw all of them)\r
+       inline void SetFaceNum(int num)                 {       mgl_set_facenum(gr, num);       }\r
+       \r
        /// Set cutting for points outside of bounding box\r
-       inline void SetCut(bool cut)                    {       mgl_set_cut(gr, cut);   }\r
+       inline void SetCut(bool cut)                            {       mgl_set_cut(gr, cut);   }\r
        /// Set additional cutting box\r
        inline void SetCutBox(mglPoint p1, mglPoint p2)\r
        {       mgl_set_cut_box(gr, p1.x, p1.y, p1.z, p2.x, p2.y, p2.z);        }\r
        /// Set the cutting off condition (formula)\r
-       inline void CutOff(const char *EqC)     {       mgl_set_cutoff(gr, EqC);        }\r
+       inline void CutOff(const char *EqC)             {       mgl_set_cutoff(gr, EqC);        }\r
 \r
        /// Set default font size\r
-       inline void SetFontSize(mreal size)             {       mgl_set_font_size(gr, size);    }\r
+       inline void SetFontSize(double size)            {       mgl_set_font_size(gr, size);    }\r
        /// Set default font style and color\r
        inline void SetFontDef(const char *fnt)         {       mgl_set_font_def(gr, fnt);      }\r
        /// Set FontSize by size in pt and picture DPI (default is 16 pt for dpi=72)\r
-       virtual void SetFontSizePT(mreal pt, int dpi=72){       SetFontSize(pt*27.f/dpi);       }\r
+       virtual void SetFontSizePT(double pt, int dpi=72){      SetFontSize(pt*27.f/dpi);       }\r
        /// Set FontSize by size in centimeters and picture DPI (default is 0.56 cm = 16 pt)\r
-       inline void SetFontSizeCM(mreal cm, int dpi=72) {       SetFontSizePT(cm*28.45f,dpi);   }\r
+       inline void SetFontSizeCM(double cm, int dpi=72)        {       SetFontSizePT(cm*28.45f,dpi);   }\r
        /// Set FontSize by size in inch and picture DPI (default is 0.22 in = 16 pt)\r
-       inline void SetFontSizeIN(mreal in, int dpi=72) {       SetFontSizePT(in*72.27f,dpi);   }\r
+       inline void SetFontSizeIN(double in, int dpi=72)        {       SetFontSizePT(in*72.27f,dpi);   }\r
        /// Load font from file\r
        inline void LoadFont(const char *name, const char *path=NULL)\r
        {       mgl_load_font(gr, name, path);  }\r
        /// Copy font from another mglGraph instance\r
-       inline void CopyFont(mglGraph *GR)              {       mgl_copy_font(gr, GR->Self());}\r
-       /// Restore font\r
+       inline void CopyFont(const mglGraph *GR)        {       mgl_copy_font(gr, GR->gr);}\r
+       /// Restore font (load default font for new HMGL objects)\r
        inline void RestoreFont()                               {       mgl_restore_font(gr);   }\r
        /// Set to use or not text rotation\r
        inline void SetRotatedText(bool rotated)        {       mgl_set_rotated_text(gr, rotated);      }\r
@@ -117,39 +124,42 @@ public:
        inline void SetDefScheme(const char *sch)       {       mgl_set_def_sch(gr, sch);       }\r
 \r
        /// Get last warning code\r
-       inline int  GetWarn()                   {       return mgl_get_warn(gr);}\r
+       inline int  GetWarn()   {       return mgl_get_warn(gr);}\r
        /// Set warning code ant fill message\r
        inline void SetWarn(int code, const char *info) {       mgl_set_warn(gr,code,info);     }\r
        /// Set buffer for warning messages\r
        inline const char *Message()    {       return mgl_get_mess(gr);        }\r
 \r
+       /// Set axis range scaling -- simplified way to shift/zoom axis range -- need to replot whole image!\r
+       inline void ZoomAxis(mglPoint p1=mglPoint(0,0,0,0), mglPoint p2=mglPoint(1,1,1,1))\r
+       {       mgl_zoom_axis(gr, p1.x,p1.y,p1.z,p1.c, p2.x,p2.y,p2.z,p2.c);    }\r
        /// Set range in direction dir as [v1, v2]\r
-       inline void SetRange(char dir, mreal v1, mreal v2)\r
+       inline void SetRange(char dir, double v1, double v2)\r
        {       mgl_set_range_val(gr, dir, v1, v2);     }\r
        /// Set range in direction dir as minimal and maximal values of data a\r
        inline void SetRange(char dir, const mglDataA &dat, bool add=false)\r
        {       mgl_set_range_dat(gr, dir, &dat, add);  }\r
-       /// Set values of mglGraph::Min and mglGraph::Max as minimal and maximal values of datas\r
+       /// Set values of axis range as minimal and maximal values of datas\r
        inline void SetRanges(const mglDataA &xx, const mglDataA &yy, const mglDataA &zz, const mglDataA &cc)\r
        {       mgl_set_range_dat(gr,'x',&xx,0);        mgl_set_range_dat(gr,'y',&yy,0);\r
                mgl_set_range_dat(gr,'z',&zz,0);        mgl_set_range_dat(gr,'c',&cc,0);        }\r
-       /// Set values of mglGraph::Min and mglGraph::Max as minimal and maximal values of datas\r
+       /// Set values of axis range as minimal and maximal values of datas\r
        inline void SetRanges(const mglDataA &xx, const mglDataA &yy, const mglDataA &zz)\r
        {       mgl_set_range_dat(gr,'x',&xx,0);        mgl_set_range_dat(gr,'y',&yy,0);\r
                mgl_set_range_dat(gr,'z',&zz,0);        mgl_set_range_dat(gr,'c',&zz,0);        }\r
-       /// Set values of mglGraph::Min and mglGraph::Max as minimal and maximal values of datas\r
+       /// Set values of axis range as minimal and maximal values of datas\r
        inline void SetRanges(const mglDataA &xx, const mglDataA &yy)\r
        {       mgl_set_range_dat(gr,'x',&xx,0);        mgl_set_range_dat(gr,'y',&yy,0);        }\r
-       /// Set values of mglGraph::Min and mglGraph::Max\r
-       inline void SetRanges(mreal x1, mreal x2, mreal y1, mreal y2, mreal z1=0, mreal z2=0)\r
+       /// Set values of axis range\r
+       inline void SetRanges(double x1, double x2, double y1, double y2, double z1=0, double z2=0)\r
        {       mgl_set_ranges(gr, x1, x2, y1, y2, z1, z2);     }\r
-       /// Set values of mglGraph::Min and mglGraph::Max\r
+       /// Set values of axis range\r
        inline void SetRanges(mglPoint p1, mglPoint p2)\r
        {       mgl_set_ranges(gr, p1.x, p2.x, p1.y, p2.y, p1.z, p2.z); }\r
        /// Set axis origin\r
        inline void SetOrigin(mglPoint p)\r
        {       mgl_set_origin(gr, p.x, p.y, p.z);      }\r
-       inline void SetOrigin(mreal x0, mreal y0, mreal z0=NaN)\r
+       inline void SetOrigin(double x0, double y0, double z0=NaN)\r
        {       mgl_set_origin(gr, x0, y0, z0); }\r
 \r
        /// Set the transformation formulas for coordinate\r
@@ -165,14 +175,14 @@ public:
        /// Set to use or not tick labels skipping\r
        inline void SetTickSkip(bool val)       {       mgl_set_tick_skip(gr,val);      }\r
        /// Set tick length\r
-       inline void SetTickLen(mreal len, mreal stt=1)\r
+       inline void SetTickLen(double len, double stt=1)\r
        {       mgl_set_tick_len(gr, len, stt); }\r
        /// Set axis and ticks style\r
        inline void SetAxisStl(const char *stl="k", const char *tck=0, const char *sub=0)\r
        {       mgl_set_axis_stl(gr, stl, tck, sub);    }\r
 \r
        /// Set time templates for ticks\r
-       inline void SetTicksTime(char dir, mreal d=0, const char *t="")\r
+       inline void SetTicksTime(char dir, double d=0, const char *t="")\r
        {       mgl_set_ticks_time(gr,dir,d,t); }\r
        /// Set ticks text (\n separated). Use "" to disable this feature.\r
        inline void SetTicksVal(char dir, const char *lbl, bool add=false)\r
@@ -185,7 +195,7 @@ public:
        inline void SetTicksVal(char dir, const mglDataA &v, const wchar_t *lbl, bool add=false)\r
        {       mgl_set_ticks_valw(gr,dir,&v,lbl,add);  }\r
        /// Set the ticks parameters\r
-       inline void SetTicks(char dir, mreal d=0, int ns=0, mreal org=NaN)\r
+       inline void SetTicks(char dir, double d=0, int ns=0, double org=NaN)\r
        {       mgl_set_ticks(gr, dir, d, ns, org);     }\r
        /// Auto adjust ticks\r
        inline void Adjust(const char *dir="xyzc")\r
@@ -196,7 +206,7 @@ public:
        inline void SetTickTempl(char dir, const wchar_t *t)\r
        {       mgl_set_tick_templw(gr,dir,t);  }\r
        /// Tune ticks\r
-       inline void SetTuneTicks(int tune, mreal fact_pos=1.15)\r
+       inline void SetTuneTicks(int tune, double fact_pos=1.15)\r
        {       mgl_tune_ticks(gr, tune, fact_pos);     }\r
        /// Set additional shift of tick labels\r
        inline void SetTickShift(mglPoint p)\r
@@ -205,28 +215,28 @@ public:
        inline void SetTimeUTC(bool enable)\r
        {       mgl_set_flag(gr,enable, MGL_USE_GMTIME);        }\r
        \r
-       /// Put further plotting in some region of whole frame surface.\r
-       inline void SubPlot(int nx,int ny,int m,const char *style="<>_^", mreal dx=0, mreal dy=0)\r
+       /// Put further plotting in some region of whole frame.\r
+       inline void SubPlot(int nx,int ny,int m,const char *style="<>_^", double dx=0, double dy=0)\r
        {       mgl_subplot_d(gr, nx, ny, m, style, dx, dy);    }\r
-       /// Like SubPlot bot "join" several cells\r
+       /// Like SubPlot() but "join" several cells\r
        inline void MultiPlot(int nx,int ny,int m, int dx, int dy, const char *style="<>_^")\r
        {       mgl_multiplot(gr, nx, ny, m, dx, dy, style);    }\r
-       /// Put further plotting in some region of whole frame surface.\r
-       inline void InPlot(mreal x1,mreal x2,mreal y1,mreal y2, bool rel=true)\r
+       /// Put further plotting in a region of whole frame.\r
+       inline void InPlot(double x1,double x2,double y1,double y2, bool rel=true)\r
        {       if(rel) mgl_relplot(gr, x1, x2, y1, y2);\r
                else    mgl_inplot(gr, x1, x2, y1, y2); }\r
        /// Put further plotting in column cell of previous subplot\r
-       inline void ColumnPlot(int num, int ind, mreal d=0)\r
+       inline void ColumnPlot(int num, int ind, double d=0)\r
        {       mgl_columnplot(gr,num,ind,d);   }\r
        /// Put further plotting in matrix cell of previous subplot\r
-       inline void GridPlot(int nx, int ny, int ind, mreal d=0)\r
+       inline void GridPlot(int nx, int ny, int ind, double d=0)\r
        {       mgl_gridplot(gr,nx,ny,ind,d);   }\r
        /// Put further plotting in cell of stick rotated on angles tet, phi\r
-       inline void StickPlot(int num, int i, mreal tet, mreal phi)\r
+       inline void StickPlot(int num, int i, double tet, double phi)\r
        {       mgl_stickplot(gr,num,i,tet,phi);        }\r
 \r
-       /// Set PlotFactor\r
-       inline void SetPlotFactor(mreal val)\r
+       /// Set factor of plot size\r
+       inline void SetPlotFactor(double val)\r
        {       mgl_set_plotfactor(gr,val);     }\r
        /// Push transformation matrix into stack\r
        inline void Push()      {       mgl_mat_push(gr);       }\r
@@ -234,30 +244,30 @@ public:
        inline void Pop()       {       mgl_mat_pop(gr);        }\r
        \r
        /// Add title for current subplot/inplot\r
-       inline  void Title(const char *title,const char *stl="",mreal size=-2)\r
+       inline  void Title(const char *title,const char *stl="",double size=-2)\r
        {       mgl_title(gr,title,stl,size);   }\r
-       inline  void Title(const wchar_t *title,const char *stl="",mreal size=-2)\r
+       inline  void Title(const wchar_t *title,const char *stl="",double size=-2)\r
        {       mgl_titlew(gr,title,stl,size);  }\r
        /// Set aspect ratio for further plotting.\r
-       inline void Aspect(mreal Ax,mreal Ay,mreal Az=1)\r
+       inline void Aspect(double Ax,double Ay,double Az=1)\r
        {       mgl_aspect(gr, Ax, Ay, Az);             }\r
        /// Rotate a further plotting.\r
-       inline void Rotate(mreal TetX,mreal TetZ=0,mreal TetY=0)\r
+       inline void Rotate(double TetX,double TetZ=0,double TetY=0)\r
        {       mgl_rotate(gr, TetX, TetZ, TetY);       }\r
        /// Rotate a further plotting around vector {x,y,z}.\r
-       inline void RotateN(mreal Tet,mreal x,mreal y,mreal z)\r
+       inline void RotateN(double Tet,double x,double y,double z)\r
        {       mgl_rotate_vector(gr, Tet, x, y, z);    }\r
        /// Set perspective (in range [0,1)) for plot. Set to zero for switching off.\r
-       inline void Perspective(mreal val)\r
+       inline void Perspective(double val)\r
        {       mgl_perspective(gr, val);       }\r
        /// Set angle of view independently from Rotate().\r
-       inline void View(mreal TetX,mreal TetZ=0,mreal TetY=0)\r
+       inline void View(double TetX,double TetZ=0,double TetY=0)\r
        {       mgl_view(gr, TetX, TetZ, TetY); }\r
-       /// Zoom in or zoom out (if Zoom(0, 0, 1, 1)) a part of picture\r
-       inline void Zoom(mreal x1, mreal y1, mreal x2, mreal y2)\r
+       /// Zoom in/out a part of picture (use Zoom(0, 0, 1, 1) for restore default)\r
+       inline void Zoom(double x1, double y1, double x2, double y2)\r
        {       mgl_zoom(gr, x1, y1, x2, y2);   }\r
 \r
-       /// Set size of frame in pixels. Normally this function is called internaly.\r
+       /// Set size of frame in pixels. Normally this function is called internally.\r
        inline void SetSize(int width, int height)      {       mgl_set_size(gr, width, height);        }\r
        /// Set plot quality\r
        inline void SetQuality(int qual=MGL_DRAW_NORM)  {       mgl_set_quality(gr, qual);      }\r
@@ -265,10 +275,10 @@ public:
        inline void StartGroup(const char *name)                {       mgl_start_group(gr, name);      }\r
        /// End group of objects\r
        inline void EndGroup()  {       mgl_end_group(gr);      }\r
-       /// Highlight next group\r
+       /// Highlight objects with given id\r
        inline void Highlight(int id)   {       mgl_highlight(gr, id);  }\r
 \r
-       /// Show currently produced image\r
+       /// Show current image\r
        inline void ShowImage(const char *viewer, bool keep=0)\r
        {       mgl_show_image(gr, viewer, keep);       }\r
        /// Write the frame in file (depending extension, write current frame if fname is empty)\r
@@ -321,7 +331,12 @@ public:
        /// Write the frame in file using PRC format\r
        inline void WritePRC(const char *fname,const char *descr="",bool make_pdf=true)\r
        {       mgl_write_prc(gr, fname, descr, make_pdf);      }\r
+       /// Export in JSON format suitable for later drawing by JavaScript\r
+       inline void WriteJSON(const char *fname,const char *descr="")\r
+       {       mgl_write_json(gr, fname, descr);       }\r
 \r
+       /// Force preparing the image. It can be useful for OpenGL mode mostly.\r
+       inline void Finish()                    {       mgl_finish(gr); }\r
        /// Create new frame.\r
        inline void NewFrame()          {       mgl_new_frame(gr);      }\r
        /// Finish frame drawing\r
@@ -330,6 +345,15 @@ public:
        inline int GetNumFrame()        {       return mgl_get_num_frame(gr);   }\r
        /// Reset frames counter (start it from zero)\r
        inline void ResetFrames()       {       mgl_reset_frames(gr);   }\r
+       /// Delete primitives for i-th frame (work if MGL_VECT_FRAME is set on)\r
+       inline void DelFrame(int i)     {       mgl_del_frame(gr, i);   }\r
+       /// Get drawing data for i-th frame (work if MGL_VECT_FRAME is set on)\r
+       inline void GetFrame(int i)     {       mgl_get_frame(gr, i);   }\r
+       /// Set drawing data for i-th frame (work if MGL_VECT_FRAME is set on). Work as EndFrame() but don't add frame to GIF image.\r
+       inline void SetFrame(int i)     {       mgl_set_frame(gr, i);   }\r
+       /// Append drawing data from i-th frame (work if MGL_VECT_FRAME is set on)\r
+       inline void ShowFrame(int i)    {       mgl_show_frame(gr, i);  }\r
+       \r
        /// Start write frames to cinema using GIF format\r
        inline void StartGIF(const char *fname, int ms=100)\r
        {       mgl_start_gif(gr, fname,ms);    }\r
@@ -376,7 +400,7 @@ public:
        /// Calculate 3D coordinate {x,y,z} for screen point {xs,ys}\r
        inline mglPoint CalcXYZ(int xs, int ys)\r
        {\r
-               mreal x,y,z;\r
+               double x,y,z;\r
                mgl_calc_xyz(gr,xs,ys,&x,&y,&z);\r
                return mglPoint(x,y,z);\r
        }\r
@@ -393,6 +417,8 @@ public:
        inline int GetObjId(long x,long y)      {       return mgl_get_obj_id(gr,x,y);  }\r
        /// Get subplot id\r
        inline int GetSplId(long x,long y)      {       return mgl_get_spl_id(gr,x,y);  }\r
+       /// Check if {\a xs,\a ys} is close to active point with accuracy d, and return its position or -1\r
+       inline long IsActive(int xs, int ys, int d=1)   {       return mgl_is_active(gr,xs,ys,d);       }\r
 \r
        /// Combine plots from 2 canvases. Result will be saved into this\r
        inline void Combine(const mglGraph *g)  {       mgl_combine_gr(gr,g->gr);       }\r
@@ -402,10 +428,12 @@ public:
        inline void MPI_Recv(int id)    {       mgl_mpi_recv(gr,id);    }\r
 \r
        /// Clear up the frame\r
-       inline void Clf(mreal r, mreal g, mreal b)      {       mgl_clf_rgb(gr, r, g, b);       }\r
+       inline void Clf(double r, double g, double b)   {       mgl_clf_rgb(gr, r, g, b);       }\r
        inline void Clf()       {       mgl_clf(gr);    }\r
+       /// Clear unused points and primitives. Useful only in combination with SetFaceNum().\r
+       inline void ClearUnused()       {       mgl_clear_unused(gr);   }\r
        /// Draws the point (ball) at position {x,y,z} with color c\r
-       inline void Ball(mglPoint p, char c)\r
+       inline void Ball(mglPoint p, char c='r')\r
        {       char s[3]={'.',c,0};    mgl_mark(gr, p.x, p.y, p.z, s); }\r
        /// Draws the mark at position p\r
        inline void Mark(mglPoint p, const char *mark)\r
@@ -424,46 +452,46 @@ public:
        inline void Face(mglPoint p1, mglPoint p2, mglPoint p3, mglPoint p4, const char *stl="r")\r
        {       mgl_face(gr, p1.x, p1.y, p1.z, p2.x, p2.y, p2.z, p3.x, p3.y, p3.z, p4.x, p4.y, p4.z, stl);      }\r
        /// Draws the face in y-z plane at point p with color stl (include interpolation up to 4 colors).\r
-       inline void FaceX(mglPoint p, mreal wy, mreal wz, const char *stl="w", mreal dx=0, mreal dy=0)\r
+       inline void FaceX(mglPoint p, double wy, double wz, const char *stl="w", double dx=0, double dy=0)\r
        {       mgl_facex(gr, p.x, p.y, p.z, wy, wz, stl, dx, dy);      }\r
        /// Draws the face in x-z plane at point p with color stl (include interpolation up to 4 colors).\r
-       inline void FaceY(mglPoint p, mreal wx, mreal wz, const char *stl="w", mreal dx=0, mreal dy=0)\r
+       inline void FaceY(mglPoint p, double wx, double wz, const char *stl="w", double dx=0, double dy=0)\r
        {       mgl_facey(gr, p.x, p.y, p.z, wx, wz, stl, dx, dy);      }\r
        /// Draws the face in x-y plane at point p with color stl (include interpolation up to 4 colors).\r
-       inline void FaceZ(mglPoint p, mreal wx, mreal wy, const char *stl="w", mreal dx=0, mreal dy=0)\r
+       inline void FaceZ(mglPoint p, double wx, double wy, const char *stl="w", double dx=0, double dy=0)\r
        {       mgl_facez(gr, p.x, p.y, p.z, wx, wy, stl, dx, dy);      }\r
        /// Draws the drop at point p in direction d with color col and radius r\r
-       inline void Drop(mglPoint p, mglPoint d, mreal r, const char *col="r", mreal shift=1, mreal ap=1)\r
+       inline void Drop(mglPoint p, mglPoint d, double r, const char *col="r", double shift=1, double ap=1)\r
        {       mgl_drop(gr, p.x, p.y, p.z, d.x, d.y, d.z, r, col, shift, ap);  }\r
        /// Draws the sphere at point p with color col and radius r\r
-       inline void Sphere(mglPoint p, mreal r, const char *col="r")\r
+       inline void Sphere(mglPoint p, double r, const char *col="r")\r
        {       mgl_sphere(gr, p.x, p.y, p.z, r, col);  }\r
-       /// Draws the cone between points p1,p2 with radius r1,r2 with style stl\r
-       inline void Cone(mglPoint p1, mglPoint p2, mreal r1, mreal r2=-1, const char *stl="r@")\r
+       /// Draws the cone between points p1,p2 with radius r1,r2 and with style stl\r
+       inline void Cone(mglPoint p1, mglPoint p2, double r1, double r2=-1, const char *stl="r@")\r
        {       mgl_cone(gr, p1.x, p1.y, p1.z, p2.x, p2.y, p2.z,r1,r2,stl);     }\r
        /// Draws the ellipse between points p1,p2 with color stl and width r\r
-       inline void Ellipse(mglPoint p1, mglPoint p2, mreal r, const char *stl="r")\r
+       inline void Ellipse(mglPoint p1, mglPoint p2, double r, const char *stl="r")\r
        {       mgl_ellipse(gr, p1.x, p1.y, p1.z, p2.x, p2.y, p2.z, r,stl);     }\r
        /// Draws the circle at point p with color stl and radius r\r
-       inline void Circle(mglPoint p, mreal r, const char *stl="r")\r
+       inline void Circle(mglPoint p, double r, const char *stl="r")\r
        {       mgl_ellipse(gr, p.x, p.y, p.z, p.x, p.y, p.z, r,stl);   }\r
        /// Draws the rhomb between points p1,p2 with color stl and width r\r
-       inline void Rhomb(mglPoint p1, mglPoint p2, mreal r, const char *stl="r")\r
+       inline void Rhomb(mglPoint p1, mglPoint p2, double r, const char *stl="r")\r
        {       mgl_rhomb(gr, p1.x, p1.y, p1.z, p2.x, p2.y, p2.z, r,stl);       }\r
 \r
        /// Print text in position p with specified font\r
-       inline void Putsw(mglPoint p,const wchar_t *text,const char *font=":C",mreal size=-1)\r
+       inline void Putsw(mglPoint p,const wchar_t *text,const char *font=":C",double size=-1)\r
        {       mgl_putsw(gr, p.x, p.y, p.z, text, font, size); }\r
-       inline void Puts(mglPoint p,const char *text,const char *font=":C",mreal size=-1)\r
+       inline void Puts(mglPoint p,const char *text,const char *font=":C",double size=-1)\r
        {       mgl_puts(gr, p.x, p.y, p.z, text, font, size);  }\r
-       inline void Putsw(mreal x, mreal y,const wchar_t *text,const char *font=":AC",mreal size=-1)\r
+       inline void Putsw(double x, double y,const wchar_t *text,const char *font=":AC",double size=-1)\r
        {       mgl_putsw(gr, x, y, 0, text, font, size);       }\r
-       inline void Puts(mreal x, mreal y,const char *text,const char *font=":AC",mreal size=-1)\r
+       inline void Puts(double x, double y,const char *text,const char *font=":AC",double size=-1)\r
        {       mgl_puts(gr, x, y, 0, text, font, size);        }\r
        /// Print text in position p along direction d with specified font\r
-       inline void Putsw(mglPoint p, mglPoint d, const wchar_t *text, const char *font=":L", mreal size=-1)\r
+       inline void Putsw(mglPoint p, mglPoint d, const wchar_t *text, const char *font=":L", double size=-1)\r
        {       mgl_putsw_dir(gr, p.x, p.y, p.z, d.x, d.y, d.z, text, font, size);      }\r
-       inline void Puts(mglPoint p, mglPoint d, const char *text, const char *font=":L", mreal size=-1)\r
+       inline void Puts(mglPoint p, mglPoint d, const char *text, const char *font=":L", double size=-1)\r
        {       mgl_puts_dir(gr, p.x, p.y, p.z, d.x, d.y, d.z, text, font, size);       }\r
 \r
        /// Print text along the curve\r
@@ -480,30 +508,30 @@ public:
        inline void Text(const mglDataA &y, const wchar_t *text, const char *font="", const char *opt="")\r
        {       mgl_textw_y(gr, &y, text, font, opt);   }\r
 \r
-       /// Draws bounding box outside the plotting volume with color \a c.\r
+       /// Draws bounding box outside the plotting volume with color c.\r
        inline void Box(const char *col="", bool ticks=true)\r
        {       mgl_box_str(gr, col, ticks);    }\r
-       /// Draw axises with ticks in directions determined by string parameter \a dir.\r
-       inline void Axis(const char *dir="xyzt", const char *stl="")\r
-       {       mgl_axis(gr, dir,stl);  }\r
-       /// Draw grid lines perpendicular to direction determined by string parameter \a dir.\r
-       inline void Grid(const char *dir="xyzt",const char *pen="B")\r
-       {       mgl_axis_grid(gr, dir, pen);    }\r
-       /// Print the label \a text for axis \a dir.\r
-       inline void Label(char dir, const char *text, mreal pos=+1, mreal shift=0)\r
-       {       mgl_label_ext(gr, dir, text, pos, shift);       }\r
-       inline void Label(char dir, const wchar_t *text, mreal pos=+1, mreal shift=0)\r
-       {       mgl_labelw_ext(gr, dir, text, pos, shift);      }\r
+       /// Draw axises with ticks in direction(s) dir.\r
+       inline void Axis(const char *dir="xyzt", const char *stl="", const char *opt="")\r
+       {       mgl_axis(gr, dir,stl,opt);      }\r
+       /// Draw grid lines perpendicular to direction(s) dir.\r
+       inline void Grid(const char *dir="xyzt",const char *pen="B", const char *opt="")\r
+       {       mgl_axis_grid(gr, dir, pen, opt);       }\r
+       /// Print the label text for axis dir.\r
+       inline void Label(char dir, const char *text, double pos=+1, const char *opt="")\r
+       {       mgl_label(gr, dir, text, pos, opt);     }\r
+       inline void Label(char dir, const wchar_t *text, double pos=+1, const char *opt="")\r
+       {       mgl_labelw(gr, dir, text, pos, opt);    }\r
 \r
        /// Draw colorbar at edge of axis\r
        inline void Colorbar(const char *sch="")\r
        {       mgl_colorbar(gr, sch);  }\r
-       inline void Colorbar(const char *sch,mreal x,mreal y,mreal w=1,mreal h=1)\r
+       inline void Colorbar(const char *sch,double x,double y,double w=1,double h=1)\r
        {       mgl_colorbar_ext(gr, sch, x,y,w,h);     }\r
        /// Draw colorbar with manual colors at edge of axis\r
        inline void Colorbar(const mglDataA &val, const char *sch="")\r
        {       mgl_colorbar_val(gr, &val, sch);        }\r
-       inline void Colorbar(const mglDataA &val, const char *sch,mreal x,mreal y,mreal w=1,mreal h=1)\r
+       inline void Colorbar(const mglDataA &val, const char *sch,double x,double y,double w=1,double h=1)\r
        {       mgl_colorbar_val_ext(gr, &val, sch, x,y,w,h);   }\r
 \r
        /// Add string to legend\r
@@ -515,11 +543,11 @@ public:
        inline void ClearLegend()\r
        {       mgl_clear_legend(gr);   }\r
        /// Draw legend of accumulated strings at position {x,y}\r
-       inline void Legend(mreal x, mreal y, const char *font="#", mreal size=-0.8, mreal llen=0)\r
-       {       mgl_legend_pos(gr, x, y, font, size, llen);     }\r
+       inline void Legend(double x, double y, const char *font="#", const char *opt="")\r
+       {       mgl_legend_pos(gr, x, y, font, opt);    }\r
        /// Draw legend of accumulated strings\r
-       inline void Legend(int where=3, const char *font="#", mreal size=-0.8, mreal llen=0)\r
-       {       mgl_legend(gr, where, font, size, llen);        }\r
+       inline void Legend(int where=3, const char *font="#", const char *opt="")\r
+       {       mgl_legend(gr, where, font, opt);       }\r
        /// Set number of marks in legend sample\r
        inline void SetLegendMarks(int num)             {       mgl_set_legend_marks(gr, num);  }\r
 \r
@@ -659,18 +687,29 @@ public:
        inline void Label(const mglDataA &y, const wchar_t *text, const char *fnt="", const char *opt="")\r
        {       mgl_labelw_y(gr, &y, text, fnt, opt);   }\r
 \r
-       /// Draw tube with radius r for points in arrays {x,y,z}\r
+       /// Draw table for values val along given direction with row labels text\r
+       inline void Table(const mglDataA &val, const char *text, const char *fnt="#|", const char *opt="")\r
+       {       mgl_table(gr, 0, 0, &val, text, fnt, opt);      }\r
+       inline void Table(const mglDataA &val, const wchar_t *text, const char *fnt="#|", const char *opt="")\r
+       {       mgl_tablew(gr, 0, 0, &val, text, fnt, opt);     }\r
+       /// Draw table for values val along given direction with row labels text at given position\r
+       inline void Table(double x, double y, const mglDataA &val, const char *text, const char *fnt="#|", const char *opt="")\r
+       {       mgl_table(gr, x, y, &val, text, fnt, opt);      }\r
+       inline void Table(double x, double y, const mglDataA &val, const wchar_t *text, const char *fnt="#|", const char *opt="")\r
+       {       mgl_tablew(gr, x, y, &val, text, fnt, opt);     }\r
+       \r
+       /// Draw tube with radius r around curve {x,y,z}\r
        inline void Tube(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &r, const char *pen="", const char *opt="")\r
        {       mgl_tube_xyzr(gr, &x, &y, &z, &r, pen, opt);    }\r
-       inline void Tube(const mglDataA &x, const mglDataA &y, const mglDataA &z, mreal r, const char *pen="", const char *opt="")\r
+       inline void Tube(const mglDataA &x, const mglDataA &y, const mglDataA &z, double r, const char *pen="", const char *opt="")\r
        {       mgl_tube_xyz(gr, &x, &y, &z, r, pen, opt);      }\r
        inline void Tube(const mglDataA &x, const mglDataA &y, const mglDataA &r, const char *pen="", const char *opt="")\r
        {       mgl_tube_xyr(gr, &x, &y, &r, pen, opt); }\r
-       inline void Tube(const mglDataA &x, const mglDataA &y, mreal r, const char *pen="", const char *opt="")\r
+       inline void Tube(const mglDataA &x, const mglDataA &y, double r, const char *pen="", const char *opt="")\r
        {       mgl_tube_xy(gr, &x, &y, r, pen, opt);   }\r
        inline void Tube(const mglDataA &y, const mglDataA &r, const char *pen="", const char *opt="")\r
        {       mgl_tube_r(gr, &y, &r, pen, opt);       }\r
-       inline void Tube(const mglDataA &y, mreal r, const char *pen="", const char *opt="")\r
+       inline void Tube(const mglDataA &y, double r, const char *pen="", const char *opt="")\r
        {       mgl_tube(gr, &y, r, pen, opt);  }\r
        /// Draw surface of curve {r,z} rotatation around axis\r
        inline void Torus(const mglDataA &r, const mglDataA &z, const char *pen="", const char *opt="")\r
@@ -744,7 +783,7 @@ public:
        {       mgl_contd_xy(gr, &x, &y, &z, sch, opt); }\r
        inline void ContD(const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_contd(gr, &z, sch, opt);    }\r
-       /// Draw contour lines for 2d data specified parametrically\r
+       /// Draw contour tubes for 2d data specified parametrically\r
        inline void ContV(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_contv_xy_val(gr, &v, &x, &y, &z, sch, opt); }\r
        inline void ContV(const mglDataA &v, const mglDataA &z, const char *sch="", const char *opt="")\r
@@ -753,6 +792,7 @@ public:
        {       mgl_contv_xy(gr, &x, &y, &z, sch, opt); }\r
        inline void ContV(const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_contv(gr, &z, sch, opt);    }\r
+\r
        /// Draw axial-symmetric isosurfaces for 2d data specified parametrically\r
        inline void Axial(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_axial_xy_val(gr, &v, &x, &y, &z, sch,opt);  }\r
@@ -764,20 +804,20 @@ public:
        {       mgl_axial(gr, &z, sch, opt);    }\r
 \r
        /// Draw grid lines for density plot at slice for 3d data specified parametrically\r
-       inline void Grid3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", mreal sVal=-1, const char *opt="")\r
+       inline void Grid3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", double sVal=-1, const char *opt="")\r
        {       mgl_grid3_xyz(gr, &x, &y, &z, &a, stl, sVal, opt);      }\r
-       inline void Grid3(const mglDataA &a, const char *stl="", mreal sVal=-1, const char *opt="")\r
+       inline void Grid3(const mglDataA &a, const char *stl="", double sVal=-1, const char *opt="")\r
        {       mgl_grid3(gr, &a, stl, sVal, opt);      }\r
        /// Draw density plot at slice for 3d data specified parametrically\r
-       inline void Dens3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", mreal sVal=-1, const char *opt="")\r
+       inline void Dens3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", double sVal=-1, const char *opt="")\r
        {       mgl_dens3_xyz(gr, &x, &y, &z, &a, stl, sVal, opt);      }\r
-       inline void Dens3(const mglDataA &a, const char *stl="", mreal sVal=-1, const char *opt="")\r
+       inline void Dens3(const mglDataA &a, const char *stl="", double sVal=-1, const char *opt="")\r
        {       mgl_dens3(gr, &a, stl, sVal, opt);      }\r
 \r
        /// Draw isosurface(s) for 3d data specified parametrically\r
-       inline void Surf3(mreal Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", const char *opt="")\r
+       inline void Surf3(double Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", const char *opt="")\r
        {       mgl_surf3_xyz_val(gr, Val, &x, &y, &z, &a, stl, opt);   }\r
-       inline void Surf3(mreal Val, const mglDataA &a, const char *stl="", const char *opt="")\r
+       inline void Surf3(double Val, const mglDataA &a, const char *stl="", const char *opt="")\r
        {       mgl_surf3_val(gr, Val, &a, stl, opt);   }\r
        inline void Surf3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *stl="", const char *opt="")\r
        {       mgl_surf3_xyz(gr, &x, &y, &z, &a, stl, opt);    }\r
@@ -791,32 +831,32 @@ public:
        {       mgl_cloud(gr, &a, stl, opt);    }\r
 \r
        /// Draw contour lines at slice for 3d data specified parametrically\r
-       inline void Cont3(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void Cont3(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_cont3_xyz_val(gr, &v, &x, &y, &z, &a, sch, sVal, opt);      }\r
-       inline void Cont3(const mglDataA &v, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void Cont3(const mglDataA &v, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_cont3_val(gr, &v, &a, sch, sVal, opt);      }\r
-       inline void Cont3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void Cont3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_cont3_xyz(gr, &x, &y, &z, &a, sch, sVal, opt);      }\r
-       inline void Cont3(const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void Cont3(const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_cont3(gr, &a, sch, sVal, opt);      }\r
 \r
        /// Draw solid contours at slice for 3d data specified parametrically\r
-       inline void ContF3(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void ContF3(const mglDataA &v, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_contf3_xyz_val(gr, &v, &x, &y, &z, &a, sch, sVal, opt);     }\r
-       inline void ContF3(const mglDataA &v, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void ContF3(const mglDataA &v, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_contf3_val(gr, &v, &a, sch, sVal, opt);     }\r
-       inline void ContF3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void ContF3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_contf3_xyz(gr, &x, &y, &z, &a, sch, sVal, opt);     }\r
-       inline void ContF3(const mglDataA &a, const char *sch="", mreal sVal=-1, const char *opt="")\r
+       inline void ContF3(const mglDataA &a, const char *sch="", double sVal=-1, const char *opt="")\r
        {       mgl_contf3(gr, &a, sch, sVal, opt);     }\r
 \r
        /// Draw several isosurfaces for 3d beam in curvilinear coordinates\r
-       inline void Beam(const mglDataA &tr, const mglDataA &g1, const mglDataA &g2, const mglDataA &a, mreal r, const char *stl=0, int flag=0, int num=3)\r
+       inline void Beam(const mglDataA &tr, const mglDataA &g1, const mglDataA &g2, const mglDataA &a, double r, const char *stl=0, int flag=0, int num=3)\r
        {       mgl_beam(gr, &tr,&g1,&g2,&a,r,stl,flag,num);    }\r
-       inline void Beam(mreal val, const mglDataA &tr, const mglDataA &g1, const mglDataA &g2, const mglDataA &a, mreal r, const char *stl=NULL, int flag=0)\r
+       inline void Beam(double val, const mglDataA &tr, const mglDataA &g1, const mglDataA &g2, const mglDataA &a, double r, const char *stl=NULL, int flag=0)\r
        {       mgl_beam_val(gr,val,&tr,&g1,&g2,&a,r,stl,flag); }\r
 \r
-       /// Draw vertical tiles with variable size for 2d data specified parametrically\r
+       /// Draw vertical tiles with variable size r for 2d data specified parametrically\r
        inline void TileS(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &r, const char *stl="", const char *opt="")\r
        {       mgl_tiles_xy(gr, &x, &y, &z, &r, stl, opt);     }\r
        inline void TileS(const mglDataA &z, const mglDataA &r, const char *stl="", const char *opt="")\r
@@ -831,6 +871,7 @@ public:
        {       mgl_surfa_xy(gr, &x, &y, &z, &c, sch,opt);      }\r
        inline void SurfA(const mglDataA &z, const mglDataA &c, const char *sch="", const char *opt="")\r
        {       mgl_surfa(gr, &z, &c, sch,opt); }\r
+\r
        /// Color map of matrix a to matrix b, both matrix can parametrically depend on coordinates\r
        inline void Map(const mglDataA &x, const mglDataA &y, const mglDataA &a, const mglDataA &b, const char *sch="", const char *opt="")\r
        {       mgl_map_xy(gr, &x, &y, &a, &b, sch, opt);       }\r
@@ -843,18 +884,19 @@ public:
        {       mgl_stfa(gr, &re, &im, dn, sch, opt);   }\r
 \r
        /// Draw isosurface(s) for 3d data specified parametrically with alpha proportional to b\r
-       inline void Surf3A(mreal Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
+       inline void Surf3A(double Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3a_xyz_val(gr, Val, &x, &y, &z, &a, &b, stl, opt);      }\r
-       inline void Surf3A(mreal Val, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
+       inline void Surf3A(double Val, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3a_val(gr, Val, &a, &b, stl, opt);      }\r
        inline void Surf3A(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3a_xyz(gr, &x, &y, &z, &a, &b, stl, opt);       }\r
        inline void Surf3A(const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3a(gr, &a, &b, stl, opt);       }\r
+\r
        /// Draw isosurface(s) for 3d data specified parametrically with color proportional to b\r
-       inline void Surf3C(mreal Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
+       inline void Surf3C(double Val, const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3c_xyz_val(gr, Val, &x, &y, &z, &a, &b, stl,opt);       }\r
-       inline void Surf3C(mreal Val, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
+       inline void Surf3C(double Val, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3c_val(gr, Val, &a, &b, stl, opt);      }\r
        inline void Surf3C(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &b, const char *stl="", const char *opt="")\r
        {       mgl_surf3c_xyz(gr, &x, &y, &z, &a, &b, stl, opt);       }\r
@@ -871,7 +913,8 @@ public:
        {       mgl_traj_xy(gr, &x, &y, &ax, &ay, sch, opt);    }\r
        inline void Traj(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", const char *opt="")\r
        {       mgl_traj_xyz(gr, &x, &y, &z, &ax, &ay, &az, sch, opt);  }\r
-       /// Plot vector field {ax,ay,ay} parametrically depended on coordinate {x,y,z} with length/color proportional to |a|\r
+\r
+       /// Plot vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with length/color proportional to |a|\r
        inline void Vect(const mglDataA &x, const mglDataA &y, const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
        {       mgl_vect_xy(gr, &x, &y, &ax, &ay, sch, opt);    }\r
        inline void Vect(const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
@@ -881,7 +924,13 @@ public:
        inline void Vect(const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", const char *opt="")\r
        {       mgl_vect_3d(gr, &ax, &ay, &az, sch, opt);       }\r
 \r
-       /// Plot flows for vector field {ax,ay,ay} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
+       /// Draw vector plot at slice for 3d data specified parametrically\r
+       inline void Vect3(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *stl="", double sVal=-1, const char *opt="")\r
+       {       mgl_vect3_xyz(gr, &x, &y, &z, &ax,&ay,&az, stl, sVal, opt);     }\r
+       inline void Vect3(const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *stl="", double sVal=-1, const char *opt="")\r
+       {       mgl_vect3(gr, &ax,&ay,&az, stl, sVal, opt);     }\r
+\r
+       /// Plot flows for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
        inline void Flow(const mglDataA &x, const mglDataA &y, const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
        {       mgl_flow_xy(gr, &x, &y, &ax, &ay, sch, opt);    }\r
        inline void Flow(const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
@@ -890,7 +939,8 @@ public:
        {       mgl_flow_xyz(gr, &x, &y, &z, &ax, &ay, &az, sch, opt);  }\r
        inline void Flow(const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", const char *opt="")\r
        {       mgl_flow_3d(gr, &ax, &ay, &az, sch, opt);       }\r
-       /// Plot flow from point p for vector field {ax,ay,ay} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
+\r
+       /// Plot flow from point p for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
        inline void FlowP(mglPoint p, const mglDataA &x, const mglDataA &y, const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
        {       mgl_flowp_xy(gr, p.x, p.y, p.z, &x, &y, &ax, &ay, sch, opt);    }\r
        inline void FlowP(mglPoint p, const mglDataA &ax, const mglDataA &ay, const char *sch="", const char *opt="")\r
@@ -908,63 +958,63 @@ public:
        inline void Grad(const mglDataA &phi, const char *sch="", const char *opt="")\r
        {       mgl_grad(gr,&phi,sch,opt);      }\r
 \r
-       /// Plot flow pipes for vector field {ax,ay,ay} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
-       inline void Pipe(const mglDataA &x, const mglDataA &y, const mglDataA &ax, const mglDataA &ay, const char *sch="", mreal r0=0.05, const char *opt="")\r
+       /// Plot flow pipes for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color and radius proportional to |a|\r
+       inline void Pipe(const mglDataA &x, const mglDataA &y, const mglDataA &ax, const mglDataA &ay, const char *sch="", double r0=0.05, const char *opt="")\r
        {       mgl_pipe_xy(gr, &x, &y, &ax, &ay, sch, r0, opt);        }\r
-       inline void Pipe(const mglDataA &ax, const mglDataA &ay, const char *sch="", mreal r0=0.05, const char *opt="")\r
+       inline void Pipe(const mglDataA &ax, const mglDataA &ay, const char *sch="", double r0=0.05, const char *opt="")\r
        {       mgl_pipe_2d(gr, &ax, &ay, sch, r0, opt);        }\r
-       inline void Pipe(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", mreal r0=0.05, const char *opt="")\r
+       inline void Pipe(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", double r0=0.05, const char *opt="")\r
        {       mgl_pipe_xyz(gr, &x, &y, &z, &ax, &ay, &az, sch, r0, opt);      }\r
-       inline void Pipe(const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", mreal r0=0.05, const char *opt="")\r
+       inline void Pipe(const mglDataA &ax, const mglDataA &ay, const mglDataA &az, const char *sch="", double r0=0.05, const char *opt="")\r
        {       mgl_pipe_3d(gr, &ax, &ay, &az, sch, r0, opt);   }\r
 \r
        /// Draw density plot for data at x = sVal\r
-       inline void DensX(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void DensX(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_dens_x(gr, &a, stl, sVal, opt);     }\r
        /// Draw density plot for data at y = sVal\r
-       inline void DensY(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void DensY(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_dens_y(gr, &a, stl, sVal, opt);     }\r
        /// Draw density plot for data at z = sVal\r
-       inline void DensZ(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void DensZ(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_dens_z(gr, &a, stl, sVal, opt);     }\r
-       /// Draw contour plots for data at x = sVal\r
-       inline void ContX(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw contour lines for data at x = sVal\r
+       inline void ContX(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_x(gr, &a, stl, sVal, opt);     }\r
-       inline void ContX(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContX(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_x_val(gr, &v, &a, stl, sVal, opt);     }\r
-       /// Draw contour plots for data at y = sVal\r
-       inline void ContY(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw contour lines for data at y = sVal\r
+       inline void ContY(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_y(gr, &a, stl, sVal, opt);     }\r
-       inline void ContY(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContY(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_y_val(gr, &v, &a, stl, sVal, opt);     }\r
-       /// Draw contour plots for data at z = sVal\r
-       inline void ContZ(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw contour lines for data at z = sVal\r
+       inline void ContZ(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_z(gr, &a, stl, sVal, opt);     }\r
-       inline void ContZ(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContZ(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_cont_z_val(gr, &v, &a, stl, sVal, opt);     }\r
-       /// Draw solid contour plots for data at x = sVal\r
-       inline void ContFX(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw solid contours for data at x = sVal\r
+       inline void ContFX(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_x(gr, &a, stl, sVal, opt);    }\r
-       inline void ContFX(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContFX(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_x_val(gr, &v, &a, stl, sVal, opt);    }\r
-       /// Draw solid contour plots for data at y = sVal\r
-       inline void ContFY(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw solid contours for data at y = sVal\r
+       inline void ContFY(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_y(gr, &a, stl, sVal, opt);    }\r
-       inline void ContFY(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContFY(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_y_val(gr, &v, &a, stl, sVal, opt);    }\r
-       /// Draw solid contour plots for data at z = sVal\r
-       inline void ContFZ(const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       /// Draw solid contours for data at z = sVal\r
+       inline void ContFZ(const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_z(gr, &a, stl, sVal, opt);    }\r
-       inline void ContFZ(const mglDataA &v, const mglDataA &a, const char *stl="", mreal sVal=NaN, const char *opt="")\r
+       inline void ContFZ(const mglDataA &v, const mglDataA &a, const char *stl="", double sVal=NaN, const char *opt="")\r
        {       mgl_contf_z_val(gr, &v, &a, stl, sVal, opt);    }\r
 \r
-       /// Draw curve for formula with x in range [Min.x, Max.x]\r
+       /// Draw curve for formula with x in x-axis range\r
        inline void FPlot(const char *fy, const char *stl="", const char *opt="")\r
        {       mgl_fplot(gr, fy, stl, opt);    }\r
        /// Draw curve for formulas parametrically depended on t in range [0,1]\r
        inline void FPlot(const char *fx, const char *fy, const char *fz, const char *stl, const char *opt="")\r
        {       mgl_fplot_xyz(gr, fx, fy, fz, stl, opt);        }\r
-       /// Draw surface by formula with x,y in range [Min, Max]\r
+       /// Draw surface by formula with x,y in axis range\r
        inline void FSurf(const char *fz, const char *stl="", const char *opt="")\r
        {       mgl_fsurf(gr, fz, stl, opt);    }\r
        /// Draw surface by formulas parametrically depended on u,v in range [0,1]\r
@@ -986,7 +1036,7 @@ public:
        inline void QuadPlot(const mglDataA &nums, const mglDataA &x, const mglDataA &y, const char *sch="", const char *opt="")\r
        {       mgl_quadplot_xy(gr, &nums, &x, &y, sch, opt);   }\r
 \r
-       /// Draw contour lines for triangle mesh for points in arrays {x,y,z}.\r
+       /// Draw contour lines for triangle mesh for points in arrays {x,y,z} with specified color c.\r
        inline void TriCont(const mglDataA &nums, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_tricont_xyc(gr, &nums, &x, &y, &z, sch, opt);       }\r
        inline void TriContV(const mglDataA &v, const mglDataA &nums, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *sch="", const char *opt="")\r
@@ -999,7 +1049,7 @@ public:
        /// Draw dots in points {x,y,z}.\r
        inline void Dots(const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *sch="", const char *opt="")\r
        {       mgl_dots(gr, &x, &y, &z, sch, opt);     }\r
-       /// Draw semitransparent dots in points {x,y,z}.\r
+       /// Draw semitransparent dots in points {x,y,z} with alpha a.\r
        inline void Dots(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const char *sch="", const char *opt="")\r
        {       mgl_dots_a(gr, &x, &y, &z, &a, sch, opt);       }\r
        /// Draw surface reconstructed for points in arrays {x,y,z}.\r
@@ -1056,14 +1106,14 @@ public:
        inline mglData FitS(const mglDataA &x, const mglDataA &y, const mglDataA &z, const mglDataA &a, const mglDataA &s, const char *eq, const char *var, mglData &ini, const char *opt="")\r
        {       return mglData(true,mgl_fit_xyzas(gr, &x, &y, &z, &a, &s, eq, var, &ini, opt)); }\r
        /// Print fitted last formula (with coefficients)\r
-       inline void PutsFit(mglPoint p, const char *prefix=0, const char *font=0, mreal size=-1)\r
+       inline void PutsFit(mglPoint p, const char *prefix=0, const char *font="", double size=-1)\r
        {       mgl_puts_fit(gr, p.x, p.y, p.z, prefix, font, size);    }\r
        /// Get last fitted formula\r
        inline const char *GetFit()\r
        {       return mgl_get_fit(gr); }\r
 \r
        /// Solve PDE with x,y,z in range [Min, Max]\r
-       inline mglData PDE(const char *ham, const mglDataA &ini_re, const mglDataA &ini_im, mreal dz=0.1, mreal k0=100, const char *opt="")\r
+       inline mglData PDE(const char *ham, const mglDataA &ini_re, const mglDataA &ini_im, double dz=0.1, double k0=100, const char *opt="")\r
        {       return mglData(true,mgl_pde_solve(gr,ham,&ini_re,&ini_im,dz,k0, opt));  }\r
        /// Fill data by formula with x,y,z in range [Min, Max]\r
        inline void Fill(mglData &u, const char *eq, const char *opt="")\r
@@ -1072,7 +1122,14 @@ public:
        {       mgl_data_fill_eq(gr, &u, eq, &v, 0, opt);       }\r
        inline void Fill(mglData &u, const char *eq, const mglDataA &v, const mglDataA &w, const char *opt="")\r
        {       mgl_data_fill_eq(gr, &u, eq, &v, &w, opt);      }\r
-\r
+       /// Fill data by formula with x,y,z in range [Min, Max]\r
+       inline void Fill(mglDataC &u, const char *eq, const char *opt="")\r
+       {       mgl_datac_fill_eq(gr, &u, eq, 0, 0, opt);       }\r
+       inline void Fill(mglDataC &u, const char *eq, const mglDataA &v, const char *opt="")\r
+       {       mgl_datac_fill_eq(gr, &u, eq, &v, 0, opt);      }\r
+       inline void Fill(mglDataC &u, const char *eq, const mglDataA &v, const mglDataA &w, const char *opt="")\r
+       {       mgl_datac_fill_eq(gr, &u, eq, &v, &w, opt);     }\r
+       \r
        /// Set the data by triangulated surface values assuming x,y,z in range [Min, Max]\r
        inline void DataGrid(mglData &d, const mglDataA &x, const mglDataA &y, const mglDataA &z, const char *opt="")\r
        {       mgl_data_grid(gr,&d,&x,&y,&z,opt);      }\r
@@ -1096,6 +1153,40 @@ public:
 /// Callback function for asking user a question. Result shouldn't exceed 1024.\r
 extern void (*mgl_ask_func)(const wchar_t *quest, wchar_t *res);\r
 //-----------------------------------------------------------------------------\r
+/// Structure for handling named mglData (used by mglParse class).\r
+class mglVar : public mglData\r
+{\r
+public:\r
+       std::wstring s; ///< Data name\r
+       void *o;                ///< Pointer to external object\r
+       mglVar *next;   ///< Pointer to next instance in list\r
+       mglVar *prev;   ///< Pointer to previous instance in list\r
+       bool temp;              ///< This is temporary variable\r
+       void (*func)(void *);   ///< Callback function for destroying\r
+       \r
+       mglVar():mglData()      {       o=0;    next=prev=0;    func=0; temp=false;     }\r
+       virtual ~mglVar()\r
+       {\r
+               if(func)        func(o);\r
+               if(prev)        prev->next = next;\r
+               if(next)        next->prev = prev;\r
+       }\r
+       /// Move variable after var and copy func from var (if func is 0)\r
+       void MoveAfter(mglVar *var)\r
+       {\r
+               if(prev)        prev->next = next;\r
+               if(next)        next->prev = prev;\r
+               prev = next = 0;\r
+               if(var)\r
+               {\r
+                       prev = var;     next = var->next;\r
+                       var->next = this;\r
+                       if(func==0)     func = var->func;\r
+               }\r
+               if(next)        next->prev = this;\r
+       }\r
+};\r
+//-----------------------------------------------------------------------------\r
 /// Wrapper class for MGL parsing\r
 class mglParse\r
 {\r
@@ -1106,35 +1197,78 @@ public:
        mglParse(bool setsize=false)\r
        {       pr=mgl_create_parser(); mgl_parser_allow_setsize(pr, setsize);  }\r
        ~mglParse()     {       if(mgl_use_parser(pr,-1)<1)     mgl_delete_parser(pr);  }\r
+       /// Get pointer to internal mglParser object\r
        inline HMPR Self()      {       return pr;      }\r
+       /// Parse and draw single line of the MGL script\r
        inline int Parse(mglGraph *gr, const char *str, int pos)\r
-       {       return mgl_parse(gr->Self(), pr, str, pos);     }\r
+       {       return mgl_parse_line(gr->Self(), pr, str, pos);        }\r
        inline int Parse(mglGraph *gr, const wchar_t *str, int pos)\r
-       {       return mgl_parsew(gr->Self(), pr, str, pos);    }\r
+       {       return mgl_parse_linew(gr->Self(), pr, str, pos);       }\r
+       /// Execute MGL script text with '\n' separated lines\r
        inline void Execute(mglGraph *gr, const char *str)\r
        {       mgl_parse_text(gr->Self(), pr, str);    }\r
        inline void Execute(mglGraph *gr, const wchar_t *str)\r
-       {       mgl_parsew_text(gr->Self(), pr, str);   }\r
+       {       mgl_parse_textw(gr->Self(), pr, str);   }\r
+       /// Execute and draw script from the file\r
        inline void Execute(mglGraph *gr, FILE *fp, bool print=false)\r
        {       mgl_parse_file(gr->Self(), pr, fp, print);      }\r
+\r
+       /// Return type of command: 0 - not found, 1 - data plot, 2 - other plot,\r
+       ///             3 - setup, 4 - data handle, 5 - data create, 6 - subplot, 7 - program\r
+       ///             8 - 1d plot, 9 - 2d plot, 10 - 3d plot, 11 - dd plot, 12 - vector plot\r
+       ///             13 - axis, 14 - primitives, 15 - axis setup, 16 - text/legend, 17 - data transform\r
        inline int CmdType(const char *name)\r
-       {       return mgl_cmd_type(pr, name);  }\r
+       {       return mgl_parser_cmd_type(pr, name);   }\r
+       /// Return string of command format (command name and its argument[s])\r
        inline const char *CmdFormat(const char *name)\r
-       {       return mgl_cmd_frmt(pr, name);  }\r
+       {       return mgl_parser_cmd_frmt(pr, name);   }\r
+       /// Return description of MGL command\r
        inline const char *CmdDesc(const char *name)\r
-       {       return mgl_cmd_desc(pr, name);  }\r
+       {       return mgl_parser_cmd_desc(pr, name);   }\r
+       /// Get name of command with nmber n\r
+       inline const char *GetCmdName(long n)\r
+       {       return mgl_parser_cmd_name(pr,n);       }\r
+       /// Get number of defined commands\r
+       inline long GetCmdNum()\r
+       {       return mgl_parser_cmd_num(pr);  }\r
 \r
-       inline void AddParam(int id, const char *str)   {       mgl_add_param(pr, id, str);     }\r
-       inline void AddParam(int id, const wchar_t *str){       mgl_add_paramw(pr, id, str);    }\r
-       inline void RestoreOnce()       {       mgl_restore_once(pr);   }\r
+       /// Set value for parameter $N\r
+       inline void AddParam(int id, const char *str)\r
+       {       mgl_parser_add_param(pr, id, str);      }\r
+       inline void AddParam(int id, const wchar_t *str)\r
+       {       mgl_parser_add_paramw(pr, id, str);     }\r
+       /// Restore once flag\r
+       inline void RestoreOnce()       {       mgl_parser_restore_once(pr);    }\r
+       /// Allow changing size of the picture\r
        inline void AllowSetSize(bool allow)    {       mgl_parser_allow_setsize(pr, allow);    }\r
-\r
-       /*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-       inline mglData *AddVar(const char *name)        {       return mgl_add_var(pr, name);   }\r
-       /*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/\r
-       inline mglData *FindVar(const char *name)       {       return mgl_find_var(pr, name);  }\r
-       inline void DeleteVar(const char *name)         {       mgl_del_var(pr, name);          }\r
+       /// Allow reading/saving files\r
+       inline void AllowFileIO(bool allow)             {       mgl_parser_allow_file_io(pr, allow);    }\r
+       /// Set flag to stop script parsing\r
        inline void Stop()      {       mgl_parser_stop(pr);    }\r
+\r
+       /// Return result of formula evaluation\r
+       inline mglData Calc(const char *formula)\r
+       {       return mglData(true,mgl_parser_calc(pr,formula));       }\r
+       inline mglData Calc(const wchar_t *formula)\r
+       {       return mglData(true,mgl_parser_calcw(pr,formula));      }\r
+       \r
+       /// Find variable with given name or add a new one\r
+       /// NOTE !!! You must not delete obtained data arrays !!!\r
+       inline mglVar *AddVar(const char *name)\r
+       {       return dynamic_cast<mglVar *>(mgl_parser_add_var(pr, name));    }\r
+       inline mglVar *AddVar(const wchar_t *name)\r
+       {       return dynamic_cast<mglVar *>(mgl_parser_add_varw(pr, name));   }\r
+       /// Find variable with given name or return NULL if no one\r
+       /// NOTE !!! You must not delete obtained data arrays !!!\r
+       inline mglVar *FindVar(const char *name)\r
+       {       return dynamic_cast<mglVar *>(mgl_parser_find_var(pr, name));   }\r
+       inline mglVar *FindVar(const wchar_t *name)\r
+       {       return dynamic_cast<mglVar *>(mgl_parser_find_varw(pr, name));  }\r
+       /// Delete variable with name\r
+       inline void DeleteVar(const char *name)         {       mgl_parser_del_var(pr, name);           }\r
+       inline void DeleteVar(const wchar_t *name)      {       mgl_parser_del_varw(pr, name);          }\r
+       /// Delete all data variables\r
+       void DeleteAll()        {       mgl_parser_del_all(pr); }\r
 };\r
 //-----------------------------------------------------------------------------\r
 /// Wrapper class expression evaluating\r
@@ -1144,14 +1278,18 @@ class mglExpr
 public:\r
        mglExpr(const char *expr)               {       ex = mgl_create_expr(expr);     }\r
        ~mglExpr()      {       mgl_delete_expr(ex);    }\r
-       inline mreal Eval(mreal x, mreal y=0, mreal z=0)\r
+       /// Return value of expression for given x,y,z variables\r
+       inline double Eval(double x, double y=0, double z=0)\r
        {       return mgl_expr_eval(ex,x,y,z); }\r
-       inline mreal Diff(char dir, mreal x, mreal y=0, mreal z=0)\r
+       /// Return value of expression differentiation over variable dir for given x,y,z variables\r
+       inline double Diff(char dir, double x, double y=0, double z=0)\r
        {       return mgl_expr_diff(ex,dir, x,y,z);    }\r
 #ifndef SWIG\r
-       inline mreal Eval(mreal var[26])\r
+       /// Return value of expression for given variables\r
+       inline double Eval(mreal var[26])\r
        {       return mgl_expr_eval_v(ex,var); }\r
-       inline mreal Diff(char dir, mreal var[26])\r
+       /// Return value of expression differentiation over variable dir for given variables\r
+       inline double Diff(char dir, mreal var[26])\r
        {       return mgl_expr_diff_v(ex,dir, var);    }\r
 #endif\r
 };\r

diff --git a/include/mgl2/mgl_cf.h b/include/mgl2/mgl_cf.h
index e102c383b2543d2fb15a1a3f99cce1e5ecc836f2..279d6479c9cf3874df2333142b2f0c6f160e32b2 100644 (file)
--- a/include/mgl2/mgl_cf.h
+++ b/include/mgl2/mgl_cf.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_cf.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,29 +19,28 @@
  ***************************************************************************/\r
 #ifndef _MGL_CF_H_\r
 #define _MGL_CF_H_\r
-/*****************************************************************************/\r
-#include "mgl2/base_cf.h"\r
-#include "mgl2/data_cf.h"\r
-#include "mgl2/cont.h"\r
-#include "mgl2/fit.h"\r
-#include "mgl2/plot.h"\r
-#include "mgl2/surf.h"\r
-#include "mgl2/volume.h"\r
-#include "mgl2/vect.h"\r
-#include "mgl2/prim.h"\r
-#include "mgl2/other.h"\r
-#include "mgl2/canvas_cf.h"\r
-#include "mgl2/addon.h"\r
-/*****************************************************************************/\r
-#if MGL_HAVE_OPENGL\r
-#ifdef __cplusplus\r
-extern "C" {\r
-#endif\r
-HMGL mgl_create_graph_gl();\r
-uintptr_t mgl_create_graph_gl_();\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
-}\r
+#include <mgl2/data.h>\r
+#include <mgl2/data.h>\r
 #endif\r
+//-----------------------------------------------------------------------------\r
+#include <mgl2/base_cf.h>\r
+#include <mgl2/data_cf.h>\r
+#include <mgl2/datac_cf.h>\r
+#include <mgl2/cont.h>\r
+#include <mgl2/fit.h>\r
+#include <mgl2/plot.h>\r
+#include <mgl2/surf.h>\r
+#include <mgl2/volume.h>\r
+#include <mgl2/vect.h>\r
+#include <mgl2/prim.h>\r
+#include <mgl2/other.h>\r
+#include <mgl2/canvas_cf.h>\r
+#include <mgl2/addon.h>\r
+//-----------------------------------------------------------------------------\r
+#if MGL_HAVE_OPENGL\r
+#include <mgl2/opengl.h>\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/opengl.h b/include/mgl2/opengl.h
index ca712e6e91bc7c909b1b0e081dda59b6decf5404..a68aca125d450c19f011c4e132292f8a4a21f1df 100644 (file)
--- a/include/mgl2/opengl.h
+++ b/include/mgl2/opengl.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * opengl.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,7 +19,7 @@
  ***************************************************************************/\r
 #ifndef MGL_CANVAS_GL_H\r
 #define MGL_CANVAS_GL_H\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 #include "mgl2/canvas.h"\r
 \r
@@ -33,9 +33,11 @@ public:
        void Finish(bool fast=true);\r
        void SetSize(int ,int ) {}\r
        void View(mreal tetX,mreal tetY,mreal tetZ);\r
+       void Zoom(mreal x1, mreal y1, mreal x2, mreal y2);\r
        int NewFrame();\r
        void EndFrame();\r
-\r
+       void DelFrame(long ){}\r
+       \r
        bool Alpha(bool enable);\r
        void Fog(mreal d, mreal dz=0.25);\r
        bool Light(bool enable);\r
@@ -55,14 +57,13 @@ protected:
 };\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 HMGL mgl_create_graph_gl();\r
-/*****************************************************************************/\r
 uintptr_t mgl_create_graph_gl_();\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r
 \r

diff --git a/include/mgl2/other.h b/include/mgl2/other.h
index b31122f4b1f9047305fe5e164fa2577f3f605403..afa9578c9f5b9f64a8d826cbd2411868267e713f 100644 (file)
--- a/include/mgl2/other.h
+++ b/include/mgl2/other.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * other.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,88 +20,107 @@
 #ifndef _MGL_OTHER_H_\r
 #define _MGL_OTHER_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
+/// Draw triangle mesh for points in arrays {x,y,z} with specified color c.\r
 void mgl_triplot_xyzc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
+void mgl_triplot_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw triangle mesh for points in arrays {x,y,z} with color proportional to z.\r
 void mgl_triplot_xyz(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_triplot_xyz_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw triangle mesh for points in arrays {x,y}\r
 void mgl_triplot_xy(HMGL gr, HCDT nums, HCDT x, HCDT y, const char *sch, const char *opt);\r
+void mgl_triplot_xy_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, const char *sch, const char *opt,int,int);\r
 \r
+/// Draw quad mesh for points in arrays {x,y,z} with specified color c.\r
 void mgl_quadplot_xyzc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
+void mgl_quadplot_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw quad mesh for points in arrays {x,y,z} with color proportional to z.\r
 void mgl_quadplot_xyz(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_quadplot_xyz_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw quad mesh for points in arrays {x,y}.\r
 void mgl_quadplot_xy(HMGL gr, HCDT nums, HCDT x, HCDT y, const char *sch, const char *opt);\r
+void mgl_quadplot_xy_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, const char *sch, const char *opt,int,int);\r
 \r
+/// Draw manual contour lines for triangle mesh for points in arrays {x,y,z} with specified color c.\r
 void mgl_tricont_xyzcv(HMGL gr, HCDT v, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
+void mgl_tricont_xyzcv_(uintptr_t *gr, uintptr_t *v, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw manual contour lines for triangle mesh for points in arrays {x,y,z}.\r
 void mgl_tricont_xycv(HMGL gr, HCDT v, HCDT nums, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_tricont_xycv_(uintptr_t *gr, uintptr_t *v, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw contour lines for triangle mesh for points in arrays {x,y,z} with specified color c.\r
 void mgl_tricont_xyzc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
+void mgl_tricont_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int, int);\r
+/// Draw contour lines for triangle mesh for points in arrays {x,y,z}.\r
 void mgl_tricont_xyc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_tricont_xyc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int, int);\r
 \r
+/// Draw dots in points {x,y,z}.\r
 void mgl_dots(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_dots_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw semitransparent dots in points {x,y,z} with alpha a.\r
 void mgl_dots_a(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, const char *opt);\r
+void mgl_dots_a_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, const char *opt,int,int);\r
 \r
+/// Draw surface reconstructed for points in arrays {x,y,z}.\r
 void mgl_crust(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
-\r
-void mgl_dens_x(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_dens_y(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_dens_z(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_cont_x(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_cont_y(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_cont_z(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_cont_x_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_cont_y_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_cont_z_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_contf_x(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_contf_y(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_contf_z(HMGL graph, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-void mgl_contf_x_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_contf_y_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-void mgl_contf_z_val(HMGL graph, HCDT v, HCDT a, const char *stl, mreal sVal, const char *opt);\r
-\r
-/*****************************************************************************/\r
-\r
-void mgl_triplot_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
-void mgl_triplot_xyz_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_triplot_xy_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, const char *sch, const char *opt,int,int);\r
-void mgl_quadplot_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
-void mgl_quadplot_xyz_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_quadplot_xy_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, const char *sch, const char *opt,int,int);\r
-\r
-void mgl_tricont_xyzcv_(uintptr_t *gr, uintptr_t *v, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
-void mgl_tricont_xycv_(uintptr_t *gr, uintptr_t *v, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_tricont_xyzc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int, int);\r
-void mgl_tricont_xyc_(uintptr_t *gr, uintptr_t *nums, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int, int);\r
-\r
-void mgl_dots_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_dots_a_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *sch, const char *opt,int,int);\r
-void mgl_dots_tr_(uintptr_t *gr, uintptr_t *tr, const char *sch, const char *opt,int,int);\r
 void mgl_crust_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_crust_tr_(uintptr_t *gr, uintptr_t *tr, const char *sch, const char *opt,int,int);\r
 \r
+/// Draw density plot for data at x = sVal\r
+void mgl_dens_x(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_dens_x_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw density plot for data at y = sVal\r
+void mgl_dens_y(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_dens_y_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw density plot for data at z = sVal\r
+void mgl_dens_z(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_dens_z_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw contour lines for data at x = sVal\r
+void mgl_cont_x(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_x_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw contour lines for data at y = sVal\r
+void mgl_cont_y(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_y_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw contour lines for data at z = sVal\r
+void mgl_cont_z(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_z_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw manual contour lines for data at x = sVal\r
+void mgl_cont_x_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_x_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual contour lines for data at y = sVal\r
+void mgl_cont_y_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_y_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual contour lines for data at z = sVal\r
+void mgl_cont_z_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_cont_z_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw solid contours for data at x = sVal\r
+void mgl_contf_x(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_x_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw solid contours for data at y = sVal\r
+void mgl_contf_y(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_y_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw solid contours for data at z = sVal\r
+void mgl_contf_z(HMGL graph, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_z_(uintptr_t *graph, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+\r
+/// Draw manual solid contours for data at x = sVal\r
+void mgl_contf_x_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_x_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual solid contours for data at y = sVal\r
+void mgl_contf_y_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_y_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
+/// Draw manual solid contours for data at z = sVal\r
+void mgl_contf_z_val(HMGL graph, HCDT v, HCDT a, const char *stl, double sVal, const char *opt);\r
 void mgl_contf_z_val_(uintptr_t *graph, uintptr_t *v, uintptr_t *a, const char *stl, mreal *sVal, const char *opt,int,int);\r
 \r
-/*****************************************************************************/\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/parser.h b/include/mgl2/parser.h
index 9e4733015c3024ea057a4e86ef4d5e4a26d40649..bd7d93f16f4822b09d07b07ad8f597243850fed2 100644 (file)
--- a/include/mgl2/parser.h
+++ b/include/mgl2/parser.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * parser.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -32,7 +32,7 @@ struct mglArg
        std::wstring w; ///< String with parameters\r
        std::string s;  ///< String with parameters\r
        mreal v;                ///< Numerical value (used if type==2)\r
-       mglArg()        {       type=-1;        d=0;    v=0;    };\r
+       mglArg()        {       type=-1;        d=0;    v=0;    }\r
 };\r
 //-----------------------------------------------------------------------------\r
 /// Structure for MGL command\r
@@ -49,23 +49,6 @@ struct mglCommand
 };\r
 extern mglCommand mgls_base_cmd[];\r
 //-----------------------------------------------------------------------------\r
-/// Structure for the mglData handling (see mglParse class).\r
-struct mglVar\r
-{\r
-       mglData d;              ///< Data itself\r
-       std::wstring s; ///< Data name\r
-       void *o;                ///< Pointer to external object\r
-       mglVar *next;   ///< Pointer to next instance in list\r
-       mglVar *prev;   ///< Pointer to prev instance in list\r
-       bool temp;              ///< This temporar variable\r
-       void (*func)(void *);   ///< Callback function for destroying\r
-\r
-       mglVar()        {       o=0;    next=prev=0;    func=0; temp=false;     };\r
-       ~mglVar();\r
-       /// Move variable after \a var and copy \a func from \a var (if \a func is 0)\r
-       void MoveAfter(mglVar *var);\r
-};\r
-//-----------------------------------------------------------------------------\r
 /// Structure for the number handling (see mglParse class).\r
 struct mglNum\r
 {\r
@@ -73,9 +56,9 @@ struct mglNum
        std::wstring s; ///< Number name\r
        mglNum *next;   ///< Pointer to next instance in list\r
        mglNum *prev;   ///< Pointer to prev instance in list\r
-       mglNum()        {       d=0;    next=prev=0;    };\r
+       mglNum()        {       d=0;    next=prev=0;    }\r
        ~mglNum();\r
-       /// Move variable after \a var and copy \a func from \a var (if \a func is 0)\r
+       /// Move variable after var and copy func from var (if func is 0)\r
        void MoveAfter(mglNum *var);\r
 };\r
 //-----------------------------------------------------------------------------\r
@@ -94,8 +77,9 @@ struct mglFunc
 /// Structure for stack of functions and its arguments.\r
 struct mglFnStack\r
 {\r
+       mglFnStack()    {pos=0;}\r
        long pos;\r
-       wchar_t *par[9];\r
+       std::wstring par[10];\r
 };\r
 //-----------------------------------------------------------------------------\r
 /// Function for asking question in console mode\r
@@ -107,10 +91,11 @@ class mglParser
 friend void mgl_export(wchar_t *out, const wchar_t *in, int type);\r
 public:\r
        mglVar *DataList;       ///< List with data and its names\r
-       mglNum *NumList;                ///< List with numbers and its names\r
+       mglNum *NumList;        ///< List with numbers and its names\r
        bool AllowSetSize;      ///< Allow using setsize command\r
+       bool AllowFileIO;       ///< Allow reading/saving files\r
        bool Stop;                      ///< Stop command was. Flag prevent further execution\r
-       mglCommand *Cmd;                ///< Table of MGL commands (can be changed by user). It MUST be sorted by 'name'!!!\r
+       mglCommand *Cmd;        ///< Table of MGL commands (can be changed by user). It MUST be sorted by 'name'!!!\r
        wchar_t *op1, *op2;     ///< Buffer for options (are used if out!=NULL)\r
        long InUse;                     ///< Smart pointer (number of users)\r
 \r
@@ -131,7 +116,7 @@ public:
        inline  int Export(wchar_t cpp_out[1024], HMGL gr, const wchar_t *str)\r
        {       mglGraph GR(gr);        return Export(cpp_out,&GR,str); }\r
        int Export(wchar_t cpp_out[1024], mglGraph *gr, const wchar_t *str);\r
-       /// Execute MGL script file \a fname\r
+       /// Execute MGL script file fname\r
        inline void Execute(HMGL gr, FILE *fp, bool print=false)\r
        {       mglGraph GR(gr);        Execute(&GR,fp,print);  }\r
        void Execute(mglGraph *gr, FILE *fp, bool print=false);\r
@@ -153,56 +138,54 @@ public:
        long IsFunc(const wchar_t *name, int *narg=0);\r
        /// Find variable or return 0 if absent\r
        mglVar *FindVar(const char *name);\r
-       /// Find variable or return 0 if absent\r
        mglVar *FindVar(const wchar_t *name);\r
        /// Find variable or create it if absent\r
        mglVar *AddVar(const char *name);\r
-       /// Find variable or create it if absent\r
        mglVar *AddVar(const wchar_t *name);\r
        /// Find number or return 0 if absent\r
        mglNum *FindNum(const char *name);\r
-       /// Find number or return 0 if absent\r
        mglNum *FindNum(const wchar_t *name);\r
        /// Find number or create it if absent\r
        mglNum *AddNum(const char *name);\r
-       /// Find number or create it if absent\r
        mglNum *AddNum(const wchar_t *name);\r
        /// Add string for parameter $1, ..., $9\r
-       bool AddParam(int n, const char *str, bool isstr=true);\r
-       /// Add unicode string for parameter $1, ..., $9\r
-       bool AddParam(int n, const wchar_t *str, bool isstr=true);\r
+       void AddParam(int n, const char *str);\r
+       void AddParam(int n, const wchar_t *str);\r
        /// Add new MGL command(s) (last command MUST HAVE name[0]=0 !!!)\r
        void AddCommand(mglCommand *cmd, int num=0);\r
        /// Restore Once flag\r
-       inline void RestoreOnce()       {       Once = true;    };\r
+       inline void RestoreOnce()       {       Once = true;    }\r
        /// Delete variable\r
        void DeleteVar(mglVar *v);\r
        /// Delete variable by its name\r
        void DeleteVar(const char *name);\r
-       /// Delete variable by its name\r
        void DeleteVar(const wchar_t *name);\r
+       /// Delete all data variables\r
+       void DeleteAll();\r
 private:\r
-       long parlen;            ///< Length of parameter strings\r
-       wchar_t *par[40];       ///< Parameter for substituting instead of $1, ..., $9\r
+//     long parlen;            ///< Length of parameter strings\r
+       std::wstring par[40];   ///< Parameter for substituting instead of $1, ..., $9\r
        wchar_t *out;           ///< Buffer for writing C++ code (if not NULL)\r
-       wchar_t leg[128];       ///< Buffer for legend\r
+//     wchar_t leg[128];       ///< Buffer for legend\r
        bool Once;                      ///< Flag for command which should be executed only once\r
        bool Skip;                      ///< Flag that commands should be skiped (inside 'once' block)\r
        int if_stack[40];       ///< Stack for if-else-endif commands\r
        int if_pos;                     ///< position in if_stack\r
        std::vector<mglFunc> func;      ///< function names and position\r
-       mglFnStack *fn_stack;           ///< function calls stack\r
-       int fn_pos;                     ///< position in function stack\r
-       int fn_num;                     ///< size of function stack\r
+       std::vector<mglFnStack> fn_stack;       ///< function calls stack\r
+//     int fn_pos;                     ///< position in function stack\r
        int if_for[40];         ///< position in if_stack for for-cycle start\r
        mglData *fval;          ///< Values for for-cycle. Note that nx - number of elements, ny - next element, nz - address (or string number) of first cycle command\r
        int for_stack[40];      ///< The order of for-variables\r
        int for_addr;           ///< Flag for saving address in variable (for_addr-1)\r
        bool for_br;            ///< Break is switched on (skip all comands until 'next')\r
 \r
+       /// Length of parameter strings\r
+       size_t GetParLen();\r
+       size_t GetParLen(const wchar_t *str);\r
        /// Parse command\r
        int Exec(mglGraph *gr, const wchar_t *com, long n, mglArg *a, const wchar_t *var, const wchar_t *opt);\r
-       /// Fill arguments \a a from strings\r
+       /// Fill arguments a from strings\r
        void FillArg(mglGraph *gr, int n, wchar_t **arg, mglArg *a);\r
        /// PreExecute stage -- parse some commands and create variables\r
        int PreExec(mglGraph *gr, long n, wchar_t **arg, mglArg *a);\r
@@ -213,8 +196,8 @@ private:
        /// Parse $N arguments\r
        void PutArg(const wchar_t *string, wchar_t *str, bool def);\r
        /// In skip mode\r
-       bool inline ifskip()    {       return (if_pos>0 && !(if_stack[if_pos-1]&1));   };\r
-       bool inline skip()              {       return (Skip || ifskip() || for_br);    };\r
+       bool inline ifskip()    {       return (if_pos>0 && !(if_stack[if_pos-1]&1));   }\r
+       bool inline skip()              {       return (Skip || ifskip() || for_br);    }\r
 };\r
 //-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/plot.h b/include/mgl2/plot.h
index 62e00f94fb501c5f85dff64dd4910994f6fbc6f6..5e5bb27c5d8ef8e9362909b66dae59e0c0afad35 100644 (file)
--- a/include/mgl2/plot.h
+++ b/include/mgl2/plot.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * plot.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,124 +20,168 @@
 #ifndef _MGL_1D_H_\r
 #define _MGL_1D_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
+/// Draw curve for formula with x in x-axis range\r
 void mgl_fplot(HMGL gr, const char *eqY, const char *pen, const char *opt);\r
-void mgl_fplot_xyz(HMGL gr, const char *eqX, const char *eqY, const char *eqZ, const char *pen, const char *opt);\r
 void mgl_fplot_(uintptr_t *gr, const char *fy, const char *stl, const char *opt, int ly, int ls, int lo);\r
+/// Draw curve for formulas parametrically depended on t in range [0,1]\r
+void mgl_fplot_xyz(HMGL gr, const char *eqX, const char *eqY, const char *eqZ, const char *pen, const char *opt);\r
 void mgl_fplot_xyz_(uintptr_t *gr, const char *fx, const char *fy, const char *fz, const char *stl, const char *opt, int lx, int ly, int lz, int ls, int lo);\r
-/*****************************************************************************/\r
+\r
+/// Draw radar chart (plot in curved coordinates)\r
 void mgl_radar(HMGL graph, HCDT a, const char *pen, const char *opt);\r
 void mgl_radar_(uintptr_t *gr, uintptr_t *a, const char *pen, const char *opt, int l,int lo);\r
-/*****************************************************************************/\r
+\r
+/// Draw usual curve {x,y,z}\r
 void mgl_plot_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
-void mgl_plot_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
-void mgl_plot(HMGL graph, HCDT y, const char *pen, const char *opt);\r
 void mgl_plot_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw usual curve {x,y}\r
+void mgl_plot_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
 void mgl_plot_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw usual curve {x,y} with x in x-axis range\r
+void mgl_plot(HMGL graph, HCDT y, const char *pen, const char *opt);\r
 void mgl_plot_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
+/// Draw curve {x,y,z} which is colored by c (like tension plot)\r
 void mgl_tens_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT c, const char *pen, const char *opt);\r
-void mgl_tens_xy(HMGL graph, HCDT x, HCDT y, HCDT c, const char *pen, const char *opt);\r
-void mgl_tens(HMGL graph, HCDT y, HCDT c, const char *pen, const char *opt);\r
 void mgl_tens_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *pen, const char *opt,int,int);\r
+/// Draw curve {x,y} which is colored by c (like tension plot)\r
+void mgl_tens_xy(HMGL graph, HCDT x, HCDT y, HCDT c, const char *pen, const char *opt);\r
 void mgl_tens_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *c, const char *pen, const char *opt,int,int);\r
+/// Draw curve {x,y} with x in x-axis range which is colored by c (like tension plot)\r
+void mgl_tens(HMGL graph, HCDT y, HCDT c, const char *pen, const char *opt);\r
 void mgl_tens_(uintptr_t *graph, uintptr_t *y, uintptr_t *c, const char *pen, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
+/// Draw tape(s) which rotates as (bi-)normales of curve {x,y,z}\r
 void mgl_tape_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
-void mgl_tape_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
-void mgl_tape(HMGL graph, HCDT y, const char *pen, const char *opt);\r
 void mgl_tape_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw tape(s) which rotates as (bi-)normales of curve {x,y}\r
+void mgl_tape_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
 void mgl_tape_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw tape(s) which rotates as (bi-)normales of curve {x,y} with x in x-axis range\r
+void mgl_tape(HMGL graph, HCDT y, const char *pen, const char *opt);\r
 void mgl_tape_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
+/// Draw box-plot (special 5-value plot used in statistic) for data specified parametrically\r
 void mgl_boxplot_xy(HMGL graph, HCDT x, HCDT a, const char *pen, const char *opt);\r
+void mgl_boxplot_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw box-plot (special 5-value plot used in statistic)\r
 void mgl_boxplot(HMGL graph, HCDT a, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_boxplot_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+\r
+/// Fill area between curve {x,y,z} and axis plane\r
 void mgl_area_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
+void mgl_area_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Fill area between curve {x,y} and axis plane\r
 void mgl_area_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
+void mgl_area_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Fill area between curve {x,y} with x in x-axis range and axis plane\r
 void mgl_area(HMGL graph, HCDT y, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_area_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+\r
+/// Fill area between curves {x,y1} and {x,y2}\r
 void mgl_region_xy(HMGL graph, HCDT x, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
+void mgl_region_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int, int);\r
+/// Fill area between curves {x,y1} and {x,y2} with x in x-axis range\r
 void mgl_region(HMGL graph, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_region_(uintptr_t *graph, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int, int);\r
+\r
+/// Draw vertical lines from points {x,y,z} to axis plane\r
 void mgl_stem_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
+void mgl_stem_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw vertical lines from points {x,y} to axis plane\r
 void mgl_stem_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
+void mgl_stem_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw vertical lines from points {x,y} with x in x-axis range to axis plane\r
 void mgl_stem(HMGL graph, HCDT y,      const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_stem_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw stairs for points in arrays {x,y,z}\r
 void mgl_step_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
+void mgl_step_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw stairs for points in arrays {x,y}\r
 void mgl_step_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
+void mgl_step_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw stairs for points in arrays {x,y} with x in x-axis range\r
 void mgl_step(HMGL graph, HCDT y,      const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_step_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw vertical bars from points {x,y,z} to axis plane\r
 void mgl_bars_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
+void mgl_bars_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw vertical bars from points {x,y} to axis plane\r
 void mgl_bars_xy(HMGL graph, HCDT x, HCDT y, const char *pen, const char *opt);\r
+void mgl_bars_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+/// Draw vertical bars from points {x,y} with x in x-axis range to axis plane\r
 void mgl_bars(HMGL graph, HCDT y,      const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_bars_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw horizontal bars from points {v,y} to axis plane\r
 void mgl_barh_yx(HMGL graph, HCDT y, HCDT v, const char *pen, const char *opt);\r
+void mgl_barh_yx_(uintptr_t *graph, uintptr_t *y, uintptr_t *v, const char *pen, const char *opt,int,int);\r
+/// Draw horizontal bars from points {v,y} with y in y-axis range to axis plane\r
 void mgl_barh(HMGL graph, HCDT v,      const char *pen, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_barh_(uintptr_t *graph, uintptr_t *v, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw chart for data a\r
 void mgl_chart(HMGL graph, HCDT a, const char *col, const char *opt);\r
-/*****************************************************************************/\r
+void mgl_chart_(uintptr_t *graph, uintptr_t *a, const char *col, const char *opt,int,int);\r
+\r
+/// Draw error boxes {ex,ey} at points {x,y}\r
 void mgl_error_exy(HMGL graph, HCDT x, HCDT y, HCDT ex, HCDT ey, const char *pen, const char *opt);\r
+void mgl_error_exy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *ex, uintptr_t *ey, const char *pen, const char *opt,int,int);\r
+/// Draw error boxes {ey} at points {x,y}\r
 void mgl_error_xy(HMGL graph, HCDT x, HCDT y, HCDT ey, const char *pen, const char *opt);\r
+void mgl_error_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *ey, const char *pen, const char *opt,int,int);\r
+/// Draw error boxes {ey} at points {x,y} with x in x-axis range\r
 void mgl_error(HMGL graph, HCDT y, HCDT ey, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_mark_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, const char *opt);\r
-void mgl_mark_xy(HMGL graph, HCDT x, HCDT y, HCDT r, const char *pen, const char *opt);\r
-void mgl_mark_y(HMGL graph, HCDT y, HCDT r, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_tube_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, const char *opt);\r
-void mgl_tube_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const char *pen, const char *opt);\r
-void mgl_tube_r(HMGL graph, HCDT y, HCDT r, const char *pen, const char *opt);\r
-void mgl_tube_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, mreal r, const char *pen, const char *opt);\r
-void mgl_tube_xy(HMGL graph, HCDT x, HCDT y, mreal r, const char *penl, const char *opt);\r
-void mgl_tube(HMGL graph, HCDT y, mreal r, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_candle_xyv(HMGL gr, HCDT x, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
-void mgl_candle_yv(HMGL gr, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
-void mgl_candle(HMGL gr, HCDT v, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_boxplot_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_boxplot_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_area_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
-void mgl_area_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_area_s_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_area_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_region_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int, int);\r
-void mgl_region_(uintptr_t *graph, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int, int);\r
-void mgl_stem_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
-void mgl_stem_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_stem_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_step_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
-void mgl_step_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_step_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_bars_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
-void mgl_bars_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_bars_(uintptr_t *graph, uintptr_t *y, const char *pen, const char *opt,int,int);\r
-void mgl_barh_yx_(uintptr_t *graph, uintptr_t *y, uintptr_t *v, const char *pen, const char *opt,int,int);\r
-void mgl_barh_(uintptr_t *graph, uintptr_t *v, const char *pen, const char *opt,int,int);\r
-void mgl_chart_(uintptr_t *graph, uintptr_t *a, const char *col, const char *opt,int,int);\r
 void mgl_error_(uintptr_t *graph, uintptr_t *y, uintptr_t *ey, const char *pen, const char *opt,int,int);\r
-void mgl_error_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *ey, const char *pen, const char *opt,int,int);\r
-void mgl_error_exy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *ex, uintptr_t *ey, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw marks with size r at points {x,y,z}\r
+void mgl_mark_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, const char *opt);\r
 void mgl_mark_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+/// Draw marks with size r at points {x,y}\r
+void mgl_mark_xy(HMGL graph, HCDT x, HCDT y, HCDT r, const char *pen, const char *opt);\r
 void mgl_mark_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+/// Draw marks with size r at points {x,y} with x in x-axis range\r
+void mgl_mark_y(HMGL graph, HCDT y, HCDT r, const char *pen, const char *opt);\r
 void mgl_mark_y_(uintptr_t *graph, uintptr_t *y, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw tube with variable radius r around curve {x,y,z}\r
+void mgl_tube_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, const char *opt);\r
 void mgl_tube_xyzr_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+/// Draw tube with variable radius r around curve {x,y}\r
+void mgl_tube_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const char *pen, const char *opt);\r
 void mgl_tube_xyr_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+/// Draw tube with variable radius r around curve {x,y} with x in x-axis range\r
+void mgl_tube_r(HMGL graph, HCDT y, HCDT r, const char *pen, const char *opt);\r
 void mgl_tube_r_(uintptr_t *graph, uintptr_t *y, uintptr_t *r, const char *pen, const char *opt,int,int);\r
+/// Draw tube with constant radius r around curve {x,y,z}\r
+void mgl_tube_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, double r, const char *pen, const char *opt);\r
 void mgl_tube_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, mreal *r, const char *pen, const char *opt,int,int);\r
+/// Draw tube with constant radius r around curve {x,y}\r
+void mgl_tube_xy(HMGL graph, HCDT x, HCDT y, double r, const char *penl, const char *opt);\r
 void mgl_tube_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, mreal *r, const char *pen, const char *opt,int,int);\r
+/// Draw tube with constant radius r around curve {x,y} with x in x-axis range\r
+void mgl_tube(HMGL graph, HCDT y, double r, const char *pen, const char *opt);\r
 void mgl_tube_(uintptr_t *graph, uintptr_t *y, mreal *r, const char *pen, const char *opt,int,int);\r
+\r
+/// Draw candle plot for data specified parametrically\r
+void mgl_candle_xyv(HMGL gr, HCDT x, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
 void mgl_candle_xyv_(uintptr_t *gr, uintptr_t *x, uintptr_t *v1, uintptr_t *v2, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int,int);\r
+/// Draw candle plot\r
+void mgl_candle_yv(HMGL gr, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
 void mgl_candle_yv_(uintptr_t *gr, uintptr_t *v1, uintptr_t *v2, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int,int);\r
+/// Draw candle plot with v1=v[i], v2=v[i+1]\r
+void mgl_candle(HMGL gr, HCDT v, HCDT y1, HCDT y2, const char *pen, const char *opt);\r
 void mgl_candle_(uintptr_t *gr, uintptr_t *y, uintptr_t *y1, uintptr_t *y2, const char *pen, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/prim.h b/include/mgl2/prim.h
index 0480481ea902d9aeb7e987b7f7141c7680732d4d..a32467253314df66b23e33820d478e7007e29a20 100644 (file)
--- a/include/mgl2/prim.h
+++ b/include/mgl2/prim.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * prim.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,100 +20,124 @@
 #ifndef _MGL_PRIM_H_\r
 #define _MGL_PRIM_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
-void mgl_mark(HMGL gr, mreal x,mreal y,mreal z,const char *mark);\r
-void mgl_ball(HMGL gr, mreal x,mreal y,mreal z);\r
-/*****************************************************************************/\r
-void mgl_line(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, const char *pen,int n);\r
-void mgl_curve(HMGL gr, mreal x1, mreal y1, mreal z1, mreal dx1, mreal dy1, mreal dz1, mreal x2, mreal y2, mreal z2, mreal dx2, mreal dy2, mreal dz2, const char *pen,int n);\r
-/*****************************************************************************/\r
-void mgl_error_box(HMGL gr, mreal x, mreal y, mreal z, mreal ex, mreal ey, mreal ez, const char *pen);\r
-/*****************************************************************************/\r
-void mgl_face(HMGL gr, mreal x0, mreal y0, mreal z0, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal x3, mreal y3, mreal z3, const char *stl);\r
-void mgl_facex(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wy, mreal wz, const char *stl, mreal dx, mreal dy);\r
-void mgl_facey(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wx, mreal wz, const char *stl, mreal dx, mreal dy);\r
-void mgl_facez(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wx, mreal wy, const char *stl, mreal dx, mreal dy);\r
-/*****************************************************************************/\r
-void mgl_sphere(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl);\r
-void mgl_drop(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl, mreal shift, mreal ap);\r
-void mgl_cone(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r1, mreal r2, const char *stl);\r
-void mgl_ellipse(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl);\r
-void mgl_rhomb(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl);\r
-/*****************************************************************************/\r
-void mgl_cones_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
-void mgl_cones_xz(HMGL graph, HCDT x, HCDT z, const char *pen, const char *opt);\r
-void mgl_cones(HMGL graph, HCDT z,     const char *pen, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_dew_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_dew_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *optl);\r
-/*****************************************************************************/\r
-void mgl_puts(HMGL graph, mreal x, mreal y, mreal z,const char *text, const char *font, mreal size);\r
-void mgl_putsw(HMGL graph, mreal x, mreal y, mreal z,const wchar_t *text, const char *font, mreal size);\r
-/*****************************************************************************/\r
-void mgl_puts_dir(HMGL graph, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, const char *text, const char *font, mreal size);\r
-void mgl_putsw_dir(HMGL graph, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, const wchar_t *text, const char *font, mreal size);\r
-/*****************************************************************************/\r
-void mgl_textmark_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *text, const char *fnt, const char *opt);\r
-void mgl_textmark_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const char *text, const char *fnt, const char *opt);\r
-void mgl_textmark_yr(HMGL graph, HCDT y, HCDT r, const char *text, const char *fnt, const char *opt);\r
-void mgl_textmark(HMGL graph, HCDT y, const char *text, const char *fnt, const char *opt);\r
-void mgl_textmarkw_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
-void mgl_textmarkw_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
-void mgl_textmarkw_yr(HMGL graph, HCDT y, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
-void mgl_textmarkw(HMGL graph, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_label_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *text, const char *fnt, const char *opt);\r
-void mgl_labelw_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const wchar_t *text, const char *fnt, const char *opt);\r
-void mgl_label_xy(HMGL graph, HCDT x, HCDT y, const char *text, const char *fnt, const char *opt);\r
-void mgl_labelw_xy(HMGL graph, HCDT x, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
-void mgl_label_y(HMGL graph, HCDT y, const char *text, const char *fnt, const char *opt);\r
-void mgl_labelw_y(HMGL graph, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
-/*****************************************************************************/\r
-/*****************************************************************************/\r
-void mgl_mark_(uintptr_t *gr, mreal *x,mreal *y,mreal *z,const char *mark,int);\r
-void mgl_ball_(uintptr_t *gr, mreal *x,mreal *y,mreal *z);\r
-/*****************************************************************************/\r
+\r
+/// Draws the mark at position {x,y,z}\r
+void mgl_mark(HMGL gr, double x,double y,double z,const char *mark);\r
+void mgl_mark_(uintptr_t *gr, mreal *x, mreal *y, mreal *z,const char *mark,int);\r
+/// Draws red point (ball) at position {x,y,z}\r
+void mgl_ball(HMGL gr, double x,double y,double z);\r
+void mgl_ball_(uintptr_t *gr, mreal *x, mreal *y, mreal *z);\r
+\r
+/// Draws the line between 2 points by specified pen\r
+void mgl_line(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, const char *pen,int n);\r
 void mgl_line_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, const char *pen,int *n,int);\r
+/// Draws the spline curve between 2 points by specified pen\r
+void mgl_curve(HMGL gr, double x1, double y1, double z1, double dx1, double dy1, double dz1, double x2, double y2, double z2, double dx2, double dy2, double dz2, const char *pen,int n);\r
 void mgl_curve_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *dx1, mreal *dy1, mreal *dz1, mreal *x2, mreal *y2, mreal *z2, mreal *dx2, mreal *dy2, mreal *dz2, const char *pen,int *n, int l);\r
-/*****************************************************************************/\r
+\r
+/// Draws the 3d error box {ex,ey,ez} for point {x,y,z}\r
+void mgl_error_box(HMGL gr, double x, double y, double z, double ex, double ey, double ez, const char *pen);\r
 void mgl_error_box_(uintptr_t* gr, mreal *x, mreal *y, mreal *z, mreal *ex, mreal *ey, mreal *ez, const char *pen, int);\r
-/*****************************************************************************/\r
+\r
+/// Draws the face between points with color stl (include interpolation up to 4 colors).\r
+void mgl_face(HMGL gr, double x0, double y0, double z0, double x1, double y1, double z1, double x2, double y2, double z2, double x3, double y3, double z3, const char *stl);\r
 void mgl_face_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, mreal *x3, mreal *y3, mreal *z3, const char *stl, int);\r
+/// Draws the face in y-z plane at point p with color stl (include interpolation up to 4 colors).\r
+void mgl_facex(HMGL gr, double x0, double y0, double z0, double wy, double wz, const char *stl, double dx, double dy);\r
 void mgl_facex_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *wy, mreal *wz, const char *stl, mreal *dx, mreal *dy, int l);\r
+/// Draws the face in x-z plane at point p with color stl (include interpolation up to 4 colors).\r
+void mgl_facey(HMGL gr, double x0, double y0, double z0, double wx, double wz, const char *stl, double dx, double dy);\r
 void mgl_facey_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *wx, mreal *wz, const char *stl, mreal *dx, mreal *dy, int l);\r
+/// Draws the face in x-y plane at point p with color stl (include interpolation up to 4 colors).\r
+void mgl_facez(HMGL gr, double x0, double y0, double z0, double wx, double wy, const char *stl, double dx, double dy);\r
 void mgl_facez_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *wx, mreal *wy, const char *stl, mreal *dx, mreal *dy, int l);\r
-/*****************************************************************************/\r
+\r
+/// Draws the sphere at point {x,y,z} with color stl and radius r\r
+void mgl_sphere(HMGL gr, double x, double y, double z, double r, const char *stl);\r
 void mgl_sphere_(uintptr_t* gr, mreal *x, mreal *y, mreal *z, mreal *r, const char *stl, int);\r
+/// Draws the drop at point {x,y,z} in direction {dx,dy,dz} with color stl and radius r\r
+void mgl_drop(HMGL gr, double x, double y, double z, double dx, double dy, double dz, double r, const char *stl, double shift, double ap);\r
 void mgl_drop_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, mreal *r, const char *stl, mreal *shift, mreal *ap, int);\r
+/// Draws the cone between points p1,p2 with radius r1,r2 and with style stl\r
+void mgl_cone(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r1, double r2, const char *stl);\r
 void mgl_cone_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, mreal *r1, mreal *r2, const char *stl, int);\r
+/// Draws the ellipse between points p1,p2 with color stl and width r\r
+void mgl_ellipse(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r, const char *stl);\r
 void mgl_ellipse_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, mreal *r, const char *stl, int);\r
+/// Draws the rhomb between points p1,p2 with color stl and width r\r
+void mgl_rhomb(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r, const char *stl);\r
 void mgl_rhomb_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, mreal *r, const char *stl, int);\r
-/*****************************************************************************/\r
+\r
+/// Draw cones from points {x,y,z} to axis plane\r
+void mgl_cones_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *pen, const char *opt);\r
 void mgl_cones_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw cones from points {x,z} to axis plane\r
+void mgl_cones_xz(HMGL graph, HCDT x, HCDT z, const char *pen, const char *opt);\r
 void mgl_coners_xz_(uintptr_t *graph, uintptr_t *x, uintptr_t *z, const char *pen, const char *opt,int,int);\r
+/// Draw cones from points {x,z} with x in x-axis range to axis plane\r
+void mgl_cones(HMGL graph, HCDT z,     const char *pen, const char *opt);\r
 void mgl_cones_(uintptr_t *graph, uintptr_t *z,        const char *pen, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
+/// Plot dew drops for vector field {ax,ay} parametrically depended on coordinate {x,y}\r
+void mgl_dew_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
+void mgl_dew_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot dew drops for vector field {ax,ay}\r
+void mgl_dew_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *optl);\r
+void mgl_dew_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int l);\r
+\r
+/// Print text in position {x,y,z} with specified font\r
+/* NOTE: Function don't have options because it can be part of group.*/\r
+void mgl_puts(HMGL graph, double x, double y, double z,const char *text, const char *font, double size);\r
 void mgl_puts_(uintptr_t *graph, mreal *x, mreal *y, mreal *z,const char *text, const char *font, mreal *size, int, int);\r
+void mgl_putsw(HMGL graph, double x, double y, double z,const wchar_t *text, const char *font, double size);\r
+\r
+/// Print text in position {x,y,z} along direction {dx,dy,dz} with specified font\r
+/* NOTE: Function don't have options because it can be part of group.*/\r
+void mgl_puts_dir(HMGL graph, double x, double y, double z, double dx, double dy, double dz, const char *text, const char *font, double size);\r
 void mgl_puts_dir_(uintptr_t *graph, mreal *x, mreal *y, mreal *z, mreal *dx, mreal *dy, mreal *dz, const char *text, const char *font, mreal *size, int, int);\r
-/*****************************************************************************/\r
+void mgl_putsw_dir(HMGL graph, double x, double y, double z, double dx, double dy, double dz, const wchar_t *text, const char *font, double size);\r
+\r
+/// Draw textual marks with size r at points {x,y,z}\r
+void mgl_textmark_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *text, const char *fnt, const char *opt);\r
 void mgl_textmark_xyzr_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *r, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_textmarkw_xyzr(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
+/// Draw textual marks with size r at points {x,y}\r
+void mgl_textmark_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const char *text, const char *fnt, const char *opt);\r
 void mgl_textmark_xyr_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *r, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_textmarkw_xyr(HMGL graph, HCDT x, HCDT y, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
+/// Draw textual marks with size r at points {x,y} with x in x-axis range\r
+void mgl_textmark_yr(HMGL graph, HCDT y, HCDT r, const char *text, const char *fnt, const char *opt);\r
 void mgl_textmark_yr_(uintptr_t *graph, uintptr_t *y, uintptr_t *r, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_textmarkw_yr(HMGL graph, HCDT y, HCDT r, const wchar_t *text, const char *fnt, const char *opt);\r
+/// Draw textual marks with size r=1 at points {x,y} with x in x-axis range\r
+void mgl_textmark(HMGL graph, HCDT y, const char *text, const char *fnt, const char *opt);\r
+void mgl_textmarkw(HMGL graph, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
 void mgl_textmark_(uintptr_t *graph, uintptr_t *y, const char *text, const char *fnt, const char *opt,int,int,int);\r
-/*****************************************************************************/\r
+\r
+/// Draw labels for points coordinate(s) at points {x,y,z}\r
+void mgl_label_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const char *text, const char *fnt, const char *opt);\r
 void mgl_label_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_labelw_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, const wchar_t *text, const char *fnt, const char *opt);\r
+/// Draw labels for points coordinate(s) at points {x,y}\r
+void mgl_label_xy(HMGL graph, HCDT x, HCDT y, const char *text, const char *fnt, const char *opt);\r
 void mgl_label_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_labelw_xy(HMGL graph, HCDT x, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
+/// Draw labels for points coordinate(s) at points {x,y} with x in x-axis range\r
+void mgl_label_y(HMGL graph, HCDT y, const char *text, const char *fnt, const char *opt);\r
+void mgl_labelw_y(HMGL graph, HCDT y, const wchar_t *text, const char *fnt, const char *opt);\r
 void mgl_label_y_(uintptr_t *graph, uintptr_t *y, const char *text, const char *fnt, const char *opt,int,int,int);\r
-/*****************************************************************************/\r
-void mgl_dew_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
-void mgl_dew_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int l);\r
-/*****************************************************************************/\r
+\r
+/// Draw table for values val along given direction with row labels text at position {x,y}\r
+void mgl_table(HMGL gr, double x, double y, HCDT val, const char *text, const char *fnt, const char *opt);\r
+void mgl_table_(uintptr_t *gr, mreal *x, mreal *y, uintptr_t *val, const char *text, const char *fnt, const char *opt,int,int,int);\r
+void mgl_tablew(HMGL gr, double x, double y, HCDT val, const wchar_t *text, const char *fnt, const char *opt);\r
+\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/qmathgl.h b/include/mgl2/qmathgl.h
new file mode 100644 (file)
index 0000000..b4c4173
--- /dev/null
+++ b/include/mgl2/qmathgl.h
@@ -0,0 +1,206 @@
+/***************************************************************************\r
+ * window.h is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#ifndef _MGL_QMATHGL_H_\r
+#define _MGL_QMATHGL_H_\r
+//-----------------------------------------------------------------------------\r
+#include <string>\r
+#include <QtGui/QWidget>\r
+#include <QtGui/QPixmap>\r
+#include <mgl2/wnd.h>\r
+//-----------------------------------------------------------------------------\r
+class QTextEdit;\r
+class QMenu;\r
+class QMainWindow;\r
+class QScrollArea;\r
+class QSpinBox;\r
+class QTimer;\r
+class mglCanvas;\r
+//-----------------------------------------------------------------------------\r
+/// Class is Qt widget which display MathGL graphics\r
+class QMathGL : public QWidget\r
+{\r
+       Q_OBJECT\r
+public:\r
+       QString appName;        ///< Application name for message boxes\r
+       bool autoResize;        ///< Allow auto resizing (default is false)\r
+       bool enableMouse;       ///< Enable mouse handlers\r
+       bool enableWheel;       ///< Enable mouse wheel handlers\r
+       QString primitives;     ///< Manual primitives, defined by user\r
+\r
+       QMathGL(QWidget *parent = 0, Qt::WindowFlags f = 0);\r
+       ~QMathGL();\r
+       double getRatio();\r
+       void setPopup(QMenu *p) {       popup = p;      }       ///< Set popup menu pointer\r
+       void setSize(int w, int h);             ///< Set window/picture sizes\r
+       void setGraph(HMGL GR); ///< Set grapher object\r
+       inline void setGraph(mglGraph *GR)\r
+       {       setGraph(GR->Self());   }\r
+       inline HMGL getGraph()  {       return (HMGL)gr;        }\r
+       /// Set drawing functions and its parameter\r
+       inline void setDraw(int (*func)(mglBase *gr, void *par), void *par=0)\r
+       {       draw_func = func;       draw_par = par; emit usePrimChanged(draw_func || draw); }\r
+       inline void setDraw(mglDraw *dr)\r
+       {       draw = dr;      emit usePrimChanged(draw_func || draw); }\r
+       inline void setDraw(int (*draw)(mglGraph *gr))\r
+       {       setDraw(draw?mgl_draw_graph:0,(void*)draw);     }\r
+       inline void zoomRegion(mreal xx1,mreal xx2,mreal yy1, mreal yy2)\r
+       {       x1=xx1; y1=yy1; x2=xx2; y2=yy2; }\r
+\r
+       int getPer()    {return int(per);}      ///< Get perspective value\r
+       int getPhi()    {return int(phi);}      ///< Get Phi-angle value\r
+       int getTet()    {return int(tet);}      ///< Get Theta-angle value\r
+       bool getAlpha() {return alpha;} ///< Get transparency state\r
+       bool getLight() {return light;} ///< Get lightning state\r
+       bool getZoom()  {return zoom;}  ///< Get mouse zooming state\r
+       bool getRotate(){return rotate;}        ///< Get mouse rotation state\r
+       bool isActive(int xs,int ys);   ///< Check if active point is pressed\r
+\r
+public slots:\r
+       void refresh();\r
+       void update();                  ///< Update picture\r
+       void copy();                    ///< copy graphics to clipboard\r
+       void copyClickCoor();   ///< copy click coordinates to clipboard\r
+       void print();                   ///< Print plot\r
+       void stop();                    ///< Stop execution\r
+       void setPer(int p);             ///< Set perspective value\r
+       void setPhi(int p);             ///< Set Phi-angle value\r
+       void setTet(int t);             ///< Set Theta-angle value\r
+       void setAlpha(bool a);  ///< Switch on/off transparency\r
+       void setLight(bool l);  ///< Switch on/off lightning\r
+       void setGrid(bool r);   ///< Switch on/off grid drawing\r
+       void imgSize(int w, int h);     ///< Set image size\r
+\r
+       void setZoom(bool z);   ///< Switch on/off mouse zooming\r
+       void setRotate(bool r); ///< Switch on/off mouse rotation\r
+       void zoomIn();                  ///< Zoom in graphics\r
+       void zoomOut();                 ///< Zoom out graphics\r
+       void restore();                 ///< Restore zoom and rotation to default values\r
+       //      void reload();                  ///< Reload data and execute script\r
+\r
+       void shiftLeft();               ///< Shift graphics to left direction\r
+       void shiftRight();              ///< Shift graphics to right direction\r
+       void shiftUp();                 ///< Shift graphics to up direction\r
+       void shiftDown();               ///< Shift graphics to down direction\r
+\r
+       void exportPNG(QString fname="");       ///< export to PNG file\r
+       void exportPNGs(QString fname="");      ///< export to PNG file (no transparency)\r
+       void exportGIF(QString fname="");       ///< export to GIF file\r
+       void exportJPG(QString fname="");       ///< export to JPEG file\r
+       void exportBPS(QString fname="");       ///< export to bitmap EPS file\r
+       void exportEPS(QString fname="");       ///< export to vector EPS file\r
+       void exportSVG(QString fname="");       ///< export to SVG file\r
+       void exportTEX(QString fname="");       ///< export to SVG file\r
+       void exportTGA(QString fname="");       ///< export to TGA file\r
+\r
+       void exportXYZ(QString fname="");       ///< export to XYZ file\r
+       void exportOBJ(QString fname="");       ///< export to OBJ file\r
+       void exportSTL(QString fname="");       ///< export to STL file\r
+       void exportOFF(QString fname="");       ///< export to OFF file\r
+//     void exportX3D(QString fname="");       ///< export to XYZ file\r
+       void exportPRC(QString fname="");       ///< export to PRC file\r
+       void exportMGLD(QString fname="");      ///< export to MGLD file\r
+       void setMGLFont(QString path);          ///< restore/load font for graphics\r
+\r
+       void addMark();                                         ///< add marker into primitives\r
+       void addLine();                                         ///< add line into primitives\r
+       void addRect();                                         ///< add rectangle into primitives\r
+       void addCurve();                                        ///< add curve into primitives\r
+       void addRhomb();                                        ///< add rhombus into primitives\r
+       void addEllipse();                                      ///< add ellipse into primitives\r
+       void addText(QString txt="");           ///< add text into primitives\r
+       void setStyle(int id, QString stl);///< set style for primitive with id\r
+\r
+       void adjust();          ///< Adjust plot size to fill entire window\r
+       void nextSlide();       ///< Show next slide\r
+       void prevSlide();       ///< Show previous slide\r
+       void animation(bool st=true);   ///< Start animation\r
+       void about();           ///< Show about information\r
+       void aboutQt();         ///< Show information about Qt version\r
+\r
+signals:\r
+       void gridChanged(int);          ///< Grid drawing changed (by mouse or by toolbar)\r
+       void phiChanged(int);           ///< Phi angle changed (by mouse or by toolbar)\r
+       void tetChanged(int);           ///< Tet angle changed (by mouse or by toolbar)\r
+       void perChanged(int);           ///< Perspective changed (by mouse or by toolbar)\r
+       void alphaChanged(bool);        ///< Transparency changed (by toolbar)\r
+       void lightChanged(bool);        ///< Lighting changed (by toolbar)\r
+       void zoomChanged(bool);         ///< Zooming changed (by toolbar)\r
+       void rotateChanged(bool);       ///< Rotation changed (by toolbar)\r
+       void usePrimChanged(bool);      ///< Use primitive changed (i.e. have or not drawing function)\r
+       void mouseClick(mreal,mreal,mreal);     ///< Position of mouse click\r
+       void frameChanged(int);         ///< Need another frame to show\r
+       void showWarn(QString);         ///< Show warnings\r
+       void posChanged(QString message);       ///< user click to show mouse position\r
+       void objChanged(int objId);     ///< User double-click to select object/line\r
+       void refreshData();\r
+       void doubleClick(int id);       ///< Double mouse click by object with id\r
+       void askStyle(int id);  ///< Update style\r
+\r
+protected:\r
+       void paintEvent(QPaintEvent *);\r
+       void resizeEvent(QResizeEvent *);\r
+       void mousePressEvent(QMouseEvent *);\r
+       void mouseReleaseEvent(QMouseEvent *);\r
+       void mouseMoveEvent(QMouseEvent *);\r
+       void wheelEvent(QWheelEvent *);\r
+       void mouseDoubleClickEvent(QMouseEvent *);\r
+\r
+       mglCanvas *gr;          ///< Built-in mglCanvasQT-er instance (used by default)\r
+       void *draw_par;         ///< Parameters for drawing function mglCanvasWnd::DrawFunc.\r
+       /// Drawing function for window procedure. It should return the number of frames.\r
+       int (*draw_func)(mglBase *gr, void *par);\r
+       mglDraw *draw;          ///< Class for drawing -- need to call directly due to inheritance mechanism\r
+       QString mousePos;       ///< Last mouse position\r
+       QPixmap pic;                    ///< Pixmap for drawing (changed by update)\r
+       double tet, phi;                ///< Rotation angles\r
+       double per;                     ///< Value of perspective ( must be in [0,1) )\r
+       bool alpha;                     ///< Transparency state\r
+       bool light;                     ///< Lightning state\r
+       bool zoom;                      ///< Mouse zoom state\r
+       bool grid;                      ///< Grid drawing state\r
+       bool rotate;                    ///< Mouse rotation state\r
+       mreal x1,x2,y1,y2;      ///< Zoom in region\r
+       mreal ax1,ax2,ay1,ay2;  ///< Axis range zoom\r
+       bool showMessage;       ///< Flag for showing messages (enabled by each execute())\r
+       QMenu *popup;           ///< Pointer to pop-up menu\r
+       QTimer *timer;          ///< Timer for animation\r
+private:\r
+       int x0, y0, xe, ye;             ///< Temporary variables for mouse\r
+       uchar *grBuf;\r
+};\r
+//-----------------------------------------------------------------------------\r
+/// Class for drawing the MGL script\r
+struct mglDrawScript : public mglDraw\r
+{\r
+       HMPR par;               ///< Parser to be used\r
+       QString text;   ///< Script to be drawn\r
+       long line;              ///< Line which will be highlited\r
+       mglDrawScript(HMPR p):mglDraw() {       par=p;  line=-1;        }\r
+       virtual ~mglDrawScript() {}\r
+       int Draw(mglGraph *gr)\r
+       {       gr->Highlight(line+1);  mgl_parse_textw(gr->Self(),par,text.toStdWString().c_str());    return 0;       }\r
+};\r
+//-----------------------------------------------------------------------------\r
+/// Convert bitmap from mglCanvasWnd to QPixmap\r
+void mglConvertFromGraph(QPixmap &pic, mglCanvas *gr, uchar **buf);\r
+/// Make menu, toolbars and return popup menu for MainWindow\r
+QMenu *mglMakeMenu(QMainWindow* Wnd, QMathGL* QMGL, QSpinBox*& tet, QSpinBox*& phi);\r
+//-----------------------------------------------------------------------------\r
+#endif\r

diff --git a/include/mgl2/qt.h b/include/mgl2/qt.h
index 59dc72bee90f4bfbf207d4b7a7a55fba42dbbf62..a346191f37073be6c9548435eeb9a0b88a9bd68c 100644 (file)
--- a/include/mgl2/qt.h
+++ b/include/mgl2/qt.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * window.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -19,206 +19,39 @@
  ***************************************************************************/\r
 #ifndef _MGL_QT_H_\r
 #define _MGL_QT_H_\r
-/*****************************************************************************/\r
-#ifdef __cplusplus\r
+#include <mgl2/base.h>\r
 //-----------------------------------------------------------------------------\r
-#include "mgl2/canvas_wnd.h"\r
-#if MGL_HAVE_QT\r
-#include <QtGui/QWidget>\r
-#include <QtGui/QPixmap>\r
+#ifdef __cplusplus\r
+extern "C" {\r
+#endif\r
+/// Creates Qt window for plotting\r
+HMGL mgl_create_graph_qt(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
+uintptr_t mgl_create_graph_qt_(const char *title, int);\r
+/// Run main Qt loop for event handling.\r
+int mgl_qt_run();\r
+int mgl_qt_run_();\r
+#ifdef __cplusplus\r
+}\r
 //-----------------------------------------------------------------------------\r
-class QTextEdit;\r
-class QMenu;\r
-class QMainWindow;\r
-class QScrollArea;\r
-class QSpinBox;\r
-class QTimer;\r
+#include <mgl2/wnd.h>\r
 //-----------------------------------------------------------------------------\r
-/// Class is Qt widget which display MathGL graphics\r
-class QMathGL : public QWidget\r
+/// Wrapper class for windows displaying graphics\r
+class mglQT : public mglWnd\r
 {\r
-       Q_OBJECT\r
 public:\r
-       QString appName;        ///< Application name for message boxes\r
-       bool autoResize;        ///< Allow auto resizing (default is false)\r
-\r
-       QMathGL(QWidget *parent = 0, Qt::WindowFlags f = 0);\r
-       ~QMathGL();\r
-       double getRatio()       {       return double(gr->GetWidth())/gr->GetHeight();  };\r
-       void setPopup(QMenu *p) {       popup = p;      };      ///< Set popup menu pointer\r
-       void setSize(int w, int h);             ///< Set window/picture sizes\r
-       void setGraph(mglCanvas *GR)    ///< Set grapher object\r
-       {       if(gr)  {       delete gr;      gr=GR;  }       }\r
-       inline void setGraph(mglGraph *GR)\r
-       {       setGraph(dynamic_cast<mglCanvas *>(GR->Self()));        }\r
-       inline HMGL getGraph()  {       return gr;      }\r
-       /// Set drawing functions and its parameter\r
-       inline void setDraw(int (*func)(mglBase *gr, void *par), void *par=0)\r
-       {       draw_func = func;       draw_par = par; }\r
-       inline void setDraw(mglDraw *dr)\r
-       {       draw = dr;      }\r
-       inline void setDraw(int (*draw)(mglGraph *gr))\r
-       {       setDraw(mgl_draw_graph,(void*)draw);    }\r
-       inline void zoomRegion(mreal xx1,mreal xx2,mreal yy1, mreal yy2)\r
-       {       x1=xx1; y1=yy1; x2=xx2; y2=yy2; }\r
-\r
-       int getPer()    {return int(per);};     ///< Get perspective value\r
-       int getPhi()    {return int(phi);};     ///< Get Phi-angle value\r
-       int getTet()    {return int(tet);};     ///< Get Theta-angle value\r
-       bool getAlpha() {return alpha;};        ///< Get transparency state\r
-       bool getLight() {return light;};        ///< Get lightning state\r
-       bool getZoom()  {return zoom;};         ///< Get mouse zooming state\r
-       bool getRotate(){return rotate;};       ///< Get mouse rotation state\r
-\r
-public slots:\r
-       void refresh();\r
-       void update();                  ///< Update picture\r
-       void copy();                    ///< copy graphics to clipboard\r
-       void copyClickCoor();   ///< copy click coordinates to clipboard\r
-       void print();                   ///< Print plot\r
-       void stop();                    ///< Stop execution\r
-       void setPer(int p);             ///< Set perspective value\r
-       void setPhi(int p);             ///< Set Phi-angle value\r
-       void setTet(int t);             ///< Set Theta-angle value\r
-       void setAlpha(bool a);  ///< Switch on/off transparency\r
-       void setLight(bool l);  ///< Switch on/off lightning\r
-       void setGrid(bool r);   ///< Switch on/off grid drawing\r
-       void imgSize(int w, int h);     ///< Set image size\r
-\r
-       void setZoom(bool z);   ///< Switch on/off mouse zooming\r
-       void setRotate(bool r); ///< Switch on/off mouse rotation\r
-       void zoomIn();                  ///< Zoom in graphics\r
-       void zoomOut();                 ///< Zoom out graphics\r
-       void restore();                 ///< Restore zoom and rotation to default values\r
-       //      void reload();                  ///< Reload data and execute script\r
-       void shiftLeft();               ///< Shift graphics to left direction\r
-       void shiftRight();              ///< Shift graphics to right direction\r
-       void shiftUp();                 ///< Shift graphics to up direction\r
-       void shiftDown();               ///< Shift graphics to down direction\r
-\r
-       void exportPNG(QString fname="");       ///< export to PNG file\r
-       void exportPNGs(QString fname="");      ///< export to PNG file (no transparency)\r
-       void exportGIF(QString fname="");       ///< export to GIF file\r
-       void exportJPG(QString fname="");       ///< export to JPEG file\r
-       void exportBPS(QString fname="");       ///< export to bitmap EPS file\r
-       void exportEPS(QString fname="");       ///< export to vector EPS file\r
-       void exportSVG(QString fname="");       ///< export to SVG file\r
-       void exportTEX(QString fname="");       ///< export to SVG file\r
-       void exportTGA(QString fname="");       ///< export to TGA file\r
-\r
-       void exportXYZ(QString fname="");       ///< export to XYZ file\r
-       void exportOBJ(QString fname="");       ///< export to OBJ file\r
-       void exportSTL(QString fname="");       ///< export to STL file\r
-       void exportOFF(QString fname="");       ///< export to OFF file\r
-//     void exportX3D(QString fname="");       ///< export to XYZ file\r
-       void exportPRC(QString fname="");       ///< export to PRC file\r
-       void setMGLFont(QString path);          ///< restore/load font for graphics\r
-\r
-       void adjust();          ///< Adjust plot size to fill entire window\r
-       void nextSlide();       ///< Show next slide\r
-       void prevSlide();       ///< Show previous slide\r
-       void animation(bool st=true);   ///< Start animation\r
-       void about();           ///< Show about information\r
-       void aboutQt();         ///< Show information about Qt version\r
-signals:\r
-       void gridChanged(int);          ///< Grid drawing changed (by mouse or by toolbar)\r
-       void phiChanged(int);           ///< Phi angle changed (by mouse or by toolbar)\r
-       void tetChanged(int);           ///< Tet angle changed (by mouse or by toolbar)\r
-       void perChanged(int);           ///< Perspective changed (by mouse or by toolbar)\r
-       void alphaChanged(bool);        ///< Transparency changed (by toolbar)\r
-       void lightChanged(bool);        ///< Lighting changed (by toolbar)\r
-       void zoomChanged(bool);         ///< Zooming changed (by toolbar)\r
-       void rotateChanged(bool);       ///< Rotation changed (by toolbar)\r
-       void mouseClick(mreal,mreal,mreal);     ///< Position of mouse click\r
-       void frameChanged(int);         ///< Need another frame to show\r
-       void showWarn(QString);         ///< Show warnings\r
-       void posChanged(QString message);       ///< user click to show mouse position\r
-       void objChanged(int objId);                     ///< User double-click to select object/line\r
-       void refreshData();\r
-\r
-protected:\r
-       void paintEvent(QPaintEvent *);\r
-       void resizeEvent(QResizeEvent *);\r
-       void mousePressEvent(QMouseEvent *);\r
-       void mouseReleaseEvent(QMouseEvent *);\r
-       void mouseMoveEvent(QMouseEvent *);\r
-\r
-       mglCanvas *gr;          ///< Built-in mglCanvasQT-er instance (used by default)\r
-       void *draw_par;         ///< Parameters for drawing function mglCanvasWnd::DrawFunc.\r
-       /// Drawing function for window procedure. It should return the number of frames.\r
-       int (*draw_func)(mglBase *gr, void *par);\r
-       mglDraw *draw;          ///< Class for drawing -- need to call directly due to inheritance mechanism\r
-       QString mousePos;       ///< Last mouse position\r
-       QPixmap pic;            ///< Pixmap for drawing (changed by update)\r
-       double tet, phi;        ///< Rotation angles\r
-       double per;                     ///< Value of perspective ( must be in [0,1) )\r
-       bool alpha;                     ///< Transparency state\r
-       bool light;                     ///< Lightning state\r
-       bool zoom;                      ///< Mouse zoom state\r
-       bool grid;                      ///< Grid drawing state\r
-       bool rotate;            ///< Mouse rotation state\r
-       mreal x1,x2,y1,y2;      ///< Zoom in region\r
-       bool showMessage;       ///< Flag for showing messages (enabled by each execute())\r
-       QMenu *popup;           ///< Pointer to pop-up menu\r
-       QTimer *timer;          ///< Timer for animation\r
-private:\r
-       int x0, y0, xe, ye;             ///< Temporary variables for mouse\r
-       uchar *grBuf;\r
+       mglQT(const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_qt(0,title,0,0);  }\r
+       mglQT(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=NULL, void (*load)(void *p)=0) : mglWnd()\r
+       {       gr = mgl_create_graph_qt(draw,title,par,load);  }\r
+       mglQT(int (*draw)(mglGraph *gr), const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_qt(draw?mgl_draw_graph:0,title,(void*)draw,0);    }\r
+       mglQT(mglDraw *draw, const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_qt(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
+               mgl_set_click_func(gr, mgl_click_class);        }\r
+       int Run()       {       return mgl_qt_run();    }       ///< Run main loop for event handling\r
 };\r
 //-----------------------------------------------------------------------------\r
-/// Base class for windows containing MathGL graphics\r
-class mglCanvasQT : public mglCanvasWnd\r
-{\r
-public:\r
-using mglCanvasWnd::Window;\r
-       int sshow;              ///< Current state of animation switch (toggle button)\r
-       QMathGL *QMGL;  ///< Control which draw graphics\r
-       QMainWindow *Wnd;       ///< Pointer to window\r
-\r
-       mglCanvasQT();\r
-\r
-       // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Ñëóæåáíûå ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
-       /// Create a window for plotting. Now implemeted only for GLUT.\r
-       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p),const char *title,\r
-                                               void *par=NULL, void (*reload)(void *p)=NULL, bool maximize=false);\r
-       /// Switch on/off transparency (do not overwrite switches in user drawing function)\r
-       void ToggleAlpha();\r
-       /// Switch on/off lighting (do not overwrite switches in user drawing function)\r
-       void ToggleLight();\r
-       void ToggleRotate();///< Switch on/off rotation by mouse\r
-       void ToggleZoom();      ///< Switch on/off zooming by mouse\r
-       void ToggleNo();        ///< Switch off all zooming and rotation\r
-       void Update();          ///< Update picture by calling user drawing function\r
-       void Adjust();          ///< Adjust size of bitmap to window size\r
-       void GotoFrame(int d);  ///< Show arbitrary frame (use relative step)\r
-       void Animation();               ///< Run slideshow (animation) of frames\r
-\r
-protected:\r
-       QScrollArea *scroll;    ///< Scrolling area\r
-       QMenu *popup;                   ///< Popup menu\r
-       QSpinBox *tet, *phi;    ///< Spin box for angles\r
-};\r
-//-----------------------------------------------------------------------------\r
-/// Class for drawing the MGL script\r
-struct mglDrawScript : public mglDraw\r
-{\r
-       HMPR par;               ///< Parser to be used\r
-       QString text;   ///< Script to be drawn\r
-       long line;              ///< Line which will be highlited\r
-       mglDrawScript(HMPR p)   {       par=p;  line=-1;        }\r
-       int Draw(mglGraph *gr)\r
-       {       gr->Highlight(line+1);  mgl_parse_text(gr->Self(),par,text.toAscii());  return 0;       }\r
-};\r
-//-----------------------------------------------------------------------------\r
-/// Convert bitmap from mglCanvasWnd to QPixmap\r
-void mglConvertFromGraph(QPixmap &pic, mglCanvas *gr, uchar **buf);\r
-/// Make menu, toolbars and return popup menu for MainWindow\r
-QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi);\r
-//-----------------------------------------------------------------------------\r
 void mgl_ask_qt(const wchar_t *quest, wchar_t *res);\r
 //-----------------------------------------------------------------------------\r
-#else\r
-#error "Please enable Qt support"\r
-#endif\r
 #endif\r
 #endif\r

diff --git a/include/mgl2/surf.h b/include/mgl2/surf.h
index 5565009e2ed888baa16f0f97796d73382a0b04a3..dd5e20548ee170402a0c41ae6aafdcf0c21eb413 100644 (file)
--- a/include/mgl2/surf.h
+++ b/include/mgl2/surf.h
@@ -1,90 +1,130 @@
 /***************************************************************************\r
  * surf.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
- *   This program is free software; you can redistribute it and/or modify  *
- *   it under the terms of the GNU Library General Public License as       *
- *   published by the Free Software Foundation; either version 3 of the    *
- *   License, or (at your option) any later version.                       *
- *                                                                         *
- *   This program is distributed in the hope that it will be useful,       *
- *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
- *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
- *   GNU General Public License for more details.                          *
- *                                                                         *
- *   You should have received a copy of the GNU Library General Public     *
- *   License along with this program; if not, write to the                 *
- *   Free Software Foundation, Inc.,                                       *
- *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
- ***************************************************************************/
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
 #ifndef _MGL_SURF_H_\r
-#define _MGL_SURF_H_
+#define _MGL_SURF_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
-#ifdef __cplusplus
+//-----------------------------------------------------------------------------\r
+#ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+\r
+/// Draw surface by formula with x,y in axis range\r
 void mgl_fsurf(HMGL graph, const char *fz, const char *stl, const char *opt);\r
+void mgl_fsurf_(uintptr_t *graph, const char *fz, const char *stl, const char *opt,int,int,int);\r
+/// Draw surface by formulas parametrically depended on u,v in range [0,1]\r
 void mgl_fsurf_xyz(HMGL graph, const char *fx, const char *fy, const char *fz, const char *stl, const char *opt);\r
+void mgl_fsurf_xyz_(uintptr_t *graph, const char *fx, const char *fy, const char *fz, const char *stl, const char *opt, int, int, int, int, int);\r
+\r
+/// Draw grid lines for density plot of 2d data specified parametrically\r
 void mgl_grid_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *stl, const char *opt);\r
+void mgl_grid_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *stl, const char *opt,int,int);\r
+/// Draw grid lines for density plot of 2d data\r
 void mgl_grid(HMGL graph, HCDT a,const char *stl, const char *opt);\r
+void mgl_grid_(uintptr_t *graph, uintptr_t *a,const char *stl, const char *opt,int,int);\r
+\r
+/// Draw mesh lines for 2d data specified parametrically\r
 void mgl_mesh_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_mesh_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw mesh lines for 2d data\r
 void mgl_mesh(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_mesh_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw mesh lines for 2d data specified parametrically\r
 void mgl_fall_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_fall_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw mesh lines for 2d data\r
 void mgl_fall(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_fall_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw belts for 2d data specified parametrically\r
 void mgl_belt_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_belt_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw belts for 2d data\r
 void mgl_belt(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_belt_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw surface for 2d data specified parametrically with color proportional to z\r
 void mgl_surf_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_surf_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw surface for 2d data with color proportional to z\r
 void mgl_surf(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_surf_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw density plot for 2d data specified parametrically\r
 void mgl_dens_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_dens_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw density plot for 2d data\r
 void mgl_dens(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_dens_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw vertical boxes for 2d data specified parametrically\r
 void mgl_boxs_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_boxs_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+/// Draw vertical boxes for 2d data\r
 void mgl_boxs(HMGL graph, HCDT z, const char *sch, const char *opt);\r
+void mgl_boxs_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw vertical tiles for 2d data specified parametrically\r
 void mgl_tile_xy(HMGL graph, HCDT x, HCDT y, HCDT z, const char *sch, const char *opt);\r
+void mgl_tile_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);\r
+/// Draw vertical tiles for 2d data\r
 void mgl_tile(HMGL graph, HCDT z, const char *sch, const char *opt);\r
-void mgl_tiles_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *sch, const char *opt);\r
-void mgl_tiles(HMGL graph, HCDT z, HCDT r, const char *sch, const char *opt);\r
-void mgl_surfc_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
-void mgl_surfc(HMGL graph, HCDT z, HCDT c, const char *sch, const char *opt);\r
-void mgl_surfa_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
-void mgl_surfa(HMGL graph, HCDT z, HCDT c, const char *sch, const char *opt);\r
-void mgl_stfa_xy(HMGL graph, HCDT x, HCDT y, HCDT re, HCDT im, int dn, const char *sch, const char *opt);\r
-void mgl_stfa(HMGL graph, HCDT re, HCDT im, int dn, const char *sch, const char *opt);\r
-void mgl_map_xy(HMGL graph, HCDT x, HCDT y, HCDT a, HCDT b, const char *sch, const char *opt);\r
-void mgl_map(HMGL graph, HCDT a, HCDT b, const char *sch, const char *opt);\r
-/*****************************************************************************/\r
-void mgl_fsurf_(uintptr_t *graph, const char *fz, const char *stl, const char *opt,int,int,int);\r
-void mgl_fsurf_xyz_(uintptr_t *graph, const char *fx, const char *fy, const char *fz, const char *stl, const char *opt, int, int, int, int, int);
-void mgl_grid_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *stl, const char *opt,int,int);\r
-void mgl_grid_(uintptr_t *graph, uintptr_t *a,const char *stl, const char *opt,int,int);\r
-void mgl_mesh_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_mesh_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_fall_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_fall_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_belt_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_belt_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_surf_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_surf_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_dens_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_dens_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_boxs_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_boxs_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
-void mgl_tile_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *a, const char *sch, const char *opt,int,int);
 void mgl_tile_(uintptr_t *graph, uintptr_t *z, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw vertical tiles with variable size r for 2d data specified parametrically\r
+void mgl_tiles_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT r, const char *sch, const char *opt);\r
 void mgl_tiles_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw vertical tiles with variable size r for 2d data\r
+void mgl_tiles(HMGL graph, HCDT z, HCDT r, const char *sch, const char *opt);\r
 void mgl_tiles_(uintptr_t *graph, uintptr_t *z, uintptr_t *r, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw surface for 2d data specified parametrically with color proportional to c\r
+void mgl_surfc_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
 void mgl_surfc_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw surface for 2d data with color proportional to c\r
+void mgl_surfc(HMGL graph, HCDT z, HCDT c, const char *sch, const char *opt);\r
 void mgl_surfc_(uintptr_t *graph, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw surface for 2d data specified parametrically with alpha proportional to c\r
+void mgl_surfa_xy(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, const char *opt);\r
 void mgl_surfa_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+/// Draw surface for 2d data with alpha proportional to c\r
+void mgl_surfa(HMGL graph, HCDT z, HCDT c, const char *sch, const char *opt);\r
 void mgl_surfa_(uintptr_t *graph, uintptr_t *z, uintptr_t *c, const char *sch, const char *opt,int,int);\r
+\r
+/// Draw density plot for spectra-gramm specified parametrically\r
+void mgl_stfa_xy(HMGL graph, HCDT x, HCDT y, HCDT re, HCDT im, int dn, const char *sch, const char *opt);\r
 void mgl_stfa_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *re, uintptr_t *im, int *dn, const char *sch, const char *opt,int, int);\r
+/// Draw density plot for spectra-gramm\r
+void mgl_stfa(HMGL graph, HCDT re, HCDT im, int dn, const char *sch, const char *opt);\r
 void mgl_stfa_(uintptr_t *graph, uintptr_t *re, uintptr_t *im, int *dn, const char *sch, const char *opt,int, int);\r
+\r
+/// Color map of matrix a to matrix b, both matrix can parametrically depend on coordinates\r
+void mgl_map_xy(HMGL graph, HCDT x, HCDT y, HCDT a, HCDT b, const char *sch, const char *opt);\r
 void mgl_map_xy_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *a, uintptr_t *b, const char *sch, const char *opt,int,int);\r
+/// Color map of matrix a to matrix b\r
+void mgl_map(HMGL graph, HCDT a, HCDT b, const char *sch, const char *opt);\r
 void mgl_map_(uintptr_t *graph, uintptr_t *a, uintptr_t *b, const char *sch, const char *opt,int,int);\r
-/*****************************************************************************/\r
+\r
 #ifdef __cplusplus\r
 }\r
-#endif
-/*****************************************************************************/\r
-#endif
+#endif\r
+//-----------------------------------------------------------------------------\r
+#endif\r

diff --git a/include/mgl2/type.h b/include/mgl2/type.h
index f296432af66a205e5634ffefc8e3337845938bf8..e486f6d484aa447cdfd5036c68c386ab0181d668 100644 (file)
--- a/include/mgl2/type.h
+++ b/include/mgl2/type.h
@@ -1,6 +1,6 @@
 /***************************************************************************
  * type.h is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -26,6 +26,7 @@
 //-----------------------------------------------------------------------------
 const mreal Pi = M_PI;
 const mreal NaN = NAN;
+const mreal mgl_min_a = 1./256;
 //-----------------------------------------------------------------------------
 #define MGL_SET_XYZ(p,xx,yy,zz)                {p.x=(xx);p.y=(yy);p.z=(zz);}
 #define MGL_SET_XY(p,xx,yy)                    {p.x=(xx);p.y=(yy);p.z=0;}
@@ -113,14 +114,16 @@ struct mglColor
        /// Set color from symbolic id
        void Set(char p, float bright=1);
        /// Copy color from other one
-       inline bool operator==(const mglColor &c)
-       {       return (r==c.r && g==c.g && b==c.b && a==c.a);  }
-       inline bool operator!=(const mglColor &c)
-       {       return (r!=c.r || g!=c.g || b!=c.b || a!=c.a);  }
+       inline bool operator==(const mglColor &c) const
+       {       return !memcmp(this, &c, sizeof(mglColor));     }
+       inline bool operator!=(const mglColor &c) const
+       {       return memcmp(this, &c, sizeof(mglColor));              }
+       inline bool operator<(const mglColor &c) const
+       {       return memcmp(this, &c, sizeof(mglColor))<0;    }
        // transparency still the same
-       inline void operator*=(float v)                         {       r*=v;   g*=v;   b*=v;   }
-       inline void operator+=(const mglColor &c)       {       r+=c.r; g+=c.g; b+=c.b; }
-       inline void operator-=(const mglColor &c)       {       r-=c.r; g-=c.g; b-=c.b; }
+       inline void operator*=(float v)                         {       r*=v;   g*=v;   b*=v;   a*=v;   }
+       inline void operator+=(const mglColor &c)       {       r+=c.r; g+=c.g; b+=c.b; a+=c.a; }
+       inline void operator-=(const mglColor &c)       {       r-=c.r; g-=c.g; b-=c.b; a-=c.a; }
 };
 #ifndef SWIG
 inline mglColor operator+(const mglColor &a, const mglColor &b)
@@ -137,4 +140,4 @@ inline mglColor operator!(const mglColor &a)
 {      return mglColor(1-a.r, 1-a.g, 1-a.b, a.a);      }
 #endif
 //-----------------------------------------------------------------------------
-#endif
\ No newline at end of file
+#endif

diff --git a/include/mgl2/vect.h b/include/mgl2/vect.h
index 566b4b0df453d65cb8b77e3ab068e6884cccb882..2406c537e753db5378782ab6276b8b568a962b69 100644 (file)
--- a/include/mgl2/vect.h
+++ b/include/mgl2/vect.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * vect.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,69 +20,89 @@
 #ifndef _MGL_VECT_H_\r
 #define _MGL_VECT_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
+/// Plot vectors at position {x,y} along {ax,ay} with length/color proportional to |a|\r
 void mgl_traj_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_traj_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-\r
-void mgl_vect_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_vect_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_vect_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-void mgl_vect_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-\r
-void mgl_flow_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_flow_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_flow_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-void mgl_flow_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-\r
-void mgl_flowp_xy(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_flowp_2d(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
-void mgl_flowp_xyz(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-void mgl_flowp_3d(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
-\r
-void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, mreal r0, const char *opt);\r
-void mgl_pipe_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, mreal r0, const char *opt);\r
-void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, mreal r0, const char *opt);\r
-void mgl_pipe_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, mreal r0, const char *opt);\r
-\r
-void mgl_grad_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ph, const char *sch, const char *opt);\r
-void mgl_grad_xy(HMGL gr, HCDT x, HCDT y, HCDT ph, const char *sch, const char *opt);\r
-void mgl_grad(HMGL gr, HCDT ph, const char *sch, const char *opt);\r
-\r
-/*****************************************************************************/\r
 void mgl_traj_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot vectors at position {x,y,z} along {ax,ay,az} with length/color proportional to |a|\r
+void mgl_traj_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_traj_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
 \r
+/// Plot vector field {ax,ay} parametrically depended on coordinate {x,y} with length/color proportional to |a|\r
+void mgl_vect_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_vect_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot vector field {ax,ay} with length/color proportional to |a|\r
+void mgl_vect_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_vect_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with length/color proportional to |a|\r
+void mgl_vect_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_vect_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
+/// Plot vector field {ax,ay,az} with length/color proportional to |a|\r
+void mgl_vect_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_vect_3d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
 \r
+/// Plot flows for vector field {ax,ay} parametrically depended on coordinate {x,y} with color proportional to |a|\r
+void mgl_flow_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_flow_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot flows for vector field {ax,ay} with color proportional to |a|\r
+void mgl_flow_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_flow_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int,int);\r
+/// Plot flows for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
+void mgl_flow_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_flow_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
+/// Plot flows for vector field {ax,ay,az} with color proportional to |a|\r
+void mgl_flow_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_flow_3d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
 \r
+/// Plot flow from point p for vector field {ax,ay} parametrically depended on coordinate {x,y} with color proportional to |a|\r
+void mgl_flowp_xy(HMGL gr, double x0, double y0, double z0, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_flowp_xy_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int, int);\r
+/// Plot flow from point p for vector field {ax,ay} with color proportional to |a|\r
+void mgl_flowp_2d(HMGL gr, double x0, double y0, double z0, HCDT ax, HCDT ay, const char *sch, const char *opt);\r
 void mgl_flowp_2d_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0, uintptr_t *ax, uintptr_t *ay, const char *sch, const char *opt,int, int);\r
+/// Plot flow from point p for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color proportional to |a|\r
+void mgl_flowp_xyz(HMGL gr, double x0, double y0, double z0, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_flowp_xyz_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int, int);\r
+/// Plot flow from point p for vector field {ax,ay,az} with color proportional to |a|\r
+void mgl_flowp_3d(HMGL gr, double x0, double y0, double z0, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt);\r
 void mgl_flowp_3d_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, const char *opt,int,int);\r
 \r
+/// Plot flow pipes for vector field {ax,ay} parametrically depended on coordinate {x,y} with color and radius proportional to |a|\r
+void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, double r0, const char *opt);\r
 void mgl_pipe_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ax, uintptr_t *ay, const char *sch, mreal *r0, const char *opt,int,int);\r
+/// Plot flow pipes for vector field {ax,ay} with color and radius proportional to |a|\r
+void mgl_pipe_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, double r0, const char *opt);\r
 void mgl_pipe_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, mreal *r0, const char *opt,int,int);\r
+/// Plot flow pipes for vector field {ax,ay,az} parametrically depended on coordinate {x,y,z} with color and radius proportional to |a|\r
+void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, double r0, const char *opt);\r
 void mgl_pipe_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *r0, const char *opt,int,int);\r
+/// Plot flow pipes for vector field {ax,ay,az} with color and radius proportional to |a|\r
+void mgl_pipe_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, double r0, const char *opt);\r
 void mgl_pipe_3d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *r0, const char *opt,int,int);\r
 \r
+/// Plot flows for gradient of scalar field phi parametrically depended on coordinate {x,y,z}\r
+void mgl_grad_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ph, const char *sch, const char *opt);\r
 void mgl_grad_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ph, const char *sch, const char *opt,int, int);\r
+/// Plot flows for gradient of scalar field phi parametrically depended on coordinate {x,y}\r
+void mgl_grad_xy(HMGL gr, HCDT x, HCDT y, HCDT ph, const char *sch, const char *opt);\r
 void mgl_grad_xy_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *ph, const char *sch, const char *opt,int,int);\r
+/// Plot flows for gradient of scalar field phi\r
+void mgl_grad(HMGL gr, HCDT ph, const char *sch, const char *opt);\r
 void mgl_grad_(uintptr_t *gr, uintptr_t *ph, const char *sch, const char *opt,int,int);\r
 \r
-/*****************************************************************************/\r
+/// Draw vector plot at slice for 3d data specified parametrically\r
+void mgl_vect3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, double sVal, const char *opt);\r
+void mgl_vect3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *sVal, const char *opt,int,int);\r
+/// Draw vector plot at slice for 3d data\r
+void mgl_vect3(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, double sVal, const char *opt);\r
+void mgl_vect3_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *sVal, const char *opt,int,int);\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/volume.h b/include/mgl2/volume.h
index 98954463f2ae12def6d1ce05244941e9ab3f1bfc..f5871d230b640020d4d8a020f0b9dd066f7a213f 100644 (file)
--- a/include/mgl2/volume.h
+++ b/include/mgl2/volume.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * volume.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -20,60 +20,66 @@
 #ifndef _MGL_VOL_H_\r
 #define _MGL_VOL_H_\r
 #include "mgl2/base.h"\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 extern "C" {\r
 #endif\r
-/*****************************************************************************/\r
-void mgl_surf3_xyz_val(HMGL graph, mreal Val, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
-void mgl_surf3_val(HMGL graph, mreal Val, HCDT a, const char *stl, const char *opt);\r
-void mgl_surf3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
-void mgl_surf3(HMGL graph, HCDT a, const char *stl, const char *opt);\r
-\r
-void mgl_surf3a_xyz_val(HMGL graph, mreal Val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3a_val(HMGL graph, mreal Val, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3a_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3a(HMGL graph, HCDT a, HCDT b, const char *stl, const char *opt);\r
-\r
-void mgl_surf3c_xyz_val(HMGL graph, mreal Val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3c_val(HMGL graph, mreal Val, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3c_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
-void mgl_surf3c(HMGL graph, HCDT a, HCDT b, const char *stl, const char *opt);\r
-\r
-// NOTE: now style '.' draws dots instead of faces\r
-void mgl_cloud_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
-void mgl_cloud(HMGL graph, HCDT a, const char *stl, const char *opt);\r
-\r
-void mgl_beam_val(HMGL graph, mreal Val, HCDT tr, HCDT g1, HCDT g2, HCDT a, mreal r, const char *stl, int norm);\r
-void mgl_beam(HMGL graph, HCDT tr, HCDT g1, HCDT g2, HCDT a, mreal r, const char *stl, int norm, int num);\r
-\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
+/// Draw isosurface for 3d data specified parametrically\r
+void mgl_surf3_xyz_val(HMGL graph, double Val, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
 void mgl_surf3_xyz_val_(uintptr_t *graph, mreal *Val, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *stl, const char *opt,int,int);\r
+/// Draw isosurface for 3d data\r
+void mgl_surf3_val(HMGL graph, double Val, HCDT a, const char *stl, const char *opt);\r
 void mgl_surf3_val_(uintptr_t *graph, mreal *Val, uintptr_t *a, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data specified parametrically\r
+void mgl_surf3_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
 void mgl_surf3_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data\r
+void mgl_surf3(HMGL graph, HCDT a, const char *stl, const char *opt);\r
 void mgl_surf3_(uintptr_t *graph, uintptr_t *a, const char *stl, const char *opt,int,int);\r
 \r
+/// Draw isosurface for 3d data specified parametrically with alpha proportional to b\r
+void mgl_surf3a_xyz_val(HMGL graph, double Val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3a_xyz_val_(uintptr_t *graph, mreal *Val, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurface for 3d data with alpha proportional to b\r
+void mgl_surf3a_val(HMGL graph, double Val, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3a_val_(uintptr_t *graph, mreal *Val, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data specified parametrically with alpha proportional to b\r
+void mgl_surf3a_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3a_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data with alpha proportional to b\r
+void mgl_surf3a(HMGL graph, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3a_(uintptr_t *graph, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
 \r
+/// Draw isosurface for 3d data specified parametrically with color proportional to b\r
+void mgl_surf3c_xyz_val(HMGL graph, double Val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3c_xyz_val_(uintptr_t *graph, mreal *Val, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurface for 3d data with color proportional to b\r
+void mgl_surf3c_val(HMGL graph, double Val, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3c_val_(uintptr_t *graph, mreal *Val, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data specified parametrically with color proportional to b\r
+void mgl_surf3c_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3c_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
+/// Draw isosurfaces for 3d data with color proportional to b\r
+void mgl_surf3c(HMGL graph, HCDT a, HCDT b, const char *stl, const char *opt);\r
 void mgl_surf3c_(uintptr_t *graph, uintptr_t *a, uintptr_t *b, const char *stl, const char *opt,int,int);\r
 \r
-void mgl_cloudp_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *stl, const char *opt,int,int);\r
-void mgl_cloudp_(uintptr_t *graph, uintptr_t *a, const char *stl, const char *opt,int,int);\r
+/// Draw a semi-transparent cloud for 3d data specified parametrically\r
+void mgl_cloud_xyz(HMGL graph, HCDT x, HCDT y, HCDT z, HCDT a, const char *stl, const char *opt);\r
 void mgl_cloud_xyz_(uintptr_t *graph, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *a, const char *stl, const char *opt,int,int);\r
+/// Draw a semi-transparent cloud for 3d data\r
+void mgl_cloud(HMGL graph, HCDT a, const char *stl, const char *opt);\r
 void mgl_cloud_(uintptr_t *graph, uintptr_t *a, const char *stl, const char *opt,int,int);\r
 \r
+/// Draw isosurface for 3d beam in curvilinear coordinates\r
+void mgl_beam_val(HMGL graph, double Val, HCDT tr, HCDT g1, HCDT g2, HCDT a, double r, const char *stl, int norm);\r
 void mgl_beam_val_(uintptr_t *gr, mreal *val, uintptr_t *tr, uintptr_t *g1, uintptr_t *g2, uintptr_t *a, mreal *r, const char *sch, int *norm,int l);\r
+/// Draw several isosurfaces for 3d beam in curvilinear coordinates\r
+void mgl_beam(HMGL graph, HCDT tr, HCDT g1, HCDT g2, HCDT a, double r, const char *stl, int norm, int num);\r
 void mgl_beam_(uintptr_t *gr, uintptr_t *tr, uintptr_t *g1, uintptr_t *g2, uintptr_t *a, mreal *r, const char *sch, int *norm, int *num,int l);\r
-\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #ifdef __cplusplus\r
 }\r
 #endif\r
-/*****************************************************************************/\r
+//-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/window.h b/include/mgl2/window.h
index 21e44ccaf75d24f308e4e2aae3ec36a5a88f8b33..7835efc81de2d9cefb7c139abba28aa81ddc22b5 100644 (file)
--- a/include/mgl2/window.h
+++ b/include/mgl2/window.h
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * window.h is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,115 +17,46 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
-//-----------------------------------------------------------------------------\r
 #ifndef _MGL_WINDOW_H_\r
 #define _MGL_WINDOW_H_\r
-/*****************************************************************************/\r
-#include "mgl2/mgl.h"\r
-//-----------------------------------------------------------------------------\r
-/// Class for drawing in windows (like, mglCanvasFL, mglCanvasQT and so on)\r
-/// Make inherited class and redefine Draw() function if you don't want to use function pointers.\r
-struct mglDraw\r
-{\r
-       virtual int Draw(mglGraph *)=0; ///< Function for drawing\r
-       virtual void Reload()   {}              ///< Function for reloading data\r
-       virtual void Click()    {}              ///< Callback function on mouse click\r
-#if MGL_HAVE_PTHREAD\r
-       pthread_t thr;\r
-       bool running;\r
-       mglDraw()       {       running=false;  }\r
-       virtual void Calc()     {}                      ///< Function for calculations\r
-       inline void Run()                               ///< Run calculations in other thread\r
-       {       mgl_draw_thr(this);     }\r
-#endif\r
-};\r
-//-----------------------------------------------------------------------------\r
-extern "C" {\r
-int mgl_draw_graph(HMGL gr, void *p);\r
-// NOTE: mgl_draw_class() and mgl_draw_load() use mglWindow* only. Don't use it with inherited classes\r
-int mgl_draw_class(HMGL gr, void *p);\r
-void mgl_click_class(void *p);\r
-void mgl_reload_class(void *p);\r
-}\r
-//-----------------------------------------------------------------------------\r
-#if MGL_HAVE_QT\r
-#define MGL_WND_KIND   1\r
-#else\r
-#define MGL_WND_KIND   0\r
-#endif\r
+\r
+#include "mgl2/qt.h"\r
+#include "mgl2/fltk.h"\r
+#include "mgl2/wx.h"\r
 //-----------------------------------------------------------------------------\r
-/// Wrapper class for windows displaying graphics\r
-class mglWindow : public mglGraph\r
+/// Wrapper class for all windows displaying graphics\r
+class mglWindow : public mglWnd\r
 {\r
-friend int mgl_draw_class(HMGL gr, void *p);\r
-friend void mgl_click_class(void *p);\r
-friend void mgl_reload_class(void *p);\r
-protected:\r
-       mglDraw *dr;\r
        int wnd;        ///< Type of window\r
 public:\r
-       mglWindow(const char *title="MathGL") : mglGraph(-1)\r
-       {       wnd=0;  dr=0;   gr = mgl_create_graph_fltk(0,title,0,0);        mgl_use_graph(gr,1);    }\r
-       inline int RunThr()             ///< Run main loop for event handling in separate thread (for FLTK only)\r
-       {       return wnd==0 ? mgl_fltk_thr():0;       }\r
-#ifndef SWIG\r
-       mglWindow(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=NULL, int kind=MGL_WND_KIND, void (*load)(void *p)=0) : mglGraph(-1)\r
+       mglWindow(const char *title="MathGL") : mglWnd()\r
+       {       wnd=1;  gr = mgl_create_graph_fltk(0,title,0,0);        }\r
+       mglWindow(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=NULL, int kind=0, void (*load)(void *p)=0) : mglWnd()\r
        {\r
-               wnd=kind;       dr=0;\r
+               wnd=kind;\r
                if(wnd==1)      gr = mgl_create_graph_qt(draw,title,par,load);\r
+               else if(wnd==2) gr = mgl_create_graph_wx(draw,title,par,load);\r
                else            gr = mgl_create_graph_fltk(draw,title,par,load);\r
-               mgl_use_graph(gr,1);\r
        }\r
-       mglWindow(int (*draw)(mglGraph *gr), const char *title="MathGL", int kind=MGL_WND_KIND) : mglGraph(-1)\r
+       mglWindow(int (*draw)(mglGraph *gr), const char *title="MathGL", int kind=0) : mglWnd()\r
        {\r
-               wnd=kind;       dr=0;\r
-               if(wnd==1)      gr = mgl_create_graph_qt(mgl_draw_graph,title,(void*)draw,0);\r
-               else            gr = mgl_create_graph_fltk(mgl_draw_graph,title,(void*)draw,0);\r
-               mgl_use_graph(gr,1);\r
+               wnd=kind;\r
+               if(wnd==1)      gr = mgl_create_graph_qt(draw?mgl_draw_graph:0,title,(void*)draw,0);\r
+               else if(wnd==2) gr = mgl_create_graph_wx(draw?mgl_draw_graph:0,title,(void*)draw,0);\r
+               else            gr = mgl_create_graph_fltk(draw?mgl_draw_graph:0,title,(void*)draw,0);\r
        }\r
-       mglWindow(mglDraw *draw, const char *title="MathGL", int kind=MGL_WND_KIND) : mglGraph(-1)\r
+       mglWindow(mglDraw *draw, const char *title="MathGL", int kind=0) : mglWnd()\r
        {\r
-               wnd=kind;       dr=draw;\r
-               if(wnd==1)      gr = mgl_create_graph_qt(mgl_draw_class,title,this,mgl_reload_class);\r
-               else            gr = mgl_create_graph_fltk(mgl_draw_class,title,this,mgl_reload_class);\r
-               mgl_use_graph(gr,1);\r
+               wnd=kind;\r
+               if(wnd==1)      gr = mgl_create_graph_qt(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
+               else if(wnd==2) gr = mgl_create_graph_wx(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
+               else            gr = mgl_create_graph_fltk(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
                mgl_set_click_func(gr, mgl_click_class);\r
        }\r
-       inline int Run()                        ///< Run main loop for event handling\r
-       {       return (wnd==1)? mgl_qt_run() : mgl_fltk_run(); }\r
-#endif\r
-\r
-       inline void ToggleAlpha()       ///< Switch on/off transparency (do not overwrite user settings)\r
-       {       mgl_wnd_toggle_alpha(gr);       }\r
-       inline void ToggleLight()       ///< Switch on/off lighting (do not overwrite user settings)\r
-       {       mgl_wnd_toggle_light(gr);       }\r
-       inline void ToggleZoom()        ///< Switch on/off zooming by mouse\r
-       {       mgl_wnd_toggle_zoom(gr);        }\r
-       inline void ToggleRotate()      ///< Switch on/off rotation by mouse\r
-       {       mgl_wnd_toggle_rotate(gr);      }\r
-       inline void ToggleNo()          ///< Switch off all zooming and rotation\r
-       {       mgl_wnd_toggle_no(gr);  }\r
-       inline void Update()            ///< Update picture by calling user drawing function\r
-       {       mgl_wnd_update(gr);     }\r
-       inline void ReLoad()    ///< Reload user data and update picture\r
-       {       mgl_wnd_reload(gr);     }\r
-       inline void Adjust()            ///< Adjust size of bitmap to window size\r
-       {       mgl_wnd_adjust(gr);     }\r
-       inline void NextFrame()         ///< Show next frame (if one)\r
-       {       mgl_wnd_next_frame(gr); }\r
-       inline void PrevFrame()         ///< Show previous frame (if one)\r
-       {       mgl_wnd_prev_frame(gr); }\r
-       inline void Animation()         ///< Run slideshow (animation) of frames\r
-       {       mgl_wnd_animation(gr);  }\r
-       void SetClickFunc(void (*func)(void *p))\r
-       {       if(!dr) mgl_set_click_func(gr,func);    }\r
-\r
-       inline void SetDelay(mreal dt)  ///< Delay for animation in seconds\r
-       {       mgl_wnd_set_delay(gr, dt);      }\r
-       inline void Setup(bool clf_upd=true, bool showpos=false)\r
-       {       mgl_setup_window(gr, clf_upd, showpos); }\r
-       inline mglPoint LastMousePos()  ///< Last mouse position\r
-       {       mreal x,y,z;    mgl_get_last_mouse_pos(gr,&x,&y,&z);    return mglPoint(x,y,z); }\r
+       /// Run main loop for event handling\r
+       int Run()       {       return wnd==0? mgl_fltk_run():(wnd==1?mgl_qt_run():mgl_wx_run());       }\r
+       /// Run main loop for event handling in separate thread (for FLTK only)\r
+       inline int RunThr()     {       return wnd==0 ? mgl_fltk_thr():0;       }\r
 };\r
 //-----------------------------------------------------------------------------\r
 #endif\r

diff --git a/include/mgl2/wnd.h b/include/mgl2/wnd.h
new file mode 100644 (file)
index 0000000..b2efad4
--- /dev/null
+++ b/include/mgl2/wnd.h
@@ -0,0 +1,93 @@
+/***************************************************************************\r
+ * wnd.h is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#ifndef _MGL_WND_H_\r
+#define _MGL_WND_H_\r
+\r
+#include "mgl2/mgl.h"\r
+//-----------------------------------------------------------------------------\r
+/// Class for drawing in windows (like, mglCanvasFL, mglCanvasQT and so on)\r
+/// Make inherited class and redefine Draw() function if you don't want to use function pointers.\r
+struct mglDraw\r
+{\r
+       virtual int Draw(mglGraph *)=0; ///< Function for drawing\r
+       virtual void Reload()   {}              ///< Function for reloading data\r
+       virtual void Click()    {}              ///< Callback function on mouse click\r
+       virtual ~mglDraw()      {}\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_t thr;\r
+       bool running;\r
+       mglDraw()       {       running=false;  }\r
+       virtual void Calc()     {}                      ///< Function for calculations\r
+       inline void Run()                               ///< Run calculations in other thread\r
+       {       mgl_draw_thr(this);     }\r
+#else\r
+       mglDraw(){}\r
+#endif\r
+};\r
+//-----------------------------------------------------------------------------\r
+extern "C" {\r
+int mgl_draw_graph(HMGL gr, void *p);\r
+// NOTE: mgl_draw_class() and mgl_draw_load() use mglWindow* only. Don't use it with inherited classes\r
+int mgl_draw_class(HMGL gr, void *p);\r
+void mgl_click_class(void *p);\r
+void mgl_reload_class(void *p);\r
+}\r
+//-----------------------------------------------------------------------------\r
+/// Abstract class for windows displaying graphics\r
+class mglWnd : public mglGraph\r
+{\r
+public:\r
+       mglWnd() : mglGraph(-1) {}\r
+       virtual int Run()=0;                    ///< Run main loop for event handling\r
+\r
+       inline void ToggleAlpha()       ///< Switch on/off transparency (do not overwrite user settings)\r
+       {       mgl_wnd_toggle_alpha(gr);       }\r
+       inline void ToggleLight()       ///< Switch on/off lighting (do not overwrite user settings)\r
+       {       mgl_wnd_toggle_light(gr);       }\r
+       inline void ToggleZoom()        ///< Switch on/off zooming by mouse\r
+       {       mgl_wnd_toggle_zoom(gr);        }\r
+       inline void ToggleRotate()      ///< Switch on/off rotation by mouse\r
+       {       mgl_wnd_toggle_rotate(gr);      }\r
+       inline void ToggleNo()          ///< Switch off all zooming and rotation\r
+       {       mgl_wnd_toggle_no(gr);  }\r
+       inline void Update()            ///< Update picture by calling user drawing function\r
+       {       mgl_wnd_update(gr);     }\r
+       inline void ReLoad()            ///< Reload user data and update picture\r
+       {       mgl_wnd_reload(gr);     }\r
+       inline void Adjust()            ///< Adjust size of bitmap to window size\r
+       {       mgl_wnd_adjust(gr);     }\r
+       inline void NextFrame()         ///< Show next frame (if one)\r
+       {       mgl_wnd_next_frame(gr); }\r
+       inline void PrevFrame()         ///< Show previous frame (if one)\r
+       {       mgl_wnd_prev_frame(gr); }\r
+       inline void Animation()         ///< Run slideshow (animation) of frames\r
+       {       mgl_wnd_animation(gr);  }\r
+       void SetClickFunc(void (*func)(void *p))        ///< Callback function for mouse click\r
+       {       mgl_set_click_func(gr,func);    }\r
+\r
+       inline void SetDelay(double dt) ///< Delay for animation in seconds\r
+       {       mgl_wnd_set_delay(gr, dt);      }\r
+       inline void Setup(bool clf_upd=true, bool showpos=false)\r
+       {       mgl_setup_window(gr, clf_upd, showpos); }\r
+       inline mglPoint LastMousePos()          ///< Last mouse position\r
+       {       double x,y,z;   mgl_get_last_mouse_pos(gr,&x,&y,&z);    return mglPoint(x,y,z); }\r
+};\r
+//-----------------------------------------------------------------------------\r
+#endif\r

diff --git a/include/mgl2/wx.h b/include/mgl2/wx.h
new file mode 100644 (file)
index 0000000..1f51ea7
--- /dev/null
+++ b/include/mgl2/wx.h
@@ -0,0 +1,170 @@
+/***************************************************************************\r
+ * wx.h.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#ifndef MGL_WX_H\r
+#define MGL_WX_H\r
+//-----------------------------------------------------------------------------\r
+#include <mgl2/base.h>\r
+//-----------------------------------------------------------------------------\r
+#ifdef __cplusplus\r
+extern "C" {\r
+#endif\r
+/// Creates WX window for plotting\r
+HMGL mgl_create_graph_wx(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p));\r
+uintptr_t mgl_create_graph_wx_(const char *title, int);\r
+/// Run main WX loop for event handling.\r
+int mgl_wx_run();\r
+int mgl_wx_run_();\r
+#ifdef __cplusplus\r
+}\r
+//-----------------------------------------------------------------------------\r
+#include <mgl2/wnd.h>\r
+//-----------------------------------------------------------------------------\r
+/// Wrapper class for windows displaying graphics\r
+class mglWX : public mglWnd\r
+{\r
+public:\r
+       mglWX(const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_wx(0,title,0,0);  }\r
+       mglWX(int (*draw)(HMGL gr, void *p), const char *title="MathGL", void *par=NULL, void (*load)(void *p)=0) : mglWnd()\r
+       {       gr = mgl_create_graph_wx(draw,title,par,load);  }\r
+       mglWX(int (*draw)(mglGraph *gr), const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_wx(draw?mgl_draw_graph:0,title,(void*)draw,0);    }\r
+       mglWX(mglDraw *draw, const char *title="MathGL") : mglWnd()\r
+       {       gr = mgl_create_graph_wx(draw?mgl_draw_class:0,title,draw,mgl_reload_class);\r
+               mgl_set_click_func(gr, mgl_click_class);        }\r
+       int Run()       {       return mgl_wx_run();    }       ///< Run main loop for event handling\r
+\r
+};\r
+//-----------------------------------------------------------------------------\r
+#include <wx/window.h>\r
+#include <wx/image.h>\r
+#include <wx/timer.h>\r
+#include <wx/bitmap.h>\r
+class mglCanvas;\r
+//-----------------------------------------------------------------------------\r
+/// Class is Wx widget which display MathGL graphics\r
+class wxMathGL : public wxWindow\r
+{\r
+public:\r
+       wxString appName;       ///< Application name for message boxes\r
+       bool AutoResize;        ///< Allow auto resizing (default is false)\r
+\r
+       wxMathGL(wxWindow *parent, wxWindowID id=-1, const wxPoint& pos=wxDefaultPosition, const wxSize& size=wxDefaultSize, long style=0, const wxString& name=wxPanelNameStr);\r
+       virtual ~wxMathGL();\r
+       double GetRatio();\r
+       void SetPopup(wxMenu *p)        {       popup = p;      };      ///< Set popup menu pointer\r
+       void SetSize(int w, int h);             ///< Set window/picture sizes\r
+       void SetGraph(HMGL gr); ///< Set grapher object\r
+       inline void SetGraph(mglGraph *GR)\r
+       {       SetGraph(GR->Self());   }\r
+       inline HMGL GetGraph()  {       return (HMGL)gr;        }\r
+\r
+       /// Set drawing functions and its parameter\r
+       inline void SetDraw(int (*func)(mglBase *gr, void *par), void *par=0)\r
+       {       draw_func = func;       draw_par = par; }\r
+       inline void SetDraw(mglDraw *dr)\r
+       {       draw_cl = dr;   }\r
+       inline void SetDraw(int (*draw)(mglGraph *gr))\r
+       {       SetDraw(draw?mgl_draw_graph:0,(void*)draw);     }\r
+       inline void ZoomRegion(mreal xx1,mreal xx2,mreal yy1, mreal yy2)\r
+       {       x1=xx1; y1=yy1; x2=xx2; y2=yy2; }\r
+\r
+       int GetPer()    {return per;};          ///< Get perspective value\r
+       int GetPhi()    {return phi;};          ///< Get Phi-angle value\r
+       int GetTet()    {return tet;};          ///< Get Theta-angle value\r
+       bool GetAlpha() {return alpha;};        ///< Get transparency state\r
+       bool GetLight() {return light;};        ///< Get lightning state\r
+       bool GetZoom()  {return zoom;};         ///< Get mouse zooming state\r
+       bool GetRotate()        {return rotate;};       ///< Get mouse rotation state\r
+\r
+       void Repaint();\r
+       void Update();                  ///< Update picture\r
+       void Copy();                    ///< copy graphics to clipboard\r
+       void Print();                   ///< Print plot\r
+//     void Stop();                    ///< Stop execution\r
+       void SetPer(int p);             ///< Set perspective value\r
+       void SetPhi(int p);             ///< Set Phi-angle value\r
+       void SetTet(int t);             ///< Set Theta-angle value\r
+       void SetAlpha(bool a);  ///< Switch on/off transparency\r
+       void SetLight(bool l);  ///< Switch on/off lightning\r
+       void SetZoom(bool z);   ///< Switch on/off mouse zooming\r
+       void SetRotate(bool r); ///< Switch on/off mouse rotation\r
+       void ZoomIn();                  ///< Zoom in graphics\r
+       void ZoomOut();                 ///< Zoom out graphics\r
+       void Restore();                 ///< Restore zoom and rotation to default values\r
+//     void Reload();                  ///< Reload data and execute script\r
+       void ShiftLeft();               ///< Shift graphics to left direction\r
+       void ShiftRight();              ///< Shift graphics to right direction\r
+       void ShiftUp();                 ///< Shift graphics to up direction\r
+       void ShiftDown();               ///< Shift graphics to down direction\r
+       void ExportPNG(wxString fname=L"");     ///< export to PNG file\r
+       void ExportPNGs(wxString fname=L"");    ///< export to PNG file (no transparency)\r
+       void ExportJPG(wxString fname=L"");     ///< export to JPEG file\r
+       void ExportBPS(wxString fname=L"");     ///< export to bitmap EPS file\r
+       void ExportEPS(wxString fname=L"");     ///< export to vector EPS file\r
+       void ExportSVG(wxString fname=L"");     ///< export to SVG file\r
+\r
+       void Adjust();          ///< Adjust plot size to fill entire window\r
+       void NextSlide();       ///< Show next slide\r
+       void PrevSlide();       ///< Show previous slide\r
+       void Animation(bool st=true);   ///< Start animation\r
+\r
+       void About();           ///< Show about information\r
+       void AboutQt();         ///< Show information about Qt version\r
+\r
+protected:\r
+       void OnPaint(wxPaintEvent& event);\r
+       void OnSize(wxSizeEvent& event);\r
+       void OnNextSlide(wxTimerEvent& evt);    ///< Show next slide\r
+       void OnMouseLeftDown(wxMouseEvent &ev);\r
+       void OnMouseDown(wxMouseEvent &ev);\r
+       void OnMouseLeftUp(wxMouseEvent &ev);\r
+       void OnMouseRightUp(wxMouseEvent &ev);\r
+       void OnMouseMove(wxMouseEvent &ev);\r
+//     void MousePressEvent(QMouseEvent *);\r
+//     void MouseReleaseEvent(QMouseEvent *);\r
+//     void MouseMoveEvent(QMouseEvent *);\r
+\r
+       mglCanvas *gr;          ///< pointer to grapher\r
+       void *draw_par;         ///< Parameters for drawing function mglCanvasWnd::DrawFunc.\r
+       /// Drawing function for window procedure. It should return the number of frames.\r
+       int (*draw_func)(mglBase *gr, void *par);\r
+       mglDraw *draw_cl;\r
+\r
+       wxString MousePos;      ///< Last mouse position\r
+       wxBitmap pic;           ///< Pixmap for drawing (changed by update)\r
+       double tet, phi;        ///< Rotation angles\r
+       double per;                     ///< Value of perspective ( must be in [0,1) )\r
+       bool alpha;                     ///< Transparency state\r
+       bool light;                     ///< Lightning state\r
+       bool zoom;                      ///< Mouse zoom state\r
+       bool rotate;            ///< Mouse rotation state\r
+       mreal x1,x2,y1,y2;      ///< Zoom in region\r
+       bool showMessage;       ///< Flag for showing messages (enabled by each execute())\r
+       wxMenu *popup;          ///< Pointer to pop-up menu\r
+       wxTimer *timer;         ///< Timer for animation\r
+       DECLARE_EVENT_TABLE()\r
+private:\r
+       int x0, y0, xe, ye;             ///< Temporary variables for mouse\r
+       unsigned char *grBuf;\r
+};\r
+//-----------------------------------------------------------------------------\r
+#endif\r
+#endif\r

diff --git a/include/xpm/axis_sh.xpm b/include/xpm/axis_sh.xpm
new file mode 100644 (file)
index 0000000..eab287c
--- /dev/null
+++ b/include/xpm/axis_sh.xpm
@@ -0,0 +1,22 @@
+/* XPM */
+static char * axis_sh_xpm[] = {
+"16 16 3 1",
+"      c None",
+".     c #000000",
+"+     c #FF0000",
+"                ",
+"  .             ",
+". .      +      ",
+"  .     +++     ",
+"  .      +      ",
+". .   +  +  +   ",
+"  .  +++++++++  ",
+"  .   +  +  +   ",
+". .      +      ",
+"  .     +++     ",
+"  .      +      ",
+". .             ",
+"  .             ",
+"  ............. ",
+".               ",
+"  .  .  .  .  . "};

diff --git a/include/xpm/box.xpm b/include/xpm/box.xpm
new file mode 100644 (file)
index 0000000..e2d9d12
--- /dev/null
+++ b/include/xpm/box.xpm
@@ -0,0 +1,22 @@
+/* XPM */
+static char * box_xpm[] = {
+"16 16 3 1",
+"      c None",
+".     c #000000",
+"+     c #666666",
+"                ",
+"      ......... ",
+"     .+      .. ",
+"    . +     . . ",
+"   .  +    .  . ",
+"  .   +   .   . ",
+" .........    . ",
+" .    +  .    . ",
+" .    +  .    . ",
+" .    +++.++++. ",
+" .   +   .   .  ",
+" .  +    .  .   ",
+" . +     . .    ",
+" .+      ..     ",
+" .........      ",
+"                "};

diff --git a/include/xpm/curve.xpm b/include/xpm/curve.xpm
new file mode 100644 (file)
index 0000000..88e37e3
--- /dev/null
+++ b/include/xpm/curve.xpm
@@ -0,0 +1,21 @@
+/* XPM */
+static const char * curve_xpm[] = {
+"16 16 2 1",
+"      c None",
+".     c #000000",
+"               .",
+"               .",
+"              . ",
+"              . ",
+"             .  ",
+"            .   ",
+"          ..    ",
+"        ..      ",
+"      ..        ",
+"    ..          ",
+"   .            ",
+"  .             ",
+" .              ",
+" .              ",
+".               ",
+".               "};

diff --git a/include/xpm/hist.xpm b/include/xpm/hist.xpm
new file mode 100644 (file)
index 0000000..5c7eb5c
--- /dev/null
+++ b/include/xpm/hist.xpm
@@ -0,0 +1,21 @@
+/* XPM */
+static const char * hist_xpm[] = {
+"16 16 2 1",
+"      c None",
+".     c #0000FF",
+"                ",
+"                ",
+"        ...     ",
+"        ...     ",
+"        ...     ",
+"    ... ...     ",
+"    ... ...     ",
+"    ... ...     ",
+"    ... ...     ",
+"    ... ...     ",
+"    ... ... ... ",
+"    ... ... ... ",
+"... ... ... ... ",
+"... ... ... ... ",
+"... ... ... ... ",
+"                "};

diff --git a/include/xpm/line.xpm b/include/xpm/line.xpm
new file mode 100644 (file)
index 0000000..aff1af3
--- /dev/null
+++ b/include/xpm/line.xpm
@@ -0,0 +1,21 @@
+/* XPM */
+static const char * line_xpm[] = {
+"16 16 2 1",
+"      c None",
+".     c #000000",
+"               .",
+"              . ",
+"             .  ",
+"            .   ",
+"           .    ",
+"          .     ",
+"         .      ",
+"        .       ",
+"       .        ",
+"      .         ",
+"     .          ",
+"    .           ",
+"   .            ",
+"  .             ",
+" .              ",
+".               "};

diff --git a/include/xpm/oper_dir.xpm b/include/xpm/oper_dir.xpm
new file mode 100644 (file)
index 0000000..f6f7b8a
--- /dev/null
+++ b/include/xpm/oper_dir.xpm
@@ -0,0 +1,21 @@
+/* XPM */
+static const char * oper_dir_xpm[] = {
+"16 16 2 1",
+"      c None",
+".     c #000000",
+"   .            ",
+"  .   .         ",
+"  .   .         ",
+"  . .... .      ",
+"  . . . .       ",
+"  . .... .      ",
+" .              ",
+"          ..... ",
+"          .   . ",
+"  ..       .    ",
+" .  .       .   ",
+"    .      .    ",
+" ....     .   . ",
+".   .. .  ..... ",
+".  .  .         ",
+" ..  . .        "};

diff --git a/include/xpm/oper_of.xpm b/include/xpm/oper_of.xpm
new file mode 100644 (file)
index 0000000..c22a9ba
--- /dev/null
+++ b/include/xpm/oper_of.xpm
@@ -0,0 +1,22 @@
+/* XPM */
+static const char * oper_of_xpm[] = {
+"16 16 3 1",
+"      c None",
+".     c #000000",
+"+     c #FF0000",
+"   .        ++  ",
+"  .   .     ++  ",
+"  .   .   ++++++",
+"  . .... .++++++",
+"  . . . .   ++  ",
+"  . .... .  ++  ",
+" .              ",
+"          ..... ",
+"          .   . ",
+"  ..       .    ",
+" .  .       .   ",
+"    .      .    ",
+" ....     .   . ",
+".   .. .  ..... ",
+".  .  .         ",
+" ..  . .        "};

diff --git a/include/xpm/text.xpm b/include/xpm/text.xpm
new file mode 100644 (file)
index 0000000..56317c0
--- /dev/null
+++ b/include/xpm/text.xpm
@@ -0,0 +1,21 @@
+/* XPM */
+static const char * text_xpm[] = {
+"16 16 2 1",
+"      c None",
+".     c #000000",
+"                ",
+"  ............  ",
+"  ............  ",
+"  .    ..    .  ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"       ..       ",
+"      ....      ",
+"                "};

diff --git a/lang/CMakeLists.txt b/lang/CMakeLists.txt
index cfdc3a7f0dc5ce12985708f843711a6464f00ffb..a9205ba9b04d2a50b503e2f47450f35a2465bdb2 100644 (file)
--- a/lang/CMakeLists.txt
+++ b/lang/CMakeLists.txt
@@ -1,50 +1,32 @@
-set(src_dep
-${CMAKE_BINARY_DIR}/lang/mgl.i
-${CMAKE_BINARY_DIR}/lang/numpy.i
-)
 set(src_imp_dep
-${CMAKE_SOURCE_DIR}/include/mgl2/type.h
-${CMAKE_SOURCE_DIR}/include/mgl2/data.h
-${CMAKE_SOURCE_DIR}/include/mgl2/mgl.h
-${CMAKE_SOURCE_DIR}/include/mgl2/window.h
+../include/mgl2/type.h
+../include/mgl2/data.h
+../include/mgl2/mgl.h
 )
-configure_file(${MathGL_SOURCE_DIR}/lang/mgl.i.in ${MathGL_BINARY_DIR}/lang/mgl.i COPYONLY)
-configure_file(${MathGL_SOURCE_DIR}/lang/numpy.i.in ${MathGL_BINARY_DIR}/lang/numpy.i COPYONLY)
-file(TO_NATIVE_PATH ${MathGL_BINARY_DIR}/lang/mgl.i MGL_I)
 
-file(TO_NATIVE_PATH ${MathGL_SOURCE_DIR}/include SRC_INC)
-file(TO_NATIVE_PATH ${MathGL_BINARY_DIR}/include BIN_INC)
+set(mgl_clean_files "")
 
-file(TO_NATIVE_PATH ${MathGL_BINARY_DIR}/src MGL_LINK_DIR)
-file(TO_NATIVE_PATH ${MathGL_BINARY_DIR}/widgets MGL_WND_LINK_DIR)
+SET_SOURCE_FILES_PROPERTIES(mathgl.i numpy.i PROPERTIES CPLUSPLUS ON)
 
-get_directory_property(DEF_LIST COMPILE_DEFINITIONS)
-foreach(def_i ${DEF_LIST})
-       if(MGL_DEF)
-               set(MGL_DEF ${MGL_DEF} -D${def_i})
-       else(MGL_DEF)
-               set(MGL_DEF -D${def_i})
-       endif(MGL_DEF)
-endforeach()
-SET(dep_libs mgl-wnd mgl)
 if(MGL_HAVE_PYTHON)
-       configure_file(${MathGL_SOURCE_DIR}/lang/setup.py.in ${MathGL_BINARY_DIR}/lang/setup.py)
-       add_custom_command(OUTPUT _mathgl.so mathgl.py
-               COMMAND ${PYTHON_EXECUTABLE} ${CMAKE_BINARY_DIR}/lang/setup.py
-               build build_ext 
-               --include-dirs='${BIN_INC}:${SRC_INC}'
-#              --library-dirs='$<TARGET_LINKER_FILE_DIR:mgl>:$<TARGET_LINKER_FILE_DIR:mgl-wnd>' #commented out for compatibilty reason with old cmake
-               --library-dirs='${MGL_LINK_DIR}:${MGL_WND_LINK_DIR}'
-#              --libraries='mgl-wnd'
-               --swig ${SWIG_EXECUTABLE}
-               --swig-opts='-c++ -threads -I${BIN_INC} -I${SRC_INC} ${MGL_DEF}'
-               DEPENDS ${dep_libs} ${src_dep}
-               IMPLICIT_DEPENDS CXX ${src_imp_dep}
+       include_directories(${PYTHON_INCLUDE_DIR})
+       execute_process(
+               COMMAND ${PYTHON_EXECUTABLE} -c "from distutils.sysconfig import get_python_lib; print get_python_lib(prefix='${CMAKE_INSTALL_PREFIX}')"
+               OUTPUT_VARIABLE MGL_PYTHON_SITE_PACKAGES
+               OUTPUT_STRIP_TRAILING_WHITESPACE)
+       set(SWIG_MODULE_mathgl_EXTRA_DEPS numpy.i ${src_imp_dep})
+       SWIG_ADD_MODULE(mathgl python mathgl.i)
+       SWIG_LINK_LIBRARIES(mathgl mgl ${PYTHON_LIBRARIES})
+       add_custom_command(OUTPUT mathgl.pyc
+               COMMAND ${PYTHON_EXECUTABLE} -c \"from py_compile import compile\; compile('mathgl.py')\"
                WORKING_DIRECTORY ${CMAKE_BINARY_DIR}/lang
+               DEPENDS _mathgl
        )
-       add_custom_target(mgl_python_module ALL DEPENDS _mathgl.so mathgl.py)
-       install(CODE "execute_process(COMMAND ${PYTHON_EXECUTABLE} ${CMAKE_BINARY_DIR}/lang/setup.py install --prefix=${CMAKE_INSTALL_PREFIX} WORKING_DIRECTORY ${CMAKE_BINARY_DIR}/lang )")
-       set_directory_properties(PROPERTIES ADDITIONAL_MAKE_CLEAN_FILES "mgl_wrap.cpp;build;mathgl.pyc")
+       add_custom_target(mgl_python_module ALL DEPENDS _mathgl mathgl.pyc)
+
+       install(FILES ${MathGL_BINARY_DIR}/lang/mathgl.py ${MathGL_BINARY_DIR}/lang/mathgl.pyc DESTINATION ${MGL_PYTHON_SITE_PACKAGES})
+       install (TARGETS _mathgl LIBRARY DESTINATION ${MGL_PYTHON_SITE_PACKAGES})
+       set(mgl_clean_files ${mgl_clean_files} mathgl.py)
 endif(MGL_HAVE_PYTHON)
 
 if(MGL_HAVE_OCTAVE)
@@ -60,51 +42,32 @@ if(MGL_HAVE_OCTAVE)
 message(STATUS "${oct_prog} ${oct_host} ${oct_api}")
        set(oct_arch ${oct_host}-${oct_api})
        set(pkg_name mathgl)
-       file(MAKE_DIRECTORY ${MathGL_BINARY_DIR}/lang/${pkg_name}/inst/${oct_arch})
+       set(mgl_pkg_dir ${MathGL_BINARY_DIR}/lang/${pkg_name}/inst/${oct_arch})
 
-       configure_file(${MathGL_SOURCE_DIR}/COPYING ${MathGL_BINARY_DIR}/lang/${pkg_name} COPYONLY)
-       configure_file(${MathGL_SOURCE_DIR}/lang/DESCRIPTION ${MathGL_BINARY_DIR}/lang/${pkg_name} COPYONLY)
-       configure_file(${MathGL_SOURCE_DIR}/lang/INDEX ${MathGL_BINARY_DIR}/lang/${pkg_name} COPYONLY)
-       configure_file(${MathGL_SOURCE_DIR}/lang/PKG_ADD_template ${MathGL_BINARY_DIR}/lang/${pkg_name}/PKG_ADD COPYONLY)
-
-       add_custom_command(OUTPUT mgl_octave.cpp
-               COMMAND ${SWIG_EXECUTABLE} -octave -c++ ${MGL_DEF}
-               -I${BIN_INC} -I${SRC_INC} 
-               -o mgl_octave.cpp ${MGL_I}
-               DEPENDS ${src_dep}
-               IMPLICIT_DEPENDS CXX ${src_imp_dep}
-       )
-#              -L$<TARGET_LINKER_FILE_DIR:mgl>                      #commented out for compatibilty reason with old cmake
-#              -L$<TARGET_LINKER_FILE_DIR:mgl-wnd>                  #commented out for compatibilty reason with old cmake
-       add_custom_command(OUTPUT mgl_octave.o
-               COMMAND ${oct_mk} -c ${MGL_DEF}
-               -I${oct_inc} -I${BIN_INC} -I${SRC_INC}
-               -o mgl_octave.o mgl_octave.cpp
-               DEPENDS ${src_dep} mgl_octave.cpp
-               IMPLICIT_DEPENDS CXX ${src_imp_dep}
-       )
-       add_custom_command(OUTPUT ${pkg_name}/inst/${oct_arch}/mathgl.oct
-               COMMAND ${oct_mk}
-               -L${MGL_LINK_DIR}
-               -L${MGL_WND_LINK_DIR}
-               -lmgl-wnd -lmgl
-               -o ${pkg_name}/inst/${oct_arch}/mathgl.oct mgl_octave.o
-               DEPENDS ${dep_libs} mgl_octave.o
-       )
-#      add_custom_command(OUTPUT ${pkg_name}/inst/${oct_arch}/mathgl.oct
-#              COMMAND ${oct_mk} ${MGL_DEF}
-#              -I${oct_inc} -I${BIN_INC} -I${SRC_INC}
-#              -L${MGL_LINK_DIR}
-#              -L${MGL_WND_LINK_DIR}
-#              -lmgl-wnd -lmgl
-#              -o ${pkg_name}/inst/${oct_arch}/mathgl.oct mgl_octave.cpp
-#              DEPENDS ${dep_libs} ${src_dep} mgl_octave.cpp
-#      )
+       include_directories(${oct_inc} ${oct_inc}/..)
+       SET(SWIG_MODULE_mgl-oct_EXTRA_DEPS numpy.i ${src_imp_dep})
+       SWIG_ADD_MODULE(mgl-oct octave mathgl.i)
+       SWIG_LINK_LIBRARIES(mgl-oct mgl)
+       set_target_properties(mgl-oct PROPERTIES OUTPUT_NAME mathgl PREFIX "" SUFFIX ".oct")
        add_custom_command(OUTPUT mathgl.tar.gz
+               COMMAND ${CMAKE_COMMAND} -E make_directory ${mgl_pkg_dir}
+               COMMAND ${CMAKE_COMMAND} -E copy ${MathGL_SOURCE_DIR}/COPYING ${MathGL_BINARY_DIR}/lang/${pkg_name}
+               COMMAND ${CMAKE_COMMAND} -E copy ${MathGL_SOURCE_DIR}/lang/DESCRIPTION ${MathGL_BINARY_DIR}/lang/${pkg_name}
+               COMMAND ${CMAKE_COMMAND} -E copy ${MathGL_SOURCE_DIR}/lang/INDEX ${MathGL_BINARY_DIR}/lang/${pkg_name}
+               COMMAND ${CMAKE_COMMAND} -E copy ${MathGL_SOURCE_DIR}/lang/PKG_ADD_template ${MathGL_BINARY_DIR}/lang/${pkg_name}
+               COMMAND ${CMAKE_COMMAND} -E copy $<TARGET_FILE:mgl-oct> ${mgl_pkg_dir}
                COMMAND ${oct_tar} cpzvf mathgl.tar.gz ${pkg_name}
-               DEPENDS ${pkg_name}/inst/${oct_arch}/mathgl.oct
+               WORKING_DIRECTORY ${CMAKE_BINARY_DIR}/lang
+               DEPENDS mgl-oct
        )
        add_custom_target(mgl_octave_module ALL DEPENDS mathgl.tar.gz)
-       install(CODE "execute_process(COMMAND ${oct_exec} ${CMAKE_SOURCE_DIR}/lang/install.m WORKING_DIRECTORY ${CMAKE_BINARY_DIR}/lang )")
 
+       install(FILES ${CMAKE_BINARY_DIR}/lang/mathgl.tar.gz DESTINATION ${MGL_DATA_PATH})
+       if(enable-octave-install)
+               install(CODE "execute_process(
+                       COMMAND ${oct_exec} -q --eval \"pkg install mathgl.tar.gz\"
+                       WORKING_DIRECTORY ${CMAKE_BINARY_DIR}/lang )")
+       endif(enable-octave-install)
+       set(mgl_clean_files ${mgl_clean_files} mathgl)
 endif(MGL_HAVE_OCTAVE)
+set_directory_properties(PROPERTIES ADDITIONAL_MAKE_CLEAN_FILES "${mgl_clean_files}")

diff --git a/lang/install.m b/lang/install.m
deleted file mode 100644 (file)
index b95a5ad..0000000
--- a/lang/install.m
+++ /dev/null
@@ -1 +0,0 @@
-pkg install mathgl.tar.gz

diff --git a/lang/mathgl.i b/lang/mathgl.i
new file mode 100644 (file)
index 0000000..7069cfd
--- /dev/null
+++ b/lang/mathgl.i
@@ -0,0 +1,100 @@
+/***************************************************************************
+ * mgl.i is part of Math Graphic Library
+ * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>,
+ *   Xavier Delacour <xavier.delacour@gmail.com>,
+ *   Alexander Filov <alexander.filov@gmail.com>                           *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+
+
+%module mathgl
+#ifdef SWIGOCTAVE
+%feature("autodoc", 1);
+#endif // SWIGOCTAVE
+
+%ignore operator!;
+%ignore operator=;
+%ignore *::operator=;
+%ignore *::operator+=;
+%ignore *::operator-=;
+%ignore *::operator*=;
+%ignore *::operator/=;
+//%ignore mglDataA
+
+%{
+#define SWIG_FILE_WITH_INIT
+//#include "mgl2/config.h"
+#include "mgl2/type.h"
+#include "mgl2/data.h"
+#include "mgl2/mgl.h"
+//#include "mgl2/window.h"
+%}
+
+#if MGL_USE_DOUBLE
+typedef double mreal;
+#else
+typedef float mreal;
+#endif
+
+
+#ifdef SWIGOCTAVE
+%rename(__add) operator+;
+%rename(__sub) operator-;
+%rename(__mul) operator*;
+%rename(__div) operator/;
+%rename(__eq) operator==;
+%rename(__ne) operator!=;
+%typemap(in,noblock=1) (double* d, int rows, int cols) (Matrix tmp) {
+       if (!$input.is_matrix_type())   {       error("A must be a matrix");    SWIG_fail;      }
+       tmp=$input.matrix_value();
+       $1=tmp.data();
+       $2=tmp.rows();
+       $3=tmp.columns();
+}
+#endif
+
+#ifdef SWIGPYTHON
+%rename(__add__) *::operator+(const mglData&, const mglData&);
+%rename(__sub__) *::operator-(const mglData&, const mglData &);
+%rename(__mul__) *::operator*(const mglData &, float);
+%rename(__div__) *::operator/(const mglData &, float);
+
+// Get the NumPy typemaps
+%include "numpy.i"
+%init %{
+import_array();
+%}
+%apply (double* IN_ARRAY1, int DIM1) {(const double* d, int size)};
+%apply (int DIM1, double* IN_ARRAY1) {(int size, const double* d)};
+%apply (double* IN_ARRAY2, int DIM1, int DIM2) {(const double* d, int rows, int cols)};
+%apply (int DIM1, int DIM2, double* IN_ARRAY2) {(int rows, int cols, const double* d)};
+%apply (double* IN_ARRAY3, int DIM1, int DIM2, int DIM3) {(const double* d, int rows, int cols, int slc)};
+%apply (int DIM1, int DIM2, int DIM3, double* IN_ARRAY3) {(int rows, int cols, int slc, const double* d)};
+#endif
+
+//%include "mgl2/config.h"
+%include "mgl2/type.h"
+%include "mgl2/data.h"
+%include "mgl2/mgl.h"
+//%include "mgl2/window.h"
+%extend mglData
+{
+       float __getitem__( int i)       {       return self->GetVal(i); };
+       float __paren( int i)           {       return self->GetVal(i); };
+       void __setitem__( int i, float y)       {       self->SetVal(y,i);      };
+       void __paren_asgn( int i, float y)      {       self->SetVal(y,i);      };
+};

diff --git a/lang/mgl.i.in b/lang/mgl.i.in
deleted file mode 100644 (file)
index d675422..0000000
--- a/lang/mgl.i.in
+++ /dev/null
@@ -1,100 +0,0 @@
-/***************************************************************************
- * mgl.i is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>,
- *   Xavier Delacour <xavier.delacour@gmail.com>,
- *   Alexander Filov <alexander.filov@gmail.com>                           *
- *                                                                         *
- *   This program is free software; you can redistribute it and/or modify  *
- *   it under the terms of the GNU General Public License as published by  *
- *   the Free Software Foundation; either version 2 of the License, or     *
- *   (at your option) any later version.                                   *
- *                                                                         *
- *   This program is distributed in the hope that it will be useful,       *
- *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
- *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
- *   GNU General Public License for more details.                          *
- *                                                                         *
- *   You should have received a copy of the GNU General Public License     *
- *   along with this program; if not, write to the                         *
- *   Free Software Foundation, Inc.,                                       *
- *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
- ***************************************************************************/
-
-
-%module mathgl
-#ifdef SWIGOCTAVE
-%feature("autodoc", 1);
-#endif // SWIGOCTAVE
-
-%ignore operator!;
-%ignore operator=;
-%ignore *::operator=;
-%ignore *::operator+=;
-%ignore *::operator-=;
-%ignore *::operator*=;
-%ignore *::operator/=;
-//%ignore mglDataA
-
-%{
-#define SWIG_FILE_WITH_INIT
-//#include "mgl2/config.h"
-#include "mgl2/type.h"
-#include "mgl2/data.h"
-#include "mgl2/mgl.h"
-#include "mgl2/window.h"
-%}
-
-#if MGL_USE_DOUBLE
-typedef double mreal;
-#else
-typedef float mreal;
-#endif
-
-
-#ifdef SWIGOCTAVE
-%rename(__add) operator+;
-%rename(__sub) operator-;
-%rename(__mul) operator*;
-%rename(__div) operator/;
-%rename(__eq) operator==;
-%rename(__ne) operator!=;
-%typemap(in,noblock=1) (double* d, int rows, int cols) (Matrix tmp) {
-       if (!$input.is_matrix_type())   {       error("A must be a matrix");    SWIG_fail;      }
-       tmp=$input.matrix_value();
-       $1=tmp.data();
-       $2=tmp.rows();
-       $3=tmp.columns();
-}
-#endif
-
-#ifdef SWIGPYTHON
-%rename(__add__) *::operator+(const mglData&, const mglData&);
-%rename(__sub__) *::operator-(const mglData&, const mglData &);
-%rename(__mul__) *::operator*(const mglData &, float);
-%rename(__div__) *::operator/(const mglData &, float);
-
-// Get the NumPy typemaps
-%include "numpy.i"
-%init %{
-import_array();
-%}
-%apply (double* IN_ARRAY1, int DIM1) {(const double* d, int size)};
-%apply (int DIM1, double* IN_ARRAY1) {(int size, const double* d)};
-%apply (double* IN_ARRAY2, int DIM1, int DIM2) {(const double* d, int rows, int cols)};
-%apply (int DIM1, int DIM2, double* IN_ARRAY2) {(int rows, int cols, const double* d)};
-%apply (double* IN_ARRAY3, int DIM1, int DIM2, int DIM3) {(const double* d, int rows, int cols, int slc)};
-%apply (int DIM1, int DIM2, int DIM3, double* IN_ARRAY3) {(int rows, int cols, int slc, const double* d)};
-#endif
-
-//%include "mgl2/config.h"
-%include "mgl2/type.h"
-%include "mgl2/data.h"
-%include "mgl2/mgl.h"
-%include "mgl2/window.h"
-%extend mglData
-{
-       float __getitem__( int i)       {       return self->GetVal(i); };
-       float __paren( int i)           {       return self->GetVal(i); };
-       void __setitem__( int i, float y)       {       self->SetVal(y,i);      };
-       void __paren_asgn( int i, float y)      {       self->SetVal(y,i);      };
-};

diff --git a/lang/numpy.i b/lang/numpy.i
new file mode 100644 (file)
index 0000000..25d1f1a
--- /dev/null
+++ b/lang/numpy.i
@@ -0,0 +1,1634 @@
+/* -*- C -*-  (not really, but good for syntax highlighting) */
+#ifdef SWIGPYTHON
+
+%{
+#ifndef SWIG_FILE_WITH_INIT
+#  define NO_IMPORT_ARRAY
+#endif
+#include "stdio.h"
+#include <numpy/arrayobject.h>
+%}
+
+/**********************************************************************/
+
+%fragment("NumPy_Backward_Compatibility", "header")
+{
+/* Support older NumPy data type names
+*/
+%#if NDARRAY_VERSION < 0x01000000
+%#define NPY_BOOL          PyArray_BOOL
+%#define NPY_BYTE          PyArray_BYTE
+%#define NPY_UBYTE         PyArray_UBYTE
+%#define NPY_SHORT         PyArray_SHORT
+%#define NPY_USHORT        PyArray_USHORT
+%#define NPY_INT           PyArray_INT
+%#define NPY_UINT          PyArray_UINT
+%#define NPY_LONG          PyArray_LONG
+%#define NPY_ULONG         PyArray_ULONG
+%#define NPY_LONGLONG      PyArray_LONGLONG
+%#define NPY_ULONGLONG     PyArray_ULONGLONG
+%#define NPY_FLOAT         PyArray_FLOAT
+%#define NPY_DOUBLE        PyArray_DOUBLE
+%#define NPY_LONGDOUBLE    PyArray_LONGDOUBLE
+%#define NPY_CFLOAT        PyArray_CFLOAT
+%#define NPY_CDOUBLE       PyArray_CDOUBLE
+%#define NPY_CLONGDOUBLE   PyArray_CLONGDOUBLE
+%#define NPY_OBJECT        PyArray_OBJECT
+%#define NPY_STRING        PyArray_STRING
+%#define NPY_UNICODE       PyArray_UNICODE
+%#define NPY_VOID          PyArray_VOID
+%#define NPY_NTYPES        PyArray_NTYPES
+%#define NPY_NOTYPE        PyArray_NOTYPE
+%#define NPY_CHAR          PyArray_CHAR
+%#define NPY_USERDEF       PyArray_USERDEF
+%#define npy_intp          intp
+
+%#define NPY_MAX_BYTE      MAX_BYTE
+%#define NPY_MIN_BYTE      MIN_BYTE
+%#define NPY_MAX_UBYTE     MAX_UBYTE
+%#define NPY_MAX_SHORT     MAX_SHORT
+%#define NPY_MIN_SHORT     MIN_SHORT
+%#define NPY_MAX_USHORT    MAX_USHORT
+%#define NPY_MAX_INT       MAX_INT
+%#define NPY_MIN_INT       MIN_INT
+%#define NPY_MAX_UINT      MAX_UINT
+%#define NPY_MAX_LONG      MAX_LONG
+%#define NPY_MIN_LONG      MIN_LONG
+%#define NPY_MAX_ULONG     MAX_ULONG
+%#define NPY_MAX_LONGLONG  MAX_LONGLONG
+%#define NPY_MIN_LONGLONG  MIN_LONGLONG
+%#define NPY_MAX_ULONGLONG MAX_ULONGLONG
+%#define NPY_MAX_INTP      MAX_INTP
+%#define NPY_MIN_INTP      MIN_INTP
+
+%#define NPY_FARRAY        FARRAY
+%#define NPY_F_CONTIGUOUS  F_CONTIGUOUS
+%#endif
+}
+
+/**********************************************************************/
+
+/* The following code originally appeared in
+ * enthought/kiva/agg/src/numeric.i written by Eric Jones.  It was
+ * translated from C++ to C by John Hunter.  Bill Spotz has modified
+ * it to fix some minor bugs, upgrade from Numeric to numpy (all
+ * versions), add some comments and functionality, and convert from
+ * direct code insertion to SWIG fragments.
+ */
+
+%fragment("NumPy_Macros", "header")
+{
+/* Macros to extract array attributes.
+ */
+%#define is_array(a)            ((a) && PyArray_Check((PyArrayObject *)a))
+%#define array_type(a)          (int)(PyArray_TYPE(a))
+%#define array_numdims(a)       (((PyArrayObject *)a)->nd)
+%#define array_dimensions(a)    (((PyArrayObject *)a)->dimensions)
+%#define array_size(a,i)        (((PyArrayObject *)a)->dimensions[i])
+%#define array_data(a)          (((PyArrayObject *)a)->data)
+%#define array_is_contiguous(a) (PyArray_ISCONTIGUOUS(a))
+%#define array_is_native(a)     (PyArray_ISNOTSWAPPED(a))
+%#define array_is_fortran(a)    (PyArray_ISFORTRAN(a))
+}
+
+/**********************************************************************/
+
+%fragment("NumPy_Utilities", "header")
+{
+  /* Given a PyObject, return a string describing its type.
+   */
+  char* pytype_string(PyObject* py_obj) {
+    if (py_obj == NULL          ) return "C NULL value";
+    if (py_obj == Py_None       ) return "Python None" ;
+    if (PyCallable_Check(py_obj)) return "callable"    ;
+    if (PyString_Check(  py_obj)) return "string"      ;
+    if (PyInt_Check(     py_obj)) return "int"         ;
+    if (PyFloat_Check(   py_obj)) return "float"       ;
+    if (PyDict_Check(    py_obj)) return "dict"        ;
+    if (PyList_Check(    py_obj)) return "list"        ;
+    if (PyTuple_Check(   py_obj)) return "tuple"       ;
+    if (PyFile_Check(    py_obj)) return "file"        ;
+    if (PyModule_Check(  py_obj)) return "module"      ;
+    if (PyInstance_Check(py_obj)) return "instance"    ;
+
+    return "unknow type";
+  }
+
+  /* Given a NumPy typecode, return a string describing the type.
+   */
+  char* typecode_string(int typecode) {
+    static char* type_names[25] = {"bool", "byte", "unsigned byte",
+                                   "short", "unsigned short", "int",
+                                   "unsigned int", "long", "unsigned long",
+                                   "long long", "unsigned long long",
+                                   "float", "double", "long double",
+                                   "complex float", "complex double",
+                                   "complex long double", "object",
+                                   "string", "unicode", "void", "ntypes",
+                                   "notype", "char", "unknown"};
+    return typecode < 24 ? type_names[typecode] : type_names[24];
+  }
+
+  /* Make sure input has correct numpy type.  Allow character and byte
+   * to match.  Also allow int and long to match.  This is deprecated.
+   * You should use PyArray_EquivTypenums() instead.
+   */
+  int type_match(int actual_type, int desired_type) {
+    return PyArray_EquivTypenums(actual_type, desired_type);
+  }
+}
+
+/**********************************************************************/
+
+%fragment("NumPy_Object_to_Array", "header",
+          fragment="NumPy_Backward_Compatibility",
+          fragment="NumPy_Macros",
+          fragment="NumPy_Utilities")
+{
+  /* Given a PyObject pointer, cast it to a PyArrayObject pointer if
+   * legal.  If not, set the python error string appropriately and
+   * return NULL.
+   */
+  PyArrayObject* obj_to_array_no_conversion(PyObject* input, int typecode)
+  {
+    PyArrayObject* ary = NULL;
+    if (is_array(input) && (typecode == NPY_NOTYPE ||
+                            PyArray_EquivTypenums(array_type(input), typecode)))
+    {
+      ary = (PyArrayObject*) input;
+    }
+    else if is_array(input)
+    {
+      char* desired_type = typecode_string(typecode);
+      char* actual_type  = typecode_string(array_type(input));
+      PyErr_Format(PyExc_TypeError,
+                   "Array of type '%s' required.  Array of type '%s' given",
+                   desired_type, actual_type);
+      ary = NULL;
+    }
+    else
+    {
+      char * desired_type = typecode_string(typecode);
+      char * actual_type  = pytype_string(input);
+      PyErr_Format(PyExc_TypeError,
+                   "Array of type '%s' required.  A '%s' was given",
+                   desired_type, actual_type);
+      ary = NULL;
+    }
+    return ary;
+  }
+
+  /* Convert the given PyObject to a NumPy array with the given
+   * typecode.  On success, return a valid PyArrayObject* with the
+   * correct type.  On failure, the python error string will be set and
+   * the routine returns NULL.
+   */
+  PyArrayObject* obj_to_array_allow_conversion(PyObject* input, int typecode,
+                                               int* is_new_object)
+  {
+    PyArrayObject* ary = NULL;
+    PyObject* py_obj;
+    if (is_array(input) && (typecode == NPY_NOTYPE ||
+                            PyArray_EquivTypenums(array_type(input),typecode)))
+    {
+      ary = (PyArrayObject*) input;
+      *is_new_object = 0;
+    }
+    else
+    {
+      py_obj = PyArray_FROMANY(input, typecode, 0, 0, NPY_DEFAULT);
+      /* If NULL, PyArray_FromObject will have set python error value.*/
+      ary = (PyArrayObject*) py_obj;
+      *is_new_object = 1;
+    }
+    return ary;
+  }
+
+  /* Given a PyArrayObject, check to see if it is contiguous.  If so,
+   * return the input pointer and flag it as not a new object.  If it is
+   * not contiguous, create a new PyArrayObject using the original data,
+   * flag it as a new object and return the pointer.
+   */
+  PyArrayObject* make_contiguous(PyArrayObject* ary, int* is_new_object,
+                                 int min_dims, int max_dims)
+  {
+    PyArrayObject* result;
+    if (array_is_contiguous(ary))
+    {
+      result = ary;
+      *is_new_object = 0;
+    }
+    else
+    {
+      result = (PyArrayObject*) PyArray_ContiguousFromObject((PyObject*)ary,
+                                                             array_type(ary),
+                                                             min_dims,
+                                                             max_dims);
+      *is_new_object = 1;
+    }
+    return result;
+  }
+
+  /* Given a PyArrayObject, check to see if it is Fortran-contiguous.
+   * If so, return the input pointer, but do not flag it as not a new
+   * object.  If it is not Fortran-contiguous, create a new
+   * PyArrayObject using the original data, flag it as a new object
+   * and return the pointer.
+   */
+  PyArrayObject* make_fortran(PyArrayObject* ary, int* is_new_object,
+                              int min_dims, int max_dims)
+  {
+    PyArrayObject* result;
+    if (array_is_fortran(ary))
+    {
+      result = ary;
+      *is_new_object = 0;
+    }
+    else
+    {
+      Py_INCREF(ary->descr);
+      result = (PyArrayObject*) PyArray_FromArray(ary, ary->descr, NPY_FORTRAN);
+      *is_new_object = 1;
+    }
+    return result;
+  }
+
+  /* Convert a given PyObject to a contiguous PyArrayObject of the
+   * specified type.  If the input object is not a contiguous
+   * PyArrayObject, a new one will be created and the new object flag
+   * will be set.
+   */
+  PyArrayObject* obj_to_array_contiguous_allow_conversion(PyObject* input,
+                                                          int typecode,
+                                                          int* is_new_object)
+  {
+    int is_new1 = 0;
+    int is_new2 = 0;
+    PyArrayObject* ary2;
+    PyArrayObject* ary1 = obj_to_array_allow_conversion(input, typecode,
+                                                        &is_new1);
+    if (ary1)
+    {
+      ary2 = make_contiguous(ary1, &is_new2, 0, 0);
+      if ( is_new1 && is_new2)
+      {
+        Py_DECREF(ary1);
+      }
+      ary1 = ary2;
+    }
+    *is_new_object = is_new1 || is_new2;
+    return ary1;
+  }
+
+  /* Convert a given PyObject to a Fortran-ordered PyArrayObject of the
+   * specified type.  If the input object is not a Fortran-ordered
+   * PyArrayObject, a new one will be created and the new object flag
+   * will be set.
+   */
+  PyArrayObject* obj_to_array_fortran_allow_conversion(PyObject* input,
+                                                       int typecode,
+                                                       int* is_new_object)
+  {
+    int is_new1 = 0;
+    int is_new2 = 0;
+    PyArrayObject* ary2;
+    PyArrayObject* ary1 = obj_to_array_allow_conversion(input, typecode,
+                                                        &is_new1);
+    if (ary1)
+    {
+      ary2 = make_fortran(ary1, &is_new2, 0, 0);
+      if (is_new1 && is_new2)
+      {
+        Py_DECREF(ary1);
+      }
+      ary1 = ary2;
+    }
+    *is_new_object = is_new1 || is_new2;
+    return ary1;
+  }
+
+} /* end fragment */
+
+
+/**********************************************************************/
+
+%fragment("NumPy_Array_Requirements", "header",
+          fragment="NumPy_Backward_Compatibility",
+          fragment="NumPy_Macros")
+{
+  /* Test whether a python object is contiguous.  If array is
+   * contiguous, return 1.  Otherwise, set the python error string and
+   * return 0.
+   */
+  int require_contiguous(PyArrayObject* ary)
+  {
+    int contiguous = 1;
+    if (!array_is_contiguous(ary))
+    {
+      PyErr_SetString(PyExc_TypeError,
+                      "Array must be contiguous.  A non-contiguous array was given");
+      contiguous = 0;
+    }
+    return contiguous;
+  }
+
+  /* Require that a numpy array is not byte-swapped.  If the array is
+   * not byte-swapped, return 1.  Otherwise, set the python error string
+   * and return 0.
+   */
+  int require_native(PyArrayObject* ary)
+  {
+    int native = 1;
+    if (!array_is_native(ary))
+    {
+      PyErr_SetString(PyExc_TypeError,
+                      "Array must have native byteorder.  "
+                      "A byte-swapped array was given");
+      native = 0;
+    }
+    return native;
+  }
+
+  /* Require the given PyArrayObject to have a specified number of
+   * dimensions.  If the array has the specified number of dimensions,
+   * return 1.  Otherwise, set the python error string and return 0.
+   */
+  int require_dimensions(PyArrayObject* ary, int exact_dimensions)
+  {
+    int success = 1;
+    if (array_numdims(ary) != exact_dimensions)
+    {
+      PyErr_Format(PyExc_TypeError,
+                   "Array must have %d dimensions.  Given array has %d dimensions",
+                   exact_dimensions, array_numdims(ary));
+      success = 0;
+    }
+    return success;
+  }
+
+  /* Require the given PyArrayObject to have one of a list of specified
+   * number of dimensions.  If the array has one of the specified number
+   * of dimensions, return 1.  Otherwise, set the python error string
+   * and return 0.
+   */
+  int require_dimensions_n(PyArrayObject* ary, int* exact_dimensions, int n)
+  {
+    int success = 0;
+    int i;
+    char dims_str[255] = "";
+    char s[255];
+    for (i = 0; i < n && !success; i++)
+    {
+      if (array_numdims(ary) == exact_dimensions[i])
+      {
+        success = 1;
+      }
+    }
+    if (!success)
+    {
+      for (i = 0; i < n-1; i++)
+      {
+        sprintf(s, "%d, ", exact_dimensions[i]);
+        strcat(dims_str,s);
+      }
+      sprintf(s, " or %d", exact_dimensions[n-1]);
+      strcat(dims_str,s);
+      PyErr_Format(PyExc_TypeError,
+                   "Array must have %s dimensions.  Given array has %d dimensions",
+                   dims_str, array_numdims(ary));
+    }
+    return success;
+  }
+
+  /* Require the given PyArrayObject to have a specified shape.  If the
+   * array has the specified shape, return 1.  Otherwise, set the python
+   * error string and return 0.
+   */
+  int require_size(PyArrayObject* ary, npy_intp* size, int n)
+  {
+    int i;
+    int success = 1;
+    int len;
+    char desired_dims[255] = "[";
+    char s[255];
+    char actual_dims[255] = "[";
+    for(i=0; i < n;i++)
+    {
+      if (size[i] != -1 &&  size[i] != array_size(ary,i))
+      {
+        success = 0;
+      }
+    }
+    if (!success)
+    {
+      for (i = 0; i < n; i++)
+      {
+        if (size[i] == -1)
+        {
+          sprintf(s, "*,");
+        }
+        else
+        {
+          sprintf(s, "%ld,", (long int)size[i]);
+        }
+        strcat(desired_dims,s);
+      }
+      len = strlen(desired_dims);
+      desired_dims[len-1] = ']';
+      for (i = 0; i < n; i++)
+      {
+        sprintf(s, "%ld,", (long int)array_size(ary,i));
+        strcat(actual_dims,s);
+      }
+      len = strlen(actual_dims);
+      actual_dims[len-1] = ']';
+      PyErr_Format(PyExc_TypeError,
+                   "Array must have shape of %s.  Given array has shape of %s",
+                   desired_dims, actual_dims);
+    }
+    return success;
+  }
+
+  /* Require the given PyArrayObject to to be FORTRAN ordered.  If the
+   * the PyArrayObject is already FORTRAN ordered, do nothing.  Else,
+   * set the FORTRAN ordering flag and recompute the strides.
+   */
+  int require_fortran(PyArrayObject* ary)
+  {
+    int success = 1;
+    int nd = array_numdims(ary);
+    int i;
+    if (array_is_fortran(ary)) return success;
+    /* Set the FORTRAN ordered flag */
+    ary->flags = NPY_FARRAY;
+    /* Recompute the strides */
+    ary->strides[0] = ary->strides[nd-1];
+    for (i=1; i < nd; ++i)
+      ary->strides[i] = ary->strides[i-1] * array_size(ary,i-1);
+    return success;
+  }
+}
+
+/* Combine all NumPy fragments into one for convenience */
+%fragment("NumPy_Fragments", "header",
+          fragment="NumPy_Backward_Compatibility",
+          fragment="NumPy_Macros",
+          fragment="NumPy_Utilities",
+          fragment="NumPy_Object_to_Array",
+          fragment="NumPy_Array_Requirements") { }
+
+/* End John Hunter translation (with modifications by Bill Spotz)
+ */
+
+/* %numpy_typemaps() macro
+ *
+ * This macro defines a family of 41 typemaps that allow C arguments
+ * of the form
+ *
+ *     (DATA_TYPE IN_ARRAY1[ANY])
+ *     (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
+ *     (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
+ *
+ *     (DATA_TYPE IN_ARRAY2[ANY][ANY])
+ *     (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
+ *     (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
+ *
+ *     (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
+ *     (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
+ *     (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
+ *
+ *     (DATA_TYPE INPLACE_ARRAY1[ANY])
+ *     (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
+ *     (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
+ *
+ *     (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
+ *     (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
+ *     (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
+ *
+ *     (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
+ *     (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
+ *     (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+ *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
+ *
+ *     (DATA_TYPE ARGOUT_ARRAY1[ANY])
+ *     (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
+ *     (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
+ *
+ *     (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
+ *
+ *     (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
+ *
+ *     (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
+ *     (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
+ *
+ *     (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+ *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
+ *     (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+ *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
+ *
+ *     (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+ *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
+ *     (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+ *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
+ *
+ * where "DATA_TYPE" is any type supported by the NumPy module, and
+ * "DIM_TYPE" is any int-like type suitable for specifying dimensions.
+ * The difference between "ARRAY" typemaps and "FARRAY" typemaps is
+ * that the "FARRAY" typemaps expect FORTRAN ordering of
+ * multidimensional arrays.  In python, the dimensions will not need
+ * to be specified (except for the "DATA_TYPE* ARGOUT_ARRAY1"
+ * typemaps).  The IN_ARRAYs can be a numpy array or any sequence that
+ * can be converted to a numpy array of the specified type.  The
+ * INPLACE_ARRAYs must be numpy arrays of the appropriate type.  The
+ * ARGOUT_ARRAYs will be returned as new numpy arrays of the
+ * appropriate type.
+ *
+ * These typemaps can be applied to existing functions using the
+ * %apply directive.  For example:
+ *
+ *     %apply (double* IN_ARRAY1, int DIM1) {(double* series, int length)};
+ *     double prod(double* series, int length);
+ *
+ *     %apply (int DIM1, int DIM2, double* INPLACE_ARRAY2)
+ *           {(int rows, int cols, double* matrix        )};
+ *     void floor(int rows, int cols, double* matrix, double f);
+ *
+ *     %apply (double IN_ARRAY3[ANY][ANY][ANY])
+ *           {(double tensor[2][2][2]         )};
+ *     %apply (double ARGOUT_ARRAY3[ANY][ANY][ANY])
+ *           {(double low[2][2][2]                )};
+ *     %apply (double ARGOUT_ARRAY3[ANY][ANY][ANY])
+ *           {(double upp[2][2][2]                )};
+ *     void luSplit(double tensor[2][2][2],
+ *                  double low[2][2][2],
+ *                  double upp[2][2][2]    );
+ *
+ * or directly with
+ *
+ *     double prod(double* IN_ARRAY1, int DIM1);
+ *
+ *     void floor(int DIM1, int DIM2, double* INPLACE_ARRAY2, double f);
+ *
+ *     void luSplit(double IN_ARRAY3[ANY][ANY][ANY],
+ *                  double ARGOUT_ARRAY3[ANY][ANY][ANY],
+ *                  double ARGOUT_ARRAY3[ANY][ANY][ANY]);
+ */
+
+%define %numpy_typemaps(DATA_TYPE, DATA_TYPECODE, DIM_TYPE)
+
+/************************/
+/* Input Array Typemaps */
+/************************/
+
+/* Typemap suite for (DATA_TYPE IN_ARRAY1[ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE IN_ARRAY1[ANY])
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE IN_ARRAY1[ANY])
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[1] = { $1_dim0 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 1) ||
+      !require_size(array, size, 1)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(freearg)
+  (DATA_TYPE IN_ARRAY1[ANY])
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[1] = { -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 1) ||
+      !require_size(array, size, 1)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+}
+%typemap(freearg)
+  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[1] = {-1};
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 1) ||
+      !require_size(array, size, 1)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DATA_TYPE*) array_data(array);
+}
+%typemap(freearg)
+  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE IN_ARRAY2[ANY][ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE IN_ARRAY2[ANY][ANY])
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE IN_ARRAY2[ANY][ANY])
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[2] = { $1_dim0, $1_dim1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 2) ||
+      !require_size(array, size, 2)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(freearg)
+  (DATA_TYPE IN_ARRAY2[ANY][ANY])
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[2] = { -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 2) ||
+      !require_size(array, size, 2)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+}
+%typemap(freearg)
+  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[2] = { -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 2) ||
+      !require_size(array, size, 2)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DATA_TYPE*) array_data(array);
+}
+%typemap(freearg)
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[2] = { -1, -1 };
+  array = obj_to_array_fortran_allow_conversion($input, DATA_TYPECODE,
+                                                &is_new_object);
+  if (!array || !require_dimensions(array, 2) ||
+      !require_size(array, size, 2) || !require_fortran(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+}
+%typemap(freearg)
+  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[2] = { -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 2) ||
+      !require_size(array, size, 2) || !require_fortran(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DATA_TYPE*) array_data(array);
+}
+%typemap(freearg)
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[3] = { $1_dim0, $1_dim1, $1_dim2 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 3) ||
+      !require_size(array, size, 3)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(freearg)
+  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
+ *                    DIM_TYPE DIM3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[3] = { -1, -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 3) ||
+      !require_size(array, size, 3)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+  $4 = (DIM_TYPE) array_size(array,2);
+}
+%typemap(freearg)
+  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
+ *                    DATA_TYPE* IN_ARRAY3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[3] = { -1, -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 3) ||
+      !require_size(array, size, 3)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DIM_TYPE) array_size(array,2);
+  $4 = (DATA_TYPE*) array_data(array);
+}
+%typemap(freearg)
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
+ *                    DIM_TYPE DIM3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[3] = { -1, -1, -1 };
+  array = obj_to_array_fortran_allow_conversion($input, DATA_TYPECODE,
+                                                &is_new_object);
+  if (!array || !require_dimensions(array, 3) ||
+      !require_size(array, size, 3) | !require_fortran(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+  $4 = (DIM_TYPE) array_size(array,2);
+}
+%typemap(freearg)
+  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
+ *                    DATA_TYPE* IN_FARRAY3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
+{
+  $1 = is_array($input) || PySequence_Check($input);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
+  (PyArrayObject* array=NULL, int is_new_object=0)
+{
+  npy_intp size[3] = { -1, -1, -1 };
+  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
+                                                   &is_new_object);
+  if (!array || !require_dimensions(array, 3) ||
+      !require_size(array, size, 3) || !require_fortran(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DIM_TYPE) array_size(array,2);
+  $4 = (DATA_TYPE*) array_data(array);
+}
+%typemap(freearg)
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
+{
+  if (is_new_object$argnum && array$argnum)
+    { Py_DECREF(array$argnum); }
+}
+
+/***************************/
+/* In-Place Array Typemaps */
+/***************************/
+
+/* Typemap suite for (DATA_TYPE INPLACE_ARRAY1[ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE INPLACE_ARRAY1[ANY])
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE INPLACE_ARRAY1[ANY])
+  (PyArrayObject* array=NULL)
+{
+  npy_intp size[1] = { $1_dim0 };
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,1) || !require_size(array, size, 1) ||
+      !require_contiguous(array) || !require_native(array)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
+  (PyArrayObject* array=NULL, int i=1)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,1) || !require_contiguous(array)
+      || !require_native(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = 1;
+  for (i=0; i < array_numdims(array); ++i) $2 *= array_size(array,i);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
+  (PyArrayObject* array=NULL, int i=0)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,1) || !require_contiguous(array)
+      || !require_native(array)) SWIG_fail;
+  $1 = 1;
+  for (i=0; i < array_numdims(array); ++i) $1 *= array_size(array,i);
+  $2 = (DATA_TYPE*) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
+  (PyArrayObject* array=NULL)
+{
+  npy_intp size[2] = { $1_dim0, $1_dim1 };
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,2) || !require_size(array, size, 2) ||
+      !require_contiguous(array) || !require_native(array)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,2) || !require_contiguous(array)
+      || !require_native(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,2) || !require_contiguous(array) ||
+      !require_native(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DATA_TYPE*) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,2) || !require_contiguous(array)
+      || !require_native(array) || !require_fortran(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,2) || !require_contiguous(array) ||
+      !require_native(array) || !require_fortran(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DATA_TYPE*) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
+  (PyArrayObject* array=NULL)
+{
+  npy_intp size[3] = { $1_dim0, $1_dim1, $1_dim2 };
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,3) || !require_size(array, size, 3) ||
+      !require_contiguous(array) || !require_native(array)) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
+ *                    DIM_TYPE DIM3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,3) || !require_contiguous(array) ||
+      !require_native(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+  $4 = (DIM_TYPE) array_size(array,2);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
+ *                    DATA_TYPE* INPLACE_ARRAY3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,3) || !require_contiguous(array)
+      || !require_native(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DIM_TYPE) array_size(array,2);
+  $4 = (DATA_TYPE*) array_data(array);
+}
+
+/* Typemap suite for (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
+ *                    DIM_TYPE DIM3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,3) || !require_contiguous(array) ||
+      !require_native(array) || !require_fortran(array)) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+  $2 = (DIM_TYPE) array_size(array,0);
+  $3 = (DIM_TYPE) array_size(array,1);
+  $4 = (DIM_TYPE) array_size(array,2);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
+ *                    DATA_TYPE* INPLACE_FARRAY3)
+ */
+%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
+           fragment="NumPy_Macros")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
+{
+  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
+                                                 DATA_TYPECODE);
+}
+%typemap(in,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
+  (PyArrayObject* array=NULL)
+{
+  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
+  if (!array || !require_dimensions(array,3) || !require_contiguous(array)
+      || !require_native(array) || !require_fortran(array)) SWIG_fail;
+  $1 = (DIM_TYPE) array_size(array,0);
+  $2 = (DIM_TYPE) array_size(array,1);
+  $3 = (DIM_TYPE) array_size(array,2);
+  $4 = (DATA_TYPE*) array_data(array);
+}
+
+/*************************/
+/* Argout Array Typemaps */
+/*************************/
+
+/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY1[ANY])
+ */
+%typemap(in,numinputs=0,
+         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
+  (DATA_TYPE ARGOUT_ARRAY1[ANY])
+  (PyObject * array = NULL)
+{
+  npy_intp dims[1] = { $1_dim0 };
+  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
+  if (!array) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(argout)
+  (DATA_TYPE ARGOUT_ARRAY1[ANY])
+{
+  $result = SWIG_Python_AppendOutput($result,array$argnum);
+}
+
+/* Typemap suite for (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
+ */
+%typemap(in,numinputs=1,
+         fragment="NumPy_Fragments")
+  (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
+  (PyObject * array = NULL)
+{
+  npy_intp dims[1];
+  if (!PyInt_Check($input))
+  {
+    char* typestring = pytype_string($input);
+    PyErr_Format(PyExc_TypeError,
+                 "Int dimension expected.  '%s' given.",
+                 typestring);
+    SWIG_fail;
+  }
+  $2 = (DIM_TYPE) PyInt_AsLong($input);
+  dims[0] = (npy_intp) $2;
+  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
+  if (!array) SWIG_fail;
+  $1 = (DATA_TYPE*) array_data(array);
+}
+%typemap(argout)
+  (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
+{
+  $result = SWIG_Python_AppendOutput($result,array$argnum);
+}
+
+/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
+ */
+%typemap(in,numinputs=1,
+         fragment="NumPy_Fragments")
+  (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
+  (PyObject * array = NULL)
+{
+  npy_intp dims[1];
+  if (!PyInt_Check($input))
+  {
+    char* typestring = pytype_string($input);
+    PyErr_Format(PyExc_TypeError,
+                 "Int dimension expected.  '%s' given.",
+                 typestring);
+    SWIG_fail;
+  }
+  $1 = (DIM_TYPE) PyInt_AsLong($input);
+  dims[0] = (npy_intp) $1;
+  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
+  if (!array) SWIG_fail;
+  $2 = (DATA_TYPE*) array_data(array);
+}
+%typemap(argout)
+  (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
+{
+  $result = SWIG_Python_AppendOutput($result,array$argnum);
+}
+
+/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
+ */
+%typemap(in,numinputs=0,
+         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
+  (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
+  (PyObject * array = NULL)
+{
+  npy_intp dims[2] = { $1_dim0, $1_dim1 };
+  array = PyArray_SimpleNew(2, dims, DATA_TYPECODE);
+  if (!array) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(argout)
+  (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
+{
+  $result = SWIG_Python_AppendOutput($result,array$argnum);
+}
+
+/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
+ */
+%typemap(in,numinputs=0,
+         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
+  (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
+  (PyObject * array = NULL)
+{
+  npy_intp dims[3] = { $1_dim0, $1_dim1, $1_dim2 };
+  array = PyArray_SimpleNew(3, dims, DATA_TYPECODE);
+  if (!array) SWIG_fail;
+  $1 = ($1_ltype) array_data(array);
+}
+%typemap(argout)
+  (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
+{
+  $result = SWIG_Python_AppendOutput($result,array$argnum);
+}
+
+/*****************************/
+/* Argoutview Array Typemaps */
+/*****************************/
+
+/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
+ */
+%typemap(in,numinputs=0)
+  (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1    )
+  (DATA_TYPE*  data_temp        , DIM_TYPE  dim_temp)
+{
+  $1 = &data_temp;
+  $2 = &dim_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
+{
+  npy_intp dims[1] = { *$2 };
+  PyObject * array = PyArray_SimpleNewFromData(1, dims, DATA_TYPECODE, (void*)(*$1));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
+ */
+%typemap(in,numinputs=0)
+  (DIM_TYPE* DIM1    , DATA_TYPE** ARGOUTVIEW_ARRAY1)
+  (DIM_TYPE  dim_temp, DATA_TYPE*  data_temp        )
+{
+  $1 = &dim_temp;
+  $2 = &data_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
+{
+  npy_intp dims[1] = { *$1 };
+  PyObject * array = PyArray_SimpleNewFromData(1, dims, DATA_TYPECODE, (void*)(*$2));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+ */
+%typemap(in,numinputs=0)
+  (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1     , DIM_TYPE* DIM2     )
+  (DATA_TYPE*  data_temp        , DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp)
+{
+  $1 = &data_temp;
+  $2 = &dim1_temp;
+  $3 = &dim2_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+{
+  npy_intp dims[2] = { *$2, *$3 };
+  PyObject * array = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$1));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
+ */
+%typemap(in,numinputs=0)
+  (DIM_TYPE* DIM1     , DIM_TYPE* DIM2     , DATA_TYPE** ARGOUTVIEW_ARRAY2)
+  (DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp, DATA_TYPE*  data_temp        )
+{
+  $1 = &dim1_temp;
+  $2 = &dim2_temp;
+  $3 = &data_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
+{
+  npy_intp dims[2] = { *$1, *$2 };
+  PyObject * array = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$3));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+ */
+%typemap(in,numinputs=0)
+  (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1     , DIM_TYPE* DIM2     )
+  (DATA_TYPE*  data_temp        , DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp)
+{
+  $1 = &data_temp;
+  $2 = &dim1_temp;
+  $3 = &dim2_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
+  (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
+{
+  npy_intp dims[2] = { *$2, *$3 };
+  PyObject * obj = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$1));
+  PyArrayObject * array = (PyArrayObject*) obj;
+  if (!array || !require_fortran(array)) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,obj);
+}
+
+/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
+ */
+%typemap(in,numinputs=0)
+  (DIM_TYPE* DIM1     , DIM_TYPE* DIM2     , DATA_TYPE** ARGOUTVIEW_FARRAY2)
+  (DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp, DATA_TYPE*  data_temp        )
+{
+  $1 = &dim1_temp;
+  $2 = &dim2_temp;
+  $3 = &data_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
+{
+  npy_intp dims[2] = { *$1, *$2 };
+  PyObject * obj = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$3));
+  PyArrayObject * array = (PyArrayObject*) obj;
+  if (!array || !require_fortran(array)) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,obj);
+}
+
+/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2,
+                      DIM_TYPE* DIM3)
+ */
+%typemap(in,numinputs=0)
+  (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+  (DATA_TYPE* data_temp, DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp)
+{
+  $1 = &data_temp;
+  $2 = &dim1_temp;
+  $3 = &dim2_temp;
+  $4 = &dim3_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+{
+  npy_intp dims[3] = { *$2, *$3, *$4 };
+  PyObject * array = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$1));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3,
+                      DATA_TYPE** ARGOUTVIEW_ARRAY3)
+ */
+%typemap(in,numinputs=0)
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
+  (DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp, DATA_TYPE* data_temp)
+{
+  $1 = &dim1_temp;
+  $2 = &dim2_temp;
+  $3 = &dim3_temp;
+  $4 = &data_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility")
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
+{
+  npy_intp dims[3] = { *$1, *$2, *$3 };
+  PyObject * array = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$3));
+  if (!array) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,array);
+}
+
+/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2,
+                      DIM_TYPE* DIM3)
+ */
+%typemap(in,numinputs=0)
+  (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+  (DATA_TYPE* data_temp, DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp)
+{
+  $1 = &data_temp;
+  $2 = &dim1_temp;
+  $3 = &dim2_temp;
+  $4 = &dim3_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
+  (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
+{
+  npy_intp dims[3] = { *$2, *$3, *$4 };
+  PyObject * obj = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$1));
+  PyArrayObject * array = (PyArrayObject*) obj;
+  if (!array || require_fortran(array)) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,obj);
+}
+
+/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3,
+                      DATA_TYPE** ARGOUTVIEW_FARRAY3)
+ */
+%typemap(in,numinputs=0)
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
+  (DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp, DATA_TYPE* data_temp)
+{
+  $1 = &dim1_temp;
+  $2 = &dim2_temp;
+  $3 = &dim3_temp;
+  $4 = &data_temp;
+}
+%typemap(argout,
+         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
+  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
+{
+  npy_intp dims[3] = { *$1, *$2, *$3 };
+  PyObject * obj = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$3));
+  PyArrayObject * array = (PyArrayObject*) obj;
+  if (!array || require_fortran(array)) SWIG_fail;
+  $result = SWIG_Python_AppendOutput($result,obj);
+}
+
+%enddef    /* %numpy_typemaps() macro */
+/* *************************************************************** */
+
+/* Concrete instances of the %numpy_typemaps() macro: Each invocation
+ * below applies all of the typemaps above to the specified data type.
+ */
+%numpy_typemaps(signed char       , NPY_BYTE     , int)
+%numpy_typemaps(unsigned char     , NPY_UBYTE    , int)
+%numpy_typemaps(short             , NPY_SHORT    , int)
+%numpy_typemaps(unsigned short    , NPY_USHORT   , int)
+%numpy_typemaps(int               , NPY_INT      , int)
+%numpy_typemaps(unsigned int      , NPY_UINT     , int)
+%numpy_typemaps(long              , NPY_LONG     , int)
+%numpy_typemaps(unsigned long     , NPY_ULONG    , int)
+%numpy_typemaps(long long         , NPY_LONGLONG , int)
+%numpy_typemaps(unsigned long long, NPY_ULONGLONG, int)
+%numpy_typemaps(float             , NPY_FLOAT    , int)
+%numpy_typemaps(double            , NPY_DOUBLE   , int)
+
+/* ***************************************************************
+ * The follow macro expansion does not work, because C++ bool is 4
+ * bytes and NPY_BOOL is 1 byte
+ *
+ *    %numpy_typemaps(bool, NPY_BOOL, int)
+ */
+
+/* ***************************************************************
+ * On my Mac, I get the following warning for this macro expansion:
+ * 'swig/python detected a memory leak of type 'long double *', no destructor found.'
+ *
+ *    %numpy_typemaps(long double, NPY_LONGDOUBLE, int)
+ */
+
+/* ***************************************************************
+ * Swig complains about a syntax error for the following macro
+ * expansions:
+ *
+ *    %numpy_typemaps(complex float,  NPY_CFLOAT , int)
+ *
+ *    %numpy_typemaps(complex double, NPY_CDOUBLE, int)
+ *
+ *    %numpy_typemaps(complex long double, NPY_CLONGDOUBLE, int)
+ */
+
+#endif /* SWIGPYTHON */

diff --git a/lang/numpy.i.in b/lang/numpy.i.in
deleted file mode 100644 (file)
index 25d1f1a..0000000
--- a/lang/numpy.i.in
+++ /dev/null
@@ -1,1634 +0,0 @@
-/* -*- C -*-  (not really, but good for syntax highlighting) */
-#ifdef SWIGPYTHON
-
-%{
-#ifndef SWIG_FILE_WITH_INIT
-#  define NO_IMPORT_ARRAY
-#endif
-#include "stdio.h"
-#include <numpy/arrayobject.h>
-%}
-
-/**********************************************************************/
-
-%fragment("NumPy_Backward_Compatibility", "header")
-{
-/* Support older NumPy data type names
-*/
-%#if NDARRAY_VERSION < 0x01000000
-%#define NPY_BOOL          PyArray_BOOL
-%#define NPY_BYTE          PyArray_BYTE
-%#define NPY_UBYTE         PyArray_UBYTE
-%#define NPY_SHORT         PyArray_SHORT
-%#define NPY_USHORT        PyArray_USHORT
-%#define NPY_INT           PyArray_INT
-%#define NPY_UINT          PyArray_UINT
-%#define NPY_LONG          PyArray_LONG
-%#define NPY_ULONG         PyArray_ULONG
-%#define NPY_LONGLONG      PyArray_LONGLONG
-%#define NPY_ULONGLONG     PyArray_ULONGLONG
-%#define NPY_FLOAT         PyArray_FLOAT
-%#define NPY_DOUBLE        PyArray_DOUBLE
-%#define NPY_LONGDOUBLE    PyArray_LONGDOUBLE
-%#define NPY_CFLOAT        PyArray_CFLOAT
-%#define NPY_CDOUBLE       PyArray_CDOUBLE
-%#define NPY_CLONGDOUBLE   PyArray_CLONGDOUBLE
-%#define NPY_OBJECT        PyArray_OBJECT
-%#define NPY_STRING        PyArray_STRING
-%#define NPY_UNICODE       PyArray_UNICODE
-%#define NPY_VOID          PyArray_VOID
-%#define NPY_NTYPES        PyArray_NTYPES
-%#define NPY_NOTYPE        PyArray_NOTYPE
-%#define NPY_CHAR          PyArray_CHAR
-%#define NPY_USERDEF       PyArray_USERDEF
-%#define npy_intp          intp
-
-%#define NPY_MAX_BYTE      MAX_BYTE
-%#define NPY_MIN_BYTE      MIN_BYTE
-%#define NPY_MAX_UBYTE     MAX_UBYTE
-%#define NPY_MAX_SHORT     MAX_SHORT
-%#define NPY_MIN_SHORT     MIN_SHORT
-%#define NPY_MAX_USHORT    MAX_USHORT
-%#define NPY_MAX_INT       MAX_INT
-%#define NPY_MIN_INT       MIN_INT
-%#define NPY_MAX_UINT      MAX_UINT
-%#define NPY_MAX_LONG      MAX_LONG
-%#define NPY_MIN_LONG      MIN_LONG
-%#define NPY_MAX_ULONG     MAX_ULONG
-%#define NPY_MAX_LONGLONG  MAX_LONGLONG
-%#define NPY_MIN_LONGLONG  MIN_LONGLONG
-%#define NPY_MAX_ULONGLONG MAX_ULONGLONG
-%#define NPY_MAX_INTP      MAX_INTP
-%#define NPY_MIN_INTP      MIN_INTP
-
-%#define NPY_FARRAY        FARRAY
-%#define NPY_F_CONTIGUOUS  F_CONTIGUOUS
-%#endif
-}
-
-/**********************************************************************/
-
-/* The following code originally appeared in
- * enthought/kiva/agg/src/numeric.i written by Eric Jones.  It was
- * translated from C++ to C by John Hunter.  Bill Spotz has modified
- * it to fix some minor bugs, upgrade from Numeric to numpy (all
- * versions), add some comments and functionality, and convert from
- * direct code insertion to SWIG fragments.
- */
-
-%fragment("NumPy_Macros", "header")
-{
-/* Macros to extract array attributes.
- */
-%#define is_array(a)            ((a) && PyArray_Check((PyArrayObject *)a))
-%#define array_type(a)          (int)(PyArray_TYPE(a))
-%#define array_numdims(a)       (((PyArrayObject *)a)->nd)
-%#define array_dimensions(a)    (((PyArrayObject *)a)->dimensions)
-%#define array_size(a,i)        (((PyArrayObject *)a)->dimensions[i])
-%#define array_data(a)          (((PyArrayObject *)a)->data)
-%#define array_is_contiguous(a) (PyArray_ISCONTIGUOUS(a))
-%#define array_is_native(a)     (PyArray_ISNOTSWAPPED(a))
-%#define array_is_fortran(a)    (PyArray_ISFORTRAN(a))
-}
-
-/**********************************************************************/
-
-%fragment("NumPy_Utilities", "header")
-{
-  /* Given a PyObject, return a string describing its type.
-   */
-  char* pytype_string(PyObject* py_obj) {
-    if (py_obj == NULL          ) return "C NULL value";
-    if (py_obj == Py_None       ) return "Python None" ;
-    if (PyCallable_Check(py_obj)) return "callable"    ;
-    if (PyString_Check(  py_obj)) return "string"      ;
-    if (PyInt_Check(     py_obj)) return "int"         ;
-    if (PyFloat_Check(   py_obj)) return "float"       ;
-    if (PyDict_Check(    py_obj)) return "dict"        ;
-    if (PyList_Check(    py_obj)) return "list"        ;
-    if (PyTuple_Check(   py_obj)) return "tuple"       ;
-    if (PyFile_Check(    py_obj)) return "file"        ;
-    if (PyModule_Check(  py_obj)) return "module"      ;
-    if (PyInstance_Check(py_obj)) return "instance"    ;
-
-    return "unknow type";
-  }
-
-  /* Given a NumPy typecode, return a string describing the type.
-   */
-  char* typecode_string(int typecode) {
-    static char* type_names[25] = {"bool", "byte", "unsigned byte",
-                                   "short", "unsigned short", "int",
-                                   "unsigned int", "long", "unsigned long",
-                                   "long long", "unsigned long long",
-                                   "float", "double", "long double",
-                                   "complex float", "complex double",
-                                   "complex long double", "object",
-                                   "string", "unicode", "void", "ntypes",
-                                   "notype", "char", "unknown"};
-    return typecode < 24 ? type_names[typecode] : type_names[24];
-  }
-
-  /* Make sure input has correct numpy type.  Allow character and byte
-   * to match.  Also allow int and long to match.  This is deprecated.
-   * You should use PyArray_EquivTypenums() instead.
-   */
-  int type_match(int actual_type, int desired_type) {
-    return PyArray_EquivTypenums(actual_type, desired_type);
-  }
-}
-
-/**********************************************************************/
-
-%fragment("NumPy_Object_to_Array", "header",
-          fragment="NumPy_Backward_Compatibility",
-          fragment="NumPy_Macros",
-          fragment="NumPy_Utilities")
-{
-  /* Given a PyObject pointer, cast it to a PyArrayObject pointer if
-   * legal.  If not, set the python error string appropriately and
-   * return NULL.
-   */
-  PyArrayObject* obj_to_array_no_conversion(PyObject* input, int typecode)
-  {
-    PyArrayObject* ary = NULL;
-    if (is_array(input) && (typecode == NPY_NOTYPE ||
-                            PyArray_EquivTypenums(array_type(input), typecode)))
-    {
-      ary = (PyArrayObject*) input;
-    }
-    else if is_array(input)
-    {
-      char* desired_type = typecode_string(typecode);
-      char* actual_type  = typecode_string(array_type(input));
-      PyErr_Format(PyExc_TypeError,
-                   "Array of type '%s' required.  Array of type '%s' given",
-                   desired_type, actual_type);
-      ary = NULL;
-    }
-    else
-    {
-      char * desired_type = typecode_string(typecode);
-      char * actual_type  = pytype_string(input);
-      PyErr_Format(PyExc_TypeError,
-                   "Array of type '%s' required.  A '%s' was given",
-                   desired_type, actual_type);
-      ary = NULL;
-    }
-    return ary;
-  }
-
-  /* Convert the given PyObject to a NumPy array with the given
-   * typecode.  On success, return a valid PyArrayObject* with the
-   * correct type.  On failure, the python error string will be set and
-   * the routine returns NULL.
-   */
-  PyArrayObject* obj_to_array_allow_conversion(PyObject* input, int typecode,
-                                               int* is_new_object)
-  {
-    PyArrayObject* ary = NULL;
-    PyObject* py_obj;
-    if (is_array(input) && (typecode == NPY_NOTYPE ||
-                            PyArray_EquivTypenums(array_type(input),typecode)))
-    {
-      ary = (PyArrayObject*) input;
-      *is_new_object = 0;
-    }
-    else
-    {
-      py_obj = PyArray_FROMANY(input, typecode, 0, 0, NPY_DEFAULT);
-      /* If NULL, PyArray_FromObject will have set python error value.*/
-      ary = (PyArrayObject*) py_obj;
-      *is_new_object = 1;
-    }
-    return ary;
-  }
-
-  /* Given a PyArrayObject, check to see if it is contiguous.  If so,
-   * return the input pointer and flag it as not a new object.  If it is
-   * not contiguous, create a new PyArrayObject using the original data,
-   * flag it as a new object and return the pointer.
-   */
-  PyArrayObject* make_contiguous(PyArrayObject* ary, int* is_new_object,
-                                 int min_dims, int max_dims)
-  {
-    PyArrayObject* result;
-    if (array_is_contiguous(ary))
-    {
-      result = ary;
-      *is_new_object = 0;
-    }
-    else
-    {
-      result = (PyArrayObject*) PyArray_ContiguousFromObject((PyObject*)ary,
-                                                             array_type(ary),
-                                                             min_dims,
-                                                             max_dims);
-      *is_new_object = 1;
-    }
-    return result;
-  }
-
-  /* Given a PyArrayObject, check to see if it is Fortran-contiguous.
-   * If so, return the input pointer, but do not flag it as not a new
-   * object.  If it is not Fortran-contiguous, create a new
-   * PyArrayObject using the original data, flag it as a new object
-   * and return the pointer.
-   */
-  PyArrayObject* make_fortran(PyArrayObject* ary, int* is_new_object,
-                              int min_dims, int max_dims)
-  {
-    PyArrayObject* result;
-    if (array_is_fortran(ary))
-    {
-      result = ary;
-      *is_new_object = 0;
-    }
-    else
-    {
-      Py_INCREF(ary->descr);
-      result = (PyArrayObject*) PyArray_FromArray(ary, ary->descr, NPY_FORTRAN);
-      *is_new_object = 1;
-    }
-    return result;
-  }
-
-  /* Convert a given PyObject to a contiguous PyArrayObject of the
-   * specified type.  If the input object is not a contiguous
-   * PyArrayObject, a new one will be created and the new object flag
-   * will be set.
-   */
-  PyArrayObject* obj_to_array_contiguous_allow_conversion(PyObject* input,
-                                                          int typecode,
-                                                          int* is_new_object)
-  {
-    int is_new1 = 0;
-    int is_new2 = 0;
-    PyArrayObject* ary2;
-    PyArrayObject* ary1 = obj_to_array_allow_conversion(input, typecode,
-                                                        &is_new1);
-    if (ary1)
-    {
-      ary2 = make_contiguous(ary1, &is_new2, 0, 0);
-      if ( is_new1 && is_new2)
-      {
-        Py_DECREF(ary1);
-      }
-      ary1 = ary2;
-    }
-    *is_new_object = is_new1 || is_new2;
-    return ary1;
-  }
-
-  /* Convert a given PyObject to a Fortran-ordered PyArrayObject of the
-   * specified type.  If the input object is not a Fortran-ordered
-   * PyArrayObject, a new one will be created and the new object flag
-   * will be set.
-   */
-  PyArrayObject* obj_to_array_fortran_allow_conversion(PyObject* input,
-                                                       int typecode,
-                                                       int* is_new_object)
-  {
-    int is_new1 = 0;
-    int is_new2 = 0;
-    PyArrayObject* ary2;
-    PyArrayObject* ary1 = obj_to_array_allow_conversion(input, typecode,
-                                                        &is_new1);
-    if (ary1)
-    {
-      ary2 = make_fortran(ary1, &is_new2, 0, 0);
-      if (is_new1 && is_new2)
-      {
-        Py_DECREF(ary1);
-      }
-      ary1 = ary2;
-    }
-    *is_new_object = is_new1 || is_new2;
-    return ary1;
-  }
-
-} /* end fragment */
-
-
-/**********************************************************************/
-
-%fragment("NumPy_Array_Requirements", "header",
-          fragment="NumPy_Backward_Compatibility",
-          fragment="NumPy_Macros")
-{
-  /* Test whether a python object is contiguous.  If array is
-   * contiguous, return 1.  Otherwise, set the python error string and
-   * return 0.
-   */
-  int require_contiguous(PyArrayObject* ary)
-  {
-    int contiguous = 1;
-    if (!array_is_contiguous(ary))
-    {
-      PyErr_SetString(PyExc_TypeError,
-                      "Array must be contiguous.  A non-contiguous array was given");
-      contiguous = 0;
-    }
-    return contiguous;
-  }
-
-  /* Require that a numpy array is not byte-swapped.  If the array is
-   * not byte-swapped, return 1.  Otherwise, set the python error string
-   * and return 0.
-   */
-  int require_native(PyArrayObject* ary)
-  {
-    int native = 1;
-    if (!array_is_native(ary))
-    {
-      PyErr_SetString(PyExc_TypeError,
-                      "Array must have native byteorder.  "
-                      "A byte-swapped array was given");
-      native = 0;
-    }
-    return native;
-  }
-
-  /* Require the given PyArrayObject to have a specified number of
-   * dimensions.  If the array has the specified number of dimensions,
-   * return 1.  Otherwise, set the python error string and return 0.
-   */
-  int require_dimensions(PyArrayObject* ary, int exact_dimensions)
-  {
-    int success = 1;
-    if (array_numdims(ary) != exact_dimensions)
-    {
-      PyErr_Format(PyExc_TypeError,
-                   "Array must have %d dimensions.  Given array has %d dimensions",
-                   exact_dimensions, array_numdims(ary));
-      success = 0;
-    }
-    return success;
-  }
-
-  /* Require the given PyArrayObject to have one of a list of specified
-   * number of dimensions.  If the array has one of the specified number
-   * of dimensions, return 1.  Otherwise, set the python error string
-   * and return 0.
-   */
-  int require_dimensions_n(PyArrayObject* ary, int* exact_dimensions, int n)
-  {
-    int success = 0;
-    int i;
-    char dims_str[255] = "";
-    char s[255];
-    for (i = 0; i < n && !success; i++)
-    {
-      if (array_numdims(ary) == exact_dimensions[i])
-      {
-        success = 1;
-      }
-    }
-    if (!success)
-    {
-      for (i = 0; i < n-1; i++)
-      {
-        sprintf(s, "%d, ", exact_dimensions[i]);
-        strcat(dims_str,s);
-      }
-      sprintf(s, " or %d", exact_dimensions[n-1]);
-      strcat(dims_str,s);
-      PyErr_Format(PyExc_TypeError,
-                   "Array must have %s dimensions.  Given array has %d dimensions",
-                   dims_str, array_numdims(ary));
-    }
-    return success;
-  }
-
-  /* Require the given PyArrayObject to have a specified shape.  If the
-   * array has the specified shape, return 1.  Otherwise, set the python
-   * error string and return 0.
-   */
-  int require_size(PyArrayObject* ary, npy_intp* size, int n)
-  {
-    int i;
-    int success = 1;
-    int len;
-    char desired_dims[255] = "[";
-    char s[255];
-    char actual_dims[255] = "[";
-    for(i=0; i < n;i++)
-    {
-      if (size[i] != -1 &&  size[i] != array_size(ary,i))
-      {
-        success = 0;
-      }
-    }
-    if (!success)
-    {
-      for (i = 0; i < n; i++)
-      {
-        if (size[i] == -1)
-        {
-          sprintf(s, "*,");
-        }
-        else
-        {
-          sprintf(s, "%ld,", (long int)size[i]);
-        }
-        strcat(desired_dims,s);
-      }
-      len = strlen(desired_dims);
-      desired_dims[len-1] = ']';
-      for (i = 0; i < n; i++)
-      {
-        sprintf(s, "%ld,", (long int)array_size(ary,i));
-        strcat(actual_dims,s);
-      }
-      len = strlen(actual_dims);
-      actual_dims[len-1] = ']';
-      PyErr_Format(PyExc_TypeError,
-                   "Array must have shape of %s.  Given array has shape of %s",
-                   desired_dims, actual_dims);
-    }
-    return success;
-  }
-
-  /* Require the given PyArrayObject to to be FORTRAN ordered.  If the
-   * the PyArrayObject is already FORTRAN ordered, do nothing.  Else,
-   * set the FORTRAN ordering flag and recompute the strides.
-   */
-  int require_fortran(PyArrayObject* ary)
-  {
-    int success = 1;
-    int nd = array_numdims(ary);
-    int i;
-    if (array_is_fortran(ary)) return success;
-    /* Set the FORTRAN ordered flag */
-    ary->flags = NPY_FARRAY;
-    /* Recompute the strides */
-    ary->strides[0] = ary->strides[nd-1];
-    for (i=1; i < nd; ++i)
-      ary->strides[i] = ary->strides[i-1] * array_size(ary,i-1);
-    return success;
-  }
-}
-
-/* Combine all NumPy fragments into one for convenience */
-%fragment("NumPy_Fragments", "header",
-          fragment="NumPy_Backward_Compatibility",
-          fragment="NumPy_Macros",
-          fragment="NumPy_Utilities",
-          fragment="NumPy_Object_to_Array",
-          fragment="NumPy_Array_Requirements") { }
-
-/* End John Hunter translation (with modifications by Bill Spotz)
- */
-
-/* %numpy_typemaps() macro
- *
- * This macro defines a family of 41 typemaps that allow C arguments
- * of the form
- *
- *     (DATA_TYPE IN_ARRAY1[ANY])
- *     (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
- *     (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
- *
- *     (DATA_TYPE IN_ARRAY2[ANY][ANY])
- *     (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
- *     (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
- *
- *     (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
- *     (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
- *     (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
- *
- *     (DATA_TYPE INPLACE_ARRAY1[ANY])
- *     (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
- *     (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
- *
- *     (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
- *     (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
- *     (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
- *
- *     (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
- *     (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
- *     (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
- *     (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
- *
- *     (DATA_TYPE ARGOUT_ARRAY1[ANY])
- *     (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
- *     (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
- *
- *     (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
- *
- *     (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
- *
- *     (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
- *     (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
- *
- *     (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
- *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
- *     (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
- *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
- *
- *     (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
- *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
- *     (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
- *     (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
- *
- * where "DATA_TYPE" is any type supported by the NumPy module, and
- * "DIM_TYPE" is any int-like type suitable for specifying dimensions.
- * The difference between "ARRAY" typemaps and "FARRAY" typemaps is
- * that the "FARRAY" typemaps expect FORTRAN ordering of
- * multidimensional arrays.  In python, the dimensions will not need
- * to be specified (except for the "DATA_TYPE* ARGOUT_ARRAY1"
- * typemaps).  The IN_ARRAYs can be a numpy array or any sequence that
- * can be converted to a numpy array of the specified type.  The
- * INPLACE_ARRAYs must be numpy arrays of the appropriate type.  The
- * ARGOUT_ARRAYs will be returned as new numpy arrays of the
- * appropriate type.
- *
- * These typemaps can be applied to existing functions using the
- * %apply directive.  For example:
- *
- *     %apply (double* IN_ARRAY1, int DIM1) {(double* series, int length)};
- *     double prod(double* series, int length);
- *
- *     %apply (int DIM1, int DIM2, double* INPLACE_ARRAY2)
- *           {(int rows, int cols, double* matrix        )};
- *     void floor(int rows, int cols, double* matrix, double f);
- *
- *     %apply (double IN_ARRAY3[ANY][ANY][ANY])
- *           {(double tensor[2][2][2]         )};
- *     %apply (double ARGOUT_ARRAY3[ANY][ANY][ANY])
- *           {(double low[2][2][2]                )};
- *     %apply (double ARGOUT_ARRAY3[ANY][ANY][ANY])
- *           {(double upp[2][2][2]                )};
- *     void luSplit(double tensor[2][2][2],
- *                  double low[2][2][2],
- *                  double upp[2][2][2]    );
- *
- * or directly with
- *
- *     double prod(double* IN_ARRAY1, int DIM1);
- *
- *     void floor(int DIM1, int DIM2, double* INPLACE_ARRAY2, double f);
- *
- *     void luSplit(double IN_ARRAY3[ANY][ANY][ANY],
- *                  double ARGOUT_ARRAY3[ANY][ANY][ANY],
- *                  double ARGOUT_ARRAY3[ANY][ANY][ANY]);
- */
-
-%define %numpy_typemaps(DATA_TYPE, DATA_TYPECODE, DIM_TYPE)
-
-/************************/
-/* Input Array Typemaps */
-/************************/
-
-/* Typemap suite for (DATA_TYPE IN_ARRAY1[ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE IN_ARRAY1[ANY])
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE IN_ARRAY1[ANY])
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[1] = { $1_dim0 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 1) ||
-      !require_size(array, size, 1)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(freearg)
-  (DATA_TYPE IN_ARRAY1[ANY])
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[1] = { -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 1) ||
-      !require_size(array, size, 1)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-}
-%typemap(freearg)
-  (DATA_TYPE* IN_ARRAY1, DIM_TYPE DIM1)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[1] = {-1};
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 1) ||
-      !require_size(array, size, 1)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DATA_TYPE*) array_data(array);
-}
-%typemap(freearg)
-  (DIM_TYPE DIM1, DATA_TYPE* IN_ARRAY1)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE IN_ARRAY2[ANY][ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE IN_ARRAY2[ANY][ANY])
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE IN_ARRAY2[ANY][ANY])
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[2] = { $1_dim0, $1_dim1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 2) ||
-      !require_size(array, size, 2)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(freearg)
-  (DATA_TYPE IN_ARRAY2[ANY][ANY])
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[2] = { -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 2) ||
-      !require_size(array, size, 2)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-}
-%typemap(freearg)
-  (DATA_TYPE* IN_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[2] = { -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 2) ||
-      !require_size(array, size, 2)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DATA_TYPE*) array_data(array);
-}
-%typemap(freearg)
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_ARRAY2)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[2] = { -1, -1 };
-  array = obj_to_array_fortran_allow_conversion($input, DATA_TYPECODE,
-                                                &is_new_object);
-  if (!array || !require_dimensions(array, 2) ||
-      !require_size(array, size, 2) || !require_fortran(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-}
-%typemap(freearg)
-  (DATA_TYPE* IN_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[2] = { -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 2) ||
-      !require_size(array, size, 2) || !require_fortran(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DATA_TYPE*) array_data(array);
-}
-%typemap(freearg)
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* IN_FARRAY2)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[3] = { $1_dim0, $1_dim1, $1_dim2 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 3) ||
-      !require_size(array, size, 3)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(freearg)
-  (DATA_TYPE IN_ARRAY3[ANY][ANY][ANY])
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
- *                    DIM_TYPE DIM3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[3] = { -1, -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 3) ||
-      !require_size(array, size, 3)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-  $4 = (DIM_TYPE) array_size(array,2);
-}
-%typemap(freearg)
-  (DATA_TYPE* IN_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
- *                    DATA_TYPE* IN_ARRAY3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[3] = { -1, -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 3) ||
-      !require_size(array, size, 3)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DIM_TYPE) array_size(array,2);
-  $4 = (DATA_TYPE*) array_data(array);
-}
-%typemap(freearg)
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_ARRAY3)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
- *                    DIM_TYPE DIM3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[3] = { -1, -1, -1 };
-  array = obj_to_array_fortran_allow_conversion($input, DATA_TYPECODE,
-                                                &is_new_object);
-  if (!array || !require_dimensions(array, 3) ||
-      !require_size(array, size, 3) | !require_fortran(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-  $4 = (DIM_TYPE) array_size(array,2);
-}
-%typemap(freearg)
-  (DATA_TYPE* IN_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
- *                    DATA_TYPE* IN_FARRAY3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
-{
-  $1 = is_array($input) || PySequence_Check($input);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
-  (PyArrayObject* array=NULL, int is_new_object=0)
-{
-  npy_intp size[3] = { -1, -1, -1 };
-  array = obj_to_array_contiguous_allow_conversion($input, DATA_TYPECODE,
-                                                   &is_new_object);
-  if (!array || !require_dimensions(array, 3) ||
-      !require_size(array, size, 3) || !require_fortran(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DIM_TYPE) array_size(array,2);
-  $4 = (DATA_TYPE*) array_data(array);
-}
-%typemap(freearg)
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* IN_FARRAY3)
-{
-  if (is_new_object$argnum && array$argnum)
-    { Py_DECREF(array$argnum); }
-}
-
-/***************************/
-/* In-Place Array Typemaps */
-/***************************/
-
-/* Typemap suite for (DATA_TYPE INPLACE_ARRAY1[ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE INPLACE_ARRAY1[ANY])
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE INPLACE_ARRAY1[ANY])
-  (PyArrayObject* array=NULL)
-{
-  npy_intp size[1] = { $1_dim0 };
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,1) || !require_size(array, size, 1) ||
-      !require_contiguous(array) || !require_native(array)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* INPLACE_ARRAY1, DIM_TYPE DIM1)
-  (PyArrayObject* array=NULL, int i=1)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,1) || !require_contiguous(array)
-      || !require_native(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = 1;
-  for (i=0; i < array_numdims(array); ++i) $2 *= array_size(array,i);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DATA_TYPE* INPLACE_ARRAY1)
-  (PyArrayObject* array=NULL, int i=0)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,1) || !require_contiguous(array)
-      || !require_native(array)) SWIG_fail;
-  $1 = 1;
-  for (i=0; i < array_numdims(array); ++i) $1 *= array_size(array,i);
-  $2 = (DATA_TYPE*) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE INPLACE_ARRAY2[ANY][ANY])
-  (PyArrayObject* array=NULL)
-{
-  npy_intp size[2] = { $1_dim0, $1_dim1 };
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,2) || !require_size(array, size, 2) ||
-      !require_contiguous(array) || !require_native(array)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* INPLACE_ARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,2) || !require_contiguous(array)
-      || !require_native(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_ARRAY2)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,2) || !require_contiguous(array) ||
-      !require_native(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DATA_TYPE*) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* INPLACE_FARRAY2, DIM_TYPE DIM1, DIM_TYPE DIM2)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,2) || !require_contiguous(array)
-      || !require_native(array) || !require_fortran(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DATA_TYPE* INPLACE_FARRAY2)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,2) || !require_contiguous(array) ||
-      !require_native(array) || !require_fortran(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DATA_TYPE*) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE INPLACE_ARRAY3[ANY][ANY][ANY])
-  (PyArrayObject* array=NULL)
-{
-  npy_intp size[3] = { $1_dim0, $1_dim1, $1_dim2 };
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,3) || !require_size(array, size, 3) ||
-      !require_contiguous(array) || !require_native(array)) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
- *                    DIM_TYPE DIM3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* INPLACE_ARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,3) || !require_contiguous(array) ||
-      !require_native(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-  $4 = (DIM_TYPE) array_size(array,2);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
- *                    DATA_TYPE* INPLACE_ARRAY3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_ARRAY3)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,3) || !require_contiguous(array)
-      || !require_native(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DIM_TYPE) array_size(array,2);
-  $4 = (DATA_TYPE*) array_data(array);
-}
-
-/* Typemap suite for (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2,
- *                    DIM_TYPE DIM3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* INPLACE_FARRAY3, DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,3) || !require_contiguous(array) ||
-      !require_native(array) || !require_fortran(array)) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-  $2 = (DIM_TYPE) array_size(array,0);
-  $3 = (DIM_TYPE) array_size(array,1);
-  $4 = (DIM_TYPE) array_size(array,2);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3,
- *                    DATA_TYPE* INPLACE_FARRAY3)
- */
-%typecheck(SWIG_TYPECHECK_DOUBLE_ARRAY,
-           fragment="NumPy_Macros")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
-{
-  $1 = is_array($input) && PyArray_EquivTypenums(array_type($input),
-                                                 DATA_TYPECODE);
-}
-%typemap(in,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DIM_TYPE DIM2, DIM_TYPE DIM3, DATA_TYPE* INPLACE_FARRAY3)
-  (PyArrayObject* array=NULL)
-{
-  array = obj_to_array_no_conversion($input, DATA_TYPECODE);
-  if (!array || !require_dimensions(array,3) || !require_contiguous(array)
-      || !require_native(array) || !require_fortran(array)) SWIG_fail;
-  $1 = (DIM_TYPE) array_size(array,0);
-  $2 = (DIM_TYPE) array_size(array,1);
-  $3 = (DIM_TYPE) array_size(array,2);
-  $4 = (DATA_TYPE*) array_data(array);
-}
-
-/*************************/
-/* Argout Array Typemaps */
-/*************************/
-
-/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY1[ANY])
- */
-%typemap(in,numinputs=0,
-         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
-  (DATA_TYPE ARGOUT_ARRAY1[ANY])
-  (PyObject * array = NULL)
-{
-  npy_intp dims[1] = { $1_dim0 };
-  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
-  if (!array) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(argout)
-  (DATA_TYPE ARGOUT_ARRAY1[ANY])
-{
-  $result = SWIG_Python_AppendOutput($result,array$argnum);
-}
-
-/* Typemap suite for (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
- */
-%typemap(in,numinputs=1,
-         fragment="NumPy_Fragments")
-  (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
-  (PyObject * array = NULL)
-{
-  npy_intp dims[1];
-  if (!PyInt_Check($input))
-  {
-    char* typestring = pytype_string($input);
-    PyErr_Format(PyExc_TypeError,
-                 "Int dimension expected.  '%s' given.",
-                 typestring);
-    SWIG_fail;
-  }
-  $2 = (DIM_TYPE) PyInt_AsLong($input);
-  dims[0] = (npy_intp) $2;
-  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
-  if (!array) SWIG_fail;
-  $1 = (DATA_TYPE*) array_data(array);
-}
-%typemap(argout)
-  (DATA_TYPE* ARGOUT_ARRAY1, DIM_TYPE DIM1)
-{
-  $result = SWIG_Python_AppendOutput($result,array$argnum);
-}
-
-/* Typemap suite for (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
- */
-%typemap(in,numinputs=1,
-         fragment="NumPy_Fragments")
-  (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
-  (PyObject * array = NULL)
-{
-  npy_intp dims[1];
-  if (!PyInt_Check($input))
-  {
-    char* typestring = pytype_string($input);
-    PyErr_Format(PyExc_TypeError,
-                 "Int dimension expected.  '%s' given.",
-                 typestring);
-    SWIG_fail;
-  }
-  $1 = (DIM_TYPE) PyInt_AsLong($input);
-  dims[0] = (npy_intp) $1;
-  array = PyArray_SimpleNew(1, dims, DATA_TYPECODE);
-  if (!array) SWIG_fail;
-  $2 = (DATA_TYPE*) array_data(array);
-}
-%typemap(argout)
-  (DIM_TYPE DIM1, DATA_TYPE* ARGOUT_ARRAY1)
-{
-  $result = SWIG_Python_AppendOutput($result,array$argnum);
-}
-
-/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
- */
-%typemap(in,numinputs=0,
-         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
-  (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
-  (PyObject * array = NULL)
-{
-  npy_intp dims[2] = { $1_dim0, $1_dim1 };
-  array = PyArray_SimpleNew(2, dims, DATA_TYPECODE);
-  if (!array) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(argout)
-  (DATA_TYPE ARGOUT_ARRAY2[ANY][ANY])
-{
-  $result = SWIG_Python_AppendOutput($result,array$argnum);
-}
-
-/* Typemap suite for (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
- */
-%typemap(in,numinputs=0,
-         fragment="NumPy_Backward_Compatibility,NumPy_Macros")
-  (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
-  (PyObject * array = NULL)
-{
-  npy_intp dims[3] = { $1_dim0, $1_dim1, $1_dim2 };
-  array = PyArray_SimpleNew(3, dims, DATA_TYPECODE);
-  if (!array) SWIG_fail;
-  $1 = ($1_ltype) array_data(array);
-}
-%typemap(argout)
-  (DATA_TYPE ARGOUT_ARRAY3[ANY][ANY][ANY])
-{
-  $result = SWIG_Python_AppendOutput($result,array$argnum);
-}
-
-/*****************************/
-/* Argoutview Array Typemaps */
-/*****************************/
-
-/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
- */
-%typemap(in,numinputs=0)
-  (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1    )
-  (DATA_TYPE*  data_temp        , DIM_TYPE  dim_temp)
-{
-  $1 = &data_temp;
-  $2 = &dim_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DATA_TYPE** ARGOUTVIEW_ARRAY1, DIM_TYPE* DIM1)
-{
-  npy_intp dims[1] = { *$2 };
-  PyObject * array = PyArray_SimpleNewFromData(1, dims, DATA_TYPECODE, (void*)(*$1));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
- */
-%typemap(in,numinputs=0)
-  (DIM_TYPE* DIM1    , DATA_TYPE** ARGOUTVIEW_ARRAY1)
-  (DIM_TYPE  dim_temp, DATA_TYPE*  data_temp        )
-{
-  $1 = &dim_temp;
-  $2 = &data_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DIM_TYPE* DIM1, DATA_TYPE** ARGOUTVIEW_ARRAY1)
-{
-  npy_intp dims[1] = { *$1 };
-  PyObject * array = PyArray_SimpleNewFromData(1, dims, DATA_TYPECODE, (void*)(*$2));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
- */
-%typemap(in,numinputs=0)
-  (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1     , DIM_TYPE* DIM2     )
-  (DATA_TYPE*  data_temp        , DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp)
-{
-  $1 = &data_temp;
-  $2 = &dim1_temp;
-  $3 = &dim2_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DATA_TYPE** ARGOUTVIEW_ARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
-{
-  npy_intp dims[2] = { *$2, *$3 };
-  PyObject * array = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$1));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
- */
-%typemap(in,numinputs=0)
-  (DIM_TYPE* DIM1     , DIM_TYPE* DIM2     , DATA_TYPE** ARGOUTVIEW_ARRAY2)
-  (DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp, DATA_TYPE*  data_temp        )
-{
-  $1 = &dim1_temp;
-  $2 = &dim2_temp;
-  $3 = &data_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_ARRAY2)
-{
-  npy_intp dims[2] = { *$1, *$2 };
-  PyObject * array = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$3));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
- */
-%typemap(in,numinputs=0)
-  (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1     , DIM_TYPE* DIM2     )
-  (DATA_TYPE*  data_temp        , DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp)
-{
-  $1 = &data_temp;
-  $2 = &dim1_temp;
-  $3 = &dim2_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
-  (DATA_TYPE** ARGOUTVIEW_FARRAY2, DIM_TYPE* DIM1, DIM_TYPE* DIM2)
-{
-  npy_intp dims[2] = { *$2, *$3 };
-  PyObject * obj = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$1));
-  PyArrayObject * array = (PyArrayObject*) obj;
-  if (!array || !require_fortran(array)) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,obj);
-}
-
-/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
- */
-%typemap(in,numinputs=0)
-  (DIM_TYPE* DIM1     , DIM_TYPE* DIM2     , DATA_TYPE** ARGOUTVIEW_FARRAY2)
-  (DIM_TYPE  dim1_temp, DIM_TYPE  dim2_temp, DATA_TYPE*  data_temp        )
-{
-  $1 = &dim1_temp;
-  $2 = &dim2_temp;
-  $3 = &data_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DATA_TYPE** ARGOUTVIEW_FARRAY2)
-{
-  npy_intp dims[2] = { *$1, *$2 };
-  PyObject * obj = PyArray_SimpleNewFromData(2, dims, DATA_TYPECODE, (void*)(*$3));
-  PyArrayObject * array = (PyArrayObject*) obj;
-  if (!array || !require_fortran(array)) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,obj);
-}
-
-/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2,
-                      DIM_TYPE* DIM3)
- */
-%typemap(in,numinputs=0)
-  (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
-  (DATA_TYPE* data_temp, DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp)
-{
-  $1 = &data_temp;
-  $2 = &dim1_temp;
-  $3 = &dim2_temp;
-  $4 = &dim3_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DATA_TYPE** ARGOUTVIEW_ARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
-{
-  npy_intp dims[3] = { *$2, *$3, *$4 };
-  PyObject * array = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$1));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3,
-                      DATA_TYPE** ARGOUTVIEW_ARRAY3)
- */
-%typemap(in,numinputs=0)
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
-  (DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp, DATA_TYPE* data_temp)
-{
-  $1 = &dim1_temp;
-  $2 = &dim2_temp;
-  $3 = &dim3_temp;
-  $4 = &data_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility")
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_ARRAY3)
-{
-  npy_intp dims[3] = { *$1, *$2, *$3 };
-  PyObject * array = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$3));
-  if (!array) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,array);
-}
-
-/* Typemap suite for (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2,
-                      DIM_TYPE* DIM3)
- */
-%typemap(in,numinputs=0)
-  (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
-  (DATA_TYPE* data_temp, DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp)
-{
-  $1 = &data_temp;
-  $2 = &dim1_temp;
-  $3 = &dim2_temp;
-  $4 = &dim3_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
-  (DATA_TYPE** ARGOUTVIEW_FARRAY3, DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3)
-{
-  npy_intp dims[3] = { *$2, *$3, *$4 };
-  PyObject * obj = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$1));
-  PyArrayObject * array = (PyArrayObject*) obj;
-  if (!array || require_fortran(array)) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,obj);
-}
-
-/* Typemap suite for (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3,
-                      DATA_TYPE** ARGOUTVIEW_FARRAY3)
- */
-%typemap(in,numinputs=0)
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
-  (DIM_TYPE dim1_temp, DIM_TYPE dim2_temp, DIM_TYPE dim3_temp, DATA_TYPE* data_temp)
-{
-  $1 = &dim1_temp;
-  $2 = &dim2_temp;
-  $3 = &dim3_temp;
-  $4 = &data_temp;
-}
-%typemap(argout,
-         fragment="NumPy_Backward_Compatibility,NumPy_Array_Requirements")
-  (DIM_TYPE* DIM1, DIM_TYPE* DIM2, DIM_TYPE* DIM3, DATA_TYPE** ARGOUTVIEW_FARRAY3)
-{
-  npy_intp dims[3] = { *$1, *$2, *$3 };
-  PyObject * obj = PyArray_SimpleNewFromData(3, dims, DATA_TYPECODE, (void*)(*$3));
-  PyArrayObject * array = (PyArrayObject*) obj;
-  if (!array || require_fortran(array)) SWIG_fail;
-  $result = SWIG_Python_AppendOutput($result,obj);
-}
-
-%enddef    /* %numpy_typemaps() macro */
-/* *************************************************************** */
-
-/* Concrete instances of the %numpy_typemaps() macro: Each invocation
- * below applies all of the typemaps above to the specified data type.
- */
-%numpy_typemaps(signed char       , NPY_BYTE     , int)
-%numpy_typemaps(unsigned char     , NPY_UBYTE    , int)
-%numpy_typemaps(short             , NPY_SHORT    , int)
-%numpy_typemaps(unsigned short    , NPY_USHORT   , int)
-%numpy_typemaps(int               , NPY_INT      , int)
-%numpy_typemaps(unsigned int      , NPY_UINT     , int)
-%numpy_typemaps(long              , NPY_LONG     , int)
-%numpy_typemaps(unsigned long     , NPY_ULONG    , int)
-%numpy_typemaps(long long         , NPY_LONGLONG , int)
-%numpy_typemaps(unsigned long long, NPY_ULONGLONG, int)
-%numpy_typemaps(float             , NPY_FLOAT    , int)
-%numpy_typemaps(double            , NPY_DOUBLE   , int)
-
-/* ***************************************************************
- * The follow macro expansion does not work, because C++ bool is 4
- * bytes and NPY_BOOL is 1 byte
- *
- *    %numpy_typemaps(bool, NPY_BOOL, int)
- */
-
-/* ***************************************************************
- * On my Mac, I get the following warning for this macro expansion:
- * 'swig/python detected a memory leak of type 'long double *', no destructor found.'
- *
- *    %numpy_typemaps(long double, NPY_LONGDOUBLE, int)
- */
-
-/* ***************************************************************
- * Swig complains about a syntax error for the following macro
- * expansions:
- *
- *    %numpy_typemaps(complex float,  NPY_CFLOAT , int)
- *
- *    %numpy_typemaps(complex double, NPY_CDOUBLE, int)
- *
- *    %numpy_typemaps(complex long double, NPY_CLONGDOUBLE, int)
- */
-
-#endif /* SWIGPYTHON */

diff --git a/lang/setup.py.in b/lang/setup.py.in
deleted file mode 100644 (file)
index 05edce4..0000000
--- a/lang/setup.py.in
+++ /dev/null
@@ -1,43 +0,0 @@
-from distutils.core import setup, Extension
-import os
-
-mgl_i="${MGL_I}"
-dep_libs="${dep_libs}"
-d_l=[]
-for i in dep_libs.split(';'):
-       d_l.append(i)
-
-def_list="${DEF_LIST}"
-defs=[]
-for i in def_list.split(';'):
-       k=i.split('=')
-       if len(k)==1: defs.append((i,None))
-       else: defs.append((k[0],k[1]))
-mgl_module = Extension('_mathgl',
-       sources=[mgl_i],
-       define_macros=defs,
-       libraries=d_l
-)
-
-setup (
-    name = "mathgl",
-    version = "2.0",
-    maintainer="Dmitry Kulagin",
-    maintainer_email="dik@ufp.appl.sci-nnov.ru",
-    author="Alexey Balakin",
-    author_email= "mathgl.ablakin@gmail.com",
-    license="Same terms as MathGL",
-    platforms = ["any"],
-    url = "http://mathgl.sf.net",
-    description = "Python interface for MathGL",
-    long_description = "MathGL is a library for the plotting of the data \
- MathGL is a free library of fast C++ routines for the plotting \
- of the data varied in one or more dimensions. It uses OpenGL \
- (www.opengl.org) for the plotting. Also there is a simple window \
- interface based on GLUT. This provides high compatibility with \
- any operating system (really any which has OpenGL-like libraries). \
- Python interface for MathGL",
-    package_dir = {"": ""},
-    py_modules = ["mathgl"],
-    ext_modules = [mgl_module]
-    )

diff --git a/mgllab/CMakeLists.txt b/mgllab/CMakeLists.txt
deleted file mode 100644 (file)
index 106ff36..0000000
--- a/mgllab/CMakeLists.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-if(MGL_HAVE_FLTK)
-       include_directories(${FLTK_INCLUDE_DIR})
-       set(mgl_lab_src animate.cpp editor.cpp help.cpp mathgl.cpp setup.cpp write.cpp data.cpp grid.cpp main.cpp option.cpp table.cpp)
-       add_executable(mgllab ${mgl_lab_src})
-       target_link_libraries(mgllab mgl mgl-wnd ${FLTK_LIBRARIES})
-       install(
-               TARGETS mgllab
-               RUNTIME DESTINATION bin )
-endif(MGL_HAVE_FLTK)
-

diff --git a/mgllab/animate.cpp b/mgllab/animate.cpp
deleted file mode 100644 (file)
index 0571d5f..0000000
--- a/mgllab/animate.cpp
+++ /dev/null
@@ -1,314 +0,0 @@
-/* animate.cpp is part of UDAV
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public License
- * as published by the Free Software Foundation
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- */
-#include <ctype.h>
-#include <string.h>
-#include <FL/Fl_Tabs.H>
-#include <FL/Fl_Round_Button.H>
-#include <FL/Fl_Multiline_Input.H>
-#include <FL/Fl_Float_Input.H>
-#include "udav.h"
-//-----------------------------------------------------------------------------
-struct ArgumentDlg
-{
-public:
-       Fl_Window* wnd;
-       int OK;
-       Fl_Input *a[10];
-
-       ArgumentDlg()   {       memset(this,0,sizeof(ArgumentDlg));     create_dlg();   };
-       ~ArgumentDlg()  {       delete wnd;     };
-       void FillResult();
-protected:
-       void create_dlg();
-} argument_dlg;
-//-----------------------------------------------------------------------------
-void argument_dlg_cb(Fl_Widget *, void *v)
-{      argument_dlg.OK = true; ((Fl_Window *)v)->hide();       }
-//-----------------------------------------------------------------------------
-void ArgumentDlg::create_dlg()
-{
-       wnd = new Fl_Window(325, 275, gettext("Script arguments"));
-       a[1] = new Fl_Input(10, 25, 150, 25, gettext("Value for $1"));  a[1]->align(FL_ALIGN_TOP_LEFT);
-       a[2] = new Fl_Input(165, 25, 150, 25, gettext("Value for $2")); a[2]->align(FL_ALIGN_TOP_LEFT);
-       a[3] = new Fl_Input(10, 70, 150, 25, gettext("Value for $3"));  a[3]->align(FL_ALIGN_TOP_LEFT);
-       a[4] = new Fl_Input(165, 70, 150, 25, gettext("Value for $4")); a[4]->align(FL_ALIGN_TOP_LEFT);
-       a[5] = new Fl_Input(10, 115, 150, 25, gettext("Value for $5")); a[5]->align(FL_ALIGN_TOP_LEFT);
-       a[6] = new Fl_Input(165, 115, 150, 25, gettext("Value for $6"));a[6]->align(FL_ALIGN_TOP_LEFT);
-       a[7] = new Fl_Input(10, 160, 150, 25, gettext("Value for $7")); a[7]->align(FL_ALIGN_TOP_LEFT);
-       a[8] = new Fl_Input(165, 160, 150, 25, gettext("Value for $8"));a[8]->align(FL_ALIGN_TOP_LEFT);
-       a[9] = new Fl_Input(10, 205, 150, 25, gettext("Value for $9")); a[9]->align(FL_ALIGN_TOP_LEFT);
-       a[0] = new Fl_Input(165, 205, 150, 25, gettext("Value for $0"));a[0]->align(FL_ALIGN_TOP_LEFT);
-
-       Fl_Button *o;
-       o = new Fl_Button(75, 240, 75, 25, gettext("Cancel"));          o->callback(close_dlg_cb,wnd);
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);
-       o = new Fl_Return_Button(175, 240, 75, 25, gettext("OK"));      o->callback(argument_dlg_cb,wnd);
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);
-       wnd->end();
-}
-//-----------------------------------------------------------------------------
-void ArgumentDlg::FillResult()
-{
-       if(a[0]->value()[0])    Parse->AddParam(0,a[0]->value());
-       if(a[1]->value()[0])    Parse->AddParam(1,a[1]->value());
-       if(a[2]->value()[0])    Parse->AddParam(2,a[2]->value());
-       if(a[3]->value()[0])    Parse->AddParam(3,a[3]->value());
-       if(a[4]->value()[0])    Parse->AddParam(4,a[4]->value());
-       if(a[5]->value()[0])    Parse->AddParam(5,a[5]->value());
-       if(a[6]->value()[0])    Parse->AddParam(6,a[6]->value());
-       if(a[7]->value()[0])    Parse->AddParam(7,a[7]->value());
-       if(a[8]->value()[0])    Parse->AddParam(8,a[8]->value());
-       if(a[9]->value()[0])    Parse->AddParam(9,a[9]->value());
-}
-//-----------------------------------------------------------------------------
-void argument_cb(Fl_Widget *, void *)
-{
-       ArgumentDlg *s = &argument_dlg;
-       s->OK = false;
-       s->wnd->set_modal();
-       s->wnd->show();
-       while(s->wnd->shown())  Fl::wait();
-       if(s->OK)       s->FillResult();
-}
-//-----------------------------------------------------------------------------
-void argument_set(int n, const char *s)
-{
-       if(n<0 || n>9)  return;
-       Parse->AddParam(n,s);
-       argument_dlg.a[n]->value(s);
-}
-//-----------------------------------------------------------------------------
-AnimateDlg animate_dlg;
-//-----------------------------------------------------------------------------
-void animate_dlg_cb(Fl_Widget *, void *v)
-{
-       animate_dlg.swap = false;
-       if(!animate_dlg.rt->value() && !animate_dlg.rv->value())
-               fl_message(gettext("You have to select textual string or numeric cycle"));
-       else if(animate_dlg.rv->value() && animate_dlg.dx->value()==0)
-               fl_message(gettext("You have to set nonzero step in cycle"));
-       else
-       {
-               double t0=atof(animate_dlg.x0->value()), t1=atof(animate_dlg.x1->value()), dt=atof(animate_dlg.dx->value());
-               if((t1-t0)*dt<0)
-               {
-                       if(fl_ask(gettext("Order of first and last value is wrong. Swap it?")))
-                       {
-                               char s[32];     sprintf(s,"%g",t0);
-                               animate_dlg.x0->value(animate_dlg.x1->value());
-                               animate_dlg.x1->value(s);
-                       }
-                       else
-                       {       fl_message(gettext("Wrong boundaries"));        return; }
-               }
-               animate_dlg.OK = true;  ((Fl_Window *)v)->hide();
-       }
-}
-//-----------------------------------------------------------------------------
-void animate_rad_cb(Fl_Widget *, void *v)
-{
-       animate_dlg.rt->value(0);
-       animate_dlg.rv->value(0);
-       ((Fl_Round_Button *)v)->value(1);
-}
-//-----------------------------------------------------------------------------
-void animate_put_cb(Fl_Widget *, void *)
-{
-       if(animate_dlg.rt->value())
-       {
-               if(animate_dlg.txt->value()==0 || strlen(animate_dlg.txt->value())==0)  return;
-               char *s = new char[1+strlen(animate_dlg.txt->value())], *a=s;
-               strcpy(s, animate_dlg.txt->value());
-               for(int i=0;s[i]!=0;i++)
-               {
-                       if(s[i]=='\n')
-                       {
-                               s[i] = 0;
-                               textbuf->append("\n##a ");
-                               textbuf->append(a);
-                               a = s+i+1;
-                       }
-               }
-               if(*a)
-               {       textbuf->append("\n##a ");      textbuf->append(a);     }
-               delete []s;
-       }
-       else if(animate_dlg.rv->value())
-       {
-               char *s = new char[128];
-               sprintf(s,"\n##c %s %s %s",animate_dlg.x0->value(),animate_dlg.x1->value(),animate_dlg.dx->value());
-               textbuf->append(s);
-               delete []s;
-       }
-}
-//-----------------------------------------------------------------------------
-void AnimateDlg::create_dlg()
-{
-       wnd = new Fl_Window(335, 350, gettext("Animation"));
-       new Fl_Box(10, 5, 315, 25, gettext("Redraw picture for $0 equal to:"));
-       rt = new Fl_Round_Button(10, 30, 200, 25, gettext("strings in lines below"));
-       rt->callback(animate_rad_cb, rt);
-       rv = new Fl_Round_Button(220, 30, 105, 25, gettext("values"));
-       rv->callback(animate_rad_cb, rv);
-       txt = new Fl_Multiline_Input(10, 60, 200, 250);
-       x0 = new Fl_Float_Input(220, 80, 105, 25, gettext("from"));                     x0->align(FL_ALIGN_TOP_LEFT);
-       x1 = new Fl_Float_Input(220, 130, 105, 25, gettext("to"));                      x1->align(FL_ALIGN_TOP_LEFT);
-       dx = new Fl_Float_Input(220, 180, 105, 25, gettext("with step"));       dx->align(FL_ALIGN_TOP_LEFT);
-
-       Fl_Button *o;
-       o = new Fl_Button(230, 215, 80, 25, gettext("Cancel"));         o->callback(close_dlg_cb,wnd);
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);
-       o = new Fl_Return_Button(230, 250, 80, 25, gettext("OK"));      o->callback(animate_dlg_cb,wnd);
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);
-       save = new Fl_Check_Button(220, 285, 105, 25, gettext("save slides"));
-       save->tooltip(gettext("Keep slides in memory (faster animation but require more memory)"));
-       save->down_box(FL_DOWN_BOX);    save->hide();
-
-       o = new Fl_Button(10, 315, 100, 25, gettext("Put to script"));  o->callback(animate_put_cb,wnd);
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);
-       dt = new Fl_Float_Input(220, 315, 105, 25, gettext("Delay (in sec)"));//        dx->align(FL_ALIGN_TOP_LEFT);
-
-       wnd->end();
-}
-//-----------------------------------------------------------------------------
-void AnimateDlg::FillResult(Fl_MGL* e)
-{
-       e->NArgs = e->ArgCur = 0;
-       if(e->ArgBuf)   delete [](e->ArgBuf);   e->ArgBuf = 0;
-       e->AnimDelay = atof(dt->value());
-       if(rt->value())
-       {
-               char *s;
-               e->ArgBuf = new char[1+strlen(txt->value())];
-               strcpy(e->ArgBuf, txt->value());
-               s = e->Args[0] = e->ArgBuf;     e->NArgs = 1;
-               for(int i=0;s[i]!=0;i++)
-                       if(s[i]=='\n')
-                       {
-                               s[i] = 0;       e->Args[e->NArgs] = s+i+1;      e->NArgs += 1;
-                       }
-               if(e->Args[e->NArgs-1][0]==0)   e->NArgs -= 1;
-       }
-       else if(rv->value() && atof(dx->value()))
-       {
-               double t0=atof(x0->value()), t1=atof(x1->value()), dt=atof(dx->value()), t;
-               if((t1-t0)/dt<1)
-               {
-                       e->ArgBuf = new char[32];       sprintf(e->ArgBuf,"%g",t0);
-                       e->NArgs = 1;   e->Args[0] = e->ArgBuf; return;
-               }
-               if((t1-t0)/dt>999)
-               {
-                       fl_message(gettext("Too many slides. Reduce to 1000 slides."));
-                       dt = (t1-t0)/998;
-               }
-               e->ArgBuf = new char[32*int(1+(t1-t0)/dt)];
-               for(t=t0;(dt>0&&t<=t1)||(dt<0&&t>=t1);t+=dt)
-               {
-                       sprintf(e->ArgBuf + 32*e->NArgs,"%g\0",t);
-                       e->Args[e->NArgs] = e->ArgBuf + 32*e->NArgs;
-                       e->NArgs += 1;
-               }
-       }
-       else    fl_message(gettext("No selection. So nothing to do"));
-}
-//-----------------------------------------------------------------------------
-void animate_cb(Fl_Widget *, void *v)
-{
-       ScriptWindow* e = (ScriptWindow*)v;
-       AnimateDlg *s = &animate_dlg;
-       s->OK = false;
-       s->wnd->set_modal();
-       s->wnd->show();
-       while(s->wnd->shown())  Fl::wait();
-       if(s->OK)       s->FillResult(e->graph);
-}
-//-----------------------------------------------------------------------------
-void cpy_arg_buf(const char *str, long *size, char **buf)
-{
-       const char *end;
-       for(end=str; *end>' '; end++);
-       if(end>=str+*size)
-       {       *size = end-str+1;      *buf = (char *)realloc(*buf,*size);     }
-       memset(*buf,0,*size);
-       strncpy(*buf,str,end-str);
-}
-//-----------------------------------------------------------------------------
-void fill_animate(const char *text)
-{
-       long size=128,i;
-       const char *str = text;
-       char *buf = (char *)malloc(size), tmp[4]="#$0";
-       for(i=0;i<10;i++)       // first read script arguments (if one)
-       {
-               tmp[2] = '0'+i;
-               if((str=strstr(text,tmp)))
-               {
-                       str+=3;
-                       while(*str>0 && *str<=' ' && *str!='\n')        str++;
-                       cpy_arg_buf(str,&size,&buf);
-                       argument_dlg.a[i]->value(buf);
-                       Parse->AddParam(i,buf);
-               }
-       }
-
-       char *a = (char *)malloc(size);
-       memset(a,0,size);       i = 0;
-       str = text;
-       while((str = strstr(str, "##")))        // now read animation parameters
-       {
-               if(str[2]=='a')
-               {
-                       str += 3;
-                       while(*str>0 && *str<=' ' && *str!='\n')        str++;
-                       if(*str==0 || *str=='\n')       return; // empty comment
-                       cpy_arg_buf(str,&size,&buf);
-                       if(i==0)        Parse->AddParam(0,buf); // put first value as $0
-                       i += strlen(buf)+1;
-                       if(i>=size)
-                       {
-                               size = (1+ (i+2)/128)*128;
-                               a = (char *)realloc(a,size);
-                       }
-                       strcat(a,buf);  strcat(a,"\n");
-               }
-               if(str[2]=='c')
-               {
-                       str += 3;
-                       register long j=0,l=strlen(str);
-                       char *s=new char[l+1],*s1=0,*s2=0,*s3=0;
-                       bool sp=true;   strcpy(s,str);
-                       for(j=0;j<l && isspace(s[j]);j++);
-                       {
-                               if(isspace(s[j]))       {       s[j]=0; sp=true;        }
-                               else if(sp)
-                               {
-                                       sp=false;
-                                       if(!s1) s1=s+j; else if(!s2) s2=s+j;    else s3=s+j;
-                               }
-                               animate_dlg.x0->value(s1);
-                               animate_dlg.x1->value(s2);
-                               animate_dlg.dx->value(s3);
-                               animate_dlg.rv->value(1);
-                       }
-                       delete []s;
-               }
-       }
-       if(i)
-       {       animate_dlg.txt->value(a);      animate_dlg.rt->value(1);       }
-       free(buf);      free(a);
-}

diff --git a/mgllab/data.cpp b/mgllab/data.cpp
deleted file mode 100644 (file)
index 461ebb3..0000000
--- a/mgllab/data.cpp
+++ /dev/null
@@ -1,355 +0,0 @@
-/* data.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include <FL/Fl_Choice.H>\r
-#include <FL/Fl_Spinner.H>\r
-#include <FL/Fl_Output.H>\r
-#include <FL/Fl_Check_Button.H>\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-void get_doc_dir(char *&docdir);\r
-void option_in_cb(Fl_Widget *, void *v);\r
-void style_in_cb(Fl_Widget *, void *v);\r
-//-----------------------------------------------------------------------------\r
-struct VarDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Choice *var;\r
-       Fl_Spinner *dim1, *dim2, *dim3;\r
-       VarDlg()        {       memset(this,0,sizeof(VarDlg));  create_dlg();   };\r
-       ~VarDlg()       {       delete wnd;     };\r
-       void create_dlg();\r
-       char *get_result();\r
-       void init();\r
-} var_dlg;\r
-//-----------------------------------------------------------------------------\r
-void VarDlg::init()\r
-{\r
-       char ss[1024];\r
-       var->clear();\r
-       mglVar *v=Parse->Self()->DataList;\r
-       while(v)\r
-       {\r
-               wcstombs(ss,v->s.c_str(),1024);\r
-               var->add(ss,0,0,v);\r
-               v = v->next;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-char *VarDlg::get_result()\r
-{\r
-       static char res[64],a1[16]=":",a2[16]=":",a3[16]=":";\r
-       res[0]=0;\r
-       if(var->value()<0)      return res;\r
-       const Fl_Menu_Item m=var->menu()[var->value()];\r
-       if(m.text[0])\r
-       {\r
-               if(dim3->value()>=0)\r
-               {\r
-                       if(dim1->value()>=0)    sprintf(a1,"%g",dim1->value());\r
-                       if(dim2->value()>=0)    sprintf(a2,"%g",dim2->value());\r
-                       sprintf(a3,"%g",dim3->value());\r
-                       sprintf(res,"%s(%s,%s,%s)",m.text,a1,a2,a3);\r
-               }\r
-               else if(dim2->value()>=0)\r
-               {\r
-                       if(dim1->value()>=0)    sprintf(a1,"%g",dim1->value());\r
-                       sprintf(a2,"%g",dim2->value());\r
-                       sprintf(res,"%s(%s,%s)",m.text,a1,a2);\r
-               }\r
-               else if(dim1->value()>=0)\r
-               {\r
-                       sprintf(a1,"%g",dim1->value());\r
-                       sprintf(res,"%s(%s)",m.text,a1);\r
-               }\r
-               else    strcpy(res,m.text);\r
-       }\r
-       return res;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void var_chg_cb(Fl_Widget *, void *)\r
-{\r
-       const Fl_Menu_Item m=var_dlg.var->menu()[var_dlg.var->value()];\r
-       if(m.text[0] && m.user_data())\r
-       {\r
-               mglVar *a = (mglVar *)m.user_data();\r
-               var_dlg.dim1->range(-1,a->d.nx-1);\r
-               var_dlg.dim2->range(-1,a->d.ny-1);\r
-               var_dlg.dim3->range(-1,a->d.nz-1);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void var_in_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input *e = (Fl_Input*)v;\r
-       VarDlg *s = &var_dlg;\r
-       s->OK = false;\r
-       s->init();\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       e->value(s->get_result());\r
-}\r
-//-----------------------------------------------------------------------------\r
-void var_dlg_cb(Fl_Widget *, void *v)\r
-{      var_dlg.OK = true;      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void VarDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Double_Window(190, 180, gettext("Variable"));\r
-       var = new Fl_Choice(100, 10, 75, 25, gettext("Variable name")); // !!!  add variables here !!!\r
-       var->callback(var_chg_cb);\r
-       dim1 = new Fl_Spinner(100, 40, 75, 25, gettext("First index"));\r
-       dim1->range(-1,0);      dim1->value(-1);        dim1->step(1);\r
-       dim1->tooltip(gettext("Value of first dimensions (-1 for all range)"));\r
-       dim2 = new Fl_Spinner(100, 70, 75, 25, gettext("Second index"));\r
-       dim2->range(-1,0);      dim2->value(-1);        dim2->step(1);\r
-       dim2->tooltip(gettext("Value of second dimensions (-1 for all range)"));\r
-       dim3 = new Fl_Spinner(100, 100, 75, 25, gettext("Third index"));\r
-       dim3->range(-1,0);      dim3->value(-1);        dim3->step(1);\r
-       dim3->tooltip(gettext("Value of third dimensions (-1 for all range)"));\r
-       Fl_Button *o;\r
-       o = new Fl_Button(15, 140, 75, 25, gettext("Cancel"));          o->callback(close_dlg_cb,wnd);\r
-       o = new Fl_Return_Button(100, 140, 75, 25, gettext("OK"));      o->callback(var_dlg_cb,wnd);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-const char *cmds[]={\r
-"plot|area|bars|barh|boxplot|chart|error|mark|region|stem|step|tens|textmark|torus|tube",\r
-"surf|axial|belt|boxs|cont|contd|contf|dens|fall|grid2|mesh|tile|grad",\r
-"surf3|cloud|beam|cont3|conta|contf3|contfa|dens3|densa|grid3|grida",\r
-"map|stfa|surfa|surfc|tile|surf3a|surf3c",\r
-"flow|pipe|traj|vect|vectc|vectl|dew",\r
-"contx|conty|contz|contfx|contfy|contfz|densx|densy|densz|triplot|tricont|quadplot|crust|dots",\r
-"text|title|fgets|legend|addlegend|clearlegend|legendbox",\r
-"new|var|copy|delete|insert|read|readmat|readall|readhdf|save|savehdf|export|import|info|idset",\r
-"fill|fillsample|modify|put|crop|extend|rearrange|squeeze|transpose|cumsum|diff|diff2|sinfft|cosfft|hankel|envelop|integrate|mirror|norm|normsl|sew|smooth|swap|roll|addto|subto|divto|multo",\r
-"combine|evaluate|max|min|hist|jacobian|momentum|resize|sum|trace|transform|transforma|stfad|pde|qo2d|ray",\r
-"axis|box|colorbar|grid|xlabel|ylabel|zlabel|tlabel",\r
-"alpha|alphadef|transparent|transptype|ambient|light|fog|arrowsize|barwidth|linewidth|marksize|plotfactor|zoom|cut|axialdir|mesgnum|font|palette|rotatetext",\r
-"axis|ranges|caxis|crange|xrange|yrange|zrange|origin|ternary|adjust|ctick|xtick|ytick|ztick|ticklen|tickstl",\r
-"subplot|inplot|rotate|aspect|columnplot|perspective",\r
-"call|func|chdir|define|if|elseif|else|endif|for|next|once|stop|write|setsize",\r
-"fit|fits|putsfit",\r
-"fplot|fsurf|ball|cone|curve|drop|facex|facey|facez|line|rect|sphere"};\r
-const char *first[]={"plot", "surf", "surf3", "map", "flow", "contx", "text", "new", "fill", "combine", "alpha", "axis", "subplot", "call", "fit", "fplot"};\r
-const char *cmd_types="1D plots|2D plots|3D plots|Dual plots|Vector plots|Other plots|Text and legend|Create data and I-O|Data handling|Data extraction|Axis and colorbar|General setup|Axis setup|Scale and rotate|Program flow|Nonlinear fitting|Primitives";\r
-//-----------------------------------------------------------------------------\r
-void data_file(char *fn)\r
-{\r
-       static int num=0;\r
-       static char name[32], res[256];\r
-       sprintf(name,"mgl_%d",num);     num++;\r
-       mglData *v = Parse->AddVar(name);\r
-       v->Read(fn);\r
-       if(v->nz>1)\r
-               sprintf(res,"#read %s '%s'\nrotate 40 60\ncrange %s\nbox\nsurf3 %s\n", name, fn, name, name);\r
-       else if(v->ny>1)\r
-               sprintf(res,"#read %s '%s'\nrotate 40 60\ncrange %s\nzrange %s\nbox\nsurf %s\n", name, fn, name, name, name);\r
-       else\r
-               sprintf(res,"#read %s '%s'\nyrange %s\nbox\nplot %s\n", name, fn, name, name);\r
-       textbuf->text(res);\r
-}\r
-//-----------------------------------------------------------------------------\r
-//\r
-//                     New Command dialog\r
-//\r
-//-----------------------------------------------------------------------------\r
-struct CmdDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Choice *type, *cmd;\r
-       Fl_Input *var_x, *var_y, *var_z, *var_u, *var_v, *var_w;\r
-       Fl_Box *fmt, *dsc;\r
-       Fl_Input *stl, *zval, *par1, *par2, *opt;\r
-       Fl_Help_View *help;\r
-\r
-       CmdDlg()        {       memset(this,0,sizeof(CmdDlg));  create_dlg();   };\r
-       ~CmdDlg()       {       delete wnd;     };\r
-       void create_dlg();\r
-       char *get_result();\r
-} cmd_dlg;\r
-//-----------------------------------------------------------------------------\r
-void cmd_dlg_cb(Fl_Widget *, void *v)  // add variables checking\r
-{      cmd_dlg.OK = true;      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void type_cmd_cb(Fl_Widget *, void *)\r
-{\r
-       int val = cmd_dlg.type->value();\r
-       if(val>=0 && val<16)\r
-       {\r
-               cmd_dlg.cmd->clear();   cmd_dlg.cmd->add(cmds[val]);\r
-               cmd_dlg.dsc->copy_label(Parse->CmdDesc(first[val]));\r
-               cmd_dlg.fmt->copy_label(Parse->CmdFormat(first[val]));\r
-\r
-               static char str[300];   // load help for command\r
-               char *docdir;   get_doc_dir(docdir);\r
-#ifdef WIN32\r
-               sprintf(str,"%s\\mgl_en.html#%s",docdir,first[val]);\r
-#else\r
-               sprintf(str,"%s/mgl_en.html#%s",docdir,first[val]);\r
-#endif\r
-               free(docdir);   cmd_dlg.help->load(str);\r
-       }\r
-       cmd_dlg.cmd->value(0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void desc_cmd_cb(Fl_Widget *, void *)\r
-{\r
-       const char *name = cmd_dlg.cmd->mvalue()->text;\r
-       cmd_dlg.dsc->copy_label(Parse->CmdDesc(name));\r
-       cmd_dlg.fmt->copy_label(Parse->CmdFormat(name));\r
-\r
-       static char str[300];   // load help for command\r
-       char *docdir;   get_doc_dir(docdir);\r
-#ifdef WIN32\r
-       sprintf(str,"%s\\mgl_en.html#%s",docdir,name);\r
-#else\r
-       sprintf(str,"%s/mgl_en.html#%s",docdir,name);\r
-#endif\r
-       free(docdir);   cmd_dlg.help->load(str);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void CmdDlg::create_dlg()\r
-{\r
-       Fl_Button *o;\r
-       wnd = new Fl_Double_Window(500, 450, gettext("Command properties"));\r
-       type = new Fl_Choice(90, 10, 170, 25, gettext("Type of plot"));\r
-       type->tooltip(gettext("Select one of general types of plot"));\r
-       cmd = new Fl_Choice(350, 10, 100, 25, gettext("Command"));\r
-       cmd->tooltip(gettext("Select kind of plot in this group"));\r
-\r
-       fmt = new Fl_Box(0, 40, 500, 25);\r
-       fmt->box(UDAV_DOWN_BOX);\r
-       fmt->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-       fmt->tooltip(gettext("Format of command and its arguments"));\r
-       dsc = new Fl_Box(0, 70, 500, 25);\r
-       dsc->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-       dsc->tooltip(gettext("Short command description"));\r
-\r
-       type->callback(type_cmd_cb,cmd);        cmd->callback(desc_cmd_cb,0);\r
-       type->add(gettext(cmd_types));          type_cmd_cb(0,0);\r
-\r
-       var_x = new Fl_Input(15, 115, 50, 25, "X");     var_x->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(65, 115, 25, 25, "..");       o->callback(var_in_cb,var_x);\r
-       var_y = new Fl_Input(95, 115, 50, 25, "Y");     var_y->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(145, 115, 25, 25, "..");      o->callback(var_in_cb,var_y);\r
-       var_z = new Fl_Input(175, 115, 50, 25, "Z");    var_z->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(225, 115, 25, 25, "..");      o->callback(var_in_cb,var_z);\r
-       var_u = new Fl_Input(255, 115, 50, 25, gettext("Vx or A"));     var_u->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(305, 115, 25, 25, "..");      o->callback(var_in_cb,var_u);\r
-       var_v = new Fl_Input(335, 115, 50, 25, gettext("Vy or C"));     var_v->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(385, 115, 25, 25, "..");      o->callback(var_in_cb,var_v);\r
-       var_w = new Fl_Input(415, 115, 50, 25, "Vz");var_w->align(FL_ALIGN_TOP);\r
-       o = new Fl_Button(465, 115, 25, 25, "..");      o->callback(var_in_cb,var_w);\r
-\r
-       stl = new Fl_Input(15, 165, 50, 25, gettext("Style"));\r
-       stl->align(FL_ALIGN_TOP);       stl->tooltip(gettext("String argument with command style (or scheme or font)"));\r
-       o = new Fl_Button(65, 165, 25, 25, "..");       o->callback(style_in_cb, stl);\r
-\r
-       zval = new Fl_Input(95, 165, 75, 25, gettext("zVal or sVal"));\r
-       zval->align(FL_ALIGN_TOP);\r
-       zval->tooltip(gettext("Z-value or value of slice.\nKeep empty for default value"));\r
-       par1 = new Fl_Input(175, 165, 75, 25, gettext("Text or dir"));\r
-       par1->align(FL_ALIGN_TOP);\r
-       par1->tooltip(gettext("Text (in text command) or direction (in cont3, contf3, dens3)"));\r
-       par2 = new Fl_Input(255, 165, 75, 25, gettext("Number"));\r
-       par2->align(FL_ALIGN_TOP);\r
-       par2->tooltip(gettext("Number of contours in cont* commands"));\r
-\r
-       opt = new Fl_Input(15, 215, 290, 25, gettext("Options"));\r
-       opt->align(FL_ALIGN_TOP_LEFT);\r
-       opt->tooltip(gettext("Command options"));\r
-       o = new Fl_Button(305, 215, 25, 25, "..");                      o->callback(option_in_cb, opt);\r
-\r
-       o = new Fl_Button(405, 180, 75, 25, gettext("Cancel"));         o->callback(close_dlg_cb, wnd);\r
-       o = new Fl_Return_Button(405, 215, 75, 25, gettext("OK"));      o->callback(cmd_dlg_cb, wnd);\r
-\r
-       help = new Fl_Help_View(0, 250, 500, 200);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-char *CmdDlg::get_result()\r
-{\r
-       static char res[1024],buf[128];\r
-       res[0]=0;\r
-       const char *cn = cmd->mvalue()->text;\r
-\r
-       bool sl3 = !strcmp(cn,"cont3") || !strcmp(cn,"contf3") || !strcmp(cn,"dens3");\r
-       strcpy(res,"\n");       strcat(res,cn);\r
-       sprintf(buf,"%s%s%s%s%s%s%s%s%s%s%s%s", var_x->value()[0]?" ":"", var_x->value(),\r
-               var_y->value()[0]?" ":"", var_y->value(), var_z->value()[0]?" ":"", var_z->value(),\r
-               var_u->value()[0]?" ":"", var_u->value(), var_v->value()[0]?" ":"", var_v->value(),\r
-               var_w->value()[0]?" ":"", var_w->value());\r
-       strcat(res,buf);\r
-\r
-       if(!strcmp(cn,"text") && par1->value()[0])\r
-       {       strcat(res," '");       strcat(res,par1->value());      strcat(res,"'");        }\r
-       if(sl3 && !par1->value()[0])\r
-       {\r
-               strcat(res," 'x'");\r
-               fl_message(gettext("You should specify direction.\nDirection 'x' is selected by default"));\r
-               if(zval->value()[0])\r
-               {       sprintf(buf," %d",atoi(zval->value())); strcat(res,buf);        }\r
-       }\r
-       if(sl3 && par1->value()[0])\r
-       {\r
-               strcat(res," '");       strcat(res,par1->value());      strcat(res,"'");\r
-               if(zval->value()[0])\r
-               {       sprintf(buf," %d",atoi(zval->value())); strcat(res,buf);        }\r
-       }\r
-       if(stl->value()[0])\r
-       {       strcat(res," '");       strcat(res,stl->value());       strcat(res,"'");        }\r
-       if(!sl3 && zval->value()[0])\r
-       {       sprintf(buf," %d",atoi(zval->value())); strcat(res,buf);        }\r
-       if(!sl3 && par2->value()[0])\r
-       {       sprintf(buf," %d",atoi(par2->value())); strcat(res,buf);        }\r
-       if(opt->value()[0])     strcat(res,opt->value());\r
-//     strcat(res,"\n");\r
-       return res;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void command_cb(Fl_Widget *, void *v)\r
-{\r
-       CmdDlg *s = &cmd_dlg;\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-       {\r
-               long i=e->editor->insert_position(), j=textbuf->line_end(i);\r
-               e->editor->insert_position(j);\r
-               e->editor->insert(s->get_result());\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void plot_dat_cb(Fl_Widget *, void *)\r
-{\r
-       CmdDlg *s = &cmd_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-               textbuf->insert(textbuf->length(), s->get_result());\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/editor.cpp b/mgllab/editor.cpp
deleted file mode 100644 (file)
index 4b88a40..0000000
--- a/mgllab/editor.cpp
+++ /dev/null
@@ -1,516 +0,0 @@
-/* editor.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include <ctype.h>\r
-#include <errno.h>\r
-#ifdef __MWERKS__\r
-# define FL_DLL\r
-#endif\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-int            changed = 0;\r
-char   filename[256] = "";\r
-Fl_Text_Buffer *textbuf = 0;\r
-void data_file(char *v);\r
-//-----------------------------------------------------------------------------\r
-// Syntax highlighting stuff...\r
-Fl_Text_Buffer  *stylebuf = 0;\r
-Fl_Text_Display::Style_Table_Entry styletable[] = {    // Style table\r
-               { FL_BLACK,             FL_COURIER,                     14, 0 },        // A - Plain\r
-               { FL_DARK_GREEN,FL_COURIER_ITALIC,      14, 0 },        // B - Line comments\r
-               { FL_BLUE,              FL_COURIER,                     14, 0 },        // C - Number\r
-               { FL_RED,               FL_COURIER,                     14, 0 },        // D - Strings\r
-               { FL_DARK_BLUE, FL_COURIER_BOLD,        14, 0 },        // E - Usual ommand\r
-               { FL_DARK_CYAN, FL_COURIER_BOLD,        14, 0 },        // F - Flow command\r
-               { FL_DARK_MAGENTA,      FL_COURIER_BOLD,14, 0 },        // G - New-data command\r
-               { FL_DARK_RED,  FL_COURIER_BOLD,        14, 0 },        // H - Option\r
-               { FL_DARK_GREEN,FL_COURIER_BOLD,        14, 0 }};  // I - Inactive command\r
-//-----------------------------------------------------------------------------\r
-bool is_sfx(const char *s)     // suffix\r
-{\r
-       register long i,n=strlen(s);\r
-       for(i=0;i<n && s[i]>='a';i++);\r
-       if(i==1 && s[0]=='a')   return true;\r
-       if(i==2 && strchr("axyz",s[1]) && strchr("nmawsk",s[0]))        return true;\r
-       if(i==3 && (!strncmp("fst",s,3) || !strncmp("lst",s,3) || !strncmp("max",s,3) ||\r
-                               !strncmp("min",s,3) || !strncmp("sum",s,3)))\r
-               return true;\r
-       return false;\r
-//     char *t = new char[i+1];        memcpy(t,s,i*sizeof(char));     t[i]=0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-bool is_opt(const char *s)     // option\r
-{\r
-       const char *o[]={"xrange","yrange","zrange","crange","alpha",\r
-                                       "cut","ambient","meshnum","fontsize","alphadef",\r
-                                       "marksize","legend"};\r
-       int l[12] = {6, 6, 6, 6, 5, 3, 7, 7, 8, 8, 8, 6};\r
-       register long i;\r
-       for(i=0;i<12;i++)       if(!strncmp(o[i],s,l[i]) && s[l[i]]<=' ')       return true;\r
-       return false;\r
-}\r
-//-----------------------------------------------------------------------------\r
-bool is_num(const char *s)     // number\r
-{\r
-       register long i,n=strlen(s);\r
-       if(s[0]==':' && (s[1]<=' ' || s[1]==';'))       return true;\r
-       if(n>=2 && !strncmp("pi",s,2) && (s[2]<=' ' || s[2]==';' || s[2]==':')) return true;\r
-       if(n>=2 && !strncmp("on",s,2) && (s[2]<=' ' || s[2]==';' || s[2]==':')) return true;\r
-       if(n>=3 && !strncmp("off",s,3) && (s[3]<=' ' || s[3]==';' || s[2]==':'))        return true;\r
-       if(n>=3 && !strncmp("nan",s,3) && (s[3]<=' ' || s[3]==';' || s[2]==':'))        return true;\r
-       for(i=0;i<n;i++)\r
-       {\r
-               if(s[i]<=' ' || s[i]==';')      break;\r
-               if(!strchr("+-.eE0123456789",s[i]))     return false;\r
-       }\r
-       return true;\r
-//     char *t = new char[i+1];        memcpy(t,s,i*sizeof(char));     t[i]=0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-char is_cmd(const char *s)     // command\r
-{\r
-       register long i,n=strlen(s)+1;\r
-       char res=0, *w=new char[n];\r
-       for(i=0;i<n;i++)        if(!isalnum(s[i]))      w[i]=0;\r
-       int rts = Parse->CmdType(w);\r
-       if(rts==5)              res = 'G';\r
-       else if(rts==7) res = 'F';\r
-       else if(rts)    res = 'E';\r
-       delete []w;             return res;\r
-}\r
-//-----------------------------------------------------------------------------\r
-// Parse text and produce style data.\r
-void style_parse(const char *text, char *style, int /*length*/)\r
-{\r
-       register long i;\r
-       long n=strlen(text);\r
-       bool nl=true, arg=true;\r
-       // Style letters:\r
-       // A - Plain\r
-       // B - Line comments\r
-       // C - Number\r
-       // D - Strings\r
-       // E - Usual command\r
-       // F - Flow command\r
-       // G - New data command\r
-       // H - Option\r
-\r
-       for(i=0;i<n;i++)\r
-       {\r
-               style[i] = 'A';\r
-               if(text[i]=='#')        // comment\r
-                       for(;i<n && text[i]!='\n';i++)  style[i]='B';\r
-               if(text[i]=='\'')       // string\r
-               {\r
-                       arg = false;    style[i]='D';   i++;\r
-                       for(;i<n && text[i]!='\n' && text[i]!='\'';i++) style[i]='D';\r
-                       style[i]='D';\r
-               }\r
-               if(text[i]=='\n' || text[i]==':')       {       nl=true;        style[i]='A';   continue;       }\r
-               char r = is_cmd(text+i);\r
-               if(nl && r)     // command name\r
-               {       for(;i<n && isalnum(text[i]);i++)       style[i]=r;             i--;    }\r
-               if(text[i]<=' ' || text[i]==';')        {       arg = true;     continue;       }\r
-               if(arg && is_opt(text+i))       // option\r
-               {       for(;i<n && isalpha(text[i]);i++)       style[i]='H';   i--;    }\r
-               if(arg && is_num(text+i))       // number\r
-               {\r
-                       if(text[i]==':' && (isspace(text[i+1]) || text[i+1]==':'))\r
-                               style[i]='C';\r
-                       else for(;i<n && strchr("+-.eE0123456789pionaf",text[i]) ;i++)\r
-                               style[i]='C';\r
-                       i--;\r
-               }\r
-               if(text[i]=='.' && is_sfx(text+i+1))    // option (suffix)\r
-               {\r
-                       style[i]='H';   i++;\r
-                       for(;i<n && isalpha(text[i]);i++)       style[i]='H';\r
-               }\r
-               nl = arg = false;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-// Initialize the style buffer...\r
-void style_init(void)\r
-{\r
-       char *style = new char[textbuf->length() + 1];\r
-       char *text = textbuf->text();\r
-       memset(style, 'A', textbuf->length());\r
-       style[textbuf->length()] = '\0';\r
-       if (!stylebuf) stylebuf = new Fl_Text_Buffer(textbuf->length());\r
-       style_parse(text, style, textbuf->length());\r
-       stylebuf->text(style);\r
-       delete[] style;\r
-       free(text);\r
-}\r
-//-----------------------------------------------------------------------------\r
-// Update unfinished styles.\r
-void style_unfinished_cb(int, void*) {}\r
-//-----------------------------------------------------------------------------\r
-// Update the style buffer...\r
-void style_update(int pos,             // Position of update\r
-                               int nInserted,  // Number of inserted chars\r
-                               int nDeleted,   // Number of deleted chars\r
-                               int     /*nRestyled*/,                  // Number of restyled chars\r
-                               const char */*deletedText*/,// Text that was deleted\r
-                               void *cbArg)    // Callback data\r
-{\r
-       long    start, end;     // Start and end of text\r
-       char last,              // Last style on line\r
-               *style,         // Style data\r
-               *text;          // Text data\r
-\r
-       // If this is just a selection change, just unselect the style buffer...\r
-       if (nInserted == 0 && nDeleted == 0) {  stylebuf->unselect();   return;  }\r
-       // Track changes in the text buffer...\r
-       if (nInserted > 0)\r
-       {\r
-               // Insert characters into the style buffer...\r
-               style = new char[nInserted + 1];\r
-               memset(style, 'A', nInserted);\r
-               style[nInserted] = '\0';\r
-\r
-               stylebuf->replace(pos, pos + nDeleted, style);\r
-               delete[] style;\r
-       }\r
-       else    // Just delete characters in the style buffer...\r
-               stylebuf->remove(pos, pos + nDeleted);\r
-\r
-       // Select the area that was just updated to avoid unnecessary callbacks...\r
-       stylebuf->select(pos, pos + nInserted - nDeleted);\r
-\r
-       // Re-parse the changed region; we do this by parsing from the\r
-       // beginning of the previous line of the changed region to the end of\r
-       // the line of the changed region...  Then we check the last\r
-       // style character and keep updating if we have a multi-line\r
-       // comment character...\r
-       start = textbuf->line_start(pos);\r
-       end   = textbuf->line_end(pos + nInserted);\r
-       text  = textbuf->text_range(start, end);\r
-       style = stylebuf->text_range(start, end);\r
-       if (start==end) last = 0;\r
-       else    last = style[end-start-1];\r
-       style_parse(text, style, end - start);\r
-       stylebuf->replace(start, end, style);\r
-       ((Fl_Text_Editor *)cbArg)->redisplay_range(start, end);\r
-\r
-       if (start==end || last != style[end-start-1])\r
-       {\r
-               // Either the user deleted some text, or the last character on\r
-               // the line changed styles, so reparse the remainder of the buffer...\r
-               free(text);     free(style);\r
-\r
-               end   = textbuf->length();\r
-               text  = textbuf->text_range(start, end);\r
-               style = stylebuf->text_range(start, end);\r
-               style_parse(text, style, end - start);\r
-               stylebuf->replace(start, end, style);\r
-               ((Fl_Text_Editor *)cbArg)->redisplay_range(start, end);\r
-       }\r
-       free(text);     free(style);\r
-}\r
-//-----------------------------------------------------------------------------\r
-ScriptWindow::ScriptWindow(int w, int h, const char* t) : Fl_Double_Window(w, h, t)\r
-{\r
-       replace_dlg = new Fl_Window(300, 105, gettext("Replace"));\r
-       replace_find = new Fl_Input(80, 10, 210, 25, gettext("Find:"));\r
-       replace_find->align(FL_ALIGN_LEFT);\r
-\r
-       replace_with = new Fl_Input(80, 40, 210, 25, gettext("Replace:"));\r
-       replace_with->align(FL_ALIGN_LEFT);\r
-\r
-       replace_all = new Fl_Button(10, 70, 90, 25, gettext("Replace All"));\r
-       replace_all->callback((Fl_Callback *)replall_cb, this);\r
-       replace_all->box(UDAV_UP_BOX);  replace_all->down_box(UDAV_DOWN_BOX);\r
-\r
-       replace_next = new Fl_Return_Button(105, 70, 120, 25, "Replace Next");\r
-       replace_next->callback((Fl_Callback *)replace2_cb, this);\r
-       replace_next->box(UDAV_UP_BOX); replace_next->down_box(UDAV_DOWN_BOX);\r
-\r
-       replace_cancel = new Fl_Button(230, 70, 60, 25, gettext("Cancel"));\r
-       replace_cancel->callback((Fl_Callback *)replcan_cb, this);\r
-       replace_cancel->box(UDAV_UP_BOX);       replace_cancel->down_box(UDAV_DOWN_BOX);\r
-\r
-       replace_dlg->end();\r
-       replace_dlg->set_non_modal();\r
-       editor = 0;             *search = 0;\r
-\r
-       setup_dlg = new SetupDlg;\r
-       setup_dlg->CreateDlg();\r
-}\r
-//-----------------------------------------------------------------------------\r
-ScriptWindow::~ScriptWindow()\r
-{\r
-       delete replace_dlg;\r
-       delete setup_dlg->wnd;\r
-}\r
-//-----------------------------------------------------------------------------\r
-int check_save(void)\r
-{\r
-  if (!changed) return 1;\r
-  int r = fl_choice(gettext("The current file has not been saved.\n"\r
-                                       "Would you like to save it now?"),\r
-                                       gettext("Cancel"), gettext("Save"), gettext("Don't Save"));\r
-  if(r==1)     {       save_cb(0,0);   return !changed;        } // Save the file...\r
-  return (r==2) ? 1 : 0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-int loading = 0;\r
-void load_file(char *newfile, int ipos)\r
-{\r
-       long len = strlen(newfile);\r
-       pref.set("last_file",newfile);\r
-       if(ipos==-1 && (!strcmp(newfile+len-4,".dat") || !strcmp(newfile+len-4,".csv")))\r
-       {\r
-               data_file(newfile);\r
-               strcpy(newfile+len-4,".mgl");\r
-               strcpy(filename, newfile);\r
-       }\r
-       else\r
-       {\r
-               loading = 1;\r
-               int insert = (ipos != -1);\r
-               changed = insert;\r
-               if(!insert) strcpy(filename, "");\r
-               long r;\r
-               if(!insert)     r = textbuf->loadfile(newfile);\r
-               else r = textbuf->insertfile(newfile, ipos);\r
-\r
-               char *t = textbuf->text();\r
-#ifndef WIN32\r
-               for(unsigned long i=0;i<strlen(t);i++)  if(t[i]=='\r')  t[i]=' ';\r
-               textbuf->text(t);\r
-#endif\r
-               fill_animate(t);        free(t);\r
-\r
-               if (r)\r
-                       fl_alert(gettext("Error reading from file \'%s\':\n%s."), newfile, strerror(errno));\r
-               else    if(!insert)     strcpy(filename, newfile);\r
-               loading = 0;\r
-               textbuf->call_modify_callbacks();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void save_file(char *newfile)\r
-{\r
-       pref.set("last_file",newfile);\r
-       if (textbuf->savefile(newfile))\r
-               fl_alert(gettext("Error writing to file \'%s\':\n%s."), newfile, strerror(errno));\r
-       else\r
-               strcpy(filename, newfile);\r
-       changed = 0;\r
-       textbuf->call_modify_callbacks();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void copy_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       Fl_Text_Editor::kf_copy(0, e->editor);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void cut_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       Fl_Text_Editor::kf_cut(0, e->editor);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void delete_cb(Fl_Widget*, void*) {    textbuf->remove_selection();    }\r
-//-----------------------------------------------------------------------------\r
-void find_cb(Fl_Widget* w, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       const char *val;\r
-       val = fl_input(gettext("Search String:"), e->search);\r
-       if (val != NULL) {      strcpy(e->search, val); find2_cb(w, v); }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void find2_cb(Fl_Widget* w, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       if (e->search[0] == '\0')       {       find_cb(w, v);  return; }\r
-\r
-       int pos = e->editor->insert_position();\r
-       long found = textbuf->search_forward(pos, e->search, &pos);\r
-       if (found) {\r
-               // Found a match; select and update the position...\r
-               textbuf->select(pos, pos+strlen(e->search));\r
-               e->editor->insert_position(pos+strlen(e->search));\r
-               e->editor->show_insert_position();\r
-       }\r
-       else fl_alert(gettext("No occurrences of \'%s\' found!"), e->search);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void changed_cb(int, int nInserted, int nDeleted,int, const char*, void* v)\r
-{\r
-       if ((nInserted || nDeleted) && !loading) changed = 1;\r
-       ScriptWindow *w = (ScriptWindow *)v;\r
-       set_title(w);\r
-       if (loading) w->editor->show_insert_position();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void insert_cb(Fl_Widget*, void *v)\r
-{\r
-       char *newfile = fl_file_chooser(gettext("Insert File?"), "*", filename);\r
-       ScriptWindow *w = (ScriptWindow *)v;\r
-       if (newfile != NULL) load_file(newfile, w->editor->insert_position());\r
-}\r
-//-----------------------------------------------------------------------------\r
-void paste_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       Fl_Text_Editor::kf_paste(0, e->editor);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void replace_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       e->replace_dlg->show();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void replace2_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       const char *find = e->replace_find->value();\r
-       const char *replace = e->replace_with->value();\r
-       if (find[0] == '\0')    {       e->replace_dlg->show(); return; }\r
-       e->replace_dlg->hide();\r
-\r
-       int pos = e->editor->insert_position();\r
-       long found = textbuf->search_forward(pos, find, &pos);\r
-       if (found)\r
-       {\r
-               // Found a match; update the position and replace text...\r
-               textbuf->select(pos, pos+strlen(find));\r
-               textbuf->remove_selection();\r
-               textbuf->insert(pos, replace);\r
-               textbuf->select(pos, pos+strlen(replace));\r
-               e->editor->insert_position(pos+strlen(replace));\r
-               e->editor->show_insert_position();\r
-       }\r
-       else fl_alert(gettext("No occurrences of \'%s\' found!"), find);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void replall_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       const char *find = e->replace_find->value();\r
-       const char *replace = e->replace_with->value();\r
-\r
-       find = e->replace_find->value();\r
-       if (find[0] == '\0')    {       e->replace_dlg->show(); return; }\r
-       e->replace_dlg->hide();\r
-       e->editor->insert_position(0);\r
-       long times = 0;\r
-\r
-       // Loop through the whole string\r
-       for (long found = 1; found;)\r
-       {\r
-               int pos = e->editor->insert_position();\r
-               found = textbuf->search_forward(pos, find, &pos);\r
-               if (found)\r
-               {\r
-                       // Found a match; update the position and replace text...\r
-                       textbuf->select(pos, pos+strlen(find));\r
-                       textbuf->remove_selection();\r
-                       textbuf->insert(pos, replace);\r
-                       e->editor->insert_position(pos+strlen(replace));\r
-                       e->editor->show_insert_position();\r
-                       times++;\r
-               }\r
-       }\r
-       if (times) fl_message(gettext("Replaced %ld occurrences."), times);\r
-       else fl_alert(gettext("No occurrences of \'%s\' found!"), find);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void replcan_cb(Fl_Widget*, void* v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       e->replace_dlg->hide();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void view_cb(Fl_Widget*, void*);\r
-//#include "xpm/window.xpm"\r
-//#include "xpm/option.xpm"\r
-//#include "xpm/table.xpm"\r
-#include "xpm/plot.xpm"\r
-#include "xpm/help-contents.xpm"\r
-#include "xpm/edit-cut.xpm"\r
-#include "xpm/edit-copy.xpm"\r
-#include "xpm/edit-paste.xpm"\r
-#include "xpm/edit-find.xpm"\r
-#include "xpm/document-open.xpm"\r
-#include "xpm/document-new.xpm"\r
-#include "xpm/document-save.xpm"\r
-Fl_Widget *add_editor(ScriptWindow *w)\r
-{\r
-       Fl_Window *w1=new Fl_Window(0,30,300,430,0);\r
-       Fl_Group *g = new Fl_Group(0,0,290,30);\r
-       Fl_Button *o;\r
-\r
-       o = new Fl_Button(0, 1, 25, 25);        o->image(new Fl_Pixmap(document_new_xpm));\r
-       o->tooltip(gettext("New script"));      o->callback(new_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(25, 1, 25, 25);       o->tooltip(gettext("Open script or data file"));\r
-       o->image(new Fl_Pixmap(document_open_xpm));     o->callback(open_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(50, 1, 25, 25);       o->tooltip(gettext("Save script to file"));\r
-       o->image(new Fl_Pixmap(document_save_xpm));     o->callback(save_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-\r
-       o = new Fl_Button(80, 1, 25, 25);       o->tooltip(gettext("Cut selection to clipboard"));\r
-       o->image(new Fl_Pixmap(edit_cut_xpm));  o->callback(cut_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(105, 1, 25, 25);      o->tooltip(gettext("Copy selection to clipboard"));\r
-       o->image(new Fl_Pixmap(edit_copy_xpm)); o->callback(copy_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(130, 1, 25, 25);      o->tooltip(gettext("Paste text from clipboard"));\r
-       o->image(new Fl_Pixmap(edit_paste_xpm));        o->callback(paste_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(155, 1, 25, 25);      o->tooltip(gettext("Find text"));\r
-       o->image(new Fl_Pixmap(edit_find_xpm)); o->callback(find_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-\r
-       o = new Fl_Button(185, 1, 25, 25);      o->tooltip(gettext("Insert MGL command"));\r
-       o->image(new Fl_Pixmap(plot_xpm));      o->callback(command_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-//     o = new Fl_Button(185, 1, 25, 25);      o->tooltip(gettext("Insert command options"));\r
-//     o->image(new Fl_Pixmap(option_xpm));    o->callback(option_cb,w);\r
-//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-//     o = new Fl_Button(210, 1, 25, 25);      o->tooltip(gettext("Edit data array"));\r
-//     o->image(new Fl_Pixmap(table_xpm));     o->callback(table_cb,w);\r
-//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-//     o = new Fl_Button(235, 1, 25, 25);      o->tooltip(gettext("New view window"));\r
-//     o->image(new Fl_Pixmap(window_xpm));o->callback(view_cb,w);\r
-//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(210, 1, 25, 25);      o->tooltip(gettext("Show help window"));\r
-       o->image(new Fl_Pixmap(help_contents_xpm));     o->callback(help_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       g->end();       g->resizable(0);\r
-\r
-       w->editor = new Fl_Text_Editor(0, 28, 300, 400);\r
-       w->editor->buffer(textbuf);\r
-       w->editor->highlight_data(stylebuf, styletable, sizeof(styletable) / sizeof(styletable[0]), 'A', style_unfinished_cb, 0);\r
-       w->editor->textfont(FL_COURIER);\r
-\r
-       textbuf->add_modify_callback(style_update, w->editor);\r
-       textbuf->add_modify_callback(changed_cb, w);\r
-       textbuf->call_modify_callbacks();\r
-\r
-       w1->end();\r
-       w1->resizable(w->editor);       //w->graph);\r
-       return w1;\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/grid.cpp b/mgllab/grid.cpp
deleted file mode 100644 (file)
index 3c32945..0000000
--- a/mgllab/grid.cpp
+++ /dev/null
@@ -1,110 +0,0 @@
-/* grid.cpp is part of UDAV
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public License
- * as published by the Free Software Foundation
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- */
-#include <FL/Fl.H>
-#include <FL/Fl_Window.H>
-#include <FL/Fl_Int_Input.H>
-#include <FL/Fl_Value_Slider.H>
-#include <FL/fl_draw.H>
-#include "udav.h"
-//-----------------------------------------------------------------------------
-Fl_Callback input_cb;
-//-----------------------------------------------------------------------------
-void input_cb(Fl_Widget*, void* v)     { ((Fl_Data_Table*)v)->set_value(); }
-//-----------------------------------------------------------------------------
-Fl_Data_Table::Fl_Data_Table(int x, int y, int w, int h, const char *l) : Fl_Table(x,y,w,h,l)
-{
-       callback(&event_callback, (void*)this);
-       input = new Fl_Input(w/2,h/2,0,0);
-       input->hide();
-       input->callback(input_cb, (void*)this);
-       input->when(FL_WHEN_ENTER_KEY_ALWAYS);
-       input->maximum_size(16);
-//     (new Fl_Box(9999,9999,0,0))->hide();  // HACK: prevent flickering in Fl_Scroll
-       end();
-}
-//-----------------------------------------------------------------------------
-// Handle drawing all cells in table
-void Fl_Data_Table::draw_cell(TableContext context, int R, int C, int X, int Y, int W, int H)
-{
-       static char s[32];
-       fl_push_clip(X, Y, W, H);
-       switch ( context )
-       {
-       case CONTEXT_COL_HEADER:
-               fl_draw_box(FL_THIN_UP_BOX, X, Y, W, H, col_header_color());
-               fl_font(FL_HELVETICA | FL_BOLD, 14);
-               fl_color(FL_BLACK);             sprintf(s,"%d",C);
-               fl_draw(s, X, Y, W, H, FL_ALIGN_CENTER);
-               break;
-       case CONTEXT_ROW_HEADER:
-               fl_draw_box(FL_THIN_UP_BOX, X, Y, W, H, col_header_color());
-               fl_font(FL_HELVETICA | FL_BOLD, 14);
-               fl_color(FL_BLACK);             sprintf(s,"%d",R);
-               fl_draw(s, X, Y, W, H, FL_ALIGN_CENTER);
-               break;
-       case CONTEXT_CELL:
-           if (R == row && C == col && input->visible())       break;
-               fl_draw_box(FL_THIN_DOWN_BOX, X, Y, W, H, FL_WHITE);
-               fl_pop_clip();
-               fl_push_clip(X+3, Y+3, W-6, H-6);
-               fl_font(FL_HELVETICA, 14);
-               fl_color(FL_BLACK);
-               if(mgl_isnan(data[C+nx*R]))     strcpy(s,"nan");
-               else    sprintf(s,"%g",data[C+nx*R]);
-               fl_draw(s, X+3, Y+3, W-6, H-6, FL_ALIGN_RIGHT);
-               break;
-       case CONTEXT_RC_RESIZE:
-               if (!input->visible()) break;
-               find_cell(CONTEXT_TABLE, row, col, X, Y, W, H);
-               if (X!=input->x() || Y!=input->y() || W!=input->w() || H!=input->h())
-                       input->resize(X,Y,W,H);
-               break;
-       default:        break;
-       }
-       fl_pop_clip();
-}
-//-----------------------------------------------------------------------------
-void Fl_Data_Table::cell_click()
-{
-    int R = callback_row(), C = callback_col();
-    TableContext context = callback_context();
-
-    if(context==CONTEXT_CELL)
-       {
-               if (input->visible())   //input->do_callback();
-               {
-                       const char *s = input->value();
-                       data[col + nx*row] = (s[0]==0 || !strcmp(s,"nan")) ? NAN : atof(s);
-               }
-               row = R;                col = C;
-               int XX,YY,WW,HH;
-               find_cell(CONTEXT_CELL, R, C, XX, YY, WW, HH);
-               input->resize(XX,YY,WW,HH);
-               char s[32];
-               if(mgl_isnan(data[C+nx*R]))     strcpy(s,"nan");
-               else    sprintf(s,"%g",data[C+nx*R]);
-               input->value(s);        input->show();
-               input->take_focus();
-       }
-}
-//-----------------------------------------------------------------------------
-void Fl_Data_Table::set_value()
-{
-       const char *s = input->value();
-       data[col + nx*row] = (s[0]==0 || !strcmp(s,"nan")) ? NAN : atof(s);
-}
-//-----------------------------------------------------------------------------

diff --git a/mgllab/help.cpp b/mgllab/help.cpp
deleted file mode 100644 (file)
index 012031c..0000000
--- a/mgllab/help.cpp
+++ /dev/null
@@ -1,273 +0,0 @@
-/* help.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include "udav.h"\r
-#include <ctype.h>\r
-#include <FL/Fl_Select_Browser.H>\r
-//-----------------------------------------------------------------------------\r
-void get_doc_dir(char *&docdir)\r
-{\r
-       static char str[300];\r
-       pref.get("help_dir",docdir,"");\r
-#ifdef WIN32\r
-       sprintf(str,"%s\\mgl_en.html",docdir);\r
-#else\r
-       sprintf(str,"%s/mgl_en.html",docdir);\r
-#endif\r
-       FILE *fp = fopen(str,"r");\r
-       if(fp)  fclose(fp);\r
-       else\r
-       {\r
-               const char *p=0;\r
-               if((p=fl_input("Please enter a path for help/font files:","")))\r
-                       pref.set("help_dir",p);\r
-               pref.get("help_dir",docdir,"");\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void help_cb(Fl_Widget*, void*v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       long i=e->editor->insert_position(), j0=textbuf->line_start(i),j;\r
-\r
-       static char str[300];\r
-       char s[32]="", *buf = textbuf->text();\r
-       memset(s,0,32*sizeof(char));\r
-       for(j=j0;!isspace(buf[j]) && buf[j]!='#' && buf[j]!=';' && j<31+j0;j++)\r
-               s[j-j0] = buf[j];\r
-       free(buf);\r
-       get_doc_dir(buf);\r
-#ifdef WIN32\r
-       sprintf(str,"%s\\mgl_en.html#%s",buf,s);\r
-#else\r
-       sprintf(str,"%s/mgl_en.html#%s",buf,s);\r
-#endif\r
-       free(buf);      e->hd->load(str);\r
-       if(e->rtab)     e->rtab->value(e->ghelp);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void link_cb(Fl_Widget*, void*v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       static char str[300];\r
-       char *docdir;\r
-       get_doc_dir(docdir);\r
-#ifdef WIN32\r
-       sprintf(str,"%s\\mgl_en.html#%s",docdir,e->link_cmd->value());\r
-#else\r
-       sprintf(str,"%s/mgl_en.html#%s",docdir,e->link_cmd->value());\r
-#endif\r
-       free(docdir);   e->hd->load(str);\r
-       if(e->rtab)     e->rtab->value(e->ghelp);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void example_cb(Fl_Widget*, void*v)\r
-{\r
-       char *docdir;\r
-       static char str[300];\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       get_doc_dir(docdir);\r
-#ifdef WIN32\r
-       sprintf(str,"%s\\mgl_en.html\\mgl_en_2.html",docdir);\r
-#else\r
-       sprintf(str,"%s/mgl_en.html/mgl_en_2.html",docdir);\r
-#endif\r
-       free(docdir);   e->hd->load(str);       e->rtab->value(e->ghelp);\r
-       if(e->rtab)     e->rtab->value(e->ghelp);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void help_in_cb(Fl_Widget*, void*v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       e->hd->textsize(e->hd->textsize()+1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void help_out_cb(Fl_Widget*, void*v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       e->hd->textsize(e->hd->textsize()-1);\r
-}\r
-//-----------------------------------------------------------------------------\r
-#include "xpm/udav.xpm"\r
-void about_cb(Fl_Widget*, void*)\r
-{\r
-       static char s[128];\r
-       sprintf(s,gettext("UDAV v. 2.%g\n(c) Alexey Balakin, 2007\nhttp://udav.sf.net/"), MGL_VER2);\r
-       Fl_Double_Window* w = new Fl_Double_Window(355, 130, "About UDAV");\r
-       Fl_Box* o = new Fl_Box(10, 15, 65, 65);\r
-       o->box(FL_UP_BOX);      o->color(55);   o->image(new Fl_Pixmap(udav_xpm));\r
-       o = new Fl_Box(85, 15, 260, 65);        o->box(UDAV_DOWN_BOX);\r
-       o->label(s);\r
-       Fl_Button *b = new Fl_Return_Button(255, 90, 90, 30, "Close");\r
-       b->callback(close_dlg_cb,w);\r
-       b->box(UDAV_UP_BOX);    b->down_box(UDAV_DOWN_BOX);\r
-       w->end();       w->set_modal(); w->show();\r
-}\r
-//-----------------------------------------------------------------------------\r
-#include "xpm/zoom-out.xpm"\r
-#include "xpm/zoom-in.xpm"\r
-#include "xpm/help-faq.xpm"\r
-Fl_Widget *add_help(ScriptWindow *w)\r
-{\r
-       Fl_Window *w1=new Fl_Window(300,30,630,430,0);\r
-       Fl_Group *g = new Fl_Group(0,0,290,30);\r
-       Fl_Button *o;\r
-\r
-       w->link_cmd = new Fl_Input(0,1,150,25);\r
-       w->link_cmd->when(FL_WHEN_CHANGED);\r
-       w->link_cmd->callback(link_cb,w);\r
-\r
-       o = new Fl_Button(155, 1, 25, 25);      o->tooltip(gettext("MGL samples and hints"));\r
-       o->image(new Fl_Pixmap(help_faq_xpm));  o->callback(example_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(180, 1, 25, 25);      o->tooltip(gettext("Increase font size"));\r
-       o->image(new Fl_Pixmap(zoom_in_xpm));   o->callback(help_in_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(205, 1, 25, 25);      o->tooltip(gettext("Decrease font size"));\r
-       o->image(new Fl_Pixmap(zoom_out_xpm));  o->callback(help_out_cb,w);\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-\r
-       g->end();       g->resizable(0);\r
-\r
-       w->hd = new Fl_Help_View(0,28,630,400);\r
-       w1->end();      link_cb(w,w);\r
-       w1->resizable(w->hd);   return w1;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mem_dlg_cb0(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_pressed(0);     }\r
-//-----------------------------------------------------------------------------\r
-void mem_dlg_cb1(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_pressed(1);     }\r
-//-----------------------------------------------------------------------------\r
-void mem_dlg_cb2(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_pressed(2);     }\r
-//-----------------------------------------------------------------------------\r
-void mem_dlg_cb3(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_pressed(3);     }\r
-//-----------------------------------------------------------------------------\r
-void mem_update_cb(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_init(); }\r
-//-----------------------------------------------------------------------------\r
-Fl_Widget *add_mem(ScriptWindow *w)\r
-{\r
-       static int widths[] = {220,205,0};\r
-       Fl_Button *o;\r
-       Fl_Box *b;\r
-//     wnd = new Fl_Double_Window(335, 405, gettext("Data browser"));\r
-       Fl_Window *wnd = new Fl_Window(300,30,630,430,0);\r
-\r
-//     Fl_Group *g = new Fl_Group(10,10,610,395);\r
-       b = new Fl_Box(0, 10, 630, 25, gettext("Existed data arrays")); b->labeltype(FL_ENGRAVED_LABEL);\r
-       b = new Fl_Box(0, 35, 220, 25, gettext("name"));\r
-       b->box(FL_THIN_UP_BOX); b->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-       b = new Fl_Box(220, 35, 205, 25, gettext("dimensions"));\r
-       b->box(FL_THIN_UP_BOX); b->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-       b = new Fl_Box(425, 35, 205, 25, gettext("mem. usage"));\r
-       b->box(FL_THIN_UP_BOX); b->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-\r
-       w->var = new Fl_Select_Browser(0, 60, 630, 335);        w->var->column_char('\t');\r
-       w->var->align(FL_ALIGN_TOP);    w->var->column_widths(widths);\r
-       w->var->tooltip(gettext("List of available data."));\r
-//     g->end();\r
-\r
-       o = new Fl_Button(10, 400, 95, 25, gettext("Edit"));    o->callback(mem_dlg_cb0,w);\r
-       o->tooltip(gettext("Open table with selected data for editing."));\r
-       o = new Fl_Button(120, 400, 95, 25, gettext("Plot"));   o->callback(mem_dlg_cb1,w);\r
-       o->tooltip(gettext("Plot selected data."));\r
-       o = new Fl_Button(230, 400, 95, 25, gettext("Delete")); o->callback(mem_dlg_cb2,w);\r
-       o->tooltip(gettext("Delete selected data."));\r
-       o = new Fl_Button(340, 400, 95, 25, gettext("New"));    o->callback(mem_dlg_cb3,w);\r
-       o->tooltip(gettext("Open dialog for new data creation."));\r
-       o = new Fl_Button(450, 400, 95, 25, gettext("Refresh"));        o->callback(mem_update_cb,w);\r
-       o->tooltip(gettext("Refresh list of variables."));\r
-//     o = new Fl_Button(120, 335, 95, 25, gettext("Load"));   o->callback(mem_dlg_cb,(void *)4);\r
-//     o = new Fl_Button(230, 335, 95, 25, gettext("Save"));   o->callback(mem_dlg_cb,(void *)5);\r
-//     o = new Fl_Button(10, 370, 95, 25, gettext("Update"));  o->callback(mem_upd_cb,0);\r
-       wnd->end();     wnd->resizable(w->var); return wnd;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void ScriptWindow::mem_init()\r
-{\r
-       char str[128];\r
-       var->clear();\r
-       mglVar *v=Parse->Self()->DataList;\r
-       while(v)\r
-       {\r
-               sprintf(str,"%ls\t%ld*%ld*%ld\t%ld\t", v->s.c_str(), v->d.nx, v->d.ny,\r
-                               v->d.nz, 4*v->d.nx*v->d.ny*v->d.nz);\r
-               var->add(str,v);\r
-               v = v->next;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void ScriptWindow::mem_pressed(int kind)\r
-{\r
-       TableWindow *w;\r
-       int ind = var->value();\r
-       mglVar *v = (mglVar *)var->data(ind);\r
-       static char res[128];\r
-       if(!v && kind!=3)       return;\r
-       if(kind==0)\r
-       {\r
-               w = (TableWindow *)v->o;\r
-               if(!w)\r
-               {\r
-                       char ss[1024];\r
-                       wcstombs(ss,v->s.c_str(),1024); ss[v->s.length()]=0;\r
-                       ltab->begin();\r
-                       Fl_Group *gg = new Fl_Group(0,30,300,430);\r
-                       w = new TableWindow(0,30,300,430);\r
-                       gg->label(ss);  gg->end();      ltab->end();\r
-               }\r
-               w->update(v);   ltab->value(w->parent());       w->show();\r
-       }\r
-       else if(kind==1)\r
-       {\r
-               if(v->d.nz>1)           sprintf(res,"box\nsurf3 %ls\n",v->s.c_str());\r
-               else if(v->d.ny>1)      sprintf(res,"box\nsurf %ls\n",v->s.c_str());\r
-               else                            sprintf(res,"box\nplot %ls\n",v->s.c_str());\r
-               textbuf->text(res);\r
-       }\r
-       else if(kind==2)\r
-       {\r
-               if(Parse->Self()->DataList==v)  Parse->Self()->DataList = v->next;\r
-               delete v;\r
-       }\r
-       else if(kind==3)\r
-       {\r
-               const char *name = fl_input(gettext("Enter name for new variable"),"dat");\r
-               if(!name)       return;\r
-               v = Parse->Self()->AddVar(name);\r
-\r
-               ltab->begin();\r
-               Fl_Group *gg = new Fl_Group(0,30,300,430);\r
-               w = new TableWindow(0,30,300,430);\r
-               gg->label(name);        gg->end();      ltab->end();\r
-               w->update(v);   ltab->value(w->parent());       w->show();\r
-       }\r
-       mem_init();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void variables_cb(Fl_Widget *, void *v)\r
-{\r
-/*     MemDlg *s = &mem_dlg;\r
-       s->wnd->set_modal();\r
-       s->init();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();*/\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/main.cpp b/mgllab/main.cpp
deleted file mode 100644 (file)
index 3f94e74..0000000
--- a/mgllab/main.cpp
+++ /dev/null
@@ -1,299 +0,0 @@
-/* main.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include <ctype.h>\r
-#include <errno.h>\r
-#include <locale.h>\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-char   title[256];\r
-int num_windows = 0, auto_exec=1, plastic_scheme=1, internal_font=0;\r
-Fl_Preferences pref(Fl_Preferences::USER,"abalakin","UDAV");\r
-//-----------------------------------------------------------------------------\r
-void set_title(Fl_Window* w)\r
-{\r
-       if (filename[0] == '\0') strcpy(title, "Untitled");\r
-       else\r
-       {\r
-               char *slash;\r
-               slash = strrchr(filename, '/');\r
-#ifdef WIN32\r
-               if (slash == NULL) slash = strrchr(filename, '\\');\r
-#endif\r
-               if (slash != NULL) strcpy(title, slash + 1);\r
-               else strcpy(title, filename);\r
-       }\r
-       if (changed) strcat(title, gettext(" (modified)"));\r
-       w->label(title);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void fname_cb(Fl_Widget*, void *v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       char *file = fl_file_chooser(gettext("Insert File Name?"), gettext("All Files (*)"), 0);\r
-       if(file)\r
-       {\r
-               char *str = new char[strlen(file)+4];\r
-               sprintf(str," '%s'",file);\r
-               e->editor->insert(str);\r
-               delete []str;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void new_cb(Fl_Widget*, void*)\r
-{\r
-       if (!check_save()) return;\r
-       filename[0] = '\0';\r
-       textbuf->select(0, textbuf->length());\r
-       textbuf->remove_selection();\r
-       changed = 0;\r
-       textbuf->call_modify_callbacks();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void open_cb(Fl_Widget*, void *v)\r
-{\r
-       if (!check_save()) return;\r
-       char *lastname=0;\r
-       if(*filename==0)        {       pref.get("last_file",lastname,"");      strcpy(filename, lastname);     }\r
-       char *newfile = fl_file_chooser(gettext("Open File?"),\r
-               gettext("MGL Files (*.mgl)\tDAT Files (*.{dat,csv})\tAll Files (*)"), filename);\r
-       if(lastname)    free(lastname);\r
-       if(newfile != NULL)\r
-       {\r
-               load_file(newfile, -1);\r
-               if(auto_exec)   ((ScriptWindow*)v)->graph->update();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void close_cb(Fl_Widget*, void* v)\r
-{\r
-       Fl_Window* w = (Fl_Window*)v;\r
-       if (num_windows == 1 && !check_save())  return;\r
-\r
-       w->hide();\r
-       textbuf->remove_modify_callback(changed_cb, w);\r
-       delete w;\r
-       num_windows--;\r
-       if (!num_windows) exit(0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void quit_cb(Fl_Widget*, void*)\r
-{\r
-       if (changed && !check_save())   return;\r
-       exit(0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void save_cb(Fl_Widget*w, void*v)\r
-{\r
-       if (filename[0] == '\0')        {       saveas_cb(w,v); return; }       // No filename - get one!\r
-       else save_file(filename);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void saveas_cb(Fl_Widget*, void*)\r
-{\r
-       char *newfile, *fname=0;\r
-       FILE *fp=0;\r
-       while(1)\r
-       {\r
-               newfile = fl_file_chooser(gettext("Save File As?"), "*.mgl", filename);\r
-               if(!newfile || !newfile[0])     break;\r
-               if(!strchr(newfile,'.'))\r
-               {\r
-                       if(fname)       delete []fname;\r
-                       fname = new char[strlen(newfile)+5];\r
-                       strcpy(fname,newfile);  strcat(fname,".mgl");\r
-                       newfile = fname;\r
-               }\r
-               fp = fopen(newfile,"r");\r
-               if(fp)\r
-               {\r
-                       fclose(fp);\r
-                       if(fl_choice(gettext("File is exesist. Overwrite it?"),0,gettext("No"),gettext(" Yes "))==2)\r
-                               break;\r
-               }\r
-               else    break;\r
-       }\r
-       if (newfile != NULL)    save_file(newfile);\r
-       if(fname)       delete []fname;\r
-}\r
-//-----------------------------------------------------------------------------\r
-ScriptWindow *new_view();\r
-//-----------------------------------------------------------------------------\r
-void view_cb(Fl_Widget*, void*)\r
-{      Fl_Window* w = new_view();      w->show();      }\r
-//-----------------------------------------------------------------------------\r
-void hint_cb(Fl_Widget*, void*)        {}\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item menuitems[] = {\r
-       { gettext("File"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("New File"),                  0, new_cb },\r
-               { gettext("Open File..."),              FL_CTRL + 'o', open_cb },\r
-               { gettext("Insert File..."),    FL_CTRL + 'i', insert_cb },\r
-               { gettext("Save File"),                 FL_CTRL + 's', save_cb },\r
-               { gettext("Save File As..."),   FL_CTRL + FL_SHIFT + 's', saveas_cb, 0, FL_MENU_DIVIDER },\r
-/*             { gettext("Export"), 0, 0, 0,   FL_SUBMENU },\r
-                       { gettext("... as PNG"),        FL_ALT + 'p', export_png_cb },\r
-                       { gettext("... as PNG (solid)"),        FL_ALT + 'f', export_pngn_cb },\r
-                       { gettext("... as JPEG"),       FL_ALT + 'j', export_jpeg_cb },\r
-                       { gettext("... as SVG"),        FL_ALT + 's', export_svg_cb },\r
-                       { gettext("... as vector EPS"), FL_ALT + 'e', export_eps_cb },\r
-                       { gettext("... as bitmap EPS"), 0, export_bps_cb, 0, FL_MENU_DIVIDER },\r
-                       {0},*/\r
-               { gettext("New View"),          FL_ALT + 'w', view_cb },\r
-               { gettext("Close View"),        FL_CTRL + 'w', close_cb, 0, FL_MENU_DIVIDER },\r
-               { gettext("Exit"),                      FL_ALT + 'x', quit_cb },\r
-               { 0 },\r
-       { gettext("Edit"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Cut"),                       FL_CTRL + 'x', cut_cb },\r
-               { gettext("Copy"),                      FL_CTRL + 'c', copy_cb },\r
-               { gettext("Paste"),                     FL_CTRL + 'v', paste_cb },\r
-               { gettext("Delete"),            0, delete_cb, 0, FL_MENU_DIVIDER },\r
-               { gettext("Insert"), 0, 0, 0,   FL_SUBMENU },\r
-                       { gettext("options"),   FL_ALT + 'o', option_cb },\r
-                       { gettext("style"),             FL_ALT + 'i', style_cb },\r
-                       { gettext("filename"),  0, fname_cb },\r
-                       { gettext("command"),   FL_ALT + 'c', command_cb },\r
-                       { 0 },\r
-               { gettext("Properties"),        0, settings_cb },\r
-               { 0 },\r
-       { gettext("Search"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Find..."),           FL_CTRL + 'f', find_cb },\r
-               { gettext("Find Again"),        FL_F + 3, find2_cb },\r
-               { gettext("Replace..."),        FL_CTRL + 'r', replace_cb },\r
-               { gettext("Replace Again"), FL_F + 4, replace2_cb },\r
-               { 0 },\r
-/*     { gettext("Animate"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Slideshow"), FL_CTRL + FL_F + 5, sshow_cb, 0, FL_MENU_TOGGLE },\r
-               { gettext("Next slide"),0, snext_cb },\r
-               { gettext("Prev slide"),0, sprev_cb },\r
-               { gettext("Parameters"),0, animate_cb },\r
-               { 0 },\r
-       { gettext("Graphics"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Alpha"),                     FL_ALT + 'a', alpha_cb, 0, FL_MENU_TOGGLE },\r
-               { gettext("Light"),                     FL_ALT + 'l', light_cb, 0, FL_MENU_TOGGLE },\r
-               { gettext("Settings"),          FL_F + 2, setup_cb },\r
-               { gettext("Copy graphics"),     0, 0, 0, FL_MENU_INACTIVE|FL_MENU_DIVIDER},\r
-               { gettext("Normal view"),       FL_ALT + ' ', norm_cb },\r
-               { gettext("Execute script"),FL_F + 5, draw_cb },\r
-               { gettext("Adjust size"),       FL_F + 6, adjust_cb },\r
-               { gettext("Reload data"),       FL_F + 9, oncemore_cb },\r
-               { gettext("Script arguments"),  0, argument_cb },\r
-               { 0 },*/\r
-/*     { gettext("Data"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Edit data"),         FL_ALT + 'd', table_cb },\r
-               { gettext("List of data"),      FL_ALT + 'v', variables_cb },\r
-               { gettext("Reload data"),       FL_F + 9, oncemore_cb },\r
-               { 0 },*/\r
-       { gettext("Help"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("MGL Help"),          FL_F + 1, help_cb },\r
-               { gettext("MGL Examples"),      0, example_cb },\r
-               { gettext("Hints and FAQ"),     0, hint_cb , 0, FL_MENU_INACTIVE},\r
-               { gettext("About UDAV"),        0, about_cb },\r
-               { 0 },\r
-       { 0 }\r
-};\r
-//-----------------------------------------------------------------------------\r
-void mem_upd_cb(Fl_Widget *, void *v)\r
-{      ((ScriptWindow*)v)->mem_init(); }\r
-//-----------------------------------------------------------------------------\r
-ScriptWindow *new_view()\r
-{\r
-       Fl_Tabs* tt;\r
-       Fl_Group *gg;\r
-       ScriptWindow *w = new ScriptWindow(930, 510, title);\r
-       w->begin();\r
-       w->menu = new Fl_Menu_Bar(0, 0, 930, 30);\r
-       w->menu->copy(menuitems, w);\r
-\r
-       Fl_Tile *t = new Fl_Tile(0,30,930,455);\r
-       tt = new Fl_Tabs(0,30,300,455,0);       tt->box(UDAV_UP_BOX);\r
-       gg = new Fl_Group(0,30,300,430);        gg->label(gettext("Script"));\r
-       add_editor(w);  gg->end();\r
-       tt->end();              w->ltab = tt;\r
-\r
-       tt = new Fl_Tabs(300,30,930,455,0);     tt->box(UDAV_UP_BOX);\r
-       w->graph = new Fl_MGL(300,30,930,430,gettext("Canvas"));\r
-       gg = new Fl_Group(300,30,930,430,gettext("Help"));\r
-       add_help(w);    gg->end();      w->ghelp = gg;\r
-       gg = new Fl_Group(300,30,930,430,gettext("Memory"));\r
-       add_mem(w);             gg->end();\r
-       tt->end();              w->rtab = tt;\r
-\r
-       w->status = new Fl_Box(0,485,930,25,"Ready");\r
-       w->status->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-       w->status->color(FL_BACKGROUND_COLOR);\r
-       w->status->box(FL_DOWN_BOX);\r
-       w->graph->status = w->status;\r
-\r
-       t->end();       t->resizable(t);\r
-       w->end();       w->resizable(t);\r
-       tt->callback(mem_upd_cb, w);\r
-       w->callback((Fl_Callback *)close_cb, w);\r
-\r
-       num_windows++;\r
-       return w;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void argument_set(int n, const char *s);\r
-int main(int argc, char **argv)\r
-{\r
-//     Fl::lock();\r
-       mgl_ask_func = mgl_ask_fltk;\r
-       char *buf, *buf2;\r
-       pref.get("locale",buf,"ru_RU.cp1251");  setlocale(LC_CTYPE, buf);       free(buf);\r
-       pref.get("plastic_scheme",plastic_scheme,1);\r
-       pref.get("internal_font",internal_font,0);\r
-       pref.get("auto_exec",auto_exec,1);\r
-#ifdef USE_GETTEXT\r
-//     setlocale (LC_NUMERIC, "");\r
-//     bindtextdomain (PACKAGE, LOCALEDIR);\r
-//     textdomain (PACKAGE);\r
-#endif\r
-\r
-       Fl::visual(FL_DOUBLE);\r
-       if(plastic_scheme) Fl::scheme("plastic");\r
-#ifdef DOC_DIR\r
-       char dir[64];\r
-       if(!pref.get("help_dir",dir,"",64));\r
-               pref.set("help_dir",DOC_DIR);\r
-#endif\r
-       textbuf = new Fl_Text_Buffer;\r
-       style_init();\r
-       ScriptWindow *w = new_view();\r
-\r
-       pref.get("font_dir",buf2,"");\r
-       pref.get("font_name",buf,"");\r
-       mgl_load_font(w->graph->FMGL->get_graph(),buf,buf2);\r
-       if(buf)         free(buf);\r
-       if(buf2)        free(buf2);\r
-\r
-       w->show(1, argv);\r
-       for(int i=1;i<argc;i++)\r
-       {\r
-               if(argv[i][0]!='-')\r
-               {\r
-                       load_file(argv[i], -1);\r
-                       if(auto_exec)   w->graph->update();\r
-               }\r
-               else\r
-               {\r
-                       char ch = argv[i][1];\r
-                       if(ch>='0' && ch<='9')  argument_set(ch-'0',argv[i]+2);\r
-               }\r
-       }\r
-       return Fl::run();\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/mathgl.cpp b/mgllab/mathgl.cpp
deleted file mode 100644 (file)
index f32b001..0000000
--- a/mgllab/mathgl.cpp
+++ /dev/null
@@ -1,140 +0,0 @@
-/* mathgl.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include "mgl2/mgl.h"\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-#include "xpm/alpha.xpm"\r
-#include "xpm/light.xpm"\r
-#include "xpm/alpha_on.xpm"\r
-#include "xpm/light_on.xpm"\r
-#include "xpm/zoom-fit-best.xpm"\r
-#include "xpm/zoom-fit-best-r.xpm"\r
-#include "xpm/film-r.xpm"\r
-#include "xpm/film-b.xpm"\r
-#include "xpm/media-seek-forward.xpm"\r
-#include "xpm/media-seek-backward.xpm"\r
-#include "xpm/go-previous.xpm"\r
-#include "xpm/go-next.xpm"\r
-#include "xpm/go-down.xpm"\r
-#include "xpm/zoom-out.xpm"\r
-#include "xpm/zoom-in.xpm"\r
-#include "xpm/go-up.xpm"\r
-#include "xpm/zoom-original.xpm"\r
-#include "xpm/view-refresh.xpm"\r
-#include "xpm/rotate.xpm"\r
-#include "xpm/rotate_on.xpm"\r
-#include "xpm/document-properties.xpm"\r
-//#include "xpm/preferences-system.xpm"\r
-#include "xpm/wire.xpm"\r
-//-----------------------------------------------------------------------------\r
-extern int internal_font;\r
-mglParse *Parse=0;\r
-void get_doc_dir(char *&docdir);\r
-//-----------------------------------------------------------------------------\r
-void udav_error(const char *Message, void *v)\r
-{      ((Fl_MGL*)v)->status->label(Message);   }\r
-mreal udav_delay(void *v)\r
-{      return ((Fl_MGL*)v)->AnimDelay; }\r
-void udav_reload(void *v)\r
-{      Parse->RestoreOnce();   ((Fl_MGL*)v)->update(); }\r
-//-----------------------------------------------------------------------------\r
-void udav_next(void *v)        {       ((Fl_MGL*)v)->next_frame();     }\r
-void Fl_MGL::next_frame()\r
-{\r
-       if(NArgs==0)\r
-       {\r
-               animate_cb(this,this);\r
-               if(NArgs==0)    return;\r
-       }\r
-       ArgCur = (ArgCur+1) % NArgs;\r
-       Parse->AddParam(0,Args[ArgCur]);\r
-       update();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void udav_prev(void *v)        {       ((Fl_MGL*)v)->prev_frame();     }\r
-void Fl_MGL::prev_frame()\r
-{\r
-       if(NArgs==0)\r
-       {\r
-               animate_cb(this,this);\r
-               if(NArgs==0)    return;\r
-       }\r
-       ArgCur = ArgCur>0 ? ArgCur-1 : NArgs-1;\r
-       Parse->AddParam(0,Args[ArgCur]);\r
-       update();\r
-}\r
-//-----------------------------------------------------------------------------\r
-Fl_MGL::Fl_MGL(int x, int y, int w, int h, char *label) : Fl_MGLView(x,y,w,h,label)\r
-{\r
-       if(!Parse)      Parse = new mglParse;\r
-       Parse->AllowSetSize(true);\r
-       ArgBuf = 0;     NArgs = ArgCur = 0;\r
-       script = script_pre = 0;        par = this;\r
-       next = udav_next;       delay = udav_delay;\r
-       prev = udav_prev;       reload = udav_reload;\r
-/*#ifdef WIN32\r
-//     setlocale(LC_TYPE,"russian_Russia.CP1251");\r
-       char *path;\r
-       get_doc_dir(path);\r
-       if(!FMGL->GetFont()->Load("STIX",path && path[0] ? path : ".")) FMGL->GetFont()->Restore();\r
-       free(path);\r
-#endif*/\r
-}\r
-//-----------------------------------------------------------------------------\r
-Fl_MGL::~Fl_MGL()      {       clear_scripts();        if(ArgBuf)      delete []ArgBuf;        }\r
-//-----------------------------------------------------------------------------\r
-void Fl_MGL::clear_scripts()\r
-{\r
-       if(script)              free(script);\r
-       if(script_pre)  free(script_pre);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void Fl_MGL::scripts(char *scr, char *pre)\r
-{      clear_scripts();        script=scr;     script_pre=pre; }\r
-//-----------------------------------------------------------------------------\r
-int Fl_MGL::Draw(mglGraph *gr)\r
-{\r
-       Parse->Execute(gr,script_pre);\r
-       Parse->Execute(gr,script);\r
-       status->label(gr->Message());\r
-       return 0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void Fl_MGL::update()\r
-{\r
-       // NOTE: hint for old style View(). May be I should remove it!\r
-       if(!script || !strstr(script,"rotate")) mgl_rotate(FMGL->get_graph(),0,0,0);\r
-\r
-       Fl_MGLView::update();\r
-\r
-       mglVar *v = Parse->Self()->DataList;\r
-       while(v)\r
-       {\r
-               if(v->o)        ((TableWindow *)v->o)->update(v);\r
-               v = v->next;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void add_suffix(char *fname, const char *ext)\r
-{\r
-       long n=strlen(fname);\r
-       if(n>4 && fname[n-4]=='.')\r
-       {       fname[n-3]=ext[0];      fname[n-2]=ext[1];      fname[n-1]=ext[2];      }\r
-       else    {       strcat(fname,".");      strcat(fname,ext);      }\r
-\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/option.cpp b/mgllab/option.cpp
deleted file mode 100644 (file)
index d107abd..0000000
--- a/mgllab/option.cpp
+++ /dev/null
@@ -1,439 +0,0 @@
-/* option.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include <string.h>\r
-#include <FL/Fl.H>\r
-#include <FL/Fl_Window.H>\r
-#include <FL/Fl_Box.H>\r
-#include <FL/Fl_Input.H>\r
-#include <FL/Fl_Check_Button.H>\r
-#include <FL/Fl_Round_Button.H>\r
-#include <FL/Fl_Button.H>\r
-#include <FL/Fl_Return_Button.H>\r
-#include <FL/Fl_Tabs.H>\r
-#include <FL/Fl_Group.H>\r
-#include <FL/Fl_Choice.H>\r
-#include <FL/Fl_Spinner.H>\r
-#include <FL/Fl_Output.H>\r
-#include <FL/Fl_Text_Buffer.H>\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-extern Fl_Menu_Item colors[];\r
-extern Fl_Text_Buffer  *textbuf;\r
-//-----------------------------------------------------------------------------\r
-struct OptionDlg\r
-{\r
-public:\r
-       Fl_Window* wnd;\r
-       int OK;\r
-       char result[256];\r
-       OptionDlg()     {       memset(this,0,sizeof(OptionDlg));       create_dlg();   };\r
-       ~OptionDlg()    {       delete wnd;     };\r
-       void FillResult();\r
-protected:\r
-       Fl_Input *xmin, *xmax, *ymin, *ymax, *zmin, *zmax, *cmin, *cmax;\r
-       Fl_Input *alpha, *amb, *mesh, *font;\r
-       Fl_Choice *cut;\r
-\r
-       void create_dlg();\r
-} option_dlg;\r
-//-----------------------------------------------------------------------------\r
-struct StyleDlg\r
-{\r
-public:\r
-friend void style_set_cb(Fl_Widget *, void *v);\r
-friend void style_rdo_cb(Fl_Widget *, void *v);\r
-friend void font_cb(Fl_Widget *, void *v);\r
-friend void line_cb(Fl_Widget *, void *v);\r
-friend void face_cb(Fl_Widget *, void *v);\r
-       Fl_Window* wnd;\r
-       int OK;\r
-       char result[16];\r
-       StyleDlg()      {       memset(this,0,sizeof(StyleDlg));        create_dlg();   };\r
-       ~StyleDlg()     {       delete wnd;     };\r
-protected:\r
-       Fl_Tabs *tab;\r
-       Fl_Group *ltab, *stab, *ftab;\r
-       Fl_Choice *cl, *cf, *c[7], *ae, *as;\r
-       Fl_Choice *dash, *mark, *dir, *text;\r
-       Fl_Spinner *lw;\r
-       Fl_Output *res;\r
-       Fl_Check_Button *d, *w, *sc, *rm, *it, *bf, *gt;\r
-       Fl_Round_Button *rl, *rc, *rr;\r
-\r
-       void create_dlg();\r
-} style_dlg;\r
-//-----------------------------------------------------------------------------\r
-void option_dlg_cb(Fl_Widget *, void *v)\r
-{      option_dlg.OK = true;   ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void style_dlg_cb(Fl_Widget *, void *v)\r
-{      style_dlg.OK = true;    ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void OptionDlg::create_dlg()\r
-{\r
-       Fl_Button *o;\r
-       wnd = new Fl_Window(490, 180, gettext("Command options"));\r
-       new Fl_Box(10, 15, 75, 25, gettext("X-Range"));\r
-       xmin = new Fl_Input(85, 15, 75, 25);\r
-       xmin->tooltip(gettext("Minimal value of X for cutting or for coordinate filling"));\r
-       xmax = new Fl_Input(165, 15, 75, 25);\r
-       xmax->tooltip(gettext("Maximal value of X for cutting or for coordinate filling"));\r
-       new Fl_Box(245, 15, 75, 25, gettext("Y-Range"));\r
-       ymin = new Fl_Input(320, 15, 75, 25);\r
-       ymin->tooltip(gettext("Minimal value of Y for cutting or for coordinate filling"));\r
-       ymax = new Fl_Input(400, 15, 75, 25);\r
-       ymax->tooltip(gettext("Maximal value of Y for cutting or for coordinate filling"));\r
-       new Fl_Box(10, 45, 75, 25, gettext("Z-Range"));\r
-       zmin = new Fl_Input(85, 45, 75, 25);\r
-       zmin->tooltip(gettext("Minimal value of Z for cutting or for coordinate filling"));\r
-       zmax = new Fl_Input(165, 45, 75, 25);\r
-       zmax->tooltip(gettext("Maximal value of Z for cutting or for coordinate filling"));\r
-       new Fl_Box(245, 45, 75, 25, gettext("C-Range"));\r
-       cmin = new Fl_Input(320, 45, 75, 25);\r
-       cmin->tooltip(gettext("Low border for determining color or alpha"));\r
-       cmax = new Fl_Input(400, 45, 75, 25);\r
-       cmax->tooltip(gettext("Upper border for determining color or alpha"));\r
-       {       Fl_Box *o = new Fl_Box(15, 75, 460, 5);                 o->box(FL_UP_BOX);      }\r
-       alpha = new Fl_Input(25, 105, 75, 25, "Alpha");         alpha->align(FL_ALIGN_TOP);\r
-       alpha->tooltip(gettext("Alpha value (transparency) of surface or cloud"));\r
-       amb = new Fl_Input(110, 105, 75, 25, gettext("Ambient"));       amb->align(FL_ALIGN_TOP);\r
-       amb->tooltip(gettext("Own brightness of the surface"));\r
-       mesh = new Fl_Input(195, 105, 75, 25, gettext("Mesh Num"));     mesh->align(FL_ALIGN_TOP);\r
-       mesh->tooltip(gettext("Approximate number of mesh lines in plot"));\r
-       font = new Fl_Input(280, 105, 75, 25, gettext("Font Size"));    font->align(FL_ALIGN_TOP);\r
-       font->tooltip(gettext("Act as default value for font size"));\r
-       cut = new Fl_Choice(365, 105, 75, 25, gettext("Cutting"));      cut->align(FL_ALIGN_TOP);\r
-       cut->add(gettext("on"));        cut->add(gettext("off"));\r
-       cut->tooltip(gettext("Set cutting off/on for particular plot"));\r
-\r
-       o = new Fl_Button(320, 145, 75, 25, gettext("Cancel"));         o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o = new Fl_Return_Button(405, 145, 75, 25, gettext("OK"));      o->callback(option_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void OptionDlg::FillResult()\r
-{\r
-       double x1=0,y1=0,z1=0,x2=0,y2=0,z2=0;\r
-       bool u1,v1,w1,u2,v2,w2;\r
-       char str[64];\r
-       result[0]=0;\r
-\r
-       u1 = xmin->value()[0];  if(u1)  x1 = atof(xmin->value());\r
-       u2 = xmax->value()[0];  if(u2)  x2 = atof(xmax->value());\r
-       v1 = ymin->value()[0];  if(v1)  y1 = atof(ymin->value());\r
-       v2 = ymin->value()[0];  if(v2)  y2 = atof(ymax->value());\r
-       w1 = zmin->value()[0];  if(w1)  z1 = atof(zmin->value());\r
-       w2 = zmin->value()[0];  if(w2)  z2 = atof(zmax->value());\r
-       if(u1 && u2)    {sprintf(str,"; xrange %g %g",x1,x2);   strcat(result,str);}\r
-       if(v1 && v2)    {sprintf(str,"; yrange %g %g",y1,y2);   strcat(result,str);}\r
-       if(w1 && w2)    {sprintf(str,"; zrange %g %g",z1,z2);   strcat(result,str);}\r
-\r
-       u1 = cmin->value()[0];  if(u1)  x1 = atof(cmin->value());\r
-       u2 = cmax->value()[0];  if(u2)  x2 = atof(cmax->value());\r
-       if(u1&&u2)      {sprintf(str,"; crange %g %g",x1,x2);   strcat(result,str);}\r
-\r
-       if(alpha->value()[0])\r
-       {       sprintf(str,"; alpha %g",atof(alpha->value())); strcat(result,str);}\r
-       if(amb->value()[0])\r
-       {       sprintf(str,"; ambient %g",atof(amb->value())); strcat(result,str);}\r
-       if(mesh->value()[0])\r
-       {       sprintf(str,"; meshnum %g",atof(mesh->value()));strcat(result,str);}\r
-       if(font->value()[0])\r
-       {       sprintf(str,"; fontsize '%g'",atof(font->value()));     strcat(result,str);}\r
-       if(cut->value()>=0)\r
-       {sprintf(str,"; cut %s",cut->value()==0?"on":"off");    strcat(result,str);}\r
-}\r
-//-----------------------------------------------------------------------------\r
-void option_cb(Fl_Widget *, void *v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       OptionDlg *s = &option_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // insert at the end of string\r
-       {\r
-               long i=e->editor->insert_position(), j=textbuf->line_end(i);\r
-               s->FillResult();\r
-               e->editor->insert_position(j);\r
-               e->editor->insert(s->result);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void option_in_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input* e = (Fl_Input*)v;\r
-       OptionDlg *s = &option_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)\r
-       {\r
-               s->FillResult();\r
-               e->value(s->result);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item arrows[] = {\r
-       {("none")},     //_\r
-       {("arrow")},    //A\r
-       {("back arrow")},       //V\r
-       {("stop")},     //I\r
-       {("size")},     //K\r
-       {("triangle")}, //T\r
-       {("square")},   //S\r
-       {("rhomb")},    //D\r
-       {("circle")},   //O\r
-       {0}};\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item dashing[] = {\r
-       {("solid")},    //-\r
-       {("dash")},     //|\r
-       {("dash dot")}, //j\r
-       {("small dash")},       //;\r
-       {("small dash dot")},   //i\r
-       {("dots")},     //:\r
-       {("none")},     //\r
-       {0}};\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item markers[] = {\r
-       {("none")},     //\r
-       {("circle")},   //o\r
-       {("cross")},    //+\r
-       {("skew cross")},       //x\r
-       {("square")},   //s\r
-       {("rhomb")},    //d\r
-       {("point")},    //.\r
-       {("triangle up")},      //^\r
-       {("triangle down")},    //v\r
-       {0}};\r
-//-----------------------------------------------------------------------------\r
-void style_set_cb(Fl_Widget *,void *)\r
-{\r
-       StyleDlg  *s = &style_dlg;\r
-       Fl_Widget *t = s->tab->value();\r
-       const char *cols = " wbgrcmylenuqphkWBGRCMYLENUQPH";\r
-       char *r = s->result;\r
-       long i=0,j;\r
-       if(t==s->ltab)  // line style\r
-       {\r
-               const char *aa = "_AVIKTSDO", *dd="-|j;i: ", *mm="#o+xsd.^v";\r
-               if(s->cl->value()>0)    r[i++]=cols[s->cl->value()];\r
-               if(s->dash->value()>0)  r[i++]=dd[s->dash->value()];\r
-               if(s->mark->value()>0)  r[i++]=mm[s->mark->value()];\r
-               if(s->lw->value()>1 || s->lw->value()==0)\r
-                       r[i++] = '0'+int(0.1+s->lw->value());\r
-               if(s->as->value()>0)\r
-               {       r[i++]=aa[s->ae->value()];      r[i++]=aa[s->as->value()];      }\r
-               else if(s->ae->value()>0)       r[i++]=aa[s->ae->value()];\r
-       }\r
-       else if(t==s->stab)     // surf style\r
-       {\r
-               for(j=0;j<7;j++)\r
-               {\r
-                       if(s->c[j]->value()>0)  r[i++]=cols[s->c[j]->value()];\r
-                       else break;\r
-               }\r
-               if(s->d->value())       r[i++] = 'd';\r
-               if(s->w->value())       r[i++] = '#';\r
-               if(s->dir->value()>=0)  r[i++] = 'x'+s->dir->value();\r
-               if(s->text->value()>0)  r[i++] = s->text->value()==1 ? 't':'T';\r
-       }\r
-       else if(t==s->ftab)     // text style\r
-       {\r
-               if(s->rm->value())      r[i++] = 'r';\r
-               if(s->sc->value())      r[i++] = 's';\r
-               if(s->it->value())      r[i++] = 'i';\r
-               if(s->bf->value())      r[i++] = 'b';\r
-               if(s->gt->value() && !s->rm->value())   r[i++] = 'g';\r
-               if(s->rl->value())      r[i++] = 'L';\r
-               else if(s->rc->value()) r[i++] = 'C';\r
-               else if(s->rr->value()) r[i++] = 'R';\r
-               if(s->cf->value()>0)\r
-               {       r[i++]=':';     r[i++]=cols[s->cf->value()];    }\r
-       }\r
-       r[i]=0;\r
-       s->res->value(r);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void style_rdo_cb(Fl_Widget *,void *v)\r
-{\r
-       StyleDlg  *s = &style_dlg;\r
-       s->rl->value(0);        s->rc->value(0);        s->rr->value(0);\r
-       ((Fl_Round_Button *)v)->value(1);\r
-       style_set_cb(0,0);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void StyleDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Window(295, 337, gettext("String with line/surf/text style"));\r
-       tab = new Fl_Tabs(0, 0, 295, 255);      tab->callback(style_set_cb);\r
-       tab->box(UDAV_UP_BOX);\r
-\r
-       ltab = new Fl_Group(0, 25, 295, 230, gettext("Line style"));\r
-       as = new Fl_Choice(10, 50, 80, 25, gettext("Arrow at start"));\r
-       as->align(FL_ALIGN_TOP);        as->copy(arrows);       as->callback(style_set_cb);\r
-//     as->tooltip(gettext("Type of arrow at first point of line or curve"));\r
-       dash = new Fl_Choice(110, 50, 80, 25, gettext("Dashing"));\r
-       dash->align(FL_ALIGN_TOP);      dash->copy(dashing);dash->callback(style_set_cb);\r
-//     dash->tooltip(gettext("Type dashing for line or curve"));\r
-       ae = new Fl_Choice(210, 50, 80, 25, gettext("Arrow at end"));\r
-       ae->align(FL_ALIGN_TOP);        ae->copy(arrows);       ae->callback(style_set_cb);\r
-//     ae->tooltip(gettext("Type of arrow at last point of line or curve"));\r
-       cl = new Fl_Choice(110, 85, 80, 25, gettext("Color"));  cl->copy(colors);\r
-       cl->callback(style_set_cb);\r
-       mark = new Fl_Choice(110, 120, 80, 25, gettext("Marks"));\r
-       mark->copy(markers);    mark->callback(style_set_cb);\r
-//     mark->tooltip(gettext("Type of marks at positions of data points"));\r
-       lw = new Fl_Spinner(110, 155, 80, 25, gettext("Line width"));\r
-       lw->range(0,9); lw->step(1);    lw->callback(style_set_cb);\r
-//     lw->tooltip(gettext("Relative width of line or curve"));\r
-       ltab->end();\r
-\r
-       stab = new Fl_Group(0, 25, 295, 230, gettext("Color scheme"));  stab->hide();\r
-       c[0] = new Fl_Choice(15, 45, 75, 25, gettext("Color order"));\r
-       c[0]->align(FL_ALIGN_TOP);      c[0]->copy(colors);     c[0]->callback(style_set_cb);\r
-       c[1] = new Fl_Choice(15, 75, 75, 25);   c[1]->copy(colors);     c[1]->callback(style_set_cb);\r
-       c[2] = new Fl_Choice(15, 105, 75, 25);  c[2]->copy(colors);     c[2]->callback(style_set_cb);\r
-       c[3] = new Fl_Choice(15, 135, 75, 25);  c[3]->copy(colors);     c[3]->callback(style_set_cb);\r
-       c[4] = new Fl_Choice(15, 165, 75, 25);  c[4]->copy(colors);     c[4]->callback(style_set_cb);\r
-       c[5] = new Fl_Choice(15, 195, 75, 25);  c[5]->copy(colors);     c[5]->callback(style_set_cb);\r
-       c[6] = new Fl_Choice(15, 225, 75, 25);  c[6]->copy(colors);     c[6]->callback(style_set_cb);\r
-       d = new Fl_Check_Button(100, 45, 180, 25, gettext("Colors along coordinates"));\r
-//     w->tooltip(gettext("Set face color proportional to its position"));\r
-       d->callback(style_set_cb);\r
-       w = new Fl_Check_Button(100, 75, 180, 25, gettext("Wire or mesh plot"));\r
-       w->callback(style_set_cb);\r
-//     w->tooltip(gettext("Switch to draw wire isosurface or set to draw mesh on surface"));\r
-       dir = new Fl_Choice(210, 105, 75, 25, gettext("Axial direction"));\r
-       dir->add("x");  dir->add("y");  dir->add("z");  dir->callback(style_set_cb);\r
-       text = new Fl_Choice(210, 135, 75, 25, gettext("Text on contours"));\r
-//     text->tooltip("Draw contour values near contour lines"));\r
-       text->add(gettext("none"));     text->add(gettext("under"));\r
-       text->add(gettext("above"));    text->callback(style_set_cb);\r
-       stab->end();\r
-\r
-       ftab = new Fl_Group(0, 25, 295, 230, gettext("Text style"));            ftab->hide();\r
-       sc = new Fl_Check_Button(15, 40, 120, 25, gettext("Script font/style"));        sc->callback(style_set_cb);\r
-       rm = new Fl_Check_Button(15, 70, 120, 25, gettext("Roman font"));       rm->callback(style_set_cb);\r
-       gt = new Fl_Check_Button(15, 100, 120, 25, gettext("Gothic font"));     gt->callback(style_set_cb);\r
-       it = new Fl_Check_Button(15, 130, 120, 25, gettext("Italic style"));    it->callback(style_set_cb);\r
-       bf = new Fl_Check_Button(15, 160, 120, 25, gettext("Bold style"));      bf->callback(style_set_cb);\r
-       cf = new Fl_Choice(200, 40, 80, 25, gettext("Text color"));     cf->copy(colors);cf->callback(style_set_cb);\r
-       { Fl_Box* o = new Fl_Box(160, 90, 120, 90, gettext("Alignment"));\r
-               o->box(FL_DOWN_BOX);    o->align(FL_ALIGN_TOP);}\r
-       rl = new Fl_Round_Button(170, 100, 100, 25, gettext("left"));           rl->callback(style_rdo_cb,rl);\r
-       rc = new Fl_Round_Button(170, 125, 100, 25, gettext("at center"));      rc->callback(style_rdo_cb,rc);\r
-       rr = new Fl_Round_Button(170, 150, 100, 25, gettext("right"));          rr->callback(style_rdo_cb,rr);\r
-       ftab->end();\r
-\r
-       tab->end();\r
-       res = new Fl_Output(50, 265, 235, 25, gettext("Result"));\r
-//     res->tooltip(gettext("Resulting string which will be used as argument of a command"));\r
-       Fl_Button *o;\r
-       o = new Fl_Button(125, 300, 75, 25, gettext("Cancel"));         o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o = new Fl_Return_Button(210, 300, 75, 25, gettext("OK"));      o->callback(style_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void style_cb(Fl_Widget *, void *v)\r
-{\r
-       ScriptWindow* e = (ScriptWindow*)v;\r
-       StyleDlg *s = &style_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-       {\r
-               int p,q;\r
-               char str[20];\r
-               sprintf(str,"'%s'",s->result);\r
-               textbuf->selection_position(&p, &q);\r
-               if(p==q)        e->editor->insert(str);\r
-               else            textbuf->replace_selection(str);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void style_in_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input* e = (Fl_Input*)v;\r
-       StyleDlg *s = &style_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       e->value(s->result);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void font_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input* e = (Fl_Input *)v;\r
-       StyleDlg *s = &style_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->tab->value(s->ftab);\r
-       s->ltab->deactivate();\r
-       s->stab->deactivate();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-               e->value(s->result);\r
-       s->ltab->activate();\r
-       s->stab->activate();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void line_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input* e = (Fl_Input *)v;\r
-       StyleDlg *s = &style_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->tab->value(s->ltab);\r
-       s->ftab->deactivate();\r
-       s->stab->deactivate();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-               e->value(s->result);\r
-       s->ftab->activate();\r
-       s->stab->activate();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void face_cb(Fl_Widget *, void *v)\r
-{\r
-       Fl_Input* e = (Fl_Input *)v;\r
-       StyleDlg *s = &style_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->tab->value(s->stab);\r
-       s->ltab->deactivate();\r
-       s->ftab->deactivate();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       // replace current selection\r
-               e->value(s->result);\r
-       s->ltab->activate();\r
-       s->ftab->activate();\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/setup.cpp b/mgllab/setup.cpp
deleted file mode 100644 (file)
index f6304e4..0000000
--- a/mgllab/setup.cpp
+++ /dev/null
@@ -1,424 +0,0 @@
-/* setup.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include "mgl2/mgl.h"\r
-#include <string.h>\r
-#include <FL/Fl_Tabs.H>\r
-#include <FL/Fl_Round_Button.H>\r
-#include <FL/Fl_Multiline_Input.H>\r
-#include <FL/Fl_Spinner.H>\r
-#include <locale.h>\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-extern int auto_exec, plastic_scheme, internal_font;\r
-extern Fl_Preferences pref;\r
-void get_doc_dir(char *&docdir);\r
-//-----------------------------------------------------------------------------\r
-void setup_dlg_cb(Fl_Widget *, void *v)\r
-{      SetupDlg *s = (SetupDlg *)v;    s->OK = true;   s->wnd->hide(); }\r
-//-----------------------------------------------------------------------------\r
-void setup_sav_cb(Fl_Widget *, void *v)\r
-{\r
-       SetupDlg *e = (SetupDlg *)v;\r
-       char *buf = e->ToScript();\r
-       const char *fname;\r
-       if(buf[0])\r
-       {\r
-               fname = e->templ->value();\r
-               if(fname[0]==0) fname = "template.mgl";\r
-               FILE *fp = fopen(fname,"w");\r
-               fputs(buf,fp);\r
-               fclose(fp);\r
-       }\r
-       free(buf);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void close_dlg_cb(Fl_Widget *, void *v)\r
-{      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void SetupDlg::CreateGen()\r
-{\r
-       xmin = new Fl_Input(105, 50, 75, 25);   xmax = new Fl_Input(105, 80, 75, 25);\r
-       ymin = new Fl_Input(190, 50, 75, 25);   ymax = new Fl_Input(190, 80, 75, 25);\r
-       zmin = new Fl_Input(275, 50, 75, 25);   zmax = new Fl_Input(275, 80, 75, 25);\r
-       cmin = new Fl_Input(360, 50, 75, 25);   cmax = new Fl_Input(360, 80, 75, 25);\r
-\r
-       xorg = new Fl_Input(105, 110, 75, 25);\r
-       yorg = new Fl_Input(190, 110, 75, 25);\r
-       zorg = new Fl_Input(275, 110, 75, 25);\r
-       xlab = new Fl_Input(105, 140, 75, 25);\r
-       ylab = new Fl_Input(190, 140, 75, 25);\r
-       zlab = new Fl_Input(275, 140, 75, 25);\r
-\r
-       xpos = new Fl_Choice(105, 170, 75, 25); xpos->add(gettext("at minumum"));\r
-               xpos->add("at center"); xpos->add(gettext("at maxumum"));       xpos->value(1);\r
-       ypos = new Fl_Choice(190, 170, 75, 25); ypos->add(gettext("at minumum"));\r
-               ypos->add("at center"); ypos->add(gettext("at maxumum"));       ypos->value(1);\r
-       zpos = new Fl_Choice(275, 170, 75, 25); zpos->add(gettext("at minumum"));\r
-               zpos->add("at center"); zpos->add(gettext("at maxumum"));       zpos->value(1);\r
-       xtik = new Fl_Input(105, 200, 75, 25);\r
-       ytik = new Fl_Input(190, 200, 75, 25);\r
-       ztik = new Fl_Input(275, 200, 75, 25);\r
-       xsub = new Fl_Input(105, 230, 75, 25);\r
-       ysub = new Fl_Input(190, 230, 75, 25);\r
-       zsub = new Fl_Input(275, 230, 75, 25);\r
-\r
-       { Fl_Box* o = new Fl_Box(10, 260, 470, 5);      o->box(FL_DOWN_BOX);    }\r
-       alphad = new Fl_Input(20, 285, 75, 25, gettext("AlphaDef"));    alphad->align(FL_ALIGN_TOP);\r
-       ambient = new Fl_Input(105, 285, 75, 25, gettext("Ambient"));   ambient->align(FL_ALIGN_TOP);\r
-       basew = new Fl_Input(190, 285, 75, 25, gettext("Base Width"));  basew->align(FL_ALIGN_TOP);\r
-       mesh = new Fl_Input(275, 285, 75, 25, gettext("Mesh Num"));             mesh->align(FL_ALIGN_TOP);\r
-       axial = new Fl_Choice(360, 285, 75, 25, gettext("Axial Dir"));  axial->align(FL_ALIGN_TOP);\r
-       axial->add("x");        axial->add("y");        axial->add("z");\r
-       font = new Fl_Input(20, 330, 50, 25, gettext("Font"));                  font->align(FL_ALIGN_TOP);\r
-       { Fl_Button* o = new Fl_Button(70, 330, 25, 25, "..");  o->callback(font_cb, font);\r
-               o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);     }\r
-       size = new Fl_Input(105, 330, 75, 25, gettext("Font Size"));    size->align(FL_ALIGN_TOP);\r
-       alpha = new Fl_Check_Button(190, 330, 75, 25, gettext("Alpha on"));\r
-       light = new Fl_Check_Button(275, 330, 75, 25, gettext("Light on"));\r
-       rotate = new Fl_Check_Button(360, 330, 90, 25, gettext("Rotate text"));\r
-}\r
-//-----------------------------------------------------------------------------\r
-void SetupDlg::CreateLid()\r
-{\r
-       const char *str[10]={"0:", "1:", "2:", "3:", "4:", "5:", "6:", "7:", "8:", "9:"};\r
-       int h;\r
-       for(long i=0;i<10;i++)\r
-       {\r
-               h = 55 + 30*i;\r
-               new Fl_Box(10, h, 25, 25, str[i]);\r
-               lid[i] = new Fl_Check_Button(35, h, 40, 25, gettext("on"));\r
-               xid[i] = new Fl_Input(85, h, 75, 25);\r
-               yid[i] = new Fl_Input(165, h, 75, 25);\r
-               zid[i] = new Fl_Input(245, h, 75, 25);\r
-               cid[i] = new Fl_Choice(325, h, 75, 25);\r
-               cid[i]->copy(colors);\r
-               bid[i] = new Fl_Input(405, h, 75, 25);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void SetupDlg::CreateDlg()\r
-{\r
-       OK = false;\r
-       wnd = new Fl_Window(490, 406, gettext("Setup graphics"));\r
-       Fl_Tabs* t = new Fl_Tabs(0, 0, 490, 360);       t->box(UDAV_UP_BOX);\r
-\r
-       Fl_Group *g = new Fl_Group(0, 25, 485, 330, gettext("General"));\r
-       new Fl_Box(105, 30, 75, 20, gettext("X axis"));\r
-       new Fl_Box(190, 30, 75, 20, gettext("Y axis"));\r
-       new Fl_Box(275, 30, 75, 20, gettext("Z axis"));\r
-       new Fl_Box(360, 30, 75, 20, gettext("Color"));\r
-\r
-       new Fl_Box(25, 50, 75, 25, gettext("Minimal"));\r
-       new Fl_Box(25, 80, 75, 25, gettext("Maximal"));\r
-       new Fl_Box(25, 110, 75, 25, gettext("Origin"));\r
-       new Fl_Box(25, 140, 75, 25, gettext("Label"));\r
-       new Fl_Box(25, 170, 75, 25, gettext("Position"));\r
-       new Fl_Box(25, 200, 75, 25, gettext("Ticks"));\r
-       new Fl_Box(25, 230, 75, 25, gettext("SubTicks"));\r
-       CreateGen();\r
-       g->end();\r
-\r
-       g = new Fl_Group(0, 25, 485, 330, gettext("Light"));    g->hide();\r
-       new Fl_Box(10, 30, 25, 25, gettext("ID"));\r
-       new Fl_Box(40, 30, 40, 25, gettext("State"));\r
-       new Fl_Box(85, 30, 75, 25, gettext("X position"));\r
-       new Fl_Box(165, 30, 75, 25, gettext("Y position"));\r
-       new Fl_Box(245, 30, 75, 25, gettext("Z position"));\r
-       new Fl_Box(325, 30, 75, 25, gettext("Color"));\r
-       new Fl_Box(405, 30, 75, 25, gettext("Brightness"));\r
-       CreateLid();\r
-       g->end();\r
-\r
-       g = new Fl_Group(0, 25, 485, 330, gettext("Setup code"));       g->hide();\r
-       code = new Fl_Help_View(0, 25, 485, 330);\r
-       g->end();\r
-\r
-       t->end();       //Fl_Group::current()->resizable(t);\r
-       Fl_Button *o;\r
-       templ = new Fl_Input(120, 370, 110, 25, gettext("Template name"));\r
-       templ->value("template.mgl");\r
-       o = new Fl_Button(230, 370, 80, 25, gettext("Save"));   o->callback(setup_sav_cb, wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Save settings to file template.mgl.\nYou may use it later by 'call template.mgl'"));\r
-\r
-       o = new Fl_Button(315, 370, 80, 25, gettext("Cancel")); o->callback(close_dlg_cb, wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o = new Fl_Return_Button(400, 370, 80, 25, gettext("OK"));      o->callback(setup_dlg_cb, this);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-char *SetupDlg::ToScript()\r
-{\r
-       long i;\r
-       double x1=0,y1=0,z1=0,x2=0,y2=0,z2=0;\r
-       bool u1,v1,w1,u2,v2,w2;\r
-       const char *cols = " wbgrcmylenuqphkWBGRCMYLENUQPH";\r
-       char *buf = (char *)malloc(1024*sizeof(char)), str[128];\r
-       long num = 1024, cur = 0;\r
-       buf[0]=0;\r
-       if(!OK) return buf;\r
-\r
-       for(i=0;i<10;i++)       // set light sources\r
-       {\r
-//fl_message("before %d lid:%d xid:%s yid:%s zid:%s",i,lid[i]->value(), xid[i]->value(),yid[i]->value(),zid[i]->value());\r
-               if(!lid[i]->value())    continue;\r
-               if(!xid[i]->value()[0] || !yid[i]->value()[0] || !zid[i]->value()[0])   continue;\r
-               x1=atof(xid[i]->value());       y1=atof(yid[i]->value());       z1=atof(zid[i]->value());\r
-               if(!bid[i]->value()[0])\r
-                       cur += sprintf(str,"light %ld %g %g %g '%c'\n",i,x1,y1,z1,\r
-                                               cols[cid[i]->value()]);\r
-               else\r
-                       cur += sprintf(str,"light %ld %g %g %g '%c' %g\n",i,x1,y1,z1,\r
-                                               cols[cid[i]->value()],atof(bid[i]->value()));\r
-               strcat(buf,str);\r
-       }\r
-       u1 = xmin->value()[0];  if(u1)  x1 = atof(xmin->value());\r
-       u2 = xmax->value()[0];  if(u2)  x2 = atof(xmax->value());\r
-       v1 = ymin->value()[0];  if(v1)  y1 = atof(ymin->value());\r
-       v2 = ymin->value()[0];  if(v2)  y2 = atof(ymax->value());\r
-       w1 = zmin->value()[0];  if(w1)  z1 = atof(zmin->value());\r
-       w2 = zmin->value()[0];  if(w2)  z2 = atof(zmax->value());\r
-       if(u1&&v1&&w1&&u2&&v2&&w2)\r
-       {\r
-               cur+=sprintf(str,"axis %g %g %g %g %g %g\n",x1,y1,z1,x2,y2,z2);\r
-               strcat(buf,str);\r
-       }\r
-       else\r
-       {\r
-               if(u1 && u2)    {cur+=sprintf(str,"xrange %g %g\n",x1,x2);      strcat(buf,str);}\r
-               if(v1 && v2)    {cur+=sprintf(str,"yrange %g %g\n",y1,y2);      strcat(buf,str);}\r
-               if(w1 && w2)    {cur+=sprintf(str,"zrange %g %g\n",z1,z2);      strcat(buf,str);}\r
-       }\r
-       u1 = cmin->value()[0];  if(u1)  x1 = atof(cmin->value());\r
-       u2 = cmax->value()[0];  if(u2)  x2 = atof(cmax->value());\r
-       if(u1&&u2)      {cur+=sprintf(str,"crange %g %g\n",x1,x2);      strcat(buf,str);}\r
-       if(cur>num-256) {       num+=512;       buf = (char *)realloc(buf,num*sizeof(char));    }\r
-\r
-       u1 = xorg->value()[0];  if(u1)  x1 = atof(xorg->value());\r
-       v1 = yorg->value()[0];  if(v1)  y1 = atof(yorg->value());\r
-       w1 = zorg->value()[0];  if(w1)  z1 = atof(zorg->value());\r
-       if(u1&&v1&&w1)  {sprintf(str,"origin %g %g %g\n",x1,y1,z1);     strcat(buf,str);}\r
-\r
-       u1 = xtik->value()[0];  if(u1)  x1 = atof(xtik->value());\r
-       u2 = xsub->value()[0];  if(u2)  x2 = atoi(xsub->value());\r
-       v1 = ytik->value()[0];  if(v1)  y1 = atof(ytik->value());\r
-       v2 = ysub->value()[0];  if(v2)  y2 = atoi(ysub->value());\r
-       w1 = ztik->value()[0];  if(w1)  z1 = atof(ztik->value());\r
-       w2 = zsub->value()[0];  if(w2)  z2 = atoi(zsub->value());\r
-       if(u1 && u2)    {cur+=sprintf(str,"xtick %g %g\n",x1,x2);       strcat(buf,str);}\r
-       if(v1 && v2)    {cur+=sprintf(str,"ytick %g %g\n",y1,y2);       strcat(buf,str);}\r
-       if(w1 && w2)    {cur+=sprintf(str,"ztick %g %g\n",z1,z2);       strcat(buf,str);}\r
-       if(u1 && !u2)   {cur+=sprintf(str,"xtick %g\n",x1);     strcat(buf,str);}\r
-       if(v1 && !v2)   {cur+=sprintf(str,"ytick %g\n",y1);     strcat(buf,str);}\r
-       if(w1 && !w2)   {cur+=sprintf(str,"ztick %g\n",z1);     strcat(buf,str);}\r
-\r
-       if(xlab->value()[0])\r
-       {\r
-               cur+=sprintf(str,"xlabel '%s' %d\n",xlab->value(), xpos->value()-1);\r
-               strcat(buf,str);\r
-       }\r
-       if(ylab->value()[0])\r
-       {\r
-               cur+=sprintf(str,"ylabel '%s' %d\n",ylab->value(), ypos->value()-1);\r
-               strcat(buf,str);\r
-       }\r
-       if(zlab->value()[0])\r
-       {\r
-               cur+=sprintf(str,"zlabel '%s' %d\n",zlab->value(), zpos->value()-1);\r
-               strcat(buf,str);\r
-       }\r
-       if(alphad->value()[0])\r
-       {\r
-               cur+=sprintf(str,"alphadef %g\n",atof(alphad->value()));\r
-               strcat(buf,str);\r
-       }\r
-       if(ambient->value()[0])\r
-       {\r
-               cur+=sprintf(str,"ambient %g\n",atof(ambient->value()));\r
-               strcat(buf,str);\r
-       }\r
-\r
-       if(basew->value()[0])\r
-       {\r
-               cur+=sprintf(str,"baselinewidth %g\n",atof(basew->value()));\r
-               strcat(buf,str);\r
-       }\r
-       if(mesh->value()[0])\r
-       {\r
-               cur+=sprintf(str,"meshnum %g\n",atof(mesh->value()));\r
-               strcat(buf,str);\r
-       }\r
-       if(axial->value()>=0)\r
-       {\r
-               cur+=sprintf(str,"axialdir '%c'\n",'x'+axial->value());\r
-               strcat(buf,str);\r
-       }\r
-\r
-       if(font->value()[0])\r
-       {\r
-               cur+=sprintf(str,"font '%s'",font->value());\r
-               strcat(buf,str);\r
-               if(size->value())       cur+=sprintf(str," %g\n",atof(size->value()));\r
-               else    cur+=sprintf(str,"\n");\r
-               strcat(buf,str);\r
-       }\r
-       if(rotate->value())     {cur+=sprintf(str,"rotatetext on\n");   strcat(buf,str);}\r
-\r
-       if(alpha->value())      {cur+=sprintf(str,"alpha on\n");        strcat(buf,str);}\r
-       if(light->value())      {cur+=sprintf(str,"light on\n");        strcat(buf,str);}\r
-\r
-       code->value(buf);\r
-       return buf;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void setup_cb(Fl_Widget *, void *d)\r
-{\r
-       if(d==0)        return;\r
-       SetupDlg *s = ((ScriptWindow *)d)->setup_dlg;\r
-       s->OK = false;\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-       while(s->wnd->shown())  Fl::wait();\r
-       if(s->OK)       ((ScriptWindow *)d)->graph->update();\r
-}\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item colors[] = {\r
-       {"-----", 0,0,0,0,0,0,0, 0},    //\r
-       {("white"), 0,0,0,0,0,0,0, fl_rgb_color(0,0,0)},        //w\r
-       {("blue"), 0,0,0,0,0,0,0, fl_rgb_color(0,0,255)},                       //b\r
-       {("lime"), 0,0,0,0,0,0,0, fl_rgb_color(0,255,0)},                       //g\r
-       {("red"), 0,0,0,0,0,0,0, fl_rgb_color(255,0,0)},                        //r\r
-       {("cyan"), 0,0,0,0,0,0,0, fl_rgb_color(0,255,255)},             //c\r
-       {("magenta"), 0,0,0,0,0,0,0, fl_rgb_color(255,0,255)},  //m\r
-       {("yellow"), 0,0,0,0,0,0,0, fl_rgb_color(255,255,0)},           //y\r
-       {("springgreen"), 0,0,0,0,0,0,0, fl_rgb_color(0,255,127)},//l\r
-       {("lawngreen"), 0,0,0,0,0,0,0, fl_rgb_color(127,255,0)},        //e\r
-       {("skyblue"), 0,0,0,0,0,0,0, fl_rgb_color(0,127,255)},  //n\r
-       {("blueviolet"), 0,0,0,0,0,0,0, fl_rgb_color(127,0,255)},       //u\r
-       {("orange"), 0,0,0,0,0,0,0, fl_rgb_color(255,127,0)},           //q\r
-       {("deeppink"), 0,0,0,0,0,0,0, fl_rgb_color(255,0,127)}, //p\r
-       {("gray"), 0,0,0,0,0,0,0, fl_rgb_color(127,127,127)},           //h\r
-\r
-       {("black"), 0,0,0,0,0,0,0, fl_rgb_color(0,0,0)},        //k\r
-       {("lightgray"), 0,0,0,0,0,0,0, fl_rgb_color(179,179,179)},      //W\r
-       {("navy"), 0,0,0,0,0,0,0, fl_rgb_color(0,0,127)},       //B\r
-       {("green"), 0,0,0,0,0,0,0, fl_rgb_color(0,127,0)},      //G\r
-       {("maroon"), 0,0,0,0,0,0,0, fl_rgb_color(127,0,0)},     //R\r
-       {("teal"), 0,0,0,0,0,0,0, fl_rgb_color(0,127,127)},     //C\r
-       {("purple"), 0,0,0,0,0,0,0, fl_rgb_color(127,0,127)},   //M\r
-       {("olive"), 0,0,0,0,0,0,0, fl_rgb_color(127,127,0)},    //Y\r
-       {("seagreen"), 0,0,0,0,0,0,0, fl_rgb_color(0,127,77)},  //L\r
-       {("darklawn"), 0,0,0,0,0,0,0, fl_rgb_color(77,127,0)},  //E\r
-       {("darkskyblue"), 0,0,0,0,0,0,0, fl_rgb_color(0,77,127)},       //N\r
-       {("indigo"), 0,0,0,0,0,0,0, fl_rgb_color(77,0,127)},    //U\r
-       {("brown"), 0,0,0,0,0,0,0, fl_rgb_color(127,77,0)},     //Q\r
-       {("darkpink"), 0,0,0,0,0,0,0, fl_rgb_color(127,0,77)},  //P\r
-       {("darkgray"), 0,0,0,0,0,0,0, fl_rgb_color(77,77,77)},  //H\r
-{0, 0,0,0,0,0,0,0, 0}};\r
-//-----------------------------------------------------------------------------\r
-struct PropDlg\r
-{\r
-       Fl_Window *wnd;\r
-       Fl_MGL *graph;\r
-\r
-       Fl_Input *path, *locale, *font, *fpath;\r
-       Fl_Check_Button *plast, *aexec, *ifont;\r
-       PropDlg()       {       memset(this,0,sizeof(PropDlg)); create_dlg();   };\r
-       ~PropDlg()      {       delete wnd;     };\r
-       void create_dlg();\r
-       void finish();\r
-       void init();\r
-} prop_dlg;\r
-//-----------------------------------------------------------------------------\r
-void PropDlg::init()\r
-{\r
-       int a, p;\r
-       char *buf;\r
-       pref.get("plastic_scheme",p,1); plast->value(p);\r
-       pref.get("auto_exec",a,1);              aexec->value(a);\r
-       pref.get("internal_font",a,0);  ifont->value(a);\r
-       get_doc_dir(buf);                               path->value(buf);       free(buf);\r
-       pref.get("font_dir",buf,"");    fpath->value(buf);      free(buf);\r
-       pref.get("font_name",buf,"");   font->value(buf);       free(buf);\r
-       pref.get("locale",buf,"ru_RU.cp1251");  locale->value(buf);     free(buf);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void PropDlg::finish()\r
-{\r
-       int a, p;\r
-       p = plast->value();\r
-       if(p!=plastic_scheme)\r
-       {\r
-               plastic_scheme = p;\r
-               pref.set("plastic_scheme",p);\r
-               Fl::scheme(p?"plastic":"none");\r
-       }\r
-       a = aexec->value();\r
-       if(a!=auto_exec)\r
-       {\r
-               auto_exec = a;\r
-               pref.set("auto_exec",a);\r
-       }\r
-       a = ifont->value();\r
-       if(a!=internal_font)\r
-       {\r
-               internal_font = a;\r
-               pref.set("internal_font",a);\r
-       }\r
-       if(path->value()[0])    pref.set("help_dir",path->value());\r
-       if(locale->value()[0])\r
-       {\r
-               pref.set("locale", locale->value());\r
-               setlocale(LC_CTYPE, locale->value());\r
-       }\r
-       pref.set("font_dir",fpath->value());\r
-       pref.set("font_name",font->value());\r
-       if(graph)       mgl_load_font(graph->FMGL->get_graph(), font->value(), fpath->value());\r
-}\r
-//-----------------------------------------------------------------------------\r
-void prop_dlg_cb(Fl_Widget *, void *v)\r
-{      prop_dlg.finish();      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void PropDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Double_Window(320, 300, gettext("UDAV settings"));\r
-       path = new Fl_Input(10, 25, 305, 25, gettext("Path for help files"));   path->align(FL_ALIGN_TOP_LEFT);\r
-\r
-       font = new Fl_Input(10, 75, 305, 25, gettext("Font typeface")); font->align(FL_ALIGN_TOP_LEFT);\r
-       fpath = new Fl_Input(10, 125, 305, 25, gettext("Path for font files")); fpath->align(FL_ALIGN_TOP_LEFT);\r
-       locale = new Fl_Input(10, 175, 305, 25, gettext("Select locale"));      locale->align(FL_ALIGN_TOP_LEFT);\r
-\r
-       plast = new Fl_Check_Button(10, 210, 210, 25, gettext("Use plastic scheme"));\r
-       aexec = new Fl_Check_Button(10, 240, 210, 25, gettext("Execute after script loading"));\r
-       ifont = new Fl_Check_Button(10, 270, 210, 25, gettext("Use only internal font"));\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(240, 210, 75, 25, gettext("Cancel"));         o->callback(close_dlg_cb,wnd);\r
-       o = new Fl_Return_Button(240, 240, 75, 25, gettext("OK"));      o->callback(prop_dlg_cb,wnd);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void settings_cb(Fl_Widget *, void *v)\r
-{\r
-       PropDlg *s = &prop_dlg;\r
-       s->graph = ((ScriptWindow *)v)->graph;\r
-       s->init();\r
-       s->wnd->set_modal();\r
-       s->wnd->show();\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/table.cpp b/mgllab/table.cpp
deleted file mode 100644 (file)
index 36b90ee..0000000
--- a/mgllab/table.cpp
+++ /dev/null
@@ -1,875 +0,0 @@
-/* table.cpp is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-#include <FL/Fl_Spinner.H>\r
-#include <FL/Fl_Output.H>\r
-#include <FL/Fl_Float_Input.H>\r
-#include <FL/Fl_Value_Input.H>\r
-#include <FL/Fl_Round_Button.H>\r
-#include "udav.h"\r
-//-----------------------------------------------------------------------------\r
-void addto_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *s = fl_input(gettext("Enter number for addition to data values"),0);\r
-       if(s)   {       mgl_data_add_num(e->var, atof(s));      e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void subto_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *s = fl_input(gettext("Enter number for subtraction from data values"),0);\r
-       if(s)   {       mgl_data_sub_num(e->var, atof(s));      e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void multo_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *s = fl_input(gettext("Enter number for multiplication of data values"),0);\r
-       if(s)   {       mgl_data_mul_num(e->var, atof(s));      e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void divto_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *s = fl_input(gettext("Enter number for division of data values"),0);\r
-       if(s)   {       mgl_data_div_num(e->var, atof(s));      e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-struct XYZDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Box *box;\r
-       Fl_Check_Button *ch;\r
-       Fl_Spinner *mx, *my, *mz;\r
-       XYZDlg()        {       memset(this,0,sizeof(XYZDlg));  create_dlg();   };\r
-       ~XYZDlg()       {       delete wnd;     };\r
-       void create_dlg();\r
-} xyz_dlg;\r
-//-----------------------------------------------------------------------------\r
-void xyz_dlg_cb(Fl_Widget *, void *v)\r
-{      xyz_dlg.OK = true;      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void XYZDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Double_Window(325, 125, gettext("Change data sizes"));\r
-       box = new Fl_Box(10, 10, 305, 40);\r
-       box->box(UDAV_THIN_UP_BOX);\r
-       box->align(FL_ALIGN_LEFT|FL_ALIGN_INSIDE);\r
-\r
-       mx = new Fl_Spinner(30, 55, 75, 25, "mx");\r
-       mx->tooltip(gettext("New size of data on 1st dimension (x-direction)"));\r
-       my = new Fl_Spinner(135, 55, 75, 25, "my");\r
-       my->tooltip(gettext("New size of data on 2nd dimension (y-direction)"));\r
-       mz = new Fl_Spinner(240, 55, 75, 25, "mz");\r
-       mz->tooltip(gettext("New size of data on 3d dimension (z-direction)"));\r
-       ch = new Fl_Check_Button(15, 90, 95, 25);\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(125, 90, 85, 25, gettext("Cancel"));  o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Do nothing and close this window"));\r
-       o = new Fl_Return_Button(230, 90, 85, 25, gettext("Change"));o->callback(xyz_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Change (resize) data"));\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void new_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       xyz_dlg.box->label(gettext("Specify new data size\nData will be zero filled"));\r
-       xyz_dlg.ch->label(gettext("not used")); xyz_dlg.OK = false;\r
-       xyz_dlg.wnd->set_modal();               xyz_dlg.wnd->show();\r
-       while(xyz_dlg.wnd->shown())     Fl::wait();\r
-       if(xyz_dlg.OK)\r
-       {\r
-               e->var->Create(int(xyz_dlg.mx->value()),\r
-                       int(xyz_dlg.my->value()), int(xyz_dlg.mz->value()));\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void resize_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       xyz_dlg.box->label(gettext("Specify new data size\nData will be interpolated"));\r
-       xyz_dlg.ch->label(gettext("not used")); xyz_dlg.OK = false;\r
-       xyz_dlg.wnd->set_modal();               xyz_dlg.wnd->show();\r
-       while(xyz_dlg.wnd->shown())     Fl::wait();\r
-       if(xyz_dlg.OK)\r
-       {\r
-               mglData d = e->var->Resize(int(xyz_dlg.mx->value()), int(xyz_dlg.my->value()), int(xyz_dlg.mz->value()));\r
-               mgl_data_set(e->var, &d);\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void squeeze_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       xyz_dlg.box->label(gettext("Specify the skiping step\nEach m-th point will be skiped"));\r
-       xyz_dlg.ch->label(gettext("smoothed")); xyz_dlg.OK = false;\r
-       xyz_dlg.wnd->set_modal();               xyz_dlg.wnd->show();\r
-       while(xyz_dlg.wnd->shown())     Fl::wait();\r
-       if(xyz_dlg.OK)\r
-       {\r
-               e->var->Squeeze(int(xyz_dlg.mx->value()), int(xyz_dlg.my->value()),\r
-                                       int(xyz_dlg.mz->value()), xyz_dlg.ch->value());\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-struct ChngDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Check_Button *dx, *dy, *dz;\r
-       Fl_Choice *kind, *type;\r
-       ChngDlg()       {       memset(this,0,sizeof(ChngDlg)); create_dlg();   };\r
-       ~ChngDlg()      {       delete wnd;     };\r
-       void create_dlg();\r
-       void execute(mglData *d);\r
-} chng_dlg;\r
-//-----------------------------------------------------------------------------\r
-void chng_dlg_cb(Fl_Widget *, void *v)\r
-{      chng_dlg.OK = true;     ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void ChngDlg::execute(mglData *d)\r
-{\r
-       char r[8]="3";\r
-       if(dx->value()) strcat(r,"x");\r
-       if(dy->value()) strcat(r,"y");\r
-       if(dz->value()) strcat(r,"z");\r
-       if(!r[0])       return;\r
-       if(type->value()==1)    r[0] = '5';\r
-       if(type->value()==2)    r[0] = ' ';\r
-       switch(kind->value())\r
-       {\r
-       case 0: d->Smooth(r);           break;\r
-       case 1: d->CumSum(r);           break;\r
-       case 2: d->Integral(r); break;\r
-       case 3: d->Diff(r);             break;\r
-       case 4: d->Diff2(r);            break;\r
-       case 5: d->Swap(r);             break;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void ChngDlg::create_dlg()\r
-{\r
-       Fl_Menu_Item k[]={{gettext("Smooth")}, {gettext("CumSum")}, { gettext("Integrate")},\r
-               { gettext("Difference")}, { gettext("Double diff.")}, { gettext("Swap parts")}, {0}};\r
-       Fl_Menu_Item t[]={{gettext("Linear *3")}, {gettext("Linear *5")}, {gettext("Parabolic *5")},{0}};\r
-       wnd = new Fl_Double_Window(165, 215, gettext("Change data"));\r
-       kind = new Fl_Choice(10, 25, 145, 25, gettext("Type of operation"));\r
-       kind->align(FL_ALIGN_TOP_LEFT); kind->copy(k);\r
-       dx = new Fl_Check_Button(10, 55, 140, 25, gettext("apply in x direction"));\r
-       dy = new Fl_Check_Button(10, 80, 140, 25, gettext("apply in y direction"));\r
-       dz = new Fl_Check_Button(10, 105, 140, 25, gettext("apply in z direction"));\r
-       type = new Fl_Choice(10, 145, 145, 25, gettext("Type of smoothing"));\r
-       type->align(FL_ALIGN_TOP_LEFT); type->copy(t);\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(10, 180, 65, 25, gettext("Cancel"));  o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o = new Fl_Return_Button(90, 180, 65, 25, gettext("Do"));o->callback(chng_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void smooth_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(0);\r
-       chng_dlg.type->activate();      chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void cumsum_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(1);\r
-       chng_dlg.type->deactivate();chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void integr_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(2);\r
-       chng_dlg.type->deactivate();chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void diff_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(3);\r
-       chng_dlg.type->deactivate();chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void diff2_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(4);\r
-       chng_dlg.type->deactivate();chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void swap_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       chng_dlg.kind->value(5);\r
-       chng_dlg.type->deactivate();chng_dlg.OK = false;\r
-       chng_dlg.wnd->set_modal();      chng_dlg.wnd->show();\r
-       while(chng_dlg.wnd->shown())    Fl::wait();\r
-       if(chng_dlg.OK)\r
-       {       chng_dlg.execute(e->var);       e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-struct NwdtDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Check_Button *dx, *dy, *dz;\r
-       Fl_Choice *kind;\r
-       Fl_Input *name;\r
-       NwdtDlg()       {       memset(this,0,sizeof(NwdtDlg)); create_dlg();   };\r
-       ~NwdtDlg()      {       delete wnd;     };\r
-       void create_dlg();\r
-} nwdt_dlg;\r
-//-----------------------------------------------------------------------------\r
-void nwdt_dlg_cb(Fl_Widget *, void *v)\r
-{      nwdt_dlg.OK = true;     ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void NwdtDlg::create_dlg()\r
-{\r
-       Fl_Menu_Item k[]={{gettext("Summation of")}, {gettext("Maximum of")}, { gettext("Minimum of")}, {0}};\r
-       wnd = new Fl_Double_Window(165, 215, gettext("Extract data"));\r
-       kind = new Fl_Choice(10, 25, 145, 25, gettext("Type of operation"));\r
-       kind->align(FL_ALIGN_TOP_LEFT); kind->copy(k);\r
-       dx = new Fl_Check_Button(10, 55, 140, 25, gettext("apply in x direction"));\r
-       dy = new Fl_Check_Button(10, 80, 140, 25, gettext("apply in y direction"));\r
-       dz = new Fl_Check_Button(10, 105, 140, 25, gettext("apply in z direction"));\r
-       name = new Fl_Input(10, 145, 145, 25, gettext("Name for output"));\r
-       name->align(FL_ALIGN_TOP_LEFT);\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(10, 180, 65, 25, gettext("Cancel"));  o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o = new Fl_Return_Button(90, 180, 65, 25, gettext("Do"));o->callback(chng_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void asum_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       nwdt_dlg.kind->value(0);        nwdt_dlg.OK = false;\r
-       nwdt_dlg.wnd->set_modal();      nwdt_dlg.wnd->show();\r
-       while(nwdt_dlg.wnd->shown())    Fl::wait();\r
-       if(nwdt_dlg.OK)\r
-       {\r
-               char r[8]="";\r
-               if(nwdt_dlg.dx->value())        strcat(r,"x");\r
-               if(nwdt_dlg.dy->value())        strcat(r,"y");\r
-               if(nwdt_dlg.dz->value())        strcat(r,"z");\r
-               if(!r[0])       return;\r
-               if(!nwdt_dlg.name->value()[0] || !strcmp(nwdt_dlg.name->value(),e->label()))\r
-                       fl_alert(gettext("Name for output variable should be differ from this name"));\r
-               else\r
-               {\r
-                       mglData d = e->var->Sum(r);\r
-                       mgl_data_set(Parse->AddVar(nwdt_dlg.name->value()), &d);\r
-               }\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void amax_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       nwdt_dlg.kind->value(0);        nwdt_dlg.OK = false;\r
-       nwdt_dlg.wnd->set_modal();      nwdt_dlg.wnd->show();\r
-       while(nwdt_dlg.wnd->shown())    Fl::wait();\r
-       if(nwdt_dlg.OK)\r
-       {\r
-               char r[8]="";\r
-               if(nwdt_dlg.dx->value())        strcat(r,"x");\r
-               if(nwdt_dlg.dy->value())        strcat(r,"y");\r
-               if(nwdt_dlg.dz->value())        strcat(r,"z");\r
-               if(!r[0])       return;\r
-               if(!nwdt_dlg.name->value()[0] || !strcmp(nwdt_dlg.name->value(),e->label()))\r
-                       fl_alert(gettext("Name for output variable should be differ from this name"));\r
-               else\r
-               {\r
-                       mglData d = e->var->Max(r);\r
-                       mgl_data_set(Parse->AddVar(nwdt_dlg.name->value()), &d);\r
-               }\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void amin_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       nwdt_dlg.kind->value(0);        nwdt_dlg.OK = false;\r
-       nwdt_dlg.wnd->set_modal();      nwdt_dlg.wnd->show();\r
-       while(nwdt_dlg.wnd->shown())    Fl::wait();\r
-       if(nwdt_dlg.OK)\r
-       {\r
-               char r[8]="";\r
-               if(nwdt_dlg.dx->value())        strcat(r,"x");\r
-               if(nwdt_dlg.dy->value())        strcat(r,"y");\r
-               if(nwdt_dlg.dz->value())        strcat(r,"z");\r
-               if(!r[0])       return;\r
-               if(!nwdt_dlg.name->value()[0] || !strcmp(nwdt_dlg.name->value(), e->label()))\r
-                       fl_alert(gettext("Name for output variable should be differ from this name"));\r
-               else\r
-               {\r
-                       mglData d = e->var->Min(r);\r
-                       mgl_data_set(Parse->AddVar(nwdt_dlg.name->value()), &d);\r
-               }\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void load_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       char *newfile = fl_file_chooser(gettext("Load Data?"),\r
-               gettext("DAT Files (*.{dat,csv})\tAll Files (*)"), 0);\r
-       if(newfile != NULL)\r
-       {       e->var->Read(newfile);  e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void save_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       char *newfile = fl_file_chooser(gettext("Save Data?"),\r
-               gettext("DAT Files (*.{dat,csv})\tAll Files (*)"), 0);\r
-       if(newfile != NULL)     e->var->Save(newfile);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void exp_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *scheme, *newfile = fl_file_chooser(gettext("Export Data?"),\r
-               gettext("PNG Files (*.png)\tAll Files (*)"), 0);\r
-       if(newfile != NULL)\r
-       {\r
-               scheme = fl_input(gettext("Enter color scheme"),"BbcyrR");\r
-               if(scheme)      e->var->Export(newfile,scheme);\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void imp_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *scheme, *newfile = fl_file_chooser(gettext("Import Data?"),\r
-               gettext("PNG Files (*.png)\tAll Files (*)"), 0);\r
-       if (newfile != NULL)\r
-       {\r
-               scheme = fl_input(gettext("Enter color scheme"),"BbcyrR");\r
-               if(scheme)\r
-               {       e->var->Import(newfile,scheme); e->refresh();   }\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void list_dat_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       mglData *d = e->var;\r
-       if(d->nx*d->ny+d->ny>1020)\r
-       {       fl_message(gettext("Too many numbers (>1000) on slice"));       return; }\r
-       if(d->nz>1)     fl_message(gettext("Only current slice will be inserted"));\r
-       char *list = new char[16384];\r
-       strcpy(list,"list\t");\r
-       register long i,j;\r
-       char s[32];\r
-       for(j=0;j<d->ny;j++)\r
-       {\r
-               for(i=0;i<d->nx;i++)\r
-               {\r
-                       sprintf(s,"%g\t",d->a[i+d->nx*(j+e->get_slice()*d->ny)]);\r
-                       strcat(list,s);\r
-               }\r
-               if(j<d->ny-1)   strcat(list,"|\t");\r
-       }\r
-       textbuf->insert(0,list);\r
-       delete []list;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void modify_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       const char *eq=fl_input(gettext("Enter formula for data modification\nHere x, y, z in range [0,1], u is data value"),0);\r
-       if (eq != NULL) {       e->var->Modify(eq);     e->refresh();   }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void plot_dat_cb(Fl_Widget *, void *v);\r
-//-----------------------------------------------------------------------------\r
-struct NrmDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Value_Input *min, *max;\r
-       Fl_Choice *dir;\r
-       Fl_Check_Button *sym;\r
-       NrmDlg()        {       memset(this,0,sizeof(NrmDlg));  create_dlg();   };\r
-       ~NrmDlg()       {       delete wnd;     };\r
-       void create_dlg();\r
-} nrm_dlg;\r
-//-----------------------------------------------------------------------------\r
-void nrm_dlg_cb(Fl_Widget *, void *v)\r
-{      nrm_dlg.OK = true;      ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void NrmDlg::create_dlg()\r
-{\r
-       Fl_Menu_Item k[]={{"x"}, {"y"}, { "z"}, {0}};\r
-       wnd = new Fl_Double_Window(135, 215);\r
-       min = new Fl_Value_Input(10, 25, 115, 25, gettext("Minimal value (v1)"));\r
-       min->align(FL_ALIGN_TOP_LEFT);\r
-       min->tooltip(gettext("Minimal value for resulting data values"));\r
-       max = new Fl_Value_Input(10, 70, 115, 25, gettext("Maximal value (v2)"));\r
-       max->align(FL_ALIGN_TOP_LEFT);\r
-       max->tooltip(gettext("Maximal value for resulting data values"));\r
-       dir = new Fl_Choice(10, 115, 115, 25, gettext("Direction"));\r
-       dir->align(FL_ALIGN_TOP_LEFT);  dir->copy(k);\r
-       dir->tooltip(gettext("Direction along which data will be filled"));\r
-       sym = new Fl_Check_Button(10, 115, 115, 25, gettext("Symetrical range"));\r
-       sym->tooltip(gettext("Normalize in symmetrical range: -max(|v1|,|v2|) ... max(|v1|,|v2|)"));\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(25, 150, 85, 25, gettext("Cancel"));  o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Do nothing and close this window"));\r
-       o = new Fl_Return_Button(25, 180, 85, 25, gettext("Change"));o->callback(nrm_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Change data values and close this window"));\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void fill_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       nrm_dlg.OK = false;                     nrm_dlg.wnd->label(gettext("Fill in range"));\r
-       nrm_dlg.dir->show();            nrm_dlg.sym->hide();\r
-       nrm_dlg.wnd->set_modal();       nrm_dlg.wnd->show();\r
-       while(nrm_dlg.wnd->shown())     Fl::wait();\r
-       if(nrm_dlg.OK)\r
-       {\r
-               char r='x';\r
-               if(nrm_dlg.dir->value()==1)     r='y';\r
-               if(nrm_dlg.dir->value()==2)     r='z';\r
-               e->var->Fill(nrm_dlg.min->value(),nrm_dlg.max->value(),r);\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void normal_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       nrm_dlg.OK = false;                     nrm_dlg.wnd->label(gettext("Normalize data"));\r
-       nrm_dlg.dir->hide();            nrm_dlg.sym->show();\r
-       nrm_dlg.wnd->set_modal();       nrm_dlg.wnd->show();\r
-       while(nrm_dlg.wnd->shown())     Fl::wait();\r
-       if(nrm_dlg.OK)\r
-       {\r
-               e->var->Norm(nrm_dlg.min->value(), nrm_dlg.max->value(), nrm_dlg.sym->value());\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-struct CropDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Input *x1,*x2, *y1,*y2, *z1,*z2;\r
-       CropDlg()       {       memset(this,0,sizeof(CropDlg)); create_dlg();   };\r
-       ~CropDlg()      {       delete wnd;     };\r
-       void create_dlg();\r
-} crop_dlg;\r
-//-----------------------------------------------------------------------------\r
-void crop_dlg_cb(Fl_Widget *, void *v)\r
-{      crop_dlg.OK = true;     ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void CropDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Double_Window(230, 155, gettext("Crop data"));\r
-       x1 = new Fl_Input(45, 25, 80, 25, gettext("Lower bound"));      x1->align(FL_ALIGN_TOP);\r
-       x2 = new Fl_Input(140, 25, 80, 25, gettext("Upper bound"));     x2->align(FL_ALIGN_TOP);\r
-       y1 = new Fl_Input(45, 55, 80, 25);\r
-       y2 = new Fl_Input(140, 55, 80, 25);\r
-       z1 = new Fl_Input(45, 85, 80, 25);\r
-       z2 = new Fl_Input(140, 85, 80, 25);\r
-\r
-       new Fl_Box(15, 25, 25, 25, "X");\r
-       new Fl_Box(15, 55, 25, 25, "Y");\r
-       new Fl_Box(15, 85, 25, 25, "Z");\r
-       Fl_Button *o;\r
-       o = new Fl_Button(45, 120, 75, 25, gettext("Cancel"));          o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Do nothing and close this window"));\r
-       o = new Fl_Return_Button(145, 120, 75, 25, gettext("Crop"));    o->callback(crop_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Change data values and close this window"));\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void crop_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       crop_dlg.OK = false;\r
-       crop_dlg.wnd->set_modal();      crop_dlg.wnd->show();\r
-       while(crop_dlg.wnd->shown())    Fl::wait();\r
-       if(crop_dlg.OK)\r
-       {\r
-               int n1,n2;\r
-               n1 = 0; n2 = e->var->nx;\r
-               if(crop_dlg.x1->value()[0])     n1 = atoi(crop_dlg.x1->value());\r
-               if(crop_dlg.x2->value()[0])     n2 = atoi(crop_dlg.x2->value());\r
-               e->var->Crop(n1, n2, 'x');\r
-               n1 = 0; n2 = e->var->ny;\r
-               if(crop_dlg.y1->value()[0])     n1 = atoi(crop_dlg.y1->value());\r
-               if(crop_dlg.y2->value()[0])     n2 = atoi(crop_dlg.y2->value());\r
-               e->var->Crop(n1, n2, 'y');\r
-               n1 = 0; n2 = e->var->nz;\r
-               if(crop_dlg.z1->value()[0])     n1 = atoi(crop_dlg.z1->value());\r
-               if(crop_dlg.z2->value()[0])     n2 = atoi(crop_dlg.z2->value());\r
-               e->var->Crop(n1, n2, 'z');\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-struct TrspDlg\r
-{\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-\r
-       Fl_Round_Button *xyz, *xzy, *yxz, *yzx, *zxy, *zyx;\r
-       TrspDlg()       {       memset(this,0,sizeof(TrspDlg)); create_dlg();   };\r
-       ~TrspDlg()      {       delete wnd;     };\r
-       void create_dlg();\r
-} trsp_dlg;\r
-//-----------------------------------------------------------------------------\r
-void trsp_dlg_cb(Fl_Widget *, void *v)\r
-{      trsp_dlg.OK = true;     ((Fl_Window *)v)->hide();       }\r
-//-----------------------------------------------------------------------------\r
-void trsp_rad_cb(Fl_Widget *w, void *v)\r
-{\r
-       TrspDlg* e = (TrspDlg*)v;\r
-       e->xyz->value(0);       e->xzy->value(0);\r
-       e->yxz->value(0);       e->yzx->value(0);\r
-       e->zxy->value(0);       e->zyx->value(0);\r
-       ((Fl_Round_Button *)w)->setonly();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void TrspDlg::create_dlg()\r
-{\r
-       wnd = new Fl_Double_Window(220, 170, gettext("Transpose data"));\r
-       Fl_Group *g = new Fl_Group(10, 30, 200, 90, gettext("Select new order of dimensions"));\r
-       g->box(FL_DOWN_BOX);\r
-       yxz = new Fl_Round_Button(20, 40, 75, 25, "y - x - z"); yxz->callback(trsp_rad_cb,this);\r
-       zyx = new Fl_Round_Button(20, 65, 75, 25, "z - y - x"); zyx->callback(trsp_rad_cb,this);\r
-       zxy = new Fl_Round_Button(20, 90, 75, 25, "z - x - y"); zxy->callback(trsp_rad_cb,this);\r
-       yzx = new Fl_Round_Button(100, 40, 75, 25, "y - z - x");yzx->callback(trsp_rad_cb,this);\r
-       xzy = new Fl_Round_Button(100, 65, 75, 25, "x - z - y");xzy->callback(trsp_rad_cb,this);\r
-       xyz = new Fl_Round_Button(100, 90, 75, 25, "x - y - z");xyz->callback(trsp_rad_cb,this);\r
-       g->end();\r
-\r
-       Fl_Button *o;\r
-       o = new Fl_Button(25, 130, 75, 25, gettext("Cancel"));  o->callback(close_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Do nothing and close this window"));\r
-       o = new Fl_Return_Button(125, 130, 75, 25, gettext("Do"));      o->callback(trsp_dlg_cb,wnd);\r
-       o->box(UDAV_UP_BOX);    o->down_box(UDAV_DOWN_BOX);\r
-       o->tooltip(gettext("Change data values and close this window"));\r
-       wnd->end();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void transp_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       trsp_dlg.OK = false;\r
-       trsp_dlg.wnd->set_modal();      trsp_dlg.wnd->show();\r
-       while(trsp_dlg.wnd->shown())    Fl::wait();\r
-       if(trsp_dlg.OK)\r
-       {\r
-               if(trsp_dlg.xyz->value())       e->var->Transpose("xyz");\r
-               if(trsp_dlg.xzy->value())       e->var->Transpose("xzy");\r
-               if(trsp_dlg.yxz->value())       e->var->Transpose("yxz");\r
-               if(trsp_dlg.yzx->value())       e->var->Transpose("yzx");\r
-               if(trsp_dlg.zxy->value())       e->var->Transpose("zxy");\r
-               if(trsp_dlg.zyx->value())       e->var->Transpose("zyx");\r
-               e->refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void first_sl_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       e->slice->value(0);\r
-       e->set_slice(0);\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void last_sl_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       e->slice->value(e->num_slice()-1);\r
-       e->set_slice(e->num_slice()-1);\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void prev_sl_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       int p = int(e->slice->value())-1;\r
-       if(p<0) p = 0;\r
-       e->slice->value(p);             e->set_slice(p);\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void next_sl_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       int p = int(e->slice->value())+1;\r
-       if(p>=e->num_slice())   p = e->num_slice()-1;\r
-       e->slice->value(p);             e->set_slice(p);\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void first_cl_cb(Fl_Widget*, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void change_sl_cb(Fl_Widget*w, void*v)\r
-{\r
-       TableWindow* e = (TableWindow*)v;\r
-       e->set_slice(long(e->slice->value()));\r
-       e->go_home();\r
-}\r
-//-----------------------------------------------------------------------------\r
-Fl_Menu_Item tablemenu[60] = {\r
-       { gettext("General"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Load from file"),    0, load_dat_cb },\r
-               { gettext("Import from PNG"),0, imp_dat_cb },\r
-               { gettext("Save to file"),      0, save_dat_cb },\r
-               { gettext("Export to PNG"),     0, exp_dat_cb, 0, FL_MENU_DIVIDER },\r
-               { gettext("Insert as list"),    0, list_dat_cb },\r
-               { gettext("Plot data"),         0, plot_dat_cb },\r
-//             { gettext("Info for data"),     0, info_dat_cb },\r
-               { 0 },\r
-       { gettext("Sizes"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Create new"),        0, new_dat_cb },\r
-               { gettext("Resize"),            0, resize_cb },\r
-               { gettext("Squeeze"),   0, squeeze_cb },\r
-               { gettext("Crop"),              0, crop_cb },\r
-               { gettext("Transpose"), 0, transp_cb },\r
-//             { gettext("Extend"),            0, extend_cb },\r
-               { 0 },\r
-       { gettext("Fill"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("By formula"),        0, modify_cb },\r
-               { gettext("In range"),  0, fill_cb },\r
-               { gettext("Normalize"), 0, normal_cb },\r
-               { 0 },\r
-       { gettext("Change"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Smooth"),            0, smooth_cb },\r
-               { gettext("CumSum"),            0, cumsum_cb },\r
-               { gettext("Integrate"), 0, integr_cb },\r
-               { gettext("Difference"),        0, diff_cb },\r
-               { gettext("Double diff."),      0, diff2_cb },\r
-               { gettext("Swap parts"),        0, swap_cb },\r
-               { 0 },\r
-       { gettext("Another"), 0, 0, 0, FL_SUBMENU },\r
-//             { gettext("Histogram of"),      0, hist_cb },\r
-               { gettext("Summation of"),      0, asum_cb },\r
-               { gettext("Maximum of"),        0, amax_cb },\r
-               { gettext("Minimum of"),        0, amin_cb },\r
-               { 0 },\r
-       { gettext("Operations"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("Add to"),            0, addto_cb },\r
-               { gettext("Subtract to"),0, subto_cb },\r
-               { gettext("Multiply by"),0, multo_cb },\r
-               { gettext("Divide by"), 0, divto_cb },\r
-               { 0 },\r
-       { gettext("Navigation"), 0, 0, 0, FL_SUBMENU },\r
-               { gettext("First slice"), FL_CTRL + FL_F + 1, first_sl_cb },\r
-               { gettext("Prev slice"), FL_CTRL + FL_F + 2, prev_sl_cb },\r
-               { gettext("Next slice"), FL_CTRL + FL_F + 3, next_sl_cb },\r
-               { gettext("Last slice"),        FL_CTRL + FL_F + 4, last_sl_cb, 0, FL_MENU_DIVIDER },\r
-               { gettext("First cell"), FL_ALT + FL_F + 1, first_cl_cb },\r
-//             { gettext("Last cell"), FL_ALT + FL_F + 2, last_cl_cb },\r
-//             { gettext("Center grid"), FL_ALT + FL_F + 3, center_cl_cb },\r
-               { 0 },\r
-       { 0 }\r
-};\r
-//-----------------------------------------------------------------------------\r
-#include "xpm/document-new.xpm"\r
-#include "xpm/plot.xpm"\r
-#include "xpm/document-open.xpm"\r
-#include "xpm/document-save.xpm"\r
-#include "xpm/document-import.xpm"\r
-#include "xpm/document-export.xpm"\r
-#include "xpm/format-indent-more.xpm"\r
-#include "xpm/diff.xpm"\r
-#include "xpm/func.xpm"\r
-#include "xpm/size.xpm"\r
-#include "xpm/tran.xpm"\r
-#include "xpm/crop.xpm"\r
-#include "xpm/go-first.xpm"\r
-#include "xpm/go-last.xpm"\r
-TableWindow::TableWindow(int x, int y, int w, int h, const char* t) : Fl_Window(x, y, w, h, t)\r
-{\r
-       var = 0;\r
-//     menu = new Fl_Menu_Bar(0, 0, w, 30);\r
-//     menu->copy(tablemenu, this);\r
-       Fl_Button *o;\r
-       Fl_Group *g;\r
-\r
-\r
-       g = new Fl_Group(0,0,30,350);\r
-       o = new Fl_Button(0, 0, 25, 25);        o->image(new Fl_Pixmap(document_new_xpm));\r
-       o->callback(new_dat_cb,this);           o->tooltip(gettext("Create new data with zero filling"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 25, 25, 25);       o->image(new Fl_Pixmap(document_open_xpm));\r
-       o->callback(load_dat_cb,this);          o->tooltip(gettext("Load data from file"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 50, 25, 25);       o->image(new Fl_Pixmap(document_import_xpm));\r
-       o->callback(imp_dat_cb,this);           o->tooltip(gettext("Import data from PNG file"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 75, 25, 25);       o->image(new Fl_Pixmap(document_save_xpm));\r
-       o->callback(save_dat_cb,this);          o->tooltip(gettext("Save data to file"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 100, 25, 25);      o->image(new Fl_Pixmap(document_export_xpm));\r
-       o->callback(exp_dat_cb,this);           o->tooltip(gettext("Export data to PNG file"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-\r
-       o = new Fl_Button(0, 130, 25, 25);      o->image(new Fl_Pixmap(format_indent_more_xpm));\r
-       o->callback(list_dat_cb,this);          o->tooltip(gettext("Insert to script as 'list' command"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 155, 25, 25);      o->image(new Fl_Pixmap(plot_xpm));\r
-       o->callback(plot_dat_cb,this);          o->tooltip(gettext("Plot data"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-\r
-       o = new Fl_Button(0, 185, 25, 25);      o->image(new Fl_Pixmap(diff_xpm));\r
-       o->callback(smooth_cb,this);            o->tooltip(gettext("Apply operator (smoothing, integration, difference ...) to data"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 210, 25, 25);      o->image(new Fl_Pixmap(func_xpm));\r
-       o->callback(modify_cb,this);            o->tooltip(gettext("Fill data by formula"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 235, 25, 25);      o->image(new Fl_Pixmap(size_xpm));\r
-       o->callback(resize_cb,this);            o->tooltip(gettext("Resize data with smoothing"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 260, 25, 25);      o->image(new Fl_Pixmap(crop_xpm));\r
-       o->callback(crop_cb,this);              o->tooltip(gettext("Crop (cut off edges) data"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(0, 285, 25, 25);      o->image(new Fl_Pixmap(tran_xpm));\r
-       o->callback(transp_cb,this);            o->tooltip(gettext("Transpose data dimensions"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       g->end();       g->resizable(0);\r
-\r
-\r
-       g = new Fl_Group(30,0,200,30);\r
-       o = new Fl_Button(30, 0, 25, 25);       o->image(new Fl_Pixmap(go_first_xpm));\r
-       o->callback(first_sl_cb,this);          o->tooltip(gettext("Go to first slice (Ctrl-F1)"));\r
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);\r
-       slice = new Fl_Counter(55, 0, 90, 25, 0);       slice->callback(change_sl_cb,this);\r
-       slice->lstep(10);       slice->step(1); slice->tooltip(gettext("Id of slice on third (z-) dimension"));\r
-       slice->box(FL_PLASTIC_UP_BOX);//        slice->down_box(FL_PLASTIC_DOWN_BOX);\r
-       o = new Fl_Button(147, 0, 25, 25);      o->image(new Fl_Pixmap(go_last_xpm));\r
-       o->callback(last_sl_cb,this);           o->tooltip(gettext("Go to last slice (Ctrl-F4)"));\r
-       g->end();       g->resizable(0);\r
-\r
-       data = new Fl_Data_Table(30,30,w-30,h-30);\r
-       data->row_header(1);    data->row_header_width(70);\r
-       data->row_resize(1);    data->rows(1);\r
-       data->row_height_all(25);\r
-       data->col_header(1);    data->col_header_height(25);\r
-       data->col_resize(1);    data->cols(1);\r
-       data->col_width_all(70);\r
-\r
-       end();  resizable(data);\r
-//     callback(close_table_cb, this);\r
-}\r
-//-----------------------------------------------------------------------------\r
-TableWindow::~TableWindow()\r
-{      parent()->deactivate();\r
-       (parent()->parent())->remove(parent());\r
-       parent()->remove(this); delete parent();        }\r
-//-----------------------------------------------------------------------------\r
-void delete_cb(void *v)        {       if(v)   delete (TableWindow *)v;        }\r
-//-----------------------------------------------------------------------------\r
-void TableWindow::update(mglVar *v)\r
-{\r
-       if(v==0)        return;\r
-       char ss[1024];\r
-       wcstombs(ss,v->s.c_str(),1024);\r
-       label(ss);      v->func = delete_cb;\r
-//     if(var) var->o = 0;\r
-       var = &(v->d);  v->o = this;\r
-       refresh();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void TableWindow::refresh()\r
-{\r
-       if(var==0)      return;\r
-       deactivate();   nz = var->nz;\r
-       sl = 0; slice->range(0,nz-1);\r
-\r
-       data->rows(var->ny);    data->cols(var->nx);\r
-       data->ny = var->ny;     data->nx = var->nx;\r
-       data->data = var->a;\r
-       activate();\r
-//     show();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void TableWindow::set_slice(long s)\r
-{\r
-       if(s>=0 && s<nz)\r
-       {\r
-               sl = s;\r
-               data->data = var->a + var->nx * var->ny * sl;\r
-               refresh();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void TableWindow::go_home()\r
-{\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/udav.h b/mgllab/udav.h
deleted file mode 100644 (file)
index 2a0fe67..0000000
--- a/mgllab/udav.h
+++ /dev/null
@@ -1,291 +0,0 @@
-/* udav.h is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-//-----------------------------------------------------------------------------\r
-#ifndef _UDAV_H_\r
-#define _UDAV_H_\r
-//-----------------------------------------------------------------------------\r
-#ifdef __MWERKS__\r
-# define FL_DLL\r
-#endif\r
-#ifdef USE_GETTEXT\r
-       #include <libintl.h>\r
-#else\r
-       #define gettext(x)      (x)\r
-#endif\r
-#include <FL/Fl.H>\r
-#include <FL/Fl_Group.H>\r
-#include <FL/Fl_Double_Window.H>\r
-#include <FL/fl_ask.H>\r
-#include <FL/Fl_File_Chooser.H>\r
-#include <FL/Fl_Menu_Bar.H>\r
-#include <FL/Fl_Input.H>\r
-#include <FL/Fl_Button.H>\r
-#include <FL/Fl_Return_Button.H>\r
-#include <FL/Fl_Text_Buffer.H>\r
-#include <FL/Fl_Text_Editor.H>\r
-#include <FL/Fl_Pixmap.H>\r
-#include <FL/Fl_Counter.H>\r
-#include <Fl/Fl_Scroll.H>\r
-#include <FL/Fl_Tabs.H>\r
-#include <FL/Fl_Help_View.H>\r
-#include <Fl/Fl_Table.H>\r
-#include <Fl/Fl_Round_Button.H>\r
-#include <Fl/Fl_Float_Input.H>\r
-#include <Fl/Fl_Multiline_Input.H>\r
-//-----------------------------------------------------------------------------\r
-#ifdef USE_PLASTIC\r
-       #define UDAV_UP_BOX                     FL_PLASTIC_UP_BOX\r
-       #define UDAV_DOWN_BOX           FL_PLASTIC_DOWN_BOX\r
-       #define UDAV_EDIT_BOX           FL_PLASTIC_THIN_DOWN_BOX\r
-       #define UDAV_THIN_UP_BOX        FL_PLASTIC_THIN_UP_BOX\r
-#else\r
-       #define UDAV_UP_BOX                     FL_GTK_UP_BOX\r
-       #define UDAV_DOWN_BOX           FL_GTK_DOWN_BOX\r
-       #define UDAV_EDIT_BOX           FL_GTK_DOWN_BOX\r
-       #define UDAV_THIN_UP_BOX        FL_GTK_THIN_UP_BOX\r
-#endif\r
-//-----------------------------------------------------------------------------\r
-#include "mgl2/parser.h"\r
-#include "mgl2/fltk.h"\r
-//-----------------------------------------------------------------------------\r
-extern mglParse *Parse;\r
-extern Fl_Menu_Item colors[];\r
-extern Fl_Preferences pref;\r
-class Fl_MGL;\r
-//-----------------------------------------------------------------------------\r
-class Fl_Data_Table : public Fl_Table\r
-{\r
-private:\r
-       int row, col;\r
-       Fl_Input* input;\r
-protected:\r
-       void draw_cell(TableContext context, int R, int C, int X, int Y, int W, int H);\r
-       static void event_callback(Fl_Widget*, void*v)\r
-       {       ((Fl_Data_Table*)v)->cell_click();      };\r
-       void cell_click();\r
-\r
-public:\r
-       mreal *data;\r
-       int nx, ny;\r
-\r
-       Fl_Data_Table(int x, int y, int w, int h, const char *l=0);\r
-    ~Fl_Data_Table() { }\r
-\r
-       void set_value();\r
-    void rows(int val) { if (input->visible()) input->do_callback(); Fl_Table::rows(val); }\r
-    void cols(int val) { if (input->visible()) input->do_callback(); Fl_Table::cols(val); }\r
-    inline int rows() { return Fl_Table::rows(); }\r
-    inline int cols() { return Fl_Table::cols(); }\r
-};\r
-//-----------------------------------------------------------------------------\r
-struct AnimateDlg\r
-{\r
-       friend void animate_dlg_cb(Fl_Widget *, void *v);\r
-       friend void animate_rad_cb(Fl_Widget *, void *v);\r
-       friend void fill_animate(const char *text);\r
-       friend void animate_put_cb(Fl_Widget *, void *);\r
-public:\r
-       Fl_Window* wnd;\r
-       int OK;\r
-       AnimateDlg()    {       memset(this,0,sizeof(AnimateDlg));      create_dlg();   };\r
-       ~AnimateDlg()   {       delete wnd;     };\r
-       void FillResult(Fl_MGL* e);\r
-protected:\r
-       bool swap;\r
-       Fl_Round_Button *rt, *rv;\r
-       Fl_Multiline_Input *txt;\r
-       Fl_Float_Input *x0, *x1, *dx, *dt;\r
-       Fl_Check_Button *save;\r
-       void create_dlg();\r
-};\r
-//-----------------------------------------------------------------------------\r
-class Fl_MGL : public Fl_MGLView, public mglDraw\r
-{\r
-friend class AnimateDlg;\r
-public:\r
-       Fl_Widget *status;              ///< StatusBar for mouse coordinates\r
-       const char *AnimBuf;    ///< buffer for animation\r
-       const char **AnimS0;\r
-       int AnimNum;\r
-       mreal AnimDelay;\r
-\r
-       Fl_MGL(int x, int y, int w, int h, char *label=0);\r
-       ~Fl_MGL();\r
-\r
-       /// Drawing itself\r
-       int Draw(mglGraph *);\r
-       /// Update (redraw) plot\r
-       void update();\r
-       /// Set main \a scr and optional \a pre scripts for execution\r
-       void scripts(char *scr, char *pre);\r
-       /// Clear scripts internally saved\r
-       void clear_scripts();\r
-       /// Show next frame\r
-       void next_frame();\r
-       /// Show prev frame\r
-       void prev_frame();\r
-\r
-protected:\r
-       char *Args[1000], *ArgBuf;\r
-       int NArgs, ArgCur;\r
-\r
-       char *script;           ///< main script\r
-       char *script_pre;       ///< script with settings\r
-};\r
-//-----------------------------------------------------------------------------\r
-struct TableWindow : public Fl_Window\r
-{\r
-public:\r
-       TableWindow(int x, int y, int w, int h, const char* t=0);\r
-       ~TableWindow();\r
-       void update(mglVar *v);\r
-       void refresh();\r
-       void set_slice(long s);\r
-       inline long get_slice() { return sl; };\r
-       inline long num_slice() {       return nz;      };\r
-       void go_home();\r
-\r
-       Fl_Data_Table *data;\r
-       Fl_Menu_Bar     *menu;\r
-//     Fl_Output *main;\r
-       Fl_Counter *slice;\r
-       mglData *var;\r
-protected:\r
-//     long nx,ny,nz;\r
-       long nz;\r
-       long sl;                // current slice\r
-       char sl_id[64]; // slice id\r
-};\r
-//-----------------------------------------------------------------------------\r
-class SetupDlg\r
-{\r
-public:\r
-       Fl_Window *wnd;\r
-       bool OK;\r
-       Fl_Input *templ;\r
-\r
-       SetupDlg()      {       memset(this,0,sizeof(SetupDlg));        };\r
-       ~SetupDlg()     {       delete wnd;     };\r
-       void CreateDlg();\r
-       char *ToScript();\r
-private:\r
-       Fl_Input *xmin, *ymin, *zmin, *cmin;\r
-       Fl_Input *xmax, *ymax, *zmax, *cmax;\r
-       Fl_Input *xorg, *yorg, *zorg;\r
-       Fl_Input *xlab, *ylab, *zlab, *font;\r
-       Fl_Choice *xpos, *ypos, *zpos, *axial, *cid[10];\r
-       Fl_Input *xtik, *ytik, *ztik;\r
-       Fl_Input *xsub, *ysub, *zsub;\r
-       Fl_Input *alphad, *ambient, *basew, *mesh, *size;\r
-       Fl_Check_Button *alpha, *light, *rotate, *lid[10];\r
-       Fl_Input *xid[10], *yid[10], *zid[10], *bid[10];\r
-       Fl_Help_View *code;\r
-\r
-       void CreateGen();\r
-       void CreateLid();\r
-};\r
-//-----------------------------------------------------------------------------\r
-class ScriptWindow : public Fl_Double_Window\r
-{\r
-public:\r
-       ScriptWindow(int w, int h, const char* t);\r
-       ~ScriptWindow();\r
-\r
-       Fl_Window       *replace_dlg;\r
-       Fl_Input        *replace_find;\r
-       Fl_Input        *replace_with;\r
-       Fl_Button       *replace_all;\r
-       Fl_Return_Button        *replace_next;\r
-       Fl_Button       *replace_cancel;\r
-       Fl_Text_Editor          *editor;\r
-       Fl_Menu_Bar     *menu;\r
-       Fl_Tabs *ltab, *rtab;\r
-       Fl_Help_View *hd;\r
-       Fl_Input *link_cmd;\r
-       Fl_Group *ghelp;\r
-       Fl_Browser *var;\r
-       Fl_Box *status;\r
-\r
-       void mem_init();\r
-       void mem_pressed(int n);\r
-       SetupDlg        *setup_dlg;\r
-       char            search[256];\r
-       Fl_MGL          *graph;\r
-};\r
-//-----------------------------------------------------------------------------\r
-// Editor window functions\r
-void find2_cb(Fl_Widget *, void *);\r
-void replall_cb(Fl_Widget *, void *);\r
-void replace2_cb(Fl_Widget *, void *);\r
-void replcan_cb(Fl_Widget *, void *);\r
-void insert_cb(Fl_Widget *, void *);\r
-void paste_cb(Fl_Widget *, void *);\r
-void replace_cb(Fl_Widget *, void *);\r
-void copy_cb(Fl_Widget *, void *);\r
-void cut_cb(Fl_Widget *, void *);\r
-void find_cb(Fl_Widget *, void *);\r
-void delete_cb(Fl_Widget *, void *);\r
-void changed_cb(int, int nInserted, int nDeleted,int, const char*, void* v);\r
-//-----------------------------------------------------------------------------\r
-// General callback functions\r
-void new_cb(Fl_Widget *, void *);\r
-void open_cb(Fl_Widget *, void *);\r
-void save_cb(Fl_Widget*, void*);\r
-void saveas_cb(Fl_Widget*, void*);\r
-void help_cb(Fl_Widget*, void*);\r
-//-----------------------------------------------------------------------------\r
-// Graphical callback functions\r
-void setup_cb(Fl_Widget *, void *);\r
-void style_cb(Fl_Widget *, void *);\r
-void option_cb(Fl_Widget *, void *);\r
-void argument_cb(Fl_Widget *, void *);\r
-void variables_cb(Fl_Widget *, void *);\r
-void settings_cb(Fl_Widget *, void *);\r
-void command_cb(Fl_Widget *, void *);\r
-//-----------------------------------------------------------------------------\r
-// Dialogs callback functions\r
-void close_dlg_cb(Fl_Widget *w, void *);\r
-void font_cb(Fl_Widget *, void *v);\r
-void line_cb(Fl_Widget *, void *v);\r
-void face_cb(Fl_Widget *, void *v);\r
-void data_cb(Fl_Widget *, void *v);\r
-//-----------------------------------------------------------------------------\r
-void style_init(void);\r
-int check_save(void);\r
-void load_file(char *newfile, int ipos);\r
-void save_file(char *newfile);\r
-Fl_Widget *add_editor(ScriptWindow *w);\r
-Fl_Widget *add_mem(ScriptWindow *w);\r
-void set_title(Fl_Window* w);\r
-//-----------------------------------------------------------------------------\r
-// Animation\r
-void animate_cb(Fl_Widget *, void *v);\r
-void fill_animate(const char *text);\r
-//-----------------------------------------------------------------------------\r
-Fl_Widget *add_help(ScriptWindow *w);\r
-void help_cb(Fl_Widget*, void*v);\r
-void example_cb(Fl_Widget*, void*v);\r
-void about_cb(Fl_Widget*, void*);\r
-//-----------------------------------------------------------------------------\r
-void newcmd_cb(Fl_Widget*,void*);\r
-//-----------------------------------------------------------------------------\r
-extern Fl_Text_Buffer  *textbuf;\r
-extern char    filename[256];\r
-extern int     changed;\r
-//-----------------------------------------------------------------------------\r
-#endif\r
-//-----------------------------------------------------------------------------\r

diff --git a/mgllab/udav.rc b/mgllab/udav.rc
deleted file mode 100644 (file)
index e557119..0000000
--- a/mgllab/udav.rc
+++ /dev/null
@@ -1,24 +0,0 @@
-/* udav.rc is part of UDAV\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-//-----------------------------------------------------------------------------\r
-#include <windows.h>\r
-\r
-#define APPICON 1001\r
-#define APPICON48 1002\r
-\r
-APPICON ICON "udav.ico"\r
-APPICON48 ICON "udav48.ico"\r

diff --git a/mgllab/udav48.ico b/mgllab/udav48.ico
deleted file mode 100644 (file)
index a286d6d..0000000
Binary files a/mgllab/udav48.ico and /dev/null differ

diff --git a/mgllab/write.cpp b/mgllab/write.cpp
deleted file mode 100644 (file)
index 949f4be..0000000
--- a/mgllab/write.cpp
+++ /dev/null
@@ -1,17 +0,0 @@
-/* write.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>\r
- *\r
- * This program is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Library General Public License\r
- * as published by the Free Software Foundation\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
- */\r
-//-----------------------------------------------------------------------------\r

diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt
index 2e844cd1de52b51e885ed518223a2c3217179003..a9e5e7cc53635ce63650127a6704eeaee853e9fd 100644 (file)
--- a/src/CMakeLists.txt
+++ b/src/CMakeLists.txt
@@ -1,10 +1,11 @@
 set(mgl_src
        addon.cpp axis.cpp base_cf.cpp base.cpp canvas_cf.cpp canvas.cpp cont.cpp crust.cpp
+       complex.cpp complex_io.cpp
        data.cpp data_io.cpp data_new.cpp data_png.cpp def_font.cpp
        export_2d.cpp export_3d.cpp eval.cpp evalp.cpp exec.cpp export.cpp
-       fit.cpp font.cpp other.cpp parser.cpp pde.cpp pixel.cpp
+       fit.cpp font.cpp obj.cpp other.cpp parser.cpp pde.cpp pixel.cpp
        plot.cpp prim.cpp surf.cpp tex_table.cpp vect.cpp volume.cpp evalc.cpp
-       s_hull/s_hull_pro.cpp
+       s_hull/s_hull_pro.cpp window.cpp
 )
 
 set(mgl_hdr
@@ -16,7 +17,7 @@ set(mgl_hdr
        ../include/mgl2/data.h          ../include/mgl2/volume.h        ../include/mgl2/data_cf.h
        ../include/mgl2/define.h        ../include/mgl2/other.h         ../include/mgl2/eval.h
        ../include/mgl2/parser.h        ../include/mgl2/addon.h         ../include/mgl2/evalc.h
-       s_hull/s_hull_pro.h
+       s_hull/s_hull_pro.h             ../include/mgl2/wnd.h           ../include/mgl2/canvas_wnd.h
 )
 
 add_definitions(-DMGL_SRC)
@@ -74,9 +75,6 @@ endif(MGL_HAVE_GIF)
 
 if(MGL_HAVE_HDF5)
        target_link_libraries(mgl ${HDF5_LIBRARIES})
-#      if(NOT use_hdf5_18)
-#              add_definitions(-DH5_USE_16_API)
-#      endif(NOT use_hdf5_18)
        include_directories(${HDF5_INCLUDE_DIR})
 endif(MGL_HAVE_HDF5)
 
@@ -112,10 +110,8 @@ if(MGL_HAVE_MPI)
 endif(MGL_HAVE_MPI)
 
 target_link_libraries(mgl ${M_LIB})
-file(TO_NATIVE_PATH $(MGL_FONT_PATH) MGL_FONT_PATH_SYS)
-#add_definitions(-DMGL_FONT_PATH="${MGL_FONT_PATH_SYS}")
 
-set_target_properties(mgl PROPERTIES SOVERSION 6.0.0)
+set_target_properties(mgl PROPERTIES SOVERSION 7.0.0)
 install(
        TARGETS mgl mgl-static
        RUNTIME DESTINATION bin

diff --git a/src/addon.cpp b/src/addon.cpp
index 140c24aaf04b7bd351460251b1995821ec57c60f..fd35472fa66975b4143bb0847c3b617dd80fbf55 100644 (file)
--- a/src/addon.cpp
+++ b/src/addon.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * addon.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -27,10 +27,10 @@
 #include <string.h>
 #include "mgl2/addon.h"
 #include "mgl2/data.h"
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 void mgl_strcls(char *str)
 {
-       unsigned len = strlen(str),i,n;
+       size_t len = strlen(str),i,n;
        char *tmp = new char[len];
        for(i=0;i<len;i++)
        {
@@ -43,7 +43,7 @@ void mgl_strcls(char *str)
        tmp[i+1]=0;     strcpy(str,&(tmp[n]));
        delete []tmp;
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 int mgl_strpos(const char *str,char *fnd)
 {
        const char *p=strstr(str,fnd);
@@ -52,16 +52,16 @@ int mgl_strpos(const char *str,char *fnd)
        else    res = -1;
        return res;
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 int mgl_chrpos(const char *str,char ch)
 {
-       const char *p=strchr(str,ch);
+       const char *p=str?strchr(str,ch):0;
        int res;
        if(p)   res = p-str;
        else    res = -1;
        return res;
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 char *mgl_fgetstr(FILE *fp)
 {
        static char s[256];
@@ -73,10 +73,10 @@ char *mgl_fgetstr(FILE *fp)
        } while(!feof(fp) && (s[0]==0 || s[0]=='%' || s[0]=='#'));
        return s;
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 int mgl_istrue(char ch)
 {      return (ch=='1' || ch=='t' || ch=='+' || ch=='v');      }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 void mgl_test(const char *str, ...)
 {
        char buf[256];
@@ -87,7 +87,7 @@ void mgl_test(const char *str, ...)
        printf("TEST: %s\n",buf);
        fflush(stdout);
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 void mgl_info(const char *str, ...)
 {
        char buf[256];
@@ -100,7 +100,7 @@ void mgl_info(const char *str, ...)
        fprintf(fp,"%s",buf);
        fclose(fp);
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 FILE *mgl_next_data(const char *fname,int p)
 {
        char *s;
@@ -133,7 +133,7 @@ FILE *mgl_next_data(const char *fname,int p)
        {       fclose(fp);     return NULL;    }
        return fp;
 }
-//---------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 bool mgl_difr_grid(dual *a,int n,dual q,int Border,dual *b,dual *d,int kk)
 {
        register int i,k;
@@ -144,21 +144,21 @@ bool mgl_difr_grid(dual *a,int n,dual q,int Border,dual *b,dual *d,int kk)
        for(k=kk;k>0;k--)       // 3 iterations
        {
                for(i=1;i<n-1;i++)
-                       d[i] = a[i] + adt*(b[i-1]+b[i+1]-2.*b[i])/double(k);
+                       d[i] = a[i] + adt*(b[i-1]+b[i+1]-mreal(2)*b[i])/mreal(k);
                memcpy(b,d,n*sizeof(dual));
                switch(Border)
                {
                        case 0:         // zero at border
-                               b[0] = 0;               b[n-1] = 0;             break;
+                               b[0] = 0;       b[n-1] = 0;             break;
                        case 1:         // constant at border
                                b[0] = b[1];    b[n-1] = b[n-2];        break;
                        case 2:         // linear at border
-                               b[0] = 2.*b[1]-b[2];
-                               b[n-1] = 2.*b[n-2]-b[n-3];
+                               b[0] = mreal(2)*b[1]-b[2];
+                               b[n-1] = mreal(2)*b[n-2]-b[n-3];
                                break;
                        case 3:         // square at border
-                               b[0] = b[3]+3.*(b[1]-b[2]);
-                               b[n-1] = b[n-4]+3.*(b[n-2]-b[n-3]);
+                               b[0] = b[3]+mreal(3)*(b[1]-b[2]);
+                               b[n-1] = b[n-4]+mreal(3)*(b[n-2]-b[n-3]);
                                break;
                        case -1:                // exponent at border
                                b[0] = norm(b[2])<norm(b[1]) ? b[1] : b[1]*b[1]/b[2];
@@ -173,12 +173,12 @@ bool mgl_difr_grid(dual *a,int n,dual q,int Border,dual *b,dual *d,int kk)
        memcpy(a,b,n*sizeof(dual));
        return true;
 }
-//----------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 bool mgl_difr_axial(dual *a, int n, dual q, int Border,dual *b, dual *d, int kk, double di)
 {
        register int i,k,ii = di<0 ? -int(floor(di)) : 0;
        dual adt = dual(0.,1.)*q;
-       register double dd,ff= di==floor(di) ? 4. : 2.,gg;
+       register mreal dd,ff= di==floor(di) ? 4. : 2.,gg;
 
        memcpy(b,a,n*sizeof(dual));
        for(k=kk;k>0;k--)       // kk iterations
@@ -190,7 +190,7 @@ bool mgl_difr_axial(dual *a, int n, dual q, int Border,dual *b, dual *d, int kk,
                        dd = 1./(sqrt(dd*dd+1.)+dd);    // corrections for "axiality"
                        gg = 1+dd*dd;
                        d[i] = a[i] + adt*( b[i-1]*((gg-dd)/k) -
-                       b[i]*(gg*2./k) + b[i+1]*((gg+dd)/k) );
+                       b[i]*(2*gg/k) + b[i+1]*((gg+dd)/k) );
                }
                memcpy(b,d,n*sizeof(dual));
                switch(Border)
@@ -200,10 +200,10 @@ bool mgl_difr_axial(dual *a, int n, dual q, int Border,dual *b, dual *d, int kk,
                        case 1:         // constant at border
                                b[n-1] = b[n-2];        break;
                        case 2:         // linear at border
-                               b[n-1] = -b[n-3] + 2.*b[n-2];
+                               b[n-1] = -b[n-3] + mreal(2)*b[n-2];
                                break;
                        case 3:         // square at border
-                               b[n-1] = b[n-4] + 3.*(b[n-2]-b[n-3]);
+                               b[n-1] = b[n-4] + mreal(3)*(b[n-2]-b[n-3]);
                                break;
                        case -1:                // exponent at border
                                b[n-1] = norm(b[n-3])<norm(b[n-2]) ? b[n-2] : b[n-2]*b[n-2]/b[n-3];
@@ -216,7 +216,7 @@ bool mgl_difr_axial(dual *a, int n, dual q, int Border,dual *b, dual *d, int kk,
        memcpy(a,b,n*sizeof(dual));
        return true;
 }
-//----------------------------------------------------------------------------
+//-----------------------------------------------------------------------------
 double mgl_gauss_rnd()
 {
        double v1,v2;
@@ -224,13 +224,13 @@ double mgl_gauss_rnd()
        v2 = mgl_rnd();
        return v1!=0 ? sqrt(-2.*log(v1))*cos(2*M_PI*v2) : 0;
 }
-//----------------------------------------------------------------------------
-void mgl_fft_freq(double *freq,unsigned nn)
+//-----------------------------------------------------------------------------
+void mgl_fft_freq(double *freq, size_t nn)
 {
-       for(unsigned i=0;i<=nn/2;i++)
+       for(size_t i=0;i<=nn/2;i++)
        {
                freq[i] = i;
                if(i>0) freq[nn-i] = -(double)(i);
        }
 }
-//----------------------------------------------------------------------------
+//-----------------------------------------------------------------------------

diff --git a/src/axis.cpp b/src/axis.cpp
index cccb187fcfbc20f62394e96c52622a602287d5a9..95035e239201ad16679a7596f9b0372027a41c88 100644 (file)
--- a/src/axis.cpp
+++ b/src/axis.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * axis.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -38,23 +38,13 @@ long mgl_have_color(const char *stl)
        return j;
 }
 //-----------------------------------------------------------------------------
-wchar_t *mgl_wcsdup(const wchar_t *s)
-{
-       wchar_t *r = (wchar_t *)malloc((wcslen(s)+1)*sizeof(wchar_t));
-       memcpy(r,s,(wcslen(s)+1)*sizeof(wchar_t));
-       return r;
-}
-//-----------------------------------------------------------------------------
 void mgl_wcstrim(wchar_t *str)
 {
-       wchar_t *c = mgl_wcsdup(str);
-       unsigned long n=wcslen(str);
-       long k;
+       size_t n=wcslen(str), k, i;
        for(k=0;k<n;k++)        if(str[k]>' ')  break;
-       wcscpy(c,str+k);        n = wcslen(c);
-       for(k=n-1;k>=0;k--)     if(c[k]>' ')    break;
-       c[k+1] = 0;
-       wcscpy(str,c);  free(c);
+       for(i=n;i>0;i--)        if(str[i-1]>' ')        break;
+       memmove(str, str+k, (i-k)*sizeof(wchar_t));
+       str[i-k]=0;
 }
 //-----------------------------------------------------------------------------
 //             Ticks setup
@@ -162,7 +152,7 @@ void mglCanvas::SetTicksVal(char dir, HCDT v, const char **lbl, bool add)
        if(add) {       UpdateAxis();   AdjustTicks(aa,ff);     }
        if(!v || !lbl)  {       aa.f = 0;       return; }
        aa.f = 2;       aa.ns=0;        aa.ds=0;
-       register unsigned long i,n=v->GetNx(),l=0;
+       register size_t i,n=v->GetNx(),l=0;
        for(i=0;i<n;i++)        if(strlen(lbl[i])>l)    l=strlen(lbl[i]);
        wchar_t *str=new wchar_t[l+1];
        for(i=0;i<n;i++)
@@ -280,11 +270,11 @@ void mglCanvas::AdjustTicks(const char *dir, bool force)
 {
        if(force)       SetTuneTicks(-1);
        UpdateAxis();
-       if(strchr(dir,'x'))
+       if(strchr(dir,'x') || strchr(dir,'X'))  // NOTE dir have to be non-NULL here !!!
        {       if(force)       ax.d=0; AdjustTicks(ax,fx);     }
-       if(strchr(dir,'y'))
+       if(strchr(dir,'y') || strchr(dir,'Y'))
        {       if(force)       ay.d=0; AdjustTicks(ay,fy);     }
-       if(strchr(dir,'z'))
+       if(strchr(dir,'z') || strchr(dir,'Z'))
        {       if(force)       az.d=0; AdjustTicks(az,fz);     }
        if(strchr(dir,'a') || strchr(dir,'c'))
        {       if(force)       ac.d=0; AdjustTicks(ac,fa);     }
@@ -358,7 +348,7 @@ void mgl_tick_text(mreal z, mreal z0, mreal d, mreal v, int kind, wchar_t str[64
        if(kind==2 || (kind==3 && z>z0))        u /= v;
        if((kind&1) && z>z0)
        {
-               int n1,n2;
+               size_t n1,n2;
                mglprintf(str, 64, L"@{(+%.2g)}",u);
 //             mglprintf(str, 64, fabs(u)<1 ? L"@{(+%.2g)}" : L"@{(+%.3g)}",u);
                n1=wcslen(str); mglprintf(str, 64, L"@{(+%g)}",u);      n2=wcslen(str);
@@ -367,7 +357,7 @@ void mgl_tick_text(mreal z, mreal z0, mreal d, mreal v, int kind, wchar_t str[64
        }
        else
        {
-               int n1,n2;
+               size_t n1,n2;
                mglprintf(str, 64, fabs(u)<1 ? L"%.2g" :  L"%.3g",u);
                n1=wcslen(str); mglprintf(str, 64, L"%g",u);    n2=wcslen(str);
                if(n1<n2 && tune)       mglprintf(str, 64, fabs(u)<1 ? L"%.2g" :  L"%.3g",u);
@@ -441,36 +431,42 @@ void mglCanvas::LabelTicks(mglAxis &aa)
        }
 }
 //-----------------------------------------------------------------------------
-void mglCanvas::Axis(const char *dir, const char *stl)
+void mglCanvas::Axis(const char *dir, const char *stl, const char *opt)
 {
-       if(!dir || !dir[0])     return;
+       if(!dir || !dir[0])     dir="xyz";
        bool text = !strchr(dir,'_');
        const char *ar = "AKDTVISO";
        char arr=0;
-       for(unsigned i=0;i<strlen(ar);i++)
+       for(size_t i=0;i<strlen(ar);i++)
                if(strchr(dir,ar[i]))   {       arr=ar[i];      break;  }
-       bool adjust = stl && strchr(stl,'a');
+       bool adjust = mglchr(stl,'a');
 
        bool ret = get(MGL_ENABLE_RTEXT);
-       if(dir && strchr(dir,'U'))      clr(MGL_ENABLE_RTEXT);
+       if(strchr(dir,'U'))     clr(MGL_ENABLE_RTEXT);
+       SaveState(opt);
        AdjustTicks(dir,adjust);
-       // TODO: Ternary axis labeling ...
-       if(strchr(dir,'x'))     DrawAxis(ax, text, arr, stl);
-       if(strchr(dir,'z'))     DrawAxis(az, text, arr, stl);
+       LoadState();
+
+       ax.pos = strchr(dir,'X') ? 'T':'t';
+       ay.pos = strchr(dir,'Y') ? 'T':'t';
+       az.pos = strchr(dir,'Z') ? 'T':'t';
+       if(strchr(dir,'X') || strchr(dir,'x'))  DrawAxis(ax, text, arr, stl, opt);
+       if(strchr(dir,'Z') || strchr(dir,'z'))  DrawAxis(az, text, arr, stl, opt);
        if((TernAxis&3))
        {
-               mglAxis ty(ay);                                 ty.ch='T';
+               mglAxis ty(ay);         ty.pos='t';     ty.ch='T';
                ty.dir = mglPoint(-1,1);                ty.org = mglPoint(1,0,ay.org.z);
-               DrawAxis(ty, text, arr, stl);   ty.ch='t';
+               DrawAxis(ty, text, arr, stl, opt);      ty.ch='t';
                ty.dir = mglPoint(0,-1);                ty.org = mglPoint(0,1,ay.org.z);
-               DrawAxis(ty, text, arr, stl);
+               DrawAxis(ty, text, arr, stl, opt);
        }
-       else if(strchr(dir,'y'))        DrawAxis(ay, text, arr, stl);
+       else if(strchr(dir,'Y') || strchr(dir,'y'))     DrawAxis(ay, text, arr, stl, opt);
        set(ret, MGL_ENABLE_RTEXT);
 }
 //-----------------------------------------------------------------------------
-void mglCanvas::DrawAxis(mglAxis &aa, bool text, char arr,const char *stl)
+void mglCanvas::DrawAxis(mglAxis &aa, bool text, char arr,const char *stl,const char *opt)
 {
+       SaveState(opt);
        if(strchr("xyz",aa.ch))
                aa.org = mglPoint(GetOrgX(aa.ch), GetOrgY(aa.ch), GetOrgZ(aa.ch));
        if(aa.ch=='x')  aa.v0 = aa.org.x;
@@ -480,8 +476,9 @@ void mglCanvas::DrawAxis(mglAxis &aa, bool text, char arr,const char *stl)
        mglPoint d = aa.dir, o = aa.org, q(NAN);        // "transverse" org
        if(strchr("xyz",aa.ch)) o -= d*(o*d);
        mglPoint av=(Min+Max)/2, dv,da,db, p;
-       dv = mglPoint(sign(av.x-o.x), sign(av.y-o.y), sign(av.z-o.z));
+       dv = mglPoint(sign((av.x-o.x)*(Max.x-Min.x)), sign((av.y-o.y)*(Max.y-Min.y)), sign((av.z-o.z)*(Max.z-Min.z)));
        da = aa.a*(dv*aa.a);    db = aa.b*(dv*aa.b);
+       if(aa.v2<aa.v1) {       da *= -1;       db *= -1;       }
 
        register long i,j,k1,k2;
        SetPenPal(mgl_have_color(stl) ? stl:AxisStl);
@@ -506,17 +503,19 @@ void mglCanvas::DrawAxis(mglAxis &aa, bool text, char arr,const char *stl)
        if(k2>0)        for(i=0;i<k2;i++)
        {
                v = aa.txt[i].val;      u = fabs(v);
-               if(v>=aa.v1 && v<=aa.v2)        tick_draw(o+d*v, da, db, 0, stl);
-//             else    tick_draw(o+d*v, da, db, 0, " ");
-               if(aa.dv==0 && fabs(u-exp(M_LN10*floor(0.1+log10(u))))<0.01*u)
+               if((v-aa.v2)*(v-aa.v1)<=0)      tick_draw(o+d*v, da, db, 0, stl);
+               if(aa.dv==0 && aa.v2>aa.v1 && fabs(u-exp(M_LN10*floor(0.1+log10(u))))<0.01*u)
                        for(j=2;j<10 && v*j<aa.v2;j++)  tick_draw(o+d*(v*j),da,db,1,stl);
+               if(aa.dv==0 && aa.v2<aa.v1 && fabs(u-exp(M_LN10*floor(0.1+log10(u))))<0.01*u)
+                       for(j=2;j<10 && v*j<aa.v1;j++)  tick_draw(o+d*(v*j),da,db,1,stl);
        }
        if(aa.ds>0 && !get(MGL_NOSUBTICKS))
        {
                if(aa.v2>aa.v1) v0 = v0 - aa.ds*floor((v0-aa.v1)/aa.ds+1e-3);
                else                    v0 = v0 - aa.ds*floor((v0-aa.v2)/aa.ds+1e-3);
                if(v0+aa.ds!=v0 && aa.v2+aa.ds!=aa.v2)
-                       for(v=v0;v<aa.v2;v+=aa.ds)      tick_draw(o+d*v,da,db,1,stl);
+                       for(v=v0;(v-aa.v2)*(v-aa.v1)<=0;v+=aa.ds)
+                               tick_draw(o+d*v,da,db,1,stl);
        }
        if(text)        DrawLabels(aa);
        EndGroup();
@@ -533,14 +532,13 @@ void mglCanvas::DrawLabels(mglAxis &aa)
 
        register long i,n = aa.txt.size();
        char pos[4]="t:C";
-//     if(get(MGL_DISABLE_SCALE) && ((aa.dir.x==0 && aa.org.x<0) || (aa.dir.y==0 && aa.org.y>0)))      pos[0]='T';
        if(aa.ch=='c')  pos[0]=(aa.ns==0 || aa.ns==3)?'t':'T';
        if(aa.ch=='T')  pos[0]='T';
-       mreal *w=new mreal[n], h = TextHeight(FontDef,-1)/3, c=NAN, l=NAN, tet=0, v, vv;        // find sizes
+       mreal *w=new mreal[n], h = TextHeight(FontDef,-1), c=NAN, l=NAN, tet=0, v, vv;  // find sizes
        long *kk=new long[n];
        for(i=0;i<n;i++)
        {
-               w[i] = TextWidth(aa.txt[i].text.c_str(),FontDef,-1)/2;
+               w[i] = TextWidth(aa.txt[i].text.c_str(),FontDef,-1);
                kk[i] = AddPnt(o+d*aa.txt[i].val,-1,d,0,7);
        }
 
@@ -564,7 +562,7 @@ void mglCanvas::DrawLabels(mglAxis &aa)
                if(kk[i]<0)     continue;       // should be never here?!
                c = aa.txt[i].val;
                if(c>aa.v1 && c<aa.v2 && i%k!=0)        continue;
-               p = o+d*c;      nn = s-o;       ScalePoint(p,nn);
+               p = o+d*c;      nn = (s-o)/(Max-Min);   ScalePoint(p,nn);
                mglPnt &qq = Pnt[kk[i]];
                mreal ux=qq.u*cos(tet) + qq.v*sin(tet), uy=qq.v*cos(tet) - qq.u*sin(tet);
                if(qq.u*nn.x+qq.v*nn.y < ux*nn.x+uy*nn.y)
@@ -573,14 +571,40 @@ void mglCanvas::DrawLabels(mglAxis &aa)
 
                if(!get(MGL_ENABLE_RTEXT) && nn.x!=0)   pos[2] = nn.x<0 ? 'L':'R';
                if(aa.ch=='c' && aa.txt[i].text[0]==' ')        qq.u = qq.v = NAN;
-               if(!get(MGL_DISABLE_SCALE))     pos[0]=(qq.u*nn.y-qq.v*nn.x>0) ? 'T':'t';
-               if(aa.ch=='T' && pos[0]=='T')   pos[0]='t';
-               if(aa.ch=='T' && pos[0]=='t')   pos[0]='T';
+               int ts = 1;
+               if(!get(MGL_DISABLE_SCALE))     ts = sign(qq.v*nn.x-qq.u*nn.y)*sign(aa.v2-aa.v1);
+               if(aa.ch=='c')  ts=(aa.ns==0 || aa.ns==3)?1:-1;
+               if(aa.ch=='T')  ts *= -1;
+               if(aa.pos=='T') ts *= -1;
+               pos[0] = ts>0 ? 't':'T';
                text_plot(kk[i], aa.txt[i].text.c_str(), pos, -1, aa.sh+0.07,CDef,tet?false:true);
        }
        delete []w;     delete []kk;
 }
 //-----------------------------------------------------------------------------
+char mglCanvas::GetLabelPos(mreal c, long kk, mglAxis &aa)
+{
+       if(strchr("xyz",aa.ch))
+               aa.org = mglPoint(GetOrgX(aa.ch), GetOrgY(aa.ch), GetOrgZ(aa.ch));
+       mglPoint d = aa.dir, o = aa.org;        // "transverse" org
+       if(strchr("xyz",aa.ch)) o -= d*(o*d);
+       mglPoint p,q, s=(Min+Max)/2, nn;
+       s = s - d*(s*d);
+
+       int ts = 1;
+       if(aa.ch=='c')  ts=(aa.ns==0 || aa.ns==3)?1:-1;
+       if(aa.ch=='T')  ts=-1;
+       
+       p = o+d*c;      nn = (s-o)/(Max-Min);   ScalePoint(p,nn);
+       mglPnt &qq = Pnt[kk];
+       
+       if(aa.ch=='c')  qq.u = qq.v = NAN;
+       if(!get(MGL_DISABLE_SCALE))     ts = sign(qq.v*nn.x-qq.u*nn.y)*sign(aa.v2-aa.v1);
+       if(aa.ch=='T')  ts *= -1;
+       if(aa.pos=='T') ts *= -1;
+       return ts>0 ? 't':'T';
+}
+//-----------------------------------------------------------------------------
 void mglCanvas::tick_draw(mglPoint o, mglPoint d1, mglPoint d2, int f, const char *stl)
 {
        if(TickLen==0)  return;
@@ -602,9 +626,10 @@ void mglCanvas::tick_draw(mglPoint o, mglPoint d1, mglPoint d2, int f, const cha
        line_plot(k1,k2);       line_plot(k2,k3);
 }
 //-----------------------------------------------------------------------------
-void mglCanvas::Grid(const char *dir, const char *pen)
+void mglCanvas::Grid(const char *dir, const char *pen, const char *opt)
 {
-       if(!dir || !dir[0])     return;
+       SaveState(opt);
+       if(!dir || !dir[0])     dir="xyz";
        AdjustTicks(dir,false);
        SetPenPal(pen);
        // TODO: Ternary axis labeling ...
@@ -617,11 +642,23 @@ void mglCanvas::Grid(const char *dir, const char *pen)
 //-----------------------------------------------------------------------------
 void mglCanvas::DrawGrid(mglAxis &aa)
 {
-       aa.org = mglPoint(GetOrgX(aa.ch), GetOrgY(aa.ch), GetOrgZ(aa.ch));
+       mglPoint pp[8]={Min,Min,Min,Min,Max,Max,Max,Max},nan=mglPoint(NAN), oo[8], org=Min;
+       pp[1].x=Max.x;  pp[2].y=Max.y;  pp[3].z=Max.z;
+       pp[4].x=Min.x;  pp[5].y=Min.y;  pp[6].z=Min.z;
+       mreal zm=1e5;
+       memcpy(oo,pp,8*sizeof(mglPoint));
+       for(int i=0;i<8;i++)    // find deepest point
+       {
+               ScalePoint(pp[i],nan,false);
+               if(pp[i].z<zm)  {       zm=pp[i].z;     org=oo[i];      }
+       }
+       if(Org.x==Org.x)        org.x = Org.x;
+       if(Org.y==Org.y)        org.y = Org.y;
+       if(Org.z==Org.z)        org.z = Org.z;
        mglPoint d=aa.dir, da1,da2,db1,db2,oa,ob, p,q;
        da1 = aa.a*(aa.a*Min);  da2 = aa.a*(aa.a*Max);
        db1 = aa.b*(aa.b*Min);  db2 = aa.b*(aa.b*Max);
-       oa  = aa.b*(aa.b*aa.org);       ob  = aa.a*(aa.a*aa.org);
+       oa  = aa.b*(aa.b*org);  ob  = aa.a*(aa.a*org);
 
        register long i,j,n=aa.txt.size(),k1,k2;
        mreal v;
@@ -650,64 +687,77 @@ void mglCanvas::DrawGrid(mglAxis &aa)
        }
 }
 //-----------------------------------------------------------------------------
-void mglCanvas::Label(char dir, const char *str, mreal pos, mreal shift)
+void mglCanvas::Label(char dir, const char *str, mreal pos, const char *opt)
 {
-       unsigned s = strlen(str)+1;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
-       Labelw(dir, wcs, pos, shift);
+       Labelw(dir, wcs, pos, opt);
        delete []wcs;
 }
 //-----------------------------------------------------------------------------
-void mglCanvas::Labelw(char dir, const wchar_t *text, mreal pos, mreal shift)
+void mglCanvas::Labelw(char dir, const wchar_t *text, mreal pos, const char *opt)
 {
-       mreal t, x0, y0, z0;
+       mreal shift =  SaveState(opt);  if(mgl_isnan(shift))    shift=0;
+       mreal t=0, x0, y0, z0;
        x0 = GetOrgX(dir);      y0 = GetOrgY(dir);      z0 = GetOrgZ(dir);
-       mglPoint p,ss=(Min+Max)/2,q,qq,nn;
+       mglPoint p,q;
+       mglAxis *aa=0;
 
-       if(dir=='x')    //      TODO: Tern axis & colorbar labels!!!
+       mglAxis ty(ay);
+
+       if(dir=='x')
        {
-               AdjustTicks(ax,fx);
+               AdjustTicks(ax,fx);     aa = &ax;
                if(ax.dv)       t = (Min.x+Max.x+pos*(Max.x-Min.x))/2;
                else    t = Min.x*pow(Max.x/Min.x, (pos+1)/2);
-               nn = mglPoint(0,ss.y-y0,ss.z-z0);
                p = mglPoint(t,y0,z0);  q = mglPoint(1,0,0);    shift += ax.sh;
        }
-       if(dir=='y')
+       if(dir=='y' && !(TernAxis&3))
        {
-               AdjustTicks(ay,fy);
+               AdjustTicks(ay,fy);     aa = &ay;
                if(ay.dv)       t = (Min.y+Max.y+pos*(Max.y-Min.y))/2;
                else    t = Min.y*pow(Max.y/Min.y, (pos+1)/2);
-               nn = mglPoint(ss.x-x0,0,ss.z-z0);
                p = mglPoint(x0,t,z0);  q = mglPoint(0,1,0);    shift += ay.sh;
                if(TernAxis&3)
                {
                        q = mglPoint(-1,1,0);   pos=-pos;
-                       nn = mglPoint((ss.x-x0)/2,(ss.y-y0)/2,ss.z-z0);
+               }
+       }
+       if(dir=='y' && (TernAxis&3))
+       {
+               ty.ch='T';      ty.dir = mglPoint(-1,1);        ty.org = mglPoint(1,0,ay.org.z);
+               AdjustTicks(ty,fy);     aa = &ty;
+               if(ty.dv)       t = (Min.y+Max.y+pos*(Max.y-Min.y))/2;
+               else    t = Min.y*pow(Max.y/Min.y, (pos+1)/2);
+               p = mglPoint(x0,t,z0);  q = mglPoint(0,1,0);    shift += ty.sh;
+               if(TernAxis&3)
+               {
+                       q = mglPoint(-1,1,0);   pos=-pos;
                }
        }
        if(dir=='t' && (TernAxis&3))
        {
-               AdjustTicks(ay,fy);     pos = -pos;
-               if(ay.dv)       t = (Min.y+Max.y+pos*(Max.y-Min.y))/2;
+               ty.ch='t';      ty.dir = mglPoint(0,-1);        ty.org = mglPoint(0,1,ay.org.z);
+               AdjustTicks(ty,fy);     pos = -pos;     aa = &ty;
+               if(ty.dv)       t = (Min.y+Max.y+pos*(Max.y-Min.y))/2;
                else    t = Min.y*pow(Max.y/Min.y, (pos+1)/2);
-               nn = mglPoint(ss.x-x0,0,ss.z-z0);
-               p = mglPoint(x0,t,z0);  q = mglPoint(0,1,0);    shift += ay.sh;
+               p = mglPoint(x0,t,z0);  q = mglPoint(0,1,0);    shift += ty.sh;
        }
        if(dir=='z')
        {
-               AdjustTicks(az,fz);
+               AdjustTicks(az,fz);     aa = &az;
                if(az.dv)       t = (Min.z+Max.z+pos*(Max.z-Min.z))/2;
                else    t = Min.z*pow(Max.z/Min.z, (pos+1)/2);
-               nn = mglPoint(ss.x-x0,ss.y-y0,0);
                p = mglPoint(x0,y0,t);  q = mglPoint(0,0,1);    shift += az.sh;
        }
-       ss = p; ScalePoint(ss,nn,false);
-       char font[33],ff[3]=":C";
+       char font[64],ff[3]=":C";
        if(pos<-0.2)    ff[1]='L';      if(pos>0.2)     ff[1]='R';
        strcpy(font,FontDef);   strcat(font,ff);
-       strcat(font,nn.y>1e-5 || nn.x<0 ? "T":"t");
-       text_plot(AddPnt(p,-1,q,0,7),text,font,-1.4,0.35+shift);
+       long kk = AddPnt(p,-1,q,0,7);   ff[1]=0;
+       ff[0] = GetLabelPos(t, kk, *aa);        strcat(font,ff);
+       text_plot(kk,text,font,-1.4,0.35+shift);
+       LoadState();
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::Box(const char *col, bool ticks)
@@ -716,6 +766,7 @@ void mglCanvas::Box(const char *col, bool ticks)
        mreal tl=TickLen;
        if(!ticks)      TickLen=0;
        set(MGL_NOSUBTICKS);    Org = Min;
+       static int cgid=1;      StartGroup("Box",cgid++);
        Axis("xyz_",col);
        if(TernAxis&1)
        {
@@ -771,29 +822,30 @@ void mglCanvas::Box(const char *col, bool ticks)
                        mgl_facez(this, Min.x, Min.y, oo[im].z, Max.x-Min.x, Max.y-Min.y, color,0,0);
                }
        }
+       EndGroup();
        clr(MGL_NOSUBTICKS);    Org=o;  TickLen=tl;
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::Colorbar(const char *sch)
 {
-       bool in = sch && strchr(sch,'I');
+       bool in = mglchr(sch,'I');
        mreal s=1/B.pf, x=1, y=0;
-       if(sch && strchr(sch,'>'))      {       x=in?(1+s)/2:1; y=0;    }
-       if(sch && strchr(sch,'<'))      {       x=in?(1-s)/2:0; y=0;    }
-       if(sch && strchr(sch,'^'))      {       x=0;    y=in?(1+s)/2:1; }
-       if(sch && strchr(sch,'_'))      {       x=0;    y=in?(1-s)/2:0; }
+       if(mglchr(sch,'>'))     {       x=in?(1+s)/2:1; y=0;    }
+       if(mglchr(sch,'<'))     {       x=in?(1-s)/2:0; y=0;    }
+       if(mglchr(sch,'^'))     {       x=0;    y=in?(1+s)/2:1; }
+       if(mglchr(sch,'_'))     {       x=0;    y=in?(1-s)/2:0; }
        Colorbar(sch, x, y, 1, 1);
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::Colorbar(const char *sch, mreal x, mreal y, mreal w, mreal h)
 {
-       bool in = sch && strchr(sch,'I');
+       bool in = mglchr(sch,'I');
        int where = 0;          // ‘0’ - right, ‘1’ - left, ‘2’ - above, ‘3’ - under
-       if(sch && strchr(sch,'>'))      where = in?1:0;
-       if(sch && strchr(sch,'<'))      where = in?0:1;
-       if(sch && strchr(sch,'^'))      where = in?3:2;
-       if(sch && strchr(sch,'_'))      where = in?2:3;
-       if(sch && strchr(sch,'A'))      {       Push(); Identity();     }
+       if(mglchr(sch,'>'))     where = in?1:0;
+       if(mglchr(sch,'<'))     where = in?0:1;
+       if(mglchr(sch,'^'))     where = in?3:2;
+       if(mglchr(sch,'_'))     where = in?2:3;
+       if(mglchr(sch,'A'))     {       Push(); Identity();     }
 
        long n=256, s = AddTexture(sch);
        mglData v(n);
@@ -806,29 +858,29 @@ void mglCanvas::Colorbar(const char *sch, mreal x, mreal y, mreal w, mreal h)
        for(long i=0;i<n;i++)   c[i] = GetC(s,v.a[i]);
        colorbar(&v, c, where, x, y, w, h);
        delete []c;
-       if(sch && strchr(sch,'A'))      Pop();
+       if(mglchr(sch,'A'))     Pop();
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::Colorbar(HCDT v, const char *sch)
 {
-       bool in = sch && strchr(sch,'I');
+       bool in = mglchr(sch,'I');
        mreal s=1/B.pf, x=1, y=0;
-       if(sch && strchr(sch,'>'))      {       x=in?(1+s)/2:1; y=0;    }
-       if(sch && strchr(sch,'<'))      {       x=in?(1-s)/2:0; y=0;    }
-       if(sch && strchr(sch,'^'))      {       x=0;    y=in?(1+s)/2:1; }
-       if(sch && strchr(sch,'_'))      {       x=0;    y=in?(1-s)/2:0; }
+       if(mglchr(sch,'>'))     {       x=in?(1+s)/2:1; y=0;    }
+       if(mglchr(sch,'<'))     {       x=in?(1-s)/2:0; y=0;    }
+       if(mglchr(sch,'^'))     {       x=0;    y=in?(1+s)/2:1; }
+       if(mglchr(sch,'_'))     {       x=0;    y=in?(1-s)/2:0; }
        Colorbar(v, sch, x, y, 1, 1);
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::Colorbar(HCDT v, const char *sch, mreal x, mreal y, mreal w, mreal h)
 {
-       bool in = sch && strchr(sch,'I');
+       bool in = mglchr(sch,'I');
        int where = 0;
-       if(sch && strchr(sch,'>'))      where = in?1:0;
-       if(sch && strchr(sch,'<'))      where = in?0:1;
-       if(sch && strchr(sch,'^'))      where = in?3:2;
-       if(sch && strchr(sch,'_'))      where = in?2:3;
-       if(sch && strchr(sch,'A'))      {       Push(); Identity();     }
+       if(mglchr(sch,'>'))     where = in?1:0;
+       if(mglchr(sch,'<'))     where = in?0:1;
+       if(mglchr(sch,'^'))     where = in?3:2;
+       if(mglchr(sch,'_'))     where = in?2:3;
+       if(mglchr(sch,'A'))     {       Push(); Identity();     }
 
        mreal *c=new mreal[v->GetNx()];
        if(!mgl_have_color(sch))        sch = MGL_DEF_PAL;
@@ -838,13 +890,13 @@ void mglCanvas::Colorbar(HCDT v, const char *sch, mreal x, mreal y, mreal w, mre
        for(long i=0;i<v->GetNx();i++)  c[i] = s+i*dc;
        colorbar(v, c, where, x, y, w, h);
        delete []c;
-       if(sch && strchr(sch,'A'))      Pop();
+       if(mglchr(sch,'A'))     Pop();
 }
 //-----------------------------------------------------------------------------
 void mglCanvas::colorbar(HCDT vv, const mreal *c, int where, mreal x, mreal y, mreal w, mreal h)
 {
        static int cgid=1;      StartGroup("Colorbar",cgid++);
-       register unsigned long i,n=vv->GetNx();
+       register size_t i,n=vv->GetNx();
        long n1,n2,n3,n4;
        mreal d,s3=B.pf,ss=1/s3;                // NOTE: colorbar was wider ss=0.9;
        mglPoint p1,p2;
@@ -887,7 +939,7 @@ void mglCanvas::colorbar(HCDT vv, const mreal *c, int where, mreal x, mreal y, m
        }
        else    {       UpdateAxis();   AdjustTicks(ac,fa);     }
        // hint for using standard label drawing function
-       mreal cc=AddTexture('k');
+       SetPenPal(*TickStl ? TickStl:"k-1");
        for(i=0;i<ac.txt.size();i++)
        {
                d = ac.txt[i].val = GetA(ac.txt[i].val)*2-1;
@@ -899,7 +951,7 @@ void mglCanvas::colorbar(HCDT vv, const mreal *c, int where, mreal x, mreal y, m
                        case 3: p1.y = y;       p2.y = y+0.1*h; break;
                        default:p1.x = x-0.1*w; p2.x = x;       break;
                }
-               n1 = AddPnt(p1,cc);     n2 = AddPnt(p2,cc);
+               n1 = AddPnt(p1);        n2 = AddPnt(p2);
                line_plot(n1,n2);
        }
        ac.dir = mglPoint(ss*w,ss*h,0);

diff --git a/src/base.cpp b/src/base.cpp
index 58a70ca6732c6a588f5b11ddb9425ac42a1e97f5..71085bf5ad240d0e4995787be1df49779f2dd382 100644 (file)
--- a/src/base.cpp
+++ b/src/base.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * base.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,6 +17,7 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
+#include "mgl2/font.h"\r
 #include "mgl2/base.h"\r
 #include "mgl2/define.h"\r
 //-----------------------------------------------------------------------------\r
@@ -27,10 +28,52 @@ char *mgl_strdup(const char *s)
        return r;\r
 }\r
 //-----------------------------------------------------------------------------\r
+void mgl_create_cpp_font(HMGL gr, const wchar_t *how)\r
+{\r
+       unsigned long l=wcslen(how), i, n=0, m;\r
+       wchar_t ch=*how;\r
+       const mglFont *f = gr->GetFont();\r
+       std::vector<wchar_t> s; s.push_back(ch);\r
+       for(i=1;i<l;i++)\r
+               if(how[i]==',') continue;\r
+               else if(how[i]=='-' && i+1<l)\r
+                       for(ch++;ch<how[i+1];ch++)      s.push_back(ch);\r
+               else    s.push_back(ch=how[i]);\r
+       for(i=l=n=0;i<s.size();i++)\r
+       {\r
+               ch = f->Internal(s[i]);\r
+               l += 2*f->GetNl(0,ch);\r
+               n += 6*f->GetNt(0,ch);\r
+       }\r
+       printf("unsigned mgl_numg=%lu, mgl_cur=%lu;\n",(unsigned long)s.size(),l+n);\r
+       printf("float mgl_fact=%g;\n",f->GetFact(0)/mgl_fgen);\r
+       printf("long mgl_gen_fnt[%lu][6] = {\n", (unsigned long)s.size());\r
+       for(i=m=0;i<s.size();i++)       // first write symbols descriptions\r
+       {\r
+               ch = f->Internal(s[i]);\r
+               int m1 = f->GetNl(0,ch), m2 = f->GetNt(0,ch);\r
+               printf("\t{0x%x,%d,%d,%lu,%d,%lu},\n",s[i],f->GetWidth(0,ch),m1,m,m2,m+2*m1);\r
+               m += 2*m1+6*m2;\r
+       }\r
+       if(m!=l+n)      printf("#error \"%lu !=%lu + %lu\"",m,l,n);\r
+       printf("};\nshort mgl_buf_fnt[%lu] = {\n",m);\r
+       for(i=0;i<s.size();i++)         // now write data itself\r
+       {\r
+               ch = f->Internal(s[i]);\r
+               unsigned m1 = f->GetNl(0,ch), m2 = f->GetNt(0,ch);\r
+               const short *ln = f->GetLn(0,ch), *tr = f->GetTr(0,ch);\r
+               for(l=0;l<2*m1;l++)     printf("%d,",ln[l]);\r
+               printf("\n");\r
+               for(l=0;l<6*m2;l++)     printf("%d,",tr[l]);\r
+               printf("\n");\r
+       }\r
+       printf("};\n");\r
+}\r
+//-----------------------------------------------------------------------------\r
 void mgl_strtrim(char *str)\r
 {\r
        char *c = mgl_strdup(str);\r
-       unsigned long n=strlen(str);\r
+       size_t n=strlen(str);\r
        long k;\r
        for(k=0;k<long(strlen(str));k++)        // óäàëÿåì íà÷àëüíûå ïðîáåëû\r
                if(str[k]>' ')  break;\r
@@ -55,21 +98,55 @@ mglBase::mglBase()
 #if MGL_HAVE_PTHREAD\r
        pthread_mutex_init(&mutexPnt,0);\r
        pthread_mutex_init(&mutexTxt,0);\r
+       pthread_mutex_init(&mutexSub,0);\r
+       pthread_mutex_init(&mutexLeg,0);\r
+       pthread_mutex_init(&mutexPrm,0);\r
+       pthread_mutex_init(&mutexPtx,0);\r
+       pthread_mutex_init(&mutexStk,0);\r
+       pthread_mutex_init(&mutexGrp,0);\r
+       pthread_mutex_init(&mutexGlf,0);\r
+       pthread_mutex_init(&mutexAct,0);\r
+       pthread_mutex_init(&mutexDrw,0);\r
 #endif\r
-       fnt=0;  *FontDef=0;\r
-       fx=fy=fz=fa=fc=0;\r
+       fnt=0;  *FontDef=0;     fx=fy=fz=fa=fc=0;\r
+       AMin = mglPoint(0,0,0,0);       AMax = mglPoint(1,1,1,1);\r
 \r
-       InUse = 1;      SetQuality();\r
+       InUse = 1;      SetQuality();   FaceNum = 0;\r
        // Always create default palette txt[0] and default scheme txt[1]\r
        Txt.reserve(3);\r
-       Txt.push_back(mglTexture(MGL_DEF_PAL,-1));\r
-       Txt.push_back(mglTexture("BbcyrR",1));\r
+       MGL_PUSH(Txt,mglTexture(MGL_DEF_PAL,-1),mutexTxt);\r
+       MGL_PUSH(Txt,mglTexture("BbcyrR",1),mutexTxt);\r
        memcpy(last_style,"{k5}-1\0",8);\r
        MinS=mglPoint(-1,-1,-1);        MaxS=mglPoint(1,1,1);\r
+       fnt = new mglFont;      fnt->gr = this; PrevState=NAN;\r
+}\r
+mglBase::~mglBase()    {       ClearEq();      delete fnt;     }\r
+//-----------------------------------------------------------------------------\r
+void mglBase::RestoreFont()    {       fnt->Restore(); }\r
+void mglBase::LoadFont(const char *name, const char *path)\r
+{      if(name && *name)       fnt->Load(name,path);   else    fnt->Restore(); }\r
+void mglBase::CopyFont(mglBase *gr)    {       fnt->Copy(gr->GetFont());       }\r
+//-----------------------------------------------------------------------------\r
+mreal mglBase::TextWidth(const char *text, const char *font, mreal size) const\r
+{      return (size<0?-size*FontSize:size)*font_factor*fnt->Width(text,(font&&*font)?font:FontDef)/20.16;      }\r
+mreal mglBase::TextWidth(const wchar_t *text, const char *font, mreal size) const\r
+{      return (size<0?-size*FontSize:size)*font_factor*fnt->Width(text,(font&&*font)?font:FontDef)/20.16;      }\r
+mreal mglBase::TextHeight(const char *font, mreal size) const\r
+{      return (size<0?-size*FontSize:size)*font_factor*fnt->Height(font?font:FontDef)/20.16; }\r
+void mglBase::AddActive(long k,int n)\r
+{\r
+       if(k<0 || (size_t)k>=Pnt.size())        return;\r
+       mglActivePos p;\r
+       const mglPnt &q=Pnt[k];\r
+       int h=GetHeight();\r
+       p.x = int(q.x); p.y = h>1?h-1-int(q.y):int(q.y);\r
+       p.id = ObjId;   p.n = n;\r
+       MGL_PUSH(Act,p,mutexAct);\r
 }\r
-mglBase::~mglBase()    {       ClearEq();      }\r
 //-----------------------------------------------------------------------------\r
 mreal mglBase::GetRatio() const        {       return 1;       }\r
+int mglBase::GetWidth() const  {       return 1;       }\r
+int mglBase::GetHeight() const {       return 1;       }\r
 //-----------------------------------------------------------------------------\r
 void mglBase::StartGroup(const char *name, int id)\r
 {\r
@@ -111,6 +188,40 @@ void mglBase::SetWarn(int code, const char *who)
        LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
+//             Add glyph to the buffer\r
+//-----------------------------------------------------------------------------\r
+void mglGlyph::Create(long Nt, long Nl)\r
+{\r
+       if(Nt<0 || Nl<0)        return;\r
+       nt=Nt;  nl=Nl;  \r
+       if(trig)        delete []trig;\r
+       trig = nt>0?new short[6*nt]:0;\r
+       if(line)        delete []line;\r
+       line = nl>0?new short[2*nl]:0;\r
+}\r
+//-----------------------------------------------------------------------------\r
+bool mglGlyph::operator==(const mglGlyph &g)\r
+{\r
+       if(nl!=g.nl || nt!=g.nt)        return false;\r
+       if(trig && memcmp(trig,g.trig,6*nt*sizeof(short)))      return false;\r
+       if(line && memcmp(line,g.line,2*nl*sizeof(short)))      return false;\r
+       return true;\r
+}\r
+//-----------------------------------------------------------------------------\r
+long mglBase::AddGlyph(int s, long j)\r
+{\r
+       // first create glyph for current typeface\r
+       s = s&3;\r
+       mglGlyph g(fnt->GetNt(s,j), fnt->GetNl(s,j));   \r
+       memcpy(g.trig, fnt->GetTr(s,j), 6*g.nt*sizeof(short));\r
+       memcpy(g.line, fnt->GetLn(s,j), 2*g.nl*sizeof(short));\r
+       // now let find the similar glyph\r
+       register size_t i;\r
+       for(i=0;i<Glf.size();i++)       if(g==Glf[i])   return i;\r
+       // if no one then let add it\r
+       MGL_PUSH(Glf,g,mutexGlf);       return Glf.size()-1;\r
+}\r
+//-----------------------------------------------------------------------------\r
 //             Add points to the buffer\r
 //-----------------------------------------------------------------------------\r
 long mglBase::AddPnt(mglPoint p, mreal c, mglPoint n, mreal a, int scl)\r
@@ -134,19 +245,19 @@ long mglBase::AddPnt(mglPoint p, mreal c, mglPoint n, mreal a, int scl)
                q.c=c;  q.t=q.ta=a;     q.u=n.x;        q.v=n.y;        q.w=n.z;\r
        }\r
        register long ci=long(c);\r
-       if(ci<0 || ci>=Txt.size())      ci=0;   // NOTE never should be here!!!\r
+       if(ci<0 || ci>=(long)Txt.size())        ci=0;   // NOTE never should be here!!!\r
        const mglTexture &txt=Txt[ci];\r
        txt.GetC(c,a,q);        // RGBA color\r
 \r
        // add gap for texture coordinates for compatibility with OpenGL\r
-       const mreal gap = 1./512;\r
+       const mreal gap = 0./512;\r
        q.c = ci+(q.c-ci)*(1-2*gap)+gap;\r
        q.t = q.t*(1-2*gap)+gap;\r
        q.ta = q.t;\r
        \r
+       if(scl&8 && scl>0)      q.a=a;  // bypass palette for enabling alpha in Error()\r
        if(!get(MGL_ENABLE_ALPHA))      {       q.a=1;  if(txt.Smooth!=2)       q.ta=1-gap;     }\r
 //     if(q.ta<0.005)  q.ta = 0.005;   // bypass OpenGL/OBJ/PRC bug\r
-       if(scl&8 && scl>0)      q.a=a;  // bypass palette for enabling alpha in Error()\r
        if(!get(MGL_ENABLE_LIGHT) && !(scl&4))  q.u=q.v=NAN;\r
        MGL_PUSH(Pnt,q,mutexPnt);       return Pnt.size()-1;\r
 }\r
@@ -164,7 +275,7 @@ long mglBase::CopyProj(long from, mglPoint p, mglPoint n)
        if(from<0)      return -1;\r
        mglPnt q=Pnt[from];\r
        q.x=q.xx=p.x;   q.y=q.yy=p.y;   q.z=q.zz=p.z;\r
-       q.u=n.x;        q.v=n.y;        q.w=n.z;\r
+       q.u = n.x;              q.v = n.y;              q.w = n.z;\r
        MGL_PUSH(Pnt,q,mutexPnt);       return Pnt.size()-1;\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -259,13 +370,13 @@ bool mglBase::ScalePoint(mglPoint &p, mglPoint &n, bool use_nan) const
        mreal &x=p.x, &y=p.y, &z=p.z;\r
        if(mgl_isnan(x) || mgl_isnan(y) || mgl_isnan(z))        {       x=NAN;  return false;   }\r
        mreal x1,y1,z1,x2,y2,z2;\r
-       x1 = x>0?x*MGL_EPSILON:x/MGL_EPSILON;   x2 = x<0?x*MGL_EPSILON:x/MGL_EPSILON;\r
-       y1 = y>0?y*MGL_EPSILON:y/MGL_EPSILON;   y2 = y<0?y*MGL_EPSILON:y/MGL_EPSILON;\r
-       z1 = z>0?z*MGL_EPSILON:z/MGL_EPSILON;   z2 = z<0?z*MGL_EPSILON:z/MGL_EPSILON;\r
+       x1 = x>0?x*MGL_FEPSILON:x/MGL_FEPSILON; x2 = x<0?x*MGL_FEPSILON:x/MGL_FEPSILON;\r
+       y1 = y>0?y*MGL_FEPSILON:y/MGL_FEPSILON; y2 = y<0?y*MGL_FEPSILON:y/MGL_FEPSILON;\r
+       z1 = z>0?z*MGL_FEPSILON:z/MGL_FEPSILON; z2 = z<0?z*MGL_FEPSILON:z/MGL_FEPSILON;\r
        bool res = true;\r
        if(x2>CutMin.x && x1<CutMax.x && y2>CutMin.y && y1<CutMax.y &&\r
                z2>CutMin.z && z1<CutMax.z)     res = false;\r
-       if(fc && fc->Calc(x,y,z))       res = false;\r
+       if(fc && fc->Calc(x,y,z)!=0)    res = false;\r
 \r
        if(get(MGL_ENABLE_CUT) || !use_nan)\r
        {\r
@@ -314,7 +425,7 @@ bool mglBase::ScalePoint(mglPoint &p, mglPoint &n, bool use_nan) const
                x += 1+(y+z)/2;         y += (z+1)/3;\r
                n.x += (n.y+n.z)/2;     n.y += n.z/3;\r
        }\r
-       if(fabs(x)>MGL_EPSILON || fabs(y)>MGL_EPSILON || fabs(z)>MGL_EPSILON)   res = false;\r
+       if(fabs(x)>MGL_FEPSILON || fabs(y)>MGL_FEPSILON || fabs(z)>MGL_FEPSILON)        res = false;\r
 \r
        if(!res && use_nan)     x = NAN;        // extra sign that point shouldn't be plotted\r
        return res;\r
@@ -322,6 +433,35 @@ bool mglBase::ScalePoint(mglPoint &p, mglPoint &n, bool use_nan) const
 //-----------------------------------------------------------------------------\r
 //             Ranges\r
 //-----------------------------------------------------------------------------\r
+void mglScaleAxis(mreal &v1, mreal &v2, mreal &v0, mreal x1, mreal x2)\r
+{\r
+       if(x1==x2 || v1==v2)    return;\r
+       mreal dv,d0;    x2-=1;\r
+       if(v1*v2>0 && (v2/v1>=100 || v2/v1<=0.01))      // log scale\r
+       {\r
+               dv=log(v2/v1);  d0 = log(v0/v1)/log(v2/v1);\r
+               v1*=exp(dv*x1); v2*=exp(dv*x2); v0=v1*exp(d0*log(v2/v1));\r
+       }\r
+       else\r
+       {\r
+               dv=v2-v1;       d0=(v0-v1)/(v2-v1);\r
+               v1+=dv*x1;      v2+=dv*x2;      v0=v1+d0*(v2-v1);\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglBase::SetOrigin(mreal x0, mreal y0, mreal z0, mreal c0)\r
+{\r
+       Org=mglPoint(x0,y0,z0,c0);\r
+       if((TernAxis&3)==0)\r
+       {\r
+               Min = OMin;     Max = OMax;\r
+               mglScaleAxis(Min.x, Max.x, Org.x, AMin.x, AMax.x);\r
+               mglScaleAxis(Min.y, Max.y, Org.y, AMin.y, AMax.y);\r
+               mglScaleAxis(Min.z, Max.z, Org.z, AMin.z, AMax.z);\r
+               mglScaleAxis(Min.c, Max.c, Org.c, AMin.c, AMax.c);\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
 void mglBase::SetRanges(mglPoint m1, mglPoint m2)\r
 {\r
        if(m1.x!=m2.x)  {       Min.x=m1.x;     Max.x=m2.x;     }\r
@@ -329,15 +469,23 @@ void mglBase::SetRanges(mglPoint m1, mglPoint m2)
        if(m1.z!=m2.z)  {       Min.z=m1.z;     Max.z=m2.z;     }\r
        if(m1.c!=m2.c)  {       Min.c=m1.c;     Max.c=m2.c;     }\r
        else                    {       Min.c=Min.z;Max.c=Max.z;}\r
-//     if(AutoOrg)\r
+\r
+       if(Org.x<Min.x && !mgl_isnan(Org.x))    Org.x = Min.x;\r
+       if(Org.x>Max.x && !mgl_isnan(Org.x))    Org.x = Max.x;\r
+       if(Org.y<Min.y && !mgl_isnan(Org.y))    Org.y = Min.y;\r
+       if(Org.y>Max.y && !mgl_isnan(Org.y))    Org.y = Max.y;\r
+       if(Org.z<Min.z && !mgl_isnan(Org.z))    Org.z = Min.z;\r
+       if(Org.z>Max.z && !mgl_isnan(Org.z))    Org.z = Max.z;\r
+\r
+       if((TernAxis&3)==0)\r
        {\r
-               if(Org.x<Min.x && !mgl_isnan(Org.x))    Org.x = Min.x;\r
-               if(Org.x>Max.x && !mgl_isnan(Org.x))    Org.x = Max.x;\r
-               if(Org.y<Min.y && !mgl_isnan(Org.y))    Org.y = Min.y;\r
-               if(Org.y>Max.y && !mgl_isnan(Org.y))    Org.y = Max.y;\r
-               if(Org.z<Min.z && !mgl_isnan(Org.z))    Org.z = Min.z;\r
-               if(Org.z>Max.z && !mgl_isnan(Org.z))    Org.z = Max.z;\r
-       }\r
+               OMax = Max;     OMin = Min;\r
+               mglScaleAxis(Min.x, Max.x, Org.x, AMin.x, AMax.x);\r
+               mglScaleAxis(Min.y, Max.y, Org.y, AMin.y, AMax.y);\r
+               mglScaleAxis(Min.z, Max.z, Org.z, AMin.z, AMax.z);\r
+               mglScaleAxis(Min.c, Max.c, Org.c, AMin.c, AMax.c);\r
+       }       \r
+\r
        CutMin = mglPoint(0,0,0);       CutMax = mglPoint(0,0,0);\r
        RecalcBorder();\r
 }\r
@@ -361,6 +509,11 @@ void mglBase::CRange(HCDT a,bool add, mreal fact)
        }\r
        if(Org.c<Min.c && !mgl_isnan(Org.c))    Org.c = Min.c;\r
        if(Org.c>Max.c && !mgl_isnan(Org.c))    Org.c = Max.c;\r
+       if((TernAxis&3)==0)\r
+       {\r
+               OMax.c = Max.c; OMin.c = Min.c;\r
+               mglScaleAxis(Min.c, Max.c, Org.c, AMin.c, AMax.c);\r
+       }\r
        RecalcCRange();\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -383,6 +536,11 @@ void mglBase::XRange(HCDT a,bool add,mreal fact)
        }\r
        if(Org.x<Min.x && !mgl_isnan(Org.x))    Org.x = Min.x;\r
        if(Org.x>Max.x && !mgl_isnan(Org.x))    Org.x = Max.x;\r
+       if((TernAxis&3)==0)\r
+       {\r
+               OMax.x = Max.x; OMin.x = Min.x;\r
+               mglScaleAxis(Min.x, Max.x, Org.x, AMin.x, AMax.x);\r
+       }\r
        RecalcBorder();\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -405,6 +563,12 @@ void mglBase::YRange(HCDT a,bool add,mreal fact)
        }\r
        if(Org.y<Min.y && !mgl_isnan(Org.y))    Org.y = Min.y;\r
        if(Org.y>Max.y && !mgl_isnan(Org.y))    Org.y = Max.y;\r
+       if((TernAxis&3)==0)\r
+       {\r
+               OMax.y = Max.y; OMin.y = Min.y;\r
+               mglScaleAxis(Min.y, Max.y, Org.y, AMin.y, AMax.y);\r
+       \r
+       }\r
        RecalcBorder();\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -427,6 +591,11 @@ void mglBase::ZRange(HCDT a,bool add,mreal fact)
        }\r
        if(Org.z<Min.z && !mgl_isnan(Org.z))    Org.z = Min.z;\r
        if(Org.z>Max.z && !mgl_isnan(Org.z))    Org.z = Max.z;\r
+       if((TernAxis&3)==0)\r
+       {\r
+               OMax.z = Max.z; OMin.z = Min.z;\r
+               mglScaleAxis(Min.z, Max.z, Org.z, AMin.z, AMax.z);\r
+       }\r
        RecalcBorder();\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -450,7 +619,7 @@ void mglBase::Ternary(int t)
                SetRanges(mglPoint(0,0),mglPoint(1,1,t==1?0:1));\r
                Org=mglPoint(0,0,0);    c = false;\r
        }\r
-       else    {       SetRanges(x1,x2);       Org=o;  c=true; }\r
+       else if(!c)     {       SetRanges(x1,x2);       Org=o;  c=true; }\r
 }\r
 //-----------------------------------------------------------------------------\r
 //             Transformation functions\r
@@ -567,40 +736,60 @@ void mglTexture::Set(const char *s, int smooth, mreal alpha)
        strncpy(Sch,s,259);     Smooth=smooth;  Alpha=alpha;\r
 \r
        register long i,j=0,m=0,l=strlen(s);\r
-       const char *cols = MGL_COLORS;\r
+       const char *dig = "0123456789abcdefABCDEF";\r
+       bool map = smooth==2 || mglchr(s,'%'), sm = smooth>=0 && !strchr(s,'|');        // Use mapping, smoothed colors\r
        for(i=0;i<l;i++)                // find number of colors\r
        {\r
+               if(smooth>=0 && s[i]==':' && j<1)       break;\r
                if(s[i]=='[')   j++;    if(s[i]==']')   j--;\r
-               if(strchr(cols,s[i]) && j<1)    n++;\r
+               if(strchr(MGL_COLORS,s[i]) && j<1)      n++;\r
+               if(s[i]=='x' && i>0 && s[i-1]=='{' && j<1)      n++;\r
 //             if(smooth && s[i]==':') break;  // NOTE: should use []\r
        }\r
        if(!n)\r
        {\r
-               // it seems to be the only case where new color scheme should be\r
-               if((strchr(s,'|') || strchr(s,'!')) && !smooth)\r
-               {       n=l=6;  s="BbcyrR";     smooth = -1;    }\r
+               if((strchr(s,'|') || strchr(s,'!')) && !smooth) // sharp colors\r
+               {       n=l=6;  s="BbcyrR";     sm = false;     }\r
+               else if(smooth==0)              // none colors but color scheme\r
+               {       n=l=6;  s="BbcyrR";     }\r
                else    return;\r
        }\r
-       if(strchr(s,'|') && !smooth)    smooth = -1;\r
+       bool man=sm;\r
        mglColor *c = new mglColor[2*n];                // Colors itself\r
-       bool map = (smooth==2), sm = smooth>=0; // Use mapping, smoothed colors\r
+       mreal *val = new mreal[n];\r
        for(i=j=n=0;i<l;i++)    // fill colors\r
        {\r
+               if(smooth>=0 && s[i]==':' && j<1)       break;\r
                if(s[i]=='[')   j++;    if(s[i]==']')   j--;\r
                if(s[i]=='{')   m++;    if(s[i]=='}')   m--;\r
-               if(strchr(cols,s[i]) && j<1)            // this is color\r
+               if(strchr(MGL_COLORS,s[i]) && j<1 && (m==0 || s[i-1]=='{'))     // {CN,val} format, where val in [0,1]\r
                {\r
                        if(m>0 && s[i+1]>'0' && s[i+1]<='9')// ext color\r
                        {       c[2*n] = mglColor(s[i],(s[i+1]-'0')/5.f);       i++;    }\r
                        else    c[2*n] = mglColor(s[i]);        // usual color\r
-                       n++;\r
+                       val[n]=-1;      n++;\r
                }\r
+               if(s[i]=='x' && i>0 && s[i-1]=='{' && j<1)      // {xRRGGBB,val} format, where val in [0,1]\r
+               {\r
+                       if(strchr(dig,s[i+1]) && strchr(dig,s[i+2]) && strchr(dig,s[i+3]) && strchr(dig,s[i+4]) && strchr(dig,s[i+5]) && strchr(dig,s[i+6]))\r
+                       {\r
+                               char ss[3]="00";        c[2*n].a = 1;\r
+                               ss[0] = s[i+1]; ss[1] = s[i+2]; c[2*n].r = strtol(ss,0,16)/255.;\r
+                               ss[0] = s[i+3]; ss[1] = s[i+4]; c[2*n].g = strtol(ss,0,16)/255.;\r
+                               ss[0] = s[i+5]; ss[1] = s[i+6]; c[2*n].b = strtol(ss,0,16)/255.;\r
+                               if(strchr(dig,s[i+7]) && strchr(dig,s[i+8]))\r
+                               {       ss[0] = s[i+7]; ss[1] = s[i+8]; c[2*n].a = strtol(ss,0,16)/255.;        i+=2;   }\r
+                               val[n]=-1;      i+=6;   n++;\r
+                       }\r
+               }\r
+               if(s[i]==',' && m>0 && j<1 && n>0)\r
+                       val[n-1] = atof(s+i+1);\r
                // NOTE: User can change alpha if it placed like {AN}\r
                if(s[i]=='A' && j<1 && m>0 && s[i+1]>'0' && s[i+1]<='9')\r
-               {       alpha = 0.1*(s[i+1]-'0');       i++;    }\r
+               {       man=false;      alpha = 0.1*(s[i+1]-'0');       i++;    }\r
        }\r
        for(i=0;i<n;i++)        // default texture\r
-       {       c[2*i+1]=c[2*i];        c[2*i].a=sm?0:alpha;    c[2*i+1].a=alpha;       }\r
+       {       c[2*i+1]=c[2*i];        c[2*i].a=man?0:alpha;   c[2*i+1].a=alpha;       }\r
        if(map && sm)           // map texture\r
        {\r
                if(n==2)\r
@@ -609,9 +798,28 @@ void mglTexture::Set(const char *s, int smooth, mreal alpha)
                {       c[1]=c[2];      c[2]=c[0];      c[0]=BC;        c[3]=c[4];      n=2;}\r
                else\r
                {       c[1]=c[4];      c[3]=c[6];      n=2;    }\r
+               for(i=0;i<4;i++)        c[i].a=alpha;\r
+               val[0]=val[1]=-1;\r
+       }\r
+       // TODO if(!sm && n==1) then try to find color in palette ???\r
+\r
+       // fill missed values  of val[]\r
+       float  v1=0,v2=1;\r
+       std::vector <long>  def;\r
+       val[0]=0;       val[n-1]=1;     // boundary have to be [0,1]\r
+       for(i=0;i<n;i++) if(val[i]>0 && val[i]<1)       def.push_back(i);\r
+       def.push_back(n-1);\r
+       long i1=0,i2;\r
+       for(size_t j=0;j<def.size();j++)        for(i=i1+1;i<def[j];i++)\r
+       {\r
+               i1 = j>0?def[j-1]:0;    i2 = def[j];\r
+               v1 = val[i1];   v2 = val[i2];\r
+               v2 = i2-i1>1?(v2-v1)/(i2-i1):0;\r
+               val[i]=v1+v2*(i-i1);\r
        }\r
+       // fill texture itself\r
        register mreal u,v=sm?(n-1)/255.:n/256.;\r
-       for(i=0;i<256;i++)\r
+       for(i=0,i1=0;i<256;i++)\r
        {\r
                u = v*i;        j = long(u);    u-=j;\r
                if(!sm || j==n-1)\r
@@ -620,12 +828,29 @@ void mglTexture::Set(const char *s, int smooth, mreal alpha)
                {       col[2*i] = c[2*n-2];col[2*i+1] = c[2*n-1];      /*printf("AddTexture -- out of bounds");*/      }\r
                else\r
                {\r
+                       // advanced scheme using val\r
+                       for(;i1<n-1 && i>=255*val[i1];i1++);\r
+                       v2 = i1<n?1/(val[i1]-val[i1-1]):0;\r
+                       j=i1-1; u=(i/255.-val[j])*v2;\r
+\r
                        col[2*i] = c[2*j]*(1-u)+c[2*j+2]*u;\r
                        col[2*i+1]=c[2*j+1]*(1-u)+c[2*j+3]*u;\r
                }\r
        }\r
-//     col[510]=col[508];      col[511]=col[509];      col[0]=col[2];  col[1]=col[3];\r
-       delete []c;\r
+       delete []c;     delete []val;\r
+}\r
+//-----------------------------------------------------------------------------\r
+mglColor mglTexture::GetC(mreal u,mreal v) const\r
+{\r
+       u -= long(u);\r
+       register long i=long(255*u);    u = u*255-i;\r
+       const mglColor *s=col+2*i;      mglColor p;\r
+       p.r = (s[0].r*(1-u)+s[2].r*u)*(1-v) + (s[1].r*(1-u)+s[3].r*u)*v;\r
+       p.g = (s[0].g*(1-u)+s[2].g*u)*(1-v) + (s[1].g*(1-u)+s[3].g*u)*v;\r
+       p.b = (s[0].b*(1-u)+s[2].b*u)*(1-v) + (s[1].b*(1-u)+s[3].b*u)*v;\r
+       p.a = (s[0].a*(1-u)+s[2].a*u)*(1-v) + (s[1].a*(1-u)+s[3].a*u)*v;\r
+       //      p.a = (s[0].a*(1-u)+s[2].a*u)*v + (s[1].a*(1-u)+s[3].a*u)*(1-v);        // for alpha use inverted\r
+       return p;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglTexture::GetC(mreal u,mreal v,mglPnt &p) const\r
@@ -642,18 +867,18 @@ void mglTexture::GetC(mreal u,mreal v,mglPnt &p) const
 //-----------------------------------------------------------------------------\r
 long mglBase::AddTexture(const char *cols, int smooth)\r
 {\r
-       mglTexture t(cols,smooth);\r
+       mglTexture t(cols,smooth,smooth==2?AlphaDef:1);\r
        if(t.n==0)      return smooth<0 ? 0:1;\r
        if(smooth<0)    CurrPal=0;\r
        // check if already exist\r
-       for(unsigned long i=0;i<Txt.size();i++) if(t.IsSame(Txt[i]))    return i;\r
+       for(size_t i=0;i<Txt.size();i++)        if(t.IsSame(Txt[i]))    return i;\r
        // create new one\r
        MGL_PUSH(Txt,t,mutexTxt);       return Txt.size()-1;\r
 }\r
 //-----------------------------------------------------------------------------\r
 mreal mglBase::AddTexture(mglColor c)\r
 {\r
-       register unsigned long i,j;\r
+       register size_t i,j;\r
        if(!c.Valid())  return -1;\r
        // first lets try an existed one\r
        for(i=0;i<Txt.size();i++)       for(j=0;j<255;j++)\r
@@ -691,6 +916,21 @@ mreal mglBase::NextColor(long &id)
        return CDef;\r
 }\r
 //-----------------------------------------------------------------------------\r
+const char *mglchr(const char *str, char ch)\r
+{\r
+       if(!str || !str[0])     return NULL;\r
+       register char c;\r
+       register size_t l=strlen(str),i,k=0;\r
+       for(i=0;i<l;i++)\r
+       {\r
+               c = str[i];\r
+               if(c=='{')      k++;\r
+               if(c=='}')      k--;\r
+               if(c==ch && k==0)       return str+i;\r
+       }\r
+       return NULL;\r
+}\r
+//-----------------------------------------------------------------------------\r
 char mglBase::SetPenPal(const char *p, long *Id)\r
 {\r
        char mk=0;\r
@@ -706,11 +946,11 @@ char mglBase::SetPenPal(const char *p, long *Id)
                const char *wdh = "123456789";\r
                const char *arr = "AKDTVISO_";\r
                long m=0;\r
-               for(unsigned i=0;i<strlen(p);i++)\r
+               for(size_t i=0;i<strlen(p);i++)\r
                {\r
                        if(p[i]=='{')   m++;    if(p[i]=='}')   m--;\r
                        if(m>0) continue;\r
-                       if(strchr(stl,p[i]))\r
+                       if(mglchr(stl,p[i]))\r
                        {\r
                                switch(p[i])\r
                                {\r
@@ -725,17 +965,17 @@ char mglBase::SetPenPal(const char *p, long *Id)
                                }\r
                                last_style[4]=p[i];\r
                        }\r
-                       else if(strchr(mrk,p[i]))       mk = p[i];\r
-                       else if(strchr(wdh,p[i]))\r
+                       else if(mglchr(mrk,p[i]))       mk = p[i];\r
+                       else if(mglchr(wdh,p[i]))\r
                        {       last_style[5] = p[i];   PenWidth = p[i]-'0';    }\r
-                       else if(strchr(arr,p[i]))\r
+                       else if(mglchr(arr,p[i]))\r
                        {\r
                                if(!Arrow2)     Arrow2 = p[i];\r
                                else    Arrow1 = p[i];\r
                        }\r
                }\r
                if(Arrow1=='_') Arrow1=0;       if(Arrow2=='_') Arrow2=0;\r
-               if(strchr(p,'#'))\r
+               if(mglchr(p,'#'))\r
                {\r
                        if(mk=='.')     mk = 'C';\r
                        if(mk=='+')     mk = 'P';\r
@@ -762,7 +1002,7 @@ mreal mglBase::GetA(mreal a) const
 {\r
        if(fa)  a = fa->Calc(0,0,0,a);\r
        a = (a-FMin.c)/(FMax.c-FMin.c);\r
-       a = (a<1?(a>0?a:0):1)/MGL_EPSILON;      // for texture a must be <1 always!!!\r
+       a = (a<1?(a>0?a:0):1)/MGL_FEPSILON;     // for texture a must be <1 always!!!\r
        return a;\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -830,7 +1070,8 @@ void mglBase::SetAmbient(mreal bright)     {       AmbBr = bright; }
 //-----------------------------------------------------------------------------\r
 mreal mglBase::SaveState(const char *opt)\r
 {\r
-       if(!opt || !opt[0] || saved)    return NAN;\r
+       if(saved)       return PrevState;\r
+       if(!opt || !opt[0])     return NAN;\r
        MSS=MarkSize;   ASS=ArrowSize;\r
        FSS=FontSize;   ADS=AlphaDef;\r
        MNS=MeshNum;    CSS=Flag;       LSS=AmbBr;\r
@@ -841,6 +1082,7 @@ mreal mglBase::SaveState(const char *opt)
        mgl_strtrim(q);\r
        // NOTE: not consider '#' inside legend entry !!!\r
        s=strchr(q,'#');        if(s)   *s=0;\r
+       mreal res=NAN;\r
        while(q && *q)\r
        {\r
                s=q;    q=strchr(s,';');\r
@@ -871,11 +1113,11 @@ mreal mglBase::SaveState(const char *opt)
                else if(!strcmp(a,"diffuse"))   SetDifLight(ff);\r
                else if(!strcmp(a,"size"))\r
                {       SetMarkSize(ff);        SetFontSize(ff);        SetArrowSize(ff);       }\r
-               else if(!strcmp(a,"num") || !strcmp(a,"number") || !strcmp(a,"value"))  return ff;\r
+               else if(!strcmp(a,"num") || !strcmp(a,"number") || !strcmp(a,"value"))  res=ff;\r
                else if(!strcmp(a,"legend"))\r
                {       if(*b=='\'')    {       b++;    b[strlen(b)-1]=0;       }       leg_str = b;    }\r
        }\r
-       free(qi);       return NAN;\r
+       free(qi);       PrevState=res;  return res;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglBase::LoadState()\r
@@ -893,7 +1135,7 @@ void mglBase::AddLegend(const wchar_t *text,const char *style)
 void mglBase::AddLegend(const char *str,const char *style)\r
 {\r
        if(!str)        return;\r
-       unsigned s = strlen(str)+1;\r
+       size_t s = strlen(str)+1;\r
        wchar_t *wcs = new wchar_t[s];\r
        mbstowcs(wcs,str,s);\r
        AddLegend(wcs, style);\r
@@ -902,6 +1144,7 @@ void mglBase::AddLegend(const char *str,const char *style)
 //-----------------------------------------------------------------------------\r
 bool mgl_check_dim2(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *name, bool less)\r
 {\r
+//     if(!gr || !x || !y || !z)       return true;            // if data is absent then should be segfault!!!\r
        register long n=z->GetNx(),m=z->GetNy();\r
        if(n<2 || m<2)  {       gr->SetWarn(mglWarnLow,name);   return true;    }\r
        if(a && n*m*z->GetNz()!=a->GetNx()*a->GetNy()*a->GetNz())\r
@@ -911,20 +1154,40 @@ bool mgl_check_dim2(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *name, b
                if(x->GetNx()<n)\r
                {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
                if(y->GetNx()<m && (x->GetNy()<m || y->GetNx()<n || y->GetNy()<m))\r
-               {       gr->SetWarn(mglWarnDim,name);   return true;    };\r
+               {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
        }\r
        else\r
        {\r
                if(x->GetNx()!=n)\r
                {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
                if(y->GetNx()!=m && (x->GetNy()!=m || y->GetNx()!=n || y->GetNy()!=m))\r
-               {       gr->SetWarn(mglWarnDim,name);   return true;    };\r
+               {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+       }\r
+       return false;\r
+}\r
+//-----------------------------------------------------------------------------\r
+bool mgl_check_dim0(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *name, bool less)\r
+{\r
+//     if(!gr || !x || !y)     return true;            // if data is absent then should be segfault!!!\r
+       register long n=y->GetNx();\r
+       if(less)\r
+       {\r
+               if(x->GetNx()<n)                {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+               if(z && z->GetNx()<n)   {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+               if(r && r->GetNx()<n)   {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+       }\r
+       else\r
+       {\r
+               if(x->GetNx()!=n)               {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+               if(z && z->GetNx()!=n)  {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
+               if(r && r->GetNx()!=n)  {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
        }\r
        return false;\r
 }\r
 //-----------------------------------------------------------------------------\r
 bool mgl_check_dim1(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *name, bool less)\r
 {\r
+//     if(!gr || !x || !y)     return true;            // if data is absent then should be segfault!!!\r
        register long n=y->GetNx();\r
        if(n<2) {       gr->SetWarn(mglWarnLow,name);   return true;    }\r
        if(less)\r
@@ -944,6 +1207,7 @@ bool mgl_check_dim1(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *name, b
 //-----------------------------------------------------------------------------\r
 bool mgl_check_dim3(HMGL gr, bool both, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *name)\r
 {\r
+//     if(!gr || !x || !y || !z || !a) return true;            // if data is absent then should be segfault!!!\r
        register long n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(n<2 || m<2 || l<2)\r
        {       gr->SetWarn(mglWarnLow,name);   return true;    }\r
@@ -956,6 +1220,7 @@ bool mgl_check_dim3(HMGL gr, bool both, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b,
 //-----------------------------------------------------------------------------\r
 bool mgl_check_trig(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT a, const char *name, int d)\r
 {\r
+//     if(!gr || !x || !y || !z || !a || !nums)        return true;            // if data is absent then should be segfault!!!\r
        long n = x->GetNx(), m = nums->GetNy();\r
        if(nums->GetNx()<d)     {       gr->SetWarn(mglWarnLow,name);   return true;    }\r
        if(y->GetNx()!=n || z->GetNx()!=n)      {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
@@ -971,6 +1236,7 @@ bool mgl_isboth(HCDT x, HCDT y, HCDT z, HCDT a)
 //-----------------------------------------------------------------------------\r
 bool mgl_check_vec3(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *name)\r
 {\r
+//     if(!gr || !x || !y || !z || !ax || !ay || !az)  return true;            // if data is absent then should be segfault!!!\r
        register long n=ax->GetNx(),m=ax->GetNy(),l=ax->GetNz();\r
        if(n*m*l!=ay->GetNx()*ay->GetNy()*ay->GetNz() || n*m*l!=az->GetNx()*az->GetNy()*az->GetNz())\r
        {       gr->SetWarn(mglWarnDim,name);   return true;    }\r
@@ -981,3 +1247,47 @@ bool mgl_check_vec3(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az,
        return false;\r
 }\r
 //-----------------------------------------------------------------------------\r
+void mglBase::SetFontDef(const char *font) {   strncpy(FontDef, font, 31);     }\r
+//-----------------------------------------------------------------------------\r
+void mglBase::ClearUnused()\r
+{\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_lock(&mutexPnt);  pthread_mutex_lock(&mutexPrm);\r
+#endif\r
+       register size_t i, l=Prm.size();\r
+       // find points which are actually used\r
+       long *used = new long[Pnt.size()];      memset(used,0,Pnt.size()*sizeof(long));\r
+       for(i=0;i<l;i++)\r
+       {\r
+               const mglPrim &p=Prm[i];\r
+               if(p.n1<0)      continue;\r
+               used[p.n1] = 1;\r
+               switch(p.type)\r
+               {\r
+               case 1: if(p.n2>=0)     used[p.n2] = 1; break;\r
+               case 2: if(p.n2>=0 && p.n3>=0)\r
+                       used[p.n2] = used[p.n3] = 1;    break;\r
+               case 3: if(p.n2>=0 && p.n3>=0 && p.n4>=0)\r
+                       used[p.n2] = used[p.n3] = used[p.n4] = 1;       break;\r
+               }\r
+       }\r
+       // now add proper indexes\r
+       l=Pnt.size();\r
+       std::vector<mglPnt> pnt;\r
+       for(i=0;i<l;i++)        if(used[i])\r
+       {       pnt.push_back(Pnt[i]);  used[i]=pnt.size();     }\r
+       Pnt = pnt;      pnt.clear();\r
+       // now replace point id\r
+       l=Prm.size();\r
+       for(i=0;i<l;i++)\r
+       {\r
+               mglPrim &p=Prm[i];      p.n1=used[p.n1]-1;\r
+               if(p.type==1)   p.n2=used[p.n2]-1;\r
+               if(p.type==2)   {       p.n2=used[p.n2]-1;      p.n3=used[p.n3]-1;      }\r
+               if(p.type==3)   {       p.n2=used[p.n2]-1;      p.n3=used[p.n3]-1;      p.n4=used[p.n4]-1;      }\r
+       }\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_unlock(&mutexPnt);        pthread_mutex_unlock(&mutexPrm);\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/base_cf.cpp b/src/base_cf.cpp
index deb3d4eb92a682174ed4c819e94e924f08fd7948..6c01a9c2c1b8abbe58d89c6278f389275e0cc858 100644 (file)
--- a/src/base_cf.cpp
+++ b/src/base_cf.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * base.cpp is part of Math gric Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -17,6 +17,7 @@
  *   Free Software Foundation, Inc.,                                       *\r
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
+#include "mgl2/font.h"\r
 #include "mgl2/base_cf.h"\r
 //-----------------------------------------------------------------------------\r
 //\r
@@ -26,7 +27,7 @@
 int mgl_get_flag(HMGL gr, long flag)                   {       return gr->get(flag);   }\r
 void mgl_set_flag(HMGL gr, int val, long flag) {       gr->set(val,flag);      }\r
 //-----------------------------------------------------------------------------\r
-void mgl_set_color(char id, mreal r, mreal g, mreal b)\r
+void mgl_set_color(char id, double r, double g, double b)\r
 {\r
        register size_t i;\r
        for(i=0;mglColorIds[i].id;i++)  if(mglColorIds[i].id==id)       mglColorIds[i].col = mglColor(r,g,b);\r
@@ -36,29 +37,31 @@ void mgl_set_color_(char *id, mreal *r, mreal *g, mreal *b, int)    {       mgl_set_color
 void mgl_set_def_sch(HMGL gr, const char *sch) {       gr->SetDefScheme(sch);  }\r
 void mgl_set_def_sch_(uintptr_t *gr, const char *sch,int l)\r
 {      char *s=new char[l+1];  memcpy(s,sch,l);        s[l]=0;\r
-       _GR_->SetDefScheme(s);  delete []s;     }\r
+       mgl_set_def_sch(_GR_, s);       delete []s;     }\r
 //-----------------------------------------------------------------------------\r
 const char *mgl_get_mess(HMGL gr)      {       return gr->Mess.c_str();        }\r
 int mgl_get_warn(HMGL gr)      {       return gr->GetWarn();   }\r
 void mgl_set_warn(HMGL gr, int code, const char *txt)\r
 {      gr->SetWarn(code,txt);  }\r
-void mgl_set_origin(HMGL gr, mreal x0, mreal y0, mreal z0)\r
+void mgl_set_origin(HMGL gr, double x0, double y0, double z0)\r
 {      gr->SetOrigin(x0,y0,z0);        }\r
 void mgl_set_palette(HMGL gr, const char *colors)\r
 {      gr->SetPalette(colors); }\r
 void mgl_set_meshnum(HMGL gr, int num) {       gr->SetMeshNum(num);    }\r
-void mgl_set_alpha_default(HMGL gr, mreal alpha)       {       gr->SetAlphaDef(alpha); }\r
+void mgl_set_facenum(HMGL gr, int num) {       gr->FaceNum=num;                }\r
+void mgl_set_alpha_default(HMGL gr, double alpha)      {       gr->SetAlphaDef(alpha); }\r
 void mgl_set_light_dif(HMGL gr, int enable)            {       gr->SetDifLight(enable);        }\r
+void mgl_clear_unused(HMGL gr) {       gr->ClearUnused();      }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_rdc_acc(HMGL gr, int reduce)      {       gr->SetReduceAcc(reduce);       }\r
 void mgl_highlight(HMGL gr, int id)                    {       gr->Highlight(id);      }\r
 void mgl_set_cut(HMGL gr, int cut)     {       gr->SetCut(cut);        }\r
-void mgl_set_cut_box(HMGL gr, mreal x1,mreal y1,mreal z1,mreal x2,mreal y2,mreal z2)\r
+void mgl_set_cut_box(HMGL gr, double x1,double y1,double z1,double x2,double y2,double z2)\r
 {      gr->SetCutBox(x1,y1,z1,x2,y2,z2);       }\r
 void mgl_set_cutoff(HMGL gr, const char *EqC)  {       gr->CutOff(EqC);        }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_ternary(HMGL gr, int enable)                      {       gr->Ternary(enable);    }\r
-void mgl_set_range_val(HMGL gr, char dir, mreal v1,mreal v2)\r
+void mgl_set_range_val(HMGL gr, char dir, double v1,double v2)\r
 {\r
        if(dir=='c')            gr->CRange(v1,v2);\r
        else if(dir=='x')       gr->XRange(v1,v2);\r
@@ -70,17 +73,13 @@ void mgl_set_range_dat(HMGL gr, char dir, HCDT a, int add)
        else if(dir=='x')       gr->XRange(a,add);\r
        else if(dir=='y')       gr->YRange(a,add);\r
        else if(dir=='z')       gr->ZRange(a,add);      }\r
-void mgl_set_ranges(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2)\r
+void mgl_set_ranges(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2)\r
 {      gr->SetRanges(x1,y1,z1,x2,y2,z2);       }\r
 void mgl_set_func(HMGL gr, const char *EqX,const char *EqY,const char *EqZ,const char *EqA)\r
 {      gr->SetFunc(EqX,EqY,EqZ,EqA);   }\r
 void mgl_set_coor(HMGL gr, int how)    {       gr->SetCoor(how);       }\r
 //-----------------------------------------------------------------------------\r
-long mgl_data_get_nx(HCDT d)   {       return  d->GetNx();     }\r
-long mgl_data_get_ny(HCDT d)   {       return  d->GetNy();     }\r
-long mgl_data_get_nz(HCDT d)   {       return  d->GetNz();     }\r
-//-----------------------------------------------------------------------------\r
-void mgl_set_bar_width(HMGL gr, mreal width)   {       gr->SetBarWidth(width); }\r
+void mgl_set_bar_width(HMGL gr, double width)  {       gr->SetBarWidth(width); }\r
 //-----------------------------------------------------------------------------\r
 //\r
 //             Fortran interfaces\r
@@ -99,10 +98,12 @@ void mgl_set_palette_(uintptr_t *gr, const char *colors, int l)
 {      char *s=new char[l+1];  memcpy(s,colors,l);     s[l]=0;\r
        _GR_->SetPalette(s);    delete []s;     }\r
 void mgl_set_meshnum_(uintptr_t *gr, int *num) {       _GR_->SetMeshNum(*num); }\r
+void mgl_set_facenum_(uintptr_t *gr, int *num) {       _GR_->FaceNum=*num;             }\r
 void mgl_set_alpha_default_(uintptr_t *gr, mreal *alpha)       {       _GR_->SetAlphaDef(*alpha);      }\r
 void mgl_set_light_dif_(uintptr_t *gr, int *enable)                    {       _GR_->SetDifLight(*enable);     }\r
+void mgl_clear_unused_(uintptr_t *gr)  {       _GR_->ClearUnused();    }\r
 //-----------------------------------------------------------------------------\r
-void mgl_set_cut_box_(uintptr_t *gr, mreal *x1,mreal *y1,mreal *z1,mreal *x2,mreal *y2,mreal *z2)\r
+void mgl_set_cut_box_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2)\r
 {      _GR_->SetCutBox(*x1,*y1,*z1,*x2,*y2,*z2);       }\r
 void mgl_set_cut_(uintptr_t *gr, int *cut)     {       _GR_->SetCut(*cut);     }\r
 void mgl_set_cutoff_(uintptr_t *gr, const char *EqC, int l)\r
@@ -110,7 +111,7 @@ void mgl_set_cutoff_(uintptr_t *gr, const char *EqC, int l)
        _GR_->CutOff(s);        delete []s;     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_ternary_(uintptr_t *gr, int *enable)      {       _GR_->Ternary(*enable); }\r
-void mgl_set_range_val_(uintptr_t *gr, const char *dir, mreal *v1,mreal *v2,int)\r
+void mgl_set_range_val_(uintptr_t *gr, const char *dir, mreal *v1, mreal *v2,int)\r
 {      mgl_set_range_val(_GR_,*dir,*v1,*v2);   }\r
 void mgl_set_range_dat_(uintptr_t *gr, const char *dir, uintptr_t *a, int *add,int)\r
 {      mgl_set_range_dat(_GR_,*dir,_DA_(a),*add);      }\r
@@ -128,24 +129,20 @@ void mgl_set_func_(uintptr_t *gr, const char *EqX,const char *EqY,const char *Eq
 void mgl_set_coor_(uintptr_t *gr, int *how)\r
 {      _GR_->SetCoor(*how);    }\r
 //-----------------------------------------------------------------------------\r
-long mgl_data_get_nx_(uintptr_t *d)    {       return  _DA_(d)->GetNx();       }\r
-long mgl_data_get_ny_(uintptr_t *d)    {       return  _DA_(d)->GetNy();       }\r
-long mgl_data_get_nz_(uintptr_t *d)    {       return  _DA_(d)->GetNz();       }\r
-//-----------------------------------------------------------------------------\r
 void mgl_set_tick_rotate(HMGL gr, int enable){ gr->SetTickRotate(enable);      }\r
 void mgl_set_tick_skip(HMGL gr, int enable)    {       gr->SetTickSkip(enable);        }\r
 void mgl_set_tick_rotate_(uintptr_t *gr,int *enable){  _GR_->SetTickRotate(*enable);   }\r
 void mgl_set_tick_skip_(uintptr_t *gr, int *enable)    {       _GR_->SetTickSkip(*enable);     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_rotated_text(HMGL gr, int enable) {       gr->SetRotatedText(enable);     }\r
-void mgl_set_mark_size(HMGL gr, mreal size)            {       gr->SetMarkSize(size);  }\r
-void mgl_set_arrow_size(HMGL gr, mreal size)   {       gr->SetArrowSize(size); }\r
-void mgl_set_font_size(HMGL gr, mreal size)            {       gr->SetFontSize(size);  }\r
+void mgl_set_mark_size(HMGL gr, double size)           {       gr->SetMarkSize(size);  }\r
+void mgl_set_arrow_size(HMGL gr, double size)  {       gr->SetArrowSize(size); }\r
+void mgl_set_font_size(HMGL gr, double size)           {       gr->SetFontSize(size);  }\r
 void mgl_set_font_def(HMGL gr, const char *fnt)        {       gr->SetFontDef(fnt);    }\r
 void mgl_load_font(HMGL gr, const char *name, const char *path)\r
-{      if(name && *name)       gr->GetFont()->Load(name,path); else    gr->GetFont()->Restore();       }\r
-void mgl_copy_font(HMGL gr, HMGL gr_from)              {       gr->GetFont()->Copy(gr_from->GetFont());        }\r
-void mgl_restore_font(HMGL gr) {       gr->GetFont()->Restore();       }\r
+{      gr->LoadFont(name,path);        }\r
+void mgl_copy_font(HMGL gr, HMGL gr_from)      {       gr->CopyFont(gr_from);  }\r
+void mgl_restore_font(HMGL gr) {       gr->RestoreFont();      }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_bar_width_(uintptr_t *gr, mreal *width)   {       _GR_->SetBarWidth(*width);      }\r
 void mgl_set_rotated_text_(uintptr_t *gr, int *rotated)        {       _GR_->SetRotatedText(*rotated); }\r
@@ -158,10 +155,18 @@ void mgl_set_font_def_(uintptr_t *gr, char *name, int l)
 void mgl_load_font_(uintptr_t *gr, char *name, char *path, int l,int n)\r
 {      char *s=new char[l+1];          memcpy(s,name,l);       s[l]=0;\r
        char *d=new char[n+1];          memcpy(d,path,n);       d[n]=0;\r
-       _GR_->GetFont()->Load(s,d);     delete []s;             delete []d;     }\r
+       _GR_->LoadFont(s,d);    delete []s;             delete []d;     }\r
 void mgl_copy_font_(uintptr_t *gr, uintptr_t *gr_from)\r
-{      _GR_->GetFont()->Copy(((mglBase *)(*gr_from))->GetFont());      }\r
-void mgl_restore_font_(uintptr_t *gr)  {       _GR_->GetFont()->Restore();     }\r
+{      _GR_->CopyFont((mglBase *)(*gr_from));  }\r
+void mgl_restore_font_(uintptr_t *gr)  {       _GR_->RestoreFont();    }\r
+//-----------------------------------------------------------------------------\r
+extern mglFont mglDefFont;\r
+void mgl_def_font(const char *name, const char *path)\r
+{      mglDefFont.Load(name,path);     }\r
+void mgl_def_font_(const char *name, const char *path,int l,int n)\r
+{      char *s=new char[l+1];          memcpy(s,name,l);       s[l]=0;\r
+       char *d=new char[n+1];          memcpy(d,path,n);       d[n]=0;\r
+       mglDefFont.Load(name,path);     delete []s;             delete []d;     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_start_group(HMGL gr, const char *s)   {       gr->StartAutoGroup(s);  }\r
 void mgl_end_group(HMGL gr)    {       gr->EndGroup(); }\r
@@ -192,6 +197,11 @@ long mgl_use_graph(HMGL gr, int inc)
 long mgl_use_graph_(uintptr_t *gr, int *inc)\r
 {      return mgl_use_graph(_GR_,*inc);        }\r
 //---------------------------------------------------------------------------\r
-void mgl_set_ambbr(HMGL gr, mreal i)           {       gr->SetAmbient(i);      }\r
+void mgl_set_ambbr(HMGL gr, double i)          {       gr->SetAmbient(i);      }\r
 void mgl_set_ambbr_(uintptr_t *gr, mreal *i){  _GR_->SetAmbient(*i);   }\r
 //---------------------------------------------------------------------------\r
+void mgl_zoom_axis(HMGL gr, double x1,double y1,double z1,double c1,double x2,double y2,double z2,double c2)\r
+{      gr->ZoomAxis(mglPoint(x1,y1,z1,c1), mglPoint(x2,y2,z2,c2));     }\r
+void mgl_zoom_axis_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *c1, mreal *x2, mreal *y2, mreal *z2, mreal *c2)\r
+{      _GR_->ZoomAxis(mglPoint(*x1,*y1,*z1,*c1), mglPoint(*x2,*y2,*z2,*c2));   }\r
+//---------------------------------------------------------------------------\r

diff --git a/src/canvas.cpp b/src/canvas.cpp
index c37928dd69b575911c6d054f5faf64de20cd4e43..6494512a98f058dbc603ba2565548cd5e3ff970b 100644 (file)
--- a/src/canvas.cpp
+++ b/src/canvas.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * canvas.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -18,49 +18,130 @@
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
  ***************************************************************************/\r
 #include <limits.h>\r
+#include "mgl2/font.h"\r
 #include "mgl2/canvas.h"\r
 //-----------------------------------------------------------------------------\r
+std::string mglGlobalMess;     ///< Buffer for receiving global messages\r
+//-----------------------------------------------------------------------------\r
 mglCanvas::mglCanvas(int w, int h) : mglBase()\r
 {\r
        clr(MGL_DISABLE_SCALE);\r
+       set(MGL_VECT_FRAME);    // NOTE: require a lot of memory!\r
        Z=0;    C=G=G4=0;       OI=0;   gif=0;\r
        CurFrameId=0;   Delay=0.5;\r
        Width=Height=Depth=0;   ObjId=-1;\r
-       fscl=ftet=0;\r
+       fscl=ftet=0;            PlotId = "frame";\r
        dr_nx1=dr_nx2=dr_ny1=dr_ny2=0;  // Allowed drawing region\r
 \r
-       fnt = new mglFont;      fnt->gr = this;         ac.ch='c';\r
+       ac.ch='c';\r
        ax.dir = mglPoint(1,0,0);       ax.a = mglPoint(0,1,0); ax.b = mglPoint(0,0,1); ax.ch='x';\r
        ay.dir = mglPoint(0,1,0);       ay.a = mglPoint(1,0,0); ay.b = mglPoint(0,0,1); ay.ch='y';\r
        az.dir = mglPoint(0,0,1);       az.a = mglPoint(0,1,0); az.b = mglPoint(1,0,0); az.ch='z';\r
-#if MGL_HAVE_PTHREAD\r
-       pthread_mutex_init(&mutexSub,0);        pthread_mutex_init(&mutexLeg,0);\r
-       pthread_mutex_init(&mutexPrm,0);        pthread_mutex_init(&mutexPtx,0);\r
-       pthread_mutex_init(&mutexStk,0);        pthread_mutex_init(&mutexGrp,0);\r
-#endif\r
+\r
        SetSize(w,h);   SetQuality(MGL_DRAW_NORM);      DefaultPlotParam();\r
 }\r
 //-----------------------------------------------------------------------------\r
 mglCanvas::~mglCanvas()\r
 {\r
-       delete fnt;\r
        if(G)   {       delete []G;     delete []C;     delete []Z;     delete []G4;delete []OI;        }\r
 }\r
 //-----------------------------------------------------------------------------\r
 long mglCanvas::PushDrwDat()\r
 {\r
        mglDrawDat d;\r
-       d.Grp=Grp;      d.Leg=Leg;      d.Pnt=Pnt;      d.Prm=Prm;\r
-       d.Ptx=Ptx;      d.Sub=Sub;      d.Txt=Txt;\r
-       DrwDat.push_back(d);\r
+       d.Pnt=Pnt;      d.Prm=Prm;      d.Glf=Glf;      d.Ptx=Ptx;      d.Txt=Txt;\r
+       MGL_PUSH(DrwDat,d,mutexDrw);\r
        return DrwDat.size();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::GetDrwDat(long i)\r
+void mglCanvas::ResetFrames()  {       CurFrameId=0;   DrwDat.clear(); }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::SetFrame(long i)\r
 {\r
-       mglDrawDat &d=DrwDat[i];\r
-       Grp=d.Grp;      Leg=d.Leg;      Pnt=d.Pnt;      Prm=d.Prm;\r
-       Ptx=d.Ptx;      Sub=d.Sub;      Txt=d.Txt;\r
+       if(get(MGL_VECT_FRAME) && i>=0 && i<DrwDat.size())\r
+       {\r
+               Finish();       CurFrameId--;\r
+               mglDrawDat d;\r
+               d.Pnt=Pnt;      d.Prm=Prm;      d.Glf=Glf;      d.Ptx=Ptx;      d.Txt=Txt;\r
+#if MGL_HAVE_PTHREAD\r
+               pthread_mutex_lock(&mutexDrw);\r
+               DrwDat[i] = d;\r
+               pthread_mutex_unlock(&mutexDrw);\r
+#else\r
+               DrwDat[i] = d;\r
+#endif\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::GetFrame(long k)\r
+{\r
+       if(k<0 || (size_t)k>=DrwDat.size())     return;\r
+       Clf();\r
+       const mglDrawDat &d=DrwDat[k];\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_lock(&mutexPnt);\r
+       pthread_mutex_lock(&mutexPrm);\r
+       pthread_mutex_lock(&mutexGlf);\r
+       pthread_mutex_lock(&mutexPtx);\r
+       pthread_mutex_lock(&mutexTxt);\r
+#endif\r
+       Pnt=d.Pnt;      Prm=d.Prm;      Glf=d.Glf;      Ptx=d.Ptx;      Txt=d.Txt;\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_unlock(&mutexTxt);\r
+       pthread_mutex_unlock(&mutexPtx);\r
+       pthread_mutex_unlock(&mutexGlf);\r
+       pthread_mutex_unlock(&mutexPrm);\r
+       pthread_mutex_unlock(&mutexPnt);\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::ShowFrame(long k)\r
+{\r
+       if(k<0 || (size_t)k>=DrwDat.size())     return;\r
+       ClfZB();\r
+       size_t npnt=Pnt.size(), nglf=Glf.size(), nptx=Ptx.size(), ntxt=Txt.size();\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_lock(&mutexPnt);\r
+       pthread_mutex_lock(&mutexPrm);\r
+       pthread_mutex_lock(&mutexGlf);\r
+       pthread_mutex_lock(&mutexPtx);\r
+       pthread_mutex_lock(&mutexTxt);\r
+#endif\r
+       const mglDrawDat &d=DrwDat[k];\r
+       register size_t i;\r
+       Glf.reserve(d.Glf.size());      for(i=0;i<d.Glf.size();i++)     Glf.push_back(d.Glf[i]);\r
+       Ptx.reserve(d.Ptx.size());      for(i=0;i<d.Ptx.size();i++)     Ptx.push_back(d.Ptx[i]);\r
+       Txt.reserve(d.Pnt.size());      for(i=0;i<d.Txt.size();i++)     Txt.push_back(d.Txt[i]);\r
+       Pnt.reserve(d.Pnt.size());\r
+       for(i=0;i<d.Pnt.size();i++)\r
+       {\r
+               mglPnt p = d.Pnt[i];    p.c += ntxt;\r
+               Pnt.push_back(p);\r
+       }\r
+       Prm.reserve(d.Prm.size());\r
+       for(i=0;i<d.Prm.size();i++)\r
+       {\r
+               mglPrim p = d.Prm[i];\r
+               p.n1 += npnt;\r
+\r
+               switch(p.type)\r
+               {\r
+               case 1: p.n2 += npnt;   break;\r
+               case 2: p.n2 += npnt;   p.n3 += npnt;   break;\r
+               case 3: p.n2 += npnt;   p.n3 += npnt;   p.n4 += npnt;   break;\r
+               case 4: p.n4 += nglf;   break;\r
+               case 5: p.n2 += npnt;   break;\r
+               case 6: p.n3 += nptx;   break;\r
+               }\r
+               Prm.push_back(p);\r
+       }\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_unlock(&mutexPnt);\r
+       pthread_mutex_unlock(&mutexPrm);\r
+       pthread_mutex_unlock(&mutexGlf);\r
+       pthread_mutex_unlock(&mutexPtx);\r
+       pthread_mutex_unlock(&mutexTxt);\r
+#endif\r
 }\r
 //-----------------------------------------------------------------------------\r
 const unsigned char *mglCanvas::GetBits()      {       Finish();       return G;       }\r
@@ -70,15 +151,16 @@ mreal mglCanvas::GetRatio() const  {       return inW/inH; }
 void mglCanvas::add_prim(mglPrim &a)\r
 {\r
        if(a.n1>=0)\r
-       {       a.z = Pnt[a.n1].z;      // this is a bit less accurate but simpler for transformation\r
-               a.id = ObjId;   MGL_PUSH(Prm,a,mutexPrm);       }\r
+       {\r
+               a.z = Pnt[a.n1].z;      // this is a bit less accurate but simpler for transformation\r
+               a.id = ObjId;   MGL_PUSH(Prm,a,mutexPrm);\r
+               clr(MGL_FINISHED);\r
+       }\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::DefaultPlotParam()\r
 {\r
 /* NOTE: following variables and mutex will not be changed by DefaultPlotParam()\r
-std::vector<mglTexture> Txt;   ///< Pointer to textures\r
-char *Message;         ///< Buffer for receiving messages\r
 long InUse;                    ///< Smart pointer (number of users)\r
 mglFont *fnt;          ///< Class for printing vector text\r
 int Quality;           ///< Quality of plot (0x0-pure, 0x1-fast; 0x2-fine; 0x4 - low memory)\r
@@ -88,17 +170,18 @@ int Depth;                 ///< Depth of the image
 int CurFrameId;                ///< Number of automaticle created frames\r
 GifFileType *gif;*/\r
        SetTickRotate(true);    SetTickSkip(true);\r
-       SetWarn(mglWarnNone,"");\r
+       SetWarn(mglWarnNone,"");        mglGlobalMess = "";\r
        ObjId = -1;     HighId = INT_MIN;\r
        SetFunc(0,0);   Stop=false;     CutOff(0);      Ternary(0);\r
        SetRanges(mglPoint(-1,-1,-1,-1), mglPoint(1,1,1,1));\r
+       SetOrigin(NAN,NAN,NAN,NAN);\r
        SetBarWidth(0.7);       SetMarkSize(1); SetArrowSize(1);\r
        SetAlphaDef(0.5);               FontDef[0]=0;\r
        SetTranspType(0);               SetMeshNum(0);  // NOTE: default MeshNum=0\r
        SetRotatedText(true);   CurrPal = 0;\r
        SetLegendMarks();               SetFontSize(4);\r
        SetTuneTicks(-1);               SetAmbient();\r
-       PlotId = "frame";               clr(MGL_DISABLE_SCALE);\r
+       clr(MGL_DISABLE_SCALE);\r
        clr(MGL_USE_GMTIME);    clr(MGL_NOSUBTICKS);\r
        SetDifLight(false);             SetReduceAcc(false);\r
        SetDefScheme("BbcyrR"); SetPalette(MGL_DEF_PAL);\r
@@ -110,7 +193,7 @@ GifFileType *gif;*/
        AdjustTicks("xyzc",true);       Clf();\r
 \r
        for(int i=0;i<10;i++)   {       AddLight(i, mglPoint(0,0,1));   Light(i,false); }\r
-       Light(0,true);          Light(false);   SetDifLight(true);\r
+       Light(0,true);  Light(false);   SetDifLight(true);\r
 }\r
 //-----------------------------------------------------------------------------\r
 //     Optimal axis position\r
@@ -218,15 +301,20 @@ mreal mglCanvas::GetOrgZ(char dir) const
 //-----------------------------------------------------------------------------\r
 //     Put primitives\r
 //-----------------------------------------------------------------------------\r
-#define MGL_MARK_PLOT  if(Quality&4)   mark_draw(p,type,size?size:MarkSize,&d);else    \\r
-                                               {       mglPrim a;      a.w = fabs(PenWidth);   a.s = size?size:MarkSize;       \\r
+#define MGL_MARK_PLOT  if(Quality&4)   mark_draw(p,type,size,&d);else  \\r
+                                               {       mglPrim a;      a.w = pw;       a.s = size;     \\r
                                                        a.n1 = p;       a.n4 = type;    add_prim(a);    }\r
 void mglCanvas::mark_plot(long p, char type, mreal size)\r
 {\r
        if(p<0 || mgl_isnan(Pnt[p].x))  return;\r
        long pp=p;\r
+       mreal pw = fabs(PenWidth)*0.15/sqrt(font_factor);\r
        mglDrawReg d;   d.set(this,1,1,0);\r
+       d.PDef = PDef;  d.pPos = pPos;\r
+       d.ObjId = ObjId;        d.PenWidth=pw;\r
        if(size>=0)     size *= MarkSize;\r
+       if(size==0)     size = MarkSize;\r
+       size *= 0.35*font_factor;\r
        if(TernAxis&4) for(int i=0;i<4;i++)\r
        {       p = ProjScale(i, pp);   MGL_MARK_PLOT   }\r
        else    {       MGL_MARK_PLOT   }\r
@@ -239,10 +327,14 @@ void mglCanvas::line_plot(long p1, long p2)
 {\r
        if(PDef==0)     return;\r
        if(p1<0 || p2<0 || mgl_isnan(Pnt[p1].x) || mgl_isnan(Pnt[p2].x))        return;\r
-       mglDrawReg dd;  dd.set(this,1,1,0);\r
        long pp1=p1,pp2=p2;\r
-       mreal pw = fabs(PenWidth),d;\r
+       mreal pw = fabs(PenWidth)*sqrt(font_factor/400), d;\r
        d = hypot(Pnt[p1].x-Pnt[p2].x, Pnt[p1].y-Pnt[p2].y);\r
+\r
+       mglDrawReg dd;          dd.set(this,1,1,0);\r
+       dd.PDef = PDef;         dd.pPos = pPos;\r
+       dd.ObjId = ObjId;       dd.PenWidth=pw;\r
+\r
        if(TernAxis&4) for(int i=0;i<4;i++)\r
        {       p1 = ProjScale(i, pp1); p2 = ProjScale(i, pp2);\r
                MGL_LINE_PLOT   }\r
@@ -257,7 +349,7 @@ void mglCanvas::trig_plot(long p1, long p2, long p3)
 {\r
        if(p1<0 || p2<0 || p3<0 || mgl_isnan(Pnt[p1].x) || mgl_isnan(Pnt[p2].x) || mgl_isnan(Pnt[p3].x))        return;\r
        long pp1=p1,pp2=p2,pp3=p3;\r
-       mglDrawReg d;   d.set(this,1,1,0);\r
+       mglDrawReg d;   d.set(this,1,1,0);      d.ObjId = ObjId;\r
        if(TernAxis&4) for(int i=0;i<4;i++)\r
        {       p1 = ProjScale(i, pp1); p2 = ProjScale(i, pp2);\r
                p3 = ProjScale(i, pp3); MGL_TRIG_PLOT   }\r
@@ -274,7 +366,7 @@ void mglCanvas::quad_plot(long p1, long p2, long p3, long p4)
        if(p3<0 || mgl_isnan(Pnt[p3].x))        {       trig_plot(p1,p2,p4);    return; }\r
        if(p4<0 || mgl_isnan(Pnt[p4].x))        {       trig_plot(p1,p2,p3);    return; }\r
        long pp1=p1,pp2=p2,pp3=p3,pp4=p4;\r
-       mglDrawReg d;   d.set(this,1,1,0);\r
+       mglDrawReg d;   d.set(this,1,1,0);      d.ObjId = ObjId;\r
        if(TernAxis&4) for(int i=0;i<4;i++)\r
        {       p1 = ProjScale(i, pp1); p2 = ProjScale(i, pp2);\r
                p3 = ProjScale(i, pp3); p4 = ProjScale(i, pp4);\r
@@ -293,7 +385,7 @@ mreal mglCanvas::text_plot(long p,const wchar_t *text,const char *font,mreal siz
                mreal res;\r
                TernAxis = TernAxis&(~4);\r
                for(int i=0;i<4;i++)\r
-                       res = text_plot(ProjScale(i,p),text,font,size/2,sh,col);\r
+                       res = text_plot(ProjScale(i,p,true),text,font,size/2,sh,col);\r
                TernAxis = TernAxis|4;\r
                return res;\r
        }\r
@@ -303,32 +395,44 @@ mreal mglCanvas::text_plot(long p,const wchar_t *text,const char *font,mreal siz
        bool inv=false;\r
        if(rot && (q.u<0 || (q.u==0 && q.v<0)))\r
        {       q.u=-q.u;       q.v=-q.v;       q.w=-q.w;       inv=true;       }\r
-       if(!(Quality&4))        // add text itself\r
-       {\r
-               mglPrim a(6);   a.n1 = p;\r
-               mglText txt(text,font);\r
-               MGL_PUSH(Ptx,txt,mutexPtx);\r
-               a.n3 = Ptx.size()-1;\r
-               a.s = size;     a.w = sh;       a.p=col;\r
-               add_prim(a);\r
-       }\r
-       if(ll==0)       return 0;\r
 \r
-       mreal fsize=size/6.5*font_factor, h = fnt->Height(font)*fsize, w, shift = -sh*h-2;\r
+       mreal fsize=size/6.5*font_factor, h = fnt->Height(font)*fsize, w, shift = -(sh+0.02)*h;\r
        // text drawing itself\r
        Push();\r
+#if MGL_HAVE_PTHREAD\r
+pthread_mutex_lock(&mutexPtx);\r
+#endif\r
        inv = inv ^ (strchr(font,'T')!=0);\r
-       if(inv) shift = 0.17*h-shift;\r
-       shift += 1.1;   // Correction for glyph rotation around proper point\r
+       if(inv) shift = 0.2*h-shift;\r
+       shift += 0.015*h;       // Correction for glyph rotation around proper point\r
 //     shift *= h;\r
 \r
        int align;      mglGetStyle(font,0,&align);     align = align&3;\r
        B.x = q.x;      B.y = q.y - shift;      B.z = q.z;\r
-       if(ll>0)        {       B.x += shift*q.v/sqrt(ll);      B.y += shift*(1-q.u/sqrt(ll));  }\r
-       fscl = fsize;\r
+       if(ll>0)\r
+       {\r
+               B.x += shift*q.v/sqrt(ll);      B.y += shift*(1-q.u/sqrt(ll));\r
+               if(q.u==0 && !get(MGL_ENABLE_RTEXT))    B.y -= 0.1*h;\r
+       }\r
+       fscl = fsize;   forg = p;\r
 \r
        if(mgl_isnan(ll) || !get(MGL_ENABLE_RTEXT))     ftet = 0;\r
-       else    ftet = -180*atan2(q.v,q.u)/M_PI;\r
+       else if(ll)     ftet = -180*atan2(q.v,q.u)/M_PI;\r
+       else    ftet = NAN;\r
+\r
+       if(!(Quality&4))        // add text itself\r
+       {\r
+               char ch = mglGetStyle(font,0,0);\r
+               mglColor mc(ch);\r
+               if(!ch) mc = col<0 ? mglColor(char(0.5-col)):Txt[long(col)].GetC(col);\r
+\r
+               mglPrim a(6);   a.n1 = p;\r
+               a.n2 = int(255*mc.r) + 256*(int(255*mc.g) + 256*int(255*mc.b));\r
+               mglText txt(text,font);\r
+               Ptx.push_back(txt);     a.n3 = Ptx.size()-1;\r
+               a.s = size;     a.w = shift;    a.p=ftet;\r
+               add_prim(a);\r
+       }\r
 \r
        memset(B.b,0,9*sizeof(mreal));\r
        B.b[0] = B.b[4] = B.b[8] = fscl;\r
@@ -351,19 +455,26 @@ mreal mglCanvas::text_plot(long p,const wchar_t *text,const char *font,mreal siz
                line_plot(k1,k2);       line_plot(k1,k3);       line_plot(k4,k2);       line_plot(k4,k3);\r
        }\r
        fsize *= fnt->Puts(text,font,col)/2;\r
+#if MGL_HAVE_PTHREAD\r
+pthread_mutex_unlock(&mutexPtx);\r
+#endif\r
        Pop();  return fsize;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::Glyph(mreal x, mreal y, mreal f, int s, long j, mreal col)\r
 {\r
        mglPrim a(4);   // NOTE: no projection since text_plot() did it\r
-       a.s = fscl/B.pf;        a.w = ftet;     a.p = B.pf;\r
+       a.s = fscl/B.pf;        a.w = ftet;     a.p = f/fnt->GetFact(s&3);\r
        mreal cc = col<0 ? AddTexture(char(0.5-col)):col;\r
        if(cc<0)        cc = CDef;\r
-       a.n1 = AddPnt(mglPoint(B.x,B.y,B.z), cc, mglPoint(x,y,f/fnt->GetFact(s&3)), -1, -1);\r
-       a.n3 = s;       a.n4 = j;\r
+       a.n1 = AddPnt(mglPoint(B.x,B.y,B.z), cc, mglPoint(x,y,NAN), -1, -1);\r
+       a.n2 = forg;    a.n3 = s;       a.n4 = AddGlyph(s,j);\r
        if(a.n1<0)      return;\r
+\r
        mglDrawReg d;   d.set(this,1,1,0);\r
+       d.PDef = s;             d.pPos = a.s;\r
+       d.ObjId=ObjId;  d.PenWidth=a.w;\r
+       \r
        if(Quality&4)   glyph_draw(&a,&d);\r
        else    add_prim(a);\r
 }\r
@@ -374,7 +485,8 @@ void mglCanvas::InPlot(mreal x1,mreal x2,mreal y1,mreal y2, const char *st)
 {\r
        if(Width<=0 || Height<=0 || Depth<=0)   return;\r
        if(!st)         {       InPlot(x1,x2,y1,y2,false);      return; }\r
-       inW = Width*(x2-x1);    inH = Height*(y2-y1);   ZMin=1;\r
+       inW = Width*(x2-x1);    inH = Height*(y2-y1);\r
+       inX=Width*x1;   inY=Height*y1;  ZMin=1;\r
        mglPrim p;      p.id = ObjId;\r
        p.n1=x1*Width;  p.n2=x2*Width;  p.n3=y1*Height; p.n4=y2*Height;\r
        MGL_PUSH(Sub,p,mutexSub);\r
@@ -386,6 +498,7 @@ void mglCanvas::InPlot(mreal x1,mreal x2,mreal y1,mreal y2, const char *st)
        bool a = !(strchr(st,'a') || strchr(st,'A') || strchr(st,'^') || strchr(st,'g') || strchr(st,'t'));\r
        // let use simplified scheme -- i.e. no differences between axis, colorbar and/or title\r
        register mreal xs=(x1+x2)/2, ys=(y1+y2)/2, f1 = 1.3, f2 = 1.1;\r
+       if(strchr(st,'#'))      f1=f2=1.55;\r
        if(r && l)      {       x2=xs+(x2-xs)*f1;       x1=xs+(x1-xs)*f1;       }\r
        else if(r)      {       x2=xs+(x2-xs)*f1;       x1=xs+(x1-xs)*f2;       }\r
        else if(l)      {       x2=xs+(x2-xs)*f2;       x1=xs+(x1-xs)*f1;       }\r
@@ -425,7 +538,8 @@ void mglCanvas::InPlot(mreal x1,mreal x2,mreal y1,mreal y2, bool rel)
                B.z = (1.f-B.b[8]/(2*Depth))*Depth;\r
                B1=B;\r
        }\r
-       inW = B.b[0];   inH=B.b[4];     ZMin=1;\r
+       inW=B.b[0];     inH=B.b[4];     ZMin=1;\r
+       inX=Width*x1;   inY=Height*y1;\r
        font_factor = B.b[0] < B.b[4] ? B.b[0] : B.b[4];\r
        mglPrim p;      p.id = ObjId;\r
        p.n1=x1*Width;  p.n2=x2*Width;  p.n3=y1*Height; p.n4=y2*Height;\r
@@ -533,7 +647,7 @@ void mglCanvas::Zoom(mreal x1, mreal y1, mreal x2, mreal y2)
        if(x1==x2 || y1==y2)    {       x1=y1=0;        x2=y2=1;        }\r
        x1=2*x1-1;      x2=2*x2-1;      y1=2*y1-1;      y2=2*y2-1;\r
        Bp.b[0]=2/fabs(x2-x1);  Bp.b[4]=2/fabs(y2-y1);\r
-       Bp.x=(x1+x2)/2/Bp.b[0]; Bp.y=(y1+y2)/2/Bp.b[4];\r
+       Bp.x=(x1+x2)/fabs(x2-x1);Bp.y=(y1+y2)/fabs(y2-y1);\r
 }\r
 //-----------------------------------------------------------------------------\r
 int mglCanvas::GetSplId(long x,long y) const\r
@@ -577,93 +691,24 @@ void mglCanvas::AddLight(int n, mglPoint r, mglPoint d, char col, mreal br, mrea
        light[n].d = d;         light[n].c = mglColor(col);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::arrow_plot(long n1, long n2,char st)\r
+void mglCanvas::arrow_plot(long n1, long n2, char st)\r
 {\r
-       if(n1<0 || n2<0 || !strchr("AVKSDTIO",st))      return;\r
-       const mglPnt &p1=Pnt[n1], &p2=Pnt[n2];\r
-       mglPnt q1=p1,q2=p1,q3=p1,q4=p1;\r
-       q1.u=q1.v=q2.u=q2.v=q3.u=q3.v=q4.u=q4.v=NAN;\r
-\r
-       mreal lx=p1.x-p2.x, ly=p1.y-p2.y, ll, kx,ky;\r
-       ll = hypot(lx,ly)/(PenWidth*ArrowSize*0.35*font_factor);\r
-       if(ll==0)       return;\r
-       lx /= ll;       ly /= ll;       kx = ly;        ky = -lx;\r
-       mreal lz = (p2.z-p1.z)/ll;\r
-\r
-       Reserve(6);\r
-       long k1,k2,k3,k4;\r
-\r
-       switch(st)\r
-       {\r
-       case 'I':\r
-               q1.xx=q1.x=p1.x+kx;             q1.yy=q1.y=p1.y+ky;             k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx;             q2.yy=q2.y=p1.y-ky;             k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               line_plot(k1,k2);       break;\r
-       case 'D':\r
-               q1.xx=q1.x=p1.x+kx;             q1.yy=q1.y=p1.y+ky;                                                     k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x+lx;             q2.yy=q2.y=p1.y+ly;             q2.zz=q2.z=p1.z+lz;     k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x-kx;             q3.yy=q3.y=p1.y-ky;                                                     k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               q4.xx=q4.x=p1.x-lx;             q4.yy=q4.y=p1.y-ly;             q4.zz=q4.z=p1.z-lz;     k4=Pnt.size();  MGL_PUSH(Pnt,q4,mutexPnt);\r
-               quad_plot(k1,k2,k4,k3); break;\r
-       case 'S':\r
-               q1.xx=q1.x=p1.x+kx-lx;  q1.yy=q1.y=p1.y+ky-ly;  q1.zz=q1.z=p1.z-lz;     k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx-lx;  q2.yy=q2.y=p1.y-ky-ly;  q2.zz=q2.z=p1.z-lz;     k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x-kx+lx;  q3.yy=q3.y=p1.y-ky+ly;  q3.zz=q3.z=p1.z+lz;     k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               q4.xx=q4.x=p1.x+kx+lx;  q4.yy=q4.y=p1.y+ky+ly;  q4.zz=q4.z=p1.z+lz;     k4=Pnt.size();  MGL_PUSH(Pnt,q4,mutexPnt);\r
-               quad_plot(k1,k2,k4,k3); break;\r
-       case 'T':\r
-               q1.xx=q1.x=p1.x+kx-lx;  q1.yy=q1.y=p1.y+ky-ly;  q1.zz=q1.z=p1.z-lz;     k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx-lx;  q2.yy=q2.y=p1.y-ky-ly;  q2.zz=q2.z=p1.z-lz;     k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x+lx;             q3.yy=q3.y=p1.y+ly;             q3.zz=q3.z=p1.z+lz;     k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               trig_plot(k1,k2,k3);    break;\r
-       case 'A':\r
-//             q1.xx=q1.x=p1.x;                        q1.yy=q1.y=p1.y;                        k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx-2*lx;        q2.yy=q2.y=p1.y-ky-2*ly;        q2.zz=q2.z=p1.z-2*lz;   k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x-1.5*lx;         q3.yy=q3.y=p1.y-1.5*ly;         q3.zz=q3.z=p1.z-1.5*lz; k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               q4.xx=q4.x=p1.x+kx-2*lx;        q4.yy=q4.y=p1.y+ky-2*ly;        q4.zz=q4.z=p1.z-2*lz;   k4=Pnt.size();  MGL_PUSH(Pnt,q4,mutexPnt);\r
-               trig_plot(n1,k2,k3);            trig_plot(n1,k3,k4);    break;\r
-       case 'K':\r
-//             q1.xx=q1.x=p1.x;                        q1.yy=q1.y=p1.y;                        k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx-2*lx;        q2.yy=q2.y=p1.y-ky-2*ly;        q2.zz=q2.z=p1.z-2*lz;   k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x-1.5*lx;         q3.yy=q3.y=p1.y-1.5*ly;         q3.zz=q3.z=p1.z-1.5*lz; k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               q4.xx=q4.x=p1.x+kx-2*lx;        q4.yy=q4.y=p1.y+ky-2*ly;        q4.zz=q4.z=p1.z-2*lz;   k4=Pnt.size();  MGL_PUSH(Pnt,q4,mutexPnt);\r
-               trig_plot(n1,k2,k3);            trig_plot(n1,k3,k4);\r
-               q1.xx=q1.x=p1.x+kx;                     q1.yy=q1.y=p1.y+ky;                     k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx;                     q2.yy=q2.y=p1.y-ky;                     k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               line_plot(k1,k2);       break;\r
-       case 'V':\r
-//             q1.xx=q1.x=p1.x;                        q1.yy=q1.y=p1.y;                        k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-               q2.xx=q2.x=p1.x-kx+2*lx;        q2.yy=q2.y=p1.y-ky+2*ly;        q2.zz=q2.z=p1.z-2*lz;   k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-               q3.xx=q3.x=p1.x+1.5*lx;         q3.yy=q3.y=p1.y+1.5*ly;         q3.zz=q3.z=p1.z-1.5*lz; k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-               q4.xx=q4.x=p1.x+kx+2*lx;        q4.yy=q4.y=p1.y+ky+2*ly;        q4.zz=q4.z=p1.z-2*lz;   k4=Pnt.size();  MGL_PUSH(Pnt,q4,mutexPnt);\r
-               trig_plot(n1,k2,k3);            trig_plot(n1,k3,k4);    break;\r
-       case 'O':\r
-               {\r
-                       q1.xx=q1.x=p1.x;        q1.yy=q1.y=p1.y;        k1=Pnt.size();  MGL_PUSH(Pnt,q1,mutexPnt);\r
-                       double t,c,s;\r
-                       for(int i=0;i<16;i++)\r
-                       {\r
-                               t = M_PI*i/8.;          s=sin(t);       c=cos(t);\r
-                               q2.xx=q2.x=p1.x+kx*s+lx*c;      q2.yy=q2.y=p1.y+ky*s+ly*c;      q2.zz=q2.z=p1.z+c*lz;\r
-                               k2=Pnt.size();  MGL_PUSH(Pnt,q2,mutexPnt);\r
-                               t = M_PI*(i+1)/8.;      s=sin(t);       c=cos(t);\r
-                               q3.xx=q3.x=p1.x+kx*s+lx*c;      q3.yy=q3.y=p1.y+ky*s+ly*c;      q3.zz=q2.z=p1.z+c*lz;\r
-                               k3=Pnt.size();  MGL_PUSH(Pnt,q3,mutexPnt);\r
-                               trig_plot(k1,k2,k3);\r
-                       }\r
-                       break;\r
-               }\r
-       }\r
+       float ll = PenWidth*ArrowSize*0.35*font_factor;\r
+       if((Quality&3)==3)\r
+               arrow_plot_3d(n1, n2, st, ll);\r
+       else\r
+               arrow_draw(n1, n2, st, ll);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::Legend(const std::vector<mglText> &leg, mreal x, mreal y, const char *font, mreal size, mreal ll)\r
+void mglCanvas::Legend(const std::vector<mglText> &leg, mreal x, mreal y, const char *font, const char *opt)\r
 {\r
        long n=leg.size(), iw, ih;\r
        if(n<1) {       SetWarn(mglWarnLeg,"Legend");   return; }\r
+       mreal ll = SaveState(opt);      if(mgl_isnan(ll))       ll=0.1;\r
        static int cgid=1;      StartGroup("Legend",cgid++);\r
        if(ll<=0 || mgl_isnan(ll))      ll=0.1;\r
        ll *=font_factor;\r
-       if(size<0)      size = -size*FontSize;\r
+       mreal size = 0.8*FontSize;\r
        // setup font and parse absolute coordinates\r
        if(!font)       font="#";\r
        char *pA, *ff = new char[strlen(font)+3];\r
@@ -672,21 +717,29 @@ void mglCanvas::Legend(const std::vector<mglText> &leg, mreal x, mreal y, const
        {       *pA = ' ';      InPlot(0,1,0,1,false);  iw=B1.b[0];     ih=B1.b[4];     }\r
        else    {       iw=B1.b[0]/B1.pf;       ih=B1.b[4]/B1.pf;       }\r
        // find sizes\r
-       mreal h=TextHeight(font,size)/2;\r
-       mreal dx = 0.03*iw, dy = 0.03*ih, w=0, t;\r
+       mreal h=TextHeight(font,size);\r
+       mreal dx = 0.03*iw, dy = 0.03*ih, w=0, t, sp=TextWidth(" ",font,size);\r
        register long i,j;\r
        for(i=0;i<n;i++)                // find text length\r
        {\r
-               t = TextWidth(leg[i].text.c_str(),font,size)/2;\r
+               t = TextWidth(leg[i].text.c_str(),font,size)+sp;\r
                if(leg[i].stl.empty())  t -= ll;\r
                w = w>t ? w:t;\r
        }\r
        w += ll+0.01*iw;        // add space for lines\r
-       x = x*(iw-w-2*dx)+B.x-iw/2+dx;  // TODO bypass very long legends\r
-       y = y*(ih-h*n-2*dy)+B.y-ih/2+dy;\r
+       j = long((ih*0.95)/h);\r
+       long ncol = 1+(n-1)/j, nrow = (n+ncol-1)/ncol;\r
+       if(strchr(font,'-'))    // horizontal legend\r
+       {\r
+               j = long((iw*0.95)/w);\r
+               nrow = 1+(n-1)/j;\r
+               ncol = (n+nrow-1)/nrow;\r
+       }\r
+       x = x*(iw-w*ncol-2*dx)+B.x-iw/2+dx;     // TODO bypass very long legends\r
+       y = y*(ih-h*nrow-2*dy)+B.y-ih/2+dy;\r
        // draw it\r
        long k1=0,k2=0,k3=0,k4=0;\r
-       mglPoint p,q=mglPoint(NAN);\r
+       mglPoint p,q=mglPoint(NAN,NAN);\r
 \r
        for(i=0;ff[i] && ff[i]!=':';i++)        if(strchr(MGL_COLORS,ff[i]))\r
        {\r
@@ -698,14 +751,15 @@ void mglCanvas::Legend(const std::vector<mglText> &leg, mreal x, mreal y, const
        if(k4==2)       k2=0;\r
        if(k4==1)       k1=k2=0;\r
        mreal c1=AddTexture(char(k1?k1:'w')), c2=AddTexture(char(k2?k2:'k'));\r
-       if((Flag&3)==2) {       mreal cc=c1;    c2=c1;  c2=cc;  };\r
+       if((Flag&3)==2) {       mreal cc=c1;    c2=c1;  c2=cc;  }\r
 \r
        if(strchr(ff,'#'))      // draw bounding box\r
        {\r
-               k1=AddPnt(mglPoint(x,y,Depth),c1,q,-1,0);\r
-               k2=AddPnt(mglPoint(x+w,y,Depth),c1,q,-1,0);\r
-               k3=AddPnt(mglPoint(x,y+h*n,Depth),c1,q,-1,0);\r
-               k4=AddPnt(mglPoint(x+w,y+h*n,Depth),c1,q,-1,0);\r
+               SetPenPal("k-");\r
+               k1=AddPnt(mglPoint(x,y,Depth/MGL_FEPSILON),c1,q,-1,0);\r
+               k2=AddPnt(mglPoint(x+w*ncol,y,Depth/MGL_FEPSILON),c1,q,-1,0);\r
+               k3=AddPnt(mglPoint(x,y+h*nrow,Depth/MGL_FEPSILON),c1,q,-1,0);\r
+               k4=AddPnt(mglPoint(x+w*ncol,y+h*nrow,Depth/MGL_FEPSILON),c1,q,-1,0);\r
                quad_plot(k1,k2,k3,k4);\r
                k1=CopyNtoC(k1,c2);     k2=CopyNtoC(k2,c2);\r
                k3=CopyNtoC(k3,c2);     k4=CopyNtoC(k4,c2);\r
@@ -714,52 +768,139 @@ void mglCanvas::Legend(const std::vector<mglText> &leg, mreal x, mreal y, const
        }\r
        for(i=0;i<n;i++)        // draw lines and legend\r
        {\r
+               register long iy=nrow-(i%nrow)-1,ix=i/nrow;\r
                char m=SetPenPal(leg[i].stl.c_str());\r
-               k1=AddPnt(mglPoint(x+0.1*ll,y+(n-i-1)*h+0.45*h,Depth),CDef,q,-1,0);\r
-               k2=AddPnt(mglPoint(x+0.9*ll,y+(n-i-1)*h+0.45*h,Depth),CDef,q,-1,0);     pPos=0;\r
+               k1=AddPnt(mglPoint(x+ix*w+0.1*ll,y+iy*h+0.45*h,Depth),CDef,q,-1,0);\r
+               k2=AddPnt(mglPoint(x+ix*w+0.9*ll,y+iy*h+0.45*h,Depth),CDef,q,-1,0);     pPos=0;\r
                if(!leg[i].stl.empty()) line_plot(k1,k2);\r
                if(m)   for(j=0;j<LegendMarks;j++)\r
                {\r
-                       p = mglPoint(x+0.1f*ll + (j+1)*0.8f*ll/(1.+LegendMarks),y+(n-i-1)*h+0.45*h,Depth);\r
+                       p = mglPoint(x+ix*w+0.1f*ll + (j+1)*0.8f*ll/(1.+LegendMarks),y+iy*h+0.45*h,Depth);\r
                        mark_plot(AddPnt(p,CDef,q,-1,0),m);\r
                }\r
-               p = mglPoint(x+((!leg[i].stl.empty())?ll:0.01*iw), y+(n-i-1)*h+0.15*h, Depth);\r
+               p = mglPoint(x+ix*w+((!leg[i].stl.empty())?ll:0.01*iw), y+iy*h+0.15*h, Depth);\r
                text_plot(AddPnt(p,-1,q,-1,0), leg[i].text.c_str(), ff, size);\r
        }\r
        Pop();  EndGroup();     delete []ff;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::Title(const char *title,const char *stl,mreal size)\r
+void mglCanvas::Table(mreal x, mreal y, HCDT val, const wchar_t *text, const char *frm, const char *opt)\r
 {\r
-       wchar_t *wcs = 0;\r
-       if(title)\r
+//     if(x>=1)        {       SetWarn(mglWarnSpc,"Table");    return; }\r
+       long i,j,m=val->GetNy(),n=val->GetNx();\r
+//     mreal pos=SaveState(opt);\r
+       mreal vw = SaveState(opt);\r
+       static int cgid=1;      StartGroup("Table",cgid++);\r
+       bool grid = mglchr(frm,'#'), eqd = mglchr(frm,'='), lim = mglchr(frm,'|');\r
+       if(mgl_isnan(vw))       vw=1;   else    lim = true;\r
+       if(!text)       text=L"";\r
+       if(x<0) x=0;    if(y<0) y=0;    if(y>1) y=1;\r
+//     if(vw>1-x)      vw=1-x;\r
+\r
+       wchar_t *buf = new wchar_t[m*32], sng[32];\r
+       std::vector<std::wstring> str;\r
+       for(i=0;i<n;i++)                // prepare list of strings first\r
+       {\r
+               *buf=0;\r
+               for(j=0;j+1<m;j++)\r
+               {\r
+                       mglprintf(sng,32,L"%.3g\n",val->v(i,j));\r
+                       wcscat(buf,sng);\r
+               }\r
+               mglprintf(sng,32,L"%.3g",val->v(i,m-1));\r
+               wcscat(buf,sng);                str.push_back(buf);\r
+       }\r
+       delete []buf;\r
+\r
+       mreal sp=2*TextWidth(" ",frm,-1), w=*text ? sp+TextWidth(text,frm,-1):0, w1=0, ww, h;\r
+       for(i=0;i<n;i++)                // find width for given font size\r
        {\r
-               unsigned s = strlen(title)+1;\r
-               wcs = new wchar_t[s];\r
-               mbstowcs(wcs,title,s);\r
+               ww = TextWidth(str[i].c_str(),frm,-1)+sp;\r
+               w1 = w1<ww?ww:w1;\r
+               if(!eqd)        w += ww;\r
        }\r
+       if(eqd) w += n*w1;\r
+       // reduce font size if table have to be inside inplot\r
+       mreal fsize=FontSize;\r
+       if(lim && w>vw*inW)\r
+       {       h=vw*inW/w;     SetFontSize(-h);        w*=h;   w1*=h;  sp*=h;  }\r
+       h = TextHeight(frm,-1); // now we can determine text height\r
+\r
+       x = x*(inW-w)+B.x-inW/2;\r
+       y = y*(inH-h*m)+B.y-inH/2;\r
+\r
+       mglPoint p,q=mglPoint(NAN,NAN);\r
+       long k1,k2;\r
+       mreal xx,yy;\r
+       if(grid)        // draw bounding box\r
+       {\r
+               SetPenPal("k-");\r
+               k1=AddPnt(mglPoint(x,y,Depth),-1,q,-1,0);\r
+               k2=AddPnt(mglPoint(x,y+m*h,Depth),-1,q,-1,0);\r
+               line_plot(k1,k2);\r
+               ww = *text ? TextWidth(text,frm,-1)+sp:0;\r
+               k1=AddPnt(mglPoint(x+ww,y,Depth),-1,q,-1,0);\r
+               k2=AddPnt(mglPoint(x+ww,y+m*h,Depth),-1,q,-1,0);\r
+               line_plot(k1,k2);\r
+               for(i=0,xx=x+ww,yy=y;i<n;i++)\r
+               {\r
+                       xx += eqd ? w1:(TextWidth(str[i].c_str(),frm,-1)+sp);\r
+                       k1=AddPnt(mglPoint(xx,yy,Depth),-1,q,-1,0);\r
+                       k2=AddPnt(mglPoint(xx,yy+m*h,Depth),-1,q,-1,0);\r
+                       line_plot(k1,k2);\r
+               }\r
+               for(i=0,xx=x,yy=y;i<=m;i++)\r
+               {\r
+                       k1=AddPnt(mglPoint(xx,yy,Depth),-1,q,-1,0);\r
+                       k2=AddPnt(mglPoint(xx+w,yy,Depth),-1,q,-1,0);\r
+                       line_plot(k1,k2);       yy += h;\r
+               }\r
+       }\r
+       int align;      mglGetStyle(frm, 0, &align);\r
+       if(*text)\r
+       {\r
+               ww = TextWidth(text,frm,-1)+sp;\r
+               k1=AddPnt(mglPoint(x+ww*align/2.,y+h*(m-0.99),Depth),-1,q,-1,0);\r
+               text_plot(k1,text,frm);\r
+       }\r
+       else    ww = 0;\r
+       for(i=0,xx=x+ww,yy=y+h*(m-0.99);i<n;i++)        // draw lines and legend\r
+       {\r
+               ww = eqd ? w1:(TextWidth(str[i].c_str(),frm,-1)+sp);\r
+               k1=AddPnt(mglPoint(xx+ww*align/2.,yy,Depth),-1,q,-1,0);\r
+               text_plot(k1,str[i].c_str(),frm);       xx += ww;\r
+       }\r
+       FontSize = fsize;       EndGroup();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::Title(const char *title,const char *stl,mreal size)\r
+{\r
+       if(!title)      title="";\r
+       size_t s = strlen(title)+1;\r
+       wchar_t *wcs = new wchar_t[s];\r
+       mbstowcs(wcs,title,s);\r
        Title(wcs, stl,size);\r
-       if(wcs) delete []wcs;\r
+       delete []wcs;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::Title(const wchar_t *title,const char *stl,mreal size)\r
 {\r
-       mreal s = size>0 ? size/FontSize:-size, h=TextHeight(stl,size)*s/4;\r
+       mreal s = size>0 ? size/FontSize:-size, h=TextHeight(stl,size)*s/2;\r
        if(h>=inH)      {       SetWarn(mglWarnSpc,"Title");    return; }\r
-       bool box=(stl && strchr(stl,'#'));\r
+       bool box=mglchr(stl,'#');\r
        int align;      mglGetStyle(stl,0,&align);      align = align&3;\r
-       mreal x=B1.x-inW/2, y=B1.y+inH/2-h;\r
-       mglPoint p(B1.x + inW/2.1*(align-1),y,Depth),q(NAN);\r
+       mreal y=inY+inH-h;\r
+       mglPoint p(inX + inW*align/2.,y,Depth),q(NAN);\r
        if(title)       text_plot(AddPnt(p,-1,q,-1,0),title,stl,size);\r
        if(box) //      draw boungind box\r
        {\r
                mreal c1=AddTexture('w'), c2=AddTexture('k');\r
-               if((Flag&3)==2) {       mreal cc=c1;    c2=c1;  c2=cc;  };\r
+               if((Flag&3)==2) {       mreal cc=c1;    c2=c1;  c2=cc;  }\r
                long k1,k2,k3,k4;\r
-               k1=AddPnt(mglPoint(x,y,Depth),c1,q,-1,0);\r
-               k2=AddPnt(mglPoint(x+inW,y,Depth),c1,q,-1,0);\r
-               k3=AddPnt(mglPoint(x,y+h,Depth),c1,q,-1,0);\r
-               k4=AddPnt(mglPoint(x+inW,y+h,Depth),c1,q,-1,0);\r
+               k1=AddPnt(mglPoint(inX,y,Depth),c1,q,-1,0);\r
+               k2=AddPnt(mglPoint(inX+inW,y,Depth),c1,q,-1,0);\r
+               k3=AddPnt(mglPoint(inX,y+h,Depth),c1,q,-1,0);\r
+               k4=AddPnt(mglPoint(inX+inW,y+h,Depth),c1,q,-1,0);\r
                quad_plot(k1,k2,k3,k4);\r
                k1=CopyNtoC(k1,c2);     k2=CopyNtoC(k2,c2);\r
                k3=CopyNtoC(k3,c2);     k4=CopyNtoC(k4,c2);\r
@@ -773,7 +914,9 @@ void mglCanvas::Title(const wchar_t *title,const char *stl,mreal size)
 void mglCanvas::StartAutoGroup (const char *lbl)\r
 {\r
        static int id=1;\r
-       if(lbl==NULL)   {       id=1;   return; }\r
+       if(lbl==NULL)   {       id=1;   grp_counter=0;  return; }\r
+       grp_counter++;\r
+       if(grp_counter>1)       return; // do nothing in "subgroups"\r
        if(ObjId<0)     {       ObjId = -id;    id++;   }\r
        register size_t len = Grp.size();\r
        if(ObjId>=0 && len>0 && ObjId!=Grp[len-1].Id)\r
@@ -782,5 +925,26 @@ void mglCanvas::StartAutoGroup (const char *lbl)
        {       MGL_PUSH(Grp,mglGroup(lbl,ObjId),mutexGrp);     }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::EndGroup()     {       LoadState();    }\r
+void mglCanvas::EndGroup()\r
+{\r
+       LoadState();\r
+       if(Quality&4)\r
+       {\r
+               Pnt.clear();            Prm.clear();            Ptx.clear();\r
+               Glf.clear();            Act.clear();    Grp.clear();\r
+       }\r
+       if(grp_counter>0)       grp_counter--;\r
+}\r
+//-----------------------------------------------------------------------------\r
+int mglCanvas::IsActive(int xs, int ys,int &n)\r
+{\r
+       long i, h = (Width>Height ? Height:Width)/100;\r
+       for(i=0;i<(long)Act.size();i++)\r
+       {\r
+               const mglActivePos &p=Act[i];\r
+               if(abs(xs-p.x)<=h && abs(ys-p.y)<=h)\r
+               {       n=p.n;  return p.id;            }\r
+       }\r
+       n=-1;   return GetObjId(xs,ys);\r
+}\r
 //-----------------------------------------------------------------------------\r

diff --git a/src/canvas_cf.cpp b/src/canvas_cf.cpp
index 73b547cb627107ed30da24d312b8356bef9bb76c..6cb5d6a0c23da50304366ce16a3c7c11717943c3 100644 (file)
--- a/src/canvas_cf.cpp
+++ b/src/canvas_cf.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * canvas_cf.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -30,37 +30,54 @@ int mgl_get_width(HMGL gr)          {       return _Gr_->GetWidth();        }
 int mgl_get_height(HMGL gr)            {       return _Gr_->GetHeight();       }\r
 void mgl_calc_xyz(HMGL gr, int xs, int ys, mreal *x, mreal *y, mreal *z)\r
 {      mglPoint p = _Gr_->CalcXYZ(xs,ys);      *x = p.x;       *y = p.y;       *z = p.z;       }\r
-void mgl_calc_scr(HMGL gr, mreal x, mreal y, mreal z, int *xs, int *ys)\r
+void mgl_calc_scr(HMGL gr, double x, double y, double z, int *xs, int *ys)\r
 {      _Gr_->CalcScr(mglPoint(x,y,z),xs,ys);   }\r
 void mgl_set_obj_id(HMGL gr, int id)   {       _Gr_->SetObjId(id);     }\r
-int mgl_get_obj_id(HMGL gr, long x, long y)    {       return _Gr_->GetObjId(x,y);     }\r
-int mgl_get_spl_id(HMGL gr, long x, long y)    {       return _Gr_->GetSplId(x,y);     }\r
+int mgl_get_obj_id(HMGL gr, int x, int y)      {       return _Gr_->GetObjId(x,y);     }\r
+int mgl_get_spl_id(HMGL gr, int x, int y)      {       return _Gr_->GetSplId(x,y);     }\r
+//-----------------------------------------------------------------------------\r
+long mgl_is_active(HMGL gr, int xs, int ys, int d)\r
+{\r
+       if(d<=0)        d=1;\r
+       for(size_t i=0;i<gr->Act.size();i++)\r
+       {\r
+               const mglActivePos &p = gr->Act[i];\r
+               if(abs(xs-p.x)<d && abs(ys-p.y)<d)      return i;\r
+       }\r
+       return -1;\r
+}\r
+long mgl_is_active_(uintptr_t *gr, int *xs, int *ys, int *d)\r
+{      return mgl_is_active(_GR_, *xs, *ys, *d);       }\r
 //-----------------------------------------------------------------------------\r
 int mgl_new_frame(HMGL gr)             {       return _Gr_->NewFrame();        }\r
 void mgl_end_frame(HMGL gr)            {       _Gr_->EndFrame();       }\r
 int mgl_get_num_frame(HMGL gr) {       return _Gr_->GetNumFrame();     }\r
 void mgl_reset_frames(HMGL gr) {       _Gr_->ResetFrames();    }\r
+void mgl_get_frame(HMGL gr, int i)     {       _Gr_->GetFrame(i);      }\r
+void mgl_set_frame(HMGL gr, int i)     {       _Gr_->SetFrame(i);      }\r
+void mgl_show_frame(HMGL gr, int i)    {       _Gr_->ShowFrame(i);     }\r
+void mgl_del_frame(HMGL gr, int i)     {       _Gr_->DelFrame(i);      }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_transp_type(HMGL gr, int type)                    {       _Gr_->SetTranspType(type);      }\r
 void mgl_set_alpha(HMGL gr, int enable)                                {       _Gr_->Alpha(enable);    }\r
-void mgl_set_fog(HMGL gr, mreal d, mreal dz)           {       _Gr_->Fog(d,dz);                }\r
+void mgl_set_fog(HMGL gr, double d, double dz)         {       _Gr_->Fog(d,dz);                }\r
 void mgl_set_light(HMGL gr, int enable)                                {       _Gr_->Light(enable);    }\r
 void mgl_set_light_n(HMGL gr, int n, int enable)       {       _Gr_->Light(n, enable); }\r
-void mgl_add_light_ext(HMGL gr, int n, mreal x, mreal y, mreal z, char c, mreal br, mreal ap)\r
+void mgl_add_light_ext(HMGL gr, int n, double x, double y, double z, char c, double br, double ap)\r
 {      _Gr_->AddLight(n,mglPoint(x,y,z),c,br,ap);      }\r
-void mgl_add_light_loc(HMGL gr, int n, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, char c, mreal br, mreal ap)\r
+void mgl_add_light_loc(HMGL gr, int n, double x, double y, double z, double dx, double dy, double dz, char c, double br, double ap)\r
 {      _Gr_->AddLight(n,mglPoint(x,y,z),mglPoint(dx,dy,dz),c,br,ap);   }\r
-void mgl_add_light(HMGL gr, int n, mreal x, mreal y, mreal z)\r
+void mgl_add_light(HMGL gr, int n, double x, double y, double z)\r
 {      _Gr_->AddLight(n,mglPoint(x,y,z));      }\r
 //-----------------------------------------------------------------------------\r
 void mgl_mat_push(HMGL gr)     {       _Gr_->Push();   }\r
 void mgl_mat_pop(HMGL gr)      {       _Gr_->Pop();    }\r
 void mgl_clf(HMGL gr)  {       _Gr_->Clf();    }\r
-void mgl_clf_rgb(HMGL gr, mreal r, mreal g, mreal b){  _Gr_->Clf(mglColor(r,g,b));     }\r
+void mgl_clf_rgb(HMGL gr, double r, double g, double b){       _Gr_->Clf(mglColor(r,g,b));     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_subplot_d(HMGL gr, int nx,int ny,int m,const char *style,mreal dx,mreal dy)\r
+void mgl_subplot_d(HMGL gr, int nx,int ny,int m,const char *style,double dx,double dy)\r
 {\r
-       mreal x1,x2,y1,y2;\r
+       double x1,x2,y1,y2;\r
        int mx = m%nx, my = m/nx;\r
        if(_Gr_->get(MGL_AUTO_FACTOR))  {       dx /= 1.55;     dy /= 1.55;     }\r
        else    {       dx /= 2;        dy /= 2;        }\r
@@ -74,57 +91,61 @@ void mgl_subplot(HMGL gr, int nx,int ny,int m,const char *style)
 //-----------------------------------------------------------------------------\r
 void mgl_multiplot(HMGL gr, int nx,int ny,int m,int dx,int dy,const char *style)\r
 {\r
-       mreal x1,x2,y1,y2;\r
+       double x1,x2,y1,y2;\r
        int mx = m%nx, my = m/nx;\r
        dx = (dx<1 || dx+mx>nx) ? 1 : dx;\r
        dy = (dy<1 || dy+my>ny) ? 1 : dy;\r
-       x1 = mreal(mx)/nx;              x2 = mreal(mx+dx)/nx;\r
-       y2 = 1-mreal(my)/ny;    y1 = 1-mreal(my+dy)/ny;\r
+       x1 = double(mx)/nx;             x2 = double(mx+dx)/nx;\r
+       y2 = 1-double(my)/ny;   y1 = 1-double(my+dy)/ny;\r
        _Gr_->InPlot(x1,x2,y1,y2,style);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_inplot(HMGL gr, mreal x1,mreal x2,mreal y1,mreal y2)\r
+void mgl_inplot(HMGL gr, double x1,double x2,double y1,double y2)\r
 {      _Gr_->InPlot(x1,x2,y1,y2,false);        }\r
-void mgl_relplot(HMGL gr, mreal x1,mreal x2,mreal y1,mreal y2)\r
+void mgl_relplot(HMGL gr, double x1,double x2,double y1,double y2)\r
 {      _Gr_->InPlot(x1,x2,y1,y2,true); }\r
 //-----------------------------------------------------------------------------\r
-void mgl_columnplot(HMGL gr, int num, int i, mreal dd)\r
+void mgl_columnplot(HMGL gr, int num, int i, double dd)\r
 {\r
-       register mreal w = 1./num;\r
+       register double w = 1./num;\r
        _Gr_->InPlot(0,1,1-w*(i+1-dd),1-i*w,true);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_gridplot(HMGL gr, int nx, int ny, int i, mreal dd)\r
+void mgl_gridplot(HMGL gr, int nx, int ny, int i, double dd)\r
 {\r
        register int ix=i%nx, iy=i/nx;\r
-       register mreal wx = 1./nx, wy = 1./ny;\r
+       register double wx = 1./nx, wy = 1./ny;\r
        _Gr_->InPlot(ix*wx,wx*(ix+1-dd),1-wy*(iy+1-dd),1-iy*wy,true);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_stickplot(HMGL gr, int num, int i, mreal tet, mreal phi)\r
+void mgl_stickplot(HMGL gr, int num, int i, double tet, double phi)\r
 {      _Gr_->StickPlot(num, i, tet, phi);      }\r
 //-----------------------------------------------------------------------------\r
-void mgl_aspect(HMGL gr, mreal Ax,mreal Ay,mreal Az)\r
+void mgl_aspect(HMGL gr, double Ax,double Ay,double Az)\r
 {      _Gr_->Aspect(Ax,Ay,Az); }\r
-void mgl_rotate(HMGL gr, mreal TetX,mreal TetZ,mreal TetY)\r
+void mgl_rotate(HMGL gr, double TetX,double TetZ,double TetY)\r
 {      _Gr_->Rotate(TetX,TetZ,TetY);   }\r
-void mgl_view(HMGL gr, mreal TetX,mreal TetZ,mreal TetY)\r
+void mgl_view(HMGL gr, double TetX,double TetZ,double TetY)\r
 {      _Gr_->View(TetX,TetZ,TetY);     }\r
-void mgl_zoom(HMGL gr, mreal x1, mreal y1, mreal x2, mreal y2)\r
+void mgl_zoom(HMGL gr, double x1, double y1, double x2, double y2)\r
 {      _Gr_->Zoom(x1,y1,x2,y2);        }\r
-void mgl_rotate_vector(HMGL gr, mreal Tet,mreal x,mreal y,mreal z)\r
+void mgl_rotate_vector(HMGL gr, double Tet,double x,double y,double z)\r
 {      _Gr_->RotateN(Tet,x,y,z);       }\r
-void mgl_perspective(HMGL gr, mreal val)\r
+void mgl_perspective(HMGL gr, double val)\r
 {      _Gr_->Perspective(val); }\r
-void mgl_title(HMGL gr, const char *title, const char *stl, mreal size)\r
+void mgl_title(HMGL gr, const char *title, const char *stl, double size)\r
 {      _Gr_->Title(title,stl,size);    }\r
-void mgl_titlew(HMGL gr, const wchar_t *title, const char *stl, mreal size)\r
+void mgl_titlew(HMGL gr, const wchar_t *title, const char *stl, double size)\r
 {      _Gr_->Title(title,stl,size);    }\r
 //-----------------------------------------------------------------------------\r
 int mgl_new_frame_(uintptr_t *gr)              {       return _GR_->NewFrame();        }\r
 void mgl_end_frame_(uintptr_t *gr)             {       _GR_->EndFrame();       }\r
 int mgl_get_num_frame_(uintptr_t *gr)  {       return _GR_->GetNumFrame();     }\r
 void mgl_reset_frames_(uintptr_t *gr)  {       _GR_->ResetFrames();    }\r
+void mgl_get_frame_(uintptr_t *gr, int *i)     {       _GR_->GetFrame(*i);     }\r
+void mgl_set_frame_(uintptr_t *gr, int *i)     {       _GR_->SetFrame(*i);     }\r
+void mgl_show_frame_(uintptr_t *gr, int *i)    {       _GR_->ShowFrame(*i);    }\r
+void mgl_del_frame_(uintptr_t *gr, int *i)     {       _GR_->DelFrame(*i);     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_set_transp_type_(uintptr_t *gr, int *type)            {       _GR_->SetTranspType(*type);     }\r
 void mgl_set_alpha_(uintptr_t *gr, int *enable)                        {       _GR_->Alpha(*enable);   }\r
@@ -146,7 +167,7 @@ void mgl_clf_(uintptr_t *gr)
 void mgl_clf_rgb_(uintptr_t *gr, mreal *r, mreal *g, mreal *b)\r
 {      _GR_->Clf(mglColor(*r,*g,*b));  }\r
 //-----------------------------------------------------------------------------\r
-void mgl_subplot_d_(uintptr_t *gr, int *nx,int *ny,int *m,const char *st,mreal *dx,mreal *dy,int l)\r
+void mgl_subplot_d_(uintptr_t *gr, int *nx,int *ny,int *m,const char *st, mreal *dx, mreal *dy,int l)\r
 {      char *s=new char[l+1];  memcpy(s,st,l); s[l]=0;\r
        mgl_subplot_d(_GR_,*nx,*ny,*m,s,*dx,*dy);       delete []s;     }\r
 void mgl_subplot_(uintptr_t *gr, int *nx,int *ny,int *m,const char *st,int l)\r
@@ -155,9 +176,9 @@ void mgl_subplot_(uintptr_t *gr, int *nx,int *ny,int *m,const char *st,int l)
 void mgl_multiplot_(uintptr_t *gr, int *nx,int *ny,int *m,int *dx,int *dy,const char *st,int l)\r
 {      char *s=new char[l+1];  memcpy(s,st,l); s[l]=0;\r
        mgl_multiplot(_GR_,*nx,*ny,*m,*dx,*dy,s);       delete []s;     }\r
-void mgl_inplot_(uintptr_t *gr, mreal *x1,mreal *x2,mreal *y1,mreal *y2)\r
+void mgl_inplot_(uintptr_t *gr, mreal *x1, mreal *x2, mreal *y1, mreal *y2)\r
 {      _GR_->InPlot(*x1,*x2,*y1,*y2,false);    }\r
-void mgl_relplot_(uintptr_t *gr, mreal *x1,mreal *x2,mreal *y1,mreal *y2)\r
+void mgl_relplot_(uintptr_t *gr, mreal *x1, mreal *x2, mreal *y1, mreal *y2)\r
 {      _GR_->InPlot(*x1,*x2,*y1,*y2,true);     }\r
 void mgl_columnplot_(uintptr_t *gr, int *num, int *i, mreal *d)\r
 {      mgl_columnplot(_GR_,*num,*i,*d);        }\r
@@ -170,17 +191,17 @@ void mgl_title_(uintptr_t *gr, const char *title, const char *stl, mreal *size,
 {      char *t=new char[l+1];  memcpy(t,title,l);      t[l]=0;\r
        char *s=new char[m+1];  memcpy(s,stl,m);        s[m]=0;\r
        _GR_->Title(t,s,*size); delete []s;     delete []t;     }\r
-void mgl_aspect_(uintptr_t *gr, mreal *Ax,mreal *Ay,mreal *Az)\r
+void mgl_aspect_(uintptr_t *gr, mreal *Ax, mreal *Ay, mreal *Az)\r
 {      _GR_->Aspect(*Ax,*Ay,*Az);      }\r
-void mgl_rotate_(uintptr_t *gr, mreal *TetX,mreal *TetZ,mreal *TetY)\r
+void mgl_rotate_(uintptr_t *gr, mreal *TetX, mreal *TetZ, mreal *TetY)\r
 {      _GR_->Rotate(*TetX,*TetZ,*TetY);        }\r
-void mgl_view_(uintptr_t *gr, mreal *TetX,mreal *TetZ,mreal *TetY)\r
+void mgl_view_(uintptr_t *gr, mreal *TetX, mreal *TetZ, mreal *TetY)\r
 {      _GR_->View(*TetX,*TetZ,*TetY);  }\r
 void mgl_zoom_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *x2, mreal *y2)\r
 {      _GR_->Zoom(*x1,*y1,*x2,*y2);    }\r
-void mgl_rotate_vector_(uintptr_t *gr, mreal *Tet,mreal *x,mreal *y,mreal *z)\r
+void mgl_rotate_vector_(uintptr_t *gr, mreal *Tet, mreal *x, mreal *y, mreal *z)\r
 {      _GR_->RotateN(*Tet,*x,*y,*z);   }\r
-void mgl_perspective_(uintptr_t *gr, mreal val)\r
+void mgl_perspective_(uintptr_t *gr, double val)\r
 {      _GR_->Perspective(val); }\r
 //-----------------------------------------------------------------------------\r
 const unsigned char *mgl_get_rgb_(uintptr_t *gr)       {       return gr ? _GR_->GetBits():0;  }\r
@@ -205,15 +226,15 @@ void mgl_combine_gr(HMGL gr, HMGL in)
 {      const mglCanvas *gg = dynamic_cast<const mglCanvas *>(in);\r
        if(gg)  _Gr_->Combine(gg);      }\r
 //-----------------------------------------------------------------------------\r
-void mgl_set_tick_len(HMGL gr, mreal len, mreal stt)\r
+void mgl_set_tick_len(HMGL gr, double len, double stt)\r
 {      _Gr_->SetTickLen(len,stt);      }\r
 void mgl_set_axis_stl(HMGL gr, const char *stl, const char *tck, const char *sub)\r
 {      _Gr_->SetAxisStl(stl,tck,sub);  }\r
-void mgl_tune_ticks(HMGL gr, int tune, mreal pos)\r
+void mgl_tune_ticks(HMGL gr, int tune, double pos)\r
 {      _Gr_->SetTuneTicks(tune,pos);   }\r
 void mgl_adjust_ticks(HMGL gr, const char *dir)\r
 {      _Gr_->AdjustTicks(dir,true);    }\r
-void mgl_set_ticks(HMGL gr, char dir, mreal d, int ns, mreal org)\r
+void mgl_set_ticks(HMGL gr, char dir, double d, int ns, double org)\r
 {      _Gr_->SetTicks(dir,d,ns,org);   }\r
 void mgl_set_ticks_str(HMGL gr, char dir, const char *lbl, int add)\r
 {      _Gr_->SetTicksVal(dir,lbl,add); }\r
@@ -227,30 +248,28 @@ void mgl_set_tick_templ(HMGL gr, char dir, const char *templ)
 {      _Gr_->SetTickTempl(dir,templ);  }\r
 void mgl_set_tick_templw(HMGL gr, char dir, const wchar_t *templ)\r
 {      _Gr_->SetTickTempl(dir,templ);  }\r
-void mgl_set_ticks_time(HMGL gr, char dir, mreal d, const char *t)\r
+void mgl_set_ticks_time(HMGL gr, char dir, double d, const char *t)\r
 {      _Gr_->SetTickTime(dir,d,t);     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_box(HMGL gr)  {       _Gr_->Box();    }\r
 void mgl_box_str(HMGL gr, const char *col, int ticks)\r
 {      _Gr_->Box(col,ticks);   }\r
-void mgl_axis(HMGL gr, const char *dir, const char *stl)\r
-{      _Gr_->Axis(dir,stl);    }\r
-void mgl_axis_grid(HMGL gr, const char *dir,const char *pen)\r
-{      _Gr_->Grid(dir,pen);    }\r
-void mgl_label(HMGL gr, char dir, const char *text)\r
-{      _Gr_->Label(dir,text);  }\r
-void mgl_label_ext(HMGL gr, char dir, const char *text, mreal pos, mreal shift)\r
-{      _Gr_->Label(dir,text,pos,shift);        }\r
-void mgl_labelw_ext(HMGL gr, char dir, const wchar_t *text, mreal pos, mreal shift)\r
-{      _Gr_->Labelw(dir,text,pos,shift);       }\r
+void mgl_axis(HMGL gr, const char *dir, const char *stl, const char *opt)\r
+{      _Gr_->Axis(dir,stl,opt);        }\r
+void mgl_axis_grid(HMGL gr, const char *dir,const char *pen, const char *opt)\r
+{      _Gr_->Grid(dir,pen,opt);        }\r
+void mgl_label(HMGL gr, char dir, const char *text, double pos, const char *opt)\r
+{      _Gr_->Label(dir,text,pos,opt);  }\r
+void mgl_labelw(HMGL gr, char dir, const wchar_t *text, double pos, const char *opt)\r
+{      _Gr_->Labelw(dir,text,pos,opt); }\r
 //-----------------------------------------------------------------------------\r
 void mgl_colorbar(HMGL gr, const char *sch)\r
 {      _Gr_->Colorbar(sch);    }\r
-void mgl_colorbar_ext(HMGL gr, const char *sch, mreal x, mreal y, mreal w, mreal h)\r
+void mgl_colorbar_ext(HMGL gr, const char *sch, double x, double y, double w, double h)\r
 {      _Gr_->Colorbar(sch,x,y,w,h);    }\r
 void mgl_colorbar_val(HMGL gr, HCDT dat, const char *sch)\r
 {      _Gr_->Colorbar(dat,sch);        }\r
-void mgl_colorbar_val_ext(HMGL gr, HCDT dat, const char *sch,mreal x, mreal y, mreal w, mreal h)\r
+void mgl_colorbar_val_ext(HMGL gr, HCDT dat, const char *sch,double x, double y, double w, double h)\r
 {      _Gr_->Colorbar(dat,sch,x,y,w,h);        }\r
 //-----------------------------------------------------------------------------\r
 void mgl_add_legend(HMGL gr, const char *text,const char *style)\r
@@ -259,10 +278,10 @@ void mgl_add_legendw(HMGL gr, const wchar_t *text,const char *style)
 {      _Gr_->AddLegend(text,style);    }\r
 void mgl_clear_legend(HMGL gr)\r
 {      _Gr_->ClearLegend();    }\r
-void mgl_legend_pos(HMGL gr, mreal x, mreal y, const char *font, mreal size, mreal llen)\r
-{      _Gr_->Legend(x,y,font,size,llen);       }\r
-void mgl_legend(HMGL gr, int where, const char *font, mreal size, mreal llen)\r
-{      _Gr_->Legend(where,font,size,llen);     }\r
+void mgl_legend_pos(HMGL gr, double x, double y, const char *font, const char *opt)\r
+{      _Gr_->Legend(x,y,font,opt);     }\r
+void mgl_legend(HMGL gr, int where, const char *font, const char *opt)\r
+{      _Gr_->Legend(where,font,opt);   }\r
 void mgl_set_legend_marks(HMGL gr, int num)\r
 {      _Gr_->SetLegendMarks(num);      }\r
 //-----------------------------------------------------------------------------\r
@@ -306,20 +325,20 @@ void mgl_box_(uintptr_t *gr)      {       _GR_->Box();    }
 void mgl_box_str_(uintptr_t *gr, const char *col, int *ticks, int l)\r
 {      char *s=new char[l+1];  memcpy(s,col,l);        s[l]=0;\r
        _GR_->Box(s,*ticks);    delete []s;     }\r
-void mgl_axis_(uintptr_t *gr, const char *dir, const char *stl,int l,int n)\r
+void mgl_axis_(uintptr_t *gr, const char *dir, const char *stl, const char *opt,int l,int n,int m)\r
 {      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
        char *p=new char[n+1];  memcpy(p,stl,l);        p[n]=0;\r
-       _GR_->Axis(s,p);        delete []s;     delete []p;     }\r
-void mgl_axis_grid_(uintptr_t *gr, const char *dir,const char *pen,int l,int n)\r
+       char *o=new char[m+1];  memcpy(o,opt,m);        o[m]=0;\r
+       _GR_->Axis(s,p,o);      delete []s;     delete []p;     delete []o;     }\r
+void mgl_axis_grid_(uintptr_t *gr, const char *dir,const char *pen, const char *opt,int l,int n,int m)\r
 {      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
        char *p=new char[n+1];  memcpy(p,pen,n);        p[n]=0;\r
-       _GR_->Grid(s,p);        delete []s;     delete []p;     }\r
-void mgl_label_(uintptr_t *gr, const char *dir, const char *text,int,int l)\r
+       char *o=new char[m+1];  memcpy(o,opt,m);        o[m]=0;\r
+       _GR_->Grid(s,p,o);      delete []s;     delete []p;     delete []o;     }\r
+       void mgl_label_(uintptr_t *gr, const char *dir, const char *text, mreal *pos, const char *opt,int,int l,int m)\r
 {      char *s=new char[l+1];  memcpy(s,text,l);       s[l]=0;\r
-       _GR_->Label(*dir, s);   delete []s;     }\r
-void mgl_label_ext_(uintptr_t *gr, const char *dir, const char *text, mreal *pos, mreal *shift,int,int l)\r
-{      char *s=new char[l+1];  memcpy(s,text,l);       s[l]=0;\r
-       _GR_->Label(*dir, s, *pos, *shift);     delete []s;     }\r
+       char *o=new char[m+1];  memcpy(o,opt,m);        o[m]=0;\r
+       _GR_->Label(*dir, s, *pos, o);  delete []s;     delete []o;     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_colorbar_(uintptr_t *gr, const char *sch,int l)\r
 {      char *s=new char[l+1];  memcpy(s,sch,l);        s[l]=0;\r
@@ -339,12 +358,14 @@ void mgl_add_legend_(uintptr_t *gr, const char *text,const char *style,int l,int
        char *f=new char[n+1];  memcpy(f,style,n);      f[n]=0;\r
        _GR_->AddLegend(s,f);   delete []s;     delete []f;     }\r
 void mgl_clear_legend_(uintptr_t *gr)  {       if(gr)  _GR_->ClearLegend();    }\r
-void mgl_legend_pos_(uintptr_t *gr, mreal *x, mreal *y, const char *font, mreal *size, mreal *llen,int l)\r
+void mgl_legend_pos_(uintptr_t *gr, mreal *x, mreal *y, const char *font, const char *opt,int l,int m)\r
 {      char *s=new char[l+1];  memcpy(s,font,l);       s[l]=0;\r
-       _GR_->Legend(*x, *y, s, *size,*llen);   delete []s;     }\r
-void mgl_legend_(uintptr_t *gr, int *where, const char *font, mreal *size, mreal *llen,int l)\r
+       char *o=new char[m+1];  memcpy(o,opt,m);        o[m]=0;\r
+       _GR_->Legend(*x, *y, s, o);     delete []s;     delete []o;     }\r
+void mgl_legend_(uintptr_t *gr, int *where, const char *font, const char *opt,int l,int m)\r
 {      char *s=new char[l+1];  memcpy(s,font,l);       s[l]=0;\r
-       _GR_->Legend(*where, s, *size,*llen);   delete []s;     }\r
+       char *o=new char[m+1];  memcpy(o,opt,m);        o[m]=0;\r
+       _GR_->Legend(*where, s, o);     delete []s;     delete []o;     }\r
 void mgl_set_legend_marks_(uintptr_t *gr, int *num)\r
 {      _GR_->SetLegendMarks(*num);     }\r
 //-----------------------------------------------------------------------------\r
@@ -362,17 +383,17 @@ void mgl_mpi_send_(uintptr_t *gr, int *id)        {       mgl_mpi_send(_GR_, *id);        }
 void mgl_mpi_recv_(uintptr_t *gr, int *id)     {       mgl_mpi_recv(_GR_, *id);        }\r
 //-----------------------------------------------------------------------------\r
 void mgl_wnd_set_delay_(uintptr_t *gr, mreal *dt)      {       _GR_->SetDelay(*dt);    }\r
-void mgl_wnd_set_delay(HMGL gr, mreal dt)      {       _Gr_->SetDelay(dt);     }\r
+void mgl_wnd_set_delay(HMGL gr, double dt)     {       _Gr_->SetDelay(dt);     }\r
 //-----------------------------------------------------------------------------\r
 HMEX mgl_create_expr(const char *expr) {       return new mglFormula(expr);    }\r
 void mgl_delete_expr(HMEX ex)  {       delete ex;      }\r
-mreal mgl_expr_eval(HMEX ex, mreal x, mreal y,mreal z)\r
+double mgl_expr_eval(HMEX ex, double x, double y,double z)\r
 {      return ex->Calc(x,y,z); }\r
-mreal mgl_expr_eval_v(HMEX ex, mreal *var)\r
+double mgl_expr_eval_v(HMEX ex, mreal *var)\r
 {      return ex->Calc(var);   }\r
-mreal mgl_expr_diff(HMEX ex, char dir, mreal x, mreal y,mreal z)\r
+double mgl_expr_diff(HMEX ex, char dir, double x, double y,double z)\r
 {      return ex->CalcD(dir,x,y,z);    }\r
-mreal mgl_expr_diff_v(HMEX ex, char dir, mreal *var)\r
+double mgl_expr_diff_v(HMEX ex, char dir, mreal *var)\r
 {      return ex->CalcD(var, dir);             }\r
 //-----------------------------------------------------------------------------\r
 uintptr_t mgl_create_expr_(const char *expr, int l)\r
@@ -380,23 +401,28 @@ uintptr_t mgl_create_expr_(const char *expr, int l)
        uintptr_t res = uintptr_t(mgl_create_expr(s));\r
        delete []s;     return res;     }\r
 void mgl_delete_expr_(uintptr_t *ex)   {       mgl_delete_expr((HMEX)ex);      }\r
-mreal mgl_eval_expr_(uintptr_t *ex, mreal *x, mreal *y,mreal *z)\r
+double mgl_eval_expr_(uintptr_t *ex, mreal *x, mreal *y, mreal *z)\r
 {      return mgl_expr_eval((HMEX) ex, *x,*y,*z);              }\r
-mreal mgl_diff_expr_(uintptr_t *ex, const char *dir, mreal *x, mreal *y,mreal *z, int)\r
+double mgl_diff_expr_(uintptr_t *ex, const char *dir, mreal *x, mreal *y, mreal *z, int)\r
 {      return mgl_expr_diff((HMEX) ex, *dir,*x,*y,*z); }\r
 //-----------------------------------------------------------------------------\r
-void mgl_set_plotfactor(HMGL gr, mreal val)\r
+void mgl_set_plotfactor(HMGL gr, double val)\r
 {      _Gr_->SetPlotFactor(val);       }\r
 void mgl_set_plotfactor_(uintptr_t *gr, mreal *val)\r
 {      _GR_->SetPlotFactor(*val);      }\r
 //-----------------------------------------------------------------------------\r
-void mgl_set_tick_shift(HMGL gr, mreal sx, mreal sy, mreal sz, mreal sc)\r
+void mgl_set_tick_shift(HMGL gr, double sx, double sy, double sz, double sc)\r
 {      _Gr_->SetTickShift(mglPoint(sx,sy,sz,sc));      }\r
 void mgl_set_tick_shift_(uintptr_t *gr, mreal *sx, mreal *sy, mreal *sz, mreal *sc)\r
 {      _GR_->SetTickShift(mglPoint(*sx,*sy,*sz,*sc));  }\r
 //-----------------------------------------------------------------------------\r
 #if !MGL_HAVE_PNG\r
-void mgl_write_prc(HMGL gr, const char *fname,const char *descr, int make_pdf){}\r
-void mgl_write_prc_(uintptr_t *graph, const char *fname,const char *descr, int *make_pdf,int lf,int ld){}\r
+void mgl_write_prc(HMGL gr, const char *fname,const char *descr, int make_pdf)\r
+{      mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";   }\r
+void mgl_write_prc_(uintptr_t *graph, const char *fname,const char *descr, int *make_pdf,int lf,int ld)\r
+{      mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";   }\r
 #endif\r
 //-----------------------------------------------------------------------------\r
+void mgl_finish(HMGL gr)       {       _Gr_->Finish(); }\r
+void mgl_finish_(uintptr_t *gr)        {       _GR_->Finish(); }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/complex.cpp b/src/complex.cpp
new file mode 100644 (file)
index 0000000..9f4cee4
--- /dev/null
+++ b/src/complex.cpp
@@ -0,0 +1,862 @@
+/***************************************************************************\r
+ * data.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#include "mgl2/datac.h"\r
+#include "mgl2/evalc.h"\r
+\r
+#if MGL_HAVE_GSL\r
+#include <gsl/gsl_fft_complex.h>\r
+#include <gsl/gsl_dht.h>\r
+#include <gsl/gsl_sf.h>\r
+#endif\r
+//-----------------------------------------------------------------------------\r
+void mglStartThreadC(void *(*func)(void *), void (*post)(mglThreadC *,dual *), long n,\r
+                                       dual *a, const dual *b, const dual *c, const long *p,\r
+                                       const void *v, const dual *d, const dual *e, const char *s)\r
+{\r
+       if(!func)       return;\r
+#if MGL_HAVE_PTHREAD\r
+       if(mglNumThr<1) mgl_set_num_thr(0);\r
+       if(mglNumThr>1)\r
+       {\r
+               pthread_t *tmp=new pthread_t[mglNumThr];\r
+               mglThreadC *par=new mglThreadC[mglNumThr];\r
+               register long i;\r
+               for(i=0;i<mglNumThr;i++)        // put parameters into the structure\r
+               {       par[i].n=n;     par[i].a=a;     par[i].b=b;     par[i].c=c;     par[i].d=d;\r
+                       par[i].p=p;     par[i].v=v;     par[i].s=s;     par[i].e=e;     par[i].id=i;    }\r
+               for(i=0;i<mglNumThr;i++)        pthread_create(tmp+i, 0, func, par+i);\r
+               for(i=0;i<mglNumThr;i++)        pthread_join(tmp[i], 0);\r
+               if(post)        post(par,a);\r
+               delete []tmp;   delete []par;\r
+       }\r
+       else\r
+#endif\r
+       {\r
+               mglNumThr = 1;\r
+               mglThreadC par;\r
+               par.n=n;        par.a=a;        par.b=b;        par.c=c;        par.d=d;\r
+               par.p=p;        par.v=v;        par.s=s;        par.e=e;        par.id=0;\r
+               func(&par);\r
+               if(post)        post(&par,a);\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglStartThreadV(void *(*func)(void *), long n, dual *a, const void *b,\r
+                                       const void *c, const long *p, const void *v, const mreal *d)\r
+{\r
+       if(!func)       return;\r
+#if MGL_HAVE_PTHREAD\r
+       if(mglNumThr<1) mgl_set_num_thr(0);\r
+       if(mglNumThr>1)\r
+       {\r
+               pthread_t *tmp=new pthread_t[mglNumThr];\r
+               mglThreadV *par=new mglThreadV[mglNumThr];\r
+               register long i;\r
+               for(i=0;i<mglNumThr;i++)        // put parameters into the structure\r
+               {       par[i].n=n;     par[i].a=0;     par[i].b=b;     par[i].c=c;     par[i].d=d;\r
+                       par[i].p=p;     par[i].v=v;     par[i].id=i;par[i].aa=a;        }\r
+               for(i=0;i<mglNumThr;i++)        pthread_create(tmp+i, 0, func, par+i);\r
+               for(i=0;i<mglNumThr;i++)        pthread_join(tmp[i], 0);\r
+               delete []tmp;   delete []par;\r
+       }\r
+       else\r
+#endif\r
+       {\r
+               mglNumThr = 1;\r
+               mglThreadV par;\r
+               par.n=n;        par.a=0;        par.b=b;        par.c=c;        par.d=d;\r
+               par.p=p;        par.v=v;        par.id=0;       par.aa=a;\r
+               func(&par);\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void *mgl_csmth_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,d3,d5, nx=t->p[0];\r
+       dual *b=t->a, y5,y3,x2y;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<t->n;i+=mglNumThr)\r
+       {\r
+               j = i%nx;\r
+               d3 = d5 = 0;\r
+               if(j==0)        {       d3 = 1;         d5 = 2; }\r
+               if(j==1)        {       d5 = 1; }\r
+               if(j==nx-1)     {       d3 = -1;        d5 = -2;}\r
+               if(j==nx-2)     {       d5 = -1;}\r
+               y3 = (a[i+d3-1] + a[i+d3] + a[i+d3+1]);\r
+               y5 = (a[i+d5-2] + a[i+d5-1] + a[i+d5] + a[i+d5+1] + a[i+d5+2]);\r
+               x2y= (a[i+d5+1] + mgl4*a[i+d5+2] + mgl4*a[i+d5-2] + a[i+d5-1]);\r
+               j = t->p[2];\r
+               if(d3)  b[i] = a[i];\r
+               else if(j==SMOOTH_LINE_3 || d5) b[i] = y3/mgl3;\r
+               else if(j==SMOOTH_LINE_5)               b[i] = y5/mreal(5);\r
+               else if(j==SMOOTH_QUAD_5)               b[i] = (mreal(17)*y5-mreal(5)*x2y)/mreal(35);\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_csmth_y(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,d3,d5, nx=t->p[0],ny=t->p[1];\r
+       dual *b=t->a, y5,y3,x2y;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<t->n;i+=mglNumThr)\r
+       {\r
+               j = (i/nx)%ny;\r
+               d3 = d5 = 0;\r
+               if(j==0)        {       d3 = 1;         d5 = 2; }\r
+               if(j==1)        {       d5 = 1; }\r
+               if(j==ny-1)     {       d3 = -1;        d5 = -2;}\r
+               if(j==ny-2)     {       d5 = -1;}\r
+               y3 = (a[i+nx*(d3-1)] + a[i+nx*d3] + a[i+nx*(d3+1)]);\r
+               y5 = (a[i+nx*(d5-2)] + a[i+nx*(d5-1)] + a[i+nx*d5] + a[i+nx*(d5+1)] + a[i+nx*(d5+2)]);\r
+               x2y= (a[i+nx*(d5+1)] + mgl4*a[i+nx*(d5+2)] + mgl4*a[i+nx*(d5-2)] + a[i+nx*(d5-1)]);\r
+               j = t->p[2];\r
+               if(d3)  b[i] = a[i];\r
+               else if(j==SMOOTH_LINE_3 || d5) b[i] = y3/mgl3;\r
+               else if(j==SMOOTH_LINE_5)               b[i] = y5/mreal(5);\r
+               else if(j==SMOOTH_QUAD_5)               b[i] = (mreal(17)*y5-mreal(5)*x2y)/mreal(35);\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_csmth_z(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,d3,d5, nn=t->p[0]*t->p[1], nz=t->n/nn;\r
+       dual *b=t->a, y5,y3,x2y;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<t->n;i+=mglNumThr)\r
+       {\r
+               j = i/nn;\r
+               d3 = d5 = 0;\r
+               if(j==0)        {       d3 = 1;         d5 = 2; }\r
+               if(j==1)        {       d5 = 1; }\r
+               if(j==nz-1)     {       d3 = -1;        d5 = -2;}\r
+               if(j==nz-2)     {       d5 = -1;}\r
+               y3 = (a[i+nn*(d3-1)] + a[i+nn*d3] + a[i+nn*(d3+1)]);\r
+               y5 = (a[i+nn*(d5-2)] + a[i+nn*(d5-1)] + a[i+nn*d5] + a[i+nn*(d5+1)] + a[i+nn*(d5+2)]);\r
+               x2y= (a[i+nn*(d5+1)] + mgl4*a[i+nn*(d5+2)] + mgl4*a[i+nn*(d5-2)] + a[i+nn*(d5-1)]);\r
+               j = t->p[2];\r
+               if(d3)  b[i] = a[i];\r
+               else if(j==SMOOTH_LINE_3 || d5) b[i] = y3/mgl3;\r
+               else if(j==SMOOTH_LINE_5)               b[i] = y5/mreal(5);\r
+               else if(j==SMOOTH_QUAD_5)               b[i] = (mreal(17)*y5-mreal(5)*x2y)/mreal(35);\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_smooth(HADT d, const char *dirs, mreal )\r
+{\r
+       long Type = SMOOTH_QUAD_5;\r
+       if(!dirs || *dirs==0)   dirs = "xyz";\r
+       if(strchr(dirs,'0') || strchr(dirs,'1'))        return;\r
+       if(strchr(dirs,'3'))    Type = SMOOTH_LINE_3;\r
+       if(strchr(dirs,'5'))    Type = SMOOTH_LINE_5;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz;\r
+//     if(Type == SMOOTH_NONE) return;\r
+       long p[3]={nx,ny,Type};\r
+       dual *b = new dual[nx*ny*nz];\r
+       // ����������� �� x\r
+       memset(b,0,nx*ny*nz*sizeof(dual));\r
+       if(nx>4 && strchr(dirs,'x'))\r
+       {\r
+               mglStartThreadC(mgl_csmth_x,0,nx*ny*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nx*ny*nz*sizeof(dual));\r
+               memset(b,0,nx*ny*nz*sizeof(dual));\r
+       }\r
+       if(ny>4 && strchr(dirs,'y'))\r
+       {\r
+               mglStartThreadC(mgl_csmth_y,0,nx*ny*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nx*ny*nz*sizeof(dual));\r
+               memset(b,0,nx*ny*nz*sizeof(dual));\r
+       }\r
+       if(nz>4 && strchr(dirs,'z'))\r
+       {\r
+               mglStartThreadC(mgl_csmth_z,0,nx*ny*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nx*ny*nz*sizeof(dual));\r
+       }\r
+       delete []b;\r
+}\r
+void mgl_datac_smooth_(uintptr_t *d, const char *dir, mreal *delta,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_smooth(_DC_,s,*delta);                delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_ccsum_z(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j, nz=t->p[2], nn=t->n;\r
+       dual *b=t->a;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               b[i] = a[i];\r
+               for(j=1;j<nz;j++)       b[i+j*nn] = b[i+j*nn-nn] + a[i+j*nn];\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_ccsum_y(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], ny=t->p[1], nn=t->n;\r
+       dual *b=t->a;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = (i%nx)+nx*ny*(i/nx);                b[k] = a[k];\r
+               for(j=1;j<ny;j++)       b[k+j*nx] = b[k+j*nx-nx] + a[k+nx*j];\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_ccsum_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], nn=t->n;\r
+       dual *b=t->a;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = i*nx;                       b[k] = a[k];\r
+               for(j=1;j<nx;j++)       b[j+k] = b[j+k-1] + a[j+k];\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_cumsum(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
+       long p[3]={nx,ny,nz};\r
+       dual *b = new dual[nn];\r
+       memcpy(b,d->a,nn*sizeof(dual));\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               mglStartThreadC(mgl_ccsum_z,0,nx*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               mglStartThreadC(mgl_ccsum_y,0,nx*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               mglStartThreadC(mgl_ccsum_x,0,nz*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       delete []b;\r
+}\r
+void mgl_datac_cumsum_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_cumsum(_DC_,s);       delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cint_z(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j, nz=t->p[2], nn=t->n;\r
+       dual *b=t->a, dd=0.5/nz;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               b[i] = 0;\r
+               for(j=1;j<nz;j++)       b[i+j*nn] = b[i+j*nn-nn] + (a[i+nn*j]+a[i+j*nn-nn])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cint_y(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], ny=t->p[1], nn=t->n;\r
+       dual *b=t->a, dd=0.5/ny;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = (i%nx)+nx*ny*(i/nx);        b[k] = 0;\r
+               for(j=1;j<ny;j++)       b[k+j*nx] = b[k+j*nx-nx] + (a[k+j*nx]+a[k+j*nx-nx])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cint_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], nn=t->n;\r
+       dual *b=t->a, dd=0.5/nx;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = i*nx;                       b[k] = 0;\r
+               for(j=1;j<nx;j++)       b[j+k] = b[j+k-1] + (a[j+k]+a[j+k-1])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_integral(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
+       long p[3]={nx,ny,nz};\r
+       dual *b = new dual[nn];\r
+       memcpy(b,d->a,nn*sizeof(dual));\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               mglStartThreadC(mgl_cint_z,0,nx*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               mglStartThreadC(mgl_cint_y,0,nx*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               mglStartThreadC(mgl_cint_x,0,nz*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       delete []b;\r
+}\r
+void mgl_datac_integral_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_integral(_DC_,s);     delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cdif_z(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j, nz=t->p[2], nn=t->n;\r
+       dual *b=t->a, dd=0.5*nz;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               b[i] = -(mgl3*a[i]-mgl4*a[i+nn]+a[i+2*nn])*dd;\r
+               b[i+(nz-1)*nn] = (mgl3*a[i+(nz-1)*nn]-mgl4*a[i+(nz-2)*nn]+a[i+(nz-3)*nn])*dd;\r
+               for(j=1;j<nz-1;j++)             b[i+j*nn] = (a[i+j*nn+nn]-a[i+j*nn-nn])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cdif_y(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], ny=t->p[1], nn=t->n;\r
+       dual *b=t->a, dd=0.5*ny;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = (i%nx)+nx*ny*(i/nx);\r
+               b[k] = -(mgl3*a[k]-mgl4*a[k+nx]+a[k+2*nx])*dd;\r
+               b[k+(ny-1)*nx] = (mgl3*a[k+(ny-1)*nx]-mgl4*a[k+(ny-2)*nx]+a[k+(ny-3)*nx])*dd;\r
+               for(j=1;j<ny-1;j++)     b[k+j*nx] = (a[k+j*nx+nx]-a[k+j*nx-nx])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cdif_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], nn=t->n;\r
+       dual *b=t->a, dd=0.5*nx;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = i*nx;\r
+               b[k] = -(mgl3*a[k]-mgl4*a[k+1]+a[k+2])*dd;\r
+               b[k+nx-1] = (mgl3*a[k+nx-1]-mgl4*a[k+nx-2]+a[k+nx-3])*dd;\r
+               for(j=1;j<nx-1;j++)     b[j+k] = (a[j+k+1]-a[j+k-1])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_diff(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
+       long p[3]={nx,ny,nz};\r
+       dual *b = new dual[nn];\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif_z,0,nx*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif_y,0,nx*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif_x,0,nz*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       delete []b;\r
+}\r
+void mgl_datac_diff_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_diff(_DC_,s); delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cdif2_z(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j, nz=t->p[2], nn=t->n;\r
+       dual *b=t->a, dd=0.5*nz*nz;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               b[i] = b[i+(nz-1)*nn] = 0;\r
+               for(j=1;j<nz-1;j++)             b[i+j*nn] = (a[i+j*nn+nn]+a[i+j*nn-nn]-mgl2*a[i+j*nn])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cdif2_y(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], ny=t->p[1], nn=t->n;\r
+       dual *b=t->a, dd=0.5*ny*ny;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = (i%nx)+nx*ny*(i/nx);        b[k] = b[k+(ny-1)*nx] = 0;\r
+               for(j=1;j<ny-1;j++)     b[k+j*nx] = (a[k+j*nx+nx]+a[k+j*nx-nx]-mgl2*a[k+j*nx])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cdif2_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i,j,k, nx=t->p[0], nn=t->n;\r
+       dual *b=t->a, dd=0.5*nx*nx;\r
+       const dual *a=t->b;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               k = i*nx;                       b[k] = b[k+nx-1] = 0;\r
+               for(j=1;j<nx-1;j++)     b[j+k] = (a[j+k+1]+a[j+k-1]-mgl2*a[j+k])*dd;\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_diff2(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
+       long p[3]={nx,ny,nz};\r
+       dual *b = new dual[nn];\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif2_z,0,nx*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif2_y,0,nx*nz,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               mglStartThreadC(mgl_cdif2_x,0,nz*ny,b,d->a,0,p);\r
+               memcpy(d->a,b,nn*sizeof(dual));\r
+       }\r
+       delete []b;\r
+}\r
+void mgl_datac_diff2_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_diff2(_DC_,s);        delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_swap(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       if(strchr(dir,'z') && d->nz>1)  mgl_datac_roll(d,'z',d->nz/2);\r
+       if(strchr(dir,'y') && d->ny>1)  mgl_datac_roll(d,'y',d->ny/2);\r
+       if(strchr(dir,'x') && d->nx>1)  mgl_datac_roll(d,'x',d->nx/2);\r
+}\r
+void mgl_datac_swap_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_swap(_DC_,s); delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_roll(HADT dd, char dir, long num)\r
+{\r
+       long nx=dd->nx,ny=dd->ny,nz=dd->nz;\r
+       register long i,d;\r
+       dual *b,*a=dd->a;\r
+       if(dir=='z' && nz>1)\r
+       {\r
+               d = num>0 ? num%nz : (num+nz*(1+num/nz))%nz;\r
+               if(d==0)        return;         // nothing to do\r
+               b = new dual[nx*ny*nz];\r
+               memcpy(b,a+nx*ny*d,nx*ny*(nz-d)*sizeof(dual));\r
+               memcpy(b+nx*ny*(nz-d),a,nx*ny*d*sizeof(dual));\r
+               memcpy(a,b,nx*ny*nz*sizeof(dual));      delete []b;\r
+       }\r
+       if(dir=='y' && ny>1)\r
+       {\r
+               d = num>0 ? num%ny : (num+ny*(1+num/ny))%ny;\r
+               if(d==0)        return;         // nothing to do\r
+               b = new dual[nx*ny*nz];\r
+               memcpy(b,a+nx*d,(nx*ny*nz-nx*d)*sizeof(dual));\r
+               for(i=0;i<nz;i++)\r
+                       memcpy(b+nx*(ny-d)+nx*ny*i,a+nx*ny*i,nx*d*sizeof(dual));\r
+               memcpy(a,b,nx*ny*nz*sizeof(dual));      delete []b;\r
+       }\r
+       if(dir=='x' && nx>1)\r
+       {\r
+               d = num>0 ? num%nx : (num+nx*(1+num/nx))%nx;\r
+               if(d==0)        return;         // nothing to do\r
+               b = new dual[nx*ny*nz];\r
+               memcpy(b,a+d,(nx*ny*nz-d)*sizeof(dual));\r
+               for(i=0;i<nz*ny;i++)\r
+                       memcpy(b+nx-d+nx*i,a+nx*i,d*sizeof(dual));\r
+               memcpy(a,b,nx*ny*nz*sizeof(dual));      delete []b;\r
+       }\r
+}\r
+void mgl_datac_roll_(uintptr_t *d, const char *dir, int *num, int)\r
+{      mgl_datac_roll(_DC_,*dir,*num); }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_mirror(HADT d, const char *dir)\r
+{\r
+       if(!dir || *dir==0)     return;\r
+       long nx=d->nx,ny=d->ny,nz=d->nz;\r
+       register long i,j,k,i0,j0;\r
+       dual b, *a=d->a;\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               for(j=0;j<nz/2;j++)     for(i=0;i<nx*ny;i++)\r
+               {\r
+                       i0 = i+j*nx*ny; j0 = i+(nz-1-j)*nx*ny;\r
+                       b = a[i0];      a[i0] = a[j0];  a[j0] = b;\r
+               }\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               for(k=0;k<nz;k++)       for(i=0;i<nx;i++)\r
+               {\r
+                       j0 = i+nx*ny*k;\r
+                       for(j=0;j<ny/2;j++)\r
+                       {\r
+                               i0 = j0+(ny-1-j)*nx;    b = a[j0+j*nx];\r
+                               a[j0+j*nx] = a[i0];     a[i0] = b;\r
+                       }\r
+               }\r
+       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               for(j=0;j<ny*nz;j++)\r
+               {\r
+                       j0 = j*nx;\r
+                       for(i=0;i<nx/2;i++)\r
+                       {       i0 = nx-1-i+j0; b = a[i+j0];    a[i+j0] = a[i0];        a[i0] = b;      }\r
+               }\r
+       }\r
+}\r
+void mgl_datac_mirror_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_mirror(_DC_,s);       delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+dual mgl_datac_linear_ext(HCDT d, mreal x,mreal y,mreal z, dual *dx,dual *dy,dual *dz)\r
+{\r
+       long kx=long(x), ky=long(y), kz=long(z);\r
+       dual b0,b1;\r
+       bool dif = (dx && dy && dz);\r
+       const mglDataC *dd=dynamic_cast<const mglDataC *>(d);\r
+       if(dd)\r
+       {\r
+               long nx=dd->nx, ny=dd->ny, nz=dd->nz, dn=ny>1?nx:0;\r
+               kx = kx<nx-1 ? kx:nx-2; kx = kx>=0 ? kx:0;\r
+               ky = ky<ny-1 ? ky:ny-2; ky = ky>=0 ? ky:0;\r
+               kz = kz<nz-1 ? kz:nz-2; kz = kz>=0 ? kz:0;\r
+               x -= kx;        if(nx==1)       x=0;\r
+               y -= ky;        if(ny==1)       y=0;\r
+               z -= kz;        if(nz==1)       z=0;\r
+\r
+               const dual *aa=dd->a+kx+nx*(ky+ny*kz), *bb = aa+(nz>1?nx*ny:0);\r
+               b0 = aa[0]*(1-x-y+x*y) + x*(1-y)*aa[1] + y*(1-x)*aa[dn] + x*y*aa[1+dn];\r
+               b1 = bb[0]*(1-x-y+x*y) + x*(1-y)*bb[1] + y*(1-x)*bb[dn] + x*y*bb[1+dn];\r
+               if(dif)\r
+               {       *dx = aa[1]-aa[0];      *dy = aa[dn]-aa[0];     *dz = bb[0]-aa[0];      }\r
+       }\r
+       else\r
+       {\r
+               long n=d->GetNx(), ny=d->GetNy(), nz=d->GetNz();\r
+               kx = (kx>=0 ? (kx<n ? kx:n -1):0);\r
+               ky = (ky>=0 ? (ky<ny? ky:ny-1):0);\r
+               kz = (kz>=0 ? (kz<nz? kz:nz-1):0);\r
+               x -= kx;        y -= ky;        z -= kz;\r
+\r
+               dual a0 = d->v(kx,ky,kz), a1 = d->v(kx+1,ky,kz), a2 = d->v(kx,ky+1,kz);\r
+               if(dif) {       *dx = a1-a0;    *dy = a2-a0;    *dz = -a0;      }\r
+               b0 = a0*(1-x-y+x*y) + x*(1-y)*a1 +\r
+                       y*(1-x)*a2 + x*y*d->v(kx+1,ky+1,kz);\r
+               kz++;\r
+               a0 = d->v(kx,ky,kz);\r
+               if(dif) *dz += a0;\r
+               b1 = a0*(1-x-y+x*y) + x*(1-y)*d->v(kx+1,ky,kz) +\r
+                       y*(1-x)*d->v(kx,ky+1,kz) + x*y*d->v(kx+1,ky+1,kz);\r
+       }\r
+       return b0 + z*(b1-b0);\r
+}\r
+dual mgl_datac_linear(HCDT d, mreal x,mreal y,mreal z)\r
+{      return mgl_datac_linear_ext(d, x,y,z, 0,0,0);   }\r
+//-----------------------------------------------------------------------------\r
+dual mgl_datac_linear_(uintptr_t *d, mreal *x,mreal *y,mreal *z)\r
+{      return mgl_datac_linear(_DA_(d),*x,*y,*z);      }\r
+dual mgl_datac_linear_ext_(uintptr_t *d, mreal *x,mreal *y,mreal *z, dual *dx,dual *dy,dual *dz)\r
+{      return mgl_datac_linear_ext(_DA_(d),*x,*y,*z,dx,dy,dz); }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_crop(HADT d, long n1, long n2, char dir)\r
+{\r
+       long nx=d->nx,ny=d->ny,nz=d->nz, nn;\r
+       register long i,k;\r
+       dual *b;\r
+       if(n1<0)        n1=0;\r
+       switch(dir)\r
+       {\r
+       case 'x':\r
+               n2 = n2>0 ? n2 : nx+n2;\r
+               if(n2<0 || n2>=nx || n2<n1)     n2 = nx;\r
+               nn = n2-n1;     b = new dual[nn*ny*nz];\r
+               for(i=0;i<ny*nz;i++)\r
+                       memcpy(b+nn*i,d->a+nx*i+n1,nn*sizeof(dual));\r
+               d->nx = nn;     if(!d->link)    delete []d->a;\r
+               d->a = b;       d->link=false;  d->NewId();\r
+               break;\r
+       case 'y':\r
+               n2 = n2>0 ? n2 : ny+n2;\r
+               if(n2<0 || n2>=ny || n2<n1)     n2 = ny;\r
+               nn = n2-n1;     b = new dual[nn*nx*nz];\r
+               for(long j=0;j<nz;j++)  for(k=0;k<nn;k++)\r
+                       memcpy(b+nx*(k+nn*j),d->a+nx*(n1+k+ny*j),nx*sizeof(dual));\r
+               d->ny = nn;     if(!d->link)    delete []d->a;\r
+               d->a = b;       d->link=false;\r
+               break;\r
+       case 'z':\r
+               n2 = n2>0 ? n2 : nz+n2;\r
+               if(n2<0 || n2>=nz || n2<n1)     n2 = nz;\r
+               nn = n2-n1;     b = new dual[nn*nx*ny];\r
+               memcpy(b,d->a+nx*ny*n1,nn*nx*ny*sizeof(dual));\r
+               d->nz = nn;     if(!d->link)    delete []d->a;\r
+               d->a = b;       d->link=false;\r
+               break;\r
+       }\r
+}\r
+void mgl_datac_crop_(uintptr_t *d, int *n1, int *n2, const char *dir,int)\r
+{      mgl_datac_crop(_DC_,*n1,*n2,*dir);      }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_insert(HADT d, char dir, long at, long num)\r
+{\r
+       if(num<1)       return;\r
+       at = at<0 ? 0:at;\r
+       register long i,k,nn;\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       mglDataC b;\r
+       if(dir=='x')\r
+       {\r
+               if(at>nx)       at=nx;\r
+               nn=nx+num;      b.Create(nn,ny,nz);\r
+               for(k=0;k<ny*nz;k++)\r
+               {\r
+                       if(at>0)        memcpy(b.a+nn*k, d->a+nx*k,at*sizeof(dual));\r
+                       if(at<nx)       memcpy(b.a+at+num+nn*k, d->a+at+nx*k,(nx-at)*sizeof(dual));\r
+                       for(i=0;i<num;i++)      b.a[nn*k+at+i]=d->a[nx*k+at];   // copy values\r
+               }\r
+               d->Set(b);      nx+=num;\r
+       }\r
+       if(dir=='y')\r
+       {\r
+               if(at>ny)       at=ny;\r
+               nn=num+ny;      b.Create(nx,nn,nz);\r
+               for(k=0;k<nz;k++)\r
+               {\r
+                       if(at>0)        memcpy(b.a+nx*nn*k, d->a+nx*ny*k,at*nx*sizeof(dual));\r
+                       if(at<ny)       memcpy(b.a+nx*(at+num+nn*k), d->a+nx*(at+ny*k),(ny-at)*nx*sizeof(dual));\r
+                       for(i=0;i<num;i++)      memcpy(b.a+nx*(nn*k+at+i),d->a+nx*(ny*k+at),nx*sizeof(dual));\r
+               }\r
+               d->Set(b);      ny+=num;\r
+       }\r
+       if(dir=='z')\r
+       {\r
+               if(at>nz)       at=nz;\r
+               b.Create(nx,ny,nz+num);\r
+               if(at>0)        memcpy(b.a, d->a,at*nx*ny*sizeof(dual));\r
+               if(at<nz)       memcpy(b.a+nx*ny*(at+num), d->a+nx*ny*at,(nz-at)*nx*ny*sizeof(dual));\r
+               for(i=0;i<num;i++)      memcpy(b.a+nx*ny*(at+i),d->a+nx*ny*at,nx*ny*sizeof(dual));\r
+               d->Set(b);      nz+=num;\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_delete(HADT d, char dir, long at, long num)\r
+{\r
+       if(num<1 || at<0)       return;\r
+       mglDataC b;\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       register long k,nn;\r
+       if(dir=='x')\r
+       {\r
+               if(at+num>=nx)  return;\r
+               nn=nx-num;      b.Create(nn,ny,nz);\r
+               for(k=0;k<ny*nz;k++)\r
+               {\r
+                       if(at>0)        memcpy(b.a+nn*k, d->a+nx*k,at*sizeof(dual));\r
+                       memcpy(b.a+at+nn*k, d->a+at+num+nx*k,(nx-at-num)*sizeof(dual));\r
+               }\r
+               d->Set(b);      nx-=num;\r
+       }\r
+       if(dir=='y')\r
+       {\r
+               if(at+num>=ny)  return;\r
+               nn=ny-num;      b.Create(nx,nn,nz);\r
+               for(k=0;k<nz;k++)\r
+               {\r
+                       if(at>0)        memcpy(b.a+nx*nn*k, d->a+nx*ny*k,at*nx*sizeof(dual));\r
+                       memcpy(b.a+nx*(at+nn*k), d->a+nx*(at+num+ny*k),(ny-at-num)*nx*sizeof(dual));\r
+               }\r
+               d->Set(b);      ny-=num;\r
+       }\r
+       if(dir=='z')\r
+       {\r
+               if(at+num>=nz)  return;\r
+               b.Create(nx,ny,nz-num);\r
+               if(at>0)        memcpy(b.a, d->a,at*nx*ny*sizeof(dual));\r
+               memcpy(b.a+nx*ny*at, d->a+nx*ny*(at+num),(nz-at-num)*nx*ny*sizeof(dual));\r
+               d->Set(b);      nz-=num;\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_insert_(uintptr_t *d, const char *dir, int *at, int *num, int)\r
+{      mgl_datac_insert(_DC_,*dir,*at,*num);   }\r
+void mgl_datac_delete_(uintptr_t *d, const char *dir, int *at, int *num, int)\r
+{      mgl_datac_delete(_DC_,*dir,*at,*num);   }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_value(HADT dat, dual v, long i, long j, long k)\r
+{\r
+       if(i>=0 && i<dat->nx && j>=0 && j<dat->ny && k>=0 && k<dat->nz)\r
+               dat->a[i+dat->nx*(j+dat->ny*k)]=v;\r
+}\r
+void mgl_datac_set_value_(uintptr_t *d, dual *v, int *i, int *j, int *k)\r
+{      mgl_datac_set_value(_DC_,*v,*i,*j,*k);  }\r
+//-----------------------------------------------------------------------------\r
+dual mgl_datac_get_value(HCDT dat, long i, long j, long k)\r
+{\r
+       if(i<0 || i>=dat->GetNx() || j<0 || j>=dat->GetNy() || k<0 || k>=dat->GetNz())\r
+               return NAN;\r
+       const mglDataC *d = dynamic_cast<const mglDataC*>(dat);\r
+       return d ? d->a[i+d->nx*(j+d->nz*k)] : dat->v(i,j,k);   \r
+}\r
+dual mgl_datac_get_value_(uintptr_t *d, int *i, int *j, int *k)\r
+{      return mgl_datac_get_value(_DA_(d),*i,*j,*k);   }\r
+//-----------------------------------------------------------------------------\r
+dual *mgl_datac_data(HADT dat) {       return dat->a;  }\r
+//-----------------------------------------------------------------------------\r
+dual *mgl_datac_value(HADT dat, long i,long j,long k)\r
+{      register long ii=i*dat->nx*(j+dat->ny*k);\r
+       return  ii>=0 && ii<dat->GetNN() ? dat->a+ii : 0;       }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_fft(HADT d, const char *dir)\r
+{\r
+#if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
+       long nx = d->nx, ny = d->ny, nz = d->nz;\r
+       double *a = new double[2*nx*ny*nz];\r
+       register long i,j;\r
+       gsl_fft_direction how = strchr(dir,'i')?backward:forward;\r
+       for(i=0;i<nx*ny*nz;i++)\r
+       {       a[2*i] = real(d->a[i]); a[2*i+1] = imag(d->a[i]);       }\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(nx);\r
+               gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(nx);\r
+               for(i=0;i<ny*nz;i++)\r
+                       gsl_fft_complex_transform(a+2*i*nx, 1, nx, wt, ws, how);\r
+               gsl_fft_complex_workspace_free(ws);\r
+               gsl_fft_complex_wavetable_free(wt);\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(ny);\r
+               gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(ny);\r
+               for(j=0;j<nz;j++)       for(i=0;i<nx;i++)\r
+                       gsl_fft_complex_transform(a+2*i+2*j*nx*ny, nx, ny, wt, ws, how);\r
+               gsl_fft_complex_workspace_free(ws);\r
+               gsl_fft_complex_wavetable_free(wt);\r
+       }\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(nz);\r
+               gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(nz);\r
+               for(i=0;i<ny*nx;i++)\r
+                       gsl_fft_complex_transform(a+2*i, nx*ny, nz, wt, ws, how);\r
+               gsl_fft_complex_workspace_free(ws);\r
+               gsl_fft_complex_wavetable_free(wt);\r
+       }\r
+       for(i=0;i<nx*ny*nz;i++) d->a[i] = dual(a[2*i], a[2*i+1]);\r
+       delete []a;\r
+#endif\r
+}\r
+void mgl_datac_fft_(uintptr_t *d, const char *dir, int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+       mgl_datac_fft(_DC_,s);  delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_hankel(HADT d, const char *dir)\r
+{\r
+       #if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
+       double *ai=0, *af=0, *ag=0;\r
+       mreal mm;\r
+       gsl_dht *dht=0;\r
+       register long i,j,k;\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       dual *a=d->a;\r
+       if(strchr(dir,'x') && nx>1)\r
+       {\r
+               ai = new double[nx];    af = new double[nx];    ag = new double[nx];\r
+               dht = gsl_dht_new(nx,0,1);\r
+               mm = gsl_sf_bessel_zero_J0(nx+1);\r
+               for(i=0;i<ny*nz;i++)\r
+               {\r
+                       for(j=0;j<nx;j++)       ai[j] = real(a[j+nx*i]);\r
+                       gsl_dht_apply(dht,ai,af);\r
+                       for(j=0;j<nx;j++)       ai[j] = imag(a[j+nx*i]);\r
+                       gsl_dht_apply(dht,ai,ag);\r
+                       for(j=0;j<nx;j++)       a[j+nx*i] = dual(af[j],ag[j])*mm;\r
+               }\r
+       }\r
+       if(strchr(dir,'y') && ny>1)\r
+       {\r
+               ai = new double[ny];    af = new double[ny];    ag = new double[ny];\r
+               dht = gsl_dht_new(ny,0,1);\r
+               mm = gsl_sf_bessel_zero_J0(ny+1);\r
+               for(i=0;i<nx;i++)       for(k=0;k<nz;k++)\r
+               {\r
+                       for(j=0;j<nx;j++)       ai[j] = real(a[i+nx*(j+ny*k)]);\r
+                       gsl_dht_apply(dht,ai,af);\r
+                       for(j=0;j<nx;j++)       ai[j] = imag(a[i+nx*(j+ny*k)]);\r
+                       gsl_dht_apply(dht,ai,ag);\r
+                       for(j=0;j<nx;j++)       a[i+nx*(j+ny*k)] = dual(af[j],ag[j])*mm;\r
+               }\r
+       }\r
+       if(strchr(dir,'z') && nz>1)\r
+       {\r
+               ai = new double[nz];    af = new double[nz];    ag = new double[nz];\r
+               dht = gsl_dht_new(nz,0,1);\r
+               mm = gsl_sf_bessel_zero_J0(nz+1);\r
+               k = nx*ny;      for(i=0;i<k;i++)\r
+               {\r
+                       for(j=0;j<nz;j++)       ai[j] = real(a[i+j*k]);\r
+                       gsl_dht_apply(dht,ai,af);\r
+                       for(j=0;j<nz;j++)       ai[j] = imag(a[i+j*k]);\r
+                       gsl_dht_apply(dht,ai,ag);\r
+                       for(j=0;j<nz;j++)       a[i+j*k] = dual(af[j],ag[j])*mm;\r
+               }\r
+       }\r
+       if(ai)  {       delete []ai;    delete []af;    gsl_dht_free(dht);      }\r
+       #endif\r
+}\r
+void mgl_datac_hankel_(uintptr_t *d, const char *dir,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
+mgl_datac_hankel(_DC_,s);      delete []s;     }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/complex_io.cpp b/src/complex_io.cpp
new file mode 100644 (file)
index 0000000..84816b1
--- /dev/null
+++ b/src/complex_io.cpp
@@ -0,0 +1,900 @@
+/***************************************************************************\r
+ * data_io.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#include <ctype.h>\r
+\r
+#ifndef WIN32\r
+#include <glob.h>\r
+#endif\r
+\r
+#include "mgl2/datac.h"\r
+#include "mgl2/evalc.h"\r
+\r
+#if MGL_HAVE_HDF5\r
+#define H5_USE_16_API\r
+#include <hdf5.h>\r
+#endif\r
+\r
+#define isn(ch)                ((ch)=='\n')\r
+char *mgl_read_gz(gzFile fp);\r
+//-----------------------------------------------------------------------------\r
+HADT mgl_create_datac()        {       return new mglDataC;    }\r
+HADT mgl_create_datac_size(long nx, long ny, long nz){ return new mglDataC(nx,ny,nz);  }\r
+HADT mgl_create_datac_file(const char *fname)          {       return new mglDataC(fname);     }\r
+void mgl_delete_datac(HADT d)  {       if(d)   delete d;       }\r
+//-----------------------------------------------------------------------------\r
+uintptr_t mgl_create_datac_()\r
+{      return uintptr_t(new mglDataC());       }\r
+uintptr_t mgl_create_datac_size_(int *nx, int *ny, int *nz)\r
+{      return uintptr_t(new mglDataC(*nx,*ny,*nz));    }\r
+uintptr_t mgl_create_datac_file_(const char *fname,int l)\r
+{      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
+       uintptr_t r = uintptr_t(new mglDataC(s));       delete []s;     return r;       }\r
+void mgl_delete_datac_(uintptr_t *d)\r
+{      if(_DC_)        delete _DC_;    }\r
+//-----------------------------------------------------------------------------\r
+void mglFromStr(HADT d,char *buf,long NX,long NY,long NZ)      // TODO: add multithreading read\r
+{\r
+       if(NX<1 || NY <1 || NZ<1)       return;\r
+       mgl_datac_create(d, NX,NY,NZ);\r
+       long nb = strlen(buf);\r
+       register long i=0, j=0;\r
+       while(j<nb)\r
+       {\r
+               while(buf[j]<=' ' && j<nb)      j++;\r
+               while(buf[j]=='#')              // skip comment\r
+               {\r
+                       if(i>0 || buf[j+1]!='#')        // this is columns id\r
+                               while(!isn(buf[j]) && j<nb)     j++;\r
+                       else\r
+                       {\r
+                               while(!isn(buf[j]) && j<nb)\r
+                               {\r
+                                       if(buf[j]>='a' && buf[j]<='z')\r
+                                               d->id.push_back(buf[j]);\r
+                                       j++;\r
+                               }\r
+                       }\r
+                       while(buf[j]<=' ' && j<nb)      j++;\r
+               }\r
+               char *s=buf+j;\r
+               while(buf[j]>=' ' && buf[j]!=';' && j<nb)       j++;\r
+               buf[j]=0;\r
+               double re=0,im=0;       size_t ll=strlen(s);\r
+               if(*s=='(')             sscanf(s,"(%lg,%lg)",&re,&im);\r
+               else if(*s=='[')        sscanf(s,"[%lg,%lg]",&re,&im);\r
+               else if(*s=='{')        sscanf(s,"{%lg,%lg}",&re,&im);\r
+               else if(s[ll]=='i')     {       s[ll] = 0;      sscanf(s,"%lg+%lg)",&re,&im);   }\r
+               else            sscanf(s,"%lg+i%lg",&re,&im);\r
+               d->a[i] = dual(re,im);\r
+               i++;    if(i>=NX*NY*NZ) break;\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set(HADT d, HCDT a)\r
+{\r
+       if(!a)  return;\r
+       const mglDataC *dd = dynamic_cast<const mglDataC *>(a); // faster for mglData\r
+       mgl_datac_create(d, a->GetNx(), a->GetNy(), a->GetNz());\r
+       if(dd)  // this one should be much faster\r
+               memcpy(d->a, dd->a, d->nx*d->ny*d->nz*sizeof(dual));\r
+       else    // very inefficient!!!\r
+       {\r
+               register long i,j,k;\r
+               for(k=0;k<d->nz;k++)    for(j=0;j<d->ny;j++)    for(i=0;i<d->nx;i++)\r
+                       d->a[i+d->nx*(j+d->ny*k)] = a->v(i,j,k);\r
+       }\r
+}\r
+void mgl_datac_set_(uintptr_t *d, uintptr_t *a)        {       mgl_datac_set(_DC_,_DA_(a));    }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_values(HADT d, const char *v,long NX,long NY,long NZ)\r
+{\r
+       if(NX<1 || NY <1 || NZ<1)       return;\r
+       register long n=strlen(v)+1;\r
+       char *buf = new char[n];\r
+       memcpy(buf,v,n);\r
+       mglFromStr(d,buf,NX,NY,NZ);\r
+       delete []buf;\r
+}\r
+void mgl_datac_set_values_(uintptr_t *d, const char *val, int *nx, int *ny, int *nz, int l)\r
+{      char *s=new char[l+1];  memcpy(s,val,l);        s[l]=0;\r
+       mgl_datac_set_values(_DC_,s,*nx,*ny,*nz);       delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_vector(HADT d, gsl_vector *v)\r
+{\r
+#if MGL_HAVE_GSL\r
+       if(!v || v->size<1)     return;\r
+       mgl_datac_create(d, v->size,1,1);\r
+       for(long i=0;i<d->nx;i++)       d->a[i] = v->data[i*v->stride];\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_matrix(HADT d, gsl_matrix *m)\r
+{\r
+#if MGL_HAVE_GSL\r
+       if(!m || m->size1<1 || m->size2<1)      return;\r
+       mgl_datac_create(d, m->size1,m->size2,1);\r
+       register long i,j;\r
+       for(j=0;j<d->ny;j++)    for(i=0;i<d->nx;i++)\r
+               d->a[i+j*d->nx] = m->data[i * m->tda + j];\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_float(HADT d, const float *A,long NX,long NY,long NZ)\r
+{\r
+       if(NX<=0 || NY<=0 || NZ<=0)     return;\r
+       mgl_datac_create(d, NX,NY,NZ);  if(!A)  return;\r
+#if MGL_USE_DOUBLE\r
+       for(long i=0;i<NX*NY*NZ;i++)    d->a[i] = A[i];\r
+#else\r
+       memcpy(d->a,A,NX*NY*NZ*sizeof(float));\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_double(HADT d, const double *A,long NX,long NY,long NZ)\r
+{\r
+       if(NX<=0 || NY<=0 || NZ<=0)     return;\r
+       mgl_datac_create(d, NX,NY,NZ);  if(!A)  return;\r
+#if MGL_USE_DOUBLE\r
+       memcpy(d->a,A,NX*NY*NZ*sizeof(double));\r
+#else\r
+       for(long i=0;i<NX*NY*NZ;i++)    d->a[i] = A[i];\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_complex(HADT d, const dual *A,long NX,long NY,long NZ)\r
+{\r
+       if(NX<=0 || NY<=0 || NZ<=0)     return;\r
+       mgl_datac_create(d, NX,NY,NZ);  if(!A)  return;\r
+       #if MGL_USE_DOUBLE\r
+       for(long i=0;i<NX*NY*NZ;i++)    d->a[i] = A[i];\r
+       #else\r
+       memcpy(d->a,A,NX*NY*NZ*sizeof(float));\r
+       #endif\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_float_(uintptr_t *d, const float *A,int *NX,int *NY,int *NZ)\r
+{      mgl_datac_set_float(_DC_,A,*NX,*NY,*NZ);        }\r
+void mgl_datac_set_double_(uintptr_t *d, const double *A,int *NX,int *NY,int *NZ)\r
+{      mgl_datac_set_double(_DC_,A,*NX,*NY,*NZ);       }\r
+void mgl_datac_set_complex_(uintptr_t *d, const dual *A,int *NX,int *NY,int *NZ)\r
+{      mgl_datac_set_complex(_DC_,A,*NX,*NY,*NZ);      }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_rearrange(HADT d, long mx,long my,long mz)\r
+{\r
+       if(mx<1)        return; // wrong mx\r
+       if(my<1)        {       my = d->nx*d->ny*d->nz/mx;      mz = 1; }\r
+       else if(mz<1)   mz = (d->nx*d->ny*d->nz)/(mx*my);\r
+       long m = mx*my*mz;\r
+       if(m==0 || m>d->nx*d->ny*d->nz) return; // too high desired dimensions\r
+       d->nx = mx;     d->ny = my;     d->nz = mz;     d->NewId();\r
+}\r
+void mgl_datac_rearrange_(uintptr_t *d, int *mx, int *my, int *mz)\r
+{      mgl_datac_rearrange(_DC_,*mx,*my,*mz);  }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_id(HADT d, const char *ids) {       d->id = ids;    }\r
+void mgl_datac_set_id_(uintptr_t *d, const char *eq,int l)\r
+{      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
+       mgl_datac_set_id(_DC_, s);      delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_save(HCDT d, const char *fname,long ns)\r
+{\r
+       const mglDataC *dd = dynamic_cast<const mglDataC*>(d);\r
+       if(!dd) {       mgl_data_save(d,fname,ns);      return; }\r
+       FILE *fp;\r
+       fp = fopen(fname,"w");\r
+       register long i,j,k;\r
+       long nx=dd->nx, ny=dd->ny, nz=dd->nz;\r
+       if(ns<0 || (ns>=nz && nz>1))    for(k=0;k<nz;k++)\r
+       {       // save whole data\r
+               for(i=0;i<ny;i++)\r
+               {\r
+                       for(j=0;j<nx-1;j++)     fprintf(fp,"%g+i%g\t", real(dd->a[j+nx*(i+ny*k)]), imag(dd->a[j+nx*(i+ny*k)]));\r
+                       fprintf(fp,"%g+i%g\n", real(dd->a[nx-1+nx*(i+ny*k)]), imag(dd->a[nx-1+nx*(i+ny*k)]));\r
+               }\r
+               fprintf(fp,"\n");\r
+       }\r
+       else\r
+       {       // save selected slice\r
+               if(nz>1)        for(i=0;i<ny;i++)\r
+               {\r
+                       for(j=0;j<nx-1;j++)     fprintf(fp,"%g+i%g\t", real(dd->a[j+nx*(i+ny*ns)]), imag(dd->a[j+nx*(i+ny*ns)]));\r
+                       fprintf(fp,"%g+i%g\n", real(dd->a[nx-1+nx*(i+ny*ns)]), imag(dd->a[nx-1+nx*(i+ny*ns)]));\r
+               }\r
+               else if(ns<ny)  for(j=0;j<nx;j++)\r
+                       fprintf(fp,"%g+i%g\t", real(dd->a[j+nx*ns]), imag(dd->a[j+nx*ns]));\r
+       }\r
+       fclose(fp);\r
+}\r
+void mgl_datac_save_(uintptr_t *d, const char *fname,int *ns,int l)\r
+{      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
+       mgl_datac_save(_DC_,s,*ns);             delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read(HADT d, const char *fname)\r
+{\r
+       long l=1,m=1,k=1;\r
+       long nb,i;\r
+       gzFile fp = gzopen(fname,"r");\r
+       if(!fp)\r
+       {\r
+               if(!d->a)       mgl_datac_create(d, 1,1,1);\r
+               return  false;\r
+       }\r
+       char *buf = mgl_read_gz(fp);\r
+       nb = strlen(buf);       gzclose(fp);\r
+\r
+       bool first=false;       // space is not allowed delimiter for file with complex numbers\r
+       register char ch;\r
+       for(i=nb-1;i>=0;i--)    if(buf[i]>' ')  break;\r
+       buf[i+1]=0;     nb = i;         // remove tailing spaces\r
+       for(i=0;i<nb-1 && !isn(buf[i]);i++)     // determine nx\r
+       {\r
+               while(buf[i]=='#')      {       while(!isn(buf[i]) && i<nb)     i++;    }\r
+               ch = buf[i];\r
+               if(ch>' ' && !first)    first=true;\r
+               if(first && (ch=='\t' || ch==';') && buf[i+1]!='\t') k++;       // ',' is not valid delimiter for complex arrays\r
+       }\r
+       first = false;\r
+       for(i=0;i<nb-1;i++)                                     // determine ny\r
+       {\r
+               ch = buf[i];\r
+               if(ch=='#')     while(!isn(buf[i]) && i<nb)     i++;\r
+               if(isn(ch))\r
+               {\r
+                       while(buf[i+1]=='\t') i++;\r
+                       if(isn(buf[i+1]))       {first=true;    break;  }\r
+                       m++;\r
+               }\r
+               if(ch=='\f')    break;\r
+       }\r
+       if(first)       for(i=0;i<nb-1;i++)             // determine nz\r
+       {\r
+               ch = buf[i];\r
+               if(ch=='#')     while(!isn(buf[i]) && i<nb)     i++;\r
+//             if(ch=='#')     com = true;     // comment\r
+               if(isn(ch))\r
+               {\r
+//                     if(com) {       com=false;      continue;       }\r
+                       while(buf[i+1]=='\t') i++;\r
+                       if(isn(buf[i+1]))       l++;\r
+               }\r
+       }\r
+       else    for(i=0;i<nb-1;i++)     if(buf[i]=='\f')        l++;\r
+       mglFromStr(d,buf,k,m,l);\r
+       free(buf);      return true;\r
+}\r
+int mgl_datac_read_(uintptr_t *d, const char *fname,int l)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       int r = mgl_datac_read(_DC_, s);        delete []s;             return r;       }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_create(HADT d,long mx,long my,long mz)\r
+{\r
+       d->nx = mx>0 ? mx:1;    d->ny = my>0 ? my:1;    d->nz = mz>0 ? mz:1;\r
+       if(d->a && !d->link)    delete [](d->a);\r
+       d->a = new dual[d->nx*d->ny*d->nz];\r
+       d->id.clear();  d->link=false;\r
+       memset(d->a,0,d->nx*d->ny*d->nz*sizeof(dual));\r
+}\r
+void mgl_datac_create_(uintptr_t *d, int *nx,int *ny,int *nz)\r
+{      mgl_datac_create(_DC_,*nx,*ny,*nz);     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_link(HADT d, dual *A, long mx,long my,long mz)\r
+{\r
+       if(!A)  return;\r
+       if(!d->link && d->a)    delete [](d->a);\r
+       d->nx = mx>0 ? mx:1;    d->ny = my>0 ? my:1;    d->nz = mz>0 ? mz:1;\r
+       d->link=true;   d->a=A; d->NewId();\r
+}\r
+void mgl_datac_link_(uintptr_t *d, dual *A, int *nx,int *ny,int *nz)\r
+{      mgl_datac_link(_DC_,A,*nx,*ny,*nz);     }\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_dim(HADT d, const char *fname,long mx,long my,long mz)\r
+{\r
+       if(mx<=0 || my<=0 || mz<=0)     return false;\r
+       gzFile fp = gzopen(fname,"r");\r
+       if(!fp) return false;\r
+       char *buf = mgl_read_gz(fp);\r
+       gzclose(fp);\r
+       mglFromStr(d,buf,mx,my,mz);\r
+       free(buf);      return true;\r
+}\r
+int mgl_datac_read_dim_(uintptr_t *d, const char *fname,int *mx,int *my,int *mz,int l)\r
+{      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
+       int r = mgl_datac_read_dim(_DC_,s,*mx,*my,*mz); delete []s;     return r;       }\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_mat(HADT d, const char *fname, long dim)\r
+{\r
+       if(dim<=0 || dim>3)     return false;\r
+       gzFile fp = gzopen(fname,"r");\r
+       if(!fp) return false;\r
+       long nx=1, ny=1, nz=1;\r
+       char *buf = mgl_read_gz(fp);\r
+       long nb = strlen(buf);  gzclose(fp);\r
+\r
+       register long j=0,i,l;\r
+       while(j<nb)\r
+       {\r
+               if(buf[j]=='#') while(!isn(buf[j]))     j++;    // skip comment\r
+               while(buf[j]<=' ' && j<nb)      j++;\r
+               break;\r
+       }\r
+       if(dim==1)\r
+       {\r
+               sscanf(buf+j,"%ld",&nx);\r
+               while(buf[j]!='\n' && j<nb)     j++;    j++;\r
+//             while(buf[j]>' ')       j++;\r
+       }\r
+       else if(dim==2)\r
+       {\r
+               sscanf(buf+j,"%ld%ld",&nx,&ny);\r
+               while(buf[j]!='\n' && j<nb)     j++;    j++;\r
+               char *b=buf+j, ch;\r
+               for(i=l=0;b[i];i++)\r
+               {\r
+                       while(b[i]=='#')        {       while(!isn(b[i]) && b[i])       i++;    }\r
+                       if(b[i]=='\n')  l++;\r
+               }\r
+               if(l==nx*ny || l==nx*ny+1)      // try to read 3d data (i.e. columns of matrix nx*ny)\r
+               {\r
+                       nz=ny;  ny=nx;  nx=1;\r
+                       bool first = false;\r
+                       for(i=l=0;b[i] && !isn(b[i]);i++)       // determine nx\r
+                       {\r
+                               while(b[i]=='#')        {       while(!isn(b[i]) && b[i])       i++;    }\r
+                               ch = b[i];\r
+                               if(ch>' ' && !first)    first=true;\r
+                               if(first && (ch=='\t' || ch==';') && b[i+1]!='\t') nx++;\r
+                       }\r
+               }\r
+       }\r
+       else if(dim==3)\r
+       {\r
+               sscanf(buf+j,"%ld%ld%ld",&nx,&ny,&nz);\r
+               while(buf[j]!='\n' && j<nb)     j++;    j++;\r
+       }\r
+       mglFromStr(d,buf+j,nx,ny,nz);\r
+       free(buf);      return true;\r
+}\r
+int mgl_datac_read_mat_(uintptr_t *d, const char *fname,int *dim,int l)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       int r = mgl_datac_read_mat(_DC_,s,*dim);        delete []s;     return r;       }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cfill_x(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       register long i0, nx=t->p[0],ny=t->p[1];\r
+       dual *b=t->a, x1=t->b[0], dx=t->b[1];\r
+       register char dir = t->s[0];\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               if(dir=='x') b[i0] = x1+dx*mreal(i0%nx);\r
+               else if(dir=='y') b[i0] = x1+dx*mreal((i0/nx)%ny);\r
+               else if(dir=='z') b[i0] = x1+dx*mreal(i0/(nx*ny));\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_fill(HADT d, dual x1,dual x2,char dir)\r
+{\r
+       if(mgl_isnan(x2))       x2=x1;\r
+       if(dir<'x' || dir>'z')  dir='x';\r
+       long par[2]={d->nx,d->ny};\r
+       dual b[2]={x1,x2-x1};\r
+       if(dir=='x')    b[1] *= d->nx>1 ? 1./(d->nx-1):0;\r
+       if(dir=='y')    b[1] *= d->ny>1 ? 1./(d->ny-1):0;\r
+       if(dir=='z')    b[1] *= d->nz>1 ? 1./(d->nz-1):0;\r
+       mglStartThreadC(mgl_cfill_x,0,d->nx*d->ny*d->nz,d->a,b,0,par,0,0,0,&dir);\r
+}\r
+void mgl_datac_fill_(uintptr_t *d, dual *x1,dual *x2,const char *dir,int)\r
+{      mgl_datac_fill(_DC_,*x1,*x2,*dir);      }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_squeeze(HADT d, long rx,long ry,long rz,long smooth)\r
+{\r
+       long kx,ky,kz,i,j,k;\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       dual *b;\r
+\r
+       // simple checking\r
+       if(rx>=nx)      rx=nx-1;        if(rx<1)        rx=1;\r
+       if(ry>=ny)      ry=ny-1;        if(ry<1)        ry=1;\r
+       if(rz>=nz)      rz=nz-1;        if(rz<1)        rz=1;\r
+       // new sizes\r
+       kx = 1+(nx-1)/rx;       ky = 1+(ny-1)/ry;       kz = 1+(nz-1)/rz;\r
+       b = new dual[kx*ky*kz];\r
+       if(!smooth)     for(k=0;k<kz;k++)       for(j=0;j<ky;j++)       for(i=0;i<kx;i++)\r
+               b[i+kx*(j+ky*k)] = d->a[i*rx+nx*(j*ry+ny*rz*k)];\r
+       else            for(k=0;k<kz;k++)       for(j=0;j<ky;j++)       for(i=0;i<kx;i++)\r
+       {\r
+               long dx,dy,dz,i1,j1,k1;\r
+               dx = (i+1)*rx<=nx ? rx : nx-i*rx;\r
+               dy = (j+1)*ry<=ny ? ry : ny-j*ry;\r
+               dz = (k+1)*rz<=nz ? rz : nz-k*rz;\r
+               dual s = 0;\r
+               for(k1=k*rz;k1<k*rz+dz;k1++)    for(j1=j*ry;j1<j*ry+dz;j1++)    for(i1=i*rx;i1<i*rx+dx;i1++)\r
+                       s += d->a[i1+nx*(j1+ny*k1)];\r
+               b[i+kx*(j+ky*k)] = s/mreal(dx*dy*dz);\r
+       }\r
+       if(!d->link)    delete [](d->a);\r
+       d->a=b; d->nx = kx;  d->ny = ky;  d->nz = kz;   d->NewId();     d->link=false;\r
+}\r
+void mgl_datac_squeeze_(uintptr_t *d, int *rx,int *ry,int *rz,int *smooth)\r
+{      mgl_datac_squeeze(_DC_,*rx,*ry,*rz,*smooth);    }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_extend(HADT d, long n1, long n2)\r
+{\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       if(nz>2 || n1==0)       return;\r
+       long mx, my, mz;\r
+       dual *b=0;\r
+       register long i,j;\r
+       if(n1>0) // extend to higher dimension(s)\r
+       {\r
+               n2 = n2>0 ? n2:1;\r
+               mx = nx;        my = ny>1?ny:n1;        mz = ny>1 ? n1 : n2;\r
+               b = new dual[mx*my*mz];\r
+               if(ny>1)        for(i=0;i<n1;i++)\r
+                       memcpy(b+i*nx*ny, d->a, nx*ny*sizeof(dual));\r
+               else            for(i=0;i<n1*n2;i++)\r
+                       memcpy(b+i*nx, d->a, nx*sizeof(dual));\r
+       }\r
+       else\r
+       {\r
+               mx = -n1;       my = n2<0 ? -n2 : nx;   mz = n2<0 ? nx : ny;\r
+               if(n2>0 && ny==1)       mz = n2;\r
+               b = new dual[mx*my*mz];\r
+               register dual v;\r
+               if(n2<0)        for(j=0;j<nx;j++)       for(i=0,v=d->a[j];i<mx*my;i++)\r
+                       b[i+mx*my*j] = v;\r
+               else    for(j=0;j<nx*ny;j++)    for(i=0,v=d->a[j];i<mx;i++)\r
+                       b[i+mx*j] = v;\r
+               if(n2>0 && ny==1)       for(i=0;i<n2;i++)\r
+                       memcpy(b+i*mx*my, d->a, mx*my*sizeof(dual));\r
+       }\r
+       if(!d->link)    delete [](d->a);\r
+       d->a=b; d->nx=mx;       d->ny=my;       d->nz=mz;\r
+       d->NewId();             d->link=false;\r
+}\r
+void mgl_datac_extend_(uintptr_t *d, int *n1, int *n2)\r
+{      mgl_datac_extend(_DC_,*n1,*n2); }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_transpose(HADT d, const char *dim)\r
+{\r
+       long nx=d->nx, ny=d->ny, nz=d->nz;\r
+       dual *b=new dual[nx*ny*nz], *a=d->a;\r
+       register long i,j,k,n;\r
+       if(!strcmp(dim,"xyz"))  memcpy(b,a,nx*ny*nz*sizeof(dual));\r
+       else if(!strcmp(dim,"xzy") || !strcmp(dim,"zy"))\r
+       {\r
+               for(j=0;j<ny;j++)       for(k=0;k<nz;k++)       for(i=0;i<nx;i++)\r
+                       b[i+nx*(k+nz*j)] = a[i+nx*(j+ny*k)];\r
+               n=nz;   nz=ny;  ny=n;\r
+       }\r
+       else if(!strcmp(dim,"yxz") || !strcmp(dim,"yx"))\r
+       {\r
+               for(k=0;k<nz;k++)       for(i=0;i<nx;i++)       for(j=0;j<ny;j++)\r
+                       b[j+ny*(i+nx*k)] = a[i+nx*(j+ny*k)];\r
+               n=nx;   nx=ny;  ny=n;\r
+       }\r
+       else if(!strcmp(dim,"yzx"))\r
+       {\r
+               for(k=0;k<nz;k++)       for(i=0;i<nx;i++)       for(j=0;j<ny;j++)\r
+                       b[j+ny*(k+nz*i)] = a[i+nx*(j+ny*k)];\r
+               n=nx;   nx=ny;  ny=nz;  nz=n;\r
+       }\r
+       else if(!strcmp(dim,"zxy"))\r
+       {\r
+               for(i=0;i<nx;i++)       for(j=0;j<ny;j++)       for(k=0;k<nz;k++)\r
+                       b[k+nz*(i+nx*j)] = a[i+nx*(j+ny*k)];\r
+               n=nx;   nx=nz;  nz=ny;  ny=n;\r
+       }\r
+       else if(!strcmp(dim,"zyx") || !strcmp(dim,"zx"))\r
+       {\r
+               for(i=0;i<nx;i++)       for(j=0;j<ny;j++)       for(k=0;k<nz;k++)\r
+                       b[k+nz*(j+ny*i)] = a[i+nx*(j+ny*k)];\r
+               n=nz;   nz=nx;  nx=n;\r
+       }\r
+       memcpy(a,b,nx*ny*nz*sizeof(dual));      delete []b;\r
+       n=d->nx;        d->nx=nx;       d->ny=ny;       d->nz=nz;\r
+       if(nx!=n)       d->NewId();\r
+}\r
+void mgl_datac_transpose_(uintptr_t *d, const char *dim,int l)\r
+{      char *s=new char[l+1];  memcpy(s,dim,l);        s[l]=0;\r
+       mgl_datac_transpose(_DC_,s);    delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cmodify(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       const mglFormulaC *f = (const mglFormulaC *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1],nz=t->p[2];\r
+       dual *b=t->a;\r
+       mreal dx,dy,dz;\r
+       const dual *v=t->b, *w=t->c;\r
+       dx=nx>1?1/(nx-1.):0;    dy=ny>1?1/(ny-1.):0;    dz=nz>1?1/(nz-1.):0;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(i*dx, j*dy, k*dz, b[i0], v?v[i0]:0, w?w[i0]:0);\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_modify(HADT d, const char *eq,long dim)\r
+{\r
+       long nx=d->nx, ny=d->ny, nz=d->nz, par[3]={nx,ny,nz};\r
+       mglFormulaC f(eq);\r
+       if(dim<0)       dim=0;\r
+       if(nz>1)        // 3D array\r
+       {\r
+               par[2] -= dim;  if(par[2]<0)    par[2]=0;\r
+               mglStartThreadC(mgl_cmodify,0,nx*ny*par[2],d->a+nx*ny*dim,0,0,par,&f);\r
+       }\r
+       else            // 2D or 1D array\r
+       {\r
+               par[1] -= dim;  if(par[1]<0)    par[1]=0;\r
+               mglStartThreadC(mgl_cmodify,0,nx*par[1],d->a+nx*dim,0,0,par,&f);\r
+       }\r
+}\r
+void mgl_datac_modify_(uintptr_t *d, const char *eq,int *dim,int l)\r
+{      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
+       mgl_datac_modify(_DC_,s,*dim);  delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cmodify_gen(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       const mglFormulaC *f = (const mglFormulaC *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1],nz=t->p[2];\r
+       dual *b=t->a;\r
+       mreal dx,dy,dz;\r
+       HCDT v=(HCDT)t->b, w=(HCDT)t->c;\r
+       dx=nx>1?1/(nx-1.):0;    dy=ny>1?1/(ny-1.):0;    dz=nz>1?1/(nz-1.):0;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(i*dx, j*dy, k*dz, b[i0], v?v->vthr(i0):0, w?w->vthr(i0):0);\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_modify_vw(HADT d, const char *eq,HCDT vdat,HCDT wdat)\r
+{\r
+       const mglDataC *v = dynamic_cast<const mglDataC *>(vdat);\r
+       const mglDataC *w = dynamic_cast<const mglDataC *>(wdat);\r
+       long nn = d->nx*d->ny*d->nz, par[3]={d->nx,d->ny,d->nz};\r
+       if(vdat && vdat->GetNN()!=nn)   return;\r
+       if(wdat && wdat->GetNN()!=nn)   return;\r
+       mglFormulaC f(eq);\r
+       if(v && w)      mglStartThreadC(mgl_cmodify,0,nn,d->a,v->a,w->a,par,&f);\r
+       else if(vdat && wdat)   mglStartThreadV(mgl_cmodify_gen,nn,d->a,vdat,wdat,par,&f);\r
+       else if(v)      mglStartThreadC(mgl_cmodify,0,nn,d->a,v->a,0,par,&f);\r
+       else if(vdat)   mglStartThreadV(mgl_cmodify_gen,nn,d->a,vdat,0,par,&f);\r
+       else    mglStartThreadC(mgl_cmodify,0,nn,d->a,0,0,par,&f);\r
+}\r
+void mgl_datac_modify_vw_(uintptr_t *d, const char *eq, uintptr_t *v, uintptr_t *w,int l)\r
+{      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
+       mgl_datac_modify_vw(_DC_,s,_DA_(v),_DA_(w));    delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_cfill_f(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       const mglFormulaC *f = (const mglFormulaC *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1];\r
+       dual *b=t->a;\r
+       const dual *v=t->b, *w=t->c, *x=t->d;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(x[0]+mreal(i)*x[1], x[2]+mreal(j)*x[3], x[4]+mreal(k)*x[5],\r
+                                               b[i0], v?v[i0]:0, w?w[i0]:0);\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_cfill_fgen(void *par)\r
+{\r
+       mglThreadC *t=(mglThreadC *)par;\r
+       const mglFormulaC *f = (const mglFormulaC *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1];\r
+       dual *b=t->a;\r
+       HCDT v=(HCDT)t->b, w=(HCDT)t->c;\r
+       const dual *x=t->d;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(x[0]+mreal(i)*x[1], x[2]+mreal(j)*x[3], x[4]+mreal(k)*x[5],\r
+                                               b[i0], v?v->vthr(i0):0, w?w->vthr(i0):0);\r
+       }\r
+       return 0;\r
+}\r
+void mgl_datac_fill_eq(HMGL gr, HADT d, const char *eq, HCDT vdat, HCDT wdat, const char *opt)\r
+{\r
+       const mglDataC *v = dynamic_cast<const mglDataC *>(vdat);\r
+       const mglDataC *w = dynamic_cast<const mglDataC *>(wdat);\r
+       long nn = d->nx*d->ny*d->nz, par[3]={d->nx,d->ny,d->nz};\r
+       if(v && v->nx*v->ny*v->nz!=nn)  return;\r
+       if(w && w->nx*w->ny*w->nz!=nn)  return;\r
+       gr->SaveState(opt);\r
+       mreal xx[6]={gr->Min.x,0, gr->Min.y,0, gr->Min.z,0};\r
+       if(d->nx>1)     xx[1] = (gr->Max.x-gr->Min.x)/(d->nx-1.);\r
+       if(d->ny>1)     xx[3] = (gr->Max.y-gr->Min.y)/(d->ny-1.);\r
+       if(d->nz>1)     xx[5] = (gr->Max.z-gr->Min.z)/(d->nz-1.);\r
+       dual cc[6]={xx[0],xx[1],xx[2],xx[3],xx[4],xx[5]};\r
+       mglFormulaC f(eq);\r
+       if(v && w)      mglStartThreadC(mgl_cfill_f,0,nn,d->a,v->a,w->a,par,&f,cc);\r
+       else if(vdat && wdat)   mglStartThreadV(mgl_cfill_fgen,nn,d->a,vdat,wdat,par,&f,xx);\r
+       else if(v)      mglStartThreadC(mgl_cfill_f,0,nn,d->a,v->a,0,par,&f,cc);\r
+       else if(vdat)   mglStartThreadV(mgl_cfill_fgen,nn,d->a,vdat,0,par,&f,xx);\r
+       else    mglStartThreadC(mgl_cfill_f,0,nn,d->a,0,0,par,&f,cc);\r
+       gr->LoadState();\r
+}\r
+void mgl_datac_fill_eq_(uintptr_t *gr, uintptr_t *d, const char *eq, uintptr_t *v, uintptr_t *w, const char *opt,int l,int lo)\r
+{      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
+       char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
+       mgl_datac_fill_eq(_GR_,_DC_,s,_DA_(v),_DA_(w),o);       delete []o;     delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+bool mgl_add_file(long &kx,long &ky, long &kz, dual *&b, mglDataC *d,bool as_slice)\r
+{\r
+       if(as_slice && d->nz==1)\r
+       {\r
+               if(kx==d->nx && d->ny==1)\r
+               {\r
+                       b = (dual *)realloc(b,kx*(ky+1)*sizeof(dual));\r
+                       memcpy(b+kx*ky,d->a,kx*sizeof(dual));           ky++;\r
+               }\r
+               else if(kx==d->nx && ky==d->ny)\r
+               {\r
+                       b = (dual *)realloc(b,kx*ky*(kz+1)*sizeof(dual));\r
+                       memcpy(b+kx*ky*kz,d->a,kx*ky*sizeof(dual));     kz++;\r
+               }\r
+               else    return false;\r
+       }\r
+       else\r
+       {\r
+               if(d->ny*d->nz==1 && ky*kz==1)\r
+               {\r
+                       b = (dual *)realloc(b,(kx+d->nx)*sizeof(dual));\r
+                       memcpy(b+kx,d->a,d->nx*sizeof(dual));   kx+=d->nx;\r
+               }\r
+               else if(kx==d->nx && kz==1 && d->nz==1)\r
+               {\r
+                       b = (dual *)realloc(b,kx*(ky+d->ny)*sizeof(dual));\r
+                       memcpy(b+kx*ky,d->a,kx*d->ny*sizeof(dual));     ky+=d->ny;\r
+               }\r
+               else if(kx==d->nx && ky==d->ny)\r
+               {\r
+                       b = (dual *)realloc(b,kx*kx*(kz+d->nz)*sizeof(dual));\r
+                       memcpy(b+kx*ky*kz,d->a,kx*ky*d->nz*sizeof(dual));       kz+=d->nz;\r
+               }\r
+               else    return false;\r
+       }\r
+       return true;\r
+}\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_range(HADT dat, const char *templ, double from, double to, double step, int as_slice)\r
+{\r
+       mglDataC d;\r
+       double t = from;\r
+       dual *b;\r
+       long kx,ky,kz;\r
+       char *fname = new char[strlen(templ)+20];\r
+\r
+       //read first file\r
+       do{     sprintf(fname,templ,t); t+= step;       } while(!mgl_datac_read(&d,fname) && t<=to);\r
+\r
+       if(t>to)        return false;\r
+       kx = d.nx;      ky = d.ny;      kz = d.nz;\r
+       b = (dual *)malloc(kx*ky*kz*sizeof(dual));\r
+       memcpy(b,d.a,kx*ky*kz*sizeof(dual));\r
+\r
+       // read other files\r
+       for(;t<=to;t+=step)\r
+       {\r
+               sprintf(fname,templ,t);\r
+               if(mgl_datac_read(&d,fname))\r
+                       if(!mgl_add_file(kx,ky,kz,b,&d,as_slice))\r
+                               return false;\r
+       }\r
+       dat->Set(b,kx,ky,kz);\r
+       delete []fname;         free(b);\r
+       return true;\r
+}\r
+int mgl_datac_read_range_(uintptr_t *d, const char *fname, mreal *from, mreal *to, mreal *step, int *as_slice,int l)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       int r = mgl_datac_read_range(_DC_,s,*from,*to,*step,*as_slice); delete []s;     return r;       }\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_all(HADT dat, const char *templ, int as_slice)\r
+{\r
+#ifndef WIN32\r
+       mglDataC d;\r
+       glob_t res;\r
+       size_t i;\r
+       dual *b;\r
+       long kx,ky,kz;\r
+       char *fname = new char[256];\r
+       glob (templ, GLOB_TILDE, NULL, &res);\r
+\r
+       //read first file\r
+       for(i=0;i<res.gl_pathc;i++)\r
+               if(mgl_datac_read(&d,res.gl_pathv[i]))  break;\r
+\r
+       if(i>=res.gl_pathc)     {       delete []fname; return false;   }\r
+       kx = d.nx;      ky = d.ny;      kz = d.nz;\r
+       b = (dual *)malloc(kx*ky*kz*sizeof(dual));\r
+       memcpy(b,d.a,kx*ky*kz*sizeof(dual));\r
+\r
+       for(;i<res.gl_pathc;i++)\r
+       {\r
+               if(mgl_datac_read(&d,res.gl_pathv[i]))\r
+                       if(!mgl_add_file(kx,ky,kz,b,&d,as_slice))\r
+                       {       delete []fname;         return false;   }\r
+       }\r
+       dat->Set(b,kx,ky,kz);\r
+\r
+       globfree (&res);\r
+       delete []fname;         free(b);\r
+       return true;\r
+#else\r
+       return false;\r
+#endif\r
+}\r
+int mgl_datac_read_all_(uintptr_t *d, const char *fname, int *as_slice,int l)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       int r = mgl_datac_read_all(_DC_,s,*as_slice);   delete []s;     return r;       }\r
+//-----------------------------------------------------------------------------\r
+HMDT mgl_datac_real(HCDT d)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       mglData *r=new mglData(nx,ny,nz);\r
+       const mglDataC *dd = dynamic_cast<const mglDataC*>(d);\r
+       register long i;\r
+       if(dd)  for(i=0;i<nx*ny*nz;i++) r->a[i] = real(dd->a[i]);\r
+       else            r->Set(d);\r
+       return r;\r
+}\r
+uintptr_t mgl_datac_real_(uintptr_t *d)\r
+{      return uintptr_t(mgl_datac_real(_DC_)); }\r
+//-----------------------------------------------------------------------------\r
+HMDT mgl_datac_imag(HCDT d)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       mglData *r=new mglData(nx,ny,nz);\r
+       const mglDataC *dd = dynamic_cast<const mglDataC*>(d);\r
+       register long i;\r
+       if(dd)  for(i=0;i<nx*ny*nz;i++) r->a[i] = imag(dd->a[i]);\r
+       return r;\r
+}\r
+uintptr_t mgl_datac_imag_(uintptr_t *d)\r
+{      return uintptr_t(mgl_datac_imag(_DC_)); }\r
+//-----------------------------------------------------------------------------\r
+HMDT mgl_datac_abs(HCDT d)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       mglData *r=new mglData(nx,ny,nz);\r
+       const mglDataC *dd = dynamic_cast<const mglDataC*>(d);\r
+       register long i;\r
+       if(dd)  for(i=0;i<nx*ny*nz;i++) r->a[i] = abs(dd->a[i]);\r
+       else    for(i=0;i<nx*ny*nz;i++) r->a[i] = fabs(d->vthr(i));\r
+       return r;\r
+}\r
+uintptr_t mgl_datac_abs_(uintptr_t *d)\r
+{      return uintptr_t(mgl_datac_abs(_DC_));  }\r
+//-----------------------------------------------------------------------------\r
+HMDT mgl_datac_arg(HCDT d)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       mglData *r=new mglData(nx,ny,nz);\r
+       const mglDataC *dd = dynamic_cast<const mglDataC*>(d);\r
+       register long i;\r
+       if(dd)  for(i=0;i<nx*ny*nz;i++) r->a[i] = arg(dd->a[i]);\r
+       return r;\r
+}\r
+uintptr_t mgl_datac_arg_(uintptr_t *d)\r
+{      return uintptr_t(mgl_datac_arg(_DC_));  }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_ri(HADT d, HCDT re, HCDT im)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       d->Create(nx,ny,nz);\r
+       register long i;\r
+       for(i=0;i<nx*ny*nz;i++) d->a[i] = dual(re->vthr(i),im->vthr(i));\r
+}\r
+void mgl_datac_set_ri_(uintptr_t *d, uintptr_t *re, uintptr_t *im)\r
+{      mgl_datac_set_ri(_DC_,_DA_(re),_DA_(im));       }\r
+//-----------------------------------------------------------------------------\r
+void mgl_datac_set_ap(HADT d, HCDT a, HCDT p)\r
+{\r
+       long nx=d->GetNx(),ny=d->GetNy(),nz=d->GetNz();\r
+       d->Create(nx,ny,nz);\r
+       register long i;\r
+       register mreal aa,pp;\r
+       for(i=0;i<nx*ny*nz;i++)\r
+       {\r
+               aa=a->vthr(i);  pp=p->vthr(i);\r
+               d->a[i] = dual(aa*cos(pp), aa*sin(pp));\r
+       }\r
+}\r
+void mgl_datac_set_ap_(uintptr_t *d, uintptr_t *a, uintptr_t *p)\r
+{      mgl_datac_set_ap(_DC_,_DA_(a),_DA_(p)); }\r
+//-----------------------------------------------------------------------------\r
+#if MGL_HAVE_HDF5\r
+void mgl_datac_save_hdf(HCDT dat,const char *fname,const char *data,int rewrite)\r
+{\r
+       const mglDataC *d = dynamic_cast<const mglDataC *>(dat);        // NOTE: only for mglDataC\r
+       if(!d)  {       mgl_data_save_hdf(dat,fname,data,rewrite);      return; }\r
+       hid_t hf,hd,hs;\r
+       hsize_t dims[4];\r
+       long rank = 3, res;\r
+       H5Eset_auto(0,0);\r
+       res=H5Fis_hdf5(fname);\r
+       if(res>0 && !rewrite)   hf = H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);\r
+       else    hf = H5Fcreate(fname, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);\r
+       if(hf<0)        return;\r
+       if(d->nz==1 && d->ny == 1)      {       rank=2; dims[0]=d->nx;  dims[1]=2;      }\r
+       else if(d->nz==1)       {       rank=3; dims[0]=d->ny;  dims[1]=d->nx;  dims[2]=2;      }\r
+       else    {       rank=4; dims[0]=d->nz;  dims[1]=d->ny;  dims[2]=d->nx;  dims[3]=2;      }\r
+       hs = H5Screate_simple(rank, dims, 0);\r
+#if MGL_USE_DOUBLE\r
+       hid_t mem_type_id = H5T_NATIVE_DOUBLE;\r
+#else\r
+       hid_t mem_type_id = H5T_NATIVE_FLOAT;\r
+#endif\r
+       hd = H5Dcreate(hf, data, mem_type_id, hs, H5P_DEFAULT);\r
+       H5Dwrite(hd, mem_type_id, hs, hs, H5P_DEFAULT, d->a);\r
+       H5Dclose(hd);   H5Sclose(hs);   H5Fclose(hf);\r
+}\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_hdf(HADT d,const char *fname,const char *data)\r
+{\r
+       hid_t hf,hd,hs;\r
+       hsize_t dims[4];\r
+       long rank, res = H5Fis_hdf5(fname);\r
+       if(res<=0)      {       return false;   }\r
+       hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT);\r
+       if(hf<0)        return false;\r
+       hd = H5Dopen(hf,data);\r
+       if(hd<0)        return false;\r
+       hs = H5Dget_space(hd);\r
+       rank = H5Sget_simple_extent_ndims(hs);\r
+       if(rank>0 && rank<=3)\r
+       {\r
+               H5Sget_simple_extent_dims(hs,dims,0);\r
+               if(rank==2)                     {       dims[2]=dims[0];        dims[0]=dims[1]=1;      }\r
+               else if(rank==3)        {       dims[2]=dims[1];        dims[1]=dims[0];        dims[0]=1;      }\r
+//             else if(rank>3)         continue;\r
+               mgl_datac_create(d,dims[2],dims[1],dims[0]);\r
+#if MGL_USE_DOUBLE\r
+               H5Dread(hd, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, d->a);\r
+#else\r
+               H5Dread(hd, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, d->a);\r
+#endif\r
+       }\r
+       H5Sclose(hs);   H5Dclose(hd);   H5Fclose(hf);   return true;\r
+}\r
+//-----------------------------------------------------------------------------\r
+#else\r
+void mgl_datac_save_hdf(HCDT ,const char *,const char *,int )\r
+{      mglGlobalMess += "HDF5 support was disabled. Please, enable it and rebuild MathGL.\n";  }\r
+int mgl_datac_read_hdf(HADT ,const char *,const char *)\r
+{      mglGlobalMess += "HDF5 support was disabled. Please, enable it and rebuild MathGL.\n";  return false;}\r
+#endif\r
+//-----------------------------------------------------------------------------\r
+int mgl_datac_read_hdf_(uintptr_t *d, const char *fname, const char *data,int l,int n)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       char *t=new char[n+1];          memcpy(t,data,n);       t[n]=0;\r
+       int r = mgl_datac_read_hdf(_DC_,s,t);   delete []s;     delete []t;     return r;       }\r
+void mgl_datac_save_hdf_(uintptr_t *d, const char *fname, const char *data, int *rewrite,int l,int n)\r
+{      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
+       char *t=new char[n+1];          memcpy(t,data,n);       t[n]=0;\r
+       mgl_datac_save_hdf(_DC_,s,t,*rewrite);  delete []s;     delete []t;     }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/cont.cpp b/src/cont.cpp
index 9185dde9050d680a0078de11ab871ce9578f4750..08d0c640bd384eb3099384a9398dad4ea0c762a6 100644 (file)
--- a/src/cont.cpp
+++ b/src/cont.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * cont.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -22,33 +22,20 @@
 #include "mgl2/cont.h"\r
 #include "mgl2/data.h"\r
 #include "mgl2/eval.h"\r
+#include "mgl2/font.h"\r
 //-----------------------------------------------------------------------------\r
 //\r
 //     Text printing along a curve\r
 //\r
 //-----------------------------------------------------------------------------\r
-bool same_chain(long f,long i,long *nn)\r
-{\r
-       long j=f;\r
-       while(1)\r
-       {\r
-               j = nn[j];\r
-               if(j==f || j<0) return false;\r
-               if(j==i)        return true;\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
 void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *text, const char *font, mreal size)\r
 {\r
-       if(nn[f]==-1)   return; // do nothing since there is no curve\r
+       if(f<0 || nn[f]==-1)    return; // do nothing since there is no curve\r
        if(!font)       font="";\r
-       int pos = strchr(font,'t') ? 1:-1, align;\r
+       int pos = strchr(font,'T') ? 1:-1, align;\r
        char cc=mglGetStyle(font,0,&align);             align = align&3;\r
        mreal c=cc ? -cc : gr->GetClrC(ff[f]);\r
-       long len = wcslen(text);\r
-       char *fnt = new char[strlen(font)+3];   strcpy(fnt,font);\r
-       mreal *wdt=new mreal[len+1], h=gr->TextHeight(font,size)/4, tet, tt;    // TODO optimaze ratio\r
-       mglPoint *pt=new mglPoint[len+1];\r
+       mreal h=gr->TextHeight(font,size)/2, tet, tt;\r
        wchar_t L[2]=L"a";\r
        register long i,j,k,m;\r
 \r
@@ -57,7 +44,7 @@ void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *
        qa.push_back(q+l*h);    qb.push_back(q-l*h);\r
        for(i=nn[f];i>=0 && i!=f;i=nn[i])       // construct curves\r
        {\r
-               if(gr->Stop)    {       delete []wdt;   delete []pt;    delete []fnt;   return; }\r
+               if(gr->Stop)    return;\r
                p=q;    q=s;    l=t;\r
                if(nn[i]>=0 && ff[nn[i]]>=0)    {       s=gr->GetPntP(ff[nn[i]]);       t=!(s-q);       }\r
                tet = t.x*l.y-t.y*l.x;\r
@@ -69,9 +56,10 @@ void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *
                else\r
                {       qa.push_back(q+l*h);    qb.push_back(q-l*h);    }\r
        }\r
-       if(pos<0)       qa=qb;\r
+       if(pos>0)       qa=qb;\r
        // adjust text direction\r
        bool rev = align==2;\r
+       char *fnt = new char[strlen(font)+3];   strcpy(fnt,font);\r
        if(qa[0].x>qa[1].x)\r
        {\r
                if(align==0){   strcat(fnt,":R");       align=2;        }\r
@@ -79,11 +67,18 @@ void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *
                else            {       strcat(fnt,":L");       align=0;        }\r
        }\r
        if(rev) reverse(qa.begin(),qa.end());\r
-       for(j=0;j<len;j++)      {       L[0]=text[j];   wdt[j]=gr->TextWidth(L,font,size)/2;    }\r
+       long len = wcslen(text);\r
+       mreal *wdt=new mreal[len+1];\r
+       for(j=0;j<len;j++)      {       L[0]=text[j];   wdt[j]=1.2*gr->TextWidth(L,font,size);  }\r
        wdt[len]=0;\r
 \r
        // place glyphs points\r
+       mglPoint *pt=new mglPoint[len+1];\r
        pt[0] = qa[0];  m = qa.size();\r
+\r
+       // next string for testing curve position\r
+       //for(i=0;i<m;i++) gr->mark_plot(gr->AddPnt(qa[i],c,s,-1,-1),'.');\r
+       \r
        mreal a,b,d,w,t1,t2;\r
        for(i=j=0,tt=0;j<len;j++)\r
        {\r
@@ -95,7 +90,7 @@ void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *
                q = qa[i];      s = qa[i+1];    // points of line segment\r
                a = (q-s)*(q-s);        b = (q-p)*(q-s);        d = (q-p)*(q-p)-w*w;\r
                w = sqrt(b*b-a*d);              // NOTE: b*b>a*d should be here!\r
-               if(b*b>1e3*a*c) {       t1 = d/(b+w);   t2 = d/(b-w);   }       // keep precision\r
+               if(b*b>1e3*a*d) {       t1 = d/(b+w);   t2 = d/(b-w);   }       // keep precision\r
                else                    {       t1 = (b-w)/a;   t2 = (b+w)/a;   }\r
                if(t1<0 || t1<tt)       t1=t2;  // t1<t2 should be here!\r
                tt=t1;  pt[j+1] = q+(s-q)*tt;\r
@@ -103,7 +98,7 @@ void mgl_string_curve(mglBase *gr,long f,long ,long *ff,long *nn,const wchar_t *
        if(rev) pos=-pos;\r
        for(j=0;j<len;j++)      // draw text\r
        {       L[0] = text[align!=2?j:len-1-j];        s = pt[j+1]-pt[j];      l = !s;\r
-       gr->text_plot(gr->AddPnt(pt[j]-(pos*h)*l,c,s,-1,-1),L,font,size,0.05,c);        }\r
+       gr->text_plot(gr->AddPnt(pt[j]+(pos*h)*l,c,s,-1,-1),L,font,size,0.05,c);        }\r
        delete []wdt;   delete []pt;    delete []fnt;\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -153,7 +148,7 @@ void mgl_textw_y(HMGL gr, HCDT y, const wchar_t *text, const char *font, const c
 //-----------------------------------------------------------------------------\r
 void mgl_text_xyz(HMGL gr, HCDT x, HCDT y, HCDT z,const char *text, const char *font, const char *opt)\r
 {\r
-       unsigned s = strlen(text)+1;\r
+       size_t s = strlen(text)+1;\r
        wchar_t *wcs = new wchar_t[s];\r
        mbstowcs(wcs,text,s);\r
        mgl_textw_xyz(gr,x,y,z, wcs, font, opt);\r
@@ -384,9 +379,9 @@ void mgl_cont_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, HCDT z, mreal c, i
        delete []nn;    delete []ff;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, HCDT z, const char *sch)\r
+void mgl_cont_gen(HMGL gr, double val, HCDT a, HCDT x, HCDT y, HCDT z, const char *sch)\r
 {\r
-       bool text=(sch && strchr(sch,'t'));\r
+       bool text=(mglchr(sch,'t'));\r
        gr->SetPenPal(sch);\r
        mgl_cont_gen(gr,val,a,x,y,z,gr->CDef,text,0);\r
 }\r
@@ -399,8 +394,8 @@ void mgl_cont_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch, c
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Cont",cgid++);\r
 \r
-       bool text=(sch && strchr(sch,'t'));\r
-       bool fixed=(sch && strchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
+       bool text=(mglchr(sch,'t'));\r
+       bool fixed=(mglchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
        long s=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -593,7 +588,7 @@ void mgl_contf_gen(HMGL gr, mreal v1, mreal v2, HCDT a, HCDT x, HCDT y, HCDT z,
        delete []kk;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_gen(HMGL gr, mreal v1, mreal v2, HCDT a, HCDT x, HCDT y, HCDT z, const char *c)\r
+void mgl_contf_gen(HMGL gr, double v1, double v2, HCDT a, HCDT x, HCDT y, HCDT z, const char *c)\r
 {\r
        gr->SetPenPal(c);\r
        mgl_contf_gen(gr,v1,v2,a,x,y,z,gr->CDef,0);\r
@@ -608,7 +603,7 @@ void mgl_contf_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
        static int cgid=1;      gr->StartGroup("ContF",cgid++);\r
        long s=gr->AddTexture(sch);\r
 \r
-       bool fixed=(sch && strchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
+       bool fixed=(mglchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
        mglData xx, yy, zz(n, m);\r
        if(x->GetNx()*x->GetNy()!=m*n || y->GetNx()*y->GetNy()!=m*n)    // make\r
        {\r
@@ -709,7 +704,7 @@ void mgl_contd_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("ContD",cgid++);\r
 \r
-       bool fixed=(sch && strchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
+       bool fixed=(mglchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
        if(sch) for(i=0;sch[i];i++)     if(strchr(MGL_COLORS,sch[i]))   j++;\r
        if(j==0)        sch = MGL_DEF_PAL;\r
        long s = gr->AddTexture(sch,1);\r
@@ -727,7 +722,7 @@ void mgl_contd_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
                x = &xx;        y = &yy;\r
        }\r
        // x, y -- have the same size z\r
-       mreal z0, v0, dc = nc>1 ? 1/(MGL_EPSILON*(nc-1)) : 0;\r
+       mreal z0, v0, dc = nc>1 ? 1/(MGL_FEPSILON*(nc-1)) : 0;\r
        for(j=0;j<z->GetNz();j++)       for(i=0;i<v->GetNx()-1;i++)\r
        {\r
                if(gr->Stop)    return;\r
@@ -828,7 +823,7 @@ void mgl_contv_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("ContV",cgid++);\r
-       bool fixed=(sch && strchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
+       bool fixed=(mglchr(sch,'_')) || (gr->Min.z==gr->Max.z);\r
        long s=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -856,7 +851,7 @@ void mgl_contv_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
                if(i>0) dv = v->v(i-1)-v->v(i);\r
                else if(i<v->GetNx()-1) dv = v->v(i)-v->v(i+1);\r
                if(fixed)       dv=-dv;\r
-               mgl_contv_gen(gr,v0,dv,z,x,y,&zz,gr->GetC(s,v0),j);     // TODO: ContV -- change here!!!\r
+               mgl_contv_gen(gr,v0,dv,z,x,y,&zz,gr->GetC(s,v0),j);\r
        }\r
        gr->EndGroup();\r
 }\r
@@ -1076,7 +1071,7 @@ void mgl_get_slice_md(_mgl_slice &s, const mglData *x, const mglData *y, const m
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_cont3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        bool both = mgl_isboth(x,y,z,a);\r
        if(mgl_check_dim3(gr,both,x,y,z,a,0,"Cont3"))   return;\r
@@ -1084,10 +1079,10 @@ void mgl_cont3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const ch
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Cont3",cgid++);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir='x';\r
-       if(sch && strchr(sch,'z'))      dir='z';\r
+       if(mglchr(sch,'x'))     dir='x';\r
+       if(mglchr(sch,'z'))     dir='z';\r
 \r
-       bool text=(sch && strchr(sch,'t'));\r
+       bool text=(mglchr(sch,'t'));\r
        long ss=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -1106,7 +1101,7 @@ void mgl_cont3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const ch
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont3_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_cont3_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()),z(a->GetNz());\r
@@ -1117,7 +1112,7 @@ void mgl_cont3_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sVal, const c
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_cont3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = mgl_isnan(r)?7:long(r+0.5);\r
@@ -1128,7 +1123,7 @@ void mgl_cont3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mre
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont3(HMGL gr, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_cont3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = mgl_isnan(r)?7:long(r+0.5);\r
@@ -1165,7 +1160,7 @@ void mgl_cont3_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sVal, const
 //     Dens3 series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_dens3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_dens3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        bool both = mgl_isboth(x,y,z,a);\r
        if(mgl_check_dim3(gr,both,x,y,z,a,0,"Dens3"))   return;\r
@@ -1173,8 +1168,8 @@ void mgl_dens3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mre
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Dens3",cgid++);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir='x';\r
-       if(sch && strchr(sch,'z'))      dir='z';\r
+       if(mglchr(sch,'x'))     dir='x';\r
+       if(mglchr(sch,'z'))     dir='z';\r
 \r
        _mgl_slice s;\r
        const mglData *mx = dynamic_cast<const mglData *>(x);\r
@@ -1184,9 +1179,10 @@ void mgl_dens3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mre
        if(mx&&my&&mz&&ma)      mgl_get_slice_md(s,mx,my,mz,ma,dir,sVal,both);\r
        else mgl_get_slice(s,x,y,z,a,dir,sVal,both);\r
        mgl_surfc_xy(gr,&s.x,&s.y,&s.z,&s.a,sch,0);\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_dens3(HMGL gr, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_dens3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()),z(a->GetNz());\r
@@ -1212,7 +1208,7 @@ mgl_dens3(_GR_, _DA_(a), s, *sVal, o);    delete []o;     delete []s;     }
 //     Grid3 series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_grid3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_grid3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        bool both = mgl_isboth(x,y,z,a);\r
        if(mgl_check_dim3(gr,both,x,y,z,a,0,"Grid3"))   return;\r
@@ -1220,8 +1216,8 @@ void mgl_grid3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mre
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Grid3",cgid++);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir='x';\r
-       if(sch && strchr(sch,'z'))      dir='z';\r
+       if(mglchr(sch,'x'))     dir='x';\r
+       if(mglchr(sch,'z'))     dir='z';\r
 \r
        _mgl_slice s;\r
        const mglData *mx = dynamic_cast<const mglData *>(x);\r
@@ -1231,9 +1227,10 @@ void mgl_grid3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mre
        if(mx&&my&&mz&&ma)      mgl_get_slice_md(s,mx,my,mz,ma,dir,sVal,both);\r
        else mgl_get_slice(s,x,y,z,a,dir,sVal,both);\r
        mgl_mesh_xy(gr,&s.x,&s.y,&s.z,sch,0);\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_grid3(HMGL gr, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_grid3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()), z(a->GetNz());\r
@@ -1259,7 +1256,7 @@ mgl_grid3(_GR_, _DA_(a), s, *sVal, o);    delete []o;     delete []s;     }
 //     ContF3 series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_contf3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        bool both = mgl_isboth(x,y,z,a);\r
        if(mgl_check_dim3(gr,both,x,y,z,a,0,"ContF3"))  return;\r
@@ -1267,8 +1264,8 @@ void mgl_contf3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const c
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("ContF3",cgid++);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir='x';\r
-       if(sch && strchr(sch,'z'))      dir='z';\r
+       if(mglchr(sch,'x'))     dir='x';\r
+       if(mglchr(sch,'z'))     dir='z';\r
 \r
        long ss=gr->AddTexture(sch);\r
        _mgl_slice s;\r
@@ -1286,7 +1283,7 @@ void mgl_contf3_xyz_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, HCDT a, const c
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf3_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_contf3_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()),z(a->GetNz());\r
@@ -1297,7 +1294,7 @@ void mgl_contf3_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sVal, const
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_contf3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = mgl_isnan(r)?7:long(r+0.5);\r
@@ -1307,7 +1304,7 @@ void mgl_contf3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, mr
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf3(HMGL gr, HCDT a, const char *sch, mreal sVal, const char *opt)\r
+void mgl_contf3(HMGL gr, HCDT a, const char *sch, double sVal, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = mgl_isnan(r)?7:long(r+0.5);\r
@@ -1350,7 +1347,7 @@ long mgl_find_prev(long i, long pc, long *nn)
        for(long k=0;k<pc;k++)  if(nn[k]==i)    return k;\r
        return -1;\r
 }\r
-void mgl_axial_plot(mglBase *gr,long pc, mglPoint *ff, long *nn,char dir,mreal cc,bool wire)\r
+void mgl_axial_plot(mglBase *gr,long pc, mglPoint *ff, long *nn,char dir,mreal cc,int wire)\r
 {\r
        mglPoint a(0,0,1),b,c,p,q1,q2;\r
        if(dir=='x')    a = mglPoint(1,0,0);\r
@@ -1360,7 +1357,7 @@ void mgl_axial_plot(mglBase *gr,long pc, mglPoint *ff, long *nn,char dir,mreal c
        register long i,j,k;\r
        mreal fi,si,co;\r
        long p1,p2,p3,p4;\r
-       if(wire)        gr->Reserve(pc*82);     else    gr->Reserve(pc*82);\r
+       gr->Reserve(pc*82);\r
        for(i=0;i<pc;i++)\r
        {\r
                if(gr->Stop)    return;\r
@@ -1373,8 +1370,9 @@ void mgl_axial_plot(mglBase *gr,long pc, mglPoint *ff, long *nn,char dir,mreal c
                p1 = wire ? gr->AddPnt(p,cc) : gr->AddPnt(p,cc,(a*q1.y + c*q1.x)^b);\r
                p = a*ff[nn[i]].y + c*ff[nn[i]].x;\r
                p2 = wire ? gr->AddPnt(p,cc) : gr->AddPnt(p,cc,(a*q2.y + c*q2.x)^b);\r
-               if(wire)        gr->line_plot(p1,p2);\r
-\r
+               if(wire==1)     gr->line_plot(p1,p2);\r
+               else if(wire)   {       gr->mark_plot(p1,'.');  gr->mark_plot(p2,'.');  }\r
+               \r
                for(j=1;j<41;j++)\r
                {\r
                        p3 = p1;        p4 = p2;\r
@@ -1383,16 +1381,17 @@ void mgl_axial_plot(mglBase *gr,long pc, mglPoint *ff, long *nn,char dir,mreal c
                        p1 = wire ?     gr->AddPnt(p,cc) : gr->AddPnt(p,cc,(a*q1.y + b*(si*q1.x) +  c*(co*q1.x))^(b*co-c*si));\r
                        p = a*ff[nn[i]].y + b*(si*ff[nn[i]].x) +  c*(co*ff[nn[i]].x);\r
                        p2 = wire ?     gr->AddPnt(p,cc) : gr->AddPnt(p,cc,(a*q2.y + b*(si*q2.x) +  c*(co*q2.x))^(b*co-c*si));\r
-                       if(wire)\r
+                       if(wire==1)\r
                        {       gr->line_plot(p1,p2);   gr->line_plot(p1,p3);\r
                        gr->line_plot(p4,p2);   gr->line_plot(p4,p3);   }\r
+                       else if(wire)   {       gr->mark_plot(p1,'.');  gr->mark_plot(p2,'.');  }\r
                        else    gr->quad_plot(p3,p4,p1,p2);\r
                }\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
 // NOTE! All data MUST have the same size! Only first slice is used!\r
-void mgl_axial_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, mreal c, char dir,long ak,bool wire)\r
+void mgl_axial_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, mreal c, char dir,long ak,int wire)\r
 {\r
        long n=a->GetNx(), m=a->GetNy();\r
        if(n<2 || m<2 || x->GetNx()*x->GetNy()!=n*m || y->GetNx()*y->GetNy()!=n*m)\r
@@ -1496,8 +1495,8 @@ void mgl_axial_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
 \r
        long s=gr->AddTexture(sch);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir = 'x';\r
-       if(sch && strchr(sch,'z'))      dir = 'z';\r
+       if(mglchr(sch,'x'))     dir = 'x';\r
+       if(mglchr(sch,'z'))     dir = 'z';\r
 \r
        mglData xx, yy;\r
        if(x->GetNx()*x->GetNy()!=m*n || y->GetNx()*y->GetNy()!=m*n)    // make\r
@@ -1513,7 +1512,8 @@ void mgl_axial_xy_val(HMGL gr, HCDT v, HCDT x, HCDT y, HCDT z, const char *sch,
        }\r
        // x, y -- have the same size z\r
        mreal v0;\r
-       bool wire = sch && strchr(sch,'#');\r
+       int wire = mglchr(sch,'#')?1:0;\r
+       if(mglchr(sch,'.'))     wire = 2;\r
        for(j=0;j<z->GetNz();j++)       for(i=0;i<v->GetNx();i++)\r
        {\r
                if(gr->Stop)    return;\r
@@ -1595,12 +1595,14 @@ void mgl_torus(HMGL gr, HCDT r, HCDT z, const char *sch, const char *opt)
        long *nn = new long[n];\r
        long ss=gr->AddTexture(sch);\r
        char dir='y';\r
-       if(sch && strchr(sch,'x'))      dir = 'x';\r
-       if(sch && strchr(sch,'z'))      dir = 'z';\r
+       if(mglchr(sch,'x'))     dir = 'x';\r
+       if(mglchr(sch,'z'))     dir = 'z';\r
 \r
        mreal c = gr->GetC(ss,gr->Min.c);\r
        const mglData *mr = dynamic_cast<const mglData *>(r);\r
        const mglData *mz = dynamic_cast<const mglData *>(z);\r
+       int wire = mglchr(sch,'#')?1:0;\r
+       if(mglchr(sch,'.'))     wire = 2;\r
        for(j=0;j<r->GetNy();j++)\r
        {\r
                if(mr&&mz)      for(i=0;i<n;i++)\r
@@ -1613,7 +1615,7 @@ void mgl_torus(HMGL gr, HCDT r, HCDT z, const char *sch, const char *opt)
                        nn[i] = i<n-1 ? i+1 : -1;\r
                        pp[i] = mglPoint(r->v(i,j), z->v(i,j));\r
                }\r
-               mgl_axial_plot(gr,n,pp,nn,dir,c,sch && strchr(sch,'#'));\r
+               mgl_axial_plot(gr,n,pp,nn,dir,c,wire);\r
        }\r
        gr->EndGroup();\r
        delete []nn;    delete []pp;\r

diff --git a/src/crust.cpp b/src/crust.cpp
index 5903b47930af7c4dd3dfc71fb63fa41f015c3725..2877c199a44c75f494e3cad5f655251b817f1f56 100644 (file)
--- a/src/crust.cpp
+++ b/src/crust.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * crust.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -31,12 +31,12 @@ void mgl_triplot_xyzc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT a, const
        if(mgl_check_trig(gr,nums,x,y,z,a,"TriPlot"))   return;\r
 \r
        long ss=gr->AddTexture(sch);\r
-       gr->SaveState(opt);\r
+       gr->SaveState(opt);     gr->SetPenPal("-");\r
        static int cgid=1;      gr->StartGroup("TriPlot",cgid++);\r
        mglPoint p1,p2,p3,q=mglPoint(NAN,NAN);\r
 \r
        register long i,k1,k2,k3;\r
-       bool wire = sch && strchr(sch,'#');\r
+       bool wire = mglchr(sch,'#');\r
        long nc = a->GetNx();\r
        if(nc!=n && nc>=m)      // colors per triangle\r
        {\r
@@ -141,13 +141,13 @@ void mgl_quadplot_xyzc(HMGL gr, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT a, const
        if(mgl_check_trig(gr,nums,x,y,z,a,"QuadPlot",4))        return;\r
 \r
        long ss=gr->AddTexture(sch);\r
-       gr->SaveState(opt);\r
+       gr->SaveState(opt);     gr->SetPenPal("-");\r
        static int cgid=1;      gr->StartGroup("QuadPlot",cgid++);\r
        mglPoint p1,p2,p3,p4,q=mglPoint(NAN,NAN);\r
 \r
        register long i,k1,k2,k3,k4;\r
        long nc = a->GetNx();\r
-       bool wire = sch && strchr(sch,'#');\r
+       bool wire = mglchr(sch,'#');\r
        if(nc!=n && nc>=m)      // colors per triangle\r
        {\r
                gr->Reserve(m*4);\r
@@ -281,7 +281,7 @@ void mgl_tricont_xyzcv(HMGL gr, HCDT v, HCDT nums, HCDT x, HCDT y, HCDT z, HCDT
        mreal val;\r
        register long i,k;\r
        long k1,k2,k3;\r
-       bool zVal = (sch && strchr(sch,'_'));\r
+       bool zVal = (mglchr(sch,'_'));\r
        for(k=0;k<v->GetNx();k++)       for(i=0;i<m;i++)\r
        {\r
                if(gr->Stop)    return;\r
@@ -407,6 +407,7 @@ HMDT mgl_triangulation_2d(HCDT x, HCDT y)
        if(y->GetNx()!=n)       return nums;\r
        // use s-hull here\r
        std::vector<Shx> pts;\r
+       std::vector<size_t> out;\r
        Shx pt;\r
 \r
        for(i=0;i<n;i++)\r
@@ -415,6 +416,8 @@ HMDT mgl_triangulation_2d(HCDT x, HCDT y)
                pt.id = i;      pts.push_back(pt);\r
        }\r
        std::vector<Triad> triads;\r
+       if(de_duplicate(pts, out))\r
+               mglGlobalMess += "There are duplicated points for triangulation.\n";\r
        s_hull_pro(pts, triads);\r
        m = triads.size();\r
        nums->Create(3,m);\r
@@ -480,9 +483,9 @@ void mgl_data_grid(HMGL gr, HMDT d, HCDT xdat, HCDT ydat, HCDT zdat, const char
        const mglData *x = dynamic_cast<const mglData *>(xdat);\r
        const mglData *y = dynamic_cast<const mglData *>(ydat);\r
        const mglData *z = dynamic_cast<const mglData *>(zdat);\r
-       if(!x | !y | !z) return;\r
+       if(!x || !y || !z) return;\r
        long n=x->nx;\r
-       if((n<3) | (y->nx!=n) | (z->nx!=n))     return;\r
+       if((n<3) || (y->nx!=n) || (z->nx!=n))   return;\r
 \r
        gr->SaveState(opt);\r
        mglData *nums = mgl_triangulation_2d(x,y);\r

diff --git a/src/data.cpp b/src/data.cpp
index 2d9bf5b6aceb59d1b19630279b13d419d570b8c4..90cb1c8bf3506d8404ca725b335c4db05037aa29 100644 (file)
--- a/src/data.cpp
+++ b/src/data.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -54,8 +54,9 @@ void mgl_set_num_thr(int n)
 void mgl_set_num_thr(int)      {       mglNumThr = 1;  }\r
 #endif\r
 //-----------------------------------------------------------------------------\r
-void mglStartThread(void *(*func)(void *), void (*post)(mglThreadD *,mreal *), long n, mreal *a,\r
-       const mreal *b, const mreal *c, const long *p, void *v, const mreal *d, const mreal *e, const char *s)\r
+void mglStartThread(void *(*func)(void *), void (*post)(mglThreadD *,mreal *), long n,\r
+                                       mreal *a, const mreal *b, const mreal *c, const long *p,\r
+                                       const void *v, const mreal *d, const mreal *e, const char *s)\r
 {\r
        if(!func)       return;\r
 #if MGL_HAVE_PTHREAD\r
@@ -85,6 +86,35 @@ void mglStartThread(void *(*func)(void *), void (*post)(mglThreadD *,mreal *), l
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
+void mglStartThreadV(void *(*func)(void *), long n, mreal *a, const void *b,\r
+                                        const void *c, const long *p, const void *v, const mreal *d)\r
+{\r
+       if(!func)       return;\r
+#if MGL_HAVE_PTHREAD\r
+       if(mglNumThr<1) mgl_set_num_thr(0);\r
+       if(mglNumThr>1)\r
+       {\r
+               pthread_t *tmp=new pthread_t[mglNumThr];\r
+               mglThreadV *par=new mglThreadV[mglNumThr];\r
+               register long i;\r
+               for(i=0;i<mglNumThr;i++)        // put parameters into the structure\r
+               {       par[i].n=n;     par[i].a=a;     par[i].b=b;     par[i].c=c;     par[i].d=d;\r
+                       par[i].p=p;     par[i].v=v;     par[i].id=i;par[i].aa=0;        }\r
+               for(i=0;i<mglNumThr;i++)        pthread_create(tmp+i, 0, func, par+i);\r
+               for(i=0;i<mglNumThr;i++)        pthread_join(tmp[i], 0);\r
+               delete []tmp;   delete []par;\r
+       }\r
+       else\r
+#endif\r
+       {\r
+               mglNumThr = 1;\r
+               mglThreadV par;\r
+               par.n=n;        par.a=a;        par.b=b;        par.c=c;        par.d=d;\r
+               par.p=p;        par.v=v;        par.id=0;       par.aa=0;\r
+               func(&par);\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
 double mgl_ipow(double x,int n)\r
 {\r
        double t;\r
@@ -178,6 +208,7 @@ void *mgl_smth_z(void *par)
 void mgl_data_smooth(HMDT d, const char *dirs, mreal delta)\r
 {\r
        long Type = SMOOTH_QUAD_5;\r
+       if(!dirs || *dirs==0)   dirs = "xyz";\r
        if(strchr(dirs,'0') || strchr(dirs,'1'))        return;\r
        if(strchr(dirs,'3'))    Type = SMOOTH_LINE_3;\r
        if(strchr(dirs,'5'))    Type = SMOOTH_LINE_5;\r
@@ -251,6 +282,7 @@ void *mgl_csum_x(void *par)
 }\r
 void mgl_data_cumsum(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nn];\r
@@ -317,6 +349,7 @@ void *mgl_int_x(void *par)
 }\r
 void mgl_data_integral(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nn];\r
@@ -388,6 +421,7 @@ void *mgl_dif_x(void *par)
 }\r
 void mgl_data_diff(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nn];\r
@@ -453,6 +487,7 @@ void *mgl_dif2_x(void *par)
 }\r
 void mgl_data_diff2(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        long nx=d->nx,ny=d->ny,nz=d->nz,nn=nx*ny*nz;\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nn];\r
@@ -479,6 +514,7 @@ void mgl_data_diff2_(uintptr_t *d, const char *dir,int l)
 //-----------------------------------------------------------------------------\r
 void mgl_data_swap(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        if(strchr(dir,'z') && d->nz>1)  mgl_data_roll(d,'z',d->nz/2);\r
        if(strchr(dir,'y') && d->ny>1)  mgl_data_roll(d,'y',d->ny/2);\r
        if(strchr(dir,'x') && d->nx>1)  mgl_data_roll(d,'x',d->nx/2);\r
@@ -527,6 +563,7 @@ void mgl_data_roll_(uintptr_t *d, const char *dir, int *num, int)
 //-----------------------------------------------------------------------------\r
 void mgl_data_mirror(HMDT d, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return;\r
        long nx=d->nx,ny=d->ny,nz=d->nz;\r
        register long i,j,k,i0,j0;\r
        mreal b, *a=d->a;\r
@@ -564,10 +601,242 @@ void mgl_data_mirror_(uintptr_t *d, const char *dir,int l)
 {      char *s=new char[l+1];  memcpy(s,dir,l);        s[l]=0;\r
        mgl_data_mirror(_DT_,s);        delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-mreal mgl_data_linear(HCDT d, mreal x,mreal y,mreal z)\r
+void mgl_data_clean(HMDT d, long id)\r
+{\r
+       if(id<0 || id+1>d->nx)  return;\r
+       register long i,j,k,n=d->nx,m=d->ny;\r
+       mreal *b = new mreal[m*n], *a=d->a;\r
+       for(i=j=0;i+1<m;i++)\r
+       {\r
+               if(a[id+n*i]!=a[id+n*i+n])      // this can be saved\r
+               {\r
+                       for(k=0;k<n;k++)                b[k+n*j]=a[k+n*i];\r
+                       j++;\r
+               }\r
+       }\r
+       // always save last row\r
+       for(k=0, i=n*(m-1);k<n;k++)             b[k+n*j]=a[k+i];\r
+       j++;\r
+       memcpy(a,b,n*j*sizeof(mreal));  d->ny = j;\r
+       delete []b;\r
+}\r
+void mgl_data_clean_(uintptr_t *d, int *id)    {       mgl_data_clean(_DT_,*id);       }\r
+//-----------------------------------------------------------------------------\r
+void *mgl_solve_x(void *par)\r
+{\r
+       mglThreadD *t=(mglThreadD *)par;\r
+       register long l,i,i0,j,k, nx=t->p[0], ny=t->p[1], nz=t->p[2], n1=t->p[3]?nx-1:1, nn=t->n;\r
+       const mreal *a=t->b, *ii=t->c;\r
+       mreal *b=t->a,x,val=t->d[0],y1,y2,v,v0,dx,dy,dz,da = 1e-5*(val?fabs(val):1);\r
+       for(l=t->id;l<nn;l+=mglNumThr)\r
+       {\r
+               j = l%ny;       k = l/ny;       b[l] = NAN;\r
+               if(ii && ii[l]!=ii[l])  continue;\r
+               i0 = ii?(ii[l]*n1+1):0;\r
+               if(i0>nx-2)     continue;\r
+               if(a)   for(i=i0+1;i<nx;i++)\r
+               {\r
+                       y1=a[i-1+nx*l]; y2=a[i+nx*l];\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {\r
+                               x = i-1 + (val-y1)/(y2-y1);\r
+                               v0 = v = mglSpline3(a,nx,ny,nz,x,j,k, &dx,&dy,&dz);\r
+                               unsigned kk=0;\r
+                               while(fabs(v-val)>da || dx==0)\r
+                               {\r
+                                       x += (val-v)/dx;                kk++;\r
+                                       v = mglSpline3(a,nx,ny,nz,x,j,k, &dx,&dy,&dz);\r
+                                       if(kk>=10)\r
+                                       {\r
+                                               b[l] = x = fabs(v-val)<fabs(v0-val) ? x:i-1 + (val-y1)/(y2-y1);\r
+                                               break;\r
+                                       }\r
+                               }\r
+                               b[l] = x;       break;\r
+                       }\r
+               }\r
+               else    for(i=i0+1;i<nx;i++)\r
+               {\r
+                       HCDT d=(HCDT)t->v;\r
+                       y1=d->v(i-1,j,k);       y2=d->v(i,j,k);\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {       b[l] = i-1 + (val-y1)/(y2-y1);  break;  }\r
+               }\r
+               b[l] /= n1;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_solve_y(void *par)\r
+{\r
+       mglThreadD *t=(mglThreadD *)par;\r
+       register long l,i,i0,j,k, nx=t->p[0], ny=t->p[1], nz=t->p[2], n1=t->p[3]?ny-1:1, nn=t->n;\r
+       const mreal *a=t->b, *ii=t->c;\r
+       mreal *b=t->a,x,val=t->d[0],y1,y2,v,v0,dx,dy,dz,da = 1e-5*(val?fabs(val):1);\r
+       for(l=t->id;l<nn;l+=mglNumThr)\r
+       {\r
+               j = l%nx;       k = l/nx;       b[l] = NAN;\r
+               if(ii && ii[l]!=ii[l])  continue;\r
+               i0 = ii?(ii[l]*n1+1):0;\r
+               if(i0>ny-2)     continue;\r
+               if(a)   for(i=i0+1;i<ny;i++)\r
+               {\r
+                       y1=a[j+nx*(i-1+ny*k)];  y2=a[j+nx*(i+ny*k)];\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {\r
+                               x = i-1 + (val-y1)/(y2-y1);\r
+                               v0 = v = mglSpline3(a,nx,ny,nz,j,x,k, &dx,&dy,&dz);\r
+                               unsigned kk=0;\r
+                               while(fabs(v-val)>da || dy==0)\r
+                               {\r
+                                       x += (val-v)/dy;                kk++;\r
+                                       v = mglSpline3(a,nx,ny,nz,j,x,k, &dx,&dy,&dz);\r
+                                       if(kk>=10)\r
+                                       {\r
+                                               b[l] = x = fabs(v-val)<fabs(v0-val) ? x:i-1 + (val-y1)/(y2-y1);\r
+                                               break;\r
+                                       }\r
+                               }\r
+                               b[l] = x;       break;\r
+                       }\r
+               }\r
+               else    for(i=i0+1;i<ny;i++)\r
+               {\r
+                       HCDT d=(HCDT)t->v;\r
+                       y1=d->v(j,i-1,k);       y2=d->v(j,i,k);\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {       b[l] = i-1 + (val-y1)/(y2-y1);  break;  }\r
+               }\r
+               b[l] /= n1;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_solve_z(void *par)\r
+{\r
+       mglThreadD *t=(mglThreadD *)par;\r
+       register long l,i,i0,j,k, nx=t->p[0], ny=t->p[1], nz=t->p[2], n1=t->p[3]?nz-1:1, nn=t->n;\r
+       const mreal *a=t->b, *ii=t->c;\r
+       mreal *b=t->a,x,val=t->d[0],y1,y2,v,v0,dx,dy,dz,da = 1e-5*(val?fabs(val):1);\r
+       for(l=t->id;l<nn;l+=mglNumThr)\r
+       {\r
+               j = l%nx;       k = l/nx;       b[l] = NAN;\r
+               if(ii && ii[l]!=ii[l])  continue;\r
+               i0 = ii?(ii[l]*n1+1):0;\r
+               if(i0>nz-2)     continue;\r
+               if(a)   for(i=i0+1;i<nz;i++)\r
+               {\r
+                       y1=a[nn*i-nn+l];        y2=a[nn*i+l];\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {\r
+                               x = i-1 + (val-y1)/(y2-y1);\r
+                               v0 = v = mglSpline3(a,nx,ny,nz,j,k,x, &dx,&dy,&dz);\r
+                               unsigned kk=0;\r
+                               while(fabs(v-val)>da || dz==0)\r
+                               {\r
+                                       x += (val-v)/dz;                kk++;\r
+                                       v = mglSpline3(a,nx,ny,nz,j,k,x, &dx,&dy,&dz);\r
+                                       if(kk>=10)\r
+                                       {\r
+                                               b[l] = x = fabs(v-val)<fabs(v0-val) ? x:i-1 + (val-y1)/(y2-y1);\r
+                                               break;\r
+                                       }\r
+                               }\r
+                               b[l] = x;       break;\r
+                       }\r
+               }\r
+               else    for(i=i0+1;i<nz;i++)\r
+               {\r
+                       HCDT d=(HCDT)t->v;\r
+                       y1=d->v(j,k,i-1);       y2=d->v(j,k,i);\r
+                       if(val==y1)     {       b[l] = i-1;     break;  }\r
+                       if(val==y2)     {       b[l] = i;       break;  }\r
+                       if((y1-val)*(y2-val)<0)\r
+                       {       b[l] = i-1 + (val-y1)/(y2-y1);  break;  }\r
+               }\r
+               b[l] /= n1;\r
+       }\r
+       return 0;\r
+}\r
+HMDT mgl_data_solve(HCDT dat, mreal val, char dir, HCDT i0, int norm)\r
+{\r
+       const mglData *i = dynamic_cast<const mglData *>(i0);\r
+       const mglData *d = dynamic_cast<const mglData *>(dat);\r
+       long p[4]={dat->GetNx(), dat->GetNy(), dat->GetNz(), norm};\r
+       const mreal *ii=0;\r
+       mglData *r=new mglData;\r
+       if(dir=='x' && p[0]>1)\r
+       {\r
+               r->Create(p[1],p[2]);\r
+               if(i && i->nx*i->ny==p[1]*p[2]) ii = i->a;\r
+               mglStartThread(mgl_solve_x,0,p[1]*p[2],r->a,d?d->a:0,ii,p,dat,&val);\r
+       }\r
+       if(dir=='y' && p[1]>1)\r
+       {\r
+               r->Create(p[0],p[2]);\r
+               if(i && i->nx*i->ny==p[0]*p[2]) ii = i->a;\r
+               mglStartThread(mgl_solve_y,0,p[0]*p[2],r->a,d?d->a:0,ii,p,dat,&val);\r
+       }\r
+       if(dir=='z' && p[2]>1)\r
+       {\r
+               r->Create(p[0],p[1]);\r
+               if(i && i->nx*i->ny==p[0]*p[1]) ii = i->a;\r
+               mglStartThread(mgl_solve_z,0,p[0]*p[1],r->a,d?d->a:0,ii,p,dat,&val);\r
+       }\r
+       return r;\r
+}\r
+//-----------------------------------------------------------------------------\r
+mreal mgl_data_solve_1d(HCDT d, mreal val, int spl, long i0)\r
+{\r
+       mreal x=0, y1, y2, a, a0, dx=0,dy,dz, da = 1e-5*(val?fabs(val):1);\r
+       long nx = d->GetNx();\r
+       if(i0<0 || i0>=nx)      i0=0;\r
+       const mglData *dd=dynamic_cast<const mglData *>(d);\r
+       if(dd)  for(long i=i0+1;i<nx;i++)\r
+       {\r
+               y1=dd->a[i-1];  y2=dd->a[i];\r
+               if(val==y1)     return i-1;\r
+               if(val==y2)     return i;\r
+               if((y1-val)*(y2-val)<0)\r
+               {\r
+                       x = i-1 + (val-y1)/(y2-y1);\r
+                       a0 = a = mgl_data_spline_ext(d, x,0,0, &dx,&dy,&dz);\r
+                       unsigned k=0;\r
+                       if(spl) while(fabs(a-val)>da || dx==0)\r
+                       {\r
+                               x += (val-a)/dx;                k++;\r
+                               a = mgl_data_spline_ext(d, x,0,0, &dx,&dy,&dz);\r
+                               if(k>=10)\r
+                                       return fabs(a-val)<fabs(a0-val) ? x:i-1 + (val-y1)/(y2-y1);\r
+                       }\r
+                       return x;\r
+               }\r
+       }\r
+       else    for(long i=i0+1;i<nx;i++)\r
+       {\r
+               y1=d->v(i-1);   y2=d->v(i);\r
+               if(val==y1)     return i-1;\r
+               if(val==y2)     return i;\r
+               if((y1-val)*(y2-val)<0)\r
+                       return i-1 + (val-y1)/(y2-y1);\r
+                       \r
+       }\r
+       return NAN;\r
+}\r
+//-----------------------------------------------------------------------------\r
+mreal mgl_data_linear_ext(HCDT d, mreal x,mreal y,mreal z, mreal *dx,mreal *dy,mreal *dz)\r
 {\r
        long kx=long(x), ky=long(y), kz=long(z);\r
        mreal b0,b1;\r
+       bool dif = (dx && dy && dz);\r
        const mglData *dd=dynamic_cast<const mglData *>(d);\r
        if(dd)\r
        {\r
@@ -580,8 +849,10 @@ mreal mgl_data_linear(HCDT d, mreal x,mreal y,mreal z)
                z -= kz;        if(nz==1)       z=0;\r
 \r
                const mreal *aa=dd->a+kx+nx*(ky+ny*kz), *bb = aa+(nz>1?nx*ny:0);\r
-               b0 = aa[0]*(1-x-y+x*y) + x*(1-y)*aa[1] + y*(1-x)*aa[dn] + x*y*aa[1+dn];\r
-               b1 = bb[0]*(1-x-y+x*y) + x*(1-y)*bb[1] + y*(1-x)*bb[dn] + x*y*bb[1+dn];\r
+               b0 = x||y ? aa[0]*(1-x-y+x*y) + x*(1-y)*aa[1] + y*(1-x)*aa[dn] + x*y*aa[1+dn] : aa[0];\r
+               b1 = x||y ? bb[0]*(1-x-y+x*y) + x*(1-y)*bb[1] + y*(1-x)*bb[dn] + x*y*bb[1+dn] : bb[0];\r
+               if(dif)\r
+               {       *dx = aa[1]-aa[0];      *dy = aa[dn]-aa[0];     *dz = bb[0]-aa[0];      }\r
        }\r
        else\r
        {\r
@@ -591,15 +862,22 @@ mreal mgl_data_linear(HCDT d, mreal x,mreal y,mreal z)
                kz = (kz>=0 ? (kz<nz? kz:nz-1):0);\r
                x -= kx;        y -= ky;        z -= kz;\r
 \r
-               b0 = d->v(kx,ky,kz)*(1-x-y+x*y) + x*(1-y)*d->v(kx+1,ky,kz) +\r
-                       y*(1-x)*d->v(kx,ky+1,kz) + x*y*d->v(kx+1,ky+1,kz);\r
+               mreal a0 = d->v(kx,ky,kz), a1 = d->v(kx+1,ky,kz), a2 = d->v(kx,ky+1,kz);\r
+               if(dif) {       *dx = a1-a0;    *dy = a2-a0;    *dz = -a0;      }\r
+               if(x||y)        b0 = a0*(1-x-y+x*y) + x*(1-y)*a1 + y*(1-x)*a2 + x*y*d->v(kx+1,ky+1,kz);\r
+               else    b0 = a0;\r
                kz++;\r
-               b1 = d->v(kx,ky,kz)*(1-x-y+x*y) + x*(1-y)*d->v(kx+1,ky,kz) +\r
-                       y*(1-x)*d->v(kx,ky+1,kz) + x*y*d->v(kx+1,ky+1,kz);\r
+               a0 = d->v(kx,ky,kz);    a1 = d->v(kx+1,ky,kz);  a2 = d->v(kx,ky+1,kz);\r
+               if(dif) *dz += a0;\r
+               if(x||y)        b1 = a0*(1-x-y+x*y) + x*(1-y)*a1 + y*(1-x)*a2 + x*y*d->v(kx+1,ky+1,kz);\r
+               else    b1 = a0;\r
        }\r
        return b0 + z*(b1-b0);\r
 }\r
 //-----------------------------------------------------------------------------\r
+mreal mgl_data_linear(HCDT d, mreal x,mreal y,mreal z)\r
+{      return mgl_data_linear_ext(d, x,y,z, 0,0,0);    }\r
+//-----------------------------------------------------------------------------\r
 mreal mgl_data_spline(HCDT d, mreal x,mreal y,mreal z)\r
 {\r
        const mglData *dd=dynamic_cast<const mglData *>(d);\r
@@ -607,6 +885,26 @@ mreal mgl_data_spline(HCDT d, mreal x,mreal y,mreal z)
        return mglSpline3(dd->a,dd->nx,dd->ny,dd->nz,x,y,z,0,0,0);\r
 }\r
 //-----------------------------------------------------------------------------\r
+mreal mgl_data_spline_ext(HCDT d, mreal x,mreal y,mreal z, mreal *dx,mreal *dy,mreal *dz)\r
+{\r
+       const mglData *dd=dynamic_cast<const mglData *>(d);\r
+       if(!d)  return 0;       // NOTE: don't support general arrays\r
+       return mglSpline3(dd->a,dd->nx,dd->ny,dd->nz,x,y,z,dx,dy,dz);\r
+}\r
+//-----------------------------------------------------------------------------\r
+mreal mgl_data_spline_(uintptr_t *d, mreal *x,mreal *y,mreal *z)\r
+{      return mgl_data_spline(_DA_(d),*x,*y,*z);       }\r
+mreal mgl_data_linear_(uintptr_t *d, mreal *x,mreal *y,mreal *z)\r
+{      return mgl_data_linear(_DA_(d),*x,*y,*z);       }\r
+mreal mgl_data_spline_ext_(uintptr_t *d, mreal *x,mreal *y,mreal *z, mreal *dx,mreal *dy,mreal *dz)\r
+{      return mgl_data_spline_ext(_DA_(d),*x,*y,*z,dx,dy,dz);  }\r
+mreal mgl_data_linear_ext_(uintptr_t *d, mreal *x,mreal *y,mreal *z, mreal *dx,mreal *dy,mreal *dz)\r
+{      return mgl_data_linear_ext(_DA_(d),*x,*y,*z,dx,dy,dz);  }\r
+mreal mgl_data_solve_1d_(uintptr_t *d, mreal *val, int *spl, int *i0)\r
+{      return mgl_data_solve_1d(_DA_(d),*val, *spl, *i0);      }\r
+uintptr_t mgl_data_solve_(uintptr_t *d, mreal *val, const char *dir, uintptr_t *i0, int *norm,int)\r
+{      return uintptr_t(mgl_data_solve(_DA_(d),*val, *dir, _DA_(i0), *norm));  }\r
+//-----------------------------------------------------------------------------\r
 mreal mglSpline3(const mreal *a, long nx, long ny, long nz, mreal x, mreal y, mreal z,mreal *dx, mreal *dy, mreal *dz)\r
 {\r
        if(!a || nx<1 || ny<1 || nz<1)  return 0;\r
@@ -621,13 +919,12 @@ mreal mglSpline3(const mreal *a, long nx, long ny, long nz, mreal x, mreal y, mr
        z = z>0 ?(z<nz-1 ? z:nz-1):0;\r
        //      if(x<0 || y<0 || z<0 || x>nx-1 || y>ny-1 || z>nz-1)             return 0;\r
        if(dd)  {       *dx=*dy=*dz=0;  }\r
+       if(kx>nx-2)     kx = nx-2;      if(kx<0)        kx = 0;\r
+       if(ky>ny-2)     ky = ny-2;      if(ky<0)        ky = 0;\r
+       if(kz>nz-2)     kz = nz-2;      if(kz<0)        kz = 0;\r
        if(nz>1 && z!=kz)               // 3d interpolation\r
-       {                                               // TODO: add dx,dy,dz evaluation\r
-               mreal b1[4]={0,0,0,0};\r
-               if(kx>nx-2)     kx = nx-2;\r
-               if(ky>ny-2)     ky = ny-2;\r
-               if(kz>nz-2)     kz = nz-2;\r
-\r
+       {\r
+               mreal b1[4]={0,0,0,0},  x1[4]={0,0,0,0},  y1[4]={0,0,0,0};\r
                long kk=1;\r
                if(kz==0)       {       kk=0;   }\r
                else if(nz>3 && kz==nz-2)       {       kk=2;   }\r
@@ -637,18 +934,32 @@ mreal mglSpline3(const mreal *a, long nx, long ny, long nz, mreal x, mreal y, mr
                        for(i=0,fx=1;i<4;i++)\r
                        {\r
                                for(j=0,fy=1;j<4;j++)\r
-                               {       b1[k] += fy*fx*_p[i][j];        fy *= y-ky;     }\r
+                               {\r
+                                       b1[k] += fy*fx*_p[i][j];\r
+                                       x1[k] += i*fy*fx*_p[i][j];\r
+                                       y1[k] += j*fy*fx*_p[i][j];\r
+                                       fy *= y-ky;\r
+                               }\r
                                fx *= x-kx;\r
                        }\r
                }\r
                mglFillP(kk, b1, nz>3 ? 4:3, _p[0]);\r
+               mglFillP(kk, x1, nz>3 ? 4:3, _p[1]);\r
+               mglFillP(kk, y1, nz>3 ? 4:3, _p[2]);\r
                for(i=0,fx=1,b=0;i<4;i++)\r
-               {       b += fx*_p[0][i];       fx *= z-kz;     }\r
+               {\r
+                       b += fx*_p[0][i];\r
+                       if(dd)\r
+                       {\r
+                               *dx += fx*_p[1][i];\r
+                               *dy += fx*_p[2][i];\r
+                               *dz += i*fx*_p[0][i];\r
+                       }\r
+                       fx *= z-kz;\r
+               }\r
        }\r
        else if(ny>1 && y!=ky)  // 2d interpolation\r
        {\r
-               if(kx>nx-2)     kx = nx-2;\r
-               if(ky>ny-2)     ky = ny-2;\r
                mglFillP(kx, ky, a+kz*nx*ny, nx, ny, _p);\r
                fx = 1; b = 0;\r
                for(i=0;i<4;i++)\r
@@ -670,7 +981,6 @@ mreal mglSpline3(const mreal *a, long nx, long ny, long nz, mreal x, mreal y, mr
        }\r
        else if(nx>1 && x!=kx)  // 1d interpolation\r
        {\r
-               if(kx>nx-2)     kx = nx-2;\r
                mglFillP(kx, a+(ky+ny*kz)*nx, nx, _p[0]);\r
                for(i=0,fx=1,b=0;i<4;i++)\r
                {\r
@@ -827,11 +1137,6 @@ void mglFillP(long x, const mreal *a,long nx,mreal _p[4])
        _p[3]=s[0]+s[1]+2*(f[0]-f[1]);\r
 }\r
 //-----------------------------------------------------------------------------\r
-mreal mgl_data_spline_(uintptr_t *d, mreal *x,mreal *y,mreal *z)\r
-{      return mgl_data_spline(_DA_(d),*x,*y,*z);       }\r
-mreal mgl_data_linear_(uintptr_t *d, mreal *x,mreal *y,mreal *z)\r
-{      return mgl_data_linear(_DA_(d),*x,*y,*z);       }\r
-//-----------------------------------------------------------------------------\r
 void mgl_data_crop(HMDT d, long n1, long n2, char dir)\r
 {\r
        long nx=d->nx,ny=d->ny,nz=d->nz, nn;\r
@@ -1329,6 +1634,7 @@ void *mgl_sew_x(void *par)
 }\r
 void mgl_data_sew(HMDT d, const char *dirs, mreal delta)\r
 {\r
+       if(!dirs || *dirs==0)   return;\r
        long nx=d->nx, ny=d->ny, nz=d->nz;\r
        long p[3]={nx,ny,nz};\r
        mreal da = delta;\r
@@ -1622,3 +1928,10 @@ mreal *mgl_data_value(HMDT dat, long i,long j,long k)
 {      register long ii=i*dat->nx*(j+dat->ny*k);\r
        return  ii>=0 && ii<dat->GetNN() ? dat->a+ii : 0;       }\r
 //-----------------------------------------------------------------------------\r
+long mgl_data_get_nx(HCDT dat) {       return dat->GetNx();    }\r
+long mgl_data_get_ny(HCDT dat) {       return dat->GetNy();    }\r
+long mgl_data_get_nz(HCDT dat) {       return dat->GetNz();    }\r
+long mgl_data_get_nx_(uintptr_t *d)    {       return _DA_(d)->GetNx();        }\r
+long mgl_data_get_ny_(uintptr_t *d)    {       return _DA_(d)->GetNy();        }\r
+long mgl_data_get_nz_(uintptr_t *d)    {       return _DA_(d)->GetNz();        }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/data_io.cpp b/src/data_io.cpp
index 2f87f5ecdbe321dd4ce24231897a6acca46f5815..976e7f7ea79ed5e97557a8846a3eba07e591ed8f 100644 (file)
--- a/src/data_io.cpp
+++ b/src/data_io.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data_io.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -27,6 +27,8 @@
 #include "mgl2/eval.h"\r
 \r
 #if MGL_HAVE_HDF5\r
+//#define H5_NO_DEPRECATED_SYMBOLS\r
+#define H5_USE_16_API\r
 #include <hdf5.h>\r
 #endif\r
 #if MGL_HAVE_HDF4\r
@@ -44,14 +46,14 @@ HMDT mgl_create_data_file(const char *fname)                {       return new mglData(fname);      }
 void mgl_delete_data(HMDT d)   {       if(d)   delete d;       }\r
 //-----------------------------------------------------------------------------\r
 uintptr_t mgl_create_data_()\r
-{      return uintptr_t(new mglData());        };\r
+{      return uintptr_t(new mglData());        }\r
 uintptr_t mgl_create_data_size_(int *nx, int *ny, int *nz)\r
-{      return uintptr_t(new mglData(*nx,*ny,*nz));     };\r
+{      return uintptr_t(new mglData(*nx,*ny,*nz));     }\r
 uintptr_t mgl_create_data_file_(const char *fname,int l)\r
 {      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
        uintptr_t r = uintptr_t(new mglData(s));        delete []s;     return r;       }\r
 void mgl_delete_data_(uintptr_t *d)\r
-{      if(_DT_)        delete _DT_;    };\r
+{      if(_DT_)        delete _DT_;    }\r
 //-----------------------------------------------------------------------------\r
 void mglFromStr(HMDT d,char *buf,long NX,long NY,long NZ)      // TODO: add multithreading read\r
 {\r
@@ -78,7 +80,7 @@ void mglFromStr(HMDT d,char *buf,long NX,long NY,long NZ)     // TODO: add multithre
                        while(buf[j]<=' ' && j<nb)      j++;\r
                }\r
                char *s=buf+j;\r
-               while(buf[j]>' ' && buf[j]!=',' && j<nb)        j++;\r
+               while(buf[j]>' ' && buf[j]!=',' && buf[j]!=';' && j<nb) j++;\r
                buf[j]=0;\r
                d->a[i] = atof(s);\r
                i++;    if(i>=NX*NY*NZ) break;\r
@@ -245,20 +247,20 @@ void mgl_data_save(HCDT d, const char *fname,long ns)
        register long i,j,k;\r
        long nx=d->GetNx(), ny=d->GetNy(), nz=d->GetNz();\r
        if(ns<0 || (ns>=nz && nz>1))    for(k=0;k<nz;k++)\r
-       {       // ñîõðàíÿåì âñå äàííûå\r
+       {       // save whole data\r
                for(i=0;i<ny;i++)\r
                {\r
-                       for(j=0;j<nx;j++)       fprintf(fp,"%g\t",d->v(j,i,k));\r
-                       fprintf(fp,"\n");\r
+                       for(j=0;j<nx-1;j++)     fprintf(fp,"%g\t",d->v(j,i,k));\r
+                       fprintf(fp,"%g\n",d->v(nx-1,i,k));\r
                }\r
                fprintf(fp,"\n");\r
        }\r
        else\r
-       {       // ñîõðàíÿåì òîëüêî ñðåç\r
+       {       // save selected slice\r
                if(nz>1)        for(i=0;i<ny;i++)\r
                {\r
-                       for(j=0;j<nx;j++)       fprintf(fp,"%g\t",d->v(j,i,ns));\r
-                       fprintf(fp,"\n");\r
+                       for(j=0;j<nx-1;j++)     fprintf(fp,"%g\t",d->v(j,i,ns));\r
+                       fprintf(fp,"%g\n",d->v(nx-1,i,ns));\r
                }\r
                else if(ns<ny)  for(j=0;j<nx;j++)\r
                        fprintf(fp,"%g\t",d->v(j,ns));\r
@@ -303,7 +305,7 @@ int mgl_data_read(HMDT d, const char *fname)
                while(buf[i]=='#')      {       while(!isn(buf[i]) && i<nb)     i++;    }\r
                ch = buf[i];\r
                if(ch>' ' && !first)    first=true;\r
-               if(first && (ch==' ' || ch=='\t' || ch==',') && buf[i+1]>' ') k++;\r
+               if(first && (ch==' ' || ch=='\t' || ch==',' || ch==';') && buf[i+1]>' ') k++;\r
        }\r
        first = false;\r
        for(i=0;i<nb-1;i++)                                     // determine ny\r
@@ -414,7 +416,7 @@ int mgl_data_read_mat(HMDT d, const char *fname, long dim)
                                while(b[i]=='#')        {       while(!isn(b[i]) && b[i])       i++;    }\r
                                ch = b[i];\r
                                if(ch>' ' && !first)    first=true;\r
-                               if(first && (ch==' ' || ch=='\t' || ch==',') && b[i+1]>' ') nx++;\r
+                               if(first && (ch==' ' || ch=='\t' || ch==',' || ch==';') && b[i+1]>' ') nx++;\r
                        }\r
                }\r
        }\r
@@ -637,7 +639,7 @@ void mgl_data_squeeze(HMDT d, long rx,long ry,long rz,long smooth)
                mreal s = 0;\r
                for(k1=k*rz;k1<k*rz+dz;k1++)    for(j1=j*ry;j1<j*ry+dz;j1++)    for(i1=i*rx;i1<i*rx+dx;i1++)\r
                        s += d->a[i1+nx*(j1+ny*k1)];\r
-               b[i+kx*(j+ky*k)] = s/dx*dy*dz;\r
+               b[i+kx*(j+ky*k)] = s/(dx*dy*dz);\r
        }\r
        if(!d->link)    delete [](d->a);\r
        d->a=b; d->nx = kx;  d->ny = ky;  d->nz = kz;   d->NewId();     d->link=false;\r
@@ -729,7 +731,7 @@ void mgl_data_transpose_(uintptr_t *d, const char *dim,int l)
 void *mgl_modify(void *par)\r
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
-       mglFormula *f = (mglFormula *)(t->v);\r
+       const mglFormula *f = (const mglFormula *)(t->v);\r
        register long i,j,k,i0, nx=t->p[0],ny=t->p[1],nz=t->p[2];\r
        mreal *b=t->a, dx,dy,dz;\r
        const mreal *v=t->b, *w=t->c;\r
@@ -761,18 +763,34 @@ void mgl_data_modify_(uintptr_t *d, const char *eq,int *dim,int l)
 {      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
        mgl_data_modify(_DT_,s,*dim);   delete []s;     }\r
 //-----------------------------------------------------------------------------\r
+void *mgl_modify_gen(void *par)\r
+{\r
+       mglThreadV *t=(mglThreadV *)par;\r
+       const mglFormula *f = (const mglFormula *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1],nz=t->p[2];\r
+       mreal *b=t->a, dx,dy,dz;\r
+       HCDT v=(HCDT)t->b, w=(HCDT)t->c;\r
+       dx=nx>1?1/(nx-1.):0;    dy=ny>1?1/(ny-1.):0;    dz=nz>1?1/(nz-1.):0;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(i*dx, j*dy, k*dz, b[i0], v?v->vthr(i0):0, w?w->vthr(i0):0);\r
+       }\r
+       return 0;\r
+}\r
 void mgl_data_modify_vw(HMDT d, const char *eq,HCDT vdat,HCDT wdat)\r
-{      // NOTE: only for mglData\r
+{\r
        const mglData *v = dynamic_cast<const mglData *>(vdat);\r
        const mglData *w = dynamic_cast<const mglData *>(wdat);\r
        long nn = d->nx*d->ny*d->nz, par[3]={d->nx,d->ny,d->nz};\r
+       if(vdat && vdat->GetNN()!=nn)   return;\r
+       if(wdat && wdat->GetNN()!=nn)   return;\r
        mglFormula f(eq);\r
-       if(v && w && v->nx*v->ny*v->nz==nn && w->nx*w->ny*w->nz==nn)\r
-               mglStartThread(mgl_modify,0,nn,d->a,v->a,w->a,par,&f);\r
-       else if(v && v->nx*v->ny*v->nz==nn)\r
-               mglStartThread(mgl_modify,0,nn,d->a,v->a,0,par,&f);\r
-       else\r
-               mglStartThread(mgl_modify,0,nn,d->a,0,0,par,&f);\r
+       if(v && w)      mglStartThread(mgl_modify,0,nn,d->a,v->a,w->a,par,&f);\r
+       else if(vdat && wdat)   mglStartThreadV(mgl_modify_gen,nn,d->a,vdat,wdat,par,&f);\r
+       else if(v)      mglStartThread(mgl_modify,0,nn,d->a,v->a,0,par,&f);\r
+       else if(vdat)   mglStartThreadV(mgl_modify_gen,nn,d->a,vdat,0,par,&f);\r
+       else    mglStartThread(mgl_modify,0,nn,d->a,0,0,par,&f);\r
 }\r
 void mgl_data_modify_vw_(uintptr_t *d, const char *eq, uintptr_t *v, uintptr_t *w,int l)\r
 {      char *s=new char[l+1];  memcpy(s,eq,l); s[l]=0;\r
@@ -781,7 +799,7 @@ void mgl_data_modify_vw_(uintptr_t *d, const char *eq, uintptr_t *v, uintptr_t *
 void *mgl_fill_f(void *par)\r
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
-       mglFormula *f = (mglFormula *)(t->v);\r
+       const mglFormula *f = (const mglFormula *)(t->v);\r
        register long i,j,k,i0, nx=t->p[0],ny=t->p[1];\r
        mreal *b=t->a;\r
        const mreal *v=t->b, *w=t->c, *x=t->d;\r
@@ -792,20 +810,39 @@ void *mgl_fill_f(void *par)
        }\r
        return 0;\r
 }\r
+void *mgl_fill_fgen(void *par)\r
+{\r
+       mglThreadD *t=(mglThreadD *)par;\r
+       const mglFormula *f = (const mglFormula *)(t->v);\r
+       register long i,j,k,i0, nx=t->p[0],ny=t->p[1];\r
+       mreal *b=t->a;\r
+       HCDT v=(HCDT)t->b, w=(HCDT)t->c;\r
+       const mreal *x=t->d;\r
+       for(i0=t->id;i0<t->n;i0+=mglNumThr)\r
+       {\r
+               i=i0%nx;        j=((i0/nx)%ny); k=i0/(nx*ny);\r
+               b[i0] = f->Calc(x[0]+i*x[1], x[2]+j*x[3], x[4]+k*x[5], b[i0], v?v->vthr(i0):0, w?w->vthr(i0):0);\r
+       }\r
+       return 0;\r
+}\r
 void mgl_data_fill_eq(HMGL gr, HMDT d, const char *eq, HCDT vdat, HCDT wdat, const char *opt)\r
-{      // NOTE: only for mglData\r
+{\r
        const mglData *v = dynamic_cast<const mglData *>(vdat);\r
        const mglData *w = dynamic_cast<const mglData *>(wdat);\r
        long nn = d->nx*d->ny*d->nz, par[3]={d->nx,d->ny,d->nz};\r
-       if(v && v->nx*v->ny*v->nz!=nn)  return;\r
-       if(w && w->nx*w->ny*w->nz!=nn)  return;\r
+       if(vdat && vdat->GetNN()!=nn)   return;\r
+       if(wdat && wdat->GetNN()!=nn)   return;\r
        gr->SaveState(opt);\r
        mreal xx[6]={gr->Min.x,0, gr->Min.y,0, gr->Min.z,0};\r
        if(d->nx>1)     xx[1] = (gr->Max.x-gr->Min.x)/(d->nx-1.);\r
        if(d->ny>1)     xx[3] = (gr->Max.y-gr->Min.y)/(d->ny-1.);\r
        if(d->nz>1)     xx[5] = (gr->Max.z-gr->Min.z)/(d->nz-1.);\r
        mglFormula f(eq);\r
-       mglStartThread(mgl_fill_f,0,nn,d->a,v?v->a:0,w?w->a:0,par,&f,xx);\r
+       if(v && w)      mglStartThread(mgl_fill_f,0,nn,d->a,v->a,w->a,par,&f,xx);\r
+       else if(vdat && wdat)   mglStartThreadV(mgl_fill_fgen,nn,d->a,vdat,wdat,par,&f,xx);\r
+       else if(v)      mglStartThread(mgl_fill_f,0,nn,d->a,v->a,0,par,&f,xx);\r
+       else if(vdat)   mglStartThreadV(mgl_fill_fgen,nn,d->a,vdat,0,par,&f,xx);\r
+       else    mglStartThread(mgl_fill_f,0,nn,d->a,0,0,par,&f,xx);\r
        gr->LoadState();\r
 }\r
 void mgl_data_fill_eq_(uintptr_t *gr, uintptr_t *d, const char *eq, uintptr_t *v, uintptr_t *w, const char *opt,int l,int lo)\r
@@ -814,10 +851,10 @@ void mgl_data_fill_eq_(uintptr_t *gr, uintptr_t *d, const char *eq, uintptr_t *v
        mgl_data_fill_eq(_GR_,_DT_,s,_DA_(v),_DA_(w),o);        delete []o;     delete []s;     }\r
 //-----------------------------------------------------------------------------\r
 #if MGL_HAVE_HDF4\r
-void mgl_data_read_hdf4(HMDT d,const char *fname,const char *data)\r
+int mgl_data_read_hdf4(HMDT d,const char *fname,const char *data)\r
 {\r
        int32 sd = SDstart(fname,DFACC_READ), nn, i;\r
-       if(sd==-1)      return; // is not a HDF4 file\r
+       if(sd==-1)      return false;   // is not a HDF4 file\r
        char name[64];\r
        SDfileinfo(sd,&nn,&i);\r
        for(i=0;i<nn;i++)\r
@@ -849,23 +886,22 @@ void mgl_data_read_hdf4(HMDT d,const char *fname,const char *data)
                SDendaccess(sds);\r
        }\r
        SDend(sd);\r
+       return true;\r
 }\r
 #else\r
-void mgl_data_read_hdf4(HMDT ,const char *,const char *){}\r
+int mgl_data_read_hdf4(HMDT ,const char *,const char *)\r
+{      mglGlobalMess += "HDF4 support was disabled. Please, enable it and rebuild MathGL.\n";  return false;   }\r
 #endif\r
 //-----------------------------------------------------------------------------\r
 #if MGL_HAVE_HDF5\r
 void mgl_data_save_hdf(HCDT dat,const char *fname,const char *data,int rewrite)\r
 {\r
        const mglData *d = dynamic_cast<const mglData *>(dat);  // NOTE: only for mglData\r
+       if(!d)  {       mglData d(dat); mgl_data_save_hdf(&d,fname,data,rewrite);       return; }\r
        hid_t hf,hd,hs;\r
        hsize_t dims[3];\r
        long rank = 3, res;\r
-#if MGL_HAVE_HDF5_18\r
-       H5Eset_auto(H5E_DEFAULT,0,0);\r
-#else\r
        H5Eset_auto(0,0);\r
-#endif\r
        res=H5Fis_hdf5(fname);\r
        if(res>0 && !rewrite)   hf = H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);\r
        else    hf = H5Fcreate(fname, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);\r
@@ -879,11 +915,7 @@ void mgl_data_save_hdf(HCDT dat,const char *fname,const char *data,int rewrite)
 #else\r
        hid_t mem_type_id = H5T_NATIVE_FLOAT;\r
 #endif\r
-#if MGL_HAVE_HDF5_18\r
-       hd = H5Dcreate(hf, data, mem_type_id, hs, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);\r
-#else\r
        hd = H5Dcreate(hf, data, mem_type_id, hs, H5P_DEFAULT);\r
-#endif\r
        H5Dwrite(hd, mem_type_id, hs, hs, H5P_DEFAULT, d->a);\r
        H5Dclose(hd);   H5Sclose(hs);   H5Fclose(hf);\r
 }\r
@@ -893,14 +925,10 @@ int mgl_data_read_hdf(HMDT d,const char *fname,const char *data)
        hid_t hf,hd,hs;\r
        hsize_t dims[3];\r
        long rank, res = H5Fis_hdf5(fname);\r
-       if(res<=0)      {       mgl_data_read_hdf4(d,fname,data);       return false;   }\r
+       if(res<=0)      return mgl_data_read_hdf4(d,fname,data);\r
        hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT);\r
        if(hf<0)        return false;\r
-#if MGL_HAVE_HDF5_18\r
-       hd = H5Dopen(hf,data,H5P_DEFAULT);\r
-#else\r
        hd = H5Dopen(hf,data);\r
-#endif\r
        if(hd<0)        return false;\r
        hs = H5Dget_space(hd);\r
        rank = H5Sget_simple_extent_ndims(hs);\r
@@ -927,24 +955,16 @@ int mgl_datas_hdf(const char *fname, char *buf, long size)
        buf[0]=0;\r
        hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT);\r
        if(!hf) return 0;\r
-#if MGL_HAVE_HDF5_18\r
-       hg = H5Gopen(hf,"/",H5P_DEFAULT);\r
-#else\r
        hg = H5Gopen(hf,"/");\r
-#endif\r
        hsize_t num, i;\r
        char name[256];\r
        long pos=0,len;\r
-       H5Gget_num_objs(hg, &num);\r
+       H5Gget_num_objs(hg, &num);      // replace by H5G_info_t t; H5Gget_info(hg,&t); num=t.nlinks;\r
        for(i=0;i<num;i++)\r
        {\r
                if(H5Gget_objtype_by_idx(hg, i)!=H5G_DATASET)   continue;\r
-               H5Gget_objname_by_idx(hg, i, name, 256);\r
-#if MGL_HAVE_HDF5_18\r
-               hd = H5Dopen(hf,name,H5P_DEFAULT);\r
-#else\r
+               H5Gget_objname_by_idx(hg, i, name, 256);        // replace by H5Lget_name_by_idx(hg,".",i,0,0,name,256,0) ?!\r
                hd = H5Dopen(hf,name);\r
-#endif\r
                ht = H5Dget_type(hd);\r
                len = strlen(name);             if(pos+len+2>size)      break;\r
                if(H5Tget_class(ht)==H5T_FLOAT || H5Tget_class(ht)==H5T_INTEGER)\r
@@ -955,9 +975,12 @@ int mgl_datas_hdf(const char *fname, char *buf, long size)
        return i;\r
 }\r
 #else\r
-void mgl_data_save_hdf(HCDT ,const char *,const char *,int ){}\r
-int mgl_datas_hdf(const char *, char *, long ){return 0;}\r
-int mgl_data_read_hdf(HMDT ,const char *,const char *){return false;}\r
+void mgl_data_save_hdf(HCDT ,const char *,const char *,int )\r
+{      mglGlobalMess += "HDF5 support was disabled. Please, enable it and rebuild MathGL.\n";  }\r
+int mgl_datas_hdf(const char *, char *, long )\r
+{      mglGlobalMess += "HDF5 support was disabled. Please, enable it and rebuild MathGL.\n";  return 0;}\r
+int mgl_data_read_hdf(HMDT ,const char *,const char *)\r
+{      mglGlobalMess += "HDF5 support was disabled. Please, enable it and rebuild MathGL.\n";  return false;}\r
 #endif\r
 //-----------------------------------------------------------------------------\r
 int mgl_data_read_hdf_(uintptr_t *d, const char *fname, const char *data,int l,int n)\r
@@ -1034,7 +1057,7 @@ int mgl_data_read_range(HMDT dat, const char *templ, double from, double to, dou
        delete []fname;         free(b);\r
        return true;\r
 }\r
-int mgl_data_read_range_(uintptr_t *d, const char *fname, double *from, double *to, double *step, int *as_slice,int l)\r
+int mgl_data_read_range_(uintptr_t *d, const char *fname, mreal *from, mreal *to, mreal *step, int *as_slice,int l)\r
 {      char *s=new char[l+1];          memcpy(s,fname,l);      s[l]=0;\r
        int r = mgl_data_read_range(_DT_,s,*from,*to,*step,*as_slice);  delete []s;     return r;       }\r
 //-----------------------------------------------------------------------------\r
@@ -1043,7 +1066,7 @@ int mgl_data_read_all(HMDT dat, const char *templ, int as_slice)
 #ifndef WIN32\r
        mglData d;\r
        glob_t res;\r
-       unsigned long i;\r
+       size_t i;\r
        mreal *b;\r
        long kx,ky,kz;\r
        char *fname = new char[256];\r

diff --git a/src/data_new.cpp b/src/data_new.cpp
index 74cc59aeef757101fdba33a3e044c198030d66bf..1d334926f69c19ea4fb8f95a66cd288a1a904c57 100644 (file)
--- a/src/data_new.cpp
+++ b/src/data_new.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data_new.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -193,7 +193,7 @@ uintptr_t mgl_data_subdata_ext_(uintptr_t *d, uintptr_t *xx, uintptr_t *yy, uint
 void *mgl_column(void *par)\r
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
-       mglFormula *f = (mglFormula *)t->v;\r
+       const mglFormula *f = (const mglFormula *)t->v;\r
        register long i,j, nx=t->p[0];\r
        mreal *b=t->a, var[MGL_VS];\r
        const mreal *a=t->b;\r
@@ -327,6 +327,7 @@ void *mgl_sum_x(void *par)
 }\r
 HMDT mgl_data_sum(HCDT dat, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return 0;\r
        long nx=dat->GetNx(),ny=dat->GetNy(),nz=dat->GetNz();\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nx*ny*nz];\r
@@ -397,6 +398,7 @@ void *mgl_max_x(void *par)
 }\r
 HMDT mgl_data_max_dir(HCDT dat, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return 0;\r
        long nx=dat->GetNx(),ny=dat->GetNy(),nz=dat->GetNz();\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nx*ny*nz];\r
@@ -436,7 +438,7 @@ void *mgl_min_z(void *par)
        mreal *b=t->a;\r
        const mreal *a=t->b;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
-               for(j=1,b[i]=a[i];j<nz;j++)     if(b[i]<a[i+nn*j]) b[i] = a[i+nn*j];\r
+               for(j=1,b[i]=a[i];j<nz;j++)     if(b[i]>a[i+nn*j]) b[i] = a[i+nn*j];\r
        return 0;\r
 }\r
 void *mgl_min_y(void *par)\r
@@ -448,7 +450,7 @@ void *mgl_min_y(void *par)
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                k = (i%nx)+nx*ny*(i/nx);\r
-               for(j=1,b[i]=a[k];j<ny;j++)     if(b[i]<a[k+nx*j])      b[i]=a[k+nx*j];\r
+               for(j=1,b[i]=a[k];j<ny;j++)     if(b[i]>a[k+nx*j])      b[i]=a[k+nx*j];\r
        }\r
        return 0;\r
 }\r
@@ -461,12 +463,13 @@ void *mgl_min_x(void *par)
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                k = i*nx;\r
-               for(j=1,b[i]=a[k];j<nx;j++)     if(b[i]<a[j+k]) b[i]=a[j+k];\r
+               for(j=1,b[i]=a[k];j<nx;j++)     if(b[i]>a[j+k]) b[i]=a[j+k];\r
        }\r
        return 0;\r
 }\r
 HMDT mgl_data_min_dir(HCDT dat, const char *dir)\r
 {\r
+       if(!dir || *dir==0)     return 0;\r
        long nx=dat->GetNx(),ny=dat->GetNy(),nz=dat->GetNz();\r
        long p[3]={nx,ny,nz};\r
        mreal *b = new mreal[nx*ny*nz];\r
@@ -506,7 +509,7 @@ void *mgl_mom_z(void *par)
        long nx=t->p[0], ny=t->p[1], nz=t->p[2], nn=t->n;\r
        mreal *b=t->a, i0,i1,x,y,z;\r
        const mreal *a=t->b;\r
-       const mglFormula *eq = (mglFormula *)t->v;\r
+       const mglFormula *eq = (const mglFormula *)t->v;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                i0 = i1 = 0;\r
@@ -528,7 +531,7 @@ void *mgl_mom_y(void *par)
        long nx=t->p[0], ny=t->p[1], nz=t->p[2], nn=t->n;\r
        mreal *b=t->a, i0,i1,x,y,z;\r
        const mreal *a=t->b;\r
-       const mglFormula *eq = (mglFormula *)t->v;\r
+       const mglFormula *eq = (const mglFormula *)t->v;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                i0 = i1 = 0;\r
@@ -550,7 +553,7 @@ void *mgl_mom_x(void *par)
        long nx=t->p[0], ny=t->p[1], nz=t->p[2], nn=t->n;\r
        mreal *b=t->a, i0,i1,x,y,z;\r
        const mreal *a=t->b;\r
-       const mglFormula *eq = (mglFormula *)t->v;\r
+       const mglFormula *eq = (const mglFormula *)t->v;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                i0 = i1 = 0;\r
@@ -596,25 +599,41 @@ void *mgl_eval(void *par)
        {\r
                x=ii?ii[i]:0;   y=jj?jj[i]:0;   z=kk?kk[i]:0;\r
                if(n1)  {       x*=nx-1;        y*=ny-1;        z*=nz-1;        }\r
-               b[i] = mglSpline3(a,nx,ny,nz, x,y,z);\r
+               b[i] = (x==x && y==y && z==z) ? mglSpline3(a,nx,ny,nz, x,y,z):NAN;\r
+       }\r
+       return 0;\r
+}\r
+void *mgl_eval_s(void *par)\r
+{\r
+       mglThreadD *t=(mglThreadD *)par;\r
+       register long i, nx=t->p[0], ny=t->p[1], nz=t->p[2], n1=t->p[3], nn=t->n;\r
+       const mreal *ii=t->c, *jj=t->d, *kk=t->e;\r
+       HCDT a = (HCDT)t->v;\r
+       mreal *b=t->a,x,y,z;\r
+       for(i=t->id;i<nn;i+=mglNumThr)\r
+       {\r
+               x=ii?ii[i]:0;   y=jj?jj[i]:0;   z=kk?kk[i]:0;\r
+               if(n1)  {       x*=nx-1;        y*=ny-1;        z*=nz-1;        }\r
+               b[i] = (x==x && y==y && z==z) ? mgl_data_linear(a, x,y,z):NAN;\r
        }\r
        return 0;\r
 }\r
 HMDT mgl_data_evaluate(HCDT dat, HCDT idat, HCDT jdat, HCDT kdat, int norm)\r
-{      // NOTE: only for mglData (for speeding up)\r
+{\r
        mglData *r=new mglData;\r
        const mglData *d=dynamic_cast<const mglData *>(dat);\r
        const mglData *i=dynamic_cast<const mglData *>(idat);\r
        const mglData *j=dynamic_cast<const mglData *>(jdat);\r
        const mglData *k=dynamic_cast<const mglData *>(kdat);\r
-       if(!d || !i)    return r;\r
+       if(!i)  return r;\r
 \r
-       long p[4]={i->nx,i->ny,i->nz,norm};\r
+       long p[4]={dat->GetNx(), dat->GetNy(), dat->GetNz(),norm};\r
        register long n=i->nx*i->ny*i->nz;\r
        if(j && j->nx*j->ny*j->nz!=n)   return r;\r
        if(k && k->nx*k->ny*k->nz!=n)   return r;\r
        r->Create(i->nx,i->ny,i->nz);\r
-       mglStartThread(mgl_eval,0,n,r->a,d->a,i->a,p,0,j?j->a:0,k?k->a:0);\r
+       if(d)   mglStartThread(mgl_eval,0,n,r->a,d->a,i->a,p,0,j?j->a:0,k?k->a:0);\r
+       else    mglStartThread(mgl_eval_s,0,n,r->a,0,i->a,p,dat,j?j->a:0,k?k->a:0);\r
        return r;\r
 }\r
 uintptr_t mgl_data_evaluate_(uintptr_t *d, uintptr_t *idat, uintptr_t *jdat, uintptr_t *kdat, int *norm)\r
@@ -623,19 +642,21 @@ uintptr_t mgl_data_evaluate_(uintptr_t *d, uintptr_t *idat, uintptr_t *jdat, uin
 void mgl_data_fourier(HMDT re, HMDT im, const char *dir)\r
 {\r
 #if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
        long nx = re->nx, ny = re->ny, nz = re->nz;\r
        if(nx*ny*nz != im->nx*im->ny*im->nz || !dir || dir[0]==0)       return;\r
        double *a = new double[2*nx*ny*nz];\r
        register long i,j;\r
-       gsl_fft_direction how = strchr(dir,'i')?backward:forward;\r
        for(i=0;i<nx*ny*nz;i++)\r
        {       a[2*i] = re->a[i];      a[2*i+1] = im->a[i];    }\r
        if(strchr(dir,'x') && nx>1)\r
        {\r
                gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(nx);\r
                gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(nx);\r
-               for(i=0;i<ny*nz;i++)\r
-                       gsl_fft_complex_transform(a+2*i*nx, 1, nx, wt, ws, how);\r
+               if(strchr(dir,'i'))\r
+                       for(i=0;i<ny*nz;i++)    gsl_fft_complex_inverse(a+2*i*nx, 1, nx, wt, ws);\r
+               else\r
+                       for(i=0;i<ny*nz;i++)    gsl_fft_complex_forward(a+2*i*nx, 1, nx, wt, ws);\r
                gsl_fft_complex_workspace_free(ws);\r
                gsl_fft_complex_wavetable_free(wt);\r
        }\r
@@ -643,8 +664,13 @@ void mgl_data_fourier(HMDT re, HMDT im, const char *dir)
        {\r
                gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(ny);\r
                gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(ny);\r
-               for(j=0;j<nz;j++)       for(i=0;i<nx;i++)\r
-                       gsl_fft_complex_transform(a+2*i+2*j*nx*ny, nx, ny, wt, ws, how);\r
+               if(strchr(dir,'i'))\r
+                       for(j=0;j<nz;j++)       for(i=0;i<nx;i++)\r
+                               gsl_fft_complex_inverse(a+2*i+2*j*nx*ny, nx, ny, wt, ws);\r
+               else\r
+                       for(j=0;j<nz;j++)       for(i=0;i<nx;i++)\r
+                               gsl_fft_complex_forward(a+2*i+2*j*nx*ny, nx, ny, wt, ws);\r
+\r
                gsl_fft_complex_workspace_free(ws);\r
                gsl_fft_complex_wavetable_free(wt);\r
        }\r
@@ -652,8 +678,10 @@ void mgl_data_fourier(HMDT re, HMDT im, const char *dir)
        {\r
                gsl_fft_complex_wavetable *wt = gsl_fft_complex_wavetable_alloc(nz);\r
                gsl_fft_complex_workspace *ws = gsl_fft_complex_workspace_alloc(nz);\r
-               for(i=0;i<ny*nx;i++)\r
-                       gsl_fft_complex_transform(a+2*i, nx*ny, nz, wt, ws, how);\r
+               if(strchr(dir,'i'))\r
+                       for(i=0;i<ny*nx;i++)    gsl_fft_complex_inverse(a+2*i, nx*ny, nz, wt, ws);\r
+               else\r
+                       for(i=0;i<ny*nx;i++)    gsl_fft_complex_forward(a+2*i, nx*ny, nz, wt, ws);\r
                gsl_fft_complex_workspace_free(ws);\r
                gsl_fft_complex_wavetable_free(wt);\r
        }\r
@@ -741,6 +769,7 @@ uintptr_t mgl_data_stfa_(uintptr_t *re, uintptr_t *im, int *dn, char *dir, int)
 //-----------------------------------------------------------------------------\r
 void mgl_data_fill_sample(HMDT d, const char *how)\r
 {\r
+       if(!how || *how==0)     return;\r
        bool xx = strchr(how,'x');\r
        register long i,n=d->nx;\r
        mreal *aa=d->a;\r
@@ -767,6 +796,7 @@ void mgl_data_fill_sample_(uintptr_t *d, const char *how,int l)
 void mgl_data_hankel(HMDT d, const char *dir)\r
 {\r
 #if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
        double *ai=0, *af=0, mm;\r
        gsl_dht *dht=0;\r
        register long i,j,k;\r
@@ -818,6 +848,7 @@ void mgl_data_hankel_(uintptr_t *d, const char *dir,int l)
 void mgl_data_cosfft(HMDT d, const char *dir)\r
 {\r
 #if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
        double *b = 0;\r
        gsl_fft_complex_wavetable *wt=0;\r
        gsl_fft_complex_workspace *ws=0;\r
@@ -876,6 +907,7 @@ void mgl_data_cosfft_(uintptr_t *d, const char *dir,int l)
 void mgl_data_sinfft(HMDT d, const char *dir)\r
 {\r
 #if MGL_HAVE_GSL\r
+       if(!dir || *dir==0)     return;\r
        double *b = 0;\r
        gsl_fft_complex_wavetable *wt=0;\r
        gsl_fft_complex_workspace *ws=0;\r
@@ -950,6 +982,7 @@ HMDT mgl_transform_a(HCDT am, HCDT ph, const char *tr)
 //-----------------------------------------------------------------------------\r
 HMDT mgl_transform(HCDT re, HCDT im, const char *tr)\r
 {\r
+       if(!tr || *tr==0)       return 0;\r
        long nx = re->GetNx(), ny = re->GetNy(), nz = re->GetNz();\r
        if(nx*ny*nz != im->GetNx()*im->GetNy()*im->GetNz() || !tr || tr[0]==0)\r
                return (new mglData);\r
@@ -974,9 +1007,9 @@ HMDT mgl_transform(HCDT re, HCDT im, const char *tr)
        else if(strchr(tr,'i')) // do Fourier only once for speeding up\r
        {\r
                char str[5] = "   i";\r
-               if(tr[0]=='f')  str[0]='x';\r
-               if(tr[1]=='f')  str[1]='y';\r
-               if(tr[2]=='f')  str[2]='z';\r
+               if(tr[0]=='i')  str[0]='x';\r
+               if(tr[1]=='i')  str[1]='y';\r
+               if(tr[2]=='i')  str[2]='z';\r
                mgl_data_fourier(&rr,&ii,str);\r
        }\r
        else if(strchr(tr,'s')) // do Fourier only once for speeding up\r
@@ -1165,9 +1198,9 @@ void *mgl_hist_1(void *par)
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
        register long i,k, nn=t->n, n = t->p[0];\r
-       mreal *b=new mreal[n], *v=(mreal *)t->v;\r
+       mreal *b=new mreal[n];\r
        memset(b,0,n*sizeof(mreal));\r
-       const mreal *a=t->b, *c=t->c;\r
+       const mreal *a=t->b, *c=t->c, *v=(const mreal *)t->v;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
                k = long(n*(a[i]-v[0])/(v[1]-v[0]));\r
@@ -1180,9 +1213,9 @@ void *mgl_hist_2(void *par)
        mglThreadD *t=(mglThreadD *)par;\r
        register long i,k, nn=t->n, n = t->p[0];\r
        long ns=t->p[1], nx=t->p[2], ny=t->p[3], nz=t->p[4];\r
-       mreal *b=new mreal[n], *v=(mreal *)t->v, f,w=1, x,y,z, d=1./ns;\r
+       mreal *b=new mreal[n], f,w=1, x,y,z, d=1./ns;\r
        memset(b,0,n*sizeof(mreal));\r
-       const mreal *a=t->b, *c=t->c;\r
+       const mreal *a=t->b, *c=t->c, *v=(const mreal *)t->v;\r
        bool sp = n>0;\r
        for(i=t->id;i<nn;i+=mglNumThr)\r
        {\r
@@ -1191,6 +1224,7 @@ void *mgl_hist_2(void *par)
                z = d*(i/(nx*ny*ns*ns));\r
                f = sp ? mglSpline3(a,nx,ny,nz,x,y,z) : mglLinear(a,nx,ny,nz,x,y,z);\r
                if(c)   w = sp ? mglSpline3(c,nx,ny,nz,x,y,z) : mglLinear(c,nx,ny,nz,x,y,z);\r
+               if(mgl_isnan(f) || mgl_isnan(w))        continue;\r
                k = long(n*(f-v[0])/(v[1]-v[0]));\r
                if(k>=0 && k<n) b[k] += w * d*d*d;\r
        }\r

diff --git a/src/data_png.cpp b/src/data_png.cpp
index d4351a7fe269bfd14d28867780c40dc18040ac82..5cb6153a3179eb225d2a97adce19f03048932ee7 100644 (file)
--- a/src/data_png.cpp
+++ b/src/data_png.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * data_png.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -107,6 +107,8 @@ void mgl_data_import(HMDT d, const char *fname, const char *scheme,mreal v1,mrea
        delete []c;\r
        png_destroy_read_struct(&png_ptr, &info_ptr,&end_info);\r
        fclose(fp);\r
+#else\r
+       mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";\r
 #endif\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -166,6 +168,8 @@ void mgl_data_export(HCDT dd, const char *fname, const char *scheme,mreal v1,mre
        png_write_end(png_ptr, info_ptr);\r
        png_destroy_write_struct(&png_ptr, &info_ptr);\r
        fclose(fp);     free(p);        free(d);\r
+#else\r
+       mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";\r
 #endif\r
 }\r
 //-----------------------------------------------------------------------------\r

diff --git a/src/def_font.cpp b/src/def_font.cpp
index a853dbe89ef8b52f30988e71db18836de7e40289..cfd080dd96689bc3bec6616c6bbd65c868b148df 100644 (file)
--- a/src/def_font.cpp
+++ b/src/def_font.cpp
@@ -1,1023 +1,1239 @@
-/***************************************************************************
- * mgl_def_font.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
- *                                                                         *
- *   This program is free software; you can redistribute it and/or modify  *
- *   it under the terms of the GNU Library General Public License as       *
- *   published by the Free Software Foundation; either version 3 of the    *
- *   License, or (at your option) any later version.                       *
- *                                                                         *
- *   This program is distributed in the hope that it will be useful,       *
- *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
- *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
- *   GNU General Public License for more details.                          *
- *                                                                         *
- *   You should have received a copy of the GNU Library General Public     *
- *   License along with this program; if not, write to the                 *
- *   Free Software Foundation, Inc.,                                       *
- *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
- ***************************************************************************/
-//# font STIXGeneral.otf has 516 glyphs
-unsigned mgl_numg=516, mgl_cur=246080;
-float mgl_fact=50;
-long mgl_gen_fnt[516][6] = {
-       {33, 232, 41, 0, 39, 62042},
-       {34, 285, 41, 82, 38, 62276},
-       {35, 350, 33, 164, 32, 62504},
-       {36, 350, 81, 230, 80, 62696},
-       {37, 522, 132, 392, 129, 63176},
-       {38, 544, 128, 656, 127, 63950},
-       {39, 125, 21, 912, 19, 64712},
-       {40, 232, 22, 954, 20, 64826},
-       {41, 232, 22, 998, 21, 64946},
-       {42, 350, 165, 1042, 169, 65072},
-       {43, 479, 12, 1372, 8, 66086},
-       {44, 175, 33, 1396, 34, 66134},
-       {45, 232, 4, 1462, 2, 66338},
-       {46, 175, 21, 1470, 18, 66350},
-       {47, 194, 4, 1512, 2, 66458},
-       {48, 350, 43, 1520, 41, 66470},
-       {49, 350, 28, 1606, 27, 66716},
-       {50, 350, 43, 1662, 41, 66878},
-       {51, 350, 92, 1748, 91, 67124},
-       {52, 350, 15, 1932, 12, 67670},
-       {53, 350, 74, 1962, 78, 67742},
-       {54, 350, 68, 2110, 66, 68210},
-       {55, 350, 13, 2246, 11, 68606},
-       {56, 350, 85, 2272, 83, 68672},
-       {57, 350, 68, 2442, 67, 69170},
-       {58, 194, 43, 2578, 36, 69572},
-       {59, 194, 55, 2664, 52, 69788},
-       {60, 479, 7, 2774, 5, 70100},
-       {61, 479, 9, 2788, 4, 70130},
-       {62, 479, 7, 2806, 5, 70154},
-       {63, 310, 79, 2820, 73, 70184},
-       {64, 644, 137, 2978, 138, 70622},
-       {65, 505, 48, 3252, 50, 71450},
-       {66, 467, 91, 3348, 90, 71750},
-       {67, 467, 72, 3530, 72, 72290},
-       {68, 505, 68, 3674, 70, 72722},
-       {69, 427, 56, 3810, 54, 73142},
-       {70, 389, 50, 3922, 47, 73466},
-       {71, 505, 87, 4022, 86, 73748},
-       {72, 505, 61, 4196, 57, 74264},
-       {73, 232, 29, 4318, 27, 74606},
-       {74, 260, 45, 4376, 43, 74768},
-       {75, 505, 72, 4466, 69, 75026},
-       {76, 427, 40, 4610, 39, 75440},
-       {77, 622, 49, 4690, 47, 75674},
-       {78, 505, 50, 4788, 50, 75956},
-       {79, 505, 63, 4888, 60, 76256},
-       {80, 389, 66, 5014, 69, 76616},
-       {81, 505, 85, 5146, 83, 77030},
-       {82, 467, 69, 5316, 69, 77528},
-       {83, 389, 92, 5454, 94, 77942},
-       {84, 427, 32, 5638, 30, 78506},
-       {85, 505, 70, 5702, 70, 78686},
-       {86, 505, 42, 5842, 41, 79106},
-       {87, 660, 76, 5926, 75, 79352},
-       {88, 505, 82, 6078, 80, 79802},
-       {89, 505, 55, 6242, 54, 80282},
-       {90, 428, 31, 6352, 30, 80606},
-       {91, 232, 18, 6414, 16, 80786},
-       {92, 194, 4, 6450, 2, 80882},
-       {93, 232, 18, 6458, 16, 80894},
-       {94, 328, 7, 6494, 5, 80990},
-       {95, 350, 4, 6508, 2, 81020},
-       {96, 232, 18, 6516, 16, 81032},
-       {97, 310, 115, 6552, 115, 81128},
-       {98, 350, 70, 6782, 71, 81818},
-       {99, 310, 62, 6922, 60, 82244},
-       {100, 350, 71, 7046, 79, 82604},
-       {101, 310, 55, 7188, 53, 83078},
-       {102, 232, 57, 7298, 53, 83396},
-       {103, 350, 146, 7412, 151, 83714},
-       {104, 350, 68, 7704, 67, 84620},
-       {105, 194, 47, 7840, 44, 85022},
-       {106, 194, 75, 7934, 71, 85286},
-       {107, 350, 75, 8084, 72, 85712},
-       {108, 194, 29, 8234, 30, 86144},
-       {109, 544, 107, 8292, 108, 86324},
-       {110, 350, 66, 8506, 69, 86972},
-       {111, 350, 53, 8638, 50, 87386},
-       {112, 350, 72, 8744, 72, 87686},
-       {113, 350, 68, 8888, 68, 88118},
-       {114, 232, 60, 9024, 61, 88526},
-       {115, 272, 83, 9144, 88, 88892},
-       {116, 194, 49, 9310, 49, 89420},
-       {117, 350, 58, 9408, 56, 89714},
-       {118, 350, 52, 9524, 53, 90050},
-       {119, 505, 79, 9628, 81, 90368},
-       {120, 350, 87, 9786, 91, 90854},
-       {121, 350, 78, 9960, 83, 91400},
-       {122, 310, 27, 10116, 25, 91898},
-       {123, 335, 56, 10170, 54, 92048},
-       {124, 139, 4, 10282, 2, 92372},
-       {125, 335, 56, 10290, 55, 92384},
-       {126, 378, 42, 10402, 40, 92714},
-       {161, 231, 41, 10486, 39, 92954},
-       {162, 350, 82, 10568, 84, 93188},
-       {163, 350, 140, 10732, 149, 93692},
-       {164, 350, 74, 11012, 72, 94586},
-       {165, 350, 72, 11160, 69, 95018},
-       {166, 139, 9, 11304, 4, 95432},
-       {167, 350, 155, 11322, 157, 95456},
-       {168, 232, 43, 11632, 36, 96398},
-       {169, 532, 93, 11718, 87, 96614},
-       {170, 192, 98, 11904, 104, 97136},
-       {171, 350, 72, 12100, 73, 97760},
-       {172, 420, 6, 12244, 4, 98198},
-       {173, 232, 4, 12256, 2, 98222},
-       {174, 532, 108, 12264, 106, 98234},
-       {175, 232, 4, 12480, 2, 98870},
-       {176, 279, 43, 12488, 43, 98882},
-       {177, 479, 17, 12574, 10, 99140},
-       {178, 210, 43, 12608, 41, 99200},
-       {179, 210, 75, 12694, 75, 99446},
-       {180, 232, 18, 12844, 16, 99896},
-       {181, 350, 69, 12880, 69, 99992},
-       {182, 414, 48, 13018, 47, 100406},
-       {183, 175, 21, 13114, 18, 100688},
-       {184, 232, 40, 13156, 43, 100796},
-       {185, 210, 25, 13236, 26, 101054},
-       {186, 217, 48, 13286, 45, 101210},
-       {187, 350, 71, 13382, 72, 101480},
-       {188, 525, 46, 13524, 40, 101912},
-       {189, 525, 76, 13616, 69, 102152},
-       {190, 525, 96, 13768, 89, 102566},
-       {191, 310, 88, 13960, 82, 103100},
-       {192, 505, 66, 14136, 66, 103592},
-       {193, 505, 66, 14268, 66, 103988},
-       {194, 505, 56, 14400, 55, 104384},
-       {195, 505, 92, 14512, 92, 104714},
-       {196, 505, 92, 14696, 86, 105266},
-       {197, 505, 92, 14880, 90, 105782},
-       {198, 622, 85, 15064, 85, 106322},
-       {199, 467, 109, 15234, 116, 106832},
-       {200, 427, 75, 15452, 70, 107528},
-       {201, 427, 75, 15602, 70, 107948},
-       {202, 427, 64, 15752, 59, 108368},
-       {203, 427, 100, 15880, 90, 108722},
-       {204, 232, 48, 16080, 43, 109262},
-       {205, 232, 48, 16176, 43, 109520},
-       {206, 232, 36, 16272, 31, 109778},
-       {207, 232, 72, 16344, 62, 109964},
-       {208, 505, 69, 16488, 69, 110336},
-       {209, 505, 93, 16626, 92, 110750},
-       {210, 505, 82, 16812, 76, 111302},
-       {211, 505, 82, 16976, 76, 111758},
-       {212, 505, 71, 17140, 65, 112214},
-       {213, 505, 106, 17282, 102, 112604},
-       {214, 505, 107, 17494, 96, 113216},
-       {215, 447, 12, 17708, 10, 113792},
-       {216, 505, 79, 17732, 80, 113852},
-       {217, 505, 89, 17890, 86, 114332},
-       {218, 505, 90, 18068, 86, 114848},
-       {219, 505, 78, 18248, 75, 115364},
-       {220, 505, 114, 18404, 106, 115814},
-       {221, 505, 74, 18632, 70, 116450},
-       {222, 389, 70, 18780, 75, 116870},
-       {223, 350, 98, 18920, 98, 117320},
-       {224, 310, 134, 19116, 131, 117908},
-       {225, 310, 134, 19384, 131, 118694},
-       {226, 310, 123, 19652, 120, 119480},
-       {227, 310, 159, 19898, 157, 120200},
-       {228, 310, 159, 20216, 151, 121142},
-       {229, 310, 159, 20534, 155, 122048},
-       {230, 467, 127, 20852, 131, 122978},
-       {231, 310, 96, 21106, 99, 123764},
-       {232, 310, 74, 21298, 69, 124358},
-       {233, 310, 74, 21446, 69, 124772},
-       {234, 310, 63, 21594, 58, 125186},
-       {235, 310, 99, 21720, 89, 125534},
-       {236, 194, 44, 21918, 42, 126068},
-       {237, 194, 45, 22006, 42, 126320},
-       {238, 194, 34, 22096, 31, 126572},
-       {239, 194, 70, 22164, 62, 126758},
-       {240, 350, 74, 22304, 72, 127130},
-       {241, 350, 109, 22452, 113, 127562},
-       {242, 350, 72, 22670, 66, 128240},
-       {243, 350, 72, 22814, 66, 128636},
-       {244, 350, 61, 22958, 55, 129032},
-       {245, 350, 95, 23080, 92, 129362},
-       {246, 350, 97, 23270, 86, 129914},
-       {247, 394, 48, 23464, 38, 130430},
-       {248, 350, 73, 23560, 76, 130658},
-       {249, 350, 77, 23706, 72, 131114},
-       {250, 350, 77, 23860, 72, 131546},
-       {251, 350, 66, 24014, 61, 131978},
-       {252, 350, 102, 24146, 92, 132344},
-       {253, 350, 96, 24350, 99, 132896},
-       {254, 350, 73, 24542, 72, 133490},
-       {255, 350, 122, 24688, 119, 133922},
-       {768, 0, 18, 24932, 16, 134636},
-       {769, 0, 18, 24968, 16, 134732},
-       {770, 0, 7, 25004, 5, 134828},
-       {771, 0, 41, 25018, 40, 134858},
-       {772, 0, 4, 25100, 2, 135098},
-       {773, 0, 4, 25108, 2, 135110},
-       {774, 0, 22, 25116, 20, 135122},
-       {775, 0, 21, 25160, 18, 135242},
-       {776, 0, 43, 25202, 36, 135350},
-       {777, 0, 44, 25288, 43, 135566},
-       {778, 0, 43, 25376, 40, 135824},
-       {779, 0, 37, 25462, 32, 136064},
-       {780, 0, 7, 25536, 5, 136256},
-       {781, 0, 4, 25550, 2, 136286},
-       {782, 0, 9, 25558, 4, 136298},
-       {783, 0, 37, 25576, 32, 136322},
-       {784, 0, 44, 25650, 38, 136514},
-       {785, 0, 22, 25738, 20, 136742},
-       {786, 0, 35, 25782, 34, 136862},
-       {787, 0, 33, 25852, 34, 137066},
-       {788, 0, 34, 25918, 34, 137270},
-       {789, 0, 33, 25986, 34, 137474},
-       {790, 0, 18, 26052, 16, 137678},
-       {791, 0, 18, 26088, 16, 137774},
-       {792, 0, 8, 26124, 6, 137870},
-       {793, 0, 8, 26140, 4, 137906},
-       {794, 0, 6, 26156, 4, 137930},
-       {795, 0, 30, 26168, 29, 137954},
-       {796, 0, 26, 26228, 24, 138128},
-       {797, 0, 8, 26280, 6, 138272},
-       {798, 0, 8, 26296, 6, 138308},
-       {799, 0, 12, 26312, 8, 138344},
-       {800, 0, 4, 26336, 2, 138392},
-       {801, 0, 34, 26344, 33, 138404},
-       {802, 0, 34, 26412, 31, 138602},
-       {803, 0, 21, 26480, 18, 138788},
-       {804, 0, 43, 26522, 36, 138896},
-       {805, 0, 44, 26608, 40, 139112},
-       {806, 0, 33, 26696, 34, 139352},
-       {807, 0, 40, 26762, 43, 139556},
-       {808, 0, 33, 26842, 31, 139814},
-       {809, 0, 4, 26908, 2, 140000},
-       {810, 0, 8, 26916, 6, 140012},
-       {811, 0, 49, 26932, 47, 140048},
-       {812, 0, 7, 27030, 5, 140330},
-       {813, 0, 7, 27044, 5, 140360},
-       {814, 0, 22, 27058, 20, 140390},
-       {815, 0, 22, 27102, 20, 140510},
-       {816, 0, 40, 27146, 40, 140630},
-       {817, 0, 4, 27226, 2, 140870},
-       {818, 0, 4, 27234, 2, 140882},
-       {819, 0, 9, 27242, 4, 140894},
-       {820, 0, 39, 27260, 40, 140918},
-       {821, 0, 4, 27338, 2, 141158},
-       {822, 0, 4, 27346, 2, 141170},
-       {823, 0, 4, 27354, 2, 141182},
-       {824, 0, 4, 27362, 2, 141194},
-       {825, 0, 26, 27370, 25, 141206},
-       {826, 0, 8, 27422, 6, 141356},
-       {827, 0, 9, 27438, 8, 141392},
-       {828, 0, 42, 27456, 41, 141440},
-       {829, 0, 12, 27540, 10, 141686},
-       {830, 0, 39, 27564, 40, 141746},
-       {831, 0, 9, 27642, 4, 141986},
-       {838, 0, 8, 27660, 6, 142010},
-       {844, 0, 86, 27676, 84, 142046},
-       {857, 0, 129, 27848, 133, 142550},
-       {860, 0, 22, 28106, 20, 143348},
-       {864, 0, 44, 28150, 50, 143468},
-       {865, 0, 22, 28238, 20, 143768},
-       {866, 0, 33, 28282, 36, 143888},
-       {894, 194, 55, 28348, 52, 144104},
-       {900, 193, 16, 28458, 16, 144416},
-       {901, 232, 60, 28490, 52, 144512},
-       {902, 505, 63, 28610, 62, 144824},
-       {903, 194, 21, 28736, 18, 145196},
-       {904, 525, 75, 28778, 68, 145304},
-       {905, 595, 79, 28928, 73, 145712},
-       {906, 328, 47, 29086, 42, 146150},
-       {908, 505, 82, 29180, 76, 146402},
-       {910, 588, 76, 29344, 72, 146858},
-       {911, 521, 82, 29496, 78, 147290},
-       {912, 238, 98, 29660, 91, 147758},
-       {913, 505, 45, 29856, 46, 148304},
-       {914, 467, 71, 29946, 70, 148580},
-       {915, 410, 34, 30088, 33, 149000},
-       {916, 505, 8, 30156, 7, 149198},
-       {917, 427, 55, 30172, 52, 149240},
-       {918, 428, 31, 30282, 30, 149552},
-       {919, 505, 61, 30344, 57, 149732},
-       {920, 505, 105, 30466, 104, 150074},
-       {921, 232, 29, 30676, 27, 150698},
-       {922, 511, 72, 30734, 69, 150860},
-       {923, 491, 41, 30878, 40, 151274},
-       {924, 622, 49, 30960, 47, 151514},
-       {925, 505, 50, 31058, 50, 151796},
-       {926, 450, 62, 31158, 54, 152096},
-       {927, 505, 63, 31282, 60, 152420},
-       {928, 505, 55, 31408, 53, 152780},
-       {929, 389, 66, 31518, 69, 153098},
-       {931, 436, 24, 31650, 22, 153512},
-       {932, 427, 32, 31698, 30, 153644},
-       {933, 505, 57, 31762, 56, 153824},
-       {934, 534, 76, 31876, 77, 154160},
-       {935, 505, 82, 32028, 80, 154622},
-       {936, 521, 83, 32192, 81, 155102},
-       {937, 521, 63, 32358, 62, 155588},
-       {938, 232, 73, 32484, 63, 155960},
-       {939, 505, 101, 32630, 92, 156338},
-       {940, 380, 84, 32832, 80, 156890},
-       {941, 307, 109, 33000, 110, 157370},
-       {942, 358, 76, 33218, 72, 158030},
-       {943, 192, 54, 33370, 54, 158462},
-       {944, 367, 122, 33478, 110, 158786},
-       {945, 380, 66, 33722, 64, 159446},
-       {946, 346, 101, 33854, 99, 159830},
-       {947, 332, 46, 34056, 48, 160424},
-       {948, 350, 83, 34148, 82, 160712},
-       {949, 307, 93, 34314, 94, 161204},
-       {950, 308, 100, 34500, 101, 161768},
-       {951, 358, 58, 34700, 56, 162374},
-       {952, 346, 57, 34816, 56, 162710},
-       {953, 192, 36, 34930, 38, 163046},
-       {954, 350, 63, 35002, 66, 163274},
-       {955, 347, 48, 35128, 47, 163670},
-       {956, 369, 64, 35224, 63, 163952},
-       {957, 318, 34, 35352, 35, 164330},
-       {958, 308, 137, 35420, 141, 164540},
-       {959, 353, 43, 35694, 41, 165386},
-       {960, 350, 69, 35780, 69, 165632},
-       {961, 346, 54, 35918, 53, 166046},
-       {962, 308, 79, 36026, 79, 166364},
-       {963, 383, 45, 36184, 43, 166838},
-       {964, 333, 46, 36274, 44, 167096},
-       {965, 367, 60, 36366, 58, 167360},
-       {966, 435, 71, 36486, 72, 167708},
-       {967, 350, 52, 36628, 51, 168140},
-       {968, 485, 57, 36732, 55, 168446},
-       {969, 437, 90, 36846, 92, 168776},
-       {970, 238, 80, 37026, 74, 169328},
-       {971, 367, 104, 37186, 94, 169772},
-       {972, 353, 61, 37394, 57, 170336},
-       {973, 367, 78, 37516, 74, 170678},
-       {974, 437, 108, 37672, 108, 171122},
-       {976, 314, 93, 37888, 95, 171770},
-       {977, 387, 95, 38074, 99, 172340},
-       {978, 505, 72, 38264, 70, 172934},
-       {981, 435, 63, 38408, 64, 173354},
-       {982, 533, 97, 38534, 96, 173738},
-       {984, 505, 77, 38728, 75, 174314},
-       {985, 350, 55, 38882, 53, 174764},
-       {986, 467, 71, 38992, 69, 175082},
-       {987, 322, 79, 39134, 81, 175496},
-       {988, 389, 38, 39292, 35, 175982},
-       {989, 328, 10, 39368, 6, 176192},
-       {990, 492, 69, 39388, 68, 176228},
-       {991, 357, 8, 39526, 6, 176636},
-       {992, 560, 56, 39542, 54, 176672},
-       {993, 369, 45, 39654, 46, 176996},
-       {1008, 385, 75, 39744, 76, 177272},
-       {1009, 350, 64, 39894, 62, 177728},
-       {1012, 505, 65, 40022, 64, 178100},
-       {1013, 307, 51, 40152, 50, 178484},
-       {1014, 310, 52, 40254, 50, 178784},
-       {8450, 493, 61, 40358, 59, 179084},
-       {8453, 585, 121, 40480, 112, 179438},
-       {8455, 418, 109, 40722, 108, 180110},
-       {8460, 576, 131, 40940, 129, 180758},
-       {8461, 502, 22, 41202, 20, 181532},
-       {8462, 403, 81, 41246, 87, 181652},
-       {8463, 405, 94, 41408, 100, 182174},
-       {8465, 533, 131, 41596, 125, 182774},
-       {8469, 488, 20, 41858, 18, 183524},
-       {8470, 708, 116, 41898, 111, 183632},
-       {8471, 532, 109, 42130, 110, 184298},
-       {8472, 578, 148, 42348, 146, 184958},
-       {8473, 474, 43, 42644, 47, 185834},
-       {8474, 535, 116, 42730, 127, 186116},
-       {8476, 611, 131, 42962, 136, 186878},
-       {8477, 522, 55, 43224, 64, 187694},
-       {8478, 546, 76, 43334, 84, 188078},
-       {8482, 685, 85, 43486, 82, 188582},
-       {8484, 508, 15, 43656, 14, 189074},
-       {8485, 296, 64, 43686, 62, 189158},
-       {8486, 521, 62, 43814, 60, 189530},
-       {8487, 521, 62, 43938, 60, 189890},
-       {8488, 507, 107, 44062, 105, 190250},
-       {8489, 252, 23, 44276, 22, 190880},
-       {8491, 505, 89, 44322, 91, 191012},
-       {8493, 501, 104, 44500, 100, 191558},
-       {8494, 589, 68, 44708, 69, 192158},
-       {8498, 374, 10, 44844, 8, 192572},
-       {8501, 477, 119, 44864, 126, 192620},
-       {8502, 447, 69, 45102, 73, 193376},
-       {8503, 353, 82, 45240, 82, 193814},
-       {8504, 419, 77, 45404, 80, 194306},
-       {8508, 471, 49, 45558, 53, 194786},
-       {8509, 378, 98, 45656, 108, 195104},
-       {8510, 328, 11, 45852, 10, 195752},
-       {8511, 502, 18, 45874, 18, 195812},
-       {8512, 646, 19, 45910, 18, 195920},
-       {8513, 486, 47, 45948, 46, 196028},
-       {8514, 391, 6, 46042, 4, 196304},
-       {8515, 391, 6, 46054, 4, 196328},
-       {8516, 440, 9, 46066, 7, 196352},
-       {8517, 505, 45, 46084, 46, 196394},
-       {8518, 401, 65, 46174, 67, 196670},
-       {8519, 366, 67, 46304, 69, 197072},
-       {8520, 180, 19, 46438, 16, 197486},
-       {8521, 213, 40, 46476, 40, 197582},
-       {8522, 464, 40, 46556, 36, 197822},
-       {8523, 544, 129, 46636, 129, 198038},
-       {8531, 525, 107, 46894, 104, 198812},
-       {8532, 525, 124, 47108, 119, 199436},
-       {8533, 525, 99, 47356, 102, 200150},
-       {8534, 525, 114, 47554, 117, 200762},
-       {8535, 525, 146, 47782, 151, 201464},
-       {8536, 525, 86, 48074, 88, 202370},
-       {8537, 525, 86, 48246, 80, 202898},
-       {8538, 525, 127, 48418, 127, 203378},
-       {8539, 525, 118, 48672, 114, 204140},
-       {8540, 525, 166, 48908, 160, 204824},
-       {8541, 525, 159, 49240, 158, 205784},
-       {8542, 525, 103, 49558, 96, 206732},
-       {8592, 648, 41, 49764, 44, 207308},
-       {8593, 357, 40, 49846, 44, 207572},
-       {8594, 648, 41, 49926, 44, 207836},
-       {8595, 357, 43, 50008, 44, 208100},
-       {8596, 648, 78, 50094, 86, 208364},
-       {8597, 357, 84, 50250, 87, 208880},
-       {8598, 648, 53, 50418, 68, 209402},
-       {8599, 648, 48, 50524, 65, 209810},
-       {8600, 648, 50, 50620, 64, 210200},
-       {8601, 648, 56, 50720, 66, 210584},
-       {8602, 648, 48, 50832, 52, 210980},
-       {8603, 648, 51, 50928, 52, 211292},
-       {8604, 648, 69, 51030, 72, 211604},
-       {8605, 648, 70, 51168, 74, 212036},
-       {8606, 648, 83, 51308, 88, 212480},
-       {8607, 357, 80, 51474, 88, 213008},
-       {8608, 648, 86, 51634, 89, 213536},
-       {8609, 357, 80, 51806, 86, 214070},
-       {8610, 648, 70, 51966, 75, 214586},
-       {8611, 648, 71, 52106, 75, 215036},
-       {8612, 648, 43, 52248, 48, 215486},
-       {8613, 357, 44, 52334, 48, 215774},
-       {8614, 648, 42, 52422, 46, 216062},
-       {8615, 357, 47, 52506, 48, 216338},
-       {8616, 357, 82, 52600, 90, 216626},
-       {8617, 648, 63, 52764, 67, 217166},
-       {8618, 648, 63, 52890, 66, 217568},
-       {8619, 648, 78, 53016, 81, 217964},
-       {8620, 648, 78, 53172, 82, 218450},
-       {8621, 839, 123, 53328, 128, 218942},
-       {8622, 648, 85, 53574, 94, 219710},
-       {8623, 357, 50, 53744, 61, 220274},
-       {8624, 324, 46, 53844, 46, 220640},
-       {8625, 324, 46, 53936, 47, 220916},
-       {8626, 324, 46, 54028, 46, 221198},
-       {8627, 324, 45, 54120, 47, 221474},
-       {8628, 648, 43, 54210, 46, 221756},
-       {8629, 648, 40, 54296, 47, 222032},
-       {8630, 648, 59, 54376, 62, 222314},
-       {8631, 648, 61, 54494, 62, 222686},
-       {8632, 648, 57, 54616, 66, 223058},
-       {8633, 648, 93, 54730, 95, 223454},
-       {8634, 682, 92, 54916, 98, 224024},
-       {8635, 682, 89, 55100, 98, 224612},
-       {8636, 668, 20, 55278, 19, 225200},
-       {8637, 668, 20, 55318, 18, 225314},
-       {8638, 357, 23, 55358, 23, 225422},
-       {8639, 357, 23, 55404, 23, 225560},
-       {8640, 668, 20, 55450, 18, 225698},
-       {8641, 668, 20, 55490, 18, 225806},
-       {8642, 357, 23, 55530, 23, 225914},
-       {8643, 357, 23, 55576, 23, 226052},
-       {8644, 648, 85, 55622, 89, 226190},
-       {8645, 541, 84, 55792, 88, 226724},
-       {8646, 648, 79, 55960, 88, 227252},
-       {8647, 648, 82, 56118, 88, 227780},
-       {8648, 541, 82, 56282, 88, 228308},
-       {8649, 648, 82, 56446, 88, 228836},
-       {8650, 541, 78, 56610, 88, 229364},
-       {8651, 648, 46, 56766, 46, 229892},
-       {8652, 648, 48, 56858, 46, 230168},
-       {8653, 648, 68, 56954, 71, 230444},
-       {8654, 648, 101, 57090, 104, 230870},
-       {8655, 648, 69, 57292, 71, 231494},
-       {8656, 648, 55, 57430, 57, 231920},
-       {8657, 479, 57, 57540, 57, 232262},
-       {8658, 648, 56, 57654, 57, 232604},
-       {8659, 479, 55, 57766, 57, 232946},
-       {8660, 648, 88, 57876, 90, 233288},
-       {8661, 479, 107, 58052, 110, 233828},
-       {8662, 648, 61, 58266, 72, 234488},
-       {8663, 648, 60, 58388, 72, 234920},
-       {8664, 648, 60, 58508, 72, 235352},
-       {8665, 648, 61, 58628, 72, 235784},
-       {8666, 648, 61, 58750, 63, 236216},
-       {8667, 648, 59, 58872, 62, 236594},
-       {8668, 648, 52, 58990, 54, 236966},
-       {8669, 648, 54, 59094, 54, 237290},
-       {8670, 357, 56, 59202, 56, 237614},
-       {8671, 357, 57, 59314, 56, 237950},
-       {8672, 648, 57, 59428, 50, 238286},
-       {8673, 357, 55, 59542, 50, 238586},
-       {8674, 648, 59, 59652, 50, 238886},
-       {8675, 357, 57, 59770, 50, 239186},
-       {8676, 648, 48, 59884, 47, 239486},
-       {8677, 648, 45, 59980, 48, 239768},
-       {8678, 648, 35, 60070, 35, 240056},
-       {8679, 479, 36, 60140, 36, 240266},
-       {8680, 648, 35, 60212, 35, 240482},
-       {8681, 479, 36, 60282, 35, 240692},
-       {8682, 479, 46, 60354, 44, 240902},
-       {8692, 648, 87, 60446, 93, 241166},
-       {8693, 541, 84, 60620, 88, 241724},
-       {8694, 648, 119, 60788, 124, 242252},
-       {8695, 648, 48, 61026, 50, 242996},
-       {8696, 648, 50, 61122, 50, 243296},
-       {8697, 648, 86, 61222, 92, 243596},
-       {8698, 648, 56, 61394, 56, 244148},
-       {8699, 648, 59, 61506, 56, 244484},
-       {8700, 648, 93, 61624, 98, 244820},
-       {8701, 648, 30, 61810, 28, 245408},
-       {8702, 648, 30, 61870, 29, 245576},
-       {8703, 648, 56, 61930, 55, 245750}
+unsigned mgl_numg=411, mgl_cur=243136;
+float mgl_fact=35.7143;
+long mgl_gen_fnt[411][6] = {
+       {0x21,166,41,0,39,164},
+       {0x22,204,43,398,38,570},
+       {0x23,250,33,798,32,930},
+       {0x24,250,81,1122,80,1446},
+       {0x25,373,130,1926,129,2446},
+       {0x26,388,128,3220,127,3732},
+       {0x27,89,20,4494,19,4574},
+       {0x28,166,22,4688,20,4776},
+       {0x29,166,22,4896,21,4984},
+       {0x2a,250,154,5110,169,5726},
+       {0x2b,342,12,6740,8,6788},
+       {0x2c,125,34,6836,34,6972},
+       {0x2d,166,4,7176,2,7192},
+       {0x2e,125,21,7204,18,7288},
+       {0x2f,138,4,7396,2,7412},
+       {0x30,250,43,7424,41,7596},
+       {0x31,250,28,7842,27,7954},
+       {0x32,250,43,8116,41,8288},
+       {0x33,250,91,8534,90,8898},
+       {0x34,250,15,9438,12,9498},
+       {0x35,250,72,9570,77,9858},
+       {0x36,250,68,10320,66,10592},
+       {0x37,250,13,10988,11,11040},
+       {0x38,250,85,11106,83,11446},
+       {0x39,250,68,11944,67,12216},
+       {0x3a,138,43,12618,36,12790},
+       {0x3b,138,57,13006,52,13234},
+       {0x3c,342,7,13546,5,13574},
+       {0x3d,342,9,13604,4,13640},
+       {0x3e,342,7,13664,5,13692},
+       {0x3f,222,77,13722,73,14030},
+       {0x40,460,136,14468,136,15012},
+       {0x41,361,47,15828,50,16016},
+       {0x42,333,90,16316,90,16676},
+       {0x43,333,72,17216,72,17504},
+       {0x44,361,67,17936,68,18204},
+       {0x45,305,57,18612,54,18840},
+       {0x46,277,51,19164,47,19368},
+       {0x47,361,88,19650,86,20002},
+       {0x48,361,60,20518,56,20758},
+       {0x49,166,27,21094,26,21202},
+       {0x4a,186,45,21358,43,21538},
+       {0x4b,361,70,21796,69,22076},
+       {0x4c,305,37,22490,39,22638},
+       {0x4d,444,49,22872,47,23068},
+       {0x4e,361,47,23350,50,23538},
+       {0x4f,361,63,23838,60,24090},
+       {0x50,278,66,24450,69,24714},
+       {0x51,361,85,25128,83,25468},
+       {0x52,333,69,25966,69,26242},
+       {0x53,277,91,26656,94,27020},
+       {0x54,305,32,27584,30,27712},
+       {0x55,361,68,27892,68,28164},
+       {0x56,361,42,28572,41,28740},
+       {0x57,472,72,28986,75,29274},
+       {0x58,361,82,29724,80,30052},
+       {0x59,361,55,30532,54,30752},
+       {0x5a,305,32,31076,30,31204},
+       {0x5b,166,18,31384,16,31456},
+       {0x5c,138,4,31552,2,31568},
+       {0x5d,166,17,31580,16,31648},
+       {0x5e,234,7,31744,5,31772},
+       {0x5f,250,4,31802,2,31818},
+       {0x60,166,17,31830,16,31898},
+       {0x61,222,112,31994,115,32442},
+       {0x62,250,70,33132,71,33412},
+       {0x63,222,62,33838,60,34086},
+       {0x64,250,72,34446,79,34734},
+       {0x65,222,53,35208,53,35420},
+       {0x66,166,57,35738,53,35966},
+       {0x67,250,139,36284,149,36840},
+       {0x68,250,60,37734,67,37974},
+       {0x69,138,45,38376,44,38556},
+       {0x6a,138,71,38820,71,39104},
+       {0x6b,250,69,39530,72,39806},
+       {0x6c,138,30,40238,30,40358},
+       {0x6d,388,102,40538,108,40946},
+       {0x6e,250,66,41594,67,41858},
+       {0x6f,250,53,42260,50,42472},
+       {0x70,250,68,42772,72,43044},
+       {0x71,250,64,43476,68,43732},
+       {0x72,166,61,44140,61,44384},
+       {0x73,194,79,44750,86,45066},
+       {0x74,138,47,45582,49,45770},
+       {0x75,250,54,46064,56,46280},
+       {0x76,250,54,46616,53,46832},
+       {0x77,361,72,47150,81,47438},
+       {0x78,250,83,47924,89,48256},
+       {0x79,250,74,48790,79,49086},
+       {0x7a,222,27,49560,25,49668},
+       {0x7b,239,55,49818,54,50038},
+       {0x7c,99,4,50362,2,50378},
+       {0x7d,239,55,50390,55,50610},
+       {0x7e,270,41,50940,40,51104},
+       {0xa1,165,41,51344,39,51508},
+       {0xa2,250,81,51742,84,52066},
+       {0xa3,250,135,52570,148,53110},
+       {0xa4,250,73,53998,72,54290},
+       {0xa5,250,71,54722,69,55006},
+       {0xa6,99,9,55420,4,55456},
+       {0xa7,250,152,55480,156,56088},
+       {0xa8,166,43,57024,36,57196},
+       {0xa9,380,92,57412,87,57780},
+       {0xaa,137,95,58302,103,58682},
+       {0xab,250,69,59300,73,59576},
+       {0xac,300,6,60014,4,60038},
+       {0xad,166,4,60062,2,60078},
+       {0xae,380,106,60090,106,60514},
+       {0xaf,166,4,61150,2,61166},
+       {0xb0,199,43,61178,41,61350},
+       {0xb1,342,17,61596,10,61664},
+       {0xb2,150,41,61724,41,61888},
+       {0xb3,150,74,62134,75,62430},
+       {0xb4,166,16,62880,16,62944},
+       {0xb5,250,68,63040,67,63312},
+       {0xb6,295,48,63714,47,63906},
+       {0xb7,125,21,64188,18,64272},
+       {0xb8,166,40,64380,43,64540},
+       {0xb9,150,23,64798,26,64890},
+       {0xba,155,46,65046,45,65230},
+       {0xbb,250,73,65500,72,65792},
+       {0xbc,375,43,66224,40,66396},
+       {0xbd,375,74,66636,69,66932},
+       {0xbe,375,95,67346,89,67726},
+       {0xbf,222,86,68260,82,68604},
+       {0xc0,361,65,69096,66,69356},
+       {0xc1,361,65,69752,66,70012},
+       {0xc2,361,55,70408,55,70628},
+       {0xc3,361,89,70958,92,71314},
+       {0xc4,361,91,71866,86,72230},
+       {0xc5,361,91,72746,90,73110},
+       {0xc6,444,86,73650,85,73994},
+       {0xc7,333,108,74504,116,74936},
+       {0xc8,305,74,75632,70,75928},
+       {0xc9,305,74,76348,70,76644},
+       {0xca,305,65,77064,59,77324},
+       {0xcb,305,101,77678,90,78082},
+       {0xcc,166,45,78622,42,78802},
+       {0xcd,166,45,79054,42,79234},
+       {0xce,166,36,79486,31,79630},
+       {0xcf,166,72,79816,62,80104},
+       {0xd0,361,70,80476,69,80756},
+       {0xd1,361,88,81170,92,81522},
+       {0xd2,361,80,82074,76,82394},
+       {0xd3,361,81,82850,76,83174},
+       {0xd4,361,71,83630,65,83914},
+       {0xd5,361,104,84304,102,84720},
+       {0xd6,361,107,85332,96,85760},
+       {0xd7,319,12,86336,10,86384},
+       {0xd8,361,78,86444,80,86756},
+       {0xd9,361,87,87236,84,87584},
+       {0xda,361,87,88088,84,88436},
+       {0xdb,361,76,88940,73,89244},
+       {0xdc,361,112,89682,104,90130},
+       {0xdd,361,73,90754,70,91046},
+       {0xde,277,70,91466,75,91746},
+       {0xdf,250,98,92196,98,92588},
+       {0xe0,222,130,93176,131,93696},
+       {0xe1,222,129,94482,131,94998},
+       {0xe2,222,120,95784,120,96264},
+       {0xe3,222,155,96984,157,97604},
+       {0xe4,222,156,98546,151,99170},
+       {0xe5,222,156,100076,155,100700},
+       {0xe6,333,127,101630,132,102138},
+       {0xe7,222,97,102930,99,103318},
+       {0xe8,222,71,103912,69,104196},
+       {0xe9,222,72,104610,69,104898},
+       {0xea,222,61,105312,58,105556},
+       {0xeb,222,97,105904,89,106292},
+       {0xec,138,40,106826,42,106986},
+       {0xed,138,41,107238,42,107402},
+       {0xee,138,33,107654,31,107786},
+       {0xef,138,70,107972,62,108252},
+       {0xf0,250,74,108624,72,108920},
+       {0xf1,250,109,109352,109,109788},
+       {0xf2,250,71,110442,66,110726},
+       {0xf3,250,71,111122,66,111406},
+       {0xf4,250,61,111802,55,112046},
+       {0xf5,250,94,112376,92,112752},
+       {0xf6,250,97,113304,86,113692},
+       {0xf7,281,48,114208,38,114400},
+       {0xf8,250,73,114628,76,114920},
+       {0xf9,250,73,115376,72,115668},
+       {0xfa,250,73,116100,72,116392},
+       {0xfb,250,62,116824,61,117072},
+       {0xfc,250,98,117438,92,117830},
+       {0xfd,250,92,118382,95,118750},
+       {0xfe,250,71,119320,72,119604},
+       {0xff,250,118,120036,115,120508},
+       {0x300,0,15,121198,16,121258},
+       {0x301,0,16,121354,16,121418},
+       {0x302,0,7,121514,5,121542},
+       {0x303,0,40,121572,40,121732},
+       {0x304,0,4,121972,2,121988},
+       {0x305,0,4,122000,2,122016},
+       {0x306,0,22,122028,20,122116},
+       {0x307,0,21,122236,18,122320},
+       {0x308,0,43,122428,36,122600},
+       {0x309,0,44,122816,43,122992},
+       {0x30a,0,43,123250,40,123422},
+       {0x30b,0,36,123662,32,123806},
+       {0x30c,0,7,123998,5,124026},
+       {0x30d,0,4,124056,2,124072},
+       {0x30e,0,9,124084,4,124120},
+       {0x30f,0,36,124144,32,124288},
+       {0x391,361,45,124480,46,124660},
+       {0x392,333,71,124936,70,125220},
+       {0x393,293,35,125640,33,125780},
+       {0x394,361,8,125978,7,126010},
+       {0x395,305,56,126052,52,126276},
+       {0x396,305,32,126588,30,126716},
+       {0x397,361,60,126896,56,127136},
+       {0x398,361,105,127472,104,127892},
+       {0x399,166,27,128516,26,128624},
+       {0x39a,365,70,128780,69,129060},
+       {0x39b,351,41,129474,40,129638},
+       {0x39c,444,49,129878,47,130074},
+       {0x39d,361,47,130356,50,130544},
+       {0x39e,321,62,130844,54,131092},
+       {0x39f,361,63,131416,60,131668},
+       {0x3a0,361,52,132028,52,132236},
+       {0x3a1,278,66,132548,69,132812},
+       {0x3a2,0,0,133226,0,133226},
+       {0x3a3,311,24,133226,22,133322},
+       {0x3a4,305,32,133454,30,133582},
+       {0x3a5,361,55,133762,56,133982},
+       {0x3a6,381,76,134318,77,134622},
+       {0x3a7,361,82,135084,80,135412},
+       {0x3a8,372,81,135892,81,136216},
+       {0x3a9,372,62,136702,60,136950},
+       {0x3aa,166,71,137310,62,137594},
+       {0x3ab,361,99,137966,92,138362},
+       {0x3ac,271,84,138914,80,139250},
+       {0x3ad,219,111,139730,110,140174},
+       {0x3ae,256,71,140834,72,141118},
+       {0x3af,137,52,141550,54,141758},
+       {0x3b0,262,119,142082,110,142558},
+       {0x3b1,271,66,143218,64,143482},
+       {0x3b2,247,96,143866,99,144250},
+       {0x3b3,237,47,144844,48,145032},
+       {0x3b4,250,83,145320,80,145652},
+       {0x3b5,219,94,146132,94,146508},
+       {0x3b6,220,100,147072,101,147472},
+       {0x3b7,256,55,148078,56,148298},
+       {0x3b8,247,57,148634,56,148862},
+       {0x3b9,137,34,149198,38,149334},
+       {0x3ba,250,64,149562,66,149818},
+       {0x3bb,248,48,150214,47,150406},
+       {0x3bc,263,64,150688,63,150944},
+       {0x3bd,227,33,151322,35,151454},
+       {0x3be,220,137,151664,139,152212},
+       {0x3bf,252,43,153046,41,153218},
+       {0x3c0,250,67,153464,69,153732},
+       {0x3c1,247,55,154146,53,154366},
+       {0x3c2,220,79,154684,79,155000},
+       {0x3c3,273,45,155474,43,155654},
+       {0x3c4,238,46,155912,44,156096},
+       {0x3c5,262,58,156360,58,156592},
+       {0x3c6,311,73,156940,72,157232},
+       {0x3c7,250,52,157664,51,157872},
+       {0x3c8,347,54,158178,55,158394},
+       {0x3c9,312,91,158724,90,159088},
+       {0x3d1,276,96,159628,99,160012},
+       {0x3d5,311,63,160606,64,160858},
+       {0x3d6,381,95,161242,96,161622},
+       {0x3f0,275,77,162198,76,162506},
+       {0x3f1,250,63,162962,62,163214},
+       {0x3f5,219,51,163586,50,163790},
+       {0x410,356,47,164090,50,164278},
+       {0x411,305,63,164578,60,164830},
+       {0x412,325,92,165190,90,165558},
+       {0x413,285,38,166098,38,166250},
+       {0x414,332,71,166478,73,166762},
+       {0x415,314,56,167200,54,167424},
+       {0x416,510,145,167748,143,168328},
+       {0x417,287,90,169186,89,169546},
+       {0x418,361,58,170080,55,170312},
+       {0x419,361,107,170642,104,171070},
+       {0x41a,344,100,171694,99,172094},
+       {0x41b,341,64,172688,64,172944},
+       {0x41c,446,48,173328,47,173520},
+       {0x41d,362,60,173802,56,174042},
+       {0x41e,364,63,174378,60,174630},
+       {0x41f,362,52,174990,52,175198},
+       {0x420,285,65,175510,69,175770},
+       {0x421,338,71,176184,72,176468},
+       {0x422,309,32,176900,30,177028},
+       {0x423,355,75,177208,78,177508},
+       {0x424,384,76,177976,77,178280},
+       {0x425,358,82,178742,80,179070},
+       {0x426,357,59,179550,63,179786},
+       {0x427,328,64,180164,63,180420},
+       {0x428,497,71,180798,78,181082},
+       {0x429,497,81,181550,89,181874},
+       {0x42a,368,53,182408,50,182620},
+       {0x42b,441,80,182920,75,183240},
+       {0x42c,305,51,183690,48,183894},
+       {0x42d,325,76,184182,76,184486},
+       {0x42e,450,93,184942,89,185314},
+       {0x42f,318,64,185848,64,186104},
+       {0x430,224,113,186488,114,186940},
+       {0x431,253,79,187624,78,187940},
+       {0x432,237,84,188408,84,188744},
+       {0x433,196,34,189248,32,189384},
+       {0x434,231,59,189576,64,189812},
+       {0x435,233,49,190196,48,190392},
+       {0x436,360,144,190680,148,191256},
+       {0x437,194,85,192144,88,192484},
+       {0x438,262,56,193012,55,193236},
+       {0x439,262,106,193566,103,193990},
+       {0x43a,251,85,194608,87,194948},
+       {0x43b,249,63,195470,64,195722},
+       {0x43c,308,48,196106,48,196298},
+       {0x43d,262,58,196586,56,196818},
+       {0x43e,256,53,197154,50,197366},
+       {0x43f,262,52,197666,52,197874},
+       {0x440,249,71,198186,72,198470},
+       {0x441,228,63,198902,60,199154},
+       {0x442,217,40,199514,38,199674},
+       {0x443,245,69,199902,73,200178},
+       {0x444,338,134,200616,136,201152},
+       {0x445,244,77,201968,81,202276},
+       {0x446,262,57,202762,59,202990},
+       {0x447,256,62,203344,63,203592},
+       {0x448,383,76,203970,78,204274},
+       {0x449,383,82,204742,85,205070},
+       {0x44a,269,56,205580,54,205804},
+       {0x44b,334,77,206128,75,206436},
+       {0x44c,228,49,206886,48,207082},
+       {0x44d,222,54,207370,55,207586},
+       {0x44e,368,81,207916,79,208240},
+       {0x44f,235,59,208714,59,208950},
+       {0x210f,289,94,209304,101,209680},
+       {0x2111,381,130,210286,125,210806},
+       {0x2113,0,0,211556,0,211556},
+       {0x211c,436,132,211556,135,212084},
+       {0x2190,463,40,212894,44,213054},
+       {0x2191,255,39,213318,44,213474},
+       {0x2192,463,41,213738,44,213902},
+       {0x2193,255,38,214166,44,214318},
+       {0x2194,463,75,214582,86,214882},
+       {0x2195,255,74,215398,86,215694},
+       {0x2196,463,50,216210,66,216410},
+       {0x2197,463,50,216806,65,217006},
+       {0x2198,463,45,217396,63,217576},
+       {0x2199,463,49,217954,64,218150},
+       {0x2200,280,12,218534,11,218582},
+       {0x2201,231,48,218648,47,218840},
+       {0x2202,235,70,219122,72,219402},
+       {0x2203,280,12,219834,10,219882},
+       {0x2204,280,30,219942,30,220062},
+       {0x2205,381,70,220242,70,220522},
+       {0x2206,365,8,220942,7,220974},
+       {0x2207,365,8,221016,7,221048},
+       {0x2208,342,29,221090,27,221206},
+       {0x2209,342,52,221368,56,221576},
+       {0x220a,242,29,221912,27,222028},
+       {0x220b,342,30,222190,27,222310},
+       {0x220c,342,56,222472,55,222696},
+       {0x220d,242,29,223026,28,223142},
+       {0x220e,272,4,223310,2,223326},
+       {0x220f,500,49,223338,47,223534},
+       {0x2210,500,49,223816,47,224012},
+       {0x2211,457,22,224294,20,224382},
+       {0x2212,342,4,224502,2,224518},
+       {0x2213,342,17,224530,10,224598},
+       {0x2214,342,34,224658,26,224794},
+       {0x2215,261,4,224950,2,224966},
+       {0x2216,213,4,224978,2,224994},
+       {0x2217,261,135,225006,133,225546},
+       {0x2218,175,43,226344,40,226516},
+       {0x2219,175,21,226756,18,226840},
+       {0x221a,463,19,226948,18,227024},
+       {0x221b,463,93,227132,93,227504},
+       {0x221c,463,35,228062,30,228202},
+       {0x221d,342,65,228382,65,228642},
+       {0x221e,463,85,229032,85,229372},
+       {0x221f,342,6,229882,4,229906},
+       {0x2220,342,6,229930,4,229954},
+       {0x2221,342,33,229978,42,230110},
+       {0x2222,342,48,230362,52,230554},
+       {0x2223,132,4,230866,2,230882},
+       {0x2224,202,12,230894,8,230942},
+       {0x2225,261,9,230990,4,231026},
+       {0x2226,304,20,231050,14,231130},
+       {0x2227,310,7,231214,5,231242},
+       {0x2228,310,7,231272,5,231300},
+       {0x2229,310,26,231330,25,231434},
+       {0x222a,310,26,231584,24,231688},
+       {0x222b,229,67,231832,70,232100},
+       {0x222c,350,137,232520,140,233068},
+       {0x222d,471,205,233908,210,234728},
+       {0x222e,249,117,235988,126,236456},
+       {0x222f,370,209,237212,232,238048},
+       {0x2260,342,20,239440,18,239520},
+       {0x2261,342,14,239628,6,239684},
+       {0x2262,342,28,239720,26,239832},
+       {0x2263,342,19,239988,8,240064},
+       {0x2264,342,12,240112,7,240160},
+       {0x2265,342,12,240202,7,240250},
+       {0x2266,342,17,240292,9,240360},
+       {0x2267,342,17,240414,9,240482},
+       {0x2268,342,28,240536,23,240648},
+       {0x2269,342,28,240786,23,240898},
+       {0x226a,466,15,241036,10,241096},
+       {0x226b,466,15,241156,10,241216},
+       {0x226c,233,80,241276,84,241596},
+       {0x226d,342,55,242100,60,242320},
+       {0x226e,342,20,242680,19,242760},
+       {0x226f,342,20,242874,19,242954},
+       {0x27c2,346,8,243068,6,243100}
+};
+short mgl_buf_fnt[243136] = {
+88,88,94,88,117,278,117,282,118,286,118,297,117,311,113,322,108,331,101,336,92,338,81,336,74,331,69,323,66,312,65,300,65,289,66,284,66,278,16383,16383,118,21,116,30,113,37,107,43,100,47,92,49,83,47,76,43,70,37,66,30,65,22,66,13,70,6,75,0,82,-2,91,-3,100,-2,107,0,113,6,116,13,118,21,150,215,154,243,158,268,162,289,165,306,166,318,165,324,162,330,157,334,151,337,145,338,138,337,132,334,127,330,124,324,123,316,124,307,126,291,129,270,134,244,139,215,16383,16383,65,215,70,243,75,268,78,289,80,306,81,318,80,324,77,330,73,334,67,337,60,338,53,337,47,334,42,330,40,324,39,316,39,307,42,291,45,270,
+107,43,107,0,113,37,113,37,107,0,113,6,113,37,113,6,116,30,116,30,113,6,116,13,116,30,116,13,118,21,65,22,66,13,66,30,66,30,66,13,70,6,66,30,70,6,70,37,70,37,70,6,75,0,70,37,75,0,76,43,76,43,75,0,82,-2,76,43,82,-2,83,47,83,47,82,-2,91,-3,83,47,91,-3,92,49,92,49,91,-3,100,-2,92,49,100,-2,100,47,100,47,100,-2,107,0,100,47,107,0,107,43,118,297,117,311,117,278,118,297,117,278,117,282,118,297,117,282,118,286,118,297,118,286,118,290,118,297,118,290,118,294,117,278,117,311,113,322,117,278,113,322,108,331,117,278,108,331,101,336,117,278,101,336,94,88,92,338,81,336,88,88,92,338,88,88,94,88,92,338,94,88,101,336,66,284,66,278,69,323,69,323,66,278,88,88,69,323,88,88,74,331,74,331,88,88,81,336,66,312,65,300,65,297,66,312,65,297,65,293,66,312,65,293,65,289,66,312,65,289,66,284,66,312,66,284,69,323,
+150,215,154,243,158,268,162,289,165,306,166,318,165,324,162,330,157,334,151,337,145,338,138,337,132,334,127,330,124,324,123,316,124,307,126,291,129,270,134,244,139,215,16383,16383,65,215,70,243,75,268,78,289,80,306,81,318,80,324,77,330,73,334,67,337,60,338,53,337,47,334,42,330,40,324,39,316,39,307,42,291,45,270,50,244,55,215,248,203,248,230,200,230,214,331,185,331,171,230,104,230,119,331,90,331,75,230,17,230,17,203,71,203,60,136,3,136,3,108,56,108,40,0,69,0,85,108,152,108,137,0,166,0,181,108,235,108,235,136,185,136,195,203,16383,16383,166,203,156,136,89,136,100,203,132,319,154,314,172,304,186,291,197,273,205,250,213,250,213,305,202,314,189,321,
+123,316,124,307,124,324,124,324,124,307,126,291,124,324,126,291,127,330,127,330,126,291,129,270,127,330,129,270,132,334,132,334,129,270,134,244,132,334,134,244,138,337,138,337,134,244,139,215,138,337,139,215,145,338,145,338,139,215,150,215,145,338,150,215,151,337,151,337,150,215,154,243,151,337,154,243,157,334,157,334,154,243,158,268,157,334,158,268,162,330,162,330,158,268,162,289,162,330,162,289,165,324,165,324,162,289,165,306,165,324,165,306,166,318,39,316,39,307,40,324,40,324,39,307,42,291,40,324,42,291,42,330,42,330,42,291,45,270,42,330,45,270,47,334,47,334,45,270,50,244,47,334,50,244,53,337,53,337,50,244,55,215,53,337,55,215,60,338,60,338,55,215,65,215,60,338,65,215,67,337,67,337,65,215,70,243,67,337,70,243,73,334,73,334,70,243,75,268,73,334,75,268,77,330,77,330,75,268,78,289,77,330,78,289,80,324,80,324,78,289,80,306,80,324,80,306,81,318,
+248,203,248,230,200,230,214,331,185,331,171,230,104,230,119,331,90,331,75,230,17,230,17,203,71,203,60,136,3,136,3,108,56,108,40,0,69,0,85,108,152,108,137,0,166,0,181,108,235,108,235,136,185,136,195,203,16383,16383,166,203,156,136,89,136,100,203,132,319,154,314,172,304,186,291,197,273,205,250,213,250,213,305,202,314,189,321,173,326,155,330,132,332,132,363,115,363,115,332,88,328,64,319,44,304,31,283,26,257,29,234,38,214,54,196,79,177,115,155,115,14,90,17,69,27,52,42,38,63,30,90,22,90,
+90,331,75,230,85,108,85,108,75,230,71,203,85,108,71,203,69,0,69,0,71,203,60,136,69,0,60,136,56,108,56,108,60,136,3,136,56,108,3,136,3,108,17,230,17,203,71,203,17,230,71,203,75,230,90,331,85,108,89,136,90,331,89,136,100,203,90,331,100,203,104,230,90,331,104,230,119,331,185,331,171,230,181,108,181,108,171,230,166,203,181,108,166,203,166,0,166,0,166,203,156,136,166,0,156,136,152,108,152,108,156,136,89,136,152,108,89,136,85,108,104,230,100,203,166,203,104,230,166,203,171,230,200,230,214,331,195,203,195,203,214,331,185,331,195,203,185,331,185,136,185,136,185,331,181,108,185,136,181,108,235,108,200,230,195,203,248,203,200,230,248,203,248,230,185,136,235,108,235,136,166,0,152,108,137,0,69,0,56,108,40,0,
+132,319,154,314,172,304,186,291,197,273,205,250,213,250,213,305,202,314,189,321,173,326,155,330,132,332,132,363,115,363,115,332,88,328,64,319,44,304,31,283,26,257,29,234,38,214,54,196,79,177,115,155,115,14,90,17,69,27,52,42,38,63,30,90,22,90,22,26,38,16,54,9,71,4,91,1,115,0,115,-43,132,-43,132,0,164,6,191,17,211,32,224,54,229,85,228,96,227,105,225,115,222,123,219,130,210,141,199,152,185,164,163,178,132,195,16383,16383,115,204,93,219,79,232,69,243,64,254,63,266,65,281,71,293,81,304,96,313,115,319,16383,16383,132,147,156,132,172,118,182,105,188,90,189,74,187,55,181,40,170,28,154,20,132,14,343,107,341,127,335,143,325,155,312,163,295,165,267,159,241,143,220,120,206,91,200,60,203,38,212,18,225,4,242,-5,261,-8,286,-2,309,14,327,39,339,71,343,107,16383,16383,331,108,328,77,318,48,303,25,285,10,265,4,255,6,248,10,242,18,238,27,237,38,239,59,244,82,252,103,263,123,276,140,280,144,284,147,290,149,295,151,300,151,311,149,319,143,326,134,330,122,331,108,16383,16383,310,353,289,353,265,331,248,317,235,309,221,305,194,305,185,307,176,311,167,317,157,324,150,330,144,334,138,336,133,338,127,338,97,332,71,317,50,293,36,264,31,232,34,209,42,191,54,176,70,166,89,163,99,164,108,166,116,169,132,181,146,197,157,215,
+132,319,154,314,155,330,155,330,154,314,172,304,155,330,172,304,173,326,173,326,172,304,186,291,173,326,186,291,189,321,189,321,186,291,197,273,189,321,197,273,202,314,202,314,197,273,205,250,202,314,205,250,213,305,213,305,205,250,213,250,228,96,227,105,229,85,229,85,227,105,225,115,229,85,225,115,224,54,224,54,225,115,222,123,224,54,222,123,219,130,211,32,224,54,219,130,211,32,219,130,210,141,211,32,210,141,199,152,211,32,199,152,191,17,191,17,199,152,189,74,191,17,189,74,187,55,191,17,187,55,181,40,191,17,181,40,170,28,191,17,170,28,164,6,188,90,189,74,199,152,188,90,199,152,185,164,188,90,185,164,182,105,132,147,156,132,163,178,163,178,156,132,172,118,163,178,172,118,185,164,185,164,172,118,182,105,132,14,132,147,132,195,132,14,132,195,115,155,132,14,115,155,132,-43,132,332,132,363,115,155,132,332,115,155,132,195,132,332,132,195,132,319,132,332,132,319,155,330,115,0,115,155,115,14,115,0,115,14,91,1,91,1,115,14,90,17,91,1,90,17,71,4,71,4,90,17,69,27,71,4,69,27,54,9,54,9,69,27,52,42,54,9,52,42,38,63,38,16,54,9,38,63,38,16,38,63,30,90,38,16,30,90,22,90,38,16,22,90,22,26,132,363,115,363,115,319,115,319,115,363,115,332,115,319,115,155,132,363,71,293,81,304,88,328,88,328,81,304,96,313,88,328,96,313,115,332,115,332,96,313,115,319,64,319,44,304,54,196,64,319,54,196,63,266,64,319,63,266,65,281,64,319,65,281,71,293,64,319,71,293,88,328,63,266,54,196,64,254,64,254,54,196,79,177,64,254,79,177,69,243,69,243,79,177,79,232,26,257,29,234,31,283,31,283,29,234,38,214,31,283,38,214,44,304,44,304,38,214,54,196,79,232,79,177,93,219,93,219,79,177,115,155,93,219,115,155,115,204,115,204,115,155,115,319,164,6,170,28,154,20,164,6,154,20,132,14,164,6,132,14,132,0,132,-43,115,155,115,0,132,-43,115,0,115,-43,132,195,132,147,163,178,
+343,107,341,127,335,143,325,155,312,163,295,165,267,159,241,143,220,120,206,91,200,60,203,38,212,18,225,4,242,-5,261,-8,286,-2,309,14,327,39,339,71,343,107,16383,16383,331,108,328,77,318,48,303,25,285,10,265,4,255,6,248,10,242,18,238,27,237,38,239,59,244,82,252,103,263,123,276,140,280,144,284,147,290,149,295,151,300,151,311,149,319,143,326,134,330,122,331,108,16383,16383,310,353,289,353,265,331,248,317,235,309,221,305,194,305,185,307,176,311,167,317,157,324,150,330,144,334,138,336,133,338,127,338,97,332,71,317,50,293,36,264,31,232,34,209,42,191,54,176,70,166,89,163,99,164,108,166,116,169,132,181,146,197,157,215,165,234,171,255,172,276,172,289,171,294,171,299,179,296,187,294,194,292,201,292,209,291,223,292,236,295,247,301,258,309,269,320,72,-8,95,-8,16383,16383,161,285,157,251,148,222,133,198,115,182,94,176,85,178,77,183,71,190,67,200,66,211,67,228,70,245,75,262,82,278,90,293,95,302,101,309,107,314,115,319,126,325,135,316,140,312,144,310,148,307,153,305,157,301,159,297,160,292,161,285,368,55,359,45,350,38,342,33,332,30,321,29,304,31,288,36,274,46,259,58,246,75,260,96,273,115,284,134,296,152,309,173,316,184,323,192,332,198,342,201,355,203,355,213,248,213,248,203,261,201,270,197,276,193,279,187,280,179,278,165,273,150,264,133,251,113,234,89,218,107,205,126,192,146,180,167,168,192,199,207,221,222,235,238,243,256,246,276,242,298,233,315,218,328,199,335,177,338,153,335,132,325,116,309,105,288,101,263,101,250,103,237,106,223,111,207,118,189,99,177,72,158,50,138,34,116,24,92,21,69,25,42,36,20,53,5,77,-3,107,-6,130,-4,151,0,172,9,193,22,214,39,233,22,250,9,266,0,283,-4,300,-6,319,-3,336,3,352,14,365,30,375,50,16383,16383,219,278,217,261,211,246,200,233,183,220,161,208,152,225,146,239,143,253,141,266,141,281,142,294,148,306,156,315,167,320,180,322,193,320,204,314,212,304,217,292,219,278,16383,16383,202,52,185,40,170,31,155,25,142,21,129,20,109,23,92,31,79,45,70,64,67,87,69,106,75,124,86,140,103,155,126,171,142,141,156,115,170,92,202,52,50,215,56,244,
+326,134,330,122,335,143,335,143,330,122,331,108,339,71,331,108,328,77,339,71,328,77,327,39,327,39,328,77,318,48,327,39,318,48,309,14,309,14,318,48,303,25,309,14,303,25,286,-2,286,-2,303,25,285,10,286,-2,285,10,265,4,265,4,255,6,261,-8,261,-8,255,6,248,10,261,-8,248,10,242,18,242,-5,261,-8,242,18,242,-5,242,18,238,27,242,-5,238,27,237,38,242,-5,237,38,225,4,244,82,252,103,267,159,267,159,252,103,263,123,267,159,263,123,276,140,276,140,280,144,295,165,295,165,280,144,284,147,295,165,284,147,290,149,241,143,220,120,225,4,241,143,225,4,237,38,241,143,237,38,239,59,241,143,239,59,244,82,241,143,244,82,267,159,200,60,203,38,206,91,206,91,203,38,212,18,206,91,212,18,220,120,220,120,212,18,225,4,326,134,325,155,319,143,319,143,325,155,312,163,319,143,312,163,311,149,311,149,312,163,300,151,295,151,300,151,295,165,295,151,295,165,290,149,295,165,267,159,276,140,312,163,295,165,300,151,339,71,343,107,341,127,339,71,341,127,335,143,339,71,335,143,331,108,265,4,261,-8,286,-2,67,228,70,245,71,317,71,317,70,245,75,262,71,317,75,262,97,332,97,332,75,262,82,278,97,332,82,278,90,293,90,293,95,302,97,332,97,332,95,302,101,309,97,332,101,309,127,338,127,338,101,309,107,314,127,338,107,314,115,319,77,183,89,163,85,178,85,178,89,163,94,176,115,182,94,176,99,164,115,182,99,164,108,166,71,190,67,200,70,166,71,190,70,166,89,163,71,190,89,163,77,183,67,200,66,211,70,166,70,166,66,211,54,176,54,176,66,211,71,317,71,317,66,211,67,228,148,307,153,305,150,330,148,307,150,330,144,310,144,310,150,330,144,334,144,310,144,334,140,312,140,312,144,334,138,336,140,312,138,336,135,316,135,316,138,336,133,338,135,316,133,338,131,320,131,320,133,338,127,338,131,320,127,338,126,325,247,301,248,317,236,295,236,295,248,317,235,309,236,295,235,309,223,292,223,292,235,309,221,305,223,292,221,305,209,291,209,291,221,305,205,305,194,305,185,307,187,294,194,305,187,294,194,292,194,305,194,292,201,292,194,305,201,292,205,305,176,311,171,299,179,296,176,311,179,296,185,307,185,307,179,296,187,294,167,317,157,324,157,301,167,317,157,301,159,297,167,317,159,297,160,292,167,317,160,292,161,285,167,317,161,285,165,234,167,317,165,234,171,255,167,317,171,255,171,299,167,317,171,299,176,311,124,175,132,181,133,198,133,198,132,181,146,197,133,198,146,197,148,222,148,222,146,197,157,215,148,222,157,215,157,251,157,251,157,215,165,234,157,251,165,234,161,285,310,353,289,353,269,320,269,320,289,353,265,331,269,320,265,331,258,309,258,309,265,331,248,317,258,309,248,317,247,301,269,320,72,-8,95,-8,269,320,95,-8,310,353,172,276,172,281,172,285,172,276,172,285,172,289,172,276,172,289,171,294,172,276,171,294,171,299,172,276,171,299,171,255,116,169,124,175,133,198,116,169,133,198,115,182,116,169,115,182,108,166,157,324,150,330,153,305,157,324,153,305,157,301,31,232,34,209,36,264,36,264,34,209,42,191,36,264,42,191,50,293,50,293,42,191,54,176,50,293,54,176,71,317,94,176,89,163,99,164,127,338,115,319,126,325,209,291,205,305,201,292,325,155,326,134,335,143,
+368,55,359,45,350,38,342,33,332,30,321,29,304,31,288,36,274,46,259,58,246,75,260,96,273,115,284,134,296,152,309,173,316,184,323,192,332,198,342,201,355,203,355,213,248,213,248,203,261,201,270,197,276,193,279,187,280,179,278,165,273,150,264,133,251,113,234,89,218,107,205,126,192,146,180,167,168,192,199,207,221,222,235,238,243,256,246,276,242,298,233,315,218,328,199,335,177,338,153,335,132,325,116,309,105,288,101,263,101,250,103,237,106,223,111,207,118,189,99,177,72,158,50,138,34,116,24,92,21,69,25,42,36,20,53,5,77,-3,107,-6,130,-4,151,0,172,9,193,22,214,39,233,22,250,9,266,0,283,-4,300,-6,319,-3,336,3,352,14,365,30,375,50,16383,16383,219,278,217,261,211,246,200,233,183,220,161,208,152,225,146,239,143,253,141,266,141,281,142,294,148,306,156,315,167,320,180,322,193,320,204,314,212,304,217,292,219,278,16383,16383,202,52,185,40,170,31,155,25,142,21,129,20,109,23,92,31,79,45,70,64,67,87,69,106,75,124,86,140,103,155,126,171,142,141,156,115,170,92,202,52,50,215,56,244,60,269,64,290,66,306,66,324,63,330,59,334,53,337,46,338,39,337,33,334,28,330,25,324,24,317,25,306,27,289,31,268,35,243,40,215,152,-79,116,-44,92,-8,77,31,69,76,67,127,69,180,77,223,92,261,116,295,152,330,147,338,104,307,69,270,44,227,29,179,24,126,29,75,44,27,69,-17,103,-56,146,-88,15,330,51,295,76,259,90,219,97,174,99,122,97,69,90,26,75,-11,51,-45,15,-79,19,-88,62,-56,97,-19,122,23,137,71,142,123,137,174,121,222,96,267,63,306,21,338,134,235,147,243,158,248,178,254,190,256,200,258,207,261,212,265,215,270,216,277,215,284,213,289,209,293,204,295,198,296,190,294,183,288,174,281,166,272,159,264,154,259,144,251,130,243,130,262,131,270,133,278,135,287,140,302,142,307,143,312,144,316,144,320,143,326,140,331,136,335,131,337,126,338,120,337,115,335,111,331,109,326,108,321,108,317,110,307,111,301,113,295,115,285,118,276,121,249,121,243,110,249,101,255,93,262,85,270,76,280,70,286,65,290,60,293,56,295,51,296,46,295,41,292,38,288,36,283,
+153,335,132,325,142,294,142,294,132,325,141,281,142,141,141,281,132,325,142,141,132,325,126,171,118,189,103,155,126,171,118,189,126,171,132,325,118,189,132,325,116,309,118,189,116,309,111,207,99,177,72,158,75,124,99,177,75,124,86,140,99,177,86,140,103,155,99,177,103,155,118,189,72,158,50,138,53,5,72,158,53,5,67,87,72,158,67,87,69,106,72,158,69,106,75,124,79,45,70,64,77,-3,77,-3,70,64,67,87,53,5,50,138,36,20,36,20,50,138,34,116,36,20,34,116,25,42,25,42,34,116,24,92,25,42,24,92,21,69,101,250,103,237,105,288,105,288,103,237,106,223,105,288,106,223,116,309,116,309,106,223,111,207,185,40,170,31,172,9,172,9,170,31,155,25,172,9,155,25,151,0,151,0,155,25,142,21,151,0,142,21,130,-4,130,-4,142,21,129,20,109,23,92,31,107,-6,109,23,107,-6,130,-4,109,23,130,-4,129,20,79,45,77,-3,107,-6,79,45,107,-6,92,31,246,75,251,113,234,89,246,75,234,89,250,9,250,9,234,89,233,22,233,22,234,89,218,107,233,22,218,107,214,39,214,39,218,107,205,126,214,39,205,126,202,52,202,52,205,126,192,146,202,52,192,146,186,72,186,72,192,146,180,167,186,72,180,167,170,92,170,92,180,167,168,192,170,92,168,192,161,208,156,115,170,92,161,208,156,115,161,208,152,225,156,115,152,225,146,239,156,115,146,239,143,253,156,115,143,253,142,141,141,266,141,281,142,141,141,266,142,141,143,253,142,294,148,306,153,335,153,335,148,306,156,315,153,335,156,315,177,338,177,338,156,315,167,320,177,338,167,320,180,322,180,322,193,320,199,335,199,335,193,320,204,314,199,335,204,314,218,328,218,328,204,314,212,304,218,328,212,304,217,292,217,261,221,222,219,278,219,278,221,222,233,315,233,315,221,222,235,238,233,315,235,238,242,298,242,298,235,238,243,256,242,298,243,256,246,276,218,328,217,292,219,278,218,328,219,278,233,315,199,335,177,338,180,322,183,220,168,192,199,207,183,220,199,207,200,233,200,233,199,207,221,222,200,233,221,222,211,246,211,246,221,222,217,261,183,220,161,208,168,192,193,22,214,39,202,52,193,22,202,52,185,40,193,22,185,40,172,9,246,75,250,9,259,58,259,58,250,9,266,0,259,58,266,0,274,46,274,46,266,0,283,-4,274,46,283,-4,288,36,288,36,283,-4,300,-6,288,36,300,-6,304,31,304,31,300,-6,319,-3,304,31,319,-3,321,29,321,29,319,-3,336,3,321,29,336,3,332,30,270,197,276,193,355,213,355,213,276,193,279,187,355,213,279,187,280,179,280,179,284,134,296,152,280,179,296,152,309,173,309,173,316,184,280,179,280,179,316,184,323,192,280,179,323,192,332,198,342,201,355,203,355,213,342,201,355,213,332,198,332,198,355,213,280,179,261,201,270,197,355,213,261,201,355,213,248,213,261,201,248,213,248,203,280,179,278,165,284,134,284,134,278,165,273,150,284,134,273,150,273,115,273,115,273,150,264,133,273,115,264,133,260,96,260,96,264,133,251,113,260,96,251,113,246,75,375,50,368,55,365,30,365,30,368,55,359,45,365,30,359,45,352,14,352,14,359,45,350,38,352,14,350,38,342,33,342,33,332,30,336,3,342,33,336,3,352,14,77,-3,67,87,53,5,101,250,105,288,101,263,
+50,215,56,244,60,269,64,290,66,306,66,324,63,330,59,334,53,337,46,338,39,337,33,334,28,330,25,324,24,317,25,306,27,289,31,268,35,243,40,215,152,-79,116,-44,92,-8,77,31,69,76,67,127,69,180,77,223,92,261,116,295,152,330,147,338,104,307,69,270,44,227,29,179,24,126,29,75,44,27,69,-17,
+24,317,25,306,25,324,25,324,25,306,27,289,25,324,27,289,28,330,28,330,27,289,31,268,28,330,31,268,33,334,33,334,31,268,35,243,33,334,35,243,39,337,39,337,35,243,40,215,39,337,40,215,46,338,46,338,40,215,50,215,46,338,50,215,53,337,53,337,50,215,56,244,53,337,56,244,59,334,59,334,56,244,60,269,59,334,60,269,63,330,63,330,60,269,64,290,63,330,64,290,66,324,66,324,64,290,66,306,66,324,66,306,66,318,
+152,-79,116,-44,92,-8,77,31,69,76,67,127,69,180,77,223,92,261,116,295,152,330,147,338,104,307,69,270,44,227,29,179,24,126,29,75,44,27,69,-17,103,-56,146,-88,15,330,51,295,76,259,90,219,97,174,99,122,97,69,90,26,75,-11,51,-45,15,-79,19,-88,62,-56,97,-19,122,23,137,71,142,123,137,174,121,222,96,267,63,306,21,338,
+24,126,29,75,29,179,29,179,29,75,44,27,29,179,44,27,44,227,44,227,44,27,69,-17,44,227,69,-17,67,127,67,127,69,270,44,227,116,295,152,330,147,338,116,295,147,338,104,307,116,295,104,307,92,261,67,127,69,180,69,270,69,270,69,180,77,223,69,270,77,223,104,307,104,307,77,223,92,261,116,-44,92,-8,103,-56,116,-44,103,-56,146,-88,116,-44,146,-88,152,-79,77,31,69,76,69,-17,77,31,69,-17,103,-56,77,31,103,-56,92,-8,67,127,69,-17,69,76,
+15,330,51,295,76,259,90,219,97,174,99,122,97,69,90,26,75,-11,51,-45,15,-79,19,-88,62,-56,97,-19,122,23,137,71,142,123,137,174,121,222,96,267,63,306,21,338,134,235,147,243,158,248,178,254,190,256,200,258,207,261,212,265,215,270,216,277,215,284,213,289,209,293,204,295,198,296,190,294,183,288,174,281,166,272,159,264,154,259,144,251,
+97,174,99,122,99,122,122,23,99,122,97,69,122,23,97,69,97,-19,97,-19,97,69,90,26,97,-19,90,26,75,-11,97,174,99,122,121,222,121,222,99,122,122,23,121,222,122,23,137,174,137,174,122,23,137,71,137,174,137,71,142,123,96,267,63,306,76,259,96,267,76,259,90,219,96,267,90,219,97,174,96,267,97,174,121,222,51,295,76,259,63,306,51,295,63,306,21,338,51,295,21,338,15,330,15,-79,19,-88,51,-45,51,-45,19,-88,62,-56,51,-45,62,-56,75,-11,75,-11,62,-56,97,-19,
+134,235,147,243,158,248,178,254,190,256,200,258,207,261,212,265,215,270,216,277,215,284,213,289,209,293,204,295,198,296,190,294,183,288,174,281,166,272,159,264,154,259,144,251,130,243,130,262,131,270,133,278,135,287,140,302,142,307,143,312,144,316,144,320,143,326,140,331,136,335,131,337,126,338,120,337,115,335,111,331,109,326,108,321,108,317,110,307,111,301,113,295,115,285,118,276,121,249,121,243,110,249,101,255,93,262,85,270,76,280,70,286,65,290,60,293,56,295,51,296,46,295,41,292,38,288,36,283,35,277,36,270,40,265,46,261,56,257,69,254,78,252,87,249,97,246,106,242,117,235,106,229,97,224,88,221,78,218,65,215,53,213,45,210,39,205,35,200,34,193,35,187,37,182,41,178,46,176,52,175,57,176,61,177,65,179,74,188,81,196,92,207,94,210,97,212,105,218,112,222,121,228,121,224,120,212,119,201,118,192,115,183,113,174,111,169,109,163,108,159,107,154,107,151,108,145,110,140,114,136,119,133,124,132,130,133,136,136,140,141,143,146,145,152,144,154,144,157,143,161,141,164,140,169,136,179,130,212,130,228,134,225,140,221,147,217,153,212,161,205,169,196,175,188,182,182,187,178,193,175,199,175,205,176,210,178,216,188,217,194,215,201,212,206,206,210,198,213,186,215,176,218,165,220,147,228,138,233,318,110,318,143,188,143,188,273,155,273,155,143,24,143,24,110,155,110,155,-20,188,-20,188,110,41,-69,60,-58,76,-44,88,-27,95,-10,98,7,96,22,90,34,81,43,70,49,57,51,47,49,39,46,33,40,29,32,27,22,29,13,32,6,38,1,46,-1,56,-2,60,-2,63,-1,66,-1,68,0,73,0,75,-1,78,-4,78,-6,76,-16,71,-27,63,-38,51,-49,36,-60,142,97,142,128,20,128,20,97,90,22,89,30,85,38,79,44,71,49,63,50,54,49,46,45,40,39,37,31,35,22,37,13,40,6,46,0,54,-3,63,-5,71,-3,79,0,85,6,89,13,90,22,143,338,110,338,-3,-6,30,-6,238,165,232,222,218,270,194,307,164,330,127,338,84,329,52,304,29,266,16,220,12,168,16,118,27,71,48,31,80,3,125,-6,168,2,200,29,222,67,234,114,238,165,16383,16383,190,162,187,108,179,65,166,33,148,13,125,6,102,13,84,33,71,65,63,109,60,165,63,220,71,265,84,298,101,318,124,325,148,318,166,298,179,265,187,219,190,162,197,0,197,7,178,8,164,12,155,18,151,27,150,38,150,336,145,338,55,292,55,286,69,291,74,293,84,295,88,296,92,296,97,295,101,293,104,288,106,281,107,272,107,47,105,33,100,22,92,14,78,10,59,7,59,0,237,69,230,71,221,57,212,48,203,42,193,39,182,38,65,38,
+69,254,69,254,78,252,69,254,78,252,70,286,69,254,70,286,65,290,69,254,65,290,60,293,69,254,60,293,56,295,69,254,56,295,56,257,51,296,46,295,46,261,51,296,46,261,56,257,51,296,56,257,56,295,36,283,36,270,38,288,38,288,36,270,40,265,38,288,40,265,41,292,41,292,40,265,46,261,41,292,46,261,46,295,81,196,86,201,88,221,88,221,86,201,89,204,88,221,89,204,97,224,97,224,89,204,92,207,97,224,92,207,94,210,94,210,97,212,97,224,97,224,97,212,106,229,78,218,65,215,69,183,78,218,69,183,74,188,78,218,74,188,81,196,78,218,81,196,88,221,110,140,114,136,111,169,111,169,114,136,113,174,115,183,113,174,114,136,115,183,114,136,119,133,144,157,143,161,143,146,144,157,143,146,145,152,144,157,145,152,144,154,141,164,140,169,140,141,141,164,140,141,143,146,141,164,143,146,143,161,136,179,134,190,136,136,136,179,136,136,140,141,136,179,140,141,140,169,134,190,132,201,136,136,136,136,132,201,130,212,136,136,130,212,130,133,130,133,130,212,130,224,126,338,120,337,120,258,126,338,120,258,121,249,126,338,121,249,121,228,126,338,121,228,124,132,126,338,124,132,130,133,126,338,130,133,130,224,126,338,130,224,130,243,126,338,130,243,130,255,126,338,130,255,131,337,121,243,121,228,121,249,120,337,115,335,115,285,120,337,115,285,118,276,120,337,118,276,119,267,120,337,119,267,120,258,113,295,115,285,115,335,113,295,115,335,111,331,113,295,111,331,111,301,204,295,198,296,200,258,200,258,198,296,190,294,200,258,190,294,190,256,190,256,190,294,183,288,190,256,183,288,178,254,178,254,183,288,174,281,178,254,174,281,168,251,168,251,174,281,166,272,168,251,166,272,159,264,159,264,154,259,158,248,158,248,154,259,149,255,158,248,149,255,147,243,147,243,149,255,144,251,147,243,144,251,137,247,130,243,130,228,134,225,130,243,134,225,134,235,130,243,134,235,137,247,137,247,134,235,147,243,176,218,165,220,169,196,176,218,169,196,175,188,176,218,175,188,182,182,176,218,182,182,186,215,199,175,205,176,206,210,206,210,205,176,210,178,206,210,210,178,212,206,212,206,210,178,213,183,212,206,213,183,215,201,215,201,213,183,216,188,215,201,216,188,217,194,198,213,186,215,187,178,198,213,187,178,193,175,198,213,193,175,199,175,198,213,199,175,206,210,216,277,215,284,215,270,215,270,215,284,213,289,215,270,213,289,212,265,212,265,213,289,209,293,212,265,209,293,207,261,207,261,209,293,204,295,207,261,204,295,200,258,159,264,158,248,168,251,161,205,169,196,165,220,161,205,165,220,156,224,161,205,156,224,153,212,147,228,138,233,140,221,147,228,140,221,147,217,147,228,147,217,153,212,147,228,153,212,156,224,143,326,140,331,142,307,143,326,142,307,143,312,143,326,143,312,144,316,143,326,144,316,144,320,133,278,135,287,136,335,136,335,135,287,138,296,136,335,138,296,140,331,140,331,138,296,140,302,140,331,140,302,142,307,131,337,130,255,130,262,131,337,130,262,131,270,131,337,131,270,133,278,131,337,133,278,136,335,134,235,134,225,140,221,134,235,140,221,138,233,124,132,121,228,121,224,124,132,121,224,120,212,124,132,120,212,119,201,124,132,119,201,119,133,118,192,115,183,119,133,118,192,119,133,119,201,101,215,105,218,106,229,106,229,105,218,112,222,106,229,112,222,117,235,117,235,112,222,121,228,117,235,121,228,121,243,76,280,78,252,85,270,85,270,78,252,87,249,85,270,87,249,93,262,93,262,87,249,97,246,93,262,97,246,101,255,101,255,97,246,106,242,101,255,106,242,110,249,110,249,106,242,117,235,110,249,117,235,121,243,108,317,109,312,109,326,109,326,109,312,110,307,109,326,110,307,111,331,111,331,110,307,111,301,111,169,109,163,110,140,110,140,109,163,108,159,110,140,108,159,108,145,108,145,108,159,107,154,108,145,107,154,107,151,65,215,53,213,57,176,65,215,57,176,61,177,65,215,61,177,65,179,65,215,65,179,69,183,34,193,35,187,35,200,35,200,35,187,37,182,35,200,37,182,39,205,39,205,37,182,41,178,39,205,41,178,45,210,45,210,41,178,46,176,45,210,46,176,53,213,53,213,46,176,52,175,53,213,52,175,57,176,70,286,78,252,76,280,106,229,97,212,101,215,108,317,109,326,108,321,187,178,186,215,182,182,36,270,36,283,35,277,
+318,110,318,143,188,143,188,273,155,273,155,143,24,143,24,110,155,110,155,-20,188,-20,188,110,41,-69,60,-58,76,-44,88,-27,95,-10,98,7,96,22,90,34,81,43,70,49,57,51,47,49,
+188,273,155,273,188,-20,188,-20,155,273,155,143,188,-20,155,143,155,110,155,110,155,143,24,143,155,110,24,143,24,110,188,110,318,110,188,143,188,143,318,110,318,143,188,-20,155,110,155,-20,
+41,-69,60,-58,76,-44,88,-27,95,-10,98,7,96,22,90,34,81,43,70,49,57,51,47,49,39,46,33,40,29,32,27,22,29,13,32,6,38,1,46,-1,56,-2,60,-2,63,-1,66,-1,68,0,73,0,75,-1,78,-4,78,-6,76,-16,71,-27,63,-38,51,-49,36,-60,142,97,142,128,20,128,20,97,90,22,89,30,85,38,79,44,71,49,63,50,54,49,46,45,40,39,37,31,35,22,37,13,40,6,46,0,54,-3,63,-5,71,-3,79,0,85,6,89,13,90,22,143,338,110,338,-3,-6,30,-6,238,165,232,222,218,270,194,307,164,330,
+63,-1,66,-1,70,49,70,49,66,-1,68,0,70,49,68,0,71,0,71,0,73,0,81,43,81,43,73,0,75,-1,81,43,75,-1,77,-3,27,22,29,13,29,32,29,32,29,13,32,6,29,32,32,6,33,40,33,40,32,6,38,1,33,40,38,1,39,46,39,46,38,1,46,-1,39,46,46,-1,47,49,47,49,46,-1,56,-2,47,49,56,-2,57,51,57,51,56,-2,60,-2,57,51,60,-2,70,49,70,49,60,-2,63,-1,98,7,96,22,95,-10,95,-10,96,22,90,34,95,-10,90,34,88,-27,88,-27,90,34,81,43,88,-27,81,43,78,-6,78,-6,76,-16,88,-27,88,-27,76,-16,76,-44,81,43,77,-3,78,-4,81,43,78,-4,78,-6,81,43,70,49,71,0,36,-60,41,-69,51,-49,51,-49,41,-69,60,-58,51,-49,60,-58,63,-38,63,-38,60,-58,76,-44,63,-38,76,-44,71,-27,71,-27,76,-44,76,-16,
+142,97,142,128,20,128,20,97,90,22,89,30,85,38,79,44,
+142,97,142,128,20,128,142,97,20,128,20,97,
+90,22,89,30,85,38,79,44,71,49,63,50,54,49,46,45,40,39,37,31,35,22,37,13,40,6,46,0,54,-3,63,-5,71,-3,79,0,85,6,89,13,90,22,143,338,110,338,-3,-6,30,-6,238,165,232,222,218,270,194,307,164,330,127,338,84,329,52,304,29,266,16,220,12,168,16,118,27,71,48,31,80,3,125,-6,168,2,
+35,22,37,13,37,31,37,31,37,13,40,6,37,31,40,6,40,39,40,39,40,6,46,0,40,39,46,0,46,45,46,45,46,0,54,-3,46,45,54,-3,54,49,54,49,54,-3,62,-5,54,49,62,-5,63,50,63,50,62,-5,71,-3,63,50,71,-3,71,49,71,49,71,-3,79,0,71,49,79,0,79,44,79,44,79,0,85,6,79,44,85,6,85,38,85,38,85,6,89,13,85,38,89,13,89,30,89,30,89,13,90,22,
+143,338,110,338,-3,-6,30,-6,238,165,232,222,218,270,194,307,
+143,338,110,338,-3,-6,143,338,-3,-6,30,-6,
+238,165,232,222,218,270,194,307,164,330,127,338,84,329,52,304,29,266,16,220,12,168,16,118,27,71,48,31,80,3,125,-6,168,2,200,29,222,67,234,114,238,165,16383,16383,190,162,187,108,179,65,166,33,148,13,125,6,102,13,84,33,71,65,63,109,60,165,63,220,71,265,84,298,101,318,124,325,148,318,166,298,179,265,187,219,190,162,197,0,197,7,178,8,164,12,155,18,151,27,150,38,150,336,145,338,55,292,55,286,69,291,74,293,84,295,88,296,92,296,97,295,101,293,104,288,106,281,107,272,107,47,105,33,100,22,92,14,78,10,59,7,59,0,237,69,230,71,221,57,212,48,203,42,193,39,182,38,65,38,147,126,171,153,189,179,202,203,209,226,211,250,207,278,
+101,318,124,325,124,325,127,338,124,325,148,318,127,338,148,318,164,330,164,330,148,318,166,298,164,330,166,298,194,307,194,307,166,298,179,265,194,307,179,265,187,219,166,33,168,2,179,65,179,65,168,2,200,29,179,65,200,29,187,108,187,108,200,29,190,162,194,307,190,162,200,29,194,307,200,29,218,270,218,270,200,29,222,67,218,270,222,67,232,222,232,222,222,67,234,114,232,222,234,114,238,165,125,6,125,-6,148,13,148,13,125,-6,168,2,148,13,168,2,166,33,71,265,84,298,84,329,84,329,84,298,101,318,84,329,101,318,127,338,127,338,101,318,124,325,12,168,16,118,16,220,16,220,16,118,27,71,16,220,27,71,29,266,29,266,27,71,48,31,29,266,48,31,52,304,52,304,48,31,63,109,52,304,63,109,60,165,60,165,63,220,52,304,52,304,63,220,71,265,52,304,71,265,84,329,102,13,84,33,80,3,102,13,80,3,125,-6,102,13,125,-6,125,6,80,3,84,33,71,65,80,3,71,65,63,109,80,3,63,109,48,31,194,307,187,219,190,162,
+197,0,197,7,178,8,164,12,155,18,151,27,150,38,150,336,145,338,55,292,55,286,69,291,74,293,84,295,88,296,92,296,97,295,101,293,104,288,106,281,107,272,107,47,105,33,100,22,92,14,78,10,59,7,59,0,237,69,230,71,221,57,212,48,203,42,193,39,182,38,65,38,147,126,171,153,189,179,202,203,209,226,211,250,207,278,195,302,176,321,150,334,119,338,86,333,59,320,39,299,24,271,15,238,26,236,38,262,50,280,63,292,
+100,22,92,14,197,0,197,0,92,14,78,10,197,0,78,10,59,7,79,294,84,295,145,338,145,338,84,295,88,296,145,338,88,296,92,296,92,296,97,295,145,338,145,338,97,295,101,293,145,338,101,293,104,288,164,12,155,18,107,47,107,47,155,18,151,27,107,47,151,27,107,272,106,281,107,272,145,338,106,281,145,338,104,288,145,338,55,292,69,291,145,338,69,291,74,293,145,338,74,293,79,294,150,38,150,336,145,338,150,38,145,338,107,272,150,38,107,272,151,27,197,0,197,7,178,8,197,0,178,8,164,12,197,0,164,12,105,33,197,0,105,33,100,22,197,0,59,7,59,0,105,33,164,12,107,47,69,291,55,292,55,286,
+237,69,230,71,221,57,212,48,203,42,193,39,182,38,65,38,147,126,171,153,189,179,202,203,209,226,211,250,207,278,195,302,176,321,150,334,119,338,86,333,59,320,39,299,24,271,15,238,26,236,38,262,50,280,63,292,79,299,99,301,123,298,142,289,156,275,165,255,169,230,166,205,159,181,146,155,128,129,103,100,15,6,15,0,210,0,31,255,43,275,57,290,71,300,87,306,105,308,123,306,138,300,149,290,157,275,159,257,157,240,152,224,143,211,132,199,118,190,112,186,105,183,96,179,87,176,76,172,76,165,92,165,104,164,113,163,121,162,127,160,146,152,161,141,171,127,178,109,180,88,176,63,167,42,153,26,135,15,114,11,106,11,99,13,90,15,82,20,71,26,64,31,
+26,236,38,262,39,299,39,299,38,262,50,280,39,299,50,280,59,320,59,320,50,280,63,292,59,320,63,292,86,333,86,333,63,292,79,299,86,333,79,299,99,301,99,301,123,298,119,338,119,338,123,298,150,334,24,271,15,238,26,236,24,271,26,236,39,299,166,205,171,153,169,230,169,230,171,153,176,321,176,321,171,153,189,179,176,321,189,179,195,302,195,302,189,179,202,203,195,302,202,203,207,278,207,278,202,203,209,226,207,278,209,226,211,250,176,321,150,334,156,275,176,321,156,275,165,255,176,321,165,255,169,230,150,334,123,298,142,289,150,334,142,289,156,275,159,181,146,155,147,126,159,181,147,126,171,153,159,181,171,153,166,205,15,0,210,0,15,6,15,6,210,0,65,38,15,6,65,38,103,100,103,100,65,38,147,126,103,100,147,126,128,129,128,129,147,126,146,155,119,338,86,333,99,301,212,48,203,42,210,0,210,0,203,42,193,39,210,0,193,39,182,38,210,0,182,38,65,38,237,69,230,71,221,57,237,69,221,57,212,48,237,69,212,48,210,0,
+31,255,43,275,57,290,71,300,87,306,105,308,123,306,138,300,149,290,157,275,159,257,157,240,152,224,143,211,132,199,118,190,112,186,105,183,96,179,87,176,76,172,76,165,92,165,104,164,113,163,121,162,127,160,146,152,161,141,171,127,178,109,180,88,176,63,167,42,153,26,135,15,114,11,106,11,99,13,90,15,82,20,71,26,64,31,57,35,51,38,41,40,34,39,29,36,25,32,22,27,21,22,23,12,30,4,41,-1,57,-5,76,-6,103,-4,130,0,154,9,175,22,193,40,200,52,207,65,211,79,214,94,215,109,214,125,212,139,207,152,201,164,194,174,187,180,181,185,173,190,164,195,152,200,170,213,183,226,192,241,197,255,199,270,195,292,184,311,168,326,146,335,121,338,92,334,68,323,48,306,33,284,22,257,237,84,237,116,185,116,185,338,163,338,6,116,6,84,146,84,146,0,185,0,185,84,16383,16383,146,116,26,116,146,287,219,340,214,344,210,339,206,335,202,333,197,331,87,331,32,213,32,208,34,206,38,206,65,204,89,199,110,191,129,182,145,171,156,159,166,146,172,131,177,114,178,96,174,71,164,48,149,29,131,16,110,12,104,12,98,14,90,17,83,21,75,27,66,34,58,39,51,41,45,43,38,43,30,42,24,40,19,36,17,31,16,24,19,13,27,5,40,-1,58,-5,79,-6,99,-5,117,-2,134,1,149,8,164,17,182,33,196,51,206,71,211,95,213,122,213,137,211,150,207,162,202,174,195,185,178,205,159,220,137,232,108,241,70,249,90,291,188,291,192,292,198,294,200,296,201,298,223,342,185,337,152,329,123,317,
+22,257,31,255,33,284,33,284,31,255,43,275,33,284,43,275,48,306,48,306,43,275,57,290,48,306,57,290,68,323,68,323,57,290,71,300,68,323,71,300,92,334,92,334,71,300,87,306,92,334,87,306,105,308,105,308,123,306,121,338,121,338,123,306,146,335,123,306,138,300,146,335,146,335,138,300,149,290,146,335,149,290,168,326,168,326,149,290,157,275,168,326,157,275,159,257,159,257,157,240,170,213,170,213,157,240,152,200,170,213,183,226,184,311,184,311,183,226,192,241,184,311,192,241,195,292,195,292,192,241,197,255,195,292,197,255,199,270,170,213,184,311,168,326,170,213,168,326,159,257,152,200,157,240,152,224,152,200,152,224,146,152,152,200,146,152,161,141,152,200,161,141,164,195,164,195,171,127,173,190,173,190,171,127,178,109,173,190,178,109,181,185,181,185,178,109,180,88,193,40,180,88,176,63,193,40,176,63,175,22,175,22,176,63,167,42,175,22,167,42,154,9,154,9,167,42,153,26,154,9,153,26,135,15,132,199,127,160,146,152,132,199,146,152,143,211,143,211,146,152,152,224,215,109,214,125,214,94,214,94,214,125,212,139,214,94,212,139,211,79,211,79,212,139,207,152,211,79,207,152,207,65,207,65,207,152,201,164,207,65,201,164,200,52,200,52,201,164,194,174,200,52,194,174,193,40,193,40,194,174,187,180,193,40,187,180,181,185,103,-4,130,0,106,11,106,11,130,0,114,11,135,15,114,11,130,0,135,15,130,0,154,9,87,176,76,172,92,165,87,176,92,165,96,179,96,179,92,165,104,164,96,179,104,164,105,183,105,183,104,164,113,163,105,183,113,163,112,186,112,186,113,163,118,190,132,199,118,190,121,162,132,199,121,162,127,160,121,338,92,334,105,308,118,190,113,163,121,162,103,-4,106,11,99,13,103,-4,99,13,90,15,103,-4,90,15,82,20,103,-4,82,20,76,-6,76,-6,82,20,71,26,76,-6,71,26,64,31,76,-6,64,31,57,35,76,-6,57,35,57,-5,57,35,51,38,57,-5,57,-5,51,38,46,39,57,-5,46,39,41,-1,41,-1,46,39,41,40,41,-1,41,40,34,39,30,4,41,-1,34,39,30,4,34,39,29,36,30,4,29,36,25,32,30,4,25,32,23,12,22,27,21,22,23,12,22,27,23,12,25,32,92,165,76,172,76,165,180,88,193,40,181,185,164,195,161,141,171,127,
+237,84,237,116,185,116,185,338,163,338,6,116,6,84,146,84,146,0,185,0,185,84,16383,16383,146,116,26,116,146,287,219,340,214,344,210,339,206,335,202,333,197,331,87,331,32,213,32,208,34,206,38,206,65,204,89,199,110,191,129,182,
+6,84,146,84,6,116,6,116,146,84,26,116,6,116,26,116,163,338,163,338,26,116,146,287,163,338,146,287,185,0,185,0,146,287,146,116,185,0,146,116,146,84,146,84,146,116,26,116,163,338,185,0,185,338,185,116,185,84,237,84,185,116,237,84,237,116,185,0,146,84,146,0,
+219,340,214,344,210,339,206,335,202,333,197,331,87,331,32,213,32,208,34,206,38,206,65,204,89,199,110,191,129,182,145,171,156,159,166,146,172,131,177,114,178,96,174,71,164,48,149,29,131,16,110,12,104,12,98,14,90,17,83,21,75,27,66,34,58,39,51,41,45,43,38,43,30,42,24,40,19,36,17,31,16,24,19,13,27,5,40,-1,58,-5,79,-6,99,-5,117,-2,134,1,149,8,164,17,182,33,196,51,206,71,211,95,213,122,213,137,211,150,207,162,202,174,195,185,178,205,159,220,137,232,108,241,70,249,90,291,188,291,192,292,198,294,200,296,201,298,223,342,185,337,152,329,123,317,97,300,71,277,52,254,37,229,26,201,19,171,17,140,18,118,21,98,26,78,33,60,41,44,53,26,68,12,86,1,106,-4,129,-6,148,-5,166,0,182,7,196,17,209,30,218,43,225,57,230,73,233,91,234,109,230,145,217,174,198,196,172,209,140,214,127,213,115,211,103,207,90,201,76,191,89,234,111,270,142,300,180,321,224,334,16383,16383,189,94,187,65,180,41,169,23,154,11,134,7,109,13,89,30,75,56,66,91,64,133,67,157,76,173,89,184,105,189,122,191,146,187,165,175,179,156,187,128,189,94,224,323,224,331,40,331,10,257,
+211,95,213,122,213,137,211,95,213,137,211,150,211,95,211,150,207,162,211,95,207,162,206,71,178,205,178,96,182,33,178,205,182,33,195,185,195,185,182,33,196,51,195,185,196,51,202,174,202,174,196,51,206,71,202,174,206,71,207,162,149,8,164,17,164,48,164,48,164,17,182,33,164,48,182,33,174,71,174,71,182,33,178,96,110,12,117,-2,131,16,131,16,117,-2,134,1,131,16,134,1,149,29,149,29,134,1,149,8,149,29,149,8,164,48,202,333,197,331,198,294,202,333,198,294,200,296,202,333,200,296,201,298,202,333,201,298,219,340,202,333,219,340,206,335,190,331,192,292,197,331,197,331,192,292,195,293,197,331,195,293,198,294,210,339,206,335,219,340,210,339,219,340,214,344,87,331,70,249,90,291,87,331,90,291,190,331,190,331,90,291,188,291,190,331,188,291,192,292,38,206,65,204,70,249,70,249,65,204,89,199,70,249,89,199,108,241,108,241,89,199,110,191,108,241,110,191,137,232,137,232,110,191,129,182,137,232,129,182,145,171,145,171,156,159,159,220,159,220,156,159,166,146,159,220,166,146,178,205,178,205,166,146,172,131,178,205,172,131,177,114,87,331,32,213,33,207,87,331,33,207,34,206,87,331,34,206,36,206,87,331,36,206,38,206,87,331,38,206,70,249,32,213,32,212,33,207,33,207,32,212,32,208,32,208,32,212,32,211,79,-6,99,-5,83,21,79,-6,83,21,75,27,79,-6,75,27,66,34,79,-6,66,34,58,39,79,-6,58,39,58,-5,58,39,51,41,58,-5,58,-5,51,41,45,43,58,-5,45,43,40,-1,40,-1,45,43,38,43,40,-1,38,43,30,42,27,5,40,-1,30,42,27,5,30,42,24,40,27,5,24,40,19,36,27,5,19,36,19,13,17,31,16,24,19,13,17,31,19,13,19,36,104,12,98,14,99,-5,104,12,99,-5,117,-2,104,12,117,-2,110,12,159,220,137,232,145,171,90,17,83,21,99,-5,90,17,99,-5,98,14,178,205,177,114,178,96,32,208,32,211,32,210,
+223,342,185,337,152,329,123,317,97,300,71,277,52,254,37,229,26,201,19,171,17,140,18,118,21,98,26,78,33,60,41,44,53,26,68,12,86,1,106,-4,129,-6,148,-5,166,0,182,7,196,17,209,30,218,43,225,57,230,73,233,91,234,109,230,145,217,174,198,196,172,209,140,214,127,213,115,211,103,207,90,201,76,191,89,234,111,270,142,300,180,321,224,334,16383,16383,189,94,187,65,180,41,169,23,154,11,134,7,109,13,89,30,75,56,66,91,64,133,67,157,76,173,89,184,105,189,122,191,146,187,165,175,179,156,187,128,189,94,224,323,224,331,40,331,10,257,19,253,30,270,40,282,51,289,62,293,78,294,185,294,86,-3,118,-3,223,78,220,100,213,121,199,141,177,162,145,185,171,200,190,215,203,229,210,246,212,267,208,289,197,309,179,324,156,334,128,338,97,335,70,324,49,308,36,287,31,260,33,242,38,225,49,208,67,189,93,166,66,145,47,127,35,111,30,94,28,75,32,48,45,25,66,8,92,-2,124,-6,157,-2,185,8,205,26,218,49,223,78,16383,16383,177,267,176,249,171,234,162,220,149,207,131,195,107,210,90,225,77,240,70,257,68,275,71,292,78,305,
+140,214,127,213,146,187,146,187,127,213,122,191,105,189,122,191,115,211,105,189,115,211,103,207,64,133,67,157,71,277,71,277,67,157,76,173,71,277,76,173,76,191,76,191,76,173,89,184,76,191,89,184,90,201,90,201,89,184,105,189,90,201,105,189,103,207,127,213,115,211,122,191,187,65,180,41,182,7,182,7,180,41,169,23,182,7,169,23,166,0,166,0,169,23,154,11,166,0,154,11,148,-5,148,-5,154,11,134,7,148,-5,134,7,129,-6,129,-6,134,7,109,13,129,-6,109,13,106,-4,106,-4,109,13,89,30,106,-4,89,30,86,1,86,1,89,30,75,56,86,1,75,56,68,12,68,12,75,56,66,91,68,12,66,91,64,133,53,26,68,12,64,133,64,133,71,277,53,26,53,26,71,277,52,254,53,26,52,254,41,44,41,44,52,254,37,229,41,44,37,229,33,60,33,60,37,229,26,78,218,43,225,57,230,145,230,145,225,57,230,73,230,145,230,73,234,109,234,109,230,73,233,91,189,94,196,17,198,196,198,196,196,17,209,30,198,196,209,30,217,174,217,174,209,30,218,43,217,174,218,43,230,145,146,187,165,175,172,209,172,209,165,175,179,156,172,209,179,156,198,196,198,196,179,156,187,128,198,196,187,128,189,94,187,65,182,7,196,17,187,65,196,17,189,94,76,191,89,234,97,300,97,300,89,234,111,270,97,300,111,270,123,317,123,317,111,270,142,300,123,317,142,300,152,329,152,329,142,300,180,321,152,329,180,321,185,337,185,337,180,321,224,334,185,337,224,334,223,342,97,300,71,277,76,191,17,140,18,118,19,171,19,171,18,118,21,98,19,171,21,98,26,201,26,201,21,98,26,78,26,201,26,78,37,229,140,214,146,187,172,209,
+224,323,224,331,40,331,10,257,19,253,30,270,40,282,51,289,62,293,78,294,185,294,86,-3,118,-3,223,78,220,100,213,121,199,141,177,162,145,185,171,200,190,215,203,229,210,246,212,267,208,289,197,309,
+118,-3,224,323,185,294,185,294,224,323,224,331,185,294,224,331,78,294,62,293,78,294,224,331,62,293,224,331,40,331,40,331,10,257,19,253,40,331,19,253,30,270,40,331,30,270,40,282,40,331,40,282,51,289,40,331,51,289,62,293,118,-3,185,294,86,-3,
+223,78,220,100,213,121,199,141,177,162,145,185,171,200,190,215,203,229,210,246,212,267,208,289,197,309,179,324,156,334,128,338,97,335,70,324,49,308,36,287,31,260,33,242,38,225,49,208,67,189,93,166,66,145,47,127,35,111,30,94,28,75,32,48,45,25,66,8,92,-2,124,-6,157,-2,185,8,205,26,218,49,223,78,16383,16383,177,267,176,249,171,234,162,220,149,207,131,195,107,210,90,225,77,240,70,257,68,275,71,292,78,305,89,316,104,322,123,324,142,322,157,314,168,302,175,286,177,267,16383,16383,136,136,154,122,167,109,177,95,183,79,185,62,182,44,175,29,163,17,148,10,129,7,108,10,91,19,77,34,69,54,66,79,67,97,71,113,79,128,90,142,106,156,30,-10,65,-4,95,3,121,13,145,28,170,49,191,72,208,100,220,130,227,163,229,197,228,221,224,244,217,265,209,284,198,300,185,313,171,324,155,332,138,337,119,338,85,332,57,316,35,291,20,258,15,220,19,186,31,158,50,137,75,123,105,118,122,119,138,122,153,128,167,136,180,147,164,101,140,63,109,33,71,12,28,0,16383,16383,181,177,177,163,167,153,153,146,137,141,123,140,102,144,85,157,72,177,64,204,61,237,62,253,64,269,68,284,73,297,79,307,84,313,91,318,98,321,106,323,115,324,139,319,157,304,170,278,178,243,181,197,96,201,95,210,91,218,85,224,77,228,69,229,60,228,52,224,46,218,42,211,41,201,42,193,46,185,52,179,60,176,69,174,77,176,
+167,109,177,162,154,122,154,122,177,162,145,185,154,122,145,185,136,136,136,136,145,185,149,207,136,136,149,207,131,195,131,195,107,210,136,136,136,136,107,210,106,156,90,142,106,156,93,166,66,8,69,54,66,79,66,79,67,97,66,145,66,145,67,97,71,113,66,145,71,113,93,166,93,166,71,113,79,128,93,166,79,128,90,142,30,94,32,48,35,111,35,111,32,48,45,25,35,111,45,25,47,127,47,127,45,25,66,8,47,127,66,8,66,145,66,145,66,8,66,79,107,210,90,225,93,166,107,210,93,166,106,156,90,225,77,240,93,166,93,166,77,240,70,257,93,166,70,257,67,189,67,189,70,257,68,275,70,324,68,275,71,292,70,324,71,292,78,305,128,338,123,324,142,322,128,338,142,322,156,334,156,334,142,322,157,314,156,334,157,314,179,324,179,324,157,314,168,302,179,324,168,302,175,286,182,44,175,29,185,8,185,8,175,29,163,17,185,8,163,17,157,-2,157,-2,163,17,148,10,157,-2,148,10,129,7,129,7,108,10,124,-6,124,-6,108,10,92,-2,92,-2,108,10,91,19,92,-2,91,19,77,34,92,-2,77,34,69,54,92,-2,69,54,66,8,78,305,89,316,97,335,97,335,89,316,104,322,97,335,104,322,128,338,128,338,104,322,123,324,49,308,36,287,38,225,49,308,38,225,49,208,49,308,49,208,67,189,49,308,67,189,68,275,49,308,68,275,70,324,36,287,31,260,33,242,36,287,33,242,38,225,171,200,190,215,176,249,176,249,190,215,177,267,179,324,177,267,190,215,179,324,190,215,197,309,197,309,190,215,203,229,197,309,203,229,208,289,208,289,203,229,210,246,208,289,210,246,212,267,171,200,176,249,171,234,171,200,171,234,162,220,171,200,162,220,149,207,171,200,149,207,145,185,223,78,220,100,218,49,218,49,220,100,213,121,218,49,213,121,205,26,205,26,213,121,199,141,205,26,199,141,185,62,185,62,199,141,183,79,177,95,183,79,199,141,177,95,199,141,177,162,177,95,177,162,167,109,185,62,185,8,205,26,129,7,124,-6,157,-2,182,44,185,8,185,62,179,324,175,286,177,267,70,324,78,305,97,335,32,48,30,94,28,75,
+30,-10,65,-4,95,3,121,13,145,28,170,49,191,72,208,100,220,130,227,163,229,197,228,221,224,244,217,265,209,284,198,300,185,313,171,324,155,332,138,337,119,338,85,332,57,316,35,291,20,258,15,220,19,186,31,158,50,137,75,123,105,118,122,119,138,122,153,128,167,136,180,147,164,101,140,63,109,33,71,12,28,0,16383,16383,181,177,177,163,167,153,153,146,137,141,123,140,102,144,85,157,72,177,64,204,61,237,62,253,64,269,68,284,73,297,79,307,84,313,91,318,98,321,106,323,115,324,139,319,157,304,170,278,178,243,181,197,96,201,95,210,91,218,85,224,77,228,69,229,60,228,52,224,46,218,42,211,41,201,42,193,46,185,52,179,60,176,69,174,77,176,85,179,91,185,95,193,96,201,16383,16383,96,22,95,31,91,38,85,45,77,49,69,50,60,49,52,45,46,39,42,31,41,22,42,13,46,6,52,0,60,-3,69,-5,77,-3,85,0,91,6,95,13,96,22,95,201,94,210,90,218,84,224,77,228,68,229,59,228,51,224,45,218,42,211,40,201,42,193,46,185,52,179,59,176,68,174,77,176,84,179,90,185,94,193,95,201,16383,16383,54,-69,73,-58,88,-44,
+62,253,64,269,57,316,57,316,64,269,68,284,57,316,68,284,85,332,85,332,68,284,73,297,85,332,73,297,79,307,79,307,84,313,85,332,85,332,84,313,91,318,85,332,91,318,119,338,119,338,91,318,98,321,119,338,98,321,106,323,119,338,106,323,115,324,115,324,139,319,119,338,119,338,139,319,138,337,123,140,105,118,122,119,123,140,122,119,138,122,123,140,102,144,105,118,85,157,72,177,75,123,85,157,75,123,105,118,85,157,105,118,102,144,61,237,62,253,57,316,61,237,57,316,50,137,61,237,50,137,64,204,64,204,50,137,75,123,64,204,75,123,72,177,15,220,19,186,20,258,20,258,19,186,31,158,20,258,31,158,35,291,35,291,31,158,50,137,35,291,50,137,57,316,137,141,123,140,138,122,137,141,138,122,153,146,153,146,138,122,153,128,153,146,153,128,167,153,167,153,153,128,167,136,167,153,167,136,177,163,177,163,167,136,180,147,177,163,180,147,181,177,181,177,180,147,191,72,181,177,191,72,181,197,178,243,181,197,185,313,178,243,185,313,171,324,138,337,139,319,155,332,155,332,139,319,157,304,155,332,157,304,171,324,171,324,157,304,170,278,171,324,170,278,178,243,229,197,228,221,227,163,227,163,228,221,224,244,227,163,224,244,220,130,220,130,224,244,217,265,220,130,217,265,209,284,220,130,209,284,208,100,208,100,209,284,198,300,208,100,198,300,191,72,191,72,198,300,185,313,191,72,185,313,181,197,30,-10,65,-4,71,12,71,12,65,-4,95,3,71,12,95,3,109,33,109,33,95,3,121,13,109,33,121,13,140,63,140,63,121,13,145,28,140,63,145,28,164,101,164,101,145,28,170,49,164,101,170,49,180,147,180,147,170,49,191,72,71,12,28,0,30,-10,
+96,201,95,210,91,218,85,224,77,228,69,229,60,228,52,224,46,218,42,211,41,201,42,193,46,185,52,179,60,176,69,174,77,176,85,179,91,185,95,193,96,201,16383,16383,96,22,95,31,91,38,85,45,77,49,69,50,60,49,52,45,46,39,42,31,41,22,42,13,46,6,52,0,60,-3,69,-5,77,-3,85,0,91,6,95,13,96,22,95,201,94,210,90,218,84,224,77,228,68,229,59,228,51,224,45,218,42,211,40,201,42,193,46,185,52,179,59,176,68,174,77,176,84,179,90,185,94,193,95,201,16383,16383,54,-69,73,-58,88,-44,100,-28,107,-11,109,7,107,22,102,34,93,43,82,49,70,51,60,49,52,46,46,40,42,32,40,23,41,14,45,7,51,2,59,-1,69,-2,
+42,211,42,193,46,218,46,218,42,193,46,185,46,218,46,185,52,224,52,224,46,185,52,179,52,224,52,179,60,228,60,228,52,179,60,176,60,228,60,176,69,229,69,229,60,176,69,174,69,229,69,174,77,228,77,228,69,174,77,176,77,228,77,176,85,224,85,224,77,176,85,179,85,224,85,179,91,218,91,218,85,179,91,185,91,218,91,185,95,210,95,210,91,185,95,193,95,210,95,193,96,201,42,31,42,13,46,39,46,39,42,13,46,6,46,39,46,6,52,45,52,45,46,6,52,0,52,45,52,0,60,49,60,49,52,0,60,-3,60,49,60,-3,69,50,69,50,60,-3,69,-5,69,50,69,-5,77,49,77,49,69,-5,77,-3,77,49,77,-3,85,45,85,45,77,-3,85,0,85,45,85,0,91,38,91,38,85,0,91,6,91,38,91,6,95,31,95,31,91,6,95,13,95,31,95,13,96,22,42,13,42,31,41,22,42,193,42,211,41,201,
+95,201,94,210,90,218,84,224,77,228,68,229,59,228,51,224,45,218,42,211,40,201,42,193,46,185,52,179,59,176,68,174,77,176,84,179,90,185,94,193,95,201,16383,16383,54,-69,73,-58,88,-44,100,-28,107,-11,109,7,107,22,102,34,93,43,82,49,70,51,60,49,52,46,46,40,42,32,40,23,41,14,45,7,51,2,59,-1,69,-2,72,-2,75,-1,78,-1,81,0,85,0,87,-2,89,-3,90,-5,90,-7,88,-17,83,-28,75,-38,63,-49,49,-60,310,-11,310,20,94,127,310,234,310,267,28,129,28,124,319,160,319,193,24,193,24,160,16383,16383,319,60,319,93,24,93,24,60,310,124,310,129,28,267,28,234,244,127,28,20,28,-11,122,82,126,101,131,118,137,133,145,147,155,161,176,187,191,208,201,226,206,242,207,259,202,286,189,308,169,324,144,335,116,338,89,335,66,325,49,310,38,290,34,267,35,255,38,246,44,239,50,235,58,233,65,234,71,237,75,242,78,248,79,255,77,264,72,270,66,276,
+42,211,42,193,45,218,45,218,42,193,46,185,45,218,46,185,51,224,51,224,46,185,52,179,51,224,52,179,59,228,59,228,52,179,59,176,59,228,59,176,68,229,68,229,59,176,68,174,68,229,68,174,77,228,77,228,68,174,77,176,77,228,77,176,84,224,84,224,77,176,84,179,84,224,84,179,90,218,90,218,84,179,90,185,90,218,90,185,94,210,94,210,90,185,94,193,94,210,94,193,95,201,75,-1,78,-1,82,49,82,49,78,-1,81,0,82,49,81,0,83,0,83,0,85,0,93,43,93,43,85,0,87,-2,93,43,87,-2,89,-3,40,23,41,14,42,32,42,32,41,14,45,7,42,32,45,7,46,40,46,40,45,7,51,2,46,40,51,2,52,46,52,46,51,2,59,-1,52,46,59,-1,60,49,60,49,59,-1,69,-2,60,49,69,-2,70,51,70,51,69,-2,72,-2,70,51,72,-2,82,49,82,49,72,-2,75,-1,109,7,107,22,107,-11,107,-11,107,22,102,34,107,-11,102,34,100,-28,100,-28,102,34,93,43,100,-28,93,43,90,-7,90,-7,88,-44,100,-28,93,43,89,-3,90,-5,93,43,90,-5,90,-7,93,43,82,49,83,0,88,-44,90,-7,88,-17,88,-44,88,-17,83,-28,88,-44,83,-28,75,-38,88,-44,75,-38,73,-58,63,-49,49,-60,54,-69,63,-49,54,-69,73,-58,63,-49,73,-58,75,-38,42,193,42,211,40,201,
+310,-11,310,20,94,127,310,234,310,267,28,129,28,124,319,160,319,193,24,193,24,160,16383,16383,319,60,319,93,
+94,127,310,234,310,267,94,127,310,267,28,129,94,127,28,129,310,-11,94,127,310,-11,310,20,310,-11,28,129,28,124,
+319,160,319,193,24,193,24,160,16383,16383,319,60,319,93,24,93,24,60,310,124,310,129,28,267,28,234,244,127,28,20,28,-11,122,82,126,101,
+24,193,24,160,319,160,24,193,319,160,319,193,24,93,24,60,319,60,24,93,319,60,319,93,
+310,124,310,129,28,267,28,234,244,127,28,20,28,-11,122,82,126,101,131,118,137,133,145,147,155,161,176,187,
+310,124,310,129,28,267,310,124,28,267,28,234,310,124,28,234,244,127,310,124,244,127,28,20,310,124,28,20,28,-11,
+122,82,126,101,131,118,137,133,145,147,155,161,176,187,191,208,201,226,206,242,207,259,202,286,189,308,169,324,144,335,116,338,89,335,66,325,49,310,38,290,34,267,35,255,38,246,44,239,50,235,58,233,65,234,71,237,75,242,78,248,79,255,77,264,72,270,66,276,62,283,60,292,62,301,69,310,80,317,92,321,107,323,124,320,139,312,151,300,159,283,161,264,160,246,156,227,150,209,136,171,126,147,120,127,116,109,114,95,113,82,16383,16383,145,22,144,30,140,38,134,44,127,48,119,49,110,48,103,44,97,38,93,31,92,22,93,14,97,7,102,1,110,-2,119,-3,127,-2,135,1,140,7,144,14,145,22,344,36,323,27,303,20,283,16,263,13,243,12,196,19,156,40,126,71,107,112,100,161,101,184,105,206,112,227,120,247,131,265,148,285,167,301,189,313,214,320,241,323,286,316,326,296,357,267,377,229,384,186,381,157,372,130,358,108,341,94,321,88,314,89,308,92,304,96,301,103,300,112,300,115,301,117,301,120,334,247,300,247,295,228,294,228,289,238,284,245,276,250,268,253,257,254,242,252,229,248,216,241,204,231,194,219,183,203,174,185,167,167,162,147,161,128,163,109,169,93,179,82,191,75,204,72,219,74,232,78,245,86,257,96,267,108,268,108,271,96,279,86,288,78,300,73,313,71,341,78,366,95,386,121,
+60,292,60,292,60,292,60,292,66,325,49,310,60,292,49,310,50,235,60,292,50,235,58,233,144,335,116,338,124,320,124,320,116,338,107,323,92,321,107,323,116,338,92,321,116,338,89,335,60,292,62,301,66,325,66,325,62,301,69,310,66,325,69,310,89,335,89,335,69,310,80,317,89,335,80,317,92,321,34,267,35,255,38,290,38,290,35,255,38,246,38,290,38,246,49,310,49,310,38,246,44,239,49,310,44,239,50,235,62,283,65,234,66,276,66,276,65,234,71,237,66,276,71,237,72,270,72,270,71,237,75,242,72,270,75,242,77,264,77,264,75,242,78,248,77,264,78,248,79,255,65,234,62,283,60,292,65,234,60,292,58,233,119,49,119,-3,127,48,127,48,119,-3,127,-2,127,48,127,-2,134,44,134,44,127,-2,135,1,134,44,135,1,140,38,140,38,135,1,140,7,140,38,140,7,144,30,144,30,140,7,144,14,144,30,144,14,145,22,92,22,93,14,93,31,93,31,93,14,97,7,93,31,97,7,97,38,97,38,97,7,102,1,97,38,102,1,103,44,103,44,102,1,110,-2,103,44,110,-2,110,48,110,48,110,-2,119,-3,110,48,119,-3,119,49,124,320,139,312,144,335,144,335,139,312,151,300,144,335,151,300,169,324,169,324,151,300,159,283,169,324,159,283,161,264,161,264,160,246,176,187,176,187,160,246,156,227,176,187,156,227,155,161,155,161,156,227,150,209,155,161,150,209,145,147,145,147,150,209,143,190,145,147,143,190,137,133,137,133,143,190,136,171,137,133,136,171,131,118,131,118,136,171,126,147,131,118,126,147,126,101,126,101,126,147,122,82,202,286,189,308,191,208,202,286,191,208,201,226,202,286,201,226,206,242,202,286,206,242,207,259,176,187,191,208,189,308,176,187,189,308,169,324,176,187,169,324,161,264,122,82,126,147,120,127,122,82,120,127,116,109,122,82,116,109,114,95,122,82,114,95,113,82,
+344,36,323,27,303,20,283,16,263,13,243,12,196,19,156,40,126,71,107,112,100,161,101,184,105,206,112,227,120,247,131,265,148,285,167,301,189,313,214,320,241,323,286,316,326,296,357,267,377,229,384,186,381,157,372,130,358,108,341,94,321,88,314,89,308,92,304,96,301,103,300,112,300,115,301,117,301,120,334,247,300,247,295,228,294,228,289,238,284,245,276,250,268,253,257,254,242,252,229,248,216,241,204,231,194,219,183,203,174,185,167,167,162,147,161,128,163,109,169,93,179,82,191,75,204,72,219,74,232,78,245,86,257,96,267,108,268,108,271,96,279,86,288,78,300,73,313,71,341,78,366,95,386,121,400,154,405,191,396,238,374,279,338,310,293,331,241,338,215,337,191,333,169,326,148,316,128,304,105,282,86,257,71,228,61,197,58,164,67,108,93,61,132,24,182,1,241,-6,261,-5,281,-2,302,2,324,10,350,22,16383,16383,286,202,285,187,282,171,277,155,271,138,264,123,257,113,250,105,242,99,234,95,226,94,216,96,207,101,201,110,197,122,196,137,197,150,199,163,203,175,208,186,214,197,223,209,234,219,244,226,254,231,263,232,271,231,277,227,282,221,285,213,286,202,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,211,175,225,178,236,182,245,185,259,195,266,203,272,213,276,224,279,235,280,248,274,277,258,300,232,317,195,327,148,331,8,331,8,321,29,320,43,316,51,308,55,295,56,275,56,56,55,37,51,24,42,16,29,11,8,9,8,0,177,0,217,4,250,15,275,34,291,58,296,89,295,102,292,115,287,126,281,137,272,147,263,154,254,160,242,166,229,170,211,174,16383,16383,108,183,108,303,109,307,112,310,115,312,119,313,140,313,172,309,197,301,214,287,225,268,228,245,225,223,217,205,202,193,181,186,153,183,16383,16383,108,163,139,162,162,161,181,158,198,152,215,143,224,136,231,126,235,115,238,103,239,89,238,77,236,66,232,56,227,47,220,40,207,30,194,24,179,20,161,19,138,18,126,19,118,21,112,26,109,32,
+156,40,126,71,132,24,132,24,126,71,107,112,132,24,107,112,93,61,93,61,107,112,100,161,105,282,100,161,101,184,105,282,101,184,105,206,105,206,112,227,128,304,128,304,112,227,120,247,128,304,120,247,131,265,131,265,148,285,148,316,148,316,148,285,167,301,148,316,167,301,169,326,169,326,167,301,189,313,169,326,189,313,191,333,191,333,189,313,214,320,191,333,214,320,215,337,215,337,214,320,241,323,215,337,241,323,241,338,241,338,241,323,293,331,93,61,100,161,105,282,93,61,105,282,86,257,93,61,86,257,71,228,93,61,71,228,67,108,61,197,58,164,67,108,61,197,67,108,71,228,384,186,386,121,396,238,384,186,396,238,377,229,377,229,396,238,374,279,377,229,374,279,357,267,357,267,374,279,338,310,357,267,338,310,326,296,326,296,338,310,293,331,326,296,293,331,286,316,286,316,293,331,241,323,148,316,128,304,131,265,344,36,323,27,324,10,324,10,323,27,303,20,324,10,303,20,302,2,302,2,303,20,283,16,302,2,283,16,281,-2,281,-2,283,16,263,13,281,-2,263,13,261,-5,261,-5,263,13,243,12,261,-5,243,12,241,-6,241,-6,243,12,196,19,241,-6,196,19,182,1,182,1,196,19,156,40,182,1,156,40,132,24,276,250,268,253,271,231,271,231,268,253,263,232,254,231,263,232,257,254,254,231,257,254,244,226,244,226,257,254,242,252,244,226,242,252,234,219,234,219,242,252,229,248,234,219,229,248,223,209,223,209,229,248,216,241,223,209,216,241,214,197,199,163,203,175,204,231,204,231,203,175,208,186,204,231,208,186,216,241,216,241,208,186,214,197,194,219,196,137,197,150,194,219,197,150,204,231,204,231,197,150,199,163,201,110,204,72,207,101,207,101,204,72,219,74,207,101,219,74,216,96,216,96,219,74,226,94,234,95,226,94,232,78,234,95,232,78,245,86,197,122,196,137,191,75,197,122,191,75,204,72,197,122,204,72,201,110,196,137,194,219,191,75,191,75,194,219,183,203,191,75,183,203,179,82,179,82,183,203,174,185,179,82,174,185,169,93,169,93,174,185,167,167,169,93,167,167,163,109,163,109,167,167,162,147,163,109,162,147,161,128,268,253,257,254,263,232,267,108,268,108,271,138,267,108,271,138,264,123,264,123,257,113,267,108,267,108,257,113,257,96,308,92,304,96,312,71,312,71,304,96,301,103,312,71,301,103,300,73,300,73,301,103,300,112,300,115,301,117,300,247,300,247,301,117,301,119,300,247,301,119,301,120,301,120,334,247,300,247,300,247,295,228,300,73,300,247,300,73,300,112,300,247,300,112,300,114,300,247,300,114,300,115,295,228,294,228,300,73,300,73,294,228,289,238,300,73,289,238,288,78,288,78,289,238,286,202,288,78,286,202,285,187,288,78,285,187,282,171,285,213,286,202,289,238,285,213,289,238,284,245,285,213,284,245,282,221,277,227,282,221,284,245,277,227,284,245,276,250,277,227,276,250,271,231,384,186,381,157,386,121,386,121,381,157,372,130,386,121,372,130,366,95,366,95,372,130,358,108,366,95,358,108,341,78,341,78,358,108,341,94,341,78,341,94,321,88,321,88,314,89,341,78,341,78,314,89,312,71,396,238,386,121,400,154,396,238,400,154,405,191,288,78,282,171,279,86,279,86,282,171,277,155,279,86,277,155,271,96,271,96,277,155,271,138,271,96,271,138,268,108,250,105,242,99,245,86,250,105,245,86,257,96,250,105,257,96,257,113,226,94,219,74,232,78,234,95,245,86,242,99,308,92,312,71,314,89,344,36,324,10,350,22,105,282,105,206,128,304,
+353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,211,175,225,178,236,182,245,185,259,195,266,203,272,213,276,224,279,235,280,248,274,277,258,300,232,317,195,327,148,331,8,331,8,321,29,320,43,316,51,308,55,295,56,275,56,56,55,37,51,24,42,16,29,11,8,9,8,0,177,0,217,4,250,15,275,34,291,58,296,89,295,102,292,115,287,126,281,137,272,147,263,154,254,160,242,166,229,170,211,174,16383,16383,108,183,
+55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,
+211,175,225,178,236,182,245,185,259,195,266,203,272,213,276,224,279,235,280,248,274,277,258,300,232,317,195,327,148,331,8,331,8,321,29,320,43,316,51,308,55,295,56,275,56,56,55,37,51,24,42,16,29,11,8,9,8,0,177,0,217,4,250,15,275,34,291,58,296,89,295,102,292,115,287,126,281,137,272,147,263,154,254,160,242,166,229,170,211,174,16383,16383,108,183,108,303,109,307,112,310,115,312,119,313,140,313,172,309,197,301,214,287,225,268,228,245,225,223,217,205,202,193,181,186,153,183,16383,16383,108,163,139,162,162,161,181,158,198,152,215,143,224,136,231,126,235,115,238,103,239,89,238,77,236,66,232,56,227,47,220,40,207,30,194,24,179,20,161,19,138,18,126,19,118,21,112,26,109,32,108,41,307,65,285,47,265,32,244,23,222,17,197,15,177,17,157,21,139,28,123,38,108,51,95,68,85,88,78,112,73,140,72,171,77,219,93,260,117,291,151,311,192,318,211,316,228,311,244,304,259,293,272,280,279,272,285,263,290,252,295,240,299,224,310,224,305,338,296,338,293,332,290,328,285,324,280,322,275,321,269,322,262,324,254,326,240,330,228,333,204,337,192,338,180,338,153,336,127,330,102,320,80,305,59,286,44,266,31,243,22,218,16,191,14,162,16,133,22,106,32,80,45,57,62,37,81,22,103,9,127,0,153,-4,180,-6,214,-4,245,3,273,16,297,34,316,56,8,331,8,321,27,320,40,316,47,308,51,295,52,275,52,57,51,38,48,25,40,16,27,12,8,9,8,0,148,0,178,1,206,6,231,12,
+51,24,42,16,177,0,177,0,42,16,29,11,177,0,29,11,8,9,55,295,56,275,112,310,55,295,112,310,148,331,148,331,112,310,115,312,148,331,115,312,119,313,148,331,119,313,140,313,148,331,140,313,172,309,207,30,194,24,217,4,217,4,194,24,179,20,217,4,179,20,177,0,177,0,179,20,161,19,177,0,161,19,138,18,138,18,126,19,177,0,177,0,126,19,118,21,177,0,118,21,55,37,55,37,118,21,56,56,258,300,232,317,236,182,236,182,232,317,228,245,236,182,228,245,225,223,236,182,225,223,225,178,225,178,225,223,217,205,225,178,217,205,211,175,211,175,217,205,202,193,211,175,202,193,211,174,211,174,202,193,215,143,211,174,215,143,229,170,229,170,215,143,224,136,153,183,162,161,181,186,181,186,162,161,181,158,181,186,181,158,202,193,202,193,181,158,198,152,202,193,198,152,215,143,236,66,232,56,250,15,250,15,232,56,227,47,250,15,227,47,220,40,220,40,207,30,217,4,162,161,153,183,139,162,139,162,153,183,108,183,139,162,108,183,108,163,109,32,108,41,56,275,109,32,56,275,56,56,56,56,118,21,112,26,56,56,112,26,109,32,272,147,263,154,275,34,275,34,263,154,254,160,275,34,254,160,250,15,250,15,254,160,242,166,250,15,242,166,239,89,239,89,238,77,250,15,250,15,238,77,236,66,242,166,229,170,231,126,242,166,231,126,235,115,242,166,235,115,238,103,242,166,238,103,239,89,232,317,195,327,197,301,232,317,197,301,214,287,232,317,214,287,225,268,232,317,225,268,228,245,195,327,148,331,172,309,195,327,172,309,197,301,56,275,108,41,108,296,56,275,108,296,108,303,56,275,108,303,109,307,56,275,109,307,112,310,148,331,8,331,29,320,148,331,29,320,43,316,148,331,43,316,51,308,148,331,51,308,55,295,266,203,272,213,274,277,274,277,272,213,276,224,274,277,276,224,280,248,280,248,276,224,279,235,245,185,252,190,258,300,258,300,252,190,259,195,258,300,259,195,274,277,274,277,259,195,266,203,292,115,287,126,291,58,292,115,291,58,296,89,292,115,296,89,295,102,281,137,272,147,275,34,281,137,275,34,291,58,281,137,291,58,287,126,220,40,217,4,250,15,258,300,236,182,245,185,29,320,8,331,8,321,229,170,224,136,231,126,177,0,8,9,8,0,51,24,177,0,55,37,
+307,65,285,47,265,32,244,23,222,17,197,15,177,17,157,21,139,28,123,38,108,51,95,68,85,88,78,112,73,140,72,171,77,219,93,260,117,291,151,311,192,318,211,316,228,311,244,304,259,293,272,280,279,272,285,263,290,252,295,240,299,224,310,224,305,338,296,338,293,332,290,328,285,324,280,322,275,321,269,322,262,324,254,326,240,330,228,333,204,337,192,338,180,338,153,336,127,330,102,320,80,305,59,286,44,266,31,243,22,218,16,191,14,162,16,133,22,106,32,80,45,57,62,37,81,22,103,9,127,0,153,-4,180,-6,214,-4,245,3,273,16,297,34,316,56,8,331,8,321,27,320,40,316,47,308,51,295,52,275,52,57,51,38,48,25,40,16,27,12,8,9,8,0,148,0,178,1,206,6,231,12,254,21,275,32,299,51,318,75,331,102,340,133,343,167,341,196,334,223,324,247,310,267,293,286,270,302,244,314,214,323,180,329,143,331,16383,16383,103,291,104,300,107,306,112,310,119,312,129,313,157,311,182,308,203,301,222,291,241,278,257,260,271,241,280,219,286,193,288,164,286,132,280,104,270,81,255,61,236,45,218,34,200,27,179,22,155,19,127,18,117,19,110,22,106,26,104,33,103,42,299,84,285,84,271,57,255,38,234,26,
+62,37,73,140,72,171,72,171,80,305,62,37,62,37,80,305,59,286,62,37,59,286,45,57,45,57,59,286,44,266,45,57,44,266,32,80,32,80,44,266,31,243,32,80,31,243,22,106,22,106,31,243,22,218,22,106,22,218,16,133,16,133,22,218,16,191,16,133,16,191,14,162,78,112,81,22,85,88,85,88,81,22,103,9,85,88,103,9,95,68,95,68,103,9,108,51,123,38,108,51,127,0,123,38,127,0,139,28,139,28,127,0,153,-4,139,28,153,-4,157,21,157,21,153,-4,180,-6,157,21,180,-6,177,17,177,17,180,-6,197,15,222,17,197,15,214,-4,222,17,214,-4,245,3,73,140,62,37,81,22,73,140,81,22,78,112,108,51,103,9,127,0,254,326,259,293,262,324,262,324,259,293,272,280,262,324,272,280,269,322,269,322,272,280,275,321,280,322,275,321,279,272,280,322,279,272,285,263,275,321,272,280,279,272,228,333,228,311,240,330,240,330,228,311,244,304,240,330,244,304,247,328,247,328,244,304,259,293,247,328,259,293,254,326,216,335,204,337,211,316,216,335,211,316,228,311,216,335,228,311,228,333,204,337,192,338,211,316,211,316,192,338,192,318,151,311,192,318,153,336,151,311,153,336,127,330,310,224,305,338,299,224,299,224,305,338,296,338,299,224,296,338,295,240,295,240,296,338,293,332,295,240,293,332,290,252,290,252,293,332,290,328,290,252,290,328,285,263,285,263,290,328,285,324,285,263,285,324,280,322,316,56,307,65,297,34,297,34,307,65,285,47,297,34,285,47,273,16,273,16,285,47,265,32,273,16,265,32,245,3,245,3,265,32,244,23,245,3,244,23,222,17,197,15,180,-6,214,-4,192,318,192,338,180,338,192,318,180,338,153,336,72,171,77,219,80,305,80,305,77,219,93,260,80,305,93,260,102,320,102,320,93,260,117,291,102,320,117,291,127,330,127,330,117,291,151,311,
+8,331,8,321,27,320,40,316,47,308,51,295,52,275,52,57,51,38,48,25,40,16,27,12,8,9,8,0,148,0,178,1,206,6,231,12,254,21,275,32,299,51,318,75,331,102,340,133,343,167,341,196,334,223,324,247,310,267,293,286,270,302,244,314,214,323,180,329,143,331,16383,16383,103,291,104,300,107,306,112,310,119,312,129,313,157,311,182,308,203,301,222,291,241,278,257,260,271,241,280,219,286,193,288,164,286,132,280,104,270,81,255,61,236,45,218,34,200,27,179,22,155,19,127,18,117,19,110,22,106,26,104,33,103,42,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,273,259,271,331,6,331,6,321,25,319,38,315,45,307,49,294,50,276,50,61,
+48,25,40,16,148,0,148,0,40,16,27,12,148,0,27,12,8,9,52,57,51,38,110,22,110,22,51,38,148,0,110,22,148,0,117,19,117,19,148,0,127,18,155,19,127,18,148,0,155,19,148,0,178,1,104,300,107,306,52,275,52,275,107,306,112,310,52,275,112,310,143,331,143,331,112,310,119,312,143,331,119,312,129,313,129,313,119,312,129,312,129,313,129,312,157,311,129,313,157,311,143,331,143,331,157,311,180,329,206,6,231,12,218,34,218,34,231,12,236,45,255,61,236,45,254,21,255,61,254,21,275,32,155,19,178,1,179,22,179,22,178,1,206,6,179,22,206,6,200,27,200,27,206,6,218,34,244,314,241,278,257,260,244,314,257,260,270,302,270,302,257,260,271,241,270,302,271,241,293,286,293,286,271,241,280,219,293,286,280,219,286,193,182,308,203,301,214,323,214,323,203,301,222,291,214,323,222,291,244,314,244,314,222,291,241,278,180,329,157,311,182,308,180,329,182,308,214,323,343,167,341,196,340,133,340,133,341,196,334,223,340,133,334,223,331,102,331,102,334,223,324,247,331,102,324,247,318,75,318,75,324,247,310,267,318,75,310,267,299,51,299,51,310,267,293,286,299,51,293,286,288,164,288,164,286,132,299,51,299,51,286,132,280,104,299,51,280,104,275,32,275,32,280,104,270,81,275,32,270,81,255,61,236,45,231,12,254,21,110,22,106,26,52,57,52,57,106,26,104,33,52,57,104,33,52,275,52,275,104,33,103,42,52,275,103,42,103,291,40,316,47,308,143,331,143,331,47,308,51,295,143,331,51,295,52,275,27,320,40,316,143,331,27,320,143,331,8,331,27,320,8,331,8,321,148,0,8,9,8,0,48,25,148,0,51,38,104,300,52,275,103,291,293,286,286,193,288,164,
+299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,273,259,271,331,6,331,6,321,25,319,38,315,45,307,49,294,50,276,50,61,49,40,45,25,37,16,25,12,6,9,6,0,146,0,146,9,127,12,113,16,105,24,102,37,100,56,100,164,171,164,193,162,209,158,219,150,225,136,228,115,239,115,239,232,228,232,225,212,218,198,208,190,193,185,171,184,100,184,100,292,101,300,102,306,105,310,110,311,118,312,184,312,214,311,234,306,247,297,255,282,261,259,354,177,227,177,227,168,246,166,259,162,267,154,
+45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,49,294,50,275,106,310,49,294,106,310,45,307,45,307,106,310,111,312,45,307,111,312,271,331,271,331,111,312,118,312,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,271,331,118,312,184,312,271,331,184,312,213,311,271,331,213,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,271,331,6,331,25,320,271,331,25,320,38,315,271,331,38,315,45,307,255,38,234,26,276,0,276,0,234,26,206,20,276,0,206,20,169,18,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,255,38,276,0,169,18,151,18,276,0,151,18,132,19,276,0,132,19,117,21,276,0,117,21,45,24,276,0,6,9,6,0,25,320,6,331,6,321,176,184,176,164,198,162,233,232,244,115,244,232,
+273,259,271,331,6,331,6,321,25,319,38,315,45,307,49,294,50,276,50,61,49,40,45,25,37,16,25,12,6,9,6,0,146,0,146,9,127,12,113,16,105,24,102,37,100,56,100,164,171,164,193,162,209,158,219,150,225,136,228,115,239,115,239,232,228,232,225,212,218,198,208,190,193,185,171,184,100,184,100,292,101,300,102,306,105,310,110,311,118,312,184,312,214,311,234,306,247,297,255,282,261,259,354,177,227,177,227,168,246,166,259,162,267,154,270,142,271,122,271,44,268,34,259,25,244,19,226,14,204,13,161,19,124,39,97,69,79,111,73,162,75,191,79,219,86,244,97,266,112,283,125,295,140,305,157,312,175,317,195,318,211,317,227,314,242,308,256,300,268,291,276,282,283,273,290,262,296,249,304,233,315,233,311,338,300,338,298,333,294,328,289,325,283,322,277,321,274,322,270,322,266,323,261,325,
+38,315,45,307,271,331,271,331,45,307,110,311,271,331,110,311,118,312,271,331,118,312,184,312,271,331,184,312,214,311,50,276,102,37,100,56,100,184,100,164,171,164,100,184,171,164,171,184,193,185,171,184,193,162,193,185,193,162,208,190,208,190,193,162,209,158,208,190,209,158,218,198,218,198,209,158,219,150,218,198,219,150,225,212,225,212,219,150,225,136,225,212,225,136,228,232,228,232,225,136,228,115,228,232,228,115,239,115,271,331,214,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,276,100,56,100,292,50,276,100,292,101,300,50,276,101,300,102,306,50,276,102,306,105,310,50,276,105,310,49,294,110,311,45,307,49,294,110,311,49,294,105,310,25,319,38,315,271,331,25,319,271,331,6,331,25,319,6,331,6,321,146,0,146,9,127,12,146,0,127,12,113,16,146,0,113,16,49,40,146,0,49,40,45,25,146,0,45,25,37,16,146,0,37,16,25,12,146,0,25,12,6,9,146,0,6,9,6,0,50,61,49,40,113,16,50,61,113,16,105,24,50,61,105,24,102,37,50,61,102,37,50,276,171,184,171,164,193,162,228,232,239,115,239,232,
+354,177,227,177,227,168,246,166,259,162,267,154,270,142,271,122,271,44,268,34,259,25,244,19,226,14,204,13,161,19,124,39,97,69,79,111,73,162,75,191,79,219,86,244,97,266,112,283,125,295,140,305,157,312,175,317,195,318,211,317,227,314,242,308,256,300,268,291,276,282,283,273,290,262,296,249,304,233,315,233,311,338,300,338,298,333,294,328,289,325,283,322,277,321,274,322,270,322,266,323,261,325,256,326,243,331,230,334,218,336,204,338,189,338,161,336,135,331,111,322,89,310,70,295,51,275,36,251,25,225,19,195,16,164,18,135,23,110,31,86,42,65,57,46,79,28,105,13,133,2,162,-4,193,-6,223,-5,251,0,278,6,301,16,320,28,320,128,321,144,324,156,330,162,340,166,354,168,352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,211,331,211,321,231,319,244,315,251,307,255,294,256,274,256,180,104,180,104,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,28,319,41,315,49,307,53,294,54,274,54,61,53,39,49,25,42,16,29,12,9,9,9,0,148,0,148,9,129,12,117,17,109,25,105,38,104,56,104,157,256,157,256,62,255,41,252,26,244,17,232,12,212,9,212,0,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,177,331,
+16,164,18,135,19,195,19,195,18,135,23,110,19,195,23,110,25,225,25,225,23,110,31,86,25,225,31,86,36,251,36,251,31,86,42,65,36,251,42,65,51,275,51,275,42,65,57,46,51,275,57,46,70,295,70,295,57,46,73,162,157,312,161,336,140,305,140,305,161,336,135,331,140,305,135,331,125,295,125,295,135,331,112,283,97,266,112,283,111,322,97,266,111,322,89,310,89,310,70,295,75,191,89,310,75,191,79,219,89,310,79,219,86,244,89,310,86,244,97,266,193,-6,204,13,162,-4,162,-4,204,13,161,19,162,-4,161,19,133,2,133,2,161,19,124,39,133,2,124,39,105,13,105,13,124,39,97,69,105,13,97,69,79,28,79,28,97,69,79,111,79,28,79,111,73,162,259,25,244,19,251,0,251,0,244,19,226,14,251,0,226,14,223,-5,223,-5,226,14,204,13,73,162,57,46,79,28,268,291,266,323,261,325,268,291,261,325,256,300,268,291,270,322,266,323,204,338,195,318,211,317,204,338,211,317,218,336,218,336,211,317,227,314,218,336,227,314,230,334,230,334,227,314,242,308,230,334,242,308,243,331,243,331,242,308,256,300,243,331,256,300,256,326,256,326,256,300,261,325,270,322,276,282,274,322,274,322,276,282,277,321,283,322,277,321,283,273,283,322,283,273,290,262,268,291,276,282,270,322,304,233,315,233,311,338,304,233,311,338,300,338,304,233,300,338,298,333,304,233,298,333,296,249,294,328,289,325,290,262,294,328,290,262,296,249,294,328,296,249,298,333,277,321,276,282,283,273,340,166,354,168,354,177,340,166,354,177,330,162,330,162,354,177,270,142,330,162,270,142,271,122,278,6,271,122,271,44,278,6,271,44,268,34,330,162,271,122,324,156,324,156,271,122,278,6,324,156,278,6,321,144,321,144,278,6,301,16,321,144,301,16,320,128,320,128,301,16,320,28,354,177,227,177,246,166,354,177,246,166,259,162,354,177,259,162,267,154,354,177,267,154,270,142,259,25,251,0,278,6,259,25,278,6,268,34,189,338,161,336,175,317,189,338,175,317,195,318,189,338,195,318,204,338,135,331,111,322,112,283,161,336,157,312,175,317,223,-5,204,13,193,-6,246,166,227,177,227,168,283,322,290,262,289,325,75,191,70,295,73,162,
+352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,211,331,211,321,231,319,244,315,251,307,255,294,256,274,256,180,104,180,104,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,28,319,41,315,49,307,53,294,54,274,54,61,53,39,49,25,42,16,29,12,9,9,9,0,148,0,148,9,129,12,117,17,109,25,105,38,104,56,104,157,256,157,256,62,255,41,252,26,244,17,232,12,212,9,212,0,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,177,331,33,331,33,321,54,319,67,315,75,308,79,295,80,275,80,47,79,34,78,24,75,17,69,13,61,12,56,13,53,16,51,21,48,27,46,34,42,41,38,47,33,52,28,54,22,55,14,54,7,50,2,44,-1,37,-2,29,0,16,6,6,17,0,31,-5,
+49,25,42,16,148,0,148,0,42,16,29,12,148,0,29,12,9,9,149,331,9,331,28,319,149,331,28,319,41,315,149,331,41,315,49,307,149,331,49,307,53,294,149,331,53,294,118,315,149,331,118,315,130,319,149,331,130,319,149,321,54,274,105,38,104,56,104,180,104,157,256,157,104,180,256,157,256,180,256,180,256,157,312,25,256,180,312,25,308,37,54,274,104,56,104,274,54,274,104,274,106,294,54,274,106,294,110,307,54,274,110,307,118,315,54,274,118,315,53,294,252,26,244,17,352,0,352,0,244,17,232,12,352,0,232,12,212,9,333,319,352,321,352,331,333,319,352,331,320,315,320,315,352,331,255,294,320,315,255,294,256,274,308,37,256,274,256,180,307,55,307,274,256,274,256,274,307,274,308,293,256,274,308,293,312,307,352,331,211,331,231,319,352,331,231,319,244,315,352,331,244,315,251,307,352,331,251,307,255,294,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,255,41,352,0,255,41,252,26,256,62,255,41,320,17,256,62,320,17,312,25,256,62,312,25,256,157,148,0,148,9,129,12,148,0,129,12,117,17,148,0,117,17,53,39,148,0,53,39,49,25,54,61,53,39,117,17,54,61,117,17,109,25,54,61,109,25,105,38,54,61,105,38,54,274,148,0,9,9,9,0,352,0,212,9,212,0,256,274,308,37,307,55,231,319,211,331,211,321,320,315,256,274,312,307,28,319,9,331,9,321,
+157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,177,331,33,331,33,321,54,319,67,315,75,308,79,295,80,275,80,47,79,34,78,24,75,17,69,13,61,12,56,13,53,16,51,21,48,27,46,34,42,41,38,47,33,52,28,54,22,55,14,54,7,50,2,44,
+52,23,44,15,157,0,157,0,44,15,30,11,157,0,30,11,9,9,157,331,9,331,30,320,157,331,30,320,44,316,157,331,44,316,53,308,157,331,53,308,57,295,157,331,57,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,57,295,157,0,157,9,137,11,157,0,137,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,9,9,9,0,56,36,122,16,57,56,30,320,9,331,9,321,
+177,331,33,331,33,321,54,319,67,315,75,308,79,295,80,275,80,47,79,34,78,24,75,17,69,13,61,12,56,13,53,16,51,21,48,27,46,34,42,41,38,47,33,52,28,54,22,55,14,54,7,50,2,44,-1,37,-2,29,0,16,6,6,17,0,31,-5,47,-6,76,-2,100,8,117,28,128,56,131,93,131,275,132,294,136,307,143,315,157,319,177,321,362,0,362,9,349,11,336,16,322,25,305,41,283,64,166,192,259,281,278,298,292,309,305,316,320,320,338,321,338,331,208,331,208,321,220,321,229,320,235,318,238,315,240,311,241,305,239,298,234,289,226,280,202,256,113,174,113,293,117,307,124,315,137,319,158,321,158,331,17,331,17,321,37,319,50,315,57,306,61,293,62,275,62,63,61,40,57,26,50,17,
+78,24,75,17,76,-2,76,-2,75,17,69,13,76,-2,69,13,61,12,61,12,56,13,76,-2,76,-2,56,13,47,-6,157,319,177,321,177,331,157,319,177,331,143,315,143,315,177,331,79,295,143,315,79,295,80,275,100,8,80,275,80,47,100,8,80,47,79,34,131,275,132,294,117,28,131,275,117,28,128,56,131,275,128,56,131,93,132,294,136,307,80,275,132,294,80,275,100,8,132,294,100,8,117,28,177,331,33,331,54,319,177,331,54,319,67,315,177,331,67,315,75,308,177,331,75,308,79,295,78,24,76,-2,100,8,78,24,100,8,79,34,47,-6,56,13,53,16,47,-6,53,16,51,21,47,-6,51,21,48,27,47,-6,48,27,46,34,47,-6,46,34,42,41,47,-6,42,41,38,47,47,-6,38,47,33,52,47,-6,33,52,31,-5,33,52,28,54,31,-5,31,-5,28,54,22,55,31,-5,22,55,17,0,17,0,22,55,14,54,17,0,14,54,7,50,17,0,7,50,6,6,6,6,7,50,2,44,6,6,2,44,0,16,0,16,2,44,-1,37,0,16,-1,37,-2,29,54,319,33,331,33,321,143,315,80,275,136,307,
+362,0,362,9,349,11,336,16,322,25,305,41,283,64,166,192,259,281,278,298,292,309,305,316,320,320,338,321,338,331,208,331,208,321,220,321,229,320,235,318,238,315,240,311,241,305,239,298,234,289,226,280,202,256,113,174,113,293,117,307,124,315,137,319,158,321,158,331,17,331,17,321,37,319,50,315,57,306,61,293,62,275,62,63,61,40,57,26,50,17,36,12,17,9,17,0,157,0,157,9,139,12,126,16,118,23,114,36,113,55,113,148,126,158,176,107,198,84,217,63,232,46,241,32,244,22,244,18,241,15,237,12,231,11,224,10,210,9,210,0,299,87,286,87,277,69,273,62,265,50,254,39,239,30,223,24,203,21,180,20,127,20,114,22,106,26,102,32,100,42,100,274,101,294,105,307,113,315,127,319,147,321,147,331,6,331,6,321,26,319,38,314,46,306,49,292,50,273,50,57,49,38,45,25,37,16,25,12,6,9,6,0,275,0,432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,6,9,6,0,123,0,123,9,
+158,321,158,321,137,319,137,319,158,321,158,331,137,319,158,331,124,315,124,315,158,331,61,293,124,315,61,293,62,275,114,36,62,275,62,63,114,36,62,63,118,23,118,23,62,63,126,16,62,275,114,36,113,55,113,174,113,148,126,158,113,174,126,158,202,256,202,256,126,158,166,192,202,256,166,192,259,281,62,275,113,55,113,274,62,275,113,274,113,293,62,275,113,293,117,307,62,275,117,307,124,315,158,331,17,331,37,319,158,331,37,319,50,315,158,331,50,315,57,306,158,331,57,306,61,293,234,289,226,280,259,281,259,281,226,280,215,269,259,281,215,269,202,256,338,331,208,331,220,321,338,331,220,321,229,320,338,331,229,320,235,318,338,331,235,318,238,315,338,331,238,315,240,311,338,331,240,311,241,305,338,331,241,305,305,316,338,331,305,316,320,320,338,331,320,320,338,321,241,305,259,281,278,298,241,305,278,298,292,309,241,305,292,309,305,316,239,298,234,289,259,281,239,298,259,281,241,305,241,15,237,12,362,0,362,0,237,12,231,11,362,0,231,11,224,10,244,22,362,0,336,16,244,22,336,16,322,25,244,22,322,25,305,41,244,22,305,41,283,64,244,22,283,64,241,32,283,64,166,192,176,107,283,64,176,107,198,84,283,64,198,84,217,63,283,64,217,63,232,46,283,64,232,46,241,32,349,11,336,16,362,0,349,11,362,0,362,9,244,18,241,15,362,0,244,18,362,0,244,22,210,9,210,0,362,0,210,9,362,0,224,10,157,0,157,9,139,12,157,0,139,12,126,16,157,0,126,16,61,40,157,0,61,40,57,26,157,0,57,26,50,17,157,0,50,17,36,12,157,0,36,12,17,9,157,0,17,9,17,0,61,40,126,16,62,63,176,107,166,192,126,158,220,321,208,331,208,321,37,319,17,331,17,321,
+299,87,286,87,277,69,273,62,265,50,254,39,239,30,223,24,203,21,180,20,127,20,114,22,106,26,102,32,100,42,100,274,101,294,105,307,113,315,127,319,147,321,147,331,6,331,6,321,26,319,38,314,46,306,49,292,50,273,50,57,49,38,45,25,37,16,25,12,6,9,6,0,275,0,432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,6,9,6,0,123,0,123,9,103,12,90,18,82,29,78,48,
+147,321,147,321,127,319,127,319,147,321,147,331,127,319,147,331,113,315,113,315,147,331,49,292,113,315,49,292,50,273,102,32,50,273,50,57,102,32,50,57,106,26,106,26,50,57,49,38,106,26,49,38,114,22,114,22,49,38,45,25,114,22,45,25,127,20,127,20,45,25,275,0,127,20,275,0,146,20,146,20,275,0,180,20,100,42,100,274,50,273,50,273,100,274,101,294,50,273,101,294,105,307,147,331,6,331,26,319,147,331,26,319,38,314,147,331,38,314,46,306,147,331,46,306,49,292,277,69,273,62,275,0,275,0,273,62,269,56,275,0,269,56,265,50,265,50,254,39,275,0,275,0,254,39,239,30,275,0,239,30,223,24,299,87,286,87,281,77,299,87,281,77,277,69,299,87,277,69,275,0,203,21,180,20,275,0,203,21,275,0,223,24,275,0,45,25,37,16,275,0,37,16,25,12,275,0,25,12,6,9,275,0,6,9,6,0,50,273,102,32,100,42,26,319,6,331,6,321,113,315,50,273,105,307,
+432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,6,9,6,0,123,0,123,9,103,12,90,18,82,29,78,48,76,75,76,275,203,0,209,0,337,286,337,61,336,40,333,26,325,17,312,12,292,9,292,0,353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,103,13,90,20,82,31,78,49,76,75,76,269,297,-5,306,-5,306,274,308,289,311,299,315,307,320,313,324,315,329,318,335,319,343,320,353,321,344,166,336,222,
+49,29,41,18,123,0,123,0,41,18,27,12,123,0,27,12,6,9,333,26,325,17,432,0,432,0,325,17,312,12,432,0,312,12,292,9,413,320,431,321,431,331,413,320,431,331,401,316,401,316,431,331,337,286,401,316,337,286,393,307,393,307,337,286,389,294,401,17,393,25,337,61,337,61,393,25,389,38,337,61,389,38,337,286,337,286,389,38,388,56,337,286,388,56,388,275,203,0,209,0,222,80,222,80,209,0,337,286,222,80,337,286,332,331,332,331,337,286,431,331,106,331,7,331,28,319,106,331,28,319,42,315,106,331,42,315,50,307,106,331,50,307,54,294,106,331,54,294,55,275,106,331,55,275,76,275,106,331,76,275,203,0,106,331,203,0,222,80,76,75,76,275,55,275,76,75,55,275,78,48,78,48,55,275,55,75,78,48,55,75,82,29,82,29,55,75,54,47,82,29,54,47,90,18,90,18,54,47,49,29,90,18,49,29,123,0,432,0,432,9,413,12,432,0,413,12,401,17,432,0,401,17,336,40,432,0,336,40,333,26,103,12,90,18,123,0,103,12,123,0,123,9,123,0,6,9,6,0,432,0,292,9,292,0,336,40,401,17,337,61,28,319,7,331,7,321,389,294,337,286,388,275,
+353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,103,13,90,20,82,31,78,49,76,75,76,269,297,-5,306,-5,306,274,308,289,311,299,315,307,320,313,324,315,329,318,335,319,343,320,353,321,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,
+49,30,41,19,123,0,123,0,41,19,27,13,123,0,27,13,6,9,256,319,263,317,353,331,353,331,263,317,269,313,353,331,269,313,275,309,275,309,278,303,353,331,353,331,278,303,281,295,353,331,281,295,324,315,324,315,281,295,320,313,324,315,320,313,320,312,320,312,320,313,315,307,315,307,320,313,284,274,315,307,284,274,284,259,297,-5,284,259,284,89,297,-5,284,89,91,331,353,331,324,315,329,318,353,331,329,318,335,319,353,331,335,319,343,320,353,331,343,320,353,321,306,-5,306,253,297,-5,297,-5,306,253,306,274,297,-5,306,274,284,259,284,259,306,274,308,289,284,259,308,289,311,299,283,285,284,274,320,313,283,285,320,313,281,295,247,320,256,319,353,331,247,320,353,331,235,331,247,320,235,331,235,321,91,331,6,331,19,321,91,331,19,321,29,318,91,331,29,318,37,313,91,331,37,313,46,306,91,331,46,306,55,295,91,331,55,295,76,269,91,331,76,269,297,-5,55,295,78,49,76,75,54,48,49,30,90,20,90,20,49,30,123,0,90,20,123,0,103,13,103,13,123,0,123,9,55,75,54,48,82,31,55,75,82,31,78,49,55,75,78,49,55,295,123,0,6,9,6,0,54,48,90,20,82,31,19,321,6,331,6,321,76,269,55,295,76,75,315,307,284,259,311,299,
+344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,8,331,8,321,27,319,39,315,46,307,49,294,50,276,50,39,47,25,40,16,27,12,8,9,8,0,148,0,148,9,128,12,114,16,106,24,102,37,101,56,101,146,109,145,115,145,122,144,136,144,164,145,188,147,208,153,225,161,243,175,253,185,260,197,266,210,270,225,271,240,270,254,267,268,262,280,255,291,246,300,231,310,213,319,191,325,166,329,137,331,16383,16383,101,295,101,302,103,307,106,310,111,312,118,313,155,310,182,302,202,288,213,266,217,238,213,213,202,192,185,177,162,167,132,164,120,164,
+149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,
+8,331,8,321,27,319,39,315,46,307,49,294,50,276,50,39,47,25,40,16,27,12,8,9,8,0,148,0,148,9,128,12,114,16,106,24,102,37,101,56,101,146,109,145,115,145,122,144,136,144,164,145,188,147,208,153,225,161,243,175,253,185,260,197,266,210,270,225,271,240,270,254,267,268,262,280,255,291,246,300,231,310,213,319,191,325,166,329,137,331,16383,16383,101,295,101,302,103,307,106,310,111,312,118,313,155,310,182,302,202,288,213,266,217,238,213,213,202,192,185,177,162,167,132,164,120,164,114,165,108,165,101,166,350,-88,350,-78,318,-74,288,-65,261,-51,236,-30,213,-2,232,1,248,6,263,12,277,21,290,32,309,54,324,77,335,104,342,133,344,166,336,224,314,272,279,308,234,330,180,338,127,330,82,308,47,272,25,224,17,166,18,140,23,115,31,92,42,70,55,50,67,36,79,25,94,16,111,7,132,0,153,-25,177,-48,206,-66,241,-78,282,-85,326,-88,16383,16383,287,169,285,139,281,111,275,85,266,64,255,47,243,35,230,25,215,18,198,13,180,11,163,13,146,18,129,26,115,37,103,50,93,68,85,89,79,113,75,139,74,167,76,196,
+111,312,118,312,118,313,137,331,118,313,155,310,137,331,155,310,166,329,166,329,155,310,182,302,166,329,182,302,191,325,191,325,182,302,202,288,191,325,202,288,213,319,213,319,202,288,213,266,213,319,213,266,231,310,231,310,213,266,217,238,231,310,217,238,225,161,225,161,213,213,208,153,208,153,213,213,202,192,208,153,202,192,188,147,188,147,202,192,185,177,188,147,185,177,164,145,164,145,185,177,162,167,164,145,162,167,136,144,136,144,162,167,132,164,136,144,132,164,128,144,128,144,132,164,126,164,128,144,126,164,122,144,122,144,126,164,120,164,122,144,120,164,115,145,115,145,120,164,114,165,115,145,114,165,109,145,109,145,114,165,108,165,109,145,108,165,101,166,101,56,101,166,50,276,101,56,50,276,102,37,102,37,50,276,50,61,101,166,101,146,109,145,271,240,270,254,270,225,270,225,270,254,267,268,270,225,267,268,266,210,266,210,267,268,262,280,266,210,262,280,260,197,260,197,262,280,255,291,260,197,255,291,253,185,253,185,255,291,246,300,253,185,246,300,243,175,243,175,246,300,231,310,243,175,231,310,225,161,137,331,8,331,27,319,137,331,27,319,39,315,137,331,39,315,46,307,137,331,46,307,49,294,137,331,49,294,50,276,137,331,50,276,106,310,137,331,106,310,111,312,137,331,111,312,118,313,101,295,101,302,50,276,101,295,50,276,101,166,103,307,106,310,50,276,103,307,50,276,101,302,148,0,148,9,128,12,148,0,128,12,114,16,148,0,114,16,50,39,148,0,50,39,47,25,148,0,47,25,40,16,148,0,40,16,27,12,148,0,27,12,8,9,148,0,8,9,8,0,50,61,50,39,114,16,50,61,114,16,106,24,50,61,106,24,102,37,27,319,8,331,8,321,213,213,225,161,217,238,155,310,118,313,118,312,
+350,-88,350,-78,318,-74,288,-65,261,-51,236,-30,213,-2,232,1,248,6,263,12,277,21,290,32,309,54,324,77,335,104,342,133,344,166,336,224,314,272,279,308,234,330,180,338,127,330,82,308,47,272,25,224,17,166,18,140,23,115,31,92,42,70,55,50,67,36,79,25,94,16,111,7,132,0,153,-25,177,-48,206,-66,241,-78,282,-85,326,-88,16383,16383,287,169,285,139,281,111,275,85,266,64,255,47,243,35,230,25,215,18,198,13,180,11,163,13,146,18,129,26,115,37,103,50,93,68,85,89,79,113,75,139,74,167,76,196,80,222,87,247,96,268,107,285,119,297,133,307,147,314,163,318,179,320,193,319,206,316,219,312,231,306,242,297,257,280,270,258,279,232,285,202,287,169,330,0,330,9,318,11,308,13,299,17,291,24,283,33,183,160,216,168,242,180,260,197,270,217,273,242,272,255,270,268,265,281,258,292,249,301,234,311,217,319,196,326,172,330,145,331,8,331,8,321,28,319,40,315,47,307,50,294,51,276,51,62,50,40,47,25,39,16,27,12,8,9,8,0,147,0,147,9,127,12,114,16,107,24,103,37,102,56,102,153,130,154,249,0,16383,16383,102,291,103,300,106,306,111,310,118,312,127,313,161,310,186,302,205,289,215,270,219,246,218,231,214,218,208,206,200,196,190,189,177,182,163,177,147,174,128,172,102,171,234,232,224,338,213,338,211,332,209,327,206,324,202,322,197,321,194,321,190,322,185,323,175,327,164,331,154,334,134,338,123,338,
+79,113,79,25,85,89,85,89,79,25,94,16,85,89,94,16,93,68,93,68,94,16,103,50,115,37,103,50,111,7,115,37,111,7,132,0,79,113,75,139,79,25,79,25,75,139,74,167,67,36,74,167,76,196,67,36,76,196,55,50,55,50,76,196,82,308,55,50,82,308,47,272,147,314,180,338,133,307,133,307,180,338,127,330,133,307,127,330,119,297,119,297,127,330,107,285,96,268,107,285,127,330,96,268,127,330,82,308,129,26,132,0,146,18,146,18,132,0,153,-25,146,18,153,-25,163,13,163,13,153,-25,177,-48,163,13,177,-48,180,11,180,11,177,-48,206,-66,180,11,206,-66,198,13,234,330,180,338,193,319,193,319,180,338,179,320,163,318,179,320,180,338,163,318,180,338,147,314,206,316,219,312,234,330,234,330,219,312,231,306,234,330,231,306,242,297,242,297,257,280,279,308,279,308,257,280,270,258,279,308,270,258,279,232,232,1,248,6,243,35,243,35,248,6,255,47,266,64,255,47,263,12,266,64,263,12,277,21,236,-30,213,-2,241,-78,215,18,213,-2,232,1,215,18,232,1,230,25,230,25,232,1,243,35,206,-66,241,-78,213,-2,206,-66,213,-2,215,18,206,-66,215,18,198,13,336,224,314,272,324,77,336,224,324,77,335,104,336,224,335,104,342,133,336,224,342,133,344,166,285,139,290,32,287,169,287,169,290,32,314,272,314,272,290,32,309,54,314,272,309,54,324,77,285,202,287,169,314,272,285,202,314,272,279,308,285,202,279,308,279,232,279,308,234,330,242,297,281,111,275,85,277,21,281,111,277,21,290,32,281,111,290,32,285,139,255,47,248,6,263,12,326,-88,350,-88,350,-78,326,-88,350,-78,318,-74,326,-88,318,-74,288,-65,326,-88,288,-65,282,-85,261,-51,236,-30,241,-78,261,-51,241,-78,282,-85,261,-51,282,-85,288,-65,82,308,76,196,80,222,82,308,80,222,87,247,82,308,87,247,96,268,18,140,23,115,25,224,25,224,23,115,31,92,25,224,31,92,47,272,47,272,31,92,42,70,47,272,42,70,55,50,103,50,94,16,111,7,18,140,25,224,17,166,266,64,277,21,275,85,234,330,193,319,206,316,115,37,132,0,129,26,79,25,74,167,67,36,
+330,0,330,9,318,11,308,13,299,17,291,24,283,33,183,160,216,168,242,180,260,197,270,217,273,242,272,255,270,268,265,281,258,292,249,301,234,311,217,319,196,326,172,330,145,331,8,331,8,321,28,319,40,315,47,307,50,294,51,276,51,62,50,40,47,25,39,16,27,12,8,9,8,0,147,0,147,9,127,12,114,16,107,24,103,37,102,56,102,153,130,154,249,0,16383,16383,102,291,103,300,106,306,111,310,118,312,127,313,161,310,186,302,205,289,215,270,219,246,218,231,214,218,208,206,200,196,190,189,177,182,163,177,147,174,128,172,102,171,234,232,224,338,213,338,211,332,209,327,206,324,202,322,197,321,194,321,190,322,185,323,175,327,164,331,154,334,134,338,123,338,95,334,71,323,52,305,40,281,36,251,38,232,44,214,56,196,73,180,97,165,116,154,135,142,152,130,168,118,180,107,185,100,189,93,192,85,194,77,195,67,192,49,184,33,172,21,155,14,136,11,109,15,85,25,65,42,47,67,32,99,22,99,36,-6,47,-6,48,0,50,4,53,7,57,9,61,10,64,10,79,7,84,4,96,0,107,-2,131,-6,143,-6,176,-2,204,10,226,29,240,55,246,86,243,108,233,128,218,148,
+118,312,127,312,127,313,145,331,127,313,161,310,145,331,161,310,172,330,172,330,161,310,186,302,172,330,186,302,196,326,196,326,186,302,205,289,196,326,205,289,217,319,217,319,205,289,215,270,217,319,215,270,219,246,214,218,208,206,216,168,216,168,208,206,200,196,216,168,200,196,190,189,190,189,177,182,183,160,183,160,177,182,163,177,183,160,163,177,249,0,249,0,163,177,147,174,249,0,147,174,130,154,130,154,147,174,128,172,130,154,128,172,102,171,265,281,258,292,260,197,260,197,258,292,249,301,260,197,249,301,242,180,242,180,249,301,234,311,242,180,234,311,219,246,219,246,234,311,217,319,214,218,216,168,218,231,218,231,216,168,242,180,218,231,242,180,219,246,270,217,273,242,272,255,270,217,272,255,270,268,270,217,270,268,265,281,270,217,265,281,260,197,190,189,183,160,216,168,318,11,308,13,330,0,330,0,308,13,299,17,330,0,299,17,249,0,249,0,299,17,291,24,249,0,291,24,283,33,102,56,102,171,51,276,102,56,51,276,103,37,103,37,51,276,51,62,102,171,102,153,130,154,145,331,8,331,28,319,145,331,28,319,40,315,145,331,40,315,47,307,145,331,47,307,50,294,145,331,50,294,51,276,145,331,51,276,111,310,145,331,111,310,118,312,145,331,118,312,127,313,102,291,103,300,51,276,102,291,51,276,102,171,106,306,111,310,51,276,106,306,51,276,103,300,147,0,147,9,127,12,147,0,127,12,114,16,147,0,114,16,50,40,147,0,50,40,47,25,147,0,47,25,39,16,147,0,39,16,27,12,147,0,27,12,8,9,147,0,8,9,8,0,51,62,50,40,114,16,51,62,114,16,107,24,51,62,107,24,103,37,28,319,8,331,8,321,183,160,249,0,283,33,318,11,330,0,330,9,161,310,127,313,127,312,
+234,232,224,338,213,338,211,332,209,327,206,324,202,322,197,321,194,321,190,322,185,323,175,327,164,331,154,334,134,338,123,338,95,334,71,323,52,305,40,281,36,251,38,232,44,214,56,196,73,180,97,165,116,154,135,142,152,130,168,118,180,107,185,100,189,93,192,85,194,77,195,67,192,49,184,33,172,21,155,14,136,11,109,15,85,25,65,42,47,67,32,99,22,99,36,-6,47,-6,48,0,50,4,53,7,57,9,61,10,64,10,79,7,84,4,96,0,107,-2,131,-6,143,-6,176,-2,204,10,226,29,240,55,246,86,243,108,233,128,218,148,196,166,168,185,139,202,114,218,95,234,83,251,79,270,81,286,88,299,98,309,112,315,129,318,146,316,162,310,177,302,190,291,201,278,206,271,211,263,215,254,218,244,222,232,296,246,293,331,12,331,8,246,21,246,27,274,37,292,50,303,70,309,97,310,127,310,127,61,126,39,123,25,115,16,101,12,80,9,80,0,226,0,226,9,205,11,192,16,183,23,179,36,178,55,178,310,208,310,235,309,254,303,268,292,277,274,285,246,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,
+50,4,53,7,65,42,65,42,53,7,57,9,65,42,57,9,61,10,61,10,64,10,65,42,65,42,64,10,69,9,65,42,69,9,85,25,85,25,69,9,74,8,85,25,74,8,79,7,95,234,83,251,97,165,97,165,83,251,79,270,73,180,79,270,71,323,73,180,71,323,56,196,56,196,71,323,52,305,56,196,52,305,44,214,44,214,52,305,40,281,44,214,40,281,38,232,38,232,40,281,36,251,81,286,88,299,95,334,95,334,88,299,98,309,95,334,98,309,123,338,123,338,98,309,112,315,123,338,112,315,129,318,129,318,146,316,134,338,134,338,146,316,144,336,81,286,95,334,71,323,81,286,71,323,79,270,134,338,123,338,129,318,144,336,146,316,154,334,154,334,146,316,162,310,154,334,162,310,164,331,164,331,162,310,177,302,164,331,177,302,175,327,175,327,177,302,180,325,95,234,97,165,114,218,114,218,97,165,116,154,114,218,116,154,139,202,139,202,116,154,135,142,139,202,135,142,152,130,136,11,119,-4,131,-6,136,11,131,-6,143,-6,136,11,109,15,119,-4,79,7,84,4,85,25,85,25,84,4,96,0,85,25,96,0,109,15,109,15,96,0,107,-2,109,15,107,-2,119,-4,36,-6,47,-6,47,67,47,67,47,-6,48,0,47,67,48,0,65,42,65,42,48,0,50,4,32,99,22,99,36,-6,32,99,36,-6,47,67,139,202,152,130,168,185,168,185,152,130,168,118,168,185,168,118,180,107,180,107,185,100,196,166,196,166,185,100,189,93,196,166,189,93,192,85,246,86,243,108,240,55,240,55,243,108,233,128,240,55,233,128,226,29,226,29,233,128,218,148,226,29,218,148,204,10,204,10,218,148,196,166,204,10,196,166,195,67,195,67,192,49,204,10,204,10,192,49,184,33,204,10,184,33,176,-2,176,-2,184,33,172,21,176,-2,172,21,155,14,196,166,192,85,194,77,196,166,194,77,195,67,196,166,168,185,180,107,155,14,136,11,143,-6,155,14,143,-6,176,-2,190,291,201,278,194,321,194,321,201,278,197,321,202,322,197,321,201,278,190,291,194,321,190,322,190,291,190,322,185,323,190,291,185,323,180,325,190,291,180,325,177,302,224,338,213,338,215,254,224,338,215,254,218,244,224,338,218,244,222,232,224,338,222,232,234,232,206,324,206,271,209,327,209,327,206,271,211,263,209,327,211,263,211,332,211,332,211,263,215,254,211,332,215,254,213,338,202,322,201,278,206,271,202,322,206,271,206,324,97,165,79,270,73,180,
+296,246,293,331,12,331,8,246,21,246,27,274,37,292,50,303,70,309,97,310,127,310,127,61,126,39,123,25,115,16,101,12,80,9,80,0,226,0,226,9,205,11,192,16,183,23,179,36,178,55,178,310,208,310,235,309,254,303,268,292,277,274,285,246,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,
+293,331,12,331,70,309,293,331,70,309,97,310,293,331,97,310,127,310,293,331,127,310,178,310,293,331,178,310,208,310,293,331,208,310,235,309,293,331,235,309,254,303,293,331,254,303,268,292,293,331,268,292,277,274,293,331,277,274,285,246,293,331,285,246,296,246,192,16,183,23,127,61,127,61,183,23,179,36,127,61,179,36,127,310,127,310,179,36,178,55,127,310,178,55,178,310,12,331,8,246,21,246,12,331,21,246,27,274,12,331,27,274,37,292,12,331,37,292,50,303,12,331,50,303,70,309,226,0,226,9,205,11,226,0,205,11,192,16,226,0,192,16,126,39,226,0,126,39,123,25,226,0,123,25,115,16,226,0,115,16,101,12,226,0,101,12,80,9,226,0,80,9,80,0,126,39,192,16,127,61,
+353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,349,331,247,331,247,321,258,321,268,319,276,316,281,310,282,301,282,295,281,289,279,282,276,274,273,265,200,80,123,252,116,269,110,283,106,292,104,300,104,305,105,310,107,314,112,317,118,319,127,320,141,321,141,331,8,331,8,321,21,320,31,316,41,307,50,291,62,267,184,-5,191,-5,302,276,311,295,319,308,328,316,338,320,349,321,466,331,368,331,368,321,381,320,391,318,397,314,401,308,402,301,402,294,401,287,399,280,397,271,394,262,331,93,259,275,255,289,253,295,252,300,251,304,253,310,257,315,265,318,276,320,290,321,290,331,157,331,
+105,79,106,8,109,63,109,63,106,8,121,1,109,63,121,1,115,50,115,50,121,1,125,37,135,30,125,37,138,-3,135,30,138,-3,146,24,146,24,138,-3,157,-5,146,24,157,-5,158,19,158,19,157,-5,177,-6,158,19,177,-6,173,16,173,16,177,-6,189,15,208,16,189,15,204,-5,208,16,204,-5,227,0,103,118,103,275,93,16,103,118,93,16,104,97,104,97,93,16,106,8,104,97,106,8,105,79,125,37,121,1,138,-3,283,103,282,85,290,45,290,45,282,85,279,70,290,45,279,70,278,30,278,30,279,70,273,57,278,30,273,57,265,45,265,45,254,34,264,17,264,17,254,34,247,6,241,26,225,20,227,0,241,26,227,0,247,6,241,26,247,6,254,34,353,331,237,331,257,319,353,331,257,319,270,312,353,331,270,312,279,301,353,331,279,301,318,311,353,331,318,311,331,318,353,331,331,318,353,321,305,258,306,282,297,62,305,258,297,62,302,81,305,258,302,81,305,104,305,258,305,104,305,131,290,45,297,62,306,282,290,45,306,282,283,257,290,45,283,257,283,125,290,45,283,125,283,103,310,300,318,311,282,283,310,300,282,283,283,257,310,300,283,257,306,282,265,45,264,17,278,30,189,15,177,-6,204,-5,128,319,148,321,148,331,128,319,148,331,115,314,115,314,148,331,51,297,115,314,51,297,52,280,53,95,52,280,52,124,58,69,66,48,104,293,104,293,66,48,78,30,104,293,78,30,103,275,103,275,78,30,93,16,104,293,108,306,52,280,104,293,52,280,53,95,104,293,53,95,58,69,148,331,7,331,27,319,148,331,27,319,40,315,148,331,40,315,47,308,148,331,47,308,51,297,27,319,7,331,7,321,115,314,52,280,108,306,257,319,237,331,237,321,318,311,279,301,282,283,208,16,227,0,225,20,
+349,331,247,331,247,321,258,321,268,319,276,316,281,310,282,301,282,295,281,289,279,282,276,274,273,265,200,80,123,252,116,269,110,283,106,292,104,300,104,305,105,310,107,314,112,317,118,319,127,320,141,321,141,331,8,331,8,321,21,320,31,316,41,307,50,291,62,267,184,-5,191,-5,302,276,311,295,319,308,328,316,338,320,349,321,466,331,368,331,368,321,381,320,391,318,397,314,401,308,402,301,402,294,401,287,399,280,397,271,394,262,331,93,259,275,255,289,253,295,252,300,251,304,253,310,257,315,265,318,276,320,290,321,290,331,157,331,157,321,171,320,182,317,191,309,199,295,208,273,222,236,170,94,98,282,96,288,95,293,93,298,93,311,96,316,102,319,111,321,
+62,267,184,-5,62,267,62,267,184,-5,104,300,62,267,104,300,104,305,104,305,105,310,62,267,62,267,105,310,107,314,62,267,107,314,50,291,141,331,8,331,21,320,141,331,21,320,31,316,141,331,31,316,41,307,141,331,41,307,50,291,141,331,50,291,112,317,141,331,112,317,118,319,141,331,118,319,127,320,141,331,127,320,141,321,281,289,279,282,302,276,302,276,279,282,276,274,302,276,276,274,273,265,273,265,200,80,302,276,302,276,200,80,191,-5,349,331,247,331,258,321,349,331,258,321,268,319,349,331,268,319,276,316,349,331,276,316,281,310,349,331,281,310,282,301,349,331,282,301,328,316,349,331,328,316,338,320,349,331,338,320,349,321,282,301,302,276,311,295,282,301,311,295,319,308,282,301,319,308,328,316,282,295,281,289,302,276,282,295,302,276,282,301,184,-5,191,-5,200,80,184,-5,200,80,123,252,184,-5,123,252,116,269,184,-5,116,269,110,283,184,-5,110,283,106,292,184,-5,106,292,104,300,258,321,247,331,247,321,21,320,8,331,8,321,112,317,50,291,107,314,
+466,331,368,331,368,321,381,320,391,318,397,314,401,308,402,301,402,294,401,287,399,280,397,271,394,262,331,93,259,275,255,289,253,295,252,300,251,304,253,310,257,315,265,318,276,320,290,321,290,331,157,331,157,321,171,320,182,317,191,309,199,295,208,273,222,236,170,94,98,282,96,288,95,293,93,298,93,311,96,316,102,319,111,321,124,321,124,331,2,331,2,321,16,320,27,314,36,303,45,286,55,262,73,210,92,157,132,49,151,-5,158,-5,235,206,251,165,267,123,299,37,315,-5,323,-5,344,61,361,111,377,158,397,212,425,286,430,299,436,308,443,314,453,318,466,321,352,0,352,9,338,12,327,16,317,22,307,32,296,46,200,184,272,272,289,292,303,305,316,314,331,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,263,301,260,296,257,290,251,282,243,272,188,202,166,234,151,255,139,272,131,286,126,297,124,306,125,312,128,316,133,319,139,320,147,321,161,321,161,331,11,331,11,321,29,319,44,312,59,299,78,276,103,242,156,164,78,66,58,42,43,26,31,17,19,12,5,9,5,0,121,0,121,9,106,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,100,57,109,70,169,145,217,74,226,60,233,48,
+16,320,27,314,124,331,124,331,27,314,36,303,124,331,36,303,96,316,96,316,36,303,45,286,96,316,45,286,55,262,55,262,73,210,93,311,93,311,73,210,93,306,93,302,93,306,92,157,93,302,92,157,112,103,111,321,124,321,124,331,111,321,124,331,102,319,102,319,124,331,96,316,93,306,73,210,92,157,96,316,55,262,93,311,2,331,2,321,16,320,2,331,16,320,124,331,251,165,267,123,251,304,251,304,253,310,222,236,222,236,253,310,208,273,199,295,208,273,257,315,199,295,257,315,290,331,290,331,257,315,265,318,290,331,265,318,276,320,276,320,290,321,290,331,251,304,222,236,235,206,251,304,235,206,251,165,257,315,208,273,253,310,290,331,157,331,171,320,290,331,171,320,182,317,290,331,182,317,191,309,290,331,191,309,199,295,394,262,361,111,377,158,394,262,377,158,397,212,394,262,331,93,344,61,394,262,344,61,361,111,331,93,259,275,267,123,331,93,267,123,283,80,331,93,283,80,299,37,331,93,299,37,315,-5,331,93,315,-5,323,-5,331,93,323,-5,344,61,267,123,259,275,257,282,267,123,257,282,255,289,267,123,255,289,253,295,267,123,253,295,252,300,267,123,252,300,251,304,402,294,401,287,425,286,425,286,401,287,399,280,425,286,399,280,397,212,397,212,399,280,397,271,397,212,397,271,394,262,402,301,425,286,430,299,402,301,430,299,436,308,402,301,436,308,443,314,402,301,443,314,466,331,402,301,466,331,401,308,402,294,425,286,402,301,453,318,466,321,466,331,453,318,466,331,443,314,466,331,368,331,381,320,466,331,381,320,391,318,466,331,391,318,397,314,466,331,397,314,401,308,170,94,98,282,112,103,170,94,112,103,132,49,170,94,132,49,151,-5,170,94,151,-5,158,-5,170,94,158,-5,235,206,170,94,235,206,222,236,112,103,98,282,96,288,112,103,96,288,95,293,112,103,95,293,93,298,112,103,93,298,93,302,381,320,368,331,368,321,171,320,157,331,157,321,
+352,0,352,9,338,12,327,16,317,22,307,32,296,46,200,184,272,272,289,292,303,305,316,314,331,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,263,301,260,296,257,290,251,282,243,272,188,202,166,234,151,255,139,272,131,286,126,297,124,306,125,312,128,316,133,319,139,320,147,321,161,321,161,331,11,331,11,321,29,319,44,312,59,299,78,276,103,242,156,164,78,66,58,42,43,26,31,17,19,12,5,9,5,0,121,0,121,9,106,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,100,57,109,70,169,145,217,74,226,60,233,48,238,38,241,31,242,25,241,20,238,16,233,14,226,12,217,11,204,9,204,0,352,331,243,331,243,321,256,321,266,319,272,316,275,312,276,306,276,302,274,294,272,290,270,285,197,174,124,285,121,289,118,294,116,299,115,304,115,308,116,312,119,316,123,318,130,320,138,321,151,321,151,331,11,331,11,321,24,319,37,313,50,299,68,277,92,243,157,147,157,61,156,39,152,25,144,16,129,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,151,282,266,297,288,310,303,322,313,336,319,352,321,299,88,287,88,282,72,278,59,273,49,266,40,257,33,249,28,240,24,228,21,215,20,199,19,73,19,289,324,289,331,26,331,16,246,29,246,32,260,35,271,38,279,43,287,50,295,58,301,68,306,81,309,97,311,
+31,17,121,0,43,26,43,26,121,0,88,17,43,26,88,17,58,42,58,42,88,17,84,21,58,42,84,21,83,26,83,26,84,31,78,66,78,66,84,31,87,38,78,66,87,38,156,164,156,164,87,38,92,46,156,164,92,46,100,57,103,242,156,164,126,297,103,242,126,297,124,306,124,306,125,312,103,242,156,164,100,57,109,70,109,70,169,145,156,164,156,164,169,145,166,234,156,164,166,234,151,255,78,66,58,42,83,26,103,242,125,312,78,276,78,276,125,312,128,316,78,276,128,316,59,299,59,299,128,316,133,319,59,299,133,319,161,331,161,331,133,319,139,320,161,331,139,320,147,321,147,321,161,321,161,331,161,331,11,331,29,319,161,331,29,319,44,312,161,331,44,312,59,299,260,296,257,290,272,272,272,272,257,290,251,282,272,272,251,282,243,272,243,272,188,202,200,184,200,184,188,202,217,74,200,184,217,74,296,46,296,46,217,74,226,60,296,46,226,60,233,48,348,331,229,331,243,320,348,331,243,320,253,319,348,331,253,319,259,316,348,331,259,316,262,311,348,331,262,311,263,305,348,331,263,305,316,314,348,331,316,314,331,319,348,331,331,319,348,321,263,305,272,272,289,292,263,305,289,292,303,305,263,305,303,305,316,314,263,301,260,296,272,272,263,301,272,272,263,305,243,272,200,184,272,272,238,16,233,14,352,0,352,0,233,14,226,12,352,0,226,12,217,11,242,25,352,0,327,16,242,25,327,16,317,22,242,25,317,22,307,32,242,25,307,32,296,46,242,25,296,46,241,31,296,46,233,48,238,38,296,46,238,38,241,31,188,202,166,234,169,145,188,202,169,145,217,74,338,12,327,16,352,0,338,12,352,0,352,9,241,20,238,16,352,0,241,20,352,0,242,25,204,9,204,0,352,0,204,9,352,0,217,11,156,164,151,255,139,272,156,164,139,272,131,286,156,164,131,286,126,297,121,0,121,9,106,11,121,0,106,11,95,13,121,0,95,13,88,17,19,12,5,9,121,0,19,12,121,0,31,17,121,0,5,9,5,0,243,320,229,331,229,321,29,319,11,331,11,321,
+352,331,243,331,243,321,256,321,266,319,272,316,275,312,276,306,276,302,274,294,272,290,270,285,197,174,124,285,121,289,118,294,116,299,115,304,115,308,116,312,119,316,123,318,130,320,138,321,151,321,151,331,11,331,11,321,24,319,37,313,50,299,68,277,92,243,157,147,157,61,156,39,152,25,144,16,129,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,151,282,266,297,288,310,303,322,313,336,319,352,321,299,88,287,88,282,72,278,59,273,49,266,40,257,33,249,28,240,24,228,21,215,20,199,19,73,19,289,324,289,331,26,331,16,246,29,246,32,260,35,271,38,279,43,287,50,295,58,301,68,306,81,309,97,311,117,312,224,312,5,7,5,0,286,0,150,-77,150,-64,108,-64,99,-63,92,-61,86,-56,83,-48,82,-38,82,295,83,304,86,311,92,315,99,318,108,319,150,319,150,331,44,331,44,-77,143,-6,29,338,-3,338,109,-6,123,-77,
+121,289,118,294,157,147,157,147,118,294,116,299,157,147,116,299,92,243,92,243,116,299,115,304,92,243,115,304,115,308,115,308,116,312,92,243,151,331,11,331,24,319,151,331,24,319,37,313,151,331,37,313,50,299,151,331,50,299,123,318,151,331,123,318,130,320,151,331,130,320,138,321,151,331,138,321,151,321,123,318,50,299,119,316,119,316,50,299,68,277,119,316,68,277,116,312,116,312,68,277,92,243,209,55,209,151,197,174,209,55,197,174,210,36,210,36,197,174,157,147,210,36,157,147,215,23,215,23,157,147,157,61,215,23,157,61,224,15,224,15,157,61,156,39,224,15,156,39,260,0,260,0,156,39,152,25,260,0,152,25,144,16,275,298,274,294,282,266,282,266,274,294,272,290,282,266,272,290,270,285,270,285,197,174,209,151,352,331,243,331,256,321,352,331,256,321,266,319,352,331,266,319,272,316,352,331,272,316,275,312,352,331,275,312,276,306,352,331,276,306,322,313,352,331,322,313,336,319,352,331,336,319,352,321,276,306,282,266,297,288,276,306,297,288,310,303,276,306,310,303,322,313,282,266,276,306,276,302,282,266,276,302,275,298,270,285,209,151,282,266,239,11,224,15,260,0,239,11,260,0,260,9,129,12,107,9,260,0,129,12,260,0,144,16,124,285,121,289,157,147,124,285,157,147,197,174,260,0,107,9,107,0,256,321,243,331,243,321,24,319,11,331,11,321,
+299,88,287,88,282,72,278,59,273,49,266,40,257,33,249,28,240,24,228,21,215,20,199,19,73,19,289,324,289,331,26,331,16,246,29,246,32,260,35,271,38,279,43,287,50,295,58,301,68,306,81,309,97,311,117,312,224,312,5,7,5,0,286,0,150,-77,150,-64,108,-64,99,-63,92,-61,86,-56,83,-48,82,-38,82,295,83,304,86,311,92,315,99,318,108,319,150,319,150,331,44,331,44,-77,143,-6,29,338,-3,338,109,-6,123,-77,123,331,17,331,17,319,59,319,69,318,76,314,81,309,83,301,84,291,
+35,271,38,279,26,331,26,331,38,279,43,287,26,331,43,287,50,295,50,295,58,301,26,331,26,331,58,301,68,306,26,331,68,306,81,309,73,19,289,324,224,312,224,312,289,324,289,331,224,312,289,331,117,312,97,311,117,312,289,331,97,311,289,331,26,331,26,331,16,246,29,246,26,331,29,246,32,260,26,331,32,260,35,271,224,312,5,7,73,19,73,19,5,7,286,0,73,19,286,0,199,19,199,19,286,0,215,20,278,59,273,49,286,0,286,0,273,49,266,40,286,0,266,40,257,33,257,33,249,28,286,0,286,0,249,28,240,24,286,0,240,24,228,21,286,0,299,88,287,88,286,0,287,88,282,72,286,0,282,72,278,59,286,0,5,7,5,0,215,20,286,0,228,21,26,331,81,309,97,311,
+150,-77,150,-64,108,-64,99,-63,92,-61,86,-56,83,-48,82,-38,82,295,83,304,86,311,92,315,99,318,108,319,150,319,150,331,44,331,44,-77,143,-6,29,338,-3,338,109,-6,123,-77,123,331,17,331,17,319,59,319,69,318,76,314,81,309,83,301,84,291,84,-50,81,-56,77,-61,70,-63,
+86,311,92,315,44,331,44,331,92,315,99,318,44,331,99,318,150,331,150,331,99,318,108,319,82,-38,82,295,44,331,82,-38,44,331,44,-77,82,-38,44,-77,83,-48,83,304,86,311,44,331,83,304,44,331,82,295,150,-64,108,-64,150,-77,150,-77,108,-64,99,-63,150,-77,99,-63,44,-77,44,-77,99,-63,92,-61,44,-77,92,-61,86,-56,83,-48,44,-77,86,-56,150,331,108,319,150,319,
+143,-6,29,338,-3,338,109,-6,123,-77,123,331,17,331,17,319,
+143,-6,29,338,-3,338,143,-6,-3,338,109,-6,
+123,-77,123,331,17,331,17,319,59,319,69,318,76,314,81,309,83,301,84,291,84,-50,81,-56,77,-61,70,-63,61,-64,17,-64,17,-77,223,148,132,331,103,331,12,148,46,148,118,293,189,148,250,-62,250,-36,0,-36,0,-62,121,253,49,328,44,332,40,335,35,337,27,339,
+123,-77,123,331,84,291,123,-77,84,291,84,-41,123,-77,84,-41,84,-50,123,-77,84,-50,81,-56,123,-77,81,-56,77,-61,123,-77,77,-61,70,-63,123,-77,70,-63,61,-64,123,-77,61,-64,17,-64,123,-77,17,-64,17,-77,76,314,81,309,123,331,123,331,81,309,83,301,123,331,83,301,84,291,123,331,17,331,59,319,123,331,59,319,69,318,123,331,69,318,76,314,59,319,17,331,17,319,
+223,148,132,331,103,331,12,148,46,148,118,293,189,148,250,-62,250,-36,0,-36,0,-62,121,253,49,328,44,332,
+12,148,46,148,103,331,103,331,46,148,118,293,103,331,118,293,132,331,132,331,118,293,189,148,132,331,189,148,223,148,
+250,-62,250,-36,0,-36,0,-62,121,253,49,328,44,332,40,335,
+250,-62,250,-36,0,-36,250,-62,0,-36,0,-62,
+121,253,49,328,44,332,40,335,35,337,27,339,21,338,16,336,12,333,10,329,9,323,10,318,12,314,15,309,19,305,24,301,101,253,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,
+101,253,121,253,49,328,101,253,49,328,44,332,101,253,44,332,40,335,101,253,40,335,35,337,101,253,35,337,31,338,101,253,31,338,27,339,101,253,27,339,24,301,9,323,10,318,10,329,10,329,10,318,12,314,10,329,12,314,12,333,12,333,12,314,15,309,12,333,15,309,16,336,16,336,15,309,19,305,16,336,19,305,21,338,21,338,19,305,24,301,21,338,24,301,27,339,
+221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,76,340,74,342,62,338,51,334,41,331,29,328,17,324,2,320,2,311,5,311,6,312,10,312,21,311,28,309,32,304,34,296,35,283,35,28,39,18,52,9,71,2,93,-2,117,-4,155,1,187,18,212,44,228,78,234,120,230,155,218,185,199,209,174,224,144,230,126,228,110,223,96,214,85,202,76,188,16383,16383,76,159,79,171,86,182,97,191,111,197,126,199,137,198,146,195,155,190,164,183,171,175,177,163,183,149,186,133,189,116,190,99,189,82,187,67,183,54,178,42,171,32,164,25,156,19,147,15,136,12,125,11,110,12,97,16,86,21,79,28,76,37,199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,195,166,198,172,199,179,195,195,184,209,167,220,146,227,122,230,108,229,94,226,80,221,67,213,55,204,
+37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,184,56,186,-3,185,44,29,167,29,183,28,175,
+76,340,74,342,62,338,51,334,41,331,29,328,17,324,2,320,2,311,5,311,6,312,10,312,21,311,28,309,32,304,34,296,35,283,35,28,39,18,52,9,71,2,93,-2,117,-4,155,1,187,18,212,44,228,78,234,120,230,155,218,185,199,209,174,224,144,230,126,228,110,223,96,214,85,202,76,188,16383,16383,76,159,79,171,86,182,97,191,111,197,126,199,137,198,146,195,155,190,164,183,171,175,177,163,183,149,186,133,189,116,190,99,189,82,187,67,183,54,178,42,171,32,164,25,156,19,147,15,136,12,125,11,110,12,97,16,86,21,79,28,76,37,199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,195,166,198,172,199,179,195,195,184,209,167,220,146,227,122,230,108,229,94,226,80,221,67,213,55,204,40,189,28,172,19,152,14,130,12,106,17,70,30,39,50,15,76,0,108,-4,120,-3,132,-1,144,3,155,9,165,16,174,24,181,32,189,43,197,57,206,74,246,21,246,29,239,29,237,28,234,28,225,29,218,32,215,37,
+5,311,6,312,17,324,17,324,6,312,8,312,17,324,8,312,10,312,10,312,21,311,17,324,17,324,21,311,29,328,97,16,86,21,93,-2,93,-2,86,21,79,28,93,-2,79,28,71,2,71,2,79,28,76,37,71,2,76,37,74,342,74,342,76,37,76,188,74,342,76,188,76,340,62,338,51,334,52,9,52,9,51,334,41,331,52,9,41,331,39,18,39,18,41,331,35,283,39,18,35,283,35,28,3,311,5,311,17,324,3,311,17,324,2,320,3,311,2,320,2,311,156,19,147,15,155,1,155,1,147,15,136,12,155,1,136,12,125,11,125,11,110,12,117,-4,117,-4,110,12,97,16,117,-4,97,16,93,-2,62,338,52,9,71,2,62,338,71,2,74,342,21,311,28,309,29,328,29,328,28,309,32,304,29,328,32,304,41,331,41,331,32,304,34,296,41,331,34,296,35,283,126,228,126,199,137,198,126,228,137,198,144,230,144,230,137,198,146,195,144,230,146,195,174,224,174,224,146,195,155,190,174,224,155,190,164,183,76,159,79,171,85,202,85,202,79,171,86,182,85,202,86,182,96,214,96,214,86,182,97,191,96,214,97,191,110,223,110,223,97,191,111,197,110,223,111,197,126,228,126,228,111,197,126,199,76,159,85,202,76,188,76,159,76,188,76,37,174,224,171,175,177,163,174,224,177,163,199,209,199,209,177,163,183,149,199,209,183,149,186,133,187,67,183,54,187,18,187,18,183,54,178,42,187,18,178,42,171,32,171,32,164,25,187,18,187,18,164,25,156,19,187,18,156,19,155,1,234,120,230,155,228,78,228,78,230,155,218,185,228,78,218,185,212,44,212,44,218,185,199,209,212,44,199,209,190,99,190,99,199,209,189,116,187,67,187,18,189,82,189,82,187,18,212,44,189,82,212,44,190,99,125,11,117,-4,155,1,199,209,186,133,189,116,174,224,164,183,171,175,
+199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,195,166,198,172,199,179,195,195,184,209,167,220,146,227,122,230,108,229,94,226,80,221,67,213,55,204,40,189,28,172,19,152,14,130,12,106,17,70,30,39,50,15,76,0,108,-4,120,-3,132,-1,144,3,155,9,165,16,174,24,181,32,189,43,197,57,206,74,246,21,246,29,239,29,237,28,234,28,225,29,218,32,215,37,213,45,212,57,212,340,209,342,195,337,169,329,154,324,136,320,136,311,138,312,147,312,156,311,163,309,167,304,170,297,170,209,159,217,149,223,139,227,129,229,118,230,85,223,56,206,34,178,19,143,13,103,18,67,30,37,49,14,75,0,106,-4,122,-3,136,0,148,7,160,16,170,28,170,-2,172,-4,16383,16383,170,51,170,49,169,46,165,40,162,37,157,31,150,27,143,24,135,22,126,21,102,26,83,39,69,60,60,88,56,123,
+81,49,65,69,76,0,76,0,65,69,54,96,76,0,54,96,50,15,50,15,54,96,51,128,55,204,51,128,54,157,55,204,54,157,63,181,128,31,108,-4,120,-3,128,31,120,-3,132,-1,128,31,103,36,108,-4,81,49,76,0,108,-4,81,49,108,-4,103,36,136,212,141,208,146,227,146,227,141,208,145,201,146,227,145,201,148,191,148,191,151,180,167,220,167,220,151,180,154,172,167,220,154,172,159,166,122,230,119,215,128,215,122,230,128,215,146,227,146,227,128,215,136,212,195,195,184,209,189,161,195,195,189,161,195,166,195,195,195,166,198,172,195,195,198,172,199,179,184,209,167,220,169,158,184,209,169,158,175,157,184,209,175,157,183,158,184,209,183,158,189,161,167,220,159,166,163,161,167,220,163,161,169,158,167,220,146,227,148,191,174,24,181,32,185,60,185,60,181,32,189,43,185,60,189,43,199,78,199,78,189,43,197,57,199,78,197,57,206,74,132,-1,144,3,144,33,144,33,144,3,155,9,144,33,155,9,159,38,159,38,155,9,165,16,159,38,165,16,172,46,172,46,165,16,174,24,172,46,174,24,185,60,144,33,128,31,132,-1,96,211,119,215,108,229,96,211,108,229,94,226,96,211,94,226,80,221,96,211,80,221,78,200,67,213,55,204,63,181,67,213,63,181,78,200,67,213,78,200,80,221,40,189,28,172,30,39,40,189,30,39,50,15,40,189,50,15,51,128,40,189,51,128,55,204,19,152,14,130,17,70,19,152,17,70,30,39,19,152,30,39,28,172,119,215,122,230,108,229,17,70,14,130,12,106,
+246,21,246,29,239,29,237,28,234,28,225,29,218,32,215,37,213,45,212,57,212,340,209,342,195,337,169,329,154,324,136,320,136,311,138,312,147,312,156,311,163,309,167,304,170,297,170,209,159,217,149,223,139,227,129,229,118,230,85,223,56,206,34,178,19,143,13,103,18,67,30,37,49,14,75,0,106,-4,122,-3,136,0,148,7,160,16,170,28,170,-2,172,-4,16383,16383,170,51,170,49,169,46,165,40,162,37,157,31,150,27,143,24,135,22,126,21,102,26,83,39,69,60,60,88,56,123,59,154,67,180,80,199,98,212,119,216,135,213,149,206,160,195,167,181,170,166,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,11,225,11,209,51,209,51,52,50,34,47,21,40,13,28,9,10,7,10,0,140,0,140,7,119,9,106,13,98,21,95,33,94,52,94,209,155,209,
+170,209,159,217,160,195,160,195,159,217,149,223,160,195,149,223,149,206,149,206,149,223,139,227,149,206,139,227,135,213,135,213,139,227,129,229,135,213,129,229,119,216,67,180,80,199,85,223,85,223,80,199,98,212,85,223,98,212,118,230,118,230,98,212,119,216,118,230,119,216,129,229,13,103,18,67,19,143,19,143,18,67,30,37,19,143,30,37,34,178,34,178,30,37,49,14,34,178,49,14,56,206,56,206,49,14,56,123,56,206,56,123,59,154,56,206,59,154,67,180,56,206,67,180,85,223,126,21,106,-4,122,-3,126,21,122,-3,136,0,126,21,102,26,106,-4,83,39,69,60,75,0,83,39,75,0,106,-4,83,39,106,-4,102,26,60,88,56,123,49,14,60,88,49,14,75,0,60,88,75,0,69,60,169,46,167,43,170,28,170,28,167,43,165,40,170,28,165,40,162,37,162,37,157,31,160,16,160,16,157,31,150,27,160,16,150,27,148,7,148,7,150,27,143,24,148,7,143,24,136,0,136,0,143,24,135,22,136,0,135,22,126,21,140,312,142,312,154,324,154,324,142,312,145,312,154,324,145,312,147,312,147,312,156,311,154,324,154,324,156,311,169,329,154,324,136,320,138,312,154,324,138,312,140,312,170,209,170,166,170,28,170,209,170,28,170,286,170,297,170,286,182,333,170,297,182,333,169,329,170,209,160,195,167,181,170,209,167,181,170,166,172,-4,246,21,225,29,172,-4,225,29,218,32,172,-4,218,32,215,37,172,-4,215,37,213,45,172,-4,213,45,182,333,172,-4,182,333,170,28,172,-4,170,28,170,-2,170,28,170,166,170,51,170,28,170,51,170,49,170,28,170,49,169,46,162,37,160,16,170,28,212,57,212,340,209,342,212,57,209,342,195,337,212,57,195,337,213,45,239,29,237,28,246,21,246,21,237,28,235,28,246,21,235,28,234,28,234,28,225,29,246,21,241,29,239,29,246,21,241,29,246,21,246,29,169,329,156,311,163,309,169,329,163,309,167,304,169,329,167,304,170,297,138,312,136,320,136,311,182,333,170,286,170,28,182,333,213,45,195,337,
+204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,11,225,11,209,51,209,51,52,50,34,47,21,40,13,28,9,10,7,10,0,140,0,140,7,119,9,106,13,98,21,95,33,94,52,94,209,155,209,155,225,94,225,94,283,95,299,98,311,104,320,111,326,122,328,128,327,133,325,138,321,143,316,148,308,153,301,157,296,161,293,166,291,171,290,177,291,183,294,188,298,190,304,191,310,189,321,182,329,171,336,156,340,140,342,121,340,105,335,90,328,78,318,69,305,62,292,
+52,100,50,118,49,15,49,15,50,118,49,138,49,15,49,138,31,182,49,15,31,182,29,39,29,39,31,182,17,148,29,39,17,148,17,70,17,70,17,148,12,108,133,228,116,230,120,210,120,210,116,230,103,212,87,210,103,212,116,230,87,210,116,230,81,224,190,62,176,48,181,26,181,26,176,48,162,37,181,26,162,37,160,9,160,9,162,37,146,31,160,9,146,31,136,-1,136,-1,146,31,127,30,203,138,201,153,198,166,203,138,198,166,195,177,203,138,195,177,190,186,203,138,190,186,185,195,203,138,185,195,175,207,203,138,175,207,163,217,203,138,163,217,151,155,203,138,151,155,50,155,203,138,50,155,49,138,141,192,147,176,149,224,149,224,147,176,151,155,149,224,151,155,163,217,198,49,212,79,204,82,198,49,204,82,190,62,198,49,190,62,181,26,114,31,101,34,108,-4,114,31,108,-4,136,-1,114,31,136,-1,127,30,101,34,90,39,108,-4,108,-4,90,39,80,47,108,-4,80,47,75,0,75,0,80,47,71,57,133,228,120,210,133,203,133,228,133,203,141,192,133,228,141,192,149,224,50,155,55,175,52,207,52,207,55,175,63,191,52,207,63,191,81,224,81,224,63,191,74,203,81,224,74,203,87,210,52,207,31,182,49,138,52,207,49,138,50,155,75,0,71,57,62,71,75,0,62,71,56,85,75,0,56,85,52,100,75,0,52,100,49,15,
+11,225,11,209,51,209,51,52,50,34,47,21,40,13,28,9,10,7,10,0,140,0,140,7,119,9,106,13,98,21,95,33,94,52,94,209,155,209,155,225,94,225,94,283,95,299,98,311,104,320,111,326,122,328,128,327,133,325,138,321,143,316,148,308,153,301,157,296,161,293,166,291,171,290,177,291,183,294,188,298,190,304,191,310,189,321,182,329,171,336,156,340,140,342,121,340,105,335,90,328,78,318,69,305,62,292,57,279,54,264,52,247,51,225,235,194,235,214,185,214,180,215,175,217,169,219,158,223,134,229,126,230,118,230,91,226,68,214,51,197,39,174,35,148,36,131,41,116,50,103,63,92,81,81,77,77,72,73,60,61,51,53,44,46,40,39,37,33,36,27,37,21,40,16,44,11,52,6,63,1,44,-13,30,-26,21,-37,16,-48,14,-59,18,-75,31,-88,49,-98,73,-105,100,-108,122,-106,144,-102,165,-96,184,-87,200,-76,211,-66,220,-56,226,-46,229,-35,230,-24,228,-6,220,7,207,18,190,26,
+57,279,54,264,95,33,95,33,54,264,52,247,95,33,52,247,51,209,51,209,52,247,51,225,51,209,51,225,11,225,78,318,95,33,94,52,94,225,94,209,155,209,94,225,155,209,155,225,133,325,140,342,128,327,128,327,140,342,122,328,111,326,122,328,121,340,111,326,121,340,105,335,94,283,95,299,90,328,90,328,95,299,98,311,90,328,98,311,105,335,105,335,98,311,104,320,105,335,104,320,111,326,90,328,78,318,94,52,90,328,94,52,94,283,189,321,182,329,183,294,189,321,183,294,188,298,189,321,188,298,190,304,189,321,190,304,191,310,166,291,171,290,171,336,171,336,171,290,177,291,171,336,177,291,182,329,182,329,177,291,183,294,148,308,153,301,156,340,156,340,153,301,157,296,156,340,157,296,171,336,171,336,157,296,161,293,171,336,161,293,166,291,143,316,148,308,156,340,143,316,156,340,140,342,143,316,140,342,138,321,140,342,121,340,122,328,140,0,140,7,119,9,140,0,119,9,106,13,140,0,106,13,50,34,140,0,50,34,47,21,140,0,47,21,40,13,140,0,40,13,28,9,140,0,28,9,10,7,140,0,10,7,10,0,95,33,78,318,69,305,95,33,69,305,62,292,95,33,62,292,57,279,51,52,50,34,106,13,51,52,106,13,98,21,51,52,98,21,95,33,51,52,95,33,51,209,51,209,11,225,11,209,140,342,133,325,138,321,
+235,194,235,214,185,214,180,215,175,217,169,219,158,223,134,229,126,230,118,230,91,226,68,214,51,197,39,174,35,148,36,131,41,116,50,103,63,92,81,81,77,77,72,73,60,61,51,53,44,46,40,39,37,33,36,27,37,21,40,16,44,11,52,6,63,1,44,-13,30,-26,21,-37,16,-48,14,-59,18,-75,31,-88,49,-98,73,-105,100,-108,122,-106,144,-102,165,-96,184,-87,200,-76,211,-66,220,-56,226,-46,229,-35,230,-24,228,-6,220,7,207,18,190,26,170,29,105,32,91,33,80,35,72,38,68,41,66,46,68,52,73,60,80,67,88,73,97,77,106,76,111,75,125,75,136,76,146,78,157,82,167,87,177,94,186,103,194,113,199,124,202,137,203,152,203,160,202,168,200,176,194,194,16383,16383,76,169,78,185,82,198,90,208,100,214,113,216,122,215,130,212,137,207,144,201,150,193,155,181,159,169,162,157,164,145,165,132,163,117,158,104,150,95,140,89,127,87,110,91,96,102,85,118,78,141,76,167,16383,16383,217,-31,212,-47,200,-60,180,-71,153,-77,122,-79,97,-78,77,-73,62,-65,52,-55,49,-43,50,-36,52,-30,56,-22,63,-13,74,0,86,-2,102,-4,138,-6,155,-6,178,-7,196,-10,208,-14,214,-21,217,-31,243,0,243,7,230,10,221,15,216,22,214,34,214,151,211,179,204,201,191,217,174,227,152,230,135,228,120,224,106,216,92,204,79,188,79,340,76,342,66,338,46,332,34,328,18,324,5,320,5,311,6,312,11,312,22,311,29,309,34,305,36,297,36,33,33,22,28,15,19,10,4,7,4,0,113,0,113,7,98,10,88,14,82,22,79,34,79,171,90,184,101,193,112,199,123,202,134,203,148,201,158,195,165,184,170,169,171,150,171,34,168,22,162,14,152,10,137,7,137,0,90,316,89,324,85,331,80,337,73,340,65,342,56,340,49,336,44,331,40,324,39,316,40,308,44,301,49,295,56,292,64,291,73,292,80,295,85,301,89,308,90,316,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,88,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,8,0,97,316,96,324,92,331,86,337,79,340,71,342,63,340,56,336,51,331,47,324,46,316,47,308,51,301,56,295,63,292,71,291,79,292,87,295,92,301,96,308,97,316,16383,16383,97,228,94,230,77,224,62,218,48,213,33,208,16,203,16,195,18,195,23,196,27,197,39,197,
+85,118,81,81,88,73,88,73,81,81,80,67,80,67,81,81,77,77,80,67,77,77,73,60,73,60,77,77,72,73,73,60,72,73,68,52,68,52,72,73,68,69,68,52,68,69,66,46,66,46,64,65,63,-13,63,-13,64,65,63,1,116,75,127,87,111,75,111,75,127,87,110,91,111,75,110,91,106,76,106,76,110,91,97,77,88,73,97,77,96,102,88,73,96,102,85,118,118,230,113,216,122,215,118,230,122,215,126,230,126,230,122,215,130,212,126,230,130,212,134,229,134,229,130,212,137,207,134,229,137,207,142,227,142,227,137,207,144,201,142,227,144,201,150,225,150,225,144,201,150,193,127,87,116,75,120,75,127,87,120,75,123,75,127,87,123,75,125,75,127,87,125,75,136,76,110,91,96,102,97,77,169,219,158,223,159,169,169,219,159,169,162,157,169,219,162,157,164,145,169,219,164,145,165,132,169,219,165,132,167,87,169,219,167,87,177,94,169,219,177,94,175,217,167,87,165,132,163,117,167,87,163,117,158,104,167,87,158,104,157,82,127,87,136,76,140,89,140,89,136,76,146,78,140,89,146,78,150,95,150,95,146,78,157,82,150,95,157,82,158,104,82,198,90,208,91,226,91,226,90,208,100,214,91,226,100,214,118,230,118,230,100,214,113,216,76,167,76,169,68,214,68,214,76,169,78,185,68,214,78,185,91,226,91,226,78,185,82,198,81,81,85,118,78,141,81,81,78,141,76,167,81,81,76,167,68,214,81,81,68,214,63,92,51,197,39,174,41,116,51,197,41,116,50,103,51,197,50,103,63,92,51,197,63,92,68,214,39,174,35,148,36,131,39,174,36,131,41,116,51,53,44,46,44,11,51,53,44,11,52,6,51,53,52,6,60,61,36,27,37,21,37,33,37,33,37,21,40,16,37,33,40,16,40,39,40,39,40,16,44,11,40,39,44,11,44,46,30,-26,31,-88,44,-13,44,-13,31,-88,49,-98,44,-13,49,-98,49,-43,49,-43,50,-36,44,-13,44,-13,50,-36,52,-30,44,-13,52,-30,63,1,63,1,52,-30,56,-22,63,1,56,-22,63,-13,74,0,72,38,68,41,74,0,68,41,66,46,74,0,66,46,63,-13,74,0,80,35,72,38,60,61,52,6,63,1,60,61,63,1,64,65,62,-65,73,-105,77,-73,77,-73,73,-105,100,-108,77,-73,100,-108,97,-78,97,-78,100,-108,122,-79,153,-77,122,-79,122,-106,153,-77,122,-106,144,-102,52,-55,49,-43,49,-98,52,-55,49,-98,73,-105,52,-55,73,-105,62,-65,21,-37,16,-48,18,-75,21,-37,18,-75,31,-88,21,-37,31,-88,30,-26,196,214,191,214,194,194,196,214,194,194,235,194,196,214,235,194,235,214,202,137,203,152,203,160,202,137,203,160,202,168,202,137,202,168,200,176,202,137,200,176,199,124,197,185,194,194,194,113,197,185,194,113,199,124,197,185,199,124,200,176,191,214,185,214,186,103,191,214,186,103,194,113,191,214,194,113,194,194,180,215,175,217,177,94,180,215,177,94,186,103,180,215,186,103,185,214,155,181,159,169,158,223,155,181,158,223,150,225,155,181,150,225,150,193,208,-14,214,-21,220,7,220,7,214,-21,217,-31,220,-56,217,-31,212,-47,138,-6,155,-6,170,29,170,29,155,-6,178,-7,170,29,178,-7,190,26,190,26,178,-7,196,-10,190,26,196,-10,207,18,207,18,196,-10,208,-14,207,18,208,-14,220,7,228,-6,220,7,220,-56,228,-6,220,-56,226,-46,228,-6,226,-46,229,-35,228,-6,229,-35,230,-24,153,-77,165,-96,180,-71,180,-71,165,-96,184,-87,180,-71,184,-87,200,-60,200,-60,184,-87,200,-76,200,-60,200,-76,212,-47,212,-47,200,-76,211,-66,212,-47,211,-66,220,-56,138,-6,170,29,120,-5,120,-5,170,29,105,32,120,-5,105,32,102,-4,102,-4,105,32,91,33,102,-4,91,33,86,-2,86,-2,91,33,80,35,86,-2,80,35,74,0,122,-79,100,-108,122,-106,153,-77,144,-102,165,-96,217,-31,220,-56,220,7,18,-75,16,-48,14,-59,64,65,66,46,68,69,
+243,0,243,7,230,10,221,15,216,22,214,34,214,151,211,179,204,201,191,217,174,227,152,230,135,228,120,224,106,216,92,204,79,188,79,340,76,342,66,338,46,332,34,328,18,324,5,320,5,311,6,312,11,312,22,311,29,309,34,305,36,297,36,33,33,22,28,15,19,10,4,7,4,0,113,0,113,7,98,10,88,14,82,22,79,34,79,171,90,184,101,193,112,199,123,202,134,203,148,201,158,195,165,184,170,169,171,150,171,34,168,22,162,14,152,10,137,7,137,0,90,316,89,324,85,331,80,337,73,340,65,342,56,340,49,336,44,331,40,324,39,316,40,308,44,301,49,295,56,292,64,291,73,292,80,295,85,301,89,308,90,316,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,88,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,8,0,97,316,96,324,92,331,86,337,79,340,71,342,63,340,56,336,51,331,47,324,46,316,47,308,51,301,56,295,63,292,
+33,22,28,15,113,0,113,0,28,15,19,10,113,0,19,10,4,7,7,312,9,312,18,324,18,324,9,312,10,312,18,324,10,312,11,312,11,312,22,311,18,324,18,324,22,311,34,328,18,324,5,320,6,312,18,324,6,312,7,312,88,14,82,22,36,51,36,51,82,22,79,34,36,51,79,34,36,286,36,297,36,286,46,332,36,297,46,332,34,328,34,328,22,311,29,309,34,328,29,309,34,305,34,328,34,305,36,297,79,188,79,340,76,342,79,188,76,342,79,51,79,51,76,342,66,338,79,51,66,338,79,34,79,34,66,338,56,335,79,34,56,335,46,332,135,228,134,203,148,201,135,228,148,201,152,230,152,230,148,201,158,195,152,230,158,195,174,227,174,227,158,195,165,184,174,227,165,184,170,169,79,171,90,184,92,204,92,204,90,184,101,193,92,204,101,193,106,216,106,216,101,193,112,199,106,216,112,199,120,224,120,224,112,199,123,202,120,224,123,202,135,228,135,228,123,202,134,203,79,51,79,171,79,188,79,188,79,171,92,204,168,22,162,14,243,0,243,0,162,14,152,10,243,0,152,10,137,7,174,227,170,169,171,150,216,22,171,150,171,51,216,22,171,51,221,15,221,15,171,51,171,34,221,15,171,34,243,0,243,0,171,34,168,22,214,51,214,151,211,179,214,51,211,179,204,201,214,51,204,201,214,34,230,10,221,15,243,0,230,10,243,0,243,7,171,150,216,22,174,227,174,227,216,22,214,34,174,227,214,34,191,217,191,217,214,34,204,201,113,0,113,7,98,10,113,0,98,10,88,14,113,0,88,14,36,33,113,0,36,33,33,22,113,0,4,7,4,0,36,33,88,14,36,51,36,286,79,34,46,332,243,0,137,7,137,0,6,312,5,320,5,311,
+90,316,89,324,85,331,80,337,73,340,65,342,56,340,49,336,44,331,40,324,39,316,40,308,44,301,49,295,56,292,64,291,73,292,80,295,85,301,89,308,90,316,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,88,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,8,0,97,316,96,324,92,331,86,337,79,340,71,342,63,340,56,336,51,331,47,324,46,316,47,308,51,301,56,295,63,292,71,291,79,292,87,295,92,301,96,308,97,316,16383,16383,97,228,94,230,77,224,62,218,48,213,33,208,16,203,16,195,18,195,23,196,27,197,39,197,45,196,49,193,52,187,54,178,55,167,55,-21,54,-41,54,-56,52,-67,50,-76,47,-82,
+39,316,40,308,40,324,40,324,40,308,44,301,40,324,44,301,44,331,44,331,44,301,49,295,44,331,49,295,49,336,49,336,49,295,56,292,49,336,56,292,56,340,56,340,56,292,64,291,56,340,64,291,65,342,65,342,64,291,73,292,65,342,73,292,73,340,73,340,73,292,80,295,73,340,80,295,80,337,80,337,80,295,85,301,80,337,85,301,85,331,85,331,85,301,89,308,85,331,89,308,89,324,89,324,89,308,90,316,43,20,37,13,127,0,127,0,37,13,25,9,127,0,25,9,8,7,20,197,24,197,88,230,88,230,24,197,28,197,88,230,28,197,31,197,31,197,38,196,88,230,88,230,38,196,42,193,88,230,42,193,45,187,43,20,127,0,47,33,47,33,127,0,99,14,47,33,99,14,47,52,47,52,99,14,93,21,47,52,93,21,47,166,47,178,47,166,88,230,47,178,88,230,45,187,15,196,20,197,88,230,15,196,88,230,10,203,15,196,10,203,10,195,89,52,89,228,88,230,89,52,88,230,47,166,89,52,47,166,90,34,110,9,99,14,127,0,110,9,127,0,127,7,127,0,8,7,8,0,47,166,93,21,90,34,
+97,316,96,324,92,331,86,337,79,340,71,342,63,340,56,336,51,331,47,324,46,316,47,308,51,301,56,295,63,292,71,291,79,292,87,295,92,301,96,308,97,316,16383,16383,97,228,94,230,77,224,62,218,48,213,33,208,16,203,16,195,18,195,23,196,27,197,39,197,45,196,49,193,52,187,54,178,55,167,55,-21,54,-41,54,-56,52,-67,50,-76,47,-82,45,-85,39,-89,35,-91,26,-91,18,-87,14,-83,4,-71,0,-66,-4,-63,-9,-61,-14,-61,-20,-62,-26,-65,-30,-69,-33,-74,-34,-80,-32,-90,-26,-97,-16,-103,-3,-107,12,-108,42,-103,65,-90,83,-68,93,-38,97,0,252,0,252,7,240,9,228,13,217,20,206,30,194,44,118,141,132,155,164,183,188,201,206,212,222,217,240,218,240,225,138,225,138,218,148,218,155,217,160,215,162,212,163,209,161,203,155,195,151,191,83,131,83,340,81,342,70,338,48,332,35,328,18,324,3,320,3,311,7,312,17,312,20,313,28,312,34,309,38,303,40,294,41,282,41,41,40,28,38,20,32,14,21,11,3,7,3,0,121,0,121,7,110,8,100,9,92,12,87,17,84,24,83,33,83,126,158,26,160,24,162,21,163,19,163,17,164,15,163,13,162,10,153,7,143,7,143,0,128,0,128,7,
+86,337,87,295,92,331,92,331,87,295,92,301,92,331,92,301,96,324,96,324,92,301,96,308,96,324,96,308,97,316,46,316,47,308,47,324,47,324,47,308,51,301,47,324,51,301,51,331,51,331,51,301,56,295,51,331,56,295,56,336,56,336,56,295,63,292,56,336,63,292,63,340,63,340,63,292,71,291,63,340,71,291,71,342,71,342,71,291,79,292,71,342,79,292,79,340,79,340,79,292,87,295,79,340,87,295,86,337,18,195,23,196,33,208,18,195,33,208,16,203,18,195,16,203,16,195,42,-87,39,-89,42,-103,42,-103,39,-89,35,-91,42,-103,35,-91,31,-91,31,-91,26,-91,42,-103,42,-103,26,-91,22,-89,42,-103,22,-89,18,-87,52,187,62,218,49,193,49,193,62,218,48,213,49,193,48,213,45,196,45,196,48,213,39,197,35,197,39,197,48,213,35,197,48,213,33,208,54,-56,52,-67,65,-90,65,-90,52,-67,50,-76,65,-90,50,-76,47,-82,47,-82,45,-85,65,-90,65,-90,45,-85,42,-87,65,-90,42,-87,42,-103,93,-38,94,230,83,-68,83,-68,94,230,77,224,83,-68,77,224,65,-90,65,-90,77,224,62,218,65,-90,62,218,55,167,55,167,62,218,54,178,33,208,23,196,27,197,33,208,27,197,32,197,33,208,32,197,35,197,97,0,97,228,94,230,97,0,94,230,93,-38,65,-90,55,167,55,-21,65,-90,55,-21,54,-41,65,-90,54,-41,54,-56,12,-108,42,-103,18,-87,12,-108,18,-87,14,-83,12,-108,14,-83,9,-77,12,-108,9,-77,4,-71,12,-108,4,-71,0,-66,12,-108,0,-66,-3,-107,-3,-107,0,-66,-4,-63,-3,-107,-4,-63,-9,-61,-3,-107,-9,-61,-14,-61,-3,-107,-14,-61,-16,-103,-20,-62,-26,-65,-26,-97,-20,-62,-26,-97,-16,-103,-20,-62,-16,-103,-14,-61,-30,-69,-33,-74,-32,-90,-30,-69,-32,-90,-26,-97,-30,-69,-26,-97,-26,-65,-32,-90,-33,-74,-34,-80,62,218,52,187,54,178,
+252,0,252,7,240,9,228,13,217,20,206,30,194,44,118,141,132,155,164,183,188,201,206,212,222,217,240,218,240,225,138,225,138,218,148,218,155,217,160,215,162,212,163,209,161,203,155,195,151,191,83,131,83,340,81,342,70,338,48,332,35,328,18,324,3,320,3,311,7,312,17,312,20,313,28,312,34,309,38,303,40,294,41,282,41,41,40,28,38,20,32,14,21,11,3,7,3,0,121,0,121,7,110,8,100,9,92,12,87,17,84,24,83,33,83,126,158,26,160,24,162,21,163,19,163,17,164,15,163,13,162,10,153,7,143,7,143,0,128,0,128,7,112,9,101,13,95,20,92,29,91,44,91,339,89,342,74,337,59,333,45,329,28,324,9,320,9,311,14,312,25,312,28,313,36,311,42,308,46,302,48,293,49,281,49,46,48,32,45,21,38,14,27,10,11,7,11,0,387,0,387,7,374,8,366,10,360,13,356,19,354,27,353,39,353,140,351,172,344,197,333,215,317,226,295,230,278,228,262,224,246,215,230,204,214,188,207,203,199,215,188,223,176,228,161,230,147,229,133,226,119,220,103,208,84,191,83,191,83,228,79,230,51,220,25,212,9,208,9,199,13,200,16,200,19,201,
+38,20,32,14,121,0,121,0,32,14,21,11,121,0,21,11,3,7,10,312,14,312,18,324,18,324,14,312,17,312,18,324,17,312,20,313,20,313,28,312,35,328,35,328,28,312,34,309,35,328,34,309,38,303,7,312,10,312,18,324,7,312,18,324,3,320,7,312,3,320,3,311,194,44,118,141,158,26,158,26,118,141,83,131,158,26,83,131,83,126,84,24,83,33,48,332,84,24,48,332,41,282,41,282,48,332,40,294,48,332,35,328,38,303,48,332,38,303,40,294,35,328,18,324,20,313,83,33,83,340,81,342,83,33,81,342,70,338,83,33,70,338,59,335,83,33,59,335,48,332,151,191,118,141,132,155,151,191,132,155,164,183,151,191,83,131,118,141,161,203,158,199,164,183,164,183,158,199,155,195,164,183,155,195,151,191,240,225,138,225,148,218,240,225,148,218,155,217,240,225,155,217,160,215,240,225,160,215,162,212,240,225,162,212,163,209,240,225,163,209,206,212,240,225,206,212,222,217,240,225,222,217,240,218,163,209,164,183,188,201,163,209,188,201,206,212,164,183,163,209,162,206,164,183,162,206,161,203,162,10,159,9,252,0,252,0,159,9,156,8,252,0,156,8,153,7,164,15,252,0,228,13,164,15,228,13,217,20,164,15,217,20,206,30,164,15,206,30,194,44,164,15,194,44,163,17,194,44,158,26,160,24,194,44,160,24,162,21,194,44,162,21,163,19,194,44,163,19,163,17,240,9,228,13,252,0,240,9,252,0,252,7,163,13,162,10,252,0,163,13,252,0,164,15,143,7,143,0,252,0,143,7,252,0,153,7,121,0,121,7,110,8,121,0,110,8,100,9,121,0,100,9,92,12,121,0,92,12,40,28,121,0,40,28,38,20,92,12,87,17,41,41,41,41,87,17,84,24,41,41,84,24,41,282,121,0,3,7,3,0,40,28,92,12,41,41,148,218,138,225,138,218,
+128,0,128,7,112,9,101,13,95,20,92,29,91,44,91,339,89,342,74,337,59,333,45,329,28,324,9,320,9,311,14,312,25,312,28,313,36,311,42,308,46,302,48,293,49,281,49,46,48,32,45,21,38,14,27,10,11,7,11,0,387,0,387,7,374,8,366,10,360,13,356,19,354,27,353,39,353,140,351,172,344,197,333,215,317,226,295,230,278,228,262,224,246,215,230,204,214,188,207,203,199,215,188,223,176,228,161,230,147,229,133,226,119,220,103,208,84,191,83,191,
+45,21,38,14,128,0,128,0,38,14,27,10,128,0,27,10,11,7,18,312,22,312,28,324,28,324,22,312,25,312,28,324,25,312,28,313,28,313,36,311,28,324,28,324,36,311,45,329,28,324,9,320,14,312,28,324,14,312,18,312,36,311,42,308,45,329,45,329,42,308,46,302,45,329,46,302,59,333,59,333,46,302,48,293,59,333,48,293,49,281,92,29,49,281,49,46,92,29,49,46,95,20,95,20,49,46,101,13,91,44,91,339,89,342,91,44,89,342,74,337,91,44,74,337,59,333,91,44,59,333,92,29,128,0,128,7,112,9,128,0,112,9,101,13,128,0,101,13,48,32,128,0,48,32,45,21,14,312,9,320,9,311,128,0,11,7,11,0,48,32,101,13,49,46,49,281,92,29,59,333,
+387,0,387,7,374,8,366,10,360,13,356,19,354,27,353,39,353,140,351,172,344,197,333,215,317,226,295,230,278,228,262,224,246,215,230,204,214,188,207,203,199,215,188,223,176,228,161,230,147,229,133,226,119,220,103,208,84,191,83,191,83,228,79,230,51,220,25,212,9,208,9,199,13,200,16,200,19,201,26,201,32,200,37,196,41,190,42,181,43,168,43,44,42,29,39,19,32,12,22,9,8,7,8,0,119,0,119,7,105,8,96,11,89,16,86,24,85,35,85,175,99,189,109,195,121,200,133,203,145,204,156,202,165,195,172,183,176,168,177,148,177,43,176,28,173,18,167,12,157,9,143,7,143,0,255,0,255,7,240,9,230,12,223,19,220,31,219,47,219,174,228,185,237,194,248,200,259,203,272,204,287,202,298,196,305,185,310,169,311,148,311,45,310,30,307,20,302,14,293,10,278,7,278,0,243,0,243,7,230,9,221,13,216,19,213,29,212,42,212,153,210,180,202,201,190,217,174,227,153,230,139,229,125,224,111,216,96,205,81,190,80,190,80,228,76,230,50,220,37,216,23,212,8,208,8,199,10,200,13,200,16,201,22,201,30,200,35,197,38,191,40,181,40,47,39,32,37,21,31,14,22,9,9,7,9,0,114,0,114,7,101,9,92,13,86,18,83,26,82,36,82,174,95,186,105,194,115,199,124,202,133,203,147,201,157,195,164,185,169,171,170,152,170,52,169,35,166,23,161,15,152,10,139,7,138,0,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,
+16,200,19,201,25,212,25,212,19,201,22,201,25,212,22,201,26,201,26,201,32,200,38,216,38,216,32,200,37,196,38,216,37,196,41,190,25,212,9,208,13,200,25,212,13,200,16,200,38,216,41,190,51,220,51,220,41,190,42,181,51,220,42,181,43,168,86,24,43,168,43,44,86,24,43,44,89,16,89,16,43,44,96,11,38,216,25,212,26,201,83,228,79,230,83,191,83,191,79,230,85,35,83,191,85,35,84,191,84,191,85,35,85,174,84,191,85,174,85,175,173,18,167,12,255,0,255,0,167,12,157,9,255,0,157,9,143,7,161,230,147,229,156,202,156,202,147,229,145,204,133,203,145,204,133,226,133,203,133,226,121,200,121,200,133,226,119,220,121,200,119,220,109,195,109,195,119,220,103,208,109,195,103,208,99,189,99,189,103,208,92,182,103,208,84,191,85,175,103,208,85,175,86,176,103,208,86,176,88,178,103,208,88,178,90,180,103,208,90,180,92,182,85,35,79,230,65,225,85,35,65,225,86,24,147,229,133,226,145,204,173,18,255,0,176,28,176,28,255,0,230,12,176,28,230,12,177,43,177,43,230,12,223,19,177,43,223,19,177,148,176,228,177,148,188,223,176,228,161,230,165,195,176,228,165,195,172,183,176,228,172,183,176,168,176,228,176,168,177,148,207,203,199,215,220,31,207,203,220,31,219,47,207,203,219,47,214,188,219,174,228,185,230,204,230,204,228,185,237,194,230,204,237,194,246,215,246,215,237,194,248,200,246,215,248,200,262,224,262,224,248,200,259,203,262,224,259,203,272,204,272,204,287,202,278,228,278,228,287,202,295,230,219,47,219,174,214,188,214,188,219,174,230,204,278,228,262,224,272,204,307,20,302,14,387,0,387,0,302,14,293,10,387,0,293,10,278,7,298,196,305,185,317,226,317,226,305,185,310,169,317,226,310,169,311,148,356,19,311,148,311,45,356,19,311,45,360,13,360,13,311,45,310,30,360,13,310,30,366,10,366,10,310,30,387,0,366,10,387,0,374,8,374,8,387,0,387,7,295,230,287,202,298,196,295,230,298,196,317,226,353,39,353,140,351,172,353,39,351,172,344,197,353,39,344,197,333,215,353,39,333,215,354,27,354,27,333,215,317,226,354,27,317,226,311,148,354,27,311,148,356,19,240,9,230,12,255,0,240,9,255,0,255,7,220,31,199,215,188,223,220,31,188,223,177,148,220,31,177,148,223,19,119,0,119,7,105,8,119,0,105,8,96,11,119,0,96,11,42,29,119,0,42,29,39,19,119,0,39,19,32,12,119,0,32,12,22,9,119,0,22,9,8,7,119,0,8,7,8,0,51,220,43,168,86,24,51,220,86,24,65,225,13,200,9,208,9,199,42,29,96,11,43,44,255,0,143,7,143,0,387,0,278,7,278,0,307,20,387,0,310,30,161,230,156,202,165,195,
+243,0,243,7,230,9,221,13,216,19,213,29,212,42,212,153,210,180,202,201,190,217,174,227,153,230,139,229,125,224,111,216,96,205,81,190,80,190,80,228,76,230,50,220,37,216,23,212,8,208,8,199,10,200,13,200,16,201,22,201,30,200,35,197,38,191,40,181,40,47,39,32,37,21,31,14,22,9,9,7,9,0,114,0,114,7,101,9,92,13,86,18,83,26,82,36,82,174,95,186,105,194,115,199,124,202,133,203,147,201,157,195,164,185,169,171,170,152,170,52,169,35,166,23,161,15,152,10,139,7,138,0,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,79,229,76,230,62,224,20,209,4,204,4,196,7,197,17,197,26,196,31,194,35,189,37,180,37,-78,
+37,21,31,14,114,0,114,0,31,14,22,9,114,0,22,9,9,7,13,200,16,201,23,212,23,212,16,201,19,201,23,212,19,201,22,201,22,201,30,200,23,212,23,212,30,200,37,216,23,212,8,208,10,200,23,212,10,200,13,200,30,200,35,197,37,216,37,216,35,197,38,191,37,216,38,191,50,220,50,220,38,191,40,181,50,220,40,181,40,169,83,26,40,169,40,47,83,26,40,47,86,18,86,18,40,47,92,13,80,228,76,230,80,190,80,190,76,230,82,36,80,190,82,36,81,190,81,190,82,36,82,174,81,190,82,174,96,205,96,205,82,174,95,186,96,205,95,186,105,194,96,205,105,194,111,216,111,216,105,194,115,199,111,216,115,199,125,224,125,224,115,199,124,202,125,224,124,202,133,203,133,203,147,201,139,229,139,229,147,201,153,230,82,36,76,230,63,225,82,36,63,225,83,26,139,229,125,224,133,203,166,23,161,15,243,0,243,0,161,15,152,10,243,0,152,10,139,7,157,195,164,185,174,227,174,227,164,185,169,171,174,227,169,171,170,152,216,19,170,152,170,52,216,19,170,52,221,13,221,13,170,52,169,35,221,13,169,35,243,0,243,0,169,35,166,23,153,230,147,201,157,195,153,230,157,195,174,227,212,42,212,153,210,180,212,42,210,180,202,201,212,42,202,201,213,29,230,9,221,13,243,0,230,9,243,0,243,7,213,29,202,201,190,217,213,29,190,217,174,227,213,29,174,227,170,152,213,29,170,152,216,19,114,0,114,7,101,9,114,0,101,9,92,13,114,0,92,13,39,32,114,0,39,32,37,21,50,220,40,169,83,26,50,220,83,26,63,225,10,200,8,208,8,199,114,0,9,7,9,0,39,32,92,13,40,47,243,0,139,7,138,0,
+235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,79,229,76,230,62,224,20,209,4,204,4,196,7,197,17,197,26,196,31,194,35,189,37,180,37,-78,34,-87,27,-93,17,-97,2,-99,2,-107,123,-107,123,-98,104,-97,92,-94,84,-88,80,-77,79,-61,79,17,90,8,99,2,108,-1,118,-3,130,-4,164,1,193,19,215,47,230,82,235,123,231,158,219,188,202,210,179,225,151,230,135,228,120,224,106,216,93,205,79,190,16383,16383,79,167,82,176,91,185,103,193,116,198,131,200,
+64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,
+79,229,76,230,62,224,20,209,4,204,4,196,7,197,17,197,26,196,31,194,35,189,37,180,37,-78,34,-87,27,-93,17,-97,2,-99,2,-107,123,-107,123,-98,104,-97,92,-94,84,-88,80,-77,79,-61,79,17,90,8,99,2,108,-1,118,-3,130,-4,164,1,193,19,215,47,230,82,235,123,231,158,219,188,202,210,179,225,151,230,135,228,120,224,106,216,93,205,79,190,16383,16383,79,167,82,176,91,185,103,193,116,198,131,200,151,195,168,183,181,163,189,136,192,103,189,73,181,47,168,28,152,15,132,11,117,13,103,18,91,26,82,35,79,44,244,-107,244,-99,231,-97,222,-93,216,-88,213,-80,213,228,207,228,180,213,167,220,155,224,144,228,122,230,87,224,57,206,33,179,18,144,12,103,16,67,27,38,44,15,66,0,92,-4,109,-2,126,1,142,8,157,19,171,32,171,-61,169,-75,165,-86,157,-93,144,-97,126,-99,126,-107,16383,16383,171,64,170,57,170,52,168,47,167,44,165,41,149,31,140,28,130,26,112,26,96,30,89,34,83,39,74,50,66,64,60,81,56,100,55,121,58,153,67,179,81,199,100,211,124,215,141,214,154,208,163,198,169,184,171,166,80,229,78,230,62,224,48,219,
+34,-87,27,-93,123,-107,123,-107,27,-93,17,-97,123,-107,17,-97,2,-99,9,197,12,197,20,209,20,209,12,197,14,197,20,209,14,197,17,197,17,197,26,196,20,209,20,209,26,196,34,214,20,209,4,204,7,197,20,209,7,197,9,197,82,35,79,44,90,8,90,8,79,44,79,17,80,-77,79,-61,48,219,80,-77,48,219,37,169,37,169,48,219,37,180,26,196,31,194,34,214,34,214,31,194,35,189,34,214,35,189,48,219,48,219,35,189,37,180,79,190,79,229,76,230,79,190,76,230,79,-61,79,190,79,-61,79,167,79,190,79,167,82,176,79,190,82,176,93,205,235,123,231,158,230,82,230,82,231,158,219,188,230,82,219,188,215,47,215,47,219,188,202,210,215,47,202,210,193,19,193,19,202,210,192,103,193,19,192,103,189,73,193,19,189,73,181,47,202,210,179,225,181,163,202,210,181,163,189,136,202,210,189,136,192,103,135,228,131,200,151,195,135,228,151,195,151,230,151,230,151,195,168,183,151,230,168,183,179,225,179,225,168,183,181,163,108,-1,118,-3,117,13,117,13,118,-3,132,11,152,15,132,11,164,1,152,15,164,1,168,28,168,28,164,1,193,19,168,28,193,19,181,47,132,11,118,-3,130,-4,132,11,130,-4,164,1,123,-107,123,-98,104,-97,123,-107,104,-97,92,-94,123,-107,92,-94,37,-78,123,-107,37,-78,34,-87,62,224,48,219,79,-61,62,224,79,-61,76,230,92,-94,84,-88,37,-64,37,-64,84,-88,80,-77,37,-64,80,-77,37,169,82,176,91,185,93,205,93,205,91,185,103,193,93,205,103,193,106,216,106,216,103,193,116,198,106,216,116,198,120,224,120,224,116,198,131,200,120,224,131,200,135,228,82,35,90,8,91,26,91,26,90,8,99,2,91,26,99,2,103,18,103,18,99,2,108,-1,103,18,108,-1,117,13,7,197,4,204,4,196,123,-107,2,-99,2,-107,37,-78,92,-94,37,-64,
+244,-107,244,-99,231,-97,222,-93,216,-88,213,-80,213,228,207,228,180,213,167,220,155,224,144,228,122,230,87,224,57,206,33,179,18,144,12,103,16,67,27,38,44,15,66,0,92,-4,109,-2,126,1,142,8,157,19,171,32,171,-61,169,-75,165,-86,157,-93,144,-97,126,-99,126,-107,16383,16383,171,64,170,57,170,52,168,47,167,44,165,41,149,31,140,28,130,26,112,26,96,30,89,34,83,39,74,50,66,64,60,81,56,100,55,121,58,153,67,179,81,199,100,211,124,215,141,214,154,208,163,198,169,184,171,166,80,229,78,230,62,224,48,219,35,214,20,209,3,203,3,195,7,196,11,196,14,197,21,197,28,196,32,193,36,187,37,179,38,167,38,42,37,29,35,21,29,15,18,11,2,7,2,0,123,0,123,7,105,9,93,13,85,20,81,30,80,45,80,157,82,168,88,179,97,189,106,196,115,199,119,197,122,196,125,194,128,191,133,187,137,184,141,182,144,181,148,181,155,182,160,185,164,190,167,196,167,204,166,213,163,220,157,225,149,229,140,230,128,228,117,224,106,215,94,202,80,183,78,151,71,156,64,163,
+112,26,104,28,109,-2,109,-2,104,28,96,30,109,-2,96,30,92,-4,92,-4,96,30,89,34,92,-4,89,34,83,39,83,39,74,50,92,-4,92,-4,74,50,66,64,92,-4,66,64,66,0,66,0,66,64,60,81,66,0,60,81,56,100,109,-2,126,1,112,26,112,26,126,1,121,26,130,26,121,26,126,1,130,26,126,1,142,8,133,229,124,215,141,214,133,229,141,214,144,228,144,228,141,214,154,208,144,228,154,208,155,224,155,224,154,208,163,198,155,224,163,198,167,220,167,220,163,198,169,184,167,220,169,184,180,213,180,213,169,184,171,166,180,213,171,166,171,32,171,32,171,166,171,64,67,179,81,199,87,224,87,224,81,199,100,211,87,224,100,211,122,230,122,230,100,211,124,215,122,230,124,215,133,229,57,206,33,179,44,15,57,206,44,15,55,121,57,206,55,121,58,153,57,206,58,153,67,179,57,206,67,179,87,224,55,121,44,15,56,100,12,103,16,67,18,144,18,144,16,67,27,38,18,144,27,38,33,179,33,179,27,38,44,15,165,-86,157,-93,244,-107,244,-107,157,-93,144,-97,244,-107,144,-97,126,-99,170,52,168,47,171,32,171,32,168,47,167,44,171,32,167,44,165,41,165,41,157,36,171,32,171,32,157,36,157,19,170,57,170,52,171,32,170,57,171,32,171,64,149,31,140,28,142,8,149,31,142,8,157,19,149,31,157,19,157,36,213,-69,213,228,207,228,213,-69,207,228,180,213,213,-69,180,213,213,-80,244,-107,244,-99,231,-97,244,-107,231,-97,222,-93,244,-107,222,-93,169,-75,244,-107,169,-75,165,-86,171,32,216,-88,213,-80,171,32,213,-80,180,213,171,-61,169,-75,222,-93,171,-61,222,-93,216,-88,171,-61,216,-88,171,32,244,-107,126,-99,126,-107,56,100,44,15,66,0,130,26,142,8,140,28,
+80,229,78,230,62,224,48,219,35,214,20,209,3,203,3,195,7,196,11,196,14,197,21,197,28,196,32,193,36,187,37,179,38,167,38,42,37,29,35,21,29,15,18,11,2,7,2,0,123,0,123,7,105,9,93,13,85,20,81,30,80,45,80,157,82,168,88,179,97,189,106,196,115,199,119,197,122,196,125,194,128,191,133,187,137,184,141,182,144,181,148,181,155,182,160,185,164,190,167,196,167,204,166,213,163,220,157,225,149,229,140,230,128,228,117,224,106,215,94,202,80,183,78,151,71,156,64,163,60,170,57,178,56,185,58,197,63,207,71,214,82,217,94,219,110,217,123,210,134,198,143,181,151,157,158,157,156,225,150,225,145,220,140,220,137,221,134,221,131,223,122,226,115,228,109,229,94,229,72,227,53,219,38,207,29,190,26,168,28,153,35,138,47,123,63,109,85,95,113,80,129,68,134,60,138,52,139,43,137,31,132,21,123,13,112,8,98,6,79,9,63,17,51,31,41,50,34,76,26,76,26,-1,32,-1,34,0,36,2,39,3,41,4,48,4,
+11,196,14,197,20,209,20,209,14,197,18,197,20,209,18,197,21,197,21,197,28,196,35,214,35,214,28,196,32,193,35,214,32,193,36,187,20,209,3,203,7,196,20,209,7,196,11,196,80,183,80,229,78,230,80,183,78,230,80,45,80,45,78,230,62,224,80,45,62,224,81,30,81,30,62,224,48,219,81,30,48,219,38,167,38,167,48,219,37,179,48,219,35,214,36,187,48,219,36,187,37,179,35,214,20,209,21,197,122,196,128,228,119,197,119,197,128,228,117,224,119,197,117,224,117,198,117,198,117,224,115,199,106,196,115,199,117,224,106,196,117,224,106,215,137,184,140,230,133,187,133,187,140,230,128,228,133,187,128,228,128,191,128,191,128,228,125,194,144,181,148,181,149,229,149,229,148,181,155,182,149,229,155,182,157,225,157,225,155,182,160,185,157,225,160,185,163,220,163,220,160,185,164,190,163,220,164,190,166,213,166,213,164,190,167,196,166,213,167,196,167,204,141,182,144,181,149,229,141,182,149,229,140,230,141,182,140,230,137,184,82,168,88,179,94,202,94,202,88,179,97,189,94,202,97,189,106,215,106,215,97,189,106,196,80,45,80,157,80,183,80,183,80,157,82,168,80,183,82,168,94,202,123,0,123,7,105,9,123,0,105,9,93,13,123,0,93,13,37,29,123,0,37,29,35,21,123,0,35,21,29,15,123,0,29,15,18,11,123,0,18,11,2,7,123,0,2,7,2,0,93,13,85,20,38,42,38,42,85,20,81,30,38,42,81,30,38,167,7,196,3,203,3,195,37,29,93,13,38,42,128,228,122,196,125,194,
+78,151,71,156,64,163,60,170,57,178,56,185,58,197,63,207,71,214,82,217,94,219,110,217,123,210,134,198,143,181,151,157,158,157,156,225,150,225,145,220,140,220,137,221,134,221,131,223,122,226,115,228,109,229,94,229,72,227,53,219,38,207,29,190,26,168,28,153,35,138,47,123,63,109,85,95,113,80,129,68,134,60,138,52,139,43,137,31,132,21,123,13,112,8,98,6,79,9,63,17,51,31,41,50,34,76,26,76,26,-1,32,-1,34,0,36,2,39,3,41,4,48,4,52,3,56,3,61,1,68,0,75,-2,82,-3,90,-4,104,-4,126,-1,145,7,160,21,170,38,174,57,173,73,168,86,159,97,147,108,130,119,133,39,127,32,121,27,115,24,109,22,103,21,93,23,86,28,81,36,78,49,77,66,77,209,127,209,127,225,77,225,77,286,76,287,76,289,75,289,74,290,72,287,69,284,65,278,64,276,53,260,42,247,32,236,23,228,15,222,12,220,8,216,7,214,7,210,8,210,8,209,35,209,35,59,37,36,42,18,51,5,64,-1,79,-4,93,-3,106,1,118,8,129,19,140,33,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,
+36,2,39,3,41,50,41,50,39,3,41,4,41,50,41,4,45,4,45,4,48,4,51,31,51,31,48,4,52,3,51,31,52,3,63,17,63,17,52,3,56,3,63,17,56,3,61,1,36,2,41,50,34,0,34,0,41,50,34,76,34,0,34,76,32,-1,32,-1,34,76,26,76,32,-1,26,76,26,-1,72,227,53,219,58,197,58,197,53,219,56,185,63,109,56,185,53,219,63,109,53,219,47,123,47,123,53,219,38,207,47,123,38,207,35,138,35,138,38,207,29,190,35,138,29,190,28,153,28,153,29,190,26,168,102,229,94,229,110,217,110,217,94,229,94,219,82,217,94,219,94,229,82,217,94,229,72,227,137,221,134,221,134,198,134,198,134,221,131,223,134,198,131,223,128,224,128,224,122,226,123,210,123,210,122,226,115,228,123,210,115,228,110,217,110,217,115,228,109,229,110,217,109,229,102,229,148,223,146,221,151,157,151,157,146,221,145,220,151,157,145,220,143,181,143,181,145,220,143,220,143,181,143,220,142,220,142,220,140,220,143,181,143,181,140,220,137,221,143,181,137,221,134,198,151,157,158,157,156,225,151,157,156,225,150,225,151,157,150,225,148,223,128,224,123,210,134,198,174,57,173,73,170,38,170,38,173,73,168,86,170,38,168,86,160,21,160,21,168,86,159,97,160,21,159,97,147,108,123,13,126,-1,132,21,132,21,126,-1,145,7,132,21,145,7,137,31,137,31,145,7,139,43,147,108,139,43,145,7,147,108,145,7,160,21,121,74,129,68,130,119,130,119,129,68,134,60,130,119,134,60,147,108,147,108,134,60,138,52,147,108,138,52,139,43,130,119,78,151,85,95,130,119,85,95,113,80,130,119,113,80,121,74,78,151,71,156,85,95,85,95,71,156,64,163,85,95,64,163,63,109,63,109,64,163,60,170,63,109,60,170,57,178,98,6,104,-4,112,8,112,8,104,-4,126,-1,112,8,126,-1,123,13,72,227,58,197,63,207,72,227,63,207,71,214,72,227,71,214,82,217,98,6,79,9,82,-3,98,6,82,-3,90,-4,98,6,90,-4,97,-4,98,6,97,-4,104,-4,79,9,63,17,68,0,79,9,68,0,75,-2,79,9,75,-2,82,-3,68,0,63,17,61,1,51,31,41,50,45,4,56,185,63,109,57,178,
+133,39,127,32,121,27,115,24,109,22,103,21,93,23,86,28,81,36,78,49,77,66,77,209,127,209,127,225,77,225,77,286,76,287,76,289,75,289,74,290,72,287,69,284,65,278,64,276,53,260,42,247,32,236,23,228,15,222,12,220,8,216,7,214,7,210,8,210,8,209,35,209,35,59,37,36,42,18,51,5,64,-1,79,-4,93,-3,106,1,118,8,129,19,140,33,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,
+42,247,32,236,35,209,35,209,32,236,23,228,35,209,23,228,15,222,53,260,42,247,42,18,53,260,42,18,51,5,53,260,51,5,64,-1,53,260,64,-1,64,276,37,36,42,18,42,247,37,36,42,247,35,209,37,36,35,209,35,59,7,210,8,210,8,216,8,216,8,210,8,209,8,216,8,209,10,218,10,218,8,209,35,209,10,218,35,209,12,220,12,220,35,209,15,222,7,214,7,213,7,212,7,214,7,212,7,211,7,214,7,211,7,210,7,214,7,210,8,216,69,284,79,-4,77,66,77,225,77,209,127,209,77,225,127,209,127,225,77,66,77,283,77,286,77,66,77,286,76,287,77,66,76,287,76,289,77,66,76,289,75,289,77,66,75,289,74,290,77,66,74,290,72,287,77,66,72,287,69,284,86,28,93,-3,93,23,93,23,93,-3,103,21,109,22,103,21,106,1,109,22,106,1,118,8,81,36,78,49,79,-4,81,36,79,-4,93,-3,81,36,93,-3,86,28,79,-4,69,284,67,281,79,-4,67,281,65,278,79,-4,65,278,64,276,79,-4,64,276,64,-1,129,19,140,33,133,39,129,19,133,39,127,32,129,19,127,32,121,27,129,19,121,27,118,8,115,24,109,22,118,8,115,24,118,8,121,27,103,21,93,-3,106,1,77,66,79,-4,78,49,
+240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,238,225,169,225,169,218,178,216,184,214,189,211,192,207,193,201,192,198,192,195,191,192,191,189,190,186,140,57,89,185,87,190,86,194,85,197,84,201,84,204,85,209,88,212,92,215,99,216,108,218,108,225,9,225,9,218,19,216,27,212,35,202,44,186,55,160,115,17,116,14,118,10,118,8,119,6,121,1,123,-1,125,-4,126,-6,128,-6,130,-5,132,-3,135,1,138,8,142,18,206,179,213,195,219,206,224,213,231,216,238,218,
+78,225,4,225,17,216,78,225,17,216,26,213,78,225,26,213,32,207,78,225,32,207,35,197,78,225,35,197,36,185,78,225,36,185,38,38,78,225,38,38,46,20,78,225,46,20,58,6,78,225,58,6,75,-1,78,225,75,-1,78,64,164,53,162,48,168,38,168,38,162,48,159,43,168,38,159,43,155,40,155,40,147,34,153,21,153,21,147,34,139,29,153,21,139,29,138,8,138,8,139,29,130,26,138,8,130,26,123,0,123,0,130,26,121,25,123,0,121,25,113,24,113,24,102,26,109,-3,109,-3,102,26,97,-4,97,-4,102,26,92,31,97,-4,92,31,84,40,97,-4,84,40,79,51,97,-4,79,51,75,-1,78,64,75,-1,79,51,113,24,109,-3,123,0,166,184,168,38,209,225,209,225,168,38,169,38,209,225,169,38,171,-3,171,-3,169,38,169,-2,168,38,166,184,166,69,168,38,166,69,166,59,168,38,166,59,164,53,155,40,153,21,168,38,225,26,217,29,225,14,225,14,217,29,212,34,225,14,212,34,212,10,212,10,212,34,209,42,212,10,209,42,199,6,199,6,209,42,209,54,199,6,209,54,209,225,209,225,171,-3,186,1,209,225,186,1,199,6,209,225,129,225,145,215,209,225,145,215,155,212,209,225,155,212,162,206,209,225,162,206,165,197,209,225,165,197,166,184,237,25,225,26,225,14,237,25,225,14,240,18,237,25,240,18,240,25,38,38,36,185,36,59,145,215,129,225,129,217,17,216,4,225,4,218,
+238,225,169,225,169,218,178,216,184,214,189,211,192,207,193,201,192,198,192,195,191,192,191,189,190,186,140,57,89,185,87,190,86,194,85,197,84,201,84,204,85,209,88,212,92,215,99,216,108,218,108,225,9,225,9,218,19,216,27,212,35,202,44,186,55,160,115,17,116,14,118,10,118,8,119,6,121,1,123,-1,125,-4,126,-6,128,-6,130,-5,132,-3,135,1,138,8,142,18,206,179,213,195,219,206,224,213,231,216,238,218,347,225,286,225,286,218,294,215,301,213,305,210,307,207,307,197,306,191,302,177,299,169,254,58,209,178,206,185,204,195,204,205,207,210,212,213,221,215,233,218,233,225,131,225,131,218,141,216,148,212,155,206,160,196,166,183,175,155,130,55,80,186,79,189,79,192,78,195,78,206,81,211,85,214,91,216,100,218,100,225,11,225,11,218,17,216,22,214,26,208,31,199,37,186,104,15,108,7,111,0,113,-3,116,-5,118,-6,121,-3,
+87,190,86,194,115,17,115,17,86,194,85,197,115,17,85,197,55,160,55,160,85,197,84,201,55,160,84,201,84,204,84,204,85,209,55,160,108,225,9,225,19,216,108,225,19,216,27,212,108,225,27,212,35,202,108,225,35,202,44,186,108,225,44,186,88,212,108,225,88,212,92,215,108,225,92,215,99,216,108,225,99,216,108,218,85,209,88,212,44,186,85,209,44,186,55,160,140,57,89,185,115,17,140,57,115,17,116,14,140,57,116,14,117,12,140,57,117,12,118,10,140,57,118,10,118,8,140,57,118,8,119,6,140,57,119,6,121,1,140,57,121,1,123,-1,140,57,123,-1,125,-4,140,57,125,-4,126,-6,140,57,126,-6,128,-6,140,57,128,-6,130,-5,140,57,130,-5,132,-3,140,57,132,-3,135,1,140,57,135,1,138,8,140,57,138,8,142,18,140,57,142,18,190,186,206,179,190,186,142,18,238,225,169,225,178,216,238,225,178,216,184,214,238,225,184,214,189,211,238,225,189,211,192,207,238,225,192,207,193,201,238,225,193,201,224,213,238,225,224,213,231,216,238,225,231,216,238,218,206,179,213,195,193,201,206,179,193,201,192,198,206,179,192,198,192,195,206,179,192,195,191,192,206,179,191,192,191,189,206,179,191,189,190,186,219,206,224,213,193,201,219,206,193,201,213,195,178,216,169,225,169,218,87,190,115,17,89,185,19,216,9,225,9,218,
+347,225,286,225,286,218,294,215,301,213,305,210,307,207,307,197,306,191,302,177,299,169,254,58,209,178,206,185,204,195,204,205,207,210,212,213,221,215,233,218,233,225,131,225,131,218,141,216,148,212,155,206,160,196,166,183,175,155,130,55,80,186,79,189,79,192,78,195,78,206,81,211,85,214,91,216,100,218,100,225,11,225,11,218,17,216,22,214,26,208,31,199,37,186,104,15,108,7,111,0,113,-3,116,-5,118,-6,121,-3,123,0,126,5,130,12,186,132,232,15,235,5,238,0,241,-6,246,-6,250,0,253,7,257,17,326,190,331,200,334,207,338,212,342,215,347,218,239,0,239,7,230,8,222,12,215,18,207,26,199,37,134,136,176,195,182,203,190,209,198,214,207,216,217,218,217,225,137,225,137,218,145,217,151,215,155,213,157,210,157,202,154,197,150,191,145,184,136,169,133,165,130,160,124,152,123,154,121,156,119,160,117,162,109,174,103,185,98,194,95,201,94,206,95,210,97,213,101,216,107,217,116,218,116,225,12,225,12,218,17,218,25,217,32,214,39,208,47,200,55,187,55,188,102,116,45,33,37,22,31,15,24,11,17,9,8,7,8,0,81,0,81,7,73,8,68,9,64,11,62,13,61,17,61,19,62,22,64,26,67,31,
+22,214,26,208,100,225,100,225,26,208,31,199,100,225,31,199,37,186,37,186,104,15,78,195,78,195,104,15,79,192,37,186,78,198,78,201,78,201,78,206,37,186,37,186,78,206,81,211,37,186,81,211,85,214,100,225,37,186,85,214,100,225,85,214,91,216,100,225,91,216,100,218,17,216,22,214,100,225,17,216,100,225,11,225,17,216,11,225,11,218,186,132,204,200,204,205,186,132,204,205,175,155,175,155,204,205,166,183,160,196,166,183,207,210,160,196,207,210,212,213,233,225,131,225,141,216,233,225,141,216,148,212,233,225,148,212,155,206,233,225,155,206,160,196,233,225,160,196,212,213,233,225,212,213,221,215,233,225,221,215,233,218,207,210,166,183,204,205,254,58,212,170,232,15,254,58,232,15,235,5,254,58,235,5,238,0,254,58,238,0,240,-4,254,58,240,-4,241,-6,254,58,241,-6,243,-6,254,58,243,-6,246,-6,254,58,246,-6,248,-3,254,58,248,-3,250,0,254,58,250,0,253,7,254,58,253,7,257,17,254,58,257,17,299,169,232,15,212,170,209,178,232,15,209,178,206,185,232,15,206,185,205,190,232,15,205,190,204,195,232,15,204,195,186,132,326,190,299,169,257,17,347,225,286,225,294,215,347,225,294,215,301,213,347,225,301,213,305,210,347,225,305,210,307,207,347,225,307,207,307,203,347,225,307,203,334,207,347,225,334,207,338,212,347,225,338,212,342,215,347,225,342,215,347,218,326,190,331,200,307,203,326,190,307,203,307,197,326,190,307,197,306,191,326,190,306,191,304,184,326,190,304,184,302,177,326,190,302,177,299,169,123,0,126,5,130,55,130,55,126,5,130,12,130,55,130,12,175,155,175,155,130,12,186,132,130,55,80,186,104,15,130,55,104,15,108,7,130,55,108,7,111,0,130,55,111,0,113,-3,130,55,113,-3,116,-5,130,55,116,-5,118,-6,130,55,118,-6,119,-5,130,55,119,-5,121,-3,130,55,121,-3,123,0,79,189,79,192,104,15,79,189,104,15,80,186,37,186,78,195,78,198,294,215,286,225,286,218,334,207,307,203,331,200,186,132,204,195,204,200,141,216,131,225,131,218,
+239,0,239,7,230,8,222,12,215,18,207,26,199,37,134,136,176,195,182,203,190,209,198,214,207,216,217,218,217,225,137,225,137,218,145,217,151,215,155,213,157,210,157,202,154,197,150,191,145,184,136,169,133,165,130,160,124,152,123,154,121,156,119,160,117,162,109,174,103,185,98,194,95,201,94,206,95,210,97,213,101,216,107,217,116,218,116,225,12,225,12,218,17,218,25,217,32,214,39,208,47,200,55,187,55,188,102,116,45,33,37,22,31,15,24,11,17,9,8,7,8,0,81,0,81,7,73,8,68,9,64,11,62,13,61,17,61,19,62,22,64,26,67,31,71,37,110,99,156,28,157,27,159,23,159,15,157,12,153,9,147,8,139,7,139,0,238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,26,211,30,206,33,200,99,60,105,47,111,35,116,24,121,9,119,2,116,-8,112,-21,106,-34,100,-44,96,-51,85,-62,80,-65,75,-66,71,-66,69,-65,66,-64,62,-63,63,-63,57,-60,52,-58,42,-56,36,-56,30,-57,24,-60,19,-65,16,-72,15,-79,17,-88,21,-96,28,-102,38,-106,50,-108,71,-105,90,-94,106,-76,122,-49,137,-11,213,192,217,202,221,208,226,213,231,216,238,218,209,68,200,70,197,57,195,47,193,40,190,34,186,28,181,24,173,20,
+31,15,24,11,81,0,81,0,24,11,17,9,81,0,17,9,8,7,32,214,39,208,116,225,116,225,39,208,47,200,116,225,47,200,55,188,55,187,55,188,102,116,55,187,102,116,94,206,94,206,95,210,55,187,55,187,95,210,97,213,55,187,97,213,116,225,116,225,97,213,101,216,116,225,101,216,107,217,31,15,81,0,37,22,37,22,81,0,64,11,37,22,64,11,45,33,45,33,64,11,62,13,45,33,62,13,61,17,61,17,61,19,45,33,45,33,61,19,62,22,45,33,62,22,102,116,102,116,62,22,64,26,102,116,64,26,67,31,102,116,67,31,71,37,71,37,110,99,102,116,102,116,110,99,103,185,102,116,103,185,98,194,107,217,116,218,116,225,116,225,12,225,17,218,116,225,17,218,25,217,116,225,25,217,32,214,95,201,94,206,102,116,95,201,102,116,98,194,121,156,120,158,156,28,156,28,120,158,119,160,156,28,119,160,117,162,117,162,109,174,110,99,110,99,109,174,103,185,222,12,215,18,159,20,159,20,215,18,207,26,159,20,207,26,199,37,199,37,134,136,156,28,156,28,134,136,127,156,156,28,127,156,124,152,124,152,123,154,156,28,156,28,123,154,121,156,217,225,137,225,145,217,217,225,145,217,151,215,217,225,151,215,155,213,217,225,155,213,157,210,217,225,157,210,157,206,217,225,157,206,190,209,217,225,190,209,198,214,217,225,198,214,207,216,217,225,207,216,217,218,176,195,182,203,157,206,176,195,157,206,157,202,176,195,157,202,154,197,176,195,154,197,150,191,176,195,150,191,145,184,176,195,145,184,139,174,176,195,139,174,136,169,176,195,136,169,134,136,134,136,136,169,133,165,134,136,133,165,130,160,134,136,130,160,127,156,157,12,153,9,239,0,239,0,153,9,147,8,239,0,147,8,139,7,158,25,159,23,199,37,199,37,159,23,159,21,199,37,159,21,159,20,159,20,159,15,239,0,239,0,159,15,157,12,199,37,156,28,157,27,199,37,157,27,158,25,117,162,110,99,156,28,239,0,239,7,230,8,239,0,230,8,222,12,239,0,222,12,159,20,81,0,81,7,73,8,81,0,73,8,68,9,81,0,68,9,64,11,81,0,8,7,8,0,239,0,139,7,139,0,145,217,137,225,137,218,190,209,157,206,182,203,17,218,12,225,12,218,116,225,55,188,55,187,
+238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,26,211,30,206,33,200,99,60,105,47,111,35,116,24,121,9,119,2,116,-8,112,-21,106,-34,100,-44,96,-51,85,-62,80,-65,75,-66,71,-66,69,-65,66,-64,62,-63,63,-63,57,-60,52,-58,42,-56,36,-56,30,-57,24,-60,19,-65,16,-72,15,-79,17,-88,21,-96,28,-102,38,-106,50,-108,71,-105,90,-94,106,-76,122,-49,137,-11,213,192,217,202,221,208,226,213,231,216,238,218,209,68,200,70,197,57,195,47,193,40,190,34,186,28,181,24,173,20,163,17,149,16,133,15,67,15,201,218,201,225,28,225,26,166,36,166,39,184,44,197,51,205,63,209,79,210,147,210,13,7,13,0,201,0,175,-84,157,-78,144,-69,136,-58,131,-42,129,-22,129,60,128,82,124,98,115,110,102,118,83,124,102,131,115,140,124,151,128,167,129,189,129,273,131,293,136,308,144,320,157,328,175,334,175,340,157,339,144,338,132,336,114,328,107,321,100,312,96,300,94,287,93,271,93,181,91,163,87,149,80,139,67,131,50,125,67,118,80,110,87,100,91,86,93,68,93,-20,94,-35,96,-49,
+90,-57,85,-62,90,-94,90,-94,85,-62,80,-65,90,-94,80,-65,75,-66,75,-66,73,-66,90,-94,90,-94,73,-66,71,-105,90,-57,106,-76,96,-51,96,-51,106,-76,100,-44,106,-34,100,-44,106,-76,106,-34,106,-76,122,-49,143,59,88,184,99,60,143,59,99,60,105,47,143,59,105,47,111,35,143,59,111,35,116,24,143,59,116,24,119,15,143,59,119,15,121,9,143,59,121,9,122,-49,143,59,122,-49,137,-11,143,59,137,-11,213,192,143,59,213,192,192,196,122,-49,121,9,119,2,99,60,88,184,86,188,99,60,86,188,84,192,99,60,84,192,82,196,99,60,82,196,81,201,99,60,81,201,33,200,33,200,81,201,81,204,81,204,82,209,33,200,33,200,82,209,85,212,33,200,85,212,109,225,109,225,85,212,90,215,109,225,90,215,98,217,194,202,193,201,213,192,213,192,193,201,193,198,213,192,193,198,192,196,238,225,171,225,179,217,238,225,179,217,186,216,238,225,186,216,190,213,238,225,190,213,193,210,238,225,193,210,194,205,238,225,194,205,226,213,238,225,226,213,231,216,238,225,231,216,238,218,194,205,213,192,217,202,194,205,217,202,221,208,194,205,221,208,226,213,194,204,194,202,213,192,194,204,213,192,194,205,122,-49,119,2,116,-8,122,-49,116,-8,112,-21,122,-49,112,-21,106,-34,71,-105,73,-66,71,-66,71,-105,71,-66,69,-65,71,-105,69,-65,66,-64,71,-105,66,-64,63,-63,71,-105,63,-63,57,-60,71,-105,57,-60,52,-58,71,-105,52,-58,50,-108,52,-58,47,-57,50,-108,50,-108,47,-57,42,-56,50,-108,42,-56,38,-106,38,-106,42,-56,36,-56,38,-106,36,-56,30,-57,38,-106,30,-57,28,-102,28,-102,30,-57,24,-60,28,-102,24,-60,21,-96,21,-96,24,-60,19,-65,21,-96,19,-65,17,-88,17,-88,19,-65,16,-72,17,-88,16,-72,15,-79,98,217,109,218,109,225,109,225,7,225,14,217,109,225,14,217,21,214,109,225,21,214,26,211,109,225,26,211,30,206,109,225,30,206,33,200,66,-64,62,-63,63,-63,14,217,7,225,7,218,90,-57,90,-94,106,-76,179,217,171,225,171,218,
+209,68,200,70,197,57,195,47,193,40,190,34,186,28,181,24,173,20,163,17,149,16,133,15,67,15,201,218,201,225,28,225,26,166,36,166,39,184,44,197,51,205,63,209,79,210,147,210,13,7,13,0,201,0,175,-84,157,-78,144,-69,136,-58,131,-42,129,-22,129,60,128,82,124,98,115,110,102,118,83,124,102,131,115,140,124,151,128,167,129,189,129,273,131,293,136,308,144,320,157,328,175,334,175,340,157,339,144,338,132,336,
+67,15,201,218,147,210,147,210,201,218,201,225,147,210,201,225,79,210,63,209,79,210,201,225,63,209,201,225,28,225,28,225,26,166,36,166,28,225,36,166,39,184,28,225,39,184,44,197,28,225,44,197,51,205,28,225,51,205,63,209,147,210,13,7,67,15,67,15,13,7,201,0,67,15,201,0,133,15,133,15,201,0,149,16,195,47,193,40,201,0,201,0,193,40,190,34,201,0,190,34,186,28,186,28,181,24,201,0,201,0,181,24,173,20,201,0,173,20,163,17,201,0,209,68,200,70,201,0,200,70,197,57,201,0,197,57,195,47,201,0,13,7,13,0,149,16,201,0,163,17,
+175,-84,157,-78,144,-69,136,-58,131,-42,129,-22,129,60,128,82,124,98,115,110,102,118,83,124,102,131,115,140,124,151,128,167,129,189,129,273,131,293,136,308,144,320,157,328,175,334,175,340,157,339,144,338,132,336,114,328,107,321,100,312,96,300,94,287,93,271,93,181,91,163,87,149,80,139,67,131,50,125,67,118,80,110,87,100,91,86,93,68,93,-20,94,-35,96,-49,101,-61,107,-70,114,-77,123,-82,132,-85,143,-87,157,-89,175,-89,66,-6,66,338,33,338,33,-6,147,270,146,286,144,300,139,312,133,321,126,328,108,336,97,338,83,339,65,340,65,334,83,328,96,320,104,308,109,293,110,273,110,189,112,167,116,151,125,139,138,131,157,125,138,118,125,110,116,98,112,82,110,60,110,-22,109,-42,104,-58,96,-69,83,-78,65,-84,65,-89,83,-89,96,-87,108,-85,117,-82,126,-77,133,-71,139,-61,144,-50,146,-36,147,-20,147,68,149,86,153,100,160,111,172,118,190,125,172,131,
+107,-70,114,-77,115,110,115,110,114,-77,123,-82,115,110,123,-82,124,98,124,98,123,-82,132,-85,124,98,132,-85,129,-22,129,-22,129,60,128,82,129,-22,128,82,124,98,157,-89,175,-89,175,-84,157,-89,175,-84,157,-78,157,-89,157,-78,144,-69,157,-89,144,-69,143,-87,136,-58,131,-42,132,-85,136,-58,132,-85,143,-87,136,-58,143,-87,144,-69,102,118,83,124,87,100,102,118,87,100,91,86,102,118,91,86,93,68,102,118,93,68,94,-35,102,118,94,-35,96,-49,102,118,96,-49,101,-61,102,118,101,-61,107,-70,102,118,107,-70,115,110,93,68,93,-20,94,-35,80,110,87,100,83,124,80,110,83,124,87,149,80,110,87,149,80,139,80,110,80,139,67,118,157,339,144,338,144,320,157,339,144,320,157,328,157,339,157,328,175,334,157,339,175,334,175,340,129,273,131,293,132,336,132,336,131,293,136,308,132,336,136,308,144,338,144,338,136,308,144,320,114,328,115,140,123,332,123,332,115,140,124,151,123,332,124,151,129,273,129,273,124,151,128,167,129,273,128,167,129,189,107,321,100,312,102,131,107,321,102,131,115,140,107,321,115,140,114,328,102,131,100,312,96,300,102,131,96,300,94,287,102,131,94,287,93,271,102,131,93,271,93,181,102,131,93,181,91,163,102,131,91,163,87,149,102,131,87,149,83,124,67,131,50,125,67,118,67,131,67,118,80,139,123,332,129,273,132,336,129,-22,132,-85,131,-42,
+66,-6,66,338,33,338,33,-6,147,270,146,286,144,300,139,312,
+66,-6,66,338,33,338,66,-6,33,338,33,-6,
+147,270,146,286,144,300,139,312,133,321,126,328,108,336,97,338,83,339,65,340,65,334,83,328,96,320,104,308,109,293,110,273,110,189,112,167,116,151,125,139,138,131,157,125,138,118,125,110,116,98,112,82,110,60,110,-22,109,-42,104,-58,96,-69,83,-78,65,-84,65,-89,83,-89,96,-87,108,-85,117,-82,126,-77,133,-71,139,-61,144,-50,146,-36,147,-20,147,68,149,86,153,100,160,111,172,118,190,125,172,131,160,139,153,149,149,163,147,181,233,162,227,151,219,141,211,133,201,128,189,126,179,127,157,135,148,140,141,143,124,150,111,155,100,158,92,160,83,160,69,159,56,154,43,146,31,134,20,117,38,92,44,104,51,114,60,122,70,126,80,128,92,127,103,125,114,122,122,119,128,116,143,107,155,101,166,97,176,95,189,94,202,95,214,100,226,108,238,120,251,137,101,209,100,217,96,224,90,229,83,233,75,234,66,233,59,229,53,224,49,217,48,209,49,200,53,192,58,186,
+110,273,112,167,110,273,110,273,112,167,117,332,110,273,117,332,109,293,109,293,117,332,108,336,109,293,108,336,104,308,104,308,108,336,97,338,104,308,97,338,96,320,96,320,97,338,83,339,96,320,83,339,83,328,83,328,83,339,65,340,83,328,65,340,65,334,147,181,147,270,146,286,147,181,146,286,144,300,147,181,144,300,139,312,147,181,139,312,138,131,147,181,138,131,149,163,172,118,190,125,172,131,172,118,172,131,160,111,160,111,172,131,160,139,160,111,160,139,157,125,157,125,160,139,153,149,157,125,153,149,149,163,112,167,116,151,117,332,117,332,116,151,125,139,117,332,125,139,126,328,126,328,125,139,138,131,126,328,138,131,133,321,133,321,138,131,139,312,157,125,138,118,149,86,157,125,149,86,153,100,157,125,153,100,160,111,147,68,149,86,138,118,147,68,138,118,139,-61,147,68,139,-61,144,-50,147,68,144,-50,146,-36,147,68,146,-36,147,-20,116,98,117,-82,125,110,125,110,117,-82,126,-77,125,110,126,-77,138,118,138,118,126,-77,133,-71,138,118,133,-71,139,-61,117,-82,116,98,112,82,117,-82,112,82,110,60,117,-82,110,60,110,-22,117,-82,110,-22,109,-42,117,-82,109,-42,108,-85,104,-58,96,-69,96,-87,104,-58,96,-87,108,-85,104,-58,108,-85,109,-42,83,-78,65,-84,83,-89,83,-78,83,-89,96,-87,83,-78,96,-87,96,-69,83,-89,65,-84,65,-89,149,163,138,131,157,125,112,167,110,273,110,189,
+233,162,227,151,219,141,211,133,201,128,189,126,179,127,157,135,148,140,141,143,124,150,111,155,100,158,92,160,83,160,69,159,56,154,43,146,31,134,20,117,38,92,44,104,51,114,60,122,70,126,80,128,92,127,103,125,114,122,122,119,128,116,143,107,155,101,166,97,176,95,189,94,202,95,214,100,226,108,238,120,251,137,101,209,100,217,96,224,90,229,83,233,75,234,66,233,59,229,53,224,49,217,48,209,49,200,53,192,58,186,66,182,74,181,83,182,90,186,96,192,100,200,101,209,16383,16383,78,141,71,141,49,-49,49,-53,48,-57,48,-69,49,-82,52,-93,58,-101,65,-106,75,-108,84,-106,91,-100,96,-92,100,-81,101,-68,101,-57,100,-53,100,-49,
+92,160,83,160,92,127,92,127,83,160,80,128,70,126,80,128,83,160,70,126,83,160,69,159,141,143,128,116,143,107,141,143,143,107,148,140,148,140,143,107,155,101,148,140,155,101,157,135,157,135,155,101,166,97,157,135,166,97,168,131,168,131,166,97,176,95,168,131,176,95,179,127,179,127,176,95,189,94,179,127,189,94,189,126,189,126,189,94,202,95,189,126,202,95,201,128,92,160,92,127,100,158,100,158,92,127,103,125,100,158,103,125,111,155,111,155,103,125,114,122,111,155,114,122,124,150,124,150,114,122,122,119,124,150,122,119,128,116,201,128,202,95,211,133,211,133,202,95,214,100,211,133,214,100,219,141,219,141,214,100,226,108,219,141,226,108,227,151,227,151,226,108,238,120,227,151,238,120,233,162,233,162,238,120,251,137,44,104,51,114,56,154,56,154,51,114,60,122,56,154,60,122,69,159,69,159,60,122,70,126,43,146,31,134,38,92,43,146,38,92,44,104,43,146,44,104,56,154,38,92,31,134,20,117,128,116,141,143,124,150,
+101,209,100,217,96,224,90,229,83,233,75,234,66,233,59,229,53,224,49,217,48,209,49,200,53,192,58,186,66,182,74,181,83,182,90,186,96,192,100,200,101,209,16383,16383,78,141,71,141,49,-49,49,-53,48,-57,48,-69,49,-82,52,-93,58,-101,65,-106,75,-108,84,-106,91,-100,96,-92,100,-81,101,-68,101,-57,100,-53,100,-49,218,82,203,62,189,48,175,39,160,33,144,32,138,32,133,33,127,34,121,36,114,38,165,184,170,173,176,166,181,161,187,158,194,157,201,158,207,161,211,166,214,173,215,180,214,190,209,200,202,208,191,216,178,222,201,290,184,290,162,228,155,229,150,229,145,230,137,230,101,224,71,207,47,181,32,148,26,109,27,94,30,79,
+48,209,49,200,49,217,49,217,49,200,53,192,49,217,53,192,53,224,53,224,53,192,58,186,53,224,58,186,59,229,59,229,58,186,66,182,59,229,66,182,66,233,66,233,66,182,74,181,66,233,74,181,75,234,75,234,74,181,83,182,75,234,83,182,83,233,83,233,83,182,90,186,83,233,90,186,90,229,90,229,90,186,96,192,90,229,96,192,96,224,96,224,96,192,100,200,96,224,100,200,100,217,100,217,100,200,101,209,100,-49,78,141,84,-106,100,-49,84,-106,91,-100,100,-49,91,-100,96,-92,100,-49,96,-92,100,-81,100,-49,100,-81,101,-68,100,-49,101,-68,100,-53,58,-101,65,-106,71,141,71,141,65,-106,75,-108,71,141,75,-108,78,141,78,141,75,-108,84,-106,71,141,49,-49,49,-82,71,141,49,-82,52,-93,71,141,52,-93,58,-101,49,-82,49,-49,49,-53,49,-82,49,-53,48,-57,49,-82,48,-57,48,-61,49,-82,48,-61,48,-65,49,-82,48,-65,48,-69,101,-68,101,-64,101,-61,101,-68,101,-61,101,-57,101,-68,101,-57,100,-53,
+218,82,203,62,189,48,175,39,160,33,144,32,138,32,133,33,127,34,121,36,114,38,165,184,170,173,176,166,181,161,187,158,194,157,201,158,207,161,211,166,214,173,215,180,214,190,209,200,202,208,191,216,178,222,201,290,184,290,162,228,155,229,150,229,145,230,137,230,101,224,71,207,47,181,32,148,26,109,27,94,30,79,34,64,40,50,47,38,53,30,59,24,66,18,74,12,84,6,59,-68,76,-68,100,0,107,-1,119,-3,140,-3,151,0,161,3,171,8,180,15,190,24,198,33,206,45,214,59,224,78,16383,16383,99,49,86,63,76,77,70,92,66,110,65,130,68,158,77,182,91,200,110,211,133,215,138,215,142,214,147,213,151,212,156,210,172,164,172,186,109,186,107,205,106,220,105,233,104,245,104,256,106,280,112,299,122,313,135,322,151,325,161,324,169,321,175,315,178,308,180,299,180,285,182,275,186,269,191,266,199,265,207,266,214,270,219,276,223,283,224,291,221,306,212,319,198,329,180,336,159,338,126,333,99,317,79,293,66,261,61,221,62,214,62,208,64,194,65,186,12,186,12,164,65,164,68,147,71,127,73,109,75,93,76,81,76,69,75,67,75,63,69,64,64,64,60,65,51,65,36,63,24,58,14,50,8,40,6,27,8,16,12,8,19,1,28,-2,40,-3,50,-2,59,0,68,6,78,14,89,27,107,15,123,6,136,1,149,-1,161,-2,175,-1,188,1,201,7,212,15,
+156,210,99,49,100,0,100,0,99,49,86,63,100,0,86,63,84,6,84,6,86,63,76,77,84,6,76,77,74,12,74,12,76,77,70,92,74,12,70,92,66,110,53,30,59,24,65,130,65,130,66,18,66,110,66,110,66,18,74,12,113,-2,119,-3,114,38,114,38,119,-3,121,36,121,36,119,-3,124,-3,121,36,124,-3,127,34,127,34,124,-3,129,-3,127,34,129,-3,133,33,133,33,129,-3,140,-3,133,33,140,-3,138,32,138,32,140,-3,144,32,160,33,144,32,151,0,160,33,151,0,161,3,114,38,165,184,156,210,156,210,162,228,155,229,156,210,155,229,151,212,151,212,155,229,150,229,151,212,150,229,147,213,147,213,150,229,145,230,147,213,145,230,142,214,142,214,145,230,141,230,142,214,141,230,138,215,138,215,141,230,137,230,138,215,137,230,133,215,184,290,162,228,165,184,184,290,165,184,170,173,184,290,170,173,178,222,184,290,178,222,201,290,170,173,176,166,178,222,178,222,176,166,181,161,178,222,181,161,191,216,191,216,181,161,187,158,191,216,187,158,194,157,114,38,156,210,100,0,114,38,100,0,107,-1,114,38,107,-1,113,-2,76,-68,100,0,84,6,76,-68,84,6,59,-68,194,157,201,158,202,208,202,208,201,158,207,161,202,208,207,161,209,200,209,200,207,161,211,166,209,200,211,166,214,190,214,190,211,166,214,173,214,190,214,173,215,180,77,182,91,200,101,224,101,224,91,200,110,211,101,224,110,211,137,230,137,230,110,211,133,215,71,207,47,181,47,38,71,207,47,38,53,30,71,207,53,30,65,130,71,207,65,130,68,158,71,207,68,158,77,182,71,207,77,182,101,224,27,94,30,79,32,148,32,148,30,79,34,64,32,148,34,64,47,181,47,181,34,64,40,50,47,181,40,50,47,38,190,24,198,33,203,62,203,62,198,33,206,45,203,62,206,45,218,82,218,82,206,45,214,59,218,82,214,59,224,78,161,3,171,8,175,39,175,39,171,8,180,15,175,39,180,15,189,48,189,48,180,15,190,24,189,48,190,24,203,62,144,32,140,-3,151,0,160,33,161,3,175,39,27,94,32,148,26,109,191,216,194,157,202,208,156,210,165,184,162,228,66,18,65,130,59,24,
+172,164,172,186,109,186,107,205,106,220,105,233,104,245,104,256,106,280,112,299,122,313,135,322,151,325,161,324,169,321,175,315,178,308,180,299,180,285,182,275,186,269,191,266,199,265,207,266,214,270,219,276,223,283,224,291,221,306,212,319,198,329,180,336,159,338,126,333,99,317,79,293,66,261,61,221,62,214,62,208,64,194,65,186,12,186,12,164,65,164,68,147,71,127,73,109,75,93,76,81,76,69,75,67,75,63,69,64,64,64,60,65,51,65,36,63,24,58,14,50,8,40,6,27,8,16,12,8,19,1,28,-2,40,-3,50,-2,59,0,68,6,78,14,89,27,107,15,123,6,136,1,149,-1,161,-2,175,-1,188,1,201,7,212,15,223,24,229,32,235,42,240,52,244,61,245,68,245,69,244,70,240,70,238,69,236,67,233,65,230,62,230,63,221,54,210,47,199,42,187,39,174,38,160,38,147,40,133,43,117,48,99,55,109,105,111,117,112,125,112,164,16383,16383,71,38,71,35,68,29,66,26,64,22,59,18,55,14,50,12,46,10,40,10,33,11,27,13,23,17,20,22,19,28,20,35,23,40,28,44,35,46,44,47,52,46,59,45,65,43,69,41,71,38,261,20,213,68,221,81,226,93,230,105,232,118,233,132,232,146,230,158,226,170,221,182,213,194,261,243,237,267,188,219,176,226,165,232,153,235,140,238,112,238,99,236,87,232,75,226,62,219,14,267,-10,243,38,194,30,182,24,170,20,158,18,145,17,131,18,117,20,105,24,92,30,80,38,68,-10,20,14,-4,62,44,74,36,87,31,99,27,112,24,126,23,139,24,152,27,164,31,176,37,188,44,237,-4,16383,16383,199,132,195,108,185,86,169,70,149,59,126,55,102,59,82,70,66,86,55,107,51,132,55,155,66,176,81,192,101,203,124,206,148,203,168,192,184,176,195,156,199,132,256,331,158,331,158,321,174,321,181,319,186,315,190,311,191,306,191,303,190,299,188,294,187,289,184,284,128,174,69,285,67,289,65,294,64,299,63,303,63,307,64,313,67,317,73,319,83,321,95,321,95,331,-25,331,-25,321,-13,319,-3,314,7,304,18,287,32,262,80,176,8,176,8,156,92,156,95,149,95,111,8,111,8,91,95,91,95,60,94,39,91,25,84,16,72,11,55,9,55,0,177,0,177,9,161,11,150,16,142,24,138,37,137,55,137,91,224,91,224,111,137,111,137,149,141,156,
+59,18,55,14,59,0,59,0,55,14,50,12,59,0,50,12,50,-2,50,-2,50,12,46,10,50,-2,46,10,40,-3,40,-3,46,10,40,10,69,64,64,64,65,43,65,43,64,64,60,65,65,43,60,65,59,45,59,45,60,65,56,65,59,45,56,65,52,46,52,46,56,65,51,65,52,46,51,65,44,47,20,35,23,40,24,58,24,58,23,40,28,44,24,58,28,44,36,63,36,63,28,44,35,46,36,63,35,46,44,47,20,22,19,28,19,1,19,1,19,28,14,50,14,50,19,28,24,58,24,58,19,28,20,35,71,35,70,33,78,14,78,14,70,33,68,29,78,14,68,29,68,6,68,6,68,29,66,26,68,6,66,26,64,22,64,22,59,18,68,6,68,6,59,18,59,0,75,67,75,65,78,14,78,14,75,65,75,62,78,14,75,62,71,38,71,38,75,62,75,63,71,38,75,63,69,41,69,41,75,63,69,64,69,41,69,64,65,43,78,14,71,38,71,35,89,27,107,15,99,55,99,55,107,15,117,48,117,48,107,15,123,6,117,48,123,6,133,43,133,43,123,6,136,1,133,43,136,1,147,40,147,40,136,1,149,-1,147,40,149,-1,160,38,160,38,149,-1,161,-2,160,38,161,-2,174,38,174,38,161,-2,175,-1,174,38,175,-1,187,39,99,55,105,85,104,256,104,256,106,280,99,317,99,317,106,280,112,299,99,317,112,299,126,333,126,333,112,299,122,313,126,333,122,313,135,322,180,336,159,338,161,324,161,324,159,338,151,325,135,322,151,325,159,338,135,322,159,338,126,333,221,306,212,319,214,270,221,306,214,270,219,276,221,306,219,276,223,283,221,306,223,283,224,291,186,269,191,266,198,329,198,329,191,266,199,265,198,329,199,265,212,319,212,319,199,265,207,266,212,319,207,266,214,270,178,308,180,299,180,336,180,336,180,299,180,285,180,336,180,285,198,329,198,329,180,285,182,275,198,329,182,275,186,269,180,336,161,324,169,321,180,336,169,321,175,315,180,336,175,315,178,308,76,71,78,14,76,73,76,73,78,14,79,293,79,293,78,14,89,27,79,293,89,27,99,317,99,317,89,27,99,55,99,317,99,55,104,256,109,105,111,117,109,186,109,186,111,117,112,164,109,186,112,164,172,186,172,186,112,164,172,164,109,186,107,205,109,105,109,105,107,205,106,220,109,105,106,220,105,85,105,85,106,220,105,233,105,85,105,233,104,245,112,139,112,146,112,133,112,133,112,146,112,152,112,133,112,152,112,125,112,125,112,152,112,158,112,125,112,158,112,164,229,32,230,62,223,24,223,24,230,62,221,54,223,24,221,54,212,15,212,15,221,54,210,47,212,15,210,47,201,7,201,7,210,47,199,42,201,7,199,42,188,1,188,1,199,42,187,39,188,1,187,39,175,-1,245,69,244,70,245,68,245,68,244,70,244,61,244,61,244,70,243,70,244,61,243,70,242,70,240,52,244,61,242,70,240,52,242,70,240,70,240,52,240,70,238,69,240,52,238,69,236,67,240,52,236,67,235,42,235,42,236,67,233,65,235,42,233,65,230,62,235,42,230,62,229,32,79,293,66,261,68,147,79,293,68,147,71,127,79,293,71,127,73,109,79,293,73,109,75,93,79,293,75,93,76,81,79,293,76,81,76,73,66,261,61,221,62,214,66,261,62,214,62,208,66,261,62,208,63,201,66,261,63,201,64,194,66,261,64,194,65,186,66,261,65,186,65,164,66,261,65,164,68,147,76,69,75,67,78,14,76,69,78,14,76,71,65,164,65,186,12,186,65,164,12,186,12,164,33,11,27,13,28,-2,33,11,28,-2,40,-3,33,11,40,-3,40,10,28,-2,27,13,23,17,28,-2,23,17,20,22,28,-2,20,22,19,1,6,27,8,16,8,40,8,40,8,16,12,8,8,40,12,8,14,50,14,50,12,8,19,1,221,54,230,62,230,63,112,125,112,164,111,117,104,256,105,85,104,245,44,47,51,65,36,63,
+261,20,213,68,221,81,226,93,230,105,232,118,233,132,232,146,230,158,226,170,221,182,213,194,261,243,237,267,188,219,176,226,165,232,153,235,140,238,112,238,99,236,87,232,75,226,62,219,14,267,-10,243,38,194,30,182,24,170,20,158,18,145,17,131,18,117,20,105,24,92,30,80,38,68,-10,20,14,-4,62,44,74,36,87,31,99,27,112,24,126,23,139,24,152,27,164,31,176,37,188,44,237,-4,16383,16383,199,132,195,108,185,86,169,70,149,59,126,55,102,59,82,70,66,86,55,107,51,132,55,155,66,176,81,192,101,203,124,206,148,203,168,192,184,176,195,156,199,132,256,331,158,331,158,321,174,321,181,319,186,315,190,311,191,306,191,303,190,299,188,294,187,289,184,284,128,174,69,285,67,289,65,294,64,299,63,303,63,307,64,313,67,317,73,319,83,321,95,321,95,331,-25,331,-25,321,-13,319,-3,314,7,304,18,287,32,262,80,176,8,176,8,156,92,156,95,149,95,111,8,111,8,91,95,91,95,60,94,39,91,25,84,16,72,11,55,9,55,0,177,0,177,9,161,11,150,16,142,24,138,37,137,55,137,91,224,91,224,111,137,111,137,149,141,156,224,156,224,176,151,176,197,268,207,286,218,300,229,310,242,317,256,321,66,200,66,338,
+99,27,112,24,102,59,102,59,112,24,126,55,149,59,126,55,126,23,149,59,126,23,139,24,62,219,14,267,38,194,62,219,38,194,38,68,62,219,38,68,51,132,62,219,51,132,55,155,62,219,55,155,66,176,62,219,66,176,75,226,66,86,55,107,62,44,62,44,55,107,51,132,140,238,126,238,148,203,148,203,126,238,124,206,101,203,124,206,112,238,101,203,112,238,99,236,87,232,75,226,81,192,87,232,81,192,101,203,87,232,101,203,99,236,261,20,213,68,237,-4,237,-4,213,68,195,108,237,-4,195,108,188,44,188,44,195,108,185,86,188,44,185,86,176,37,176,37,185,86,169,70,176,37,169,70,164,31,164,31,169,70,152,27,149,59,139,24,152,27,149,59,152,27,169,70,195,156,199,132,213,194,195,156,213,194,237,267,237,267,213,194,261,243,165,232,168,192,176,226,176,226,168,192,184,176,176,226,184,176,188,219,188,219,184,176,195,156,188,219,195,156,237,267,153,235,140,238,148,203,153,235,148,203,168,192,153,235,168,192,165,232,213,194,213,68,221,182,221,182,213,68,221,81,221,182,221,81,226,170,226,170,221,81,226,93,226,170,226,93,230,158,230,158,226,93,230,105,230,158,230,105,232,146,232,146,230,105,232,118,232,146,232,118,233,132,213,68,213,194,199,132,213,68,199,132,195,108,126,55,112,24,126,23,126,238,112,238,124,206,99,27,102,59,87,31,87,31,102,59,82,70,87,31,82,70,74,36,74,36,82,70,66,86,74,36,66,86,62,44,38,68,14,-4,62,44,38,68,62,44,51,132,38,68,38,194,30,80,30,80,38,194,30,182,30,80,30,182,24,92,24,92,30,182,24,170,24,92,24,170,20,105,20,105,24,170,20,158,20,105,20,158,18,117,18,117,20,158,18,145,18,117,18,145,17,131,14,-4,38,68,-10,20,75,226,66,176,81,192,38,194,14,267,-10,243,
+256,331,158,331,158,321,174,321,181,319,186,315,190,311,191,306,191,303,190,299,188,294,187,289,184,284,128,174,69,285,67,289,65,294,64,299,63,303,63,307,64,313,67,317,73,319,83,321,95,321,95,331,-25,331,-25,321,-13,319,-3,314,7,304,18,287,32,262,80,176,8,176,8,156,92,156,95,149,95,111,8,111,8,91,95,91,95,60,94,39,91,25,84,16,72,11,55,9,55,0,177,0,177,9,161,11,150,16,142,24,138,37,137,55,137,91,224,91,224,111,137,111,137,149,141,156,224,156,224,176,151,176,197,268,207,286,218,300,229,310,242,317,256,321,66,200,66,338,33,338,33,200,16383,16383,66,-6,66,131,33,131,33,-6,100,257,94,262,86,276,84,284,83,292,85,304,91,314,100,321,111,326,126,328,135,327,144,324,150,321,155,316,156,311,156,310,155,309,154,307,152,306,144,298,142,293,140,289,140,284,141,277,144,271,149,266,155,263,163,262,172,263,179,267,184,272,188,280,189,289,185,305,177,318,163,329,145,336,124,338,101,335,82,327,68,314,58,297,55,277,57,262,61,248,70,235,84,220,105,202,99,202,97,203,92,203,74,200,58,191,46,179,38,162,35,143,38,121,48,100,64,79,88,57,121,32,137,20,
+32,262,80,176,32,262,32,262,80,176,63,303,32,262,63,303,63,307,63,307,64,313,32,262,91,25,84,16,177,0,177,0,84,16,72,11,177,0,72,11,55,9,95,331,-25,331,-13,319,95,331,-13,319,-3,314,95,331,-3,314,7,304,95,331,7,304,67,317,95,331,67,317,73,319,95,331,73,319,83,321,95,331,83,321,95,321,18,287,32,262,64,313,18,287,64,313,67,317,18,287,67,317,7,304,184,284,128,174,137,149,184,284,137,149,141,156,184,284,141,156,151,176,184,284,151,176,197,268,184,284,197,268,187,289,256,331,158,331,166,321,256,331,166,321,174,321,256,331,174,321,181,319,256,331,181,319,186,315,256,331,186,315,190,311,256,331,190,311,191,306,256,331,191,306,229,310,256,331,229,310,242,317,256,331,242,317,256,321,197,268,207,286,191,306,197,268,191,306,191,303,197,268,191,303,190,299,197,268,190,299,188,294,197,268,188,294,187,289,218,300,229,310,191,306,218,300,191,306,207,286,92,156,95,149,128,174,128,174,95,149,138,37,128,174,138,37,137,55,137,111,137,91,224,91,137,111,224,91,224,111,151,176,141,156,224,156,151,176,224,156,224,176,177,0,177,9,161,11,177,0,161,11,150,16,177,0,150,16,94,39,177,0,94,39,91,25,142,24,138,37,95,149,142,24,95,149,95,111,142,24,95,111,95,91,142,24,95,91,95,60,142,24,95,60,150,16,8,111,8,91,95,91,8,111,95,91,95,111,80,176,8,176,92,156,80,176,92,156,128,174,80,176,128,174,69,285,80,176,69,285,67,289,80,176,67,289,65,294,80,176,65,294,64,299,80,176,64,299,63,303,92,156,8,176,8,156,177,0,55,9,55,0,94,39,150,16,95,60,137,149,128,174,137,55,166,321,158,331,158,321,-13,319,-25,331,-25,321,
+66,200,66,338,33,338,33,200,16383,16383,66,-6,66,131,33,131,33,-6,100,257,94,262,86,276,84,284,83,292,85,304,91,314,100,321,111,326,
+33,338,33,200,66,200,33,338,66,200,66,338,33,131,33,-6,66,-6,33,131,66,-6,66,131,
+100,257,94,262,86,276,84,284,83,292,85,304,91,314,100,321,111,326,126,328,135,327,144,324,150,321,155,316,156,311,156,310,155,309,154,307,152,306,144,298,142,293,140,289,140,284,141,277,144,271,149,266,155,263,163,262,172,263,179,267,184,272,188,280,189,289,185,305,177,318,163,329,145,336,124,338,101,335,82,327,68,314,58,297,55,277,57,262,61,248,70,235,84,220,105,202,99,202,97,203,92,203,74,200,58,191,46,179,38,162,35,143,38,121,48,100,64,79,88,57,121,32,137,20,150,8,159,-2,164,-13,165,-24,163,-37,157,-48,148,-56,136,-61,122,-63,111,-62,101,-59,93,-55,88,-50,86,-45,86,-44,87,-42,90,-39,92,-38,96,-33,99,-29,103,-21,103,-17,102,-10,99,-5,93,0,87,2,79,3,70,2,63,-1,57,-7,53,-14,52,-23,55,-39,65,-53,80,-64,99,-71,121,-73,145,-70,165,-62,180,-48,190,-31,193,-10,192,4,187,17,179,30,165,45,146,63,152,63,173,65,190,73,202,86,210,102,213,123,211,139,206,154,197,170,184,185,169,200,16383,16383,187,105,185,96,180,87,172,80,163,75,152,73,141,75,129,79,116,87,101,99,84,114,75,124,69,133,65,141,62,149,61,158,63,169,68,178,75,185,84,190,95,191,106,190,118,184,132,176,146,165,161,152,170,142,177,132,183,123,186,114,187,105,158,286,157,294,153,301,148,306,141,310,133,311,125,310,118,306,113,301,110,294,108,286,109,278,113,272,118,266,125,263,132,262,140,263,148,266,153,272,157,278,158,286,16383,16383,59,286,57,294,54,301,48,306,41,310,33,311,26,310,19,306,14,301,10,294,9,286,10,278,14,272,19,266,25,263,33,262,41,263,48,266,54,272,57,278,59,286,273,124,266,124,257,108,247,95,236,87,223,82,208,80,183,84,162,95,147,113,137,138,133,169,137,197,146,221,161,240,180,252,205,256,221,254,234,249,245,240,253,227,257,211,266,211,266,247,265,249,264,250,263,252,261,254,259,255,249,259,238,262,216,266,205,266,169,262,138,248,115,227,100,199,95,165,99,133,112,107,132,87,158,75,191,70,210,71,230,74,247,78,260,82,265,86,16383,16383,361,165,352,220,329,267,292,305,246,329,193,338,137,329,89,305,52,268,28,220,19,165,28,110,52,63,89,26,136,1,190,-6,245,1,292,26,329,63,353,110,361,165,16383,16383,334,167,326,119,306,77,275,44,235,22,190,14,145,22,106,43,74,76,54,118,46,166,54,213,74,254,106,287,144,309,189,317,234,309,274,288,305,255,326,214,334,167,135,221,129,217,127,216,124,215,118,215,116,217,115,220,115,225,114,233,114,290,112,307,106,321,96,330,81,336,62,338,44,337,29,332,
+101,335,82,327,85,304,85,304,82,327,83,292,84,220,83,292,82,327,84,220,82,327,70,235,70,235,82,327,68,314,70,235,68,314,61,248,61,248,68,314,58,297,61,248,58,297,57,262,57,262,58,297,55,277,69,133,88,57,75,124,75,124,88,57,84,114,101,99,84,114,88,57,101,99,88,57,121,32,95,191,94,203,92,203,95,191,92,203,84,190,95,191,97,203,94,203,63,169,68,178,74,200,74,200,68,178,75,185,74,200,75,185,92,203,92,203,75,185,84,190,74,200,58,191,63,169,63,169,58,191,61,158,64,79,61,158,58,191,64,79,58,191,48,100,48,100,58,191,46,179,48,100,46,179,38,121,38,121,46,179,38,162,38,121,38,162,35,143,165,45,146,63,150,8,150,8,146,63,141,75,150,8,141,75,137,20,137,20,141,75,129,79,137,20,129,79,121,32,121,32,129,79,116,87,121,32,116,87,101,99,163,-37,157,-48,165,-62,165,-62,157,-48,148,-56,165,-62,148,-56,145,-70,145,-70,148,-56,136,-61,145,-70,136,-61,122,-63,122,-63,111,-62,121,-73,121,-73,111,-62,101,-59,121,-73,101,-59,99,-71,99,-71,101,-59,93,-55,99,-71,93,-55,88,-50,79,3,80,-64,87,2,87,2,80,-64,86,-45,88,-50,86,-45,80,-64,88,-50,80,-64,99,-71,144,324,145,336,135,327,135,327,145,336,126,328,111,326,126,328,124,338,111,326,124,338,101,335,101,335,85,304,91,314,101,335,91,314,100,321,101,335,100,321,111,326,152,73,146,63,152,63,152,73,152,63,173,65,152,73,141,75,146,63,180,87,172,80,173,65,173,65,172,80,163,75,173,65,163,75,152,73,118,184,132,176,169,200,169,200,132,176,146,165,169,200,146,165,161,152,161,152,170,142,169,200,169,200,170,142,184,185,213,123,211,139,210,102,210,102,211,139,206,154,210,102,206,154,202,86,202,86,206,154,197,170,202,86,197,170,190,73,190,73,197,170,187,105,190,73,187,105,185,96,190,73,185,96,180,87,177,132,183,123,184,185,184,185,183,123,186,114,184,185,186,114,197,170,197,170,186,114,187,105,106,190,118,184,169,200,106,190,169,200,105,202,106,190,105,202,102,202,106,190,102,202,99,202,106,190,99,202,97,203,106,190,97,203,95,191,100,257,94,262,105,202,100,257,105,202,169,200,94,262,90,269,105,202,105,202,90,269,86,276,105,202,86,276,84,220,84,220,86,276,84,284,84,220,84,284,83,292,193,-10,192,4,190,-31,190,-31,192,4,187,17,190,-31,187,17,180,-48,180,-48,187,17,179,30,180,-48,179,30,165,45,165,45,150,8,159,-2,165,45,159,-2,164,-13,165,45,164,-13,165,-24,165,45,165,-24,165,-62,165,45,165,-62,180,-48,163,-37,165,-62,165,-24,122,-63,121,-73,145,-70,156,311,156,310,163,262,163,262,156,310,155,309,163,262,155,309,155,263,155,263,155,309,154,307,155,263,154,307,152,306,163,329,156,311,163,262,155,316,156,311,163,329,155,316,163,329,150,321,150,321,163,329,145,336,150,321,145,336,144,324,145,336,124,338,126,328,185,305,177,318,179,267,185,305,179,267,184,272,185,305,184,272,188,280,185,305,188,280,189,289,177,318,163,329,163,262,177,318,163,262,172,263,177,318,172,263,179,267,149,266,155,263,152,306,149,266,152,306,148,302,149,266,148,302,144,298,149,266,144,298,144,271,142,293,140,289,141,277,142,293,141,277,144,271,142,293,144,271,144,298,102,-10,99,-5,99,-29,102,-10,99,-29,101,-25,102,-10,101,-25,103,-21,102,-10,103,-21,103,-17,99,-29,99,-5,96,-33,96,-33,99,-5,93,0,96,-33,93,0,92,-38,92,-38,93,0,90,-39,86,-45,86,-44,87,2,87,2,86,-44,87,-42,87,2,87,-42,93,0,93,0,87,-42,88,-41,93,0,88,-41,90,-39,70,2,63,-1,65,-53,70,2,65,-53,80,-64,70,2,80,-64,79,3,57,-7,53,-14,55,-39,57,-7,55,-39,65,-53,57,-7,65,-53,63,-1,65,141,62,149,64,79,65,141,64,79,88,57,65,141,88,57,69,133,61,158,64,79,62,149,55,-39,53,-14,52,-23,141,277,140,289,140,284,180,87,173,65,190,73,184,185,170,142,177,132,
+158,286,157,294,153,301,148,306,141,310,133,311,125,310,118,306,113,301,110,294,108,286,109,278,113,272,118,266,125,263,132,262,140,263,148,266,153,272,157,278,158,286,16383,16383,59,286,57,294,54,301,48,306,41,310,33,311,26,310,19,306,14,301,10,294,9,286,10,278,14,272,19,266,25,263,33,262,41,263,48,266,54,272,57,278,59,286,273,124,266,124,257,108,247,95,236,87,223,82,208,80,183,84,162,95,147,113,137,138,133,169,137,197,146,221,161,240,180,252,205,256,221,254,234,249,245,240,253,227,257,211,266,211,266,247,265,249,264,250,263,252,261,254,259,255,249,259,238,262,216,266,205,266,169,262,138,248,115,227,100,199,95,165,99,133,112,107,132,87,158,75,191,70,
+108,286,109,278,110,294,110,294,109,278,113,272,110,294,113,272,113,301,113,301,113,272,118,266,113,301,118,266,118,306,118,306,118,266,125,263,118,306,125,263,125,310,125,310,125,263,132,262,125,310,132,262,133,311,133,311,132,262,140,263,133,311,140,263,141,310,141,310,140,263,148,266,141,310,148,266,148,306,148,306,148,266,153,272,148,306,153,272,153,301,153,301,153,272,157,278,153,301,157,278,157,294,157,294,157,278,158,286,9,286,10,278,10,294,10,294,10,278,14,272,10,294,14,272,14,301,14,301,14,272,19,266,14,301,19,266,19,306,19,306,19,266,25,263,19,306,25,263,26,310,26,310,25,263,33,262,26,310,33,262,33,311,33,311,33,262,41,263,33,311,41,263,41,310,41,310,41,263,48,266,41,310,48,266,48,306,48,306,48,266,54,272,48,306,54,272,54,301,54,301,54,272,57,278,54,301,57,278,57,294,57,294,57,278,59,286,
+273,124,266,124,257,108,247,95,236,87,223,82,208,80,183,84,162,95,147,113,137,138,133,169,137,197,146,221,161,240,180,252,205,256,221,254,234,249,245,240,253,227,257,211,266,211,266,247,265,249,264,250,263,252,261,254,259,255,249,259,238,262,216,266,205,266,169,262,138,248,115,227,100,199,95,165,99,133,112,107,132,87,158,75,191,70,210,71,230,74,247,78,260,82,265,86,16383,16383,361,165,352,220,329,267,292,305,246,329,193,338,137,329,89,305,52,268,28,220,19,165,28,110,52,63,89,26,136,1,190,-6,245,1,292,26,329,63,353,110,361,165,16383,16383,334,167,326,119,306,77,275,44,235,22,190,14,145,22,106,43,74,76,54,118,46,166,54,213,74,254,106,287,144,309,189,317,234,309,274,288,305,255,326,214,334,167,135,221,129,217,127,216,124,215,118,215,116,217,115,220,115,225,114,233,114,290,112,307,106,321,96,330,81,336,62,338,44,337,29,332,18,325,10,316,8,305,9,300,11,295,14,292,19,290,24,289,29,290,37,294,39,298,40,301,40,303,39,304,39,307,38,309,38,313,39,316,43,319,48,322,54,324,60,324,67,323,72,321,76,316,78,310,79,303,79,288,56,279,40,273,29,268,20,263,13,257,9,253,6,248,4,243,2,231,4,220,9,210,16,203,26,199,37,197,46,198,55,200,64,205,73,211,83,219,85,210,88,204,93,200,98,198,105,197,112,197,117,199,123,202,128,206,135,212,16383,16383,79,237,79,235,78,233,77,230,76,228,74,226,64,222,60,221,56,221,52,220,46,222,41,225,37,230,34,236,33,243,35,250,39,256,
+162,95,147,113,158,75,158,75,147,113,137,138,158,75,137,138,132,87,132,87,137,138,133,169,138,248,133,169,137,197,138,248,137,197,146,221,216,266,205,266,221,254,221,254,205,266,205,256,180,252,205,256,205,266,180,252,205,266,169,262,263,252,261,254,266,211,266,211,261,254,259,255,266,211,259,255,257,211,257,211,259,255,253,227,169,262,138,248,146,221,169,262,146,221,161,240,169,262,161,240,180,252,115,227,100,199,112,107,115,227,112,107,132,87,115,227,132,87,133,169,115,227,133,169,138,248,100,199,95,165,99,133,100,199,99,133,112,107,266,124,257,108,260,82,260,82,257,108,247,95,260,82,247,95,247,78,247,78,247,95,236,87,247,78,236,87,230,74,230,74,236,87,223,82,230,74,223,82,210,71,210,71,223,82,208,80,191,70,210,71,208,80,191,70,208,80,183,84,191,70,183,84,162,95,191,70,162,95,158,75,266,211,266,247,265,249,266,211,265,249,264,250,266,211,264,250,263,252,216,266,221,254,227,264,227,264,221,254,234,249,227,264,234,249,238,262,238,262,234,249,245,240,238,262,245,240,249,259,249,259,245,240,253,227,249,259,253,227,259,255,266,124,260,82,265,86,266,124,265,86,273,124,193,338,189,317,234,309,193,338,234,309,246,329,246,329,234,309,274,288,246,329,274,288,292,305,292,305,274,288,305,255,292,305,305,255,329,267,329,267,305,255,326,214,329,267,326,214,334,167,334,167,352,220,329,267,334,167,353,110,352,220,329,63,353,110,334,167,329,63,334,167,326,119,329,63,326,119,306,77,329,63,306,77,292,26,190,14,190,-6,235,22,235,22,190,-6,245,1,235,22,245,1,275,44,275,44,245,1,292,26,275,44,292,26,306,77,54,213,74,254,89,305,89,305,74,254,106,287,89,305,106,287,137,329,137,329,106,287,144,309,137,329,144,309,193,338,193,338,144,309,189,317,28,110,52,63,28,220,28,220,52,63,46,166,52,268,46,166,54,213,52,268,54,213,89,305,145,22,106,43,136,1,145,22,136,1,190,-6,145,22,190,-6,190,14,89,26,136,1,106,43,89,26,106,43,74,76,89,26,74,76,54,118,89,26,54,118,52,63,46,166,52,63,54,118,28,110,28,220,19,165,28,220,46,166,52,268,352,220,353,110,361,165,
+135,221,129,217,127,216,124,215,118,215,116,217,115,220,115,225,114,233,114,290,112,307,106,321,96,330,81,336,62,338,44,337,29,332,18,325,10,316,8,305,9,300,11,295,14,292,19,290,24,289,29,290,37,294,39,298,40,301,40,303,39,304,39,307,38,309,38,313,39,316,43,319,48,322,54,324,60,324,67,323,72,321,76,316,78,310,79,303,79,288,56,279,40,273,29,268,20,263,13,257,9,253,6,248,4,243,2,231,4,220,9,210,16,203,26,199,37,197,46,198,55,200,64,205,73,211,83,219,85,210,88,204,93,200,98,198,105,197,112,197,117,199,123,202,128,206,135,212,16383,16383,79,237,79,235,78,233,77,230,76,228,74,226,64,222,60,221,56,221,52,220,46,222,41,225,37,230,34,236,33,243,35,250,39,256,48,262,61,269,79,276,117,113,157,77,172,64,203,33,216,21,222,17,224,17,225,18,227,19,228,20,228,22,227,26,224,31,219,39,212,49,203,60,196,70,188,80,180,91,171,102,161,113,203,166,212,178,219,187,224,194,227,199,228,203,228,205,227,207,225,208,223,208,216,204,204,193,172,163,157,150,16383,16383,21,113,61,77,76,64,107,33,120,21,126,17,128,17,129,18,131,19,132,20,132,22,131,26,128,31,123,39,116,49,107,60,100,70,92,80,65,113,107,166,116,178,123,187,128,194,131,199,132,203,132,205,131,207,129,208,127,208,120,204,108,193,76,163,61,150,276,57,276,196,24,196,24,164,243,164,243,57,142,97,142,128,20,128,20,97,283,76,283,80,276,86,268,94,252,112,244,123,216,162,230,168,241,177,249,188,254,199,256,211,253,228,246,241,233,251,217,258,
+38,309,38,310,39,298,39,298,38,310,38,311,39,298,38,311,37,294,37,294,38,311,38,313,44,337,38,313,39,316,44,337,39,316,43,319,39,305,39,307,39,298,39,305,39,298,40,301,40,301,40,302,40,303,40,301,40,303,39,304,40,301,39,304,39,305,46,198,55,200,46,222,46,222,55,200,52,220,56,221,52,220,55,200,56,221,55,200,64,205,81,336,62,338,67,323,67,323,62,338,60,324,54,324,60,324,62,338,54,324,62,338,48,322,48,322,62,338,44,337,48,322,44,337,43,319,78,233,77,230,83,219,83,219,77,230,76,228,83,219,76,228,74,226,74,226,69,224,73,211,73,211,69,224,64,222,73,211,64,222,64,205,64,205,64,222,60,221,64,205,60,221,56,221,24,289,29,290,29,332,29,332,29,290,33,292,29,332,33,292,38,313,38,313,33,292,37,294,11,295,14,292,18,325,18,325,14,292,19,290,18,325,19,290,29,332,29,332,19,290,24,289,10,316,8,305,9,300,10,316,9,300,11,295,10,316,11,295,18,325,81,336,79,276,83,219,81,336,83,219,96,330,96,330,83,219,85,210,96,330,85,210,88,204,81,336,67,323,72,321,81,336,72,321,76,316,81,336,76,316,78,310,81,336,78,310,79,303,81,336,79,303,79,276,98,198,105,197,106,321,106,321,105,197,112,197,106,321,112,197,112,307,112,307,112,197,115,225,112,307,115,225,114,233,117,199,123,202,118,215,118,215,123,202,121,215,124,215,121,215,123,202,124,215,123,202,128,206,135,221,132,219,135,212,135,212,132,219,129,217,135,212,129,217,128,206,128,206,129,217,127,216,128,206,127,216,124,215,117,199,118,215,116,217,117,199,116,217,115,220,117,199,115,220,115,225,117,199,115,225,112,197,96,330,88,204,93,200,96,330,93,200,98,198,96,330,98,198,106,321,83,219,79,276,79,237,83,219,79,237,79,235,83,219,79,235,78,233,74,226,73,211,83,219,35,250,39,256,40,273,40,273,39,256,48,262,40,273,48,262,56,279,56,279,48,262,61,269,56,279,61,269,79,288,79,288,61,269,79,276,79,288,79,276,79,303,40,273,29,268,35,250,35,250,29,268,33,243,37,197,33,243,29,268,37,197,29,268,26,199,26,199,29,268,20,263,26,199,20,263,16,203,16,203,20,263,13,257,16,203,13,257,9,253,41,225,37,230,37,197,41,225,37,197,46,198,41,225,46,198,46,222,34,236,33,243,37,197,34,236,37,197,37,230,9,210,16,203,9,253,9,210,9,253,6,248,9,210,6,248,4,243,9,210,4,243,4,220,3,237,2,231,4,220,3,237,4,220,4,243,114,233,114,290,112,307,29,332,38,313,44,337,38,309,39,298,39,307,
+117,113,157,77,172,64,203,33,216,21,222,17,224,17,225,18,227,19,228,20,228,22,227,26,224,31,219,39,212,49,203,60,196,70,188,80,180,91,171,102,161,113,203,166,212,178,219,187,224,194,227,199,228,203,228,205,227,207,225,208,223,208,216,204,204,193,172,163,157,150,16383,16383,21,113,61,77,76,64,107,33,120,21,126,17,128,17,129,18,131,19,132,20,132,22,131,26,128,31,123,39,116,49,107,60,100,70,92,80,65,113,107,166,116,178,123,187,128,194,131,199,132,203,132,205,131,207,129,208,127,208,120,204,108,193,76,163,61,150,276,57,276,196,24,196,24,164,243,164,243,57,142,97,142,128,20,128,20,97,283,76,283,80,276,86,268,94,252,112,244,123,216,162,230,168,241,177,249,188,254,199,256,211,253,228,246,241,233,251,217,258,196,260,110,260,110,252,122,251,128,248,132,244,134,237,134,98,132,91,129,87,121,85,110,84,109,76,190,76,190,84,178,85,171,87,168,92,166,100,166,157,190,157,199,143,206,133,210,127,213,121,216,116,224,101,232,90,239,82,246,77,252,76,16383,16383,166,166,166,251,185,251,199,248,210,243,217,234,221,222,222,209,221,196,216,184,209,175,
+203,60,196,70,203,60,203,60,196,70,203,33,203,60,203,33,212,49,212,49,203,33,216,21,212,49,216,21,219,39,219,39,216,21,222,17,219,39,222,17,224,31,224,31,222,17,224,17,224,31,224,17,225,18,227,26,224,31,225,18,227,26,225,18,227,19,227,26,227,19,228,20,227,26,228,20,228,22,171,102,172,64,180,91,180,91,172,64,188,48,180,91,188,48,188,80,188,80,188,48,203,33,188,80,203,33,196,70,161,113,172,163,157,150,161,113,157,150,157,77,161,113,157,77,172,64,161,113,172,64,171,102,228,205,227,207,227,199,228,205,227,199,228,203,228,205,228,203,228,204,188,178,203,166,204,193,204,193,203,166,212,178,204,193,212,178,216,204,216,204,212,178,219,187,216,204,219,187,223,208,223,208,219,187,224,194,223,208,224,194,225,208,225,208,224,194,227,199,225,208,227,199,227,207,172,163,161,113,203,166,172,163,203,166,188,178,107,60,100,70,107,33,107,60,107,33,116,49,116,49,107,33,120,21,116,49,120,21,123,39,123,39,120,21,126,17,123,39,126,17,128,31,128,31,126,17,128,17,128,31,128,17,129,18,131,26,128,31,129,18,131,26,129,18,131,19,131,26,131,19,132,20,131,26,132,20,132,22,74,102,76,64,83,91,83,91,76,64,92,48,83,91,92,48,92,80,92,80,92,48,107,33,92,80,107,33,100,70,65,113,76,163,61,150,65,113,61,150,61,77,65,113,61,77,76,64,65,113,76,64,74,102,132,205,131,207,131,199,132,205,131,199,132,203,132,205,132,203,132,204,92,178,107,166,108,193,108,193,107,166,116,178,108,193,116,178,120,204,120,204,116,178,123,187,120,204,123,187,127,208,127,208,123,187,128,194,127,208,128,194,129,208,129,208,128,194,131,199,129,208,131,199,131,207,76,163,65,113,107,166,76,163,107,166,92,178,61,77,61,150,21,113,157,77,157,150,117,113,
+276,57,276,196,24,196,24,164,243,164,243,57,142,97,142,128,20,128,20,97,283,76,283,80,
+243,164,243,57,276,57,243,164,276,57,276,196,243,164,276,196,24,196,243,164,24,196,24,164,
+142,97,142,128,20,128,20,97,283,76,283,80,276,86,268,94,
+142,97,142,128,20,128,142,97,20,128,20,97,
+283,76,283,80,276,86,268,94,252,112,244,123,216,162,230,168,241,177,249,188,254,199,256,211,253,228,246,241,233,251,217,258,196,260,110,260,110,252,122,251,128,248,132,244,134,237,134,98,132,91,129,87,121,85,110,84,109,76,190,76,190,84,178,85,171,87,168,92,166,100,166,157,190,157,199,143,206,133,210,127,213,121,216,116,224,101,232,90,239,82,246,77,252,76,16383,16383,166,166,166,251,185,251,199,248,210,243,217,234,221,222,222,209,221,196,216,184,209,175,199,168,187,166,188,166,16383,16383,361,165,352,220,329,267,292,305,246,329,193,338,137,330,89,305,52,268,28,221,19,166,28,111,51,63,88,26,135,1,190,-6,245,1,292,26,329,63,353,110,361,165,16383,16383,334,165,326,118,306,77,275,44,235,22,190,14,145,22,106,43,74,76,54,118,46,166,54,213,74,254,106,287,145,309,189,317,235,309,275,288,306,255,326,213,334,165,161,273,161,300,6,300,6,273,171,267,168,289,158,309,143,324,123,334,101,338,78,335,58,325,42,309,32,290,28,267,32,244,42,224,57,209,77,198,100,195,123,198,142,209,158,224,168,244,171,267,16383,16383,152,267,149,250,142,235,130,223,116,215,100,212,84,215,69,223,58,234,51,249,48,267,51,284,58,298,69,310,83,318,99,321,115,318,130,310,141,299,149,284,152,267,319,121,319,154,188,154,188,251,155,251,155,154,24,154,24,121,155,121,155,17,188,17,188,121,16383,16383,319,-43,319,-10,24,-10,24,-43,148,177,139,181,134,175,124,169,110,167,54,167,95,208,112,226,125,241,133,255,137,269,138,283,136,301,127,316,114,328,97,335,75,338,53,336,35,329,21,317,10,301,1,278,13,271,20,284,28,295,37,302,46,307,57,308,68,306,78,301,86,292,91,282,93,270,91,260,86,247,78,233,67,217,54,201,3,147,3,135,128,135,102,256,
+222,209,222,209,222,209,222,209,230,168,233,251,233,251,230,168,241,177,233,251,241,177,246,241,246,241,241,177,249,188,246,241,249,188,253,228,253,228,249,188,254,199,253,228,254,199,256,211,221,222,222,209,233,251,221,222,233,251,217,258,221,222,217,258,217,234,166,251,185,251,196,260,196,260,185,251,199,248,196,260,199,248,217,258,217,258,199,248,210,243,217,258,210,243,217,234,134,226,168,92,166,100,134,226,166,100,166,111,166,166,166,157,190,157,166,166,190,157,187,166,187,166,190,157,188,166,187,166,188,166,199,168,199,168,188,166,190,157,199,168,190,157,199,143,166,251,196,260,132,244,166,251,132,244,134,237,166,251,134,237,134,226,166,251,134,226,166,111,196,260,110,260,122,251,196,260,122,251,128,248,196,260,128,248,132,244,213,121,216,162,216,184,216,184,216,162,230,168,216,184,230,168,221,196,221,196,230,168,222,209,213,121,216,184,210,127,210,127,216,184,209,175,210,127,209,175,206,133,206,133,209,175,199,168,206,133,199,168,199,143,232,90,239,82,244,123,244,123,239,82,246,77,244,123,246,77,252,112,252,112,246,77,252,76,252,112,252,76,260,103,260,103,252,76,283,76,260,103,283,76,268,94,268,94,283,76,276,86,244,123,216,162,216,116,244,123,216,116,224,101,244,123,224,101,232,90,190,76,190,84,178,85,190,76,178,85,171,87,190,76,171,87,134,108,190,76,134,108,134,98,190,76,134,98,132,91,190,76,132,91,129,87,190,76,129,87,121,85,190,76,121,85,110,84,190,76,110,84,109,76,134,111,134,108,171,87,134,111,171,87,168,92,134,111,168,92,134,226,193,338,189,317,235,309,193,338,235,309,246,329,246,329,235,309,275,288,246,329,275,288,292,305,292,305,275,288,306,255,292,305,306,255,329,267,329,267,306,255,326,213,329,267,326,213,334,165,334,165,352,220,329,267,334,165,353,110,352,220,329,63,353,110,334,165,329,63,334,165,326,118,329,63,326,118,306,77,329,63,306,77,292,26,190,14,190,-6,235,22,235,22,190,-6,245,1,235,22,245,1,275,44,275,44,245,1,292,26,275,44,292,26,306,77,54,213,74,254,89,305,89,305,74,254,106,287,89,305,106,287,137,330,137,330,106,287,145,309,137,330,145,309,193,338,193,338,145,309,189,317,28,111,51,63,28,221,28,221,51,63,46,166,52,268,46,166,54,213,52,268,54,213,89,305,145,22,106,43,135,1,145,22,135,1,190,-6,145,22,190,-6,190,14,88,26,135,1,106,43,88,26,106,43,74,76,88,26,74,76,54,118,88,26,54,118,51,63,46,166,51,63,54,118,28,111,28,221,19,166,28,221,46,166,52,268,352,220,353,110,361,165,216,116,216,162,213,121,276,86,283,76,283,80,122,251,110,260,110,252,
+161,273,161,300,6,300,6,273,171,267,168,289,158,309,143,324,
+161,273,161,300,6,300,161,273,6,300,6,273,
+171,267,168,289,158,309,143,324,123,334,101,338,78,335,58,325,42,309,32,290,28,267,32,244,42,224,57,209,77,198,100,195,123,198,142,209,158,224,168,244,171,267,16383,16383,152,267,149,250,142,235,130,223,116,215,100,212,84,215,69,223,58,234,51,249,48,267,51,284,58,298,69,310,83,318,99,321,115,318,130,310,141,299,149,284,152,267,319,121,319,154,188,154,188,251,155,251,155,154,24,154,24,121,155,121,155,17,188,17,188,121,16383,16383,319,-43,319,-10,24,-10,24,-43,148,177,139,181,134,175,124,169,110,167,54,167,95,208,112,226,125,241,133,255,137,269,138,283,136,301,127,316,114,328,97,335,75,338,53,336,35,329,21,317,10,301,1,278,13,271,20,284,28,295,37,302,
+83,318,99,321,99,321,101,338,99,321,115,318,101,338,115,318,123,334,123,334,115,318,130,310,123,334,130,310,143,324,143,324,130,310,141,299,143,324,141,299,149,284,171,267,168,289,168,244,168,244,168,289,158,309,168,244,158,309,158,224,158,224,158,309,152,267,158,224,152,267,149,250,158,224,149,250,142,209,142,209,149,250,142,235,142,209,142,235,130,223,158,309,143,324,149,284,158,309,149,284,152,267,142,209,130,223,123,198,123,198,130,223,116,215,123,198,116,215,100,195,100,195,116,215,100,212,58,298,69,310,78,335,78,335,69,310,83,318,78,335,83,318,101,338,101,338,83,318,99,321,42,309,48,267,51,284,42,309,51,284,58,325,58,325,51,284,58,298,58,325,58,298,78,335,84,215,69,223,77,198,84,215,77,198,100,195,84,215,100,195,100,212,48,267,42,224,51,249,51,249,42,224,57,209,51,249,57,209,58,234,58,234,57,209,77,198,58,234,77,198,69,223,28,267,32,244,32,290,32,290,32,244,42,224,32,290,42,224,42,309,42,309,42,224,48,267,
+319,121,319,154,188,154,188,251,155,251,155,154,24,154,24,121,155,121,155,17,188,17,188,121,16383,16383,319,-43,319,-10,24,-10,24,-43,148,177,139,181,134,175,124,169,110,167,54,167,95,208,112,226,125,241,133,255,137,269,138,283,136,301,127,316,114,328,97,335,75,338,
+188,251,155,251,188,17,188,17,155,251,155,154,188,17,155,154,155,121,155,121,155,154,24,154,155,121,24,154,24,121,188,121,319,121,188,154,24,-10,24,-43,319,-43,24,-10,319,-43,319,-10,188,154,319,121,319,154,188,17,155,121,155,17,
+148,177,139,181,134,175,124,169,110,167,54,167,95,208,112,226,125,241,133,255,137,269,138,283,136,301,127,316,114,328,97,335,75,338,53,336,35,329,21,317,10,301,1,278,13,271,20,284,28,295,37,302,46,307,57,308,68,306,78,301,86,292,91,282,93,270,91,260,86,247,78,233,67,217,54,201,3,147,3,135,128,135,102,256,114,263,123,271,129,279,131,288,132,296,130,310,122,321,110,330,95,336,78,338,61,336,46,331,33,322,22,309,11,291,23,281,31,293,39,301,47,306,56,309,66,310,76,309,83,306,89,301,93,295,94,286,92,276,87,267,78,259,65,252,46,244,46,230,52,231,59,231,60,232,76,230,88,225,97,216,103,205,105,190,
+54,201,3,147,54,167,54,201,54,167,95,208,54,201,95,208,67,217,13,271,20,284,21,317,21,317,20,284,28,295,21,317,28,295,35,329,35,329,28,295,37,302,35,329,37,302,53,336,53,336,37,302,46,307,53,336,46,307,57,308,57,308,68,306,75,338,75,338,68,306,78,301,75,338,78,301,97,335,97,335,78,301,86,292,97,335,86,292,91,282,10,301,1,278,13,271,10,301,13,271,21,317,91,260,95,208,93,270,93,270,95,208,97,335,97,335,95,208,112,226,97,335,112,226,114,328,114,328,112,226,125,241,114,328,125,241,127,316,127,316,125,241,133,255,127,316,133,255,136,301,136,301,133,255,137,269,136,301,137,269,138,283,97,335,91,282,93,270,75,338,53,336,57,308,95,208,91,260,86,247,95,208,86,247,78,233,95,208,78,233,67,217,129,172,124,169,128,135,128,135,124,169,117,168,128,135,117,168,110,167,128,135,110,167,54,167,128,135,54,167,3,147,148,177,139,181,134,175,148,177,134,175,129,172,148,177,129,172,128,135,128,135,3,147,3,135,
+102,256,114,263,123,271,129,279,131,288,132,296,130,310,122,321,110,330,95,336,78,338,61,336,46,331,33,322,22,309,11,291,23,281,31,293,39,301,47,306,56,309,66,310,76,309,83,306,89,301,93,295,94,286,92,276,87,267,78,259,65,252,46,244,46,230,52,231,59,231,60,232,76,230,88,225,97,216,103,205,105,190,103,179,99,169,92,162,82,157,71,155,66,155,61,156,57,158,52,161,40,169,32,173,28,174,25,175,19,174,14,172,10,169,8,165,7,159,9,150,15,142,25,136,37,132,52,131,83,134,109,144,129,159,141,177,146,200,144,214,139,227,130,239,118,248,102,254,46,253,66,253,143,302,149,306,153,310,156,314,158,318,158,329,155,333,152,336,147,338,141,339,133,337,129,335,125,332,120,328,215,225,171,225,171,57,164,46,155,38,144,31,131,27,116,26,102,28,90,34,81,45,76,59,74,78,74,225,30,225,30,27,29,14,26,-5,22,-28,19,-51,18,-69,19,-82,22,-93,26,-101,32,-106,40,-108,48,-106,55,-102,60,-94,63,-83,64,-69,62,-51,58,-29,52,-6,48,14,46,32,55,18,66,8,77,1,91,-3,107,-4,123,-2,137,2,150,11,162,24,172,40,174,40,176,24,182,11,191,2,201,-2,211,-4,222,-3,231,0,239,4,247,12,256,23,256,28,
+66,155,61,156,83,134,83,134,61,156,57,158,83,134,57,158,52,131,52,131,57,158,52,161,52,131,52,161,46,165,56,231,59,231,65,252,65,252,59,231,60,232,60,232,76,230,65,252,65,252,76,230,78,259,65,252,46,244,52,231,65,252,52,231,56,231,23,281,31,293,33,322,33,322,31,293,39,301,33,322,39,301,46,331,46,331,39,301,47,306,46,331,47,306,61,336,61,336,47,306,56,309,61,336,56,309,66,310,66,310,76,309,78,338,78,338,76,309,83,306,78,338,83,306,95,336,95,336,83,306,89,301,95,336,89,301,93,295,22,309,11,291,23,281,22,309,23,281,33,322,103,179,99,169,109,144,109,144,99,169,92,162,109,144,92,162,83,134,83,134,92,162,82,157,83,134,82,157,71,155,71,155,66,155,83,134,95,336,94,286,97,216,95,336,97,216,110,330,110,330,97,216,102,256,110,330,102,256,114,263,78,338,61,336,66,310,130,310,122,321,123,271,130,310,123,271,129,279,130,310,129,279,131,288,130,310,131,288,132,296,122,321,110,330,114,263,122,321,114,263,123,271,102,254,102,256,97,216,102,254,97,216,103,205,102,254,103,205,118,248,92,276,87,267,88,225,92,276,88,225,97,216,92,276,97,216,94,286,78,259,76,230,88,225,78,259,88,225,87,267,141,177,146,200,144,214,141,177,144,214,139,227,141,177,139,227,130,239,141,177,130,239,129,159,103,179,109,144,105,190,105,190,109,144,118,248,118,248,109,144,129,159,118,248,129,159,130,239,105,190,118,248,103,205,40,169,36,171,37,132,40,169,37,132,52,131,40,169,52,131,46,165,37,132,36,171,32,173,37,132,32,173,28,174,37,132,28,174,25,175,37,132,25,175,25,136,19,174,14,172,15,142,19,174,15,142,25,136,19,174,25,136,25,175,10,169,8,165,9,150,10,169,9,150,15,142,10,169,15,142,14,172,52,231,46,244,46,230,9,150,8,165,7,159,95,336,93,295,94,286,
+46,253,66,253,143,302,149,306,153,310,156,314,158,318,158,329,155,333,152,336,147,338,141,339,133,337,129,335,125,332,120,328,215,225,171,225,171,57,164,46,155,38,144,31,131,27,116,26,102,28,90,34,81,45,76,59,74,78,74,225,30,225,30,27,
+141,339,143,302,147,338,147,338,143,302,149,306,147,338,149,306,152,336,152,336,149,306,153,310,152,336,153,310,155,333,155,333,153,310,156,314,155,333,156,314,158,329,158,329,156,314,158,318,158,329,158,318,158,323,143,302,141,339,137,338,143,302,137,338,133,337,143,302,133,337,129,335,143,302,129,335,125,332,143,302,125,332,120,328,143,302,120,328,66,253,66,253,120,328,46,253,
+215,225,171,225,171,57,164,46,155,38,144,31,131,27,116,26,102,28,90,34,81,45,76,59,74,78,74,225,30,225,30,27,29,14,26,-5,22,-28,19,-51,18,-69,19,-82,22,-93,26,-101,32,-106,40,-108,48,-106,55,-102,60,-94,63,-83,64,-69,62,-51,58,-29,52,-6,48,14,46,32,55,18,66,8,77,1,91,-3,107,-4,123,-2,137,2,150,11,162,24,172,40,174,40,176,24,182,11,191,2,201,-2,211,-4,222,-3,231,0,239,4,247,12,256,23,256,28,249,22,244,18,239,15,235,14,230,13,224,15,220,19,217,26,215,36,215,48,266,-76,266,-65,247,-62,234,-58,227,-50,223,-38,222,-20,222,271,223,290,227,304,234,313,247,318,266,321,266,331,134,331,95,327,66,316,46,297,34,270,30,235,34,199,46,172,66,154,93,142,127,137,127,-14,126,-35,123,-49,115,-58,102,-63,83,-65,83,-76,160,-76,160,320,189,320,189,-76,16383,16383,127,147,105,153,88,164,77,182,70,206,68,237,70,266,75,289,86,305,103,315,127,320,90,127,89,135,85,143,79,149,71,154,63,155,54,154,46,150,40,144,37,136,35,127,37,118,40,111,46,105,54,101,63,99,71,101,79,105,85,111,89,118,
+46,32,46,32,46,32,46,32,74,225,30,225,46,32,30,225,32,-106,46,32,32,-106,40,-108,46,32,40,-108,48,-106,76,59,74,78,77,1,77,1,74,78,66,8,66,8,74,78,74,225,66,8,74,225,55,18,55,18,74,225,46,32,30,225,30,27,32,-106,32,-106,30,27,29,14,32,-106,29,14,26,-101,26,-101,29,14,26,-5,26,-101,26,-5,22,-28,18,-69,19,-82,19,-51,19,-51,19,-82,22,-93,19,-51,22,-93,22,-28,22,-28,22,-93,26,-101,171,225,171,57,172,40,172,40,171,57,164,46,172,40,164,46,162,24,162,24,164,46,155,38,162,24,155,38,150,11,150,11,155,38,144,31,150,11,144,31,137,2,137,2,144,31,131,27,137,2,131,27,123,-2,123,-2,131,27,116,26,123,-2,116,26,107,-4,107,-4,116,26,102,28,107,-4,102,28,91,-3,91,-3,102,28,90,34,91,-3,90,34,81,45,81,45,76,59,77,1,81,45,77,1,91,-3,215,225,171,225,172,40,215,225,172,40,174,40,215,225,174,40,176,24,215,225,176,24,182,11,215,225,182,11,191,2,215,225,191,2,201,-2,215,225,201,-2,211,-4,215,225,211,-4,215,48,249,22,244,18,247,12,247,12,244,18,239,15,247,12,239,15,239,4,239,4,239,15,235,14,239,4,235,14,231,0,231,0,235,14,230,13,249,22,247,12,256,23,249,22,256,23,256,28,224,15,220,19,222,-3,224,15,222,-3,231,0,224,15,231,0,230,13,215,48,211,-4,215,36,215,36,211,-4,222,-3,215,36,222,-3,217,26,217,26,222,-3,220,19,48,14,48,-106,52,-6,52,-6,48,-106,55,-102,52,-6,55,-102,58,-29,58,-29,55,-102,60,-94,58,-29,60,-94,62,-51,62,-51,60,-94,63,-83,62,-51,63,-83,64,-69,46,32,48,-106,48,14,
+266,-76,266,-65,247,-62,234,-58,227,-50,223,-38,222,-20,222,271,223,290,227,304,234,313,247,318,266,321,266,331,134,331,95,327,66,316,46,297,34,270,30,235,34,199,46,172,66,154,93,142,127,137,127,-14,126,-35,123,-49,115,-58,102,-63,83,-65,83,-76,160,-76,160,320,189,320,189,-76,16383,16383,127,147,105,153,88,164,77,182,70,206,68,237,70,266,75,289,86,305,103,315,127,320,90,127,89,135,85,143,79,149,71,154,63,155,54,154,46,150,40,144,37,136,35,127,37,118,40,111,46,105,54,101,63,99,71,101,79,105,85,111,89,118,90,127,87,0,70,0,49,-49,52,-51,55,-50,57,-50,60,-49,66,-49,76,-50,84,-52,89,-55,92,-60,93,-67,92,-74,88,-81,83,-85,75,-88,65,-89,59,-89,47,-87,40,-86,33,-83,26,-98,35,-102,51,-106,59,-106,68,-107,
+123,-49,115,-58,160,-76,160,-76,115,-58,102,-63,160,-76,102,-63,83,-65,134,331,95,327,103,315,134,331,103,315,127,320,134,331,127,320,127,137,134,331,127,137,160,-76,134,331,160,-76,160,320,134,331,160,320,266,331,127,320,127,147,127,137,105,153,88,164,93,142,93,142,88,164,77,182,93,142,77,182,66,154,66,154,77,182,70,206,66,154,70,206,68,237,68,237,70,266,66,316,66,316,70,266,75,289,66,316,75,289,95,327,95,327,75,289,86,305,95,327,86,305,103,315,66,316,46,297,46,172,66,316,46,172,66,154,66,316,66,154,68,237,247,318,266,321,266,331,247,318,266,331,234,313,234,313,266,331,189,320,234,313,189,320,227,304,227,304,189,320,223,290,234,-58,227,-50,189,-76,189,-76,227,-50,223,-38,189,-76,223,-38,189,320,189,320,223,-38,222,-20,189,320,222,-20,222,271,160,-76,127,137,127,-14,160,-76,127,-14,126,-35,160,-76,126,-35,123,-49,266,-76,266,-65,247,-62,266,-76,247,-62,234,-58,266,-76,234,-58,189,-76,105,153,93,142,127,137,105,153,127,137,127,147,34,199,46,172,46,297,34,199,46,297,34,270,34,199,34,270,30,235,160,-76,83,-65,83,-76,266,331,160,320,189,320,223,290,189,320,222,271,
+90,127,89,135,85,143,79,149,71,154,63,155,54,154,46,150,40,144,37,136,35,127,37,118,40,111,46,105,54,101,63,99,71,101,79,105,85,111,89,118,90,127,87,0,70,0,49,-49,52,-51,55,-50,57,-50,60,-49,66,-49,76,-50,84,-52,89,-55,92,-60,93,-67,92,-74,88,-81,83,-85,75,-88,65,-89,59,-89,47,-87,40,-86,
+35,127,37,118,37,136,37,136,37,118,40,111,37,136,40,111,40,144,40,144,40,111,46,105,40,144,46,105,46,150,46,150,46,105,54,101,46,150,54,101,54,154,54,154,54,101,62,99,54,154,62,99,63,155,63,155,62,99,71,101,63,155,71,101,71,154,71,154,71,101,79,105,71,154,79,105,79,149,79,149,79,105,85,111,79,149,85,111,85,143,85,143,85,111,89,118,85,143,89,118,89,135,89,135,89,118,90,127,
+87,0,70,0,49,-49,52,-51,55,-50,57,-50,60,-49,66,-49,76,-50,84,-52,89,-55,92,-60,93,-67,92,-74,88,-81,83,-85,75,-88,65,-89,59,-89,47,-87,40,-86,33,-83,26,-98,35,-102,51,-106,59,-106,68,-107,89,-105,107,-99,120,-91,128,-79,131,-64,129,-52,123,-43,114,-36,102,-32,88,-30,80,-30,77,-31,75,-31,124,135,124,147,113,148,105,150,99,154,96,159,95,166,95,336,89,338,30,310,30,299,36,302,41,304,45,305,52,305,54,301,55,297,55,157,52,153,47,150,40,148,28,147,28,135,152,271,148,293,139,312,123,326,103,335,79,338,54,335,33,325,17,310,6,291,3,267,6,244,16,225,32,210,52,200,75,197,100,201,
+59,-106,68,-107,59,-89,59,-89,68,-107,65,-89,75,-88,65,-89,68,-107,75,-88,68,-107,89,-105,57,-50,60,-49,70,0,70,0,60,-49,63,-49,70,0,63,-49,66,-49,66,-49,76,-50,70,0,70,0,76,-50,75,-31,70,0,75,-31,87,0,70,0,49,-49,52,-51,70,0,52,-51,55,-50,70,0,55,-50,57,-50,131,-64,129,-52,128,-79,128,-79,129,-52,123,-43,128,-79,123,-43,120,-91,120,-91,123,-43,114,-36,120,-91,114,-36,107,-99,107,-99,114,-36,102,-32,107,-99,102,-32,93,-67,93,-67,102,-32,92,-60,89,-55,92,-60,102,-32,89,-55,102,-32,88,-30,89,-55,88,-30,85,-30,89,-55,85,-30,84,-52,84,-52,85,-30,82,-30,84,-52,82,-30,80,-30,84,-52,80,-30,77,-31,84,-52,77,-31,76,-50,107,-99,93,-67,92,-74,107,-99,92,-74,89,-105,89,-105,92,-74,88,-81,89,-105,88,-81,83,-85,33,-83,35,-102,40,-86,40,-86,35,-102,43,-104,40,-86,43,-104,47,-87,47,-87,43,-104,51,-106,47,-87,51,-106,53,-88,53,-88,51,-106,59,-106,53,-88,59,-106,59,-89,35,-102,33,-83,26,-98,75,-88,89,-105,83,-85,75,-31,76,-50,77,-31,
+124,135,124,147,113,148,105,150,99,154,96,159,95,166,95,336,89,338,30,310,30,299,36,302,41,304,45,305,52,305,54,301,55,297,55,157,52,153,47,150,40,148,28,147,28,135,152,271,148,293,139,312,123,326,103,335,79,338,54,335,33,325,17,310,6,291,3,267,6,244,16,225,32,210,52,200,75,197,100,201,121,211,138,227,148,247,152,271,16383,16383,116,258,
+52,153,47,150,124,135,124,135,47,150,40,148,124,135,40,148,28,147,41,304,45,305,89,338,89,338,45,305,48,305,89,338,48,305,50,305,50,305,52,305,89,338,89,338,52,305,53,303,89,338,53,303,54,301,113,148,105,150,124,135,124,135,105,150,99,154,124,135,99,154,55,164,55,164,99,154,96,159,55,164,96,159,55,291,55,297,55,291,89,338,55,297,89,338,54,301,36,302,41,304,89,338,36,302,89,338,30,310,36,302,30,310,30,299,95,166,95,336,89,338,95,166,89,338,55,291,95,166,55,291,96,159,55,157,52,153,124,135,55,157,124,135,55,164,124,135,28,147,28,135,113,148,124,135,124,147,
+152,271,148,293,139,312,123,326,103,335,79,338,54,335,33,325,17,310,6,291,3,267,6,244,16,225,32,210,52,200,75,197,100,201,121,211,138,227,148,247,152,271,16383,16383,116,258,114,242,110,230,102,221,93,216,80,214,73,214,66,216,56,224,52,230,44,250,42,261,40,273,40,285,41,297,46,307,53,315,63,320,74,321,88,318,99,310,108,297,114,279,116,258,229,111,189,147,174,161,143,192,130,204,124,208,122,208,121,207,119,206,118,204,118,203,119,199,122,193,127,185,134,176,143,165,150,155,158,145,167,134,176,122,185,111,143,58,134,47,127,38,122,31,119,25,118,22,118,19,119,18,121,17,123,17,130,21,142,32,158,46,174,61,189,75,16383,16383,132,111,92,147,62,177,46,192,34,204,27,208,26,208,24,207,23,206,
+44,250,52,200,48,240,48,240,52,200,52,230,56,224,52,230,52,200,56,224,52,200,75,197,42,261,40,273,33,325,42,261,33,325,32,210,42,261,32,210,52,200,42,261,52,200,44,250,33,325,40,285,41,297,33,325,41,297,54,335,54,335,41,297,46,307,54,335,46,307,53,315,3,267,6,244,6,291,6,291,6,244,16,225,6,291,16,225,17,310,17,310,16,225,32,210,17,310,32,210,33,325,103,335,79,338,88,318,88,318,79,338,74,321,63,320,74,321,79,338,63,320,79,338,54,335,114,242,110,230,121,211,121,211,110,230,102,221,121,211,102,221,100,201,100,201,102,221,93,216,100,201,93,216,80,214,80,214,73,214,75,197,75,197,73,214,66,216,75,197,66,216,61,220,152,271,148,293,148,247,148,247,148,293,139,312,148,247,139,312,138,227,138,227,139,312,123,326,138,227,123,326,121,211,121,211,123,326,116,258,88,318,99,310,103,335,103,335,99,310,108,297,103,335,108,297,123,326,123,326,108,297,114,279,123,326,114,279,116,258,80,214,75,197,100,201,54,335,53,315,63,320,114,242,121,211,116,258,56,224,75,197,61,220,33,325,40,273,40,285,
+229,111,189,147,174,161,143,192,130,204,124,208,122,208,121,207,119,206,118,204,118,203,119,199,122,193,127,185,134,176,143,165,150,155,158,145,167,134,176,122,185,111,143,58,134,47,127,38,122,31,119,25,118,22,118,19,119,18,121,17,123,17,130,21,142,32,158,46,174,61,189,75,16383,16383,132,111,92,147,62,177,46,192,34,204,27,208,26,208,24,207,23,206,22,204,22,203,23,199,26,193,31,185,38,176,46,165,53,155,61,145,70,134,79,122,89,111,46,58,38,47,31,38,26,31,23,25,22,22,22,19,23,18,25,17,27,17,33,21,45,32,61,46,77,61,92,75,357,45,357,74,329,74,329,203,305,203,204,70,204,45,294,45,294,0,329,0,329,45,16383,16383,294,74,227,74,294,163,16383,16383,316,338,293,338,66,-6,91,-6,16383,16383,112,135,112,147,100,148,92,150,87,154,84,159,83,166,83,336,76,338,22,310,22,299,29,302,34,304,38,305,45,305,47,301,47,157,44,153,40,150,32,148,21,147,21,135,371,42,362,46,357,40,352,36,346,34,340,33,333,32,276,32,318,73,335,91,347,106,355,120,360,134,361,148,358,166,350,181,337,193,320,200,298,203,275,201,257,194,243,182,232,165,223,143,235,136,243,149,251,159,259,167,269,171,280,173,
+92,75,132,111,92,147,92,75,92,147,89,111,92,75,89,111,77,61,53,155,61,145,62,177,62,177,61,145,70,134,62,177,70,134,78,161,78,161,70,134,79,122,78,161,79,122,92,147,92,147,79,122,89,111,53,155,62,177,46,165,46,165,62,177,46,192,46,165,46,192,38,176,38,176,46,192,34,204,38,176,34,204,31,185,31,185,34,204,27,208,31,185,27,208,26,193,26,193,27,208,26,208,26,193,26,208,24,207,23,206,22,204,23,199,23,206,23,199,26,193,23,206,26,193,24,207,189,75,229,111,189,147,189,75,189,147,185,111,189,75,185,111,174,61,150,155,158,145,158,177,158,177,158,145,167,134,158,177,167,134,174,161,174,161,167,134,176,122,174,161,176,122,189,147,189,147,176,122,185,111,150,155,158,177,143,165,143,165,158,177,143,192,143,165,143,192,134,176,134,176,143,192,130,204,134,176,130,204,127,185,127,185,130,204,124,208,127,185,124,208,122,208,122,193,127,185,122,208,122,193,122,208,121,207,122,193,121,207,119,206,122,193,119,206,119,199,118,204,118,203,119,199,118,204,119,199,119,206,119,18,121,17,122,31,122,31,121,17,123,17,122,31,123,17,127,38,127,38,123,17,130,21,127,38,130,21,134,47,134,47,130,21,142,32,134,47,142,32,143,58,143,58,142,32,158,46,143,58,158,46,185,111,185,111,158,46,174,61,119,25,118,22,118,20,119,25,118,20,118,19,119,25,118,19,119,18,119,25,119,18,122,31,23,18,25,17,26,31,26,31,25,17,27,17,26,31,27,17,31,38,31,38,27,17,33,21,31,38,33,21,38,47,38,47,33,21,45,32,38,47,45,32,46,58,46,58,45,32,61,46,46,58,61,46,89,111,89,111,61,46,77,61,23,25,22,22,22,20,23,25,22,20,22,19,23,25,22,19,23,18,23,25,23,18,26,31,23,199,22,204,22,203,
+357,45,357,74,329,74,329,203,305,203,204,70,204,45,294,45,294,0,329,0,329,45,16383,16383,294,74,227,74,294,163,16383,16383,316,338,293,338,66,-6,91,-6,16383,16383,112,135,112,147,100,148,92,150,87,154,84,159,83,166,83,336,76,338,22,310,22,299,29,302,34,304,38,305,45,305,47,301,47,157,44,153,40,150,32,148,21,147,21,135,371,42,362,46,357,40,352,36,346,34,340,33,333,32,276,32,318,73,335,91,347,106,355,120,360,134,361,148,358,166,350,181,337,193,320,200,298,203,275,201,257,194,243,182,232,165,223,143,235,136,243,149,251,159,259,167,269,171,280,173,291,171,301,166,308,158,313,147,315,135,313,125,308,112,301,98,290,82,276,66,225,12,225,0,351,0,
+204,45,294,45,204,70,204,70,294,45,227,74,204,70,227,74,305,203,305,203,227,74,294,163,305,203,294,163,329,0,329,0,294,163,294,74,329,0,294,74,294,45,294,45,294,74,227,74,305,203,329,0,329,203,329,74,329,45,357,45,329,74,357,45,357,74,293,338,66,-6,91,-6,293,338,91,-6,316,338,44,153,40,150,112,135,112,135,40,150,32,148,112,135,32,148,21,147,34,304,38,305,76,338,76,338,38,305,41,305,76,338,41,305,43,305,43,305,45,305,76,338,76,338,45,305,46,303,76,338,46,303,47,301,100,148,92,150,112,135,112,135,92,150,87,154,112,135,87,154,47,164,47,164,87,154,84,159,47,164,84,159,47,291,47,297,47,291,76,338,47,297,76,338,47,301,29,302,34,304,76,338,29,302,76,338,22,310,29,302,22,310,22,299,83,166,83,336,76,338,83,166,76,338,47,291,83,166,47,291,84,159,47,157,44,153,112,135,47,157,112,135,47,164,112,135,21,147,21,135,100,148,112,135,112,147,329,0,294,45,294,0,
+371,42,362,46,357,40,352,36,346,34,340,33,333,32,276,32,318,73,335,91,347,106,355,120,360,134,361,148,358,166,350,181,337,193,320,200,298,203,275,201,257,194,243,182,232,165,223,143,235,136,243,149,251,159,259,167,269,171,280,173,291,171,301,166,308,158,313,147,315,135,313,125,308,112,301,98,290,82,276,66,225,12,225,0,351,0,16383,16383,297,338,275,338,48,-6,73,-6,16383,16383,108,135,108,147,97,148,89,150,84,154,81,159,80,166,80,336,73,338,19,310,19,299,26,302,31,304,35,305,42,305,44,301,44,297,45,291,45,164,44,157,41,153,37,150,29,148,18,147,18,135,359,45,359,74,331,74,331,203,308,203,206,70,206,45,296,45,296,0,331,0,331,45,16383,16383,296,74,229,74,296,163,16383,16383,319,338,296,338,69,-6,94,-6,16383,16383,102,256,114,263,123,271,129,279,131,288,132,296,130,310,122,321,110,330,95,336,78,338,61,336,46,331,33,322,22,309,11,291,23,281,31,293,39,301,47,306,56,309,66,310,76,309,83,306,89,301,93,295,94,286,92,276,87,267,78,259,65,252,46,244,46,230,52,231,59,231,60,232,76,230,88,225,97,216,103,205,105,190,103,179,99,169,92,162,82,157,71,155,66,155,61,156,57,158,52,161,40,169,32,173,28,174,
+308,112,301,98,318,73,318,73,301,98,290,82,318,73,290,82,276,66,276,66,225,12,276,32,276,32,225,12,351,0,276,32,351,0,333,32,340,33,333,32,351,0,340,33,351,0,346,34,346,34,351,0,352,36,235,136,243,149,243,182,243,182,243,149,251,159,243,182,251,159,257,194,257,194,251,159,259,167,257,194,259,167,275,201,275,201,259,167,269,171,275,201,269,171,280,173,280,173,291,171,298,203,298,203,291,171,301,166,298,203,301,166,320,200,320,200,301,166,308,158,320,200,308,158,313,147,232,165,223,143,235,136,232,165,235,136,243,182,371,42,362,46,357,40,371,42,357,40,352,36,371,42,352,36,351,0,275,338,48,-6,73,-6,275,338,73,-6,297,338,41,153,37,150,108,135,108,135,37,150,29,148,108,135,29,148,18,147,31,304,35,305,73,338,73,338,35,305,38,305,73,338,38,305,40,305,40,305,42,305,73,338,73,338,42,305,43,303,73,338,43,303,44,301,97,148,89,150,108,135,108,135,89,150,84,154,108,135,84,154,45,164,45,164,84,154,81,159,45,164,81,159,45,291,44,297,45,291,73,338,44,297,73,338,44,301,26,302,31,304,73,338,26,302,73,338,19,310,26,302,19,310,19,299,80,166,80,336,73,338,80,166,73,338,45,291,80,166,45,291,81,159,313,125,318,73,315,135,315,135,318,73,320,200,320,200,318,73,335,91,320,200,335,91,337,193,337,193,335,91,347,106,337,193,347,106,350,181,350,181,347,106,355,120,350,181,355,120,358,166,358,166,355,120,360,134,358,166,360,134,361,148,320,200,313,147,315,135,298,203,275,201,280,173,276,66,276,32,318,73,44,157,41,153,108,135,44,157,108,135,45,164,108,135,18,147,18,135,97,148,108,135,108,147,308,112,318,73,313,125,351,0,225,12,225,0,
+359,45,359,74,331,74,331,203,308,203,206,70,206,45,296,45,296,0,331,0,331,45,16383,16383,296,74,229,74,296,163,16383,16383,319,338,296,338,69,-6,94,-6,16383,16383,102,256,114,263,123,271,129,279,131,288,132,296,130,310,122,321,110,330,95,336,78,338,61,336,46,331,33,322,22,309,11,291,23,281,31,293,39,301,47,306,56,309,66,310,76,309,83,306,89,301,93,295,94,286,92,276,87,267,78,259,65,252,46,244,46,230,52,231,59,231,60,232,76,230,88,225,97,216,103,205,105,190,103,179,99,169,92,162,82,157,71,155,66,155,61,156,57,158,52,161,40,169,32,173,28,174,25,175,19,174,14,172,10,169,8,165,7,159,9,150,15,142,25,136,37,132,52,131,83,134,109,144,129,159,141,177,146,200,144,214,139,227,130,239,118,248,102,254,130,208,129,216,125,223,119,229,112,232,103,233,95,232,87,229,82,223,78,217,77,208,78,199,82,192,87,186,95,182,103,180,112,182,119,186,125,192,129,199,130,208,16383,16383,100,147,96,128,91,112,85,97,77,84,68,70,46,42,31,20,22,2,17,-13,15,-30,16,-42,18,-52,22,-62,27,-71,33,-79,45,-89,58,-97,74,-103,90,-107,107,-108,133,-104,155,-94,173,-79,184,-59,188,-35,187,-24,184,-16,179,-10,173,-6,164,-5,157,-5,151,-8,147,-12,144,-18,143,-25,145,-33,147,-37,150,-42,154,-46,160,-54,161,-57,162,-59,162,-62,160,-71,153,-80,142,-87,130,-91,116,-93,98,-90,83,-81,71,-69,64,-52,61,-34,62,-19,64,-4,67,11,72,27,79,44,93,75,101,99,106,118,108,133,108,147,225,378,153,453,148,457,144,460,140,462,132,464,125,463,120,461,117,458,
+206,45,296,45,206,70,206,70,296,45,229,74,206,70,229,74,308,203,308,203,229,74,296,163,308,203,296,163,331,0,331,0,296,163,296,74,331,0,296,74,296,45,296,45,296,74,229,74,308,203,331,0,331,203,331,74,331,45,359,45,331,74,359,45,359,74,296,338,69,-6,94,-6,296,338,94,-6,319,338,66,155,61,156,83,134,83,134,61,156,57,158,83,134,57,158,52,131,52,131,57,158,52,161,52,131,52,161,46,165,56,231,59,231,65,252,65,252,59,231,60,232,60,232,76,230,65,252,65,252,76,230,78,259,65,252,46,244,52,231,65,252,52,231,56,231,23,281,31,293,33,322,33,322,31,293,39,301,33,322,39,301,46,331,46,331,39,301,47,306,46,331,47,306,61,336,61,336,47,306,56,309,61,336,56,309,66,310,66,310,76,309,78,338,78,338,76,309,83,306,78,338,83,306,95,336,95,336,83,306,89,301,95,336,89,301,93,295,22,309,11,291,23,281,22,309,23,281,33,322,103,179,99,169,109,144,109,144,99,169,92,162,109,144,92,162,83,134,83,134,92,162,82,157,83,134,82,157,71,155,71,155,66,155,83,134,95,336,94,286,97,216,95,336,97,216,110,330,110,330,97,216,102,256,110,330,102,256,114,263,78,338,61,336,66,310,130,310,122,321,123,271,130,310,123,271,129,279,130,310,129,279,131,288,130,310,131,288,132,296,122,321,110,330,114,263,122,321,114,263,123,271,102,254,102,256,97,216,102,254,97,216,103,205,102,254,103,205,118,248,92,276,87,267,88,225,92,276,88,225,97,216,92,276,97,216,94,286,78,259,76,230,88,225,78,259,88,225,87,267,141,177,146,200,144,214,141,177,144,214,139,227,141,177,139,227,130,239,141,177,130,239,129,159,103,179,109,144,105,190,105,190,109,144,118,248,118,248,109,144,129,159,118,248,129,159,130,239,105,190,118,248,103,205,40,169,36,171,37,132,40,169,37,132,52,131,40,169,52,131,46,165,37,132,36,171,32,173,37,132,32,173,28,174,37,132,28,174,25,175,37,132,25,175,25,136,19,174,14,172,15,142,19,174,15,142,25,136,19,174,25,136,25,175,10,169,8,165,9,150,10,169,9,150,15,142,10,169,15,142,14,172,52,231,46,244,46,230,9,150,8,165,7,159,95,336,93,295,94,286,331,0,296,45,296,0,
+130,208,129,216,125,223,119,229,112,232,103,233,95,232,87,229,82,223,78,217,77,208,78,199,82,192,87,186,95,182,103,180,112,182,119,186,125,192,129,199,130,208,16383,16383,100,147,96,128,91,112,85,97,77,84,68,70,46,42,31,20,22,2,17,-13,15,-30,16,-42,18,-52,22,-62,27,-71,33,-79,45,-89,58,-97,74,-103,90,-107,107,-108,133,-104,155,-94,173,-79,184,-59,188,-35,187,-24,184,-16,179,-10,173,-6,164,-5,157,-5,151,-8,147,-12,144,-18,143,-25,145,-33,147,-37,150,-42,154,-46,160,-54,161,-57,162,-59,162,-62,160,-71,153,-80,142,-87,130,-91,116,-93,98,-90,83,-81,71,-69,64,-52,61,-34,62,-19,64,-4,67,11,72,27,79,44,93,75,101,99,106,118,108,133,108,147,225,378,153,453,148,457,144,460,140,462,132,464,125,463,120,461,117,458,114,454,113,448,114,443,116,439,119,434,123,430,128,426,205,378,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,138,378,158,378,235,427,245,435,248,439,249,443,250,448,249,454,247,458,243,461,239,463,233,464,228,463,224,462,221,460,216,457,211,453,16383,16383,353,0,353,9,340,12,
+103,180,112,182,112,232,112,232,112,182,119,186,112,232,119,186,119,229,119,229,119,186,125,192,119,229,125,192,125,223,125,223,125,192,129,199,125,223,129,199,129,216,129,216,129,199,130,208,78,217,78,199,82,223,82,223,78,199,82,192,82,223,82,192,87,229,87,229,82,192,87,186,87,229,87,186,95,232,95,232,87,186,95,182,95,232,95,182,103,233,103,233,95,182,103,180,103,233,103,180,112,232,72,27,79,44,77,84,72,27,77,84,68,70,68,70,46,42,62,-19,62,-19,46,42,61,-34,64,-52,61,-34,58,-97,64,-52,58,-97,74,-103,68,70,62,-19,64,-4,68,70,64,-4,67,11,68,70,67,11,72,27,33,-79,45,-89,46,42,46,42,45,-89,58,-97,46,42,58,-97,61,-34,31,20,22,2,22,-62,31,20,22,-62,27,-71,31,20,27,-71,33,-79,31,20,33,-79,46,42,15,-30,16,-42,17,-13,17,-13,16,-42,18,-52,17,-13,18,-52,22,2,22,2,18,-52,22,-62,108,147,100,147,101,99,108,147,101,99,106,118,108,147,106,118,108,133,96,128,91,112,93,75,96,128,93,75,101,99,96,128,101,99,100,147,85,97,77,84,79,44,85,97,79,44,93,75,85,97,93,75,91,112,160,-71,153,-80,155,-94,155,-94,153,-80,142,-87,155,-94,142,-87,133,-104,133,-104,142,-87,130,-91,133,-104,130,-91,116,-93,116,-93,98,-90,107,-108,107,-108,98,-90,90,-107,83,-81,71,-69,74,-103,83,-81,74,-103,90,-107,83,-81,90,-107,98,-90,147,-37,150,-42,151,-8,151,-8,150,-42,154,-46,151,-8,154,-46,157,-5,157,-5,154,-46,157,-50,157,-5,157,-50,164,-5,164,-5,157,-50,160,-54,164,-5,160,-54,161,-57,143,-25,144,-29,144,-18,144,-18,144,-29,145,-33,144,-18,145,-33,147,-12,147,-12,145,-33,147,-37,147,-12,147,-37,151,-8,173,-6,173,-79,179,-10,179,-10,173,-79,184,-59,179,-10,184,-59,184,-16,184,-16,184,-59,188,-35,184,-16,188,-35,187,-24,155,-94,173,-79,160,-71,160,-71,173,-79,162,-62,164,-5,162,-62,173,-79,164,-5,173,-79,173,-6,116,-93,107,-108,133,-104,164,-5,161,-57,162,-59,164,-5,162,-59,162,-62,64,-52,74,-103,71,-69,78,199,78,217,77,208,
+225,378,153,453,148,457,144,460,140,462,132,464,125,463,120,461,117,458,114,454,113,448,114,443,116,439,119,434,123,430,128,426,205,378,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,138,378,158,378,235,427,245,435,248,439,249,443,250,448,249,454,247,458,243,461,239,463,233,464,228,463,224,462,221,460,216,457,211,453,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,
+205,378,225,378,153,453,205,378,153,453,148,457,205,378,148,457,144,460,205,378,144,460,140,462,205,378,140,462,136,463,205,378,136,463,132,464,205,378,132,464,128,426,113,448,114,443,114,454,114,454,114,443,116,439,114,454,116,439,117,458,117,458,116,439,119,434,117,458,119,434,120,461,120,461,119,434,123,430,120,461,123,430,125,463,125,463,123,430,128,426,125,463,128,426,132,464,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,
+138,378,158,378,235,427,245,435,248,439,249,443,250,448,249,454,247,458,243,461,239,463,233,464,228,463,224,462,221,460,216,457,211,453,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,257,378,194,462,163,462,101,378,118,378,179,430,239,378,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,248,444,243,434,238,427,233,422,227,420,221,419,216,419,211,420,206,422,200,424,
+233,464,235,427,239,463,239,463,235,427,240,431,239,463,240,431,243,461,243,461,240,431,245,435,243,461,245,435,247,458,247,458,245,435,248,439,247,458,248,439,249,454,249,454,248,439,249,443,249,454,249,443,250,448,235,427,233,464,228,463,235,427,228,463,224,462,235,427,224,462,221,460,235,427,221,460,216,457,235,427,216,457,211,453,235,427,211,453,158,378,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,158,378,211,453,138,378,
+257,378,194,462,163,462,101,378,118,378,179,430,239,378,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,248,444,243,434,238,427,233,422,227,420,221,419,216,419,211,420,206,422,200,424,195,426,182,432,175,436,161,440,154,441,147,441,133,439,121,433,111,423,103,409,97,391,112,391,115,399,120,406,125,410,131,413,137,414,141,414,149,412,157,408,169,403,180,398,189,394,196,392,202,391,209,391,224,393,237,399,247,409,255,424,262,444,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,
+101,378,118,378,163,462,163,462,118,378,179,430,163,462,179,430,194,462,194,462,179,430,239,378,194,462,239,378,257,378,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,
+248,444,243,434,238,427,233,422,227,420,221,419,216,419,211,420,206,422,200,424,195,426,182,432,175,436,161,440,154,441,147,441,133,439,121,433,111,423,103,409,97,391,112,391,115,399,120,406,125,410,131,413,137,414,141,414,149,412,157,408,169,403,180,398,189,394,196,392,202,391,209,391,224,393,237,399,247,409,255,424,262,444,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,254,411,253,419,249,426,244,431,237,435,229,436,221,435,214,431,209,426,206,419,204,411,205,403,209,397,214,391,221,388,228,387,236,388,244,391,249,397,253,403,254,411,16383,16383,155,411,153,419,150,426,144,431,137,435,129,436,122,435,115,431,110,426,106,419,105,411,106,403,110,397,115,391,121,388,129,387,137,388,144,391,150,397,153,403,155,411,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,
+115,399,120,406,121,433,121,433,120,406,125,410,121,433,125,410,133,439,133,439,125,410,131,413,133,439,131,413,137,414,137,414,141,414,147,441,147,441,141,414,145,413,147,441,145,413,149,412,112,391,115,399,121,433,112,391,121,433,111,423,112,391,111,423,103,409,112,391,103,409,97,391,147,441,149,412,154,441,154,441,149,412,153,410,154,441,153,410,157,408,157,408,169,403,161,440,161,440,169,403,168,438,147,441,133,439,137,414,161,440,154,441,157,408,168,438,169,403,175,436,175,436,169,403,180,398,175,436,180,398,182,432,182,432,180,398,189,394,182,432,189,394,195,426,195,426,189,394,196,392,195,426,196,392,200,424,200,424,196,392,202,391,200,424,202,391,206,422,206,422,202,391,209,391,206,422,209,391,211,420,211,420,209,391,224,393,211,420,224,393,216,419,216,419,224,393,221,419,227,420,221,419,224,393,227,420,224,393,237,399,248,444,243,434,247,409,248,444,247,409,255,424,248,444,255,424,262,444,238,427,233,422,237,399,238,427,237,399,247,409,238,427,247,409,243,434,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,227,420,237,399,233,422,
+254,411,253,419,249,426,244,431,237,435,229,436,221,435,214,431,209,426,206,419,204,411,205,403,209,397,214,391,221,388,228,387,236,388,244,391,249,397,253,403,254,411,16383,16383,155,411,153,419,150,426,144,431,137,435,129,436,122,435,115,431,110,426,106,419,105,411,106,403,110,397,115,391,121,388,129,387,137,388,144,391,150,397,153,403,155,411,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,229,430,227,446,220,460,209,471,196,478,180,480,164,478,151,471,140,460,133,447,130,431,132,415,139,401,150,391,163,384,179,381,195,384,209,391,220,401,227,415,229,430,16383,16383,213,431,211,420,206,411,199,404,190,400,179,398,169,400,160,404,153,411,148,420,147,431,148,441,153,450,160,457,169,462,179,464,190,462,199,457,206,450,211,441,213,431,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,
+204,411,205,403,206,419,206,419,205,403,209,397,206,419,209,397,209,426,209,426,209,397,214,391,209,426,214,391,214,431,214,431,214,391,221,388,214,431,221,388,221,435,221,435,221,388,228,387,221,435,228,387,229,436,229,436,228,387,236,388,229,436,236,388,237,435,237,435,236,388,244,391,237,435,244,391,244,431,244,431,244,391,249,397,244,431,249,397,249,426,249,426,249,397,253,403,249,426,253,403,253,419,253,419,253,403,254,411,105,411,106,403,106,419,106,419,106,403,110,397,106,419,110,397,110,426,110,426,110,397,115,391,110,426,115,391,115,431,115,431,115,391,121,388,115,431,121,388,122,435,122,435,121,388,129,387,122,435,129,387,129,436,129,436,129,387,137,388,129,436,137,388,137,435,137,435,137,388,144,391,137,435,144,391,144,431,144,431,144,391,150,397,144,431,150,397,150,426,150,426,150,397,153,403,150,426,153,403,153,419,153,419,153,403,155,411,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,
+229,430,227,446,220,460,209,471,196,478,180,480,164,478,151,471,140,460,133,447,130,431,132,415,139,401,150,391,163,384,179,381,195,384,209,391,220,401,227,415,229,430,16383,16383,213,431,211,420,206,411,199,404,190,400,179,398,169,400,160,404,153,411,148,420,147,431,148,441,153,450,160,457,169,462,179,464,190,462,199,457,206,450,211,441,213,431,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,431,84,420,84,404,56,389,37,372,26,349,20,320,19,268,19,257,22,252,26,249,34,248,47,248,165,319,165,337,163,350,158,360,149,366,135,370,114,381,114,381,232,370,232,367,211,359,197,346,189,326,184,300,183,248,183,248,295,249,301,251,306,253,310,257,312,262,313,305,313,341,312,367,308,382,299,392,283,397,261,408,261,408,331,126,331,126,321,143,320,155,318,164,315,169,310,171,305,171,302,170,300,168,294,166,291,44,49,36,33,28,23,21,16,11,12,0,9,0,0,99,0,99,9,87,11,77,13,70,16,66,20,65,24,66,33,71,48,80,68,93,95,111,130,199,130,199,56,198,39,195,27,189,18,179,13,164,11,155,9,155,0,410,0,16383,16383,199,150,120,150,199,309,307,65,285,47,264,32,242,23,220,17,
+211,420,206,411,209,391,209,391,206,411,199,404,209,391,199,404,195,384,195,384,199,404,190,400,195,384,190,400,179,381,179,381,190,400,179,398,180,480,179,464,190,462,180,480,190,462,196,478,196,478,190,462,199,457,196,478,199,457,209,471,209,471,199,457,206,450,209,471,206,450,211,441,229,430,227,446,227,415,227,415,227,446,220,460,227,415,220,460,220,401,220,401,220,460,213,431,211,441,213,431,220,460,211,441,220,460,209,471,211,420,209,391,220,401,211,420,220,401,213,431,153,450,160,457,164,478,164,478,160,457,169,462,164,478,169,462,180,480,180,480,169,462,179,464,151,471,140,460,147,431,151,471,147,431,148,441,151,471,148,441,153,450,151,471,153,450,164,478,153,411,148,420,150,391,150,391,148,420,147,431,169,400,160,404,163,384,169,400,163,384,179,381,169,400,179,381,179,398,153,411,150,391,163,384,153,411,163,384,160,404,130,431,132,415,133,447,133,447,132,415,139,401,133,447,139,401,140,460,140,460,139,401,150,391,140,460,150,391,147,431,55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,246,11,242,10,353,0,353,0,242,10,235,10,353,0,235,10,226,9,259,21,258,18,353,0,353,0,258,18,256,16,353,0,256,16,253,14,253,14,250,12,353,0,353,0,250,12,246,11,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,23,259,21,353,0,260,23,353,0,261,26,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,353,0,226,9,226,0,
+431,84,420,84,404,56,389,37,372,26,349,20,320,19,268,19,257,22,252,26,249,34,248,47,248,165,319,165,337,163,350,158,360,149,366,135,370,114,381,114,381,232,370,232,367,211,359,197,346,189,326,184,300,183,248,183,248,295,249,301,251,306,253,310,257,312,262,313,305,313,341,312,367,308,382,299,392,283,397,261,408,261,408,331,126,331,126,321,143,320,155,318,164,315,169,310,171,305,171,302,170,300,168,294,166,291,44,49,36,33,28,23,21,16,11,12,0,9,0,0,99,0,99,9,87,11,77,13,70,16,66,20,65,24,66,33,71,48,80,68,93,95,111,130,199,130,199,56,198,39,195,27,189,18,179,13,164,11,155,9,155,0,410,0,16383,16383,199,150,120,150,199,309,307,65,285,47,264,32,242,23,220,17,196,15,175,17,155,21,137,29,120,40,105,54,93,72,84,94,77,118,73,145,72,173,77,222,93,262,118,292,151,311,191,318,221,313,249,300,272,280,289,255,299,225,310,225,305,338,295,338,293,332,285,324,280,322,275,321,271,322,268,322,263,323,259,325,254,326,240,330,225,334,210,336,196,338,181,338,160,337,140,333,120,327,101,319,84,308,59,287,40,262,25,233,17,200,14,165,16,135,21,107,30,82,43,60,58,41,73,27,90,15,109,6,129,0,151,-4,132,-49,136,-51,139,-50,141,-50,144,-49,150,-49,160,-50,168,-52,173,-55,175,-60,176,-67,175,-74,172,-81,166,-85,158,-88,149,-89,143,-89,131,-87,124,-86,117,-83,109,-98,118,-102,134,-106,
+87,11,77,13,99,0,99,0,77,13,70,16,99,0,70,16,36,33,36,33,70,16,66,20,36,33,66,20,44,49,44,49,66,20,65,24,71,48,80,68,166,291,166,291,80,68,93,95,166,291,93,95,111,130,111,130,199,130,120,150,120,150,199,130,199,150,195,27,189,18,410,0,410,0,189,18,179,13,410,0,179,13,164,11,166,291,111,130,120,150,166,291,120,150,199,309,166,291,199,309,168,294,262,313,408,331,199,309,199,309,408,331,169,310,199,309,169,310,171,305,171,305,171,302,199,309,199,309,171,302,170,300,199,309,170,300,169,297,360,149,366,135,367,211,367,211,366,135,370,114,367,211,370,114,370,232,370,232,370,114,381,114,370,232,381,114,381,232,300,183,319,165,326,184,326,184,319,165,337,163,326,184,337,163,346,189,346,189,337,163,350,158,346,189,350,158,359,197,359,197,350,158,360,149,359,197,360,149,367,211,199,309,249,34,248,47,248,183,248,165,319,165,248,183,319,165,300,183,408,331,262,313,305,313,408,331,305,313,341,312,408,331,341,312,367,308,408,331,367,308,382,299,408,331,382,299,392,283,408,331,392,283,397,261,408,331,397,261,408,261,199,309,248,47,248,295,199,309,248,295,249,301,199,309,249,301,251,306,199,309,251,306,253,310,199,309,253,310,257,312,199,309,257,312,262,313,408,331,126,331,143,320,408,331,143,320,155,318,408,331,155,318,164,315,408,331,164,315,169,310,389,37,372,26,410,0,410,0,372,26,349,20,410,0,349,20,320,19,410,0,431,84,420,84,410,0,420,84,404,56,410,0,404,56,389,37,199,56,198,39,257,22,257,22,198,39,195,27,257,22,195,27,268,19,268,19,195,27,410,0,268,19,410,0,283,19,283,19,410,0,320,19,199,150,199,130,252,26,199,150,252,26,249,34,199,150,249,34,199,309,199,56,257,22,252,26,199,56,252,26,199,130,155,9,155,0,410,0,155,9,410,0,164,11,44,49,65,24,66,33,44,49,66,33,71,48,44,49,71,48,166,291,99,0,36,33,28,23,99,0,28,23,21,16,99,0,21,16,11,12,99,0,11,12,0,9,99,0,0,9,0,0,87,11,99,0,99,9,168,294,199,309,169,297,143,320,126,331,126,321,
+307,65,285,47,264,32,242,23,220,17,196,15,175,17,155,21,137,29,120,40,105,54,93,72,84,94,77,118,73,145,72,173,77,222,93,262,118,292,151,311,191,318,221,313,249,300,272,280,289,255,299,225,310,225,305,338,295,338,293,332,285,324,280,322,275,321,271,322,268,322,263,323,259,325,254,326,240,330,225,334,210,336,196,338,181,338,160,337,140,333,120,327,101,319,84,308,59,287,40,262,25,233,17,200,14,165,16,135,21,107,30,82,43,60,58,41,73,27,90,15,109,6,129,0,151,-4,132,-49,136,-51,139,-50,141,-50,144,-49,150,-49,160,-50,168,-52,173,-55,175,-60,176,-67,175,-74,172,-81,166,-85,158,-88,149,-89,143,-89,131,-87,124,-86,117,-83,109,-98,118,-102,134,-106,142,-106,151,-107,173,-105,190,-99,203,-91,211,-79,214,-64,212,-52,206,-43,198,-36,186,-32,171,-30,163,-30,161,-31,158,-31,168,-6,180,-6,213,-4,244,3,272,16,297,34,316,56,201,378,128,453,124,457,119,460,115,462,107,464,101,463,96,461,92,458,90,454,89,448,89,443,91,439,94,434,104,426,181,378,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,123,378,142,378,219,427,225,431,229,435,232,439,234,443,234,454,231,458,228,461,223,463,217,464,209,462,205,460,201,457,196,453,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,
+84,94,77,118,90,15,90,15,77,118,73,145,90,15,73,145,73,27,73,27,73,145,72,173,59,287,72,173,84,308,158,-31,175,17,155,21,158,-31,155,21,151,-4,151,-4,155,21,137,29,151,-4,137,29,129,0,129,0,137,29,120,40,129,0,120,40,109,6,109,6,120,40,105,54,142,-106,151,-107,143,-89,143,-89,151,-107,149,-89,158,-88,149,-89,151,-107,158,-88,151,-107,173,-105,141,-50,144,-49,151,-4,151,-4,144,-49,147,-49,151,-4,147,-49,150,-49,150,-49,160,-50,151,-4,151,-4,132,-49,136,-51,151,-4,136,-51,139,-50,151,-4,139,-50,141,-50,196,15,178,-6,180,-6,196,15,180,-6,213,-4,196,15,175,17,175,-6,196,15,175,-6,178,-6,175,17,158,-31,168,-6,175,17,168,-6,171,-6,175,17,171,-6,173,-6,175,17,173,-6,175,-6,316,56,307,65,297,34,297,34,307,65,285,47,297,34,285,47,272,16,272,16,285,47,264,32,272,16,264,32,244,3,244,3,264,32,242,23,244,3,242,23,220,17,220,17,196,15,213,-4,220,17,213,-4,244,3,191,318,181,338,160,337,191,318,160,337,151,311,191,318,196,338,181,338,72,173,77,222,84,308,84,308,77,222,93,262,84,308,93,262,101,319,101,319,93,262,118,292,101,319,118,292,120,327,120,327,118,292,151,311,120,327,151,311,140,333,140,333,151,311,160,337,210,336,221,313,225,334,225,334,221,313,249,300,225,334,249,300,240,330,240,330,249,300,254,326,221,313,210,336,196,338,221,313,196,338,191,318,289,328,285,324,289,255,289,255,285,324,280,322,289,255,280,322,275,321,275,321,271,322,272,280,272,280,271,322,268,322,272,280,268,322,263,323,272,280,263,323,259,325,272,280,259,325,254,326,272,280,254,326,249,300,299,225,310,225,305,338,299,225,305,338,295,338,299,225,295,338,293,332,299,225,293,332,289,255,275,321,272,280,289,255,214,-64,212,-52,211,-79,211,-79,212,-52,206,-43,211,-79,206,-43,203,-91,203,-91,206,-43,198,-36,203,-91,198,-36,190,-99,190,-99,198,-36,186,-32,190,-99,186,-32,176,-67,176,-67,186,-32,175,-60,173,-55,175,-60,186,-32,173,-55,186,-32,171,-30,173,-55,171,-30,168,-30,173,-55,168,-30,168,-52,168,-52,168,-30,166,-30,168,-52,166,-30,163,-30,168,-52,163,-30,161,-31,168,-52,161,-31,160,-50,158,-31,151,-4,160,-50,158,-31,160,-50,161,-31,190,-99,176,-67,175,-74,190,-99,175,-74,173,-105,173,-105,175,-74,172,-81,173,-105,172,-81,166,-85,117,-83,118,-102,124,-86,124,-86,118,-102,126,-104,124,-86,126,-104,131,-87,131,-87,126,-104,134,-106,131,-87,134,-106,137,-88,137,-88,134,-106,142,-106,137,-88,142,-106,143,-89,93,72,84,94,90,15,93,72,90,15,109,6,93,72,109,6,105,54,59,287,40,262,43,60,59,287,43,60,58,41,59,287,58,41,73,27,59,287,73,27,72,173,14,165,16,135,17,200,17,200,16,135,21,107,17,200,21,107,25,233,25,233,21,107,30,82,25,233,30,82,40,262,40,262,30,82,43,60,118,-102,117,-83,109,-98,158,-88,173,-105,166,-85,289,328,289,255,293,332,
+201,378,128,453,124,457,119,460,115,462,107,464,101,463,96,461,92,458,90,454,89,448,89,443,91,439,94,434,104,426,181,378,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,123,378,142,378,219,427,225,431,229,435,232,439,234,443,234,454,231,458,228,461,223,463,217,464,209,462,205,460,201,457,196,453,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,
+181,378,201,378,128,453,181,378,128,453,124,457,181,378,124,457,119,460,181,378,119,460,115,462,181,378,115,462,111,463,181,378,111,463,107,464,181,378,107,464,104,426,89,448,89,443,90,454,90,454,89,443,91,439,90,454,91,439,92,458,92,458,91,439,94,434,92,458,94,434,96,461,96,461,94,434,99,430,96,461,99,430,101,463,101,463,99,430,104,426,101,463,104,426,107,464,45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,49,294,50,275,106,310,49,294,106,310,45,307,45,307,106,310,111,312,45,307,111,312,271,331,271,331,111,312,118,312,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,271,331,118,312,184,312,271,331,184,312,213,311,271,331,213,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,271,331,6,331,25,320,271,331,25,320,38,315,271,331,38,315,45,307,255,38,234,26,276,0,276,0,234,26,206,20,276,0,206,20,169,18,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,255,38,276,0,169,18,151,18,276,0,151,18,132,19,276,0,132,19,117,21,276,0,117,21,45,24,276,0,6,9,6,0,25,320,6,331,6,321,176,184,176,164,198,162,233,232,244,115,244,232,
+123,378,142,378,219,427,225,431,229,435,232,439,234,443,234,454,231,458,228,461,223,463,217,464,209,462,205,460,201,457,196,453,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,242,378,179,462,148,462,86,378,103,378,164,430,224,378,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,238,411,236,419,233,426,227,431,220,435,213,436,205,435,198,431,193,426,
+217,464,219,427,223,463,223,463,219,427,225,431,223,463,225,431,228,461,228,461,225,431,229,435,228,461,229,435,231,458,231,458,229,435,232,439,231,458,232,439,234,454,234,454,232,439,234,443,234,454,234,443,234,448,219,427,217,464,213,463,219,427,213,463,209,462,219,427,209,462,205,460,219,427,205,460,201,457,219,427,201,457,196,453,219,427,196,453,142,378,45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,49,294,50,275,106,310,49,294,106,310,45,307,45,307,106,310,111,312,45,307,111,312,271,331,271,331,111,312,118,312,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,271,331,118,312,184,312,271,331,184,312,213,311,271,331,213,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,271,331,6,331,25,320,271,331,25,320,38,315,271,331,38,315,45,307,255,38,234,26,276,0,276,0,234,26,206,20,276,0,206,20,169,18,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,255,38,276,0,169,18,151,18,276,0,151,18,132,19,276,0,132,19,117,21,276,0,117,21,45,24,276,0,6,9,6,0,25,320,6,331,6,321,176,184,176,164,198,162,233,232,244,115,244,232,142,378,196,453,123,378,
+242,378,179,462,148,462,86,378,103,378,164,430,224,378,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,238,411,236,419,233,426,227,431,220,435,213,436,205,435,198,431,193,426,189,419,188,411,189,403,193,397,198,391,204,388,212,387,220,388,227,391,233,397,236,403,238,411,16383,16383,138,411,137,419,133,426,128,431,121,435,113,436,105,435,98,431,93,426,90,419,89,411,90,403,93,397,98,391,105,388,113,387,121,388,128,391,133,397,137,403,138,411,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,
+86,378,103,378,148,462,148,462,103,378,164,430,148,462,164,430,179,462,179,462,164,430,224,378,179,462,224,378,242,378,45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,49,294,50,275,106,310,49,294,106,310,45,307,45,307,106,310,111,312,45,307,111,312,271,331,271,331,111,312,118,312,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,271,331,118,312,184,312,271,331,184,312,213,311,271,331,213,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,271,331,6,331,25,320,271,331,25,320,38,315,271,331,38,315,45,307,255,38,234,26,276,0,276,0,234,26,206,20,276,0,206,20,169,18,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,255,38,276,0,169,18,151,18,276,0,151,18,132,19,276,0,132,19,117,21,276,0,117,21,45,24,276,0,6,9,6,0,25,320,6,331,6,321,176,184,176,164,198,162,233,232,244,115,244,232,
+238,411,236,419,233,426,227,431,220,435,213,436,205,435,198,431,193,426,189,419,188,411,189,403,193,397,198,391,204,388,212,387,220,388,227,391,233,397,236,403,238,411,16383,16383,138,411,137,419,133,426,128,431,121,435,113,436,105,435,98,431,93,426,90,419,89,411,90,403,93,397,98,391,105,388,113,387,121,388,128,391,133,397,137,403,138,411,16383,16383,299,84,285,84,271,57,255,38,234,26,206,20,169,18,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,184,312,213,311,234,306,247,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,134,378,62,453,57,457,53,460,49,462,41,464,35,463,29,461,26,458,23,454,22,448,23,443,25,439,28,434,32,430,37,426,114,378,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,32,378,52,378,129,427,139,435,142,439,143,443,144,448,143,454,141,458,137,461,133,463,127,464,122,463,118,462,115,460,110,457,105,453,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,161,378,98,462,67,462,5,378,22,378,83,430,143,378,16383,16383,153,0,153,9,133,11,
+113,436,113,387,121,435,121,435,113,387,121,388,121,435,121,388,128,431,128,431,121,388,128,391,128,431,128,391,133,426,133,426,128,391,133,397,133,426,133,397,137,419,137,419,133,397,137,403,137,419,137,403,138,411,89,411,90,403,90,419,90,419,90,403,93,397,90,419,93,397,93,426,93,426,93,397,98,391,93,426,98,391,98,431,98,431,98,391,105,388,98,431,105,388,105,435,105,435,105,388,113,387,105,435,113,387,113,436,45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,49,294,50,275,106,310,49,294,106,310,45,307,45,307,106,310,111,312,45,307,111,312,271,331,271,331,111,312,118,312,188,411,189,403,189,419,189,419,189,403,193,397,189,419,193,397,193,426,193,426,193,397,198,391,193,426,198,391,198,431,198,431,198,391,204,388,198,431,204,388,205,435,205,435,204,388,212,387,205,435,212,387,213,436,213,436,212,387,220,388,213,436,220,388,220,435,220,435,220,388,227,391,220,435,227,391,227,431,227,431,227,391,233,397,227,431,233,397,233,426,233,426,233,397,236,403,233,426,236,403,236,419,236,419,236,403,238,411,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,271,331,118,312,184,312,271,331,184,312,213,311,271,331,213,311,234,306,271,331,234,306,247,297,271,331,247,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,271,331,6,331,25,320,271,331,25,320,38,315,271,331,38,315,45,307,255,38,234,26,276,0,276,0,234,26,206,20,276,0,206,20,169,18,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,255,38,276,0,169,18,151,18,276,0,151,18,132,19,276,0,132,19,117,21,276,0,117,21,45,24,276,0,6,9,6,0,25,320,6,331,6,321,176,184,176,164,198,162,233,232,244,115,244,232,
+134,378,62,453,57,457,53,460,49,462,41,464,35,463,29,461,26,458,23,454,22,448,23,443,25,439,28,434,32,430,37,426,114,378,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,32,378,52,378,129,427,139,435,142,439,143,443,144,448,143,454,141,458,137,461,133,463,127,464,122,463,118,462,115,460,110,457,105,453,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,
+114,378,134,378,62,453,114,378,62,453,57,457,114,378,57,457,53,460,114,378,53,460,49,462,114,378,49,462,45,463,114,378,45,463,41,464,114,378,41,464,37,426,22,448,23,443,23,454,23,454,23,443,25,439,23,454,25,439,26,458,26,458,25,439,28,434,26,458,28,434,29,461,29,461,28,434,32,430,29,461,32,430,35,463,35,463,32,430,37,426,35,463,37,426,41,464,52,23,44,15,157,0,157,0,44,15,30,11,157,0,30,11,9,9,157,331,9,331,30,320,157,331,30,320,44,316,157,331,44,316,53,308,157,331,53,308,57,295,157,331,57,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,57,295,157,0,157,9,137,11,157,0,137,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,9,9,9,0,56,36,122,16,57,56,30,320,9,331,9,321,
+32,378,52,378,129,427,139,435,142,439,143,443,144,448,143,454,141,458,137,461,133,463,127,464,122,463,118,462,115,460,110,457,105,453,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,161,378,98,462,67,462,5,378,22,378,83,430,143,378,16383,16383,153,0,153,9,133,11,119,16,110,24,106,37,104,56,104,276,105,295,110,308,118,316,132,320,153,321,153,331,5,331,5,321,26,320,40,316,49,308,53,295,54,276,54,56,53,36,49,23,40,15,26,11,5,9,5,0,157,411,156,419,153,426,147,431,140,435,132,436,125,435,118,431,113,426,
+127,464,129,427,133,463,133,463,129,427,134,431,133,463,134,431,137,461,137,461,134,431,139,435,137,461,139,435,141,458,141,458,139,435,142,439,141,458,142,439,143,454,143,454,142,439,143,443,143,454,143,443,144,448,129,427,127,464,122,463,129,427,122,463,118,462,129,427,118,462,115,460,129,427,115,460,110,457,129,427,110,457,105,453,129,427,105,453,52,378,52,23,44,15,157,0,157,0,44,15,30,11,157,0,30,11,9,9,157,331,9,331,30,320,157,331,30,320,44,316,157,331,44,316,53,308,157,331,53,308,57,295,157,331,57,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,57,295,157,0,157,9,137,11,157,0,137,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,9,9,9,0,56,36,122,16,57,56,30,320,9,331,9,321,52,378,105,453,32,378,
+161,378,98,462,67,462,5,378,22,378,83,430,143,378,16383,16383,153,0,153,9,133,11,119,16,110,24,106,37,104,56,104,276,105,295,110,308,118,316,132,320,153,321,153,331,5,331,5,321,26,320,40,316,49,308,53,295,54,276,54,56,53,36,49,23,40,15,26,11,5,9,5,0,157,411,156,419,153,426,147,431,140,435,132,436,125,435,118,431,113,426,109,419,108,411,109,403,113,397,118,391,124,388,132,387,140,388,147,391,153,397,156,403,157,411,16383,16383,58,411,57,419,53,426,48,431,41,435,33,436,25,435,18,431,13,426,10,419,8,411,10,403,13,397,18,391,
+5,378,22,378,67,462,67,462,22,378,83,430,67,462,83,430,98,462,98,462,83,430,143,378,98,462,143,378,161,378,49,23,40,15,153,0,153,0,40,15,26,11,153,0,26,11,5,9,153,331,5,331,26,320,153,331,26,320,40,316,153,331,40,316,49,308,153,331,49,308,53,295,153,331,53,295,118,316,153,331,118,316,132,320,153,331,132,320,153,321,119,16,110,24,54,56,54,56,110,24,106,37,54,56,106,37,54,276,54,276,106,37,104,56,54,276,104,56,104,276,54,276,104,276,105,295,54,276,105,295,110,308,54,276,110,308,118,316,54,276,118,316,53,295,153,0,153,9,133,11,153,0,133,11,119,16,153,0,119,16,53,36,153,0,53,36,49,23,153,0,5,9,5,0,53,36,119,16,54,56,26,320,5,331,5,321,
+157,411,156,419,153,426,147,431,140,435,132,436,125,435,118,431,113,426,109,419,108,411,109,403,113,397,118,391,124,388,132,387,140,388,147,391,153,397,156,403,157,411,16383,16383,58,411,57,419,53,426,48,431,41,435,33,436,25,435,18,431,13,426,10,419,8,411,10,403,13,397,18,391,25,388,32,387,40,388,47,391,53,397,57,403,58,411,16383,16383,157,0,157,9,136,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,8,331,8,321,30,320,44,316,52,308,56,295,57,276,57,56,56,36,52,23,44,15,29,11,8,9,8,0,8,331,8,321,28,319,40,315,48,307,51,295,52,276,52,180,11,180,11,157,52,157,52,55,51,36,47,24,40,16,27,12,8,9,8,0,150,0,183,2,213,7,242,16,267,27,287,41,307,60,322,83,333,109,340,137,343,167,334,224,308,269,267,303,212,324,143,331,16383,16383,103,157,176,157,176,180,103,180,103,293,104,301,106,307,111,310,117,312,127,313,152,312,175,309,194,304,212,297,227,289,249,271,266,249,278,224,285,195,288,164,285,130,278,101,266,76,249,55,227,39,211,31,194,26,175,22,153,19,128,18,118,19,111,21,106,25,104,31,103,39,244,444,240,434,
+8,411,10,403,10,419,10,419,10,403,13,397,10,419,13,397,13,426,13,426,13,397,18,391,13,426,18,391,18,431,18,431,18,391,25,388,18,431,25,388,25,435,25,435,25,388,32,387,25,435,32,387,33,436,33,436,32,387,40,388,33,436,40,388,41,435,41,435,40,388,47,391,41,435,47,391,48,431,48,431,47,391,53,397,48,431,53,397,53,426,53,426,53,397,57,403,53,426,57,403,57,419,57,419,57,403,58,411,52,23,44,15,157,0,157,0,44,15,29,11,157,0,29,11,8,9,157,331,8,331,30,320,157,331,30,320,44,316,157,331,44,316,52,308,157,331,52,308,56,295,157,331,56,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,56,295,132,436,132,387,140,435,140,435,132,387,140,388,140,435,140,388,147,431,147,431,140,388,147,391,147,431,147,391,153,426,153,426,147,391,153,397,153,426,153,397,156,419,156,419,153,397,156,403,156,419,156,403,157,411,108,411,109,403,109,419,109,419,109,403,113,397,109,419,113,397,113,426,113,426,113,397,118,391,113,426,118,391,118,431,118,431,118,391,124,388,118,431,124,388,125,435,125,435,124,388,132,387,125,435,132,387,132,436,157,0,157,9,136,11,157,0,136,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,8,9,8,0,56,36,122,16,57,56,30,320,8,331,8,321,
+8,331,8,321,28,319,40,315,48,307,51,295,52,276,52,180,11,180,11,157,52,157,52,55,51,36,47,24,40,16,27,12,8,9,8,0,150,0,183,2,213,7,242,16,267,27,287,41,307,60,322,83,333,109,340,137,343,167,334,224,308,269,267,303,212,324,143,331,16383,16383,103,157,176,157,176,180,103,180,103,293,104,301,106,307,111,310,117,312,127,313,152,312,175,309,194,304,212,297,227,289,249,271,266,249,278,224,285,195,288,164,285,130,278,101,266,76,249,55,227,39,211,31,194,26,175,22,153,19,128,18,118,19,111,21,106,25,104,31,103,39,244,444,240,434,235,427,230,422,224,420,218,419,213,419,208,420,203,422,191,426,180,432,172,436,158,440,151,441,145,441,130,439,118,433,108,423,100,409,94,391,108,391,112,399,116,406,122,410,128,413,134,414,138,414,146,412,150,410,155,408,177,398,185,394,193,392,200,391,206,391,221,393,234,399,244,409,252,424,259,444,16383,16383,353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,
+47,24,40,16,150,0,150,0,40,16,27,12,150,0,27,12,8,9,40,315,48,307,143,331,143,331,48,307,51,295,143,331,51,295,52,276,104,31,52,276,52,180,104,31,52,180,52,157,52,157,52,180,11,180,52,157,11,180,11,157,104,301,106,307,52,276,52,276,106,307,111,310,52,276,111,310,143,331,143,331,111,310,117,312,143,331,117,312,127,313,127,313,117,312,127,312,127,313,127,312,152,312,127,313,152,312,143,331,143,331,152,312,212,324,175,22,183,2,194,26,194,26,183,2,213,7,194,26,213,7,211,31,211,31,213,7,227,39,249,55,227,39,242,16,249,55,242,16,267,27,128,18,150,0,153,19,153,19,150,0,183,2,153,19,183,2,175,22,175,309,194,304,212,324,212,324,194,304,212,297,212,324,212,297,227,289,227,289,249,271,267,303,267,303,249,271,266,249,267,303,266,249,278,224,334,224,308,269,322,83,334,224,322,83,333,109,334,224,333,109,340,137,334,224,340,137,343,167,322,83,308,269,307,60,307,60,308,269,288,164,287,41,288,164,285,130,287,41,285,130,278,101,267,303,278,224,308,269,308,269,278,224,285,195,308,269,285,195,288,164,267,303,212,324,227,289,267,27,287,41,278,101,267,27,278,101,266,76,267,27,266,76,249,55,227,39,213,7,242,16,52,276,104,31,103,39,103,180,103,157,176,157,103,180,176,157,176,180,103,293,104,301,52,276,103,293,52,276,103,39,143,331,8,331,28,319,143,331,28,319,40,315,52,55,51,36,111,21,111,21,51,36,150,0,111,21,150,0,118,19,118,19,150,0,128,18,52,55,111,21,106,25,52,55,106,25,104,31,52,55,104,31,52,157,150,0,8,9,8,0,47,24,150,0,51,36,28,319,8,331,8,321,288,164,287,41,307,60,212,324,152,312,175,309,
+244,444,240,434,235,427,230,422,224,420,218,419,213,419,208,420,203,422,191,426,180,432,172,436,158,440,151,441,145,441,130,439,118,433,108,423,100,409,94,391,108,391,112,399,116,406,122,410,128,413,134,414,138,414,146,412,150,410,155,408,177,398,185,394,193,392,200,391,206,391,221,393,234,399,244,409,252,424,259,444,16383,16383,353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,103,13,90,20,82,31,78,49,76,75,76,269,297,-5,306,-5,306,274,308,289,311,299,315,307,320,313,324,315,329,318,335,319,343,320,353,321,225,378,152,453,148,457,143,460,139,462,131,464,125,463,120,461,116,458,114,454,113,448,113,443,115,439,118,434,128,426,205,378,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,129,378,150,378,227,427,232,431,236,435,239,439,241,443,242,448,
+112,399,116,406,118,433,118,433,116,406,122,410,118,433,122,410,130,439,130,439,122,410,128,413,130,439,128,413,134,414,134,414,138,414,145,441,145,441,138,414,142,413,145,441,142,413,146,412,108,391,112,399,118,433,108,391,118,433,108,423,108,391,108,423,100,409,108,391,100,409,94,391,145,441,146,412,151,441,151,441,146,412,150,410,151,441,150,410,155,408,155,408,166,403,158,440,158,440,166,403,165,438,145,441,130,439,134,414,158,440,151,441,155,408,165,438,166,403,172,436,172,436,166,403,177,398,172,436,177,398,180,432,180,432,177,398,185,394,180,432,185,394,191,426,191,426,185,394,193,392,191,426,193,392,197,424,197,424,193,392,200,391,197,424,200,391,203,422,203,422,200,391,206,391,203,422,206,391,208,420,208,420,206,391,221,393,208,420,221,393,213,419,213,419,221,393,218,419,224,420,218,419,221,393,224,420,221,393,234,399,244,444,240,434,244,409,244,444,244,409,252,424,244,444,252,424,259,444,235,427,230,422,234,399,235,427,234,399,244,409,235,427,244,409,240,434,49,30,41,19,123,0,123,0,41,19,27,13,123,0,27,13,6,9,256,319,263,317,353,331,353,331,263,317,269,313,353,331,269,313,275,309,275,309,278,303,353,331,353,331,278,303,281,295,353,331,281,295,324,315,324,315,281,295,320,313,324,315,320,313,320,312,320,312,320,313,315,307,315,307,320,313,284,274,315,307,284,274,284,259,297,-5,284,259,284,89,297,-5,284,89,91,331,353,331,324,315,329,318,353,331,329,318,335,319,353,331,335,319,343,320,353,331,343,320,353,321,306,-5,306,253,297,-5,297,-5,306,253,306,274,297,-5,306,274,284,259,284,259,306,274,308,289,284,259,308,289,311,299,283,285,284,274,320,313,283,285,320,313,281,295,247,320,256,319,353,331,247,320,353,331,235,331,247,320,235,331,235,321,91,331,6,331,19,321,91,331,19,321,29,318,91,331,29,318,37,313,91,331,37,313,46,306,91,331,46,306,55,295,91,331,55,295,76,269,91,331,76,269,297,-5,55,295,78,49,76,75,54,48,49,30,90,20,90,20,49,30,123,0,90,20,123,0,103,13,103,13,123,0,123,9,55,75,54,48,82,31,55,75,82,31,78,49,55,75,78,49,55,295,123,0,6,9,6,0,54,48,90,20,82,31,19,321,6,331,6,321,76,269,55,295,76,75,315,307,284,259,311,299,224,420,234,399,230,422,
+225,378,152,453,148,457,143,460,139,462,131,464,125,463,120,461,116,458,114,454,113,448,113,443,115,439,118,434,128,426,205,378,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,129,378,150,378,227,427,232,431,236,435,239,439,241,443,242,448,241,454,239,458,235,461,230,463,224,464,216,462,212,460,208,457,203,453,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,
+205,378,225,378,152,453,205,378,152,453,148,457,205,378,148,457,143,460,205,378,143,460,139,462,205,378,139,462,135,463,205,378,135,463,131,464,205,378,131,464,128,426,113,448,113,443,114,454,114,454,113,443,115,439,114,454,115,439,116,458,116,458,115,439,118,434,116,458,118,434,120,461,120,461,118,434,123,430,120,461,123,430,125,463,125,463,123,430,128,426,125,463,128,426,131,464,149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,
+129,378,150,378,227,427,232,431,236,435,239,439,241,443,242,448,241,454,239,458,235,461,230,463,224,464,216,462,212,460,208,457,203,453,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,255,378,193,462,161,462,99,378,117,378,177,430,238,378,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,244,444,240,434,235,427,230,422,224,420,218,419,213,419,208,420,203,422,191,426,
+149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,224,464,227,427,230,463,230,463,227,427,232,431,230,463,232,431,235,461,235,461,232,431,236,435,235,461,236,435,239,458,239,458,236,435,239,439,239,458,239,439,241,454,241,454,239,439,241,443,241,454,241,443,242,448,227,427,224,464,220,463,227,427,220,463,216,462,227,427,216,462,212,460,227,427,212,460,208,457,227,427,208,457,203,453,227,427,203,453,150,378,81,24,74,166,46,61,150,378,203,453,129,378,223,19,234,1,235,26,130,25,180,-6,142,19,
+255,378,193,462,161,462,99,378,117,378,177,430,238,378,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,244,444,240,434,235,427,230,422,224,420,218,419,213,419,208,420,203,422,191,426,180,432,172,436,158,440,151,441,145,441,130,439,118,433,108,423,100,409,94,391,108,391,112,399,116,406,122,410,128,413,134,414,138,414,146,412,150,410,155,408,177,398,185,394,193,392,200,391,206,391,221,393,234,399,244,409,252,424,259,444,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,
+99,378,117,378,161,462,161,462,117,378,177,430,161,462,177,430,193,462,193,462,177,430,238,378,193,462,238,378,255,378,149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,
+244,444,240,434,235,427,230,422,224,420,218,419,213,419,208,420,203,422,191,426,180,432,172,436,158,440,151,441,145,441,130,439,118,433,108,423,100,409,94,391,108,391,112,399,116,406,122,410,128,413,134,414,138,414,146,412,150,410,155,408,177,398,185,394,193,392,200,391,206,391,221,393,234,399,244,409,252,424,259,444,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,252,411,250,419,247,426,241,431,234,435,227,436,219,435,212,431,207,426,203,419,202,411,203,403,207,397,212,391,218,388,226,387,234,388,241,391,247,397,250,403,252,411,16383,16383,152,411,151,419,147,426,142,431,135,435,127,436,119,435,113,431,107,426,104,419,103,411,104,403,107,397,112,391,119,388,127,387,135,388,142,391,147,397,151,403,152,411,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,
+112,399,116,406,118,433,118,433,116,406,122,410,118,433,122,410,130,439,130,439,122,410,128,413,130,439,128,413,134,414,134,414,138,414,145,441,145,441,138,414,142,413,145,441,142,413,146,412,108,391,112,399,118,433,108,391,118,433,108,423,108,391,108,423,100,409,108,391,100,409,94,391,145,441,146,412,151,441,151,441,146,412,150,410,151,441,150,410,155,408,155,408,166,403,158,440,158,440,166,403,165,438,145,441,130,439,134,414,158,440,151,441,155,408,165,438,166,403,172,436,172,436,166,403,177,398,172,436,177,398,180,432,180,432,177,398,185,394,180,432,185,394,191,426,191,426,185,394,193,392,191,426,193,392,197,424,197,424,193,392,200,391,197,424,200,391,203,422,203,422,200,391,206,391,203,422,206,391,208,420,208,420,206,391,221,393,208,420,221,393,213,419,213,419,221,393,218,419,224,420,218,419,221,393,224,420,221,393,234,399,244,444,240,434,244,409,244,444,244,409,252,424,244,444,252,424,259,444,235,427,230,422,234,399,235,427,234,399,244,409,235,427,244,409,240,434,149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,224,420,234,399,230,422,
+252,411,250,419,247,426,241,431,234,435,227,436,219,435,212,431,207,426,203,419,202,411,203,403,207,397,212,391,218,388,226,387,234,388,241,391,247,397,250,403,252,411,16383,16383,152,411,151,419,147,426,142,431,135,435,127,436,119,435,113,431,107,426,104,419,103,411,104,403,107,397,112,391,119,388,127,387,135,388,142,391,147,397,151,403,152,411,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,299,11,184,126,299,242,276,265,160,150,45,265,22,242,137,126,22,11,45,-11,160,103,276,-11,329,367,305,367,268,314,250,323,233,330,217,335,200,337,181,338,127,330,81,307,47,270,25,222,17,165,18,147,20,129,24,111,30,94,36,79,48,59,55,50,75,30,28,-39,52,-39,92,18,110,8,127,1,143,-3,161,-5,180,-6,234,1,279,24,314,61,336,109,344,166,343,184,340,203,336,220,331,237,325,252,319,263,313,272,305,281,296,291,285,302,16383,16383,97,61,88,80,82,99,77,119,75,141,74,165,79,218,93,261,115,293,144,313,180,320,196,319,211,315,225,309,238,300,251,287,16383,16383,263,270,272,251,279,232,284,212,286,190,287,165,282,113,268,70,246,38,217,18,180,11,164,12,149,16,135,22,122,32,109,44,227,378,154,453,149,457,145,460,141,462,137,463,132,464,126,463,121,461,118,458,115,454,114,448,115,443,117,439,120,434,124,430,129,426,
+103,411,104,403,104,419,104,419,104,403,107,397,104,419,107,397,107,426,107,426,107,397,112,391,107,426,112,391,113,431,113,431,112,391,119,388,113,431,119,388,119,435,119,435,119,388,127,387,119,435,127,387,127,436,127,436,127,387,135,388,127,436,135,388,135,435,135,435,135,388,142,391,135,435,142,391,142,431,142,431,142,391,147,397,142,431,147,397,147,426,147,426,147,397,151,403,147,426,151,403,151,419,151,419,151,403,152,411,149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,202,411,203,403,203,419,203,419,203,403,207,397,203,419,207,397,207,426,207,426,207,397,212,391,207,426,212,391,212,431,212,431,212,391,218,388,212,431,218,388,219,435,219,435,218,388,226,387,219,435,226,387,227,436,227,436,226,387,234,388,227,436,234,388,234,435,234,435,234,388,241,391,234,435,241,391,241,431,241,431,241,391,247,397,241,431,247,397,247,426,247,426,247,397,250,403,247,426,250,403,250,419,250,419,250,403,252,411,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,
+299,11,184,126,299,242,276,265,160,150,45,265,22,242,137,126,22,11,45,-11,160,103,276,-11,329,367,305,367,268,314,250,323,233,330,217,335,200,337,181,338,127,330,81,307,47,270,25,222,
+184,126,299,242,276,265,184,126,276,265,160,150,184,126,160,150,276,-11,184,126,276,-11,299,11,22,11,45,-11,137,126,137,126,45,-11,160,103,137,126,160,103,160,150,160,150,160,103,276,-11,45,265,22,242,137,126,45,265,137,126,160,150,
+329,367,305,367,268,314,250,323,233,330,217,335,200,337,181,338,127,330,81,307,47,270,25,222,17,165,18,147,20,129,24,111,30,94,36,79,48,59,55,50,75,30,28,-39,52,-39,92,18,110,8,127,1,143,-3,161,-5,180,-6,234,1,279,24,314,61,336,109,344,166,343,184,340,203,336,220,331,237,325,252,319,263,313,272,305,281,296,291,285,302,16383,16383,97,61,88,80,82,99,77,119,75,141,74,165,79,218,93,261,115,293,144,313,180,320,196,319,211,315,225,309,238,300,251,287,16383,16383,263,270,272,251,279,232,284,212,286,190,287,165,282,113,268,70,246,38,217,18,180,11,164,12,149,16,135,22,122,32,109,44,227,378,154,453,149,457,145,460,141,462,137,463,132,464,126,463,121,461,118,458,115,454,114,448,115,443,117,439,120,434,124,430,129,426,206,378,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,
+48,59,55,50,81,307,81,307,55,50,64,41,81,307,64,41,74,165,74,165,75,30,75,141,75,141,75,30,77,119,282,113,268,70,279,24,279,24,268,70,246,38,279,24,246,38,234,1,234,1,246,38,217,18,234,1,217,18,180,11,180,11,164,12,180,-6,180,-6,164,12,161,-5,88,80,92,18,97,61,97,61,92,18,110,8,97,61,110,8,109,44,109,44,110,8,122,32,122,32,110,8,127,1,122,32,127,1,135,22,135,22,127,1,143,-3,135,22,143,-3,149,16,149,16,143,-3,161,-5,149,16,161,-5,164,12,92,18,88,80,82,99,92,18,82,99,77,119,92,18,77,119,75,30,92,18,75,30,52,-39,75,30,28,-39,52,-39,109,44,263,270,251,287,251,287,268,314,250,323,251,287,250,323,238,300,238,300,250,323,233,330,238,300,233,330,225,309,225,309,233,330,217,335,225,309,217,335,211,315,211,315,217,335,200,337,211,315,200,337,196,319,196,319,200,337,181,338,196,319,181,338,180,320,343,184,340,203,344,166,344,166,340,203,336,220,344,166,336,220,336,109,336,109,336,220,331,237,336,109,331,237,325,252,319,263,313,272,314,61,319,263,314,61,336,109,319,263,336,109,325,252,279,24,314,61,282,113,282,113,314,61,287,165,296,291,287,165,314,61,296,291,314,61,305,281,305,281,314,61,313,272,180,11,180,-6,234,1,263,270,272,251,268,314,268,314,272,251,285,302,268,314,285,302,305,367,305,367,285,302,329,367,285,302,272,251,279,232,285,302,279,232,284,212,285,302,284,212,286,190,285,302,286,190,296,291,251,287,97,61,109,44,93,261,115,293,127,330,127,330,115,293,144,313,127,330,144,313,181,338,181,338,144,313,180,320,81,307,74,165,79,218,81,307,79,218,93,261,81,307,93,261,127,330,47,270,25,222,30,94,47,270,30,94,36,79,47,270,36,79,42,69,47,270,42,69,48,59,47,270,48,59,81,307,25,222,17,165,18,147,25,222,18,147,20,129,25,222,20,129,24,111,25,222,24,111,30,94,296,291,286,190,287,165,268,314,251,287,263,270,75,30,74,165,64,41,
+227,378,154,453,149,457,145,460,141,462,137,463,132,464,126,463,121,461,118,458,115,454,114,448,115,443,117,439,120,434,124,430,129,426,206,378,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,132,378,152,378,229,427,234,431,238,435,241,439,243,443,244,448,243,454,241,458,237,461,233,463,227,464,222,463,218,462,214,460,210,457,205,453,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,
+206,378,227,378,154,453,206,378,154,453,149,457,206,378,149,457,145,460,206,378,145,460,141,462,206,378,141,462,137,463,206,378,137,463,132,464,206,378,132,464,129,426,114,448,115,443,115,454,115,454,115,443,117,439,115,454,117,439,118,458,118,458,117,439,120,434,118,458,120,434,121,461,121,461,120,434,124,430,121,461,124,430,126,463,126,463,124,430,129,426,126,463,129,426,132,464,105,79,106,8,109,63,109,63,106,8,121,1,109,63,121,1,115,50,115,50,121,1,125,37,135,30,125,37,138,-3,135,30,138,-3,146,24,146,24,138,-3,157,-5,146,24,157,-5,158,19,158,19,157,-5,177,-6,158,19,177,-6,173,16,173,16,177,-6,189,15,208,16,189,15,204,-5,208,16,204,-5,227,0,103,118,103,275,93,16,103,118,93,16,104,97,104,97,93,16,106,8,104,97,106,8,105,79,125,37,121,1,138,-3,283,103,282,85,290,45,290,45,282,85,279,70,290,45,279,70,278,30,278,30,279,70,273,57,278,30,273,57,265,45,265,45,254,34,264,17,264,17,254,34,247,6,241,26,225,20,227,0,241,26,227,0,247,6,241,26,247,6,254,34,353,331,237,331,257,319,353,331,257,319,270,312,353,331,270,312,279,301,353,331,279,301,318,311,353,331,318,311,331,318,353,331,331,318,353,321,305,258,306,282,297,62,305,258,297,62,302,81,305,258,302,81,305,104,305,258,305,104,305,131,290,45,297,62,306,282,290,45,306,282,283,257,290,45,283,257,283,125,290,45,283,125,283,103,310,300,318,311,282,283,310,300,282,283,283,257,310,300,283,257,306,282,265,45,264,17,278,30,189,15,177,-6,204,-5,128,319,148,321,148,331,128,319,148,331,115,314,115,314,148,331,51,297,115,314,51,297,52,280,53,95,52,280,52,124,58,69,66,48,104,293,104,293,66,48,78,30,104,293,78,30,103,275,103,275,78,30,93,16,104,293,108,306,52,280,104,293,52,280,53,95,104,293,53,95,58,69,148,331,7,331,27,319,148,331,27,319,40,315,148,331,40,315,47,308,148,331,47,308,51,297,27,319,7,331,7,321,115,314,52,280,108,306,257,319,237,331,237,321,318,311,279,301,282,283,208,16,227,0,225,20,
+132,378,152,378,229,427,234,431,238,435,241,439,243,443,244,448,243,454,241,458,237,461,233,463,227,464,222,463,218,462,214,460,210,457,205,453,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,256,378,193,462,162,462,100,378,117,378,177,430,238,378,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,252,411,250,419,247,426,241,431,234,435,227,436,219,435,212,431,207,426,203,419,202,411,
+105,79,106,8,109,63,109,63,106,8,121,1,109,63,121,1,115,50,115,50,121,1,125,37,135,30,125,37,138,-3,135,30,138,-3,146,24,146,24,138,-3,157,-5,146,24,157,-5,158,19,158,19,157,-5,177,-6,158,19,177,-6,173,16,173,16,177,-6,189,15,208,16,189,15,204,-5,208,16,204,-5,227,0,103,118,103,275,93,16,103,118,93,16,104,97,104,97,93,16,106,8,104,97,106,8,105,79,125,37,121,1,138,-3,227,464,229,427,233,463,233,463,229,427,234,431,233,463,234,431,237,461,237,461,234,431,238,435,237,461,238,435,241,458,241,458,238,435,241,439,241,458,241,439,243,454,243,454,241,439,243,443,243,454,243,443,244,448,229,427,227,464,222,463,229,427,222,463,218,462,229,427,218,462,214,460,229,427,214,460,210,457,229,427,210,457,205,453,229,427,205,453,152,378,283,103,282,85,290,45,290,45,282,85,279,70,290,45,279,70,278,30,278,30,279,70,273,57,278,30,273,57,265,45,265,45,254,34,264,17,264,17,254,34,247,6,241,26,225,20,227,0,241,26,227,0,247,6,241,26,247,6,254,34,353,331,237,331,257,319,353,331,257,319,270,312,353,331,270,312,279,301,353,331,279,301,318,311,353,331,318,311,331,318,353,331,331,318,353,321,305,258,306,282,297,62,305,258,297,62,302,81,305,258,302,81,305,104,305,258,305,104,305,131,290,45,297,62,306,282,290,45,306,282,283,257,290,45,283,257,283,125,290,45,283,125,283,103,310,300,318,311,282,283,310,300,282,283,283,257,310,300,283,257,306,282,265,45,264,17,278,30,189,15,177,-6,204,-5,128,319,148,321,148,331,128,319,148,331,115,314,115,314,148,331,51,297,115,314,51,297,52,280,53,95,52,280,52,124,58,69,66,48,104,293,104,293,66,48,78,30,104,293,78,30,103,275,103,275,78,30,93,16,104,293,108,306,52,280,104,293,52,280,53,95,104,293,53,95,58,69,148,331,7,331,27,319,148,331,27,319,40,315,148,331,40,315,47,308,148,331,47,308,51,297,27,319,7,331,7,321,115,314,52,280,108,306,257,319,237,331,237,321,318,311,279,301,282,283,208,16,227,0,225,20,152,378,205,453,132,378,
+256,378,193,462,162,462,100,378,117,378,177,430,238,378,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,252,411,250,419,247,426,241,431,234,435,227,436,219,435,212,431,207,426,203,419,202,411,203,403,207,397,212,391,218,388,226,387,234,388,241,391,247,397,250,403,252,411,16383,16383,152,411,151,419,147,426,142,431,135,435,127,436,119,435,113,431,107,426,104,419,103,411,104,403,107,397,112,391,119,388,127,387,135,388,142,391,147,397,151,403,152,411,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,
+100,378,117,378,162,462,162,462,117,378,177,430,162,462,177,430,193,462,193,462,177,430,238,378,193,462,238,378,256,378,105,79,106,8,109,63,109,63,106,8,121,1,109,63,121,1,115,50,115,50,121,1,125,37,135,30,125,37,138,-3,135,30,138,-3,146,24,146,24,138,-3,157,-5,146,24,157,-5,158,19,158,19,157,-5,177,-6,158,19,177,-6,173,16,173,16,177,-6,189,15,208,16,189,15,204,-5,208,16,204,-5,227,0,103,118,103,275,93,16,103,118,93,16,104,97,104,97,93,16,106,8,104,97,106,8,105,79,125,37,121,1,138,-3,283,103,282,85,290,45,290,45,282,85,279,70,290,45,279,70,278,30,278,30,279,70,273,57,278,30,273,57,265,45,265,45,254,34,264,17,264,17,254,34,247,6,241,26,225,20,227,0,241,26,227,0,247,6,241,26,247,6,254,34,353,331,237,331,257,319,353,331,257,319,270,312,353,331,270,312,279,301,353,331,279,301,318,311,353,331,318,311,331,318,353,331,331,318,353,321,305,258,306,282,297,62,305,258,297,62,302,81,305,258,302,81,305,104,305,258,305,104,305,131,290,45,297,62,306,282,290,45,306,282,283,257,290,45,283,257,283,125,290,45,283,125,283,103,310,300,318,311,282,283,310,300,282,283,283,257,310,300,283,257,306,282,265,45,264,17,278,30,189,15,177,-6,204,-5,128,319,148,321,148,331,128,319,148,331,115,314,115,314,148,331,51,297,115,314,51,297,52,280,53,95,52,280,52,124,58,69,66,48,104,293,104,293,66,48,78,30,104,293,78,30,103,275,103,275,78,30,93,16,104,293,108,306,52,280,104,293,52,280,53,95,104,293,53,95,58,69,148,331,7,331,27,319,148,331,27,319,40,315,148,331,40,315,47,308,148,331,47,308,51,297,27,319,7,331,7,321,115,314,52,280,108,306,257,319,237,331,237,321,318,311,279,301,282,283,208,16,227,0,225,20,
+252,411,250,419,247,426,241,431,234,435,227,436,219,435,212,431,207,426,203,419,202,411,203,403,207,397,212,391,218,388,226,387,234,388,241,391,247,397,250,403,252,411,16383,16383,152,411,151,419,147,426,142,431,135,435,127,436,119,435,113,431,107,426,104,419,103,411,104,403,107,397,112,391,119,388,127,387,135,388,142,391,147,397,151,403,152,411,16383,16383,353,331,237,331,237,321,257,319,270,312,279,301,282,283,283,257,283,103,282,85,279,70,273,57,265,45,254,34,241,26,225,20,208,16,189,15,173,16,158,19,146,24,135,30,125,37,115,50,109,63,105,79,104,97,103,118,103,275,104,293,108,306,115,314,128,319,148,321,148,331,7,331,7,321,27,319,40,315,47,308,51,297,52,280,52,124,53,95,58,69,66,48,78,30,93,16,106,8,121,1,138,-3,157,-5,177,-6,204,-5,227,0,247,6,264,17,278,30,290,45,297,62,302,81,305,104,305,258,306,282,310,300,318,311,331,318,353,321,133,378,153,378,230,427,240,435,243,439,244,443,245,448,244,454,242,458,238,461,234,463,228,464,223,463,219,462,216,460,211,457,206,453,16383,16383,352,331,243,331,243,321,256,321,266,319,272,316,275,312,276,306,276,302,274,294,272,290,270,285,197,174,124,285,121,289,118,294,116,299,115,304,115,308,116,312,119,316,123,318,130,320,138,321,151,321,151,331,11,331,11,321,24,319,37,313,50,299,68,277,92,243,157,147,157,61,156,39,152,25,144,16,129,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,151,282,266,297,288,310,303,322,313,336,319,352,321,101,266,101,268,100,269,100,271,101,292,105,306,113,314,127,319,147,321,147,331,8,331,8,321,27,319,39,314,46,307,49,294,50,276,50,60,49,39,46,25,39,17,27,12,8,9,8,0,148,0,148,9,128,11,114,16,106,23,102,36,101,55,101,80,109,80,115,79,136,79,158,80,177,82,194,85,210,90,
+202,411,203,403,203,419,203,419,203,403,207,397,203,419,207,397,207,426,207,426,207,397,212,391,207,426,212,391,212,431,212,431,212,391,218,388,212,431,218,388,219,435,219,435,218,388,226,387,219,435,226,387,227,436,227,436,226,387,234,388,227,436,234,388,234,435,234,435,234,388,241,391,234,435,241,391,241,431,241,431,241,391,247,397,241,431,247,397,247,426,247,426,247,397,250,403,247,426,250,403,250,419,250,419,250,403,252,411,103,411,104,403,104,419,104,419,104,403,107,397,104,419,107,397,107,426,107,426,107,397,112,391,107,426,112,391,113,431,113,431,112,391,119,388,113,431,119,388,119,435,119,435,119,388,127,387,119,435,127,387,127,436,127,436,127,387,135,388,127,436,135,388,135,435,135,435,135,388,142,391,135,435,142,391,142,431,142,431,142,391,147,397,142,431,147,397,147,426,147,426,147,397,151,403,147,426,151,403,151,419,151,419,151,403,152,411,105,79,106,8,109,63,109,63,106,8,121,1,109,63,121,1,115,50,115,50,121,1,125,37,135,30,125,37,138,-3,135,30,138,-3,146,24,146,24,138,-3,157,-5,146,24,157,-5,158,19,158,19,157,-5,177,-6,158,19,177,-6,173,16,173,16,177,-6,189,15,208,16,189,15,204,-5,208,16,204,-5,227,0,103,118,103,275,93,16,103,118,93,16,104,97,104,97,93,16,106,8,104,97,106,8,105,79,125,37,121,1,138,-3,283,103,282,85,290,45,290,45,282,85,279,70,290,45,279,70,278,30,278,30,279,70,273,57,278,30,273,57,265,45,265,45,254,34,264,17,264,17,254,34,247,6,241,26,225,20,227,0,241,26,227,0,247,6,241,26,247,6,254,34,353,331,237,331,257,319,353,331,257,319,270,312,353,331,270,312,279,301,353,331,279,301,318,311,353,331,318,311,331,318,353,331,331,318,353,321,305,258,306,282,297,62,305,258,297,62,302,81,305,258,302,81,305,104,305,258,305,104,305,131,290,45,297,62,306,282,290,45,306,282,283,257,290,45,283,257,283,125,290,45,283,125,283,103,310,300,318,311,282,283,310,300,282,283,283,257,310,300,283,257,306,282,265,45,264,17,278,30,189,15,177,-6,204,-5,128,319,148,321,148,331,128,319,148,331,115,314,115,314,148,331,51,297,115,314,51,297,52,280,53,95,52,280,52,124,58,69,66,48,104,293,104,293,66,48,78,30,104,293,78,30,103,275,103,275,78,30,93,16,104,293,108,306,52,280,104,293,52,280,53,95,104,293,53,95,58,69,148,331,7,331,27,319,148,331,27,319,40,315,148,331,40,315,47,308,148,331,47,308,51,297,27,319,7,331,7,321,115,314,52,280,108,306,257,319,237,331,237,321,318,311,279,301,282,283,208,16,227,0,225,20,
+133,378,153,378,230,427,240,435,243,439,244,443,245,448,244,454,242,458,238,461,234,463,228,464,223,463,219,462,216,460,211,457,206,453,16383,16383,352,331,243,331,243,321,256,321,266,319,272,316,275,312,276,306,276,302,274,294,272,290,270,285,197,174,124,285,121,289,118,294,116,299,115,304,115,308,116,312,119,316,123,318,130,320,138,321,151,321,151,331,11,331,11,321,24,319,37,313,50,299,68,277,92,243,157,147,157,61,156,39,152,25,144,16,129,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,151,282,266,297,288,310,303,322,313,336,319,352,321,101,266,101,268,100,269,100,271,101,292,105,306,113,314,127,319,147,321,147,331,8,331,8,321,27,319,39,314,46,307,49,294,50,276,50,60,49,39,46,25,39,17,27,12,8,9,8,0,148,0,148,9,128,11,114,16,106,23,102,36,101,55,101,80,109,80,115,79,136,79,158,80,177,82,194,85,210,90,223,96,239,107,253,121,263,138,269,156,271,175,265,206,248,231,221,250,185,262,141,266,16383,16383,101,230,101,237,103,242,106,245,110,247,117,247,154,244,182,236,201,221,213,200,217,172,213,146,202,126,185,111,161,102,129,99,113,99,107,100,101,100,36,42,36,28,33,19,
+121,289,118,294,157,147,157,147,118,294,116,299,157,147,116,299,92,243,92,243,116,299,115,304,92,243,115,304,115,308,115,308,116,312,92,243,151,331,11,331,24,319,151,331,24,319,37,313,151,331,37,313,50,299,151,331,50,299,123,318,151,331,123,318,130,320,151,331,130,320,138,321,151,331,138,321,151,321,123,318,50,299,119,316,119,316,50,299,68,277,119,316,68,277,116,312,116,312,68,277,92,243,209,55,209,151,197,174,209,55,197,174,210,36,210,36,197,174,157,147,210,36,157,147,215,23,215,23,157,147,157,61,215,23,157,61,224,15,224,15,157,61,156,39,224,15,156,39,260,0,260,0,156,39,152,25,260,0,152,25,144,16,275,298,274,294,282,266,282,266,274,294,272,290,282,266,272,290,270,285,270,285,197,174,209,151,352,331,243,331,256,321,352,331,256,321,266,319,352,331,266,319,272,316,352,331,272,316,275,312,352,331,275,312,276,306,352,331,276,306,322,313,352,331,322,313,336,319,352,331,336,319,352,321,276,306,282,266,297,288,276,306,297,288,310,303,276,306,310,303,322,313,282,266,276,306,276,302,282,266,276,302,275,298,270,285,209,151,282,266,228,464,230,427,234,463,234,463,230,427,235,431,234,463,235,431,238,461,238,461,235,431,240,435,238,461,240,435,242,458,242,458,240,435,243,439,242,458,243,439,244,454,244,454,243,439,244,443,244,454,244,443,245,448,230,427,228,464,223,463,230,427,223,463,219,462,230,427,219,462,216,460,230,427,216,460,211,457,230,427,211,457,206,453,230,427,206,453,153,378,239,11,224,15,260,0,239,11,260,0,260,9,129,12,107,9,260,0,129,12,260,0,144,16,124,285,121,289,157,147,124,285,157,147,197,174,260,0,107,9,107,0,153,378,206,453,133,378,256,321,243,331,243,321,24,319,11,331,11,321,
+101,266,101,268,100,269,100,271,101,292,105,306,113,314,127,319,147,321,147,331,8,331,8,321,27,319,39,314,46,307,49,294,50,276,50,60,49,39,46,25,39,17,27,12,8,9,8,0,148,0,148,9,128,11,114,16,106,23,102,36,101,55,101,80,109,80,115,79,136,79,158,80,177,82,194,85,210,90,223,96,239,107,253,121,263,138,269,156,271,175,265,206,248,231,221,250,185,262,141,266,16383,16383,101,230,101,237,103,242,106,245,110,247,117,247,154,244,182,236,201,221,213,200,217,172,213,146,202,126,185,111,161,102,129,99,113,99,107,100,101,100,36,42,36,28,33,19,28,13,19,9,6,7,6,0,79,0,79,275,81,293,86,308,95,319,107,326,122,328,137,325,150,316,159,302,165,282,167,258,165,237,159,220,150,207,137,199,119,195,114,194,110,193,107,191,105,189,105,184,107,182,110,180,115,179,121,179,145,173,163,161,176,140,184,111,187,75,186,61,185,48,182,36,179,26,175,19,172,15,164,11,160,10,155,10,150,11,146,12,143,15,142,19,141,25,140,36,138,42,135,48,130,52,125,55,118,56,111,55,105,51,100,46,97,40,96,32,98,20,105,10,115,2,129,-2,145,-3,173,0,198,14,
+50,276,102,36,50,276,50,276,102,36,101,55,50,276,101,55,100,271,100,271,101,292,50,276,50,276,101,292,105,306,50,276,105,306,113,314,147,331,8,331,27,319,147,331,27,319,39,314,147,331,39,314,46,307,147,331,46,307,49,294,147,331,49,294,113,314,147,331,113,314,127,319,147,331,127,319,147,321,50,276,113,314,49,294,101,237,103,242,101,266,101,266,103,242,106,245,101,266,106,245,141,266,141,266,106,245,110,247,141,266,110,247,117,247,117,247,154,244,141,266,141,266,154,244,185,262,201,221,213,200,221,250,221,250,213,200,217,172,223,96,217,172,213,146,185,262,154,244,182,236,185,262,182,236,201,221,185,262,201,221,221,250,265,206,248,231,253,121,265,206,253,121,263,138,265,206,263,138,269,156,265,206,269,156,271,175,248,231,221,250,223,96,248,231,223,96,239,107,248,231,239,107,253,121,136,79,158,80,161,102,161,102,158,80,177,82,161,102,177,82,185,111,185,111,177,82,194,85,185,111,194,85,202,126,202,126,194,85,210,90,202,126,210,90,213,146,213,146,210,90,223,96,161,102,129,99,136,79,136,79,129,99,128,79,128,79,129,99,124,99,128,79,124,99,122,79,122,79,124,99,118,99,122,79,118,99,115,79,115,79,118,99,113,99,115,79,113,99,109,80,109,80,113,99,107,100,109,80,107,100,101,100,101,266,101,100,101,230,101,266,101,230,101,237,101,267,101,268,101,55,101,267,101,55,101,100,101,267,101,100,101,266,101,100,101,80,109,80,148,0,148,9,128,11,148,0,128,11,114,16,148,0,114,16,49,39,148,0,49,39,46,25,148,0,46,25,39,17,148,0,39,17,27,12,148,0,27,12,8,9,148,0,8,9,8,0,101,55,101,268,100,269,101,55,100,269,100,270,101,55,100,270,100,271,50,60,49,39,114,16,50,60,114,16,106,23,50,60,106,23,102,36,50,60,102,36,50,276,217,172,223,96,221,250,27,319,8,331,8,321,
+36,42,36,28,33,19,28,13,19,9,6,7,6,0,79,0,79,275,81,293,86,308,95,319,107,326,122,328,137,325,150,316,159,302,165,282,167,258,165,237,159,220,150,207,137,199,119,195,114,194,110,193,107,191,105,189,105,184,107,182,110,180,115,179,121,179,145,173,163,161,176,140,184,111,187,75,186,61,185,48,182,36,179,26,175,19,172,15,164,11,160,10,155,10,150,11,146,12,143,15,142,19,141,25,140,36,138,42,135,48,130,52,125,55,118,56,111,55,105,51,100,46,97,40,96,32,98,20,105,10,115,2,129,-2,145,-3,173,0,198,14,217,35,229,62,234,93,233,110,229,125,223,139,214,152,203,163,193,170,183,176,172,181,158,185,142,189,169,203,189,216,202,230,208,246,210,266,207,291,195,312,178,328,154,338,126,342,93,337,68,324,50,301,40,269,36,227,158,253,86,328,81,332,77,335,73,337,65,339,59,338,53,336,50,333,47,329,46,323,47,318,49,314,52,309,56,305,61,301,138,253,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,
+33,19,28,13,79,0,79,0,28,13,19,9,79,0,19,9,6,7,158,185,142,189,145,173,145,173,142,189,137,199,145,173,137,199,121,179,121,179,137,199,119,195,121,179,119,195,115,179,115,179,119,195,114,194,115,179,114,194,110,180,110,180,114,194,110,193,110,180,110,193,107,182,107,182,110,193,107,191,107,182,107,191,105,184,105,184,107,191,105,189,105,184,105,189,105,187,81,293,86,308,93,337,93,337,86,308,95,319,93,337,95,319,126,342,126,342,95,319,107,326,126,342,107,326,122,328,122,328,137,325,126,342,126,342,137,325,154,338,165,237,169,203,167,258,167,258,169,203,178,328,178,328,169,203,189,216,178,328,189,216,195,312,195,312,189,216,202,230,195,312,202,230,207,291,207,291,202,230,208,246,207,291,208,246,210,266,137,325,150,316,154,338,154,338,150,316,159,302,154,338,159,302,178,328,178,328,159,302,165,282,178,328,165,282,167,258,150,207,142,189,169,203,150,207,169,203,159,220,159,220,169,203,165,237,229,62,234,93,233,110,229,62,233,110,229,125,229,62,229,125,223,139,229,62,223,139,217,35,223,139,214,152,217,35,217,35,214,152,203,163,217,35,203,163,198,14,198,14,203,163,193,170,198,14,193,170,187,75,187,75,193,170,184,111,198,14,187,75,186,61,198,14,186,61,185,48,198,14,185,48,182,36,198,14,182,36,179,26,198,14,179,26,175,19,198,14,175,19,173,0,141,25,140,36,138,42,141,25,138,42,145,-3,141,25,145,-3,142,19,68,324,50,301,79,0,68,324,79,0,79,275,68,324,79,275,81,293,68,324,81,293,93,337,79,0,50,301,40,269,79,0,40,269,36,227,79,0,36,227,36,42,79,0,36,42,36,28,79,0,36,28,33,19,168,13,164,11,173,0,173,0,164,11,160,10,173,0,160,10,155,10,155,10,150,11,173,0,173,0,150,11,146,12,173,0,146,12,145,-3,145,-3,146,12,143,15,145,-3,143,15,142,19,168,13,173,0,172,15,172,15,173,0,175,19,138,42,135,48,145,-3,145,-3,135,48,130,52,145,-3,130,52,129,-2,129,-2,130,52,125,55,129,-2,125,55,118,56,115,2,129,-2,118,56,115,2,118,56,111,55,115,2,111,55,105,51,115,2,105,51,105,10,100,46,97,40,98,20,100,46,98,20,105,10,100,46,105,10,105,51,158,185,163,161,172,181,172,181,163,161,176,140,172,181,176,140,183,176,183,176,176,140,184,111,183,176,184,111,193,170,158,185,145,173,163,161,98,20,97,40,96,32,79,0,6,7,6,0,142,189,150,207,137,199,
+158,253,86,328,81,332,77,335,73,337,65,339,59,338,53,336,50,333,47,329,46,323,47,318,49,314,52,309,56,305,61,301,138,253,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,60,253,79,253,156,302,162,306,166,310,169,314,171,318,171,329,168,333,165,336,160,338,154,339,146,337,142,335,138,332,133,328,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,190,253,
+138,253,158,253,86,328,138,253,86,328,81,332,138,253,81,332,77,335,138,253,77,335,73,337,138,253,73,337,69,338,138,253,69,338,65,339,138,253,65,339,61,301,46,323,47,318,47,329,47,329,47,318,49,314,47,329,49,314,50,333,50,333,49,314,52,309,50,333,52,309,53,336,53,336,52,309,56,305,53,336,56,305,59,338,59,338,56,305,61,301,59,338,61,301,65,339,37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,184,56,186,-3,185,44,29,167,29,183,28,175,
+60,253,79,253,156,302,162,306,166,310,169,314,171,318,171,329,168,333,165,336,160,338,154,339,146,337,142,335,138,332,133,328,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,190,253,128,337,97,337,35,253,52,253,113,305,174,253,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,180,319,175,309,170,302,165,297,160,295,153,294,149,294,144,295,138,297,
+37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,154,339,156,302,160,338,160,338,156,302,162,306,160,338,162,306,165,336,165,336,162,306,166,310,165,336,166,310,168,333,168,333,166,310,169,314,168,333,169,314,171,329,171,329,169,314,171,318,171,329,171,318,171,323,156,302,154,339,150,338,156,302,150,338,146,337,156,302,146,337,142,335,156,302,142,335,138,332,156,302,138,332,133,328,156,302,133,328,79,253,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,79,253,133,328,60,253,184,56,186,-3,185,44,29,167,29,183,28,175,
+190,253,128,337,97,337,35,253,52,253,113,305,174,253,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,180,319,175,309,170,302,165,297,160,295,153,294,149,294,144,295,138,297,133,299,127,301,115,307,108,311,94,315,87,316,80,316,66,314,54,308,43,298,35,284,30,266,44,266,48,274,52,281,57,285,63,288,70,289,73,289,81,287,86,285,90,283,102,278,112,273,121,269,128,267,135,266,142,266,157,268,169,274,180,284,188,299,195,319,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,
+35,253,52,253,97,337,97,337,52,253,113,305,97,337,113,305,128,337,128,337,113,305,174,253,128,337,174,253,190,253,37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,184,56,186,-3,185,44,29,167,29,183,28,175,
+180,319,175,309,170,302,165,297,160,295,153,294,149,294,144,295,138,297,133,299,127,301,115,307,108,311,94,315,87,316,80,316,66,314,54,308,43,298,35,284,30,266,44,266,48,274,52,281,57,285,63,288,70,289,73,289,81,287,86,285,90,283,102,278,112,273,121,269,128,267,135,266,142,266,157,268,169,274,180,284,188,299,195,319,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,186,286,185,294,182,301,176,306,169,310,161,311,154,310,147,306,142,301,138,294,137,286,138,278,142,272,147,266,153,263,161,262,169,263,176,266,182,272,185,278,186,286,16383,16383,87,286,86,294,82,301,77,306,70,310,62,311,54,310,48,306,42,301,39,294,37,286,39,278,42,272,47,266,54,263,61,262,69,263,76,266,82,272,86,278,87,286,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,
+48,274,52,281,54,308,54,308,52,281,57,285,54,308,57,285,66,314,66,314,57,285,63,288,66,314,63,288,70,289,70,289,73,289,80,316,80,316,73,289,77,288,80,316,77,288,81,287,44,266,48,274,54,308,44,266,54,308,43,298,44,266,43,298,35,284,44,266,35,284,30,266,37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,80,316,81,287,87,316,87,316,81,287,86,285,87,316,86,285,90,283,90,283,102,278,94,315,94,315,102,278,101,313,80,316,66,314,70,289,94,315,87,316,90,283,101,313,102,278,108,311,108,311,102,278,112,273,108,311,112,273,115,307,115,307,112,273,121,269,115,307,121,269,127,301,127,301,121,269,128,267,127,301,128,267,133,299,133,299,128,267,135,266,133,299,135,266,138,297,138,297,135,266,142,266,138,297,142,266,144,295,144,295,142,266,157,268,144,295,157,268,149,294,149,294,157,268,153,294,160,295,153,294,157,268,160,295,157,268,169,274,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,180,319,175,309,180,284,180,319,180,284,188,299,180,319,188,299,195,319,170,302,165,297,169,274,170,302,169,274,180,284,170,302,180,284,175,309,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,29,167,29,183,28,175,160,295,169,274,165,297,184,56,186,-3,185,44,
+186,286,185,294,182,301,176,306,169,310,161,311,154,310,147,306,142,301,138,294,137,286,138,278,142,272,147,266,153,263,161,262,169,263,176,266,182,272,185,278,186,286,16383,16383,87,286,86,294,82,301,77,306,70,310,62,311,54,310,48,306,42,301,39,294,37,286,39,278,42,272,47,266,54,263,61,262,69,263,76,266,82,272,86,278,87,286,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,162,306,159,322,152,336,142,347,128,354,113,357,97,354,83,347,72,336,65,323,63,307,65,291,72,277,83,267,96,260,112,257,128,260,141,267,152,277,159,291,162,306,16383,16383,145,307,143,296,139,287,132,280,122,276,112,274,101,276,92,280,85,287,81,296,79,307,81,317,86,326,93,333,102,338,112,339,122,338,131,333,139,326,143,317,145,307,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,
+161,311,161,262,169,310,169,310,161,262,169,263,169,310,169,263,176,306,176,306,169,263,176,266,176,306,176,266,182,301,182,301,176,266,182,272,182,301,182,272,185,294,185,294,182,272,185,278,185,294,185,278,186,286,137,286,138,278,138,294,138,294,138,278,142,272,138,294,142,272,142,301,142,301,142,272,147,266,142,301,147,266,147,306,147,306,147,266,153,263,147,306,153,263,154,310,154,310,153,263,161,262,154,310,161,262,161,311,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,37,286,39,278,39,294,39,294,39,278,42,272,39,294,42,272,42,301,42,301,42,272,47,266,42,301,47,266,48,306,48,306,47,266,54,263,48,306,54,263,54,310,54,310,54,263,61,262,54,310,61,262,62,311,62,311,61,262,69,263,62,311,69,263,70,310,70,310,69,263,76,266,70,310,76,266,77,306,77,306,76,266,82,272,77,306,82,272,82,301,82,301,82,272,86,278,82,301,86,278,86,294,86,294,86,278,87,286,37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,29,167,29,183,28,175,184,56,186,-3,185,44,
+162,306,159,322,152,336,142,347,128,354,113,357,97,354,83,347,72,336,65,323,63,307,65,291,72,277,83,267,96,260,112,257,128,260,141,267,152,277,159,291,162,306,16383,16383,145,307,143,296,139,287,132,280,122,276,112,274,101,276,92,280,85,287,81,296,79,307,81,317,86,326,93,333,102,338,112,339,122,338,131,333,139,326,143,317,145,307,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,98,0,113,6,128,16,143,31,144,31,147,17,151,7,157,0,166,-3,176,-4,186,-3,195,-1,204,2,212,9,221,19,16383,16383,143,64,143,56,142,49,138,43,133,38,126,32,121,29,109,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,79,68,87,73,94,79,101,88,108,99,114,111,121,126,127,143,134,310,77,296,58,283,44,269,35,254,30,238,28,226,30,215,33,205,38,197,45,190,54,185,65,181,78,179,93,178,112,177,138,308,138,302,173,292,199,277,216,255,227,228,230,215,229,203,227,192,222,181,216,169,206,157,216,147,222,136,227,123,229,109,230,84,227,62,220,45,208,34,193,30,176,31,168,34,161,38,156,44,153,52,152,59,153,66,156,70,161,73,167,74,175,74,185,73,188,73,196,74,203,79,208,86,213,96,216,107,217,119,215,127,210,133,202,136,189,137,172,137,141,73,123,48,112,32,99,24,84,20,68,19,50,22,32,30,17,42,6,58,0,77,-2,91,-1,105,1,119,7,134,17,153,31,164,18,175,8,188,1,202,-1,218,-2,230,-2,243,0,254,3,266,9,276,17,285,24,293,33,300,44,308,58,316,75,16383,16383,177,153,180,177,186,194,194,206,206,212,221,214,235,212,246,206,254,194,259,177,261,153,16383,16383,137,100,138,90,140,68,146,46,146,45,147,45,147,44,143,38,134,31,121,25,108,21,95,19,83,21,74,28,67,37,64,49,63,63,64,79,71,92,85,103,106,114,137,127,199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,
+143,296,139,287,141,267,141,267,139,287,132,280,141,267,132,280,128,260,128,260,132,280,122,276,128,260,122,276,112,257,112,257,122,276,112,274,63,307,65,291,65,323,65,323,65,291,72,277,65,323,72,277,72,336,72,336,72,277,83,267,72,336,83,267,79,307,79,307,83,347,72,336,37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,218,117,216,111,230,117,216,127,229,127,229,117,216,128,211,127,229,128,211,140,226,140,226,128,211,136,202,140,226,136,202,142,190,76,208,83,213,85,227,85,227,83,213,93,217,85,227,93,217,98,229,98,229,93,217,104,218,98,229,104,218,111,230,73,224,70,194,71,201,73,224,71,201,76,208,73,224,76,208,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,113,357,112,339,122,338,113,357,122,338,128,354,128,354,122,338,131,333,128,354,131,333,142,347,142,347,131,333,139,326,142,347,139,326,143,317,184,56,184,152,184,168,184,56,184,168,183,181,184,56,183,181,180,191,184,56,180,191,186,-3,190,28,195,-1,195,25,195,25,195,-1,200,23,204,24,200,23,204,2,204,24,204,2,212,9,187,35,185,44,186,-3,187,35,186,-3,195,-1,187,35,195,-1,190,28,147,17,151,7,152,222,152,222,151,7,157,0,152,222,157,0,162,215,162,215,157,0,166,-3,162,215,166,-3,170,208,170,208,166,-3,176,-4,170,208,176,-4,176,199,176,199,176,-4,186,-3,176,199,186,-3,180,191,152,222,140,226,142,190,152,222,142,190,143,173,152,222,143,173,143,134,152,222,143,134,144,31,152,222,144,31,147,17,143,31,144,31,143,134,143,146,143,134,143,173,216,29,212,27,212,9,216,29,212,9,221,19,216,29,221,19,221,33,208,25,204,24,212,9,208,25,212,9,212,27,200,23,195,-1,204,2,162,306,159,322,159,291,159,291,159,322,152,336,159,291,152,336,152,277,152,277,152,336,145,307,143,317,145,307,152,336,143,317,152,336,142,347,143,296,141,267,152,277,143,296,152,277,145,307,86,326,93,333,97,354,97,354,93,333,102,338,97,354,102,338,113,357,113,357,102,338,112,339,83,347,79,307,81,317,83,347,81,317,86,326,83,347,86,326,97,354,101,276,92,280,96,260,101,276,96,260,112,257,101,276,112,257,112,274,85,287,81,296,83,267,85,287,83,267,96,260,85,287,96,260,92,280,143,31,143,134,143,64,143,31,143,64,143,56,143,31,143,56,142,49,143,31,142,49,138,43,143,31,138,43,133,38,143,31,133,38,128,16,128,16,133,38,126,32,126,32,121,29,128,16,128,16,121,29,115,27,128,16,115,27,113,6,113,6,115,27,109,25,113,6,109,25,103,24,99,114,111,121,114,135,114,135,111,121,126,127,114,135,126,127,143,146,143,146,126,127,143,134,65,79,68,87,75,118,75,118,68,87,73,94,75,118,73,94,79,101,79,101,88,108,92,126,92,126,88,108,99,114,92,126,99,114,114,135,92,126,75,118,79,101,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,79,63,112,65,79,75,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,98,0,86,25,86,25,98,0,97,24,103,24,97,24,98,0,103,24,98,0,113,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,79,307,83,267,81,296,184,56,186,-3,185,44,29,167,29,183,28,175,
+310,77,296,58,283,44,269,35,254,30,238,28,226,30,215,33,205,38,197,45,190,54,185,65,181,78,179,93,178,112,177,138,308,138,302,173,292,199,277,216,255,227,228,230,215,229,203,227,192,222,181,216,169,206,157,216,147,222,136,227,123,229,109,230,84,227,62,220,45,208,34,193,30,176,31,168,34,161,38,156,44,153,52,152,59,153,66,156,70,161,73,167,74,175,74,185,73,188,73,196,74,203,79,208,86,213,96,216,107,217,119,215,127,210,133,202,136,189,137,172,137,141,73,123,48,112,32,99,24,84,20,68,19,50,22,32,30,17,42,6,58,0,77,-2,91,-1,105,1,119,7,134,17,153,31,164,18,175,8,188,1,202,-1,218,-2,230,-2,243,0,254,3,266,9,276,17,285,24,293,33,300,44,308,58,316,75,16383,16383,177,153,180,177,186,194,194,206,206,212,221,214,235,212,246,206,254,194,259,177,261,153,16383,16383,137,100,138,90,140,68,146,46,146,45,147,45,147,44,143,38,134,31,121,25,108,21,95,19,83,21,74,28,67,37,64,49,63,63,64,79,71,92,85,103,106,114,137,127,199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,195,166,198,172,199,179,195,195,184,209,167,220,146,227,122,230,108,229,94,226,80,220,67,213,55,204,40,189,28,172,19,152,14,130,12,106,16,72,27,43,45,20,68,4,96,-3,77,-49,80,-51,83,-50,85,-50,88,-49,94,-49,104,-50,112,-52,117,-55,120,-60,121,-67,120,-74,116,-81,111,-85,103,-88,94,-89,88,-89,82,-88,75,-87,69,-86,61,-83,54,-98,63,-102,79,-106,87,-106,96,-107,117,-105,135,-99,148,-91,156,-79,158,-64,157,-52,151,-43,142,-36,130,-32,116,-30,108,-30,105,-31,103,-31,113,-4,136,0,156,9,174,24,190,46,206,74,155,253,83,328,78,332,74,335,69,337,61,339,55,338,50,336,46,333,44,329,43,323,44,318,46,314,49,309,53,305,58,301,135,253,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,
+73,196,73,196,73,196,73,196,74,203,62,220,73,196,62,220,66,156,73,196,66,156,70,161,143,38,134,31,134,17,134,17,134,31,121,25,134,17,121,25,119,7,119,7,121,25,108,21,119,7,108,21,105,1,105,1,108,21,95,19,105,1,95,19,91,-1,91,-1,95,19,83,21,91,-1,83,21,77,-2,77,-2,83,21,74,28,77,-2,74,28,67,37,63,63,58,0,64,49,64,49,58,0,77,-2,64,49,77,-2,67,37,74,203,79,208,84,227,84,227,79,208,86,213,84,227,86,213,109,230,109,230,86,213,96,216,109,230,96,216,107,217,107,217,119,215,109,230,109,230,119,215,123,229,175,8,177,138,169,206,175,8,169,206,164,18,164,18,169,206,157,216,164,18,157,216,153,31,153,31,157,216,147,44,147,45,147,44,147,222,147,222,147,44,157,216,147,222,136,227,136,189,147,222,136,189,137,172,147,222,137,172,137,127,147,222,137,127,138,90,147,222,138,90,139,79,147,222,139,79,140,68,147,222,140,68,143,57,147,222,143,57,146,46,147,222,146,46,146,45,147,222,146,45,147,45,137,141,137,127,137,172,136,227,123,229,127,210,136,227,127,210,133,202,136,227,133,202,136,189,228,230,221,214,235,212,228,230,235,212,255,227,255,227,235,212,246,206,255,227,246,206,254,194,177,153,180,177,181,216,181,216,180,177,186,194,181,216,186,194,192,222,192,222,186,194,194,206,192,222,194,206,203,227,203,227,194,206,206,212,203,227,206,212,215,229,215,229,206,212,221,214,215,229,221,214,228,230,277,216,261,153,308,138,308,138,261,153,177,153,308,138,177,153,177,138,169,206,177,138,177,153,169,206,177,153,181,216,259,177,261,153,277,216,259,177,277,216,255,227,259,177,255,227,254,194,292,199,277,216,308,138,292,199,308,138,302,173,226,30,215,33,218,-2,218,-2,215,33,205,38,218,-2,205,38,202,-1,202,-1,205,38,197,45,202,-1,197,45,190,54,190,54,185,65,188,1,188,1,185,65,181,78,188,1,181,78,179,93,175,8,188,1,179,93,175,8,179,93,178,112,175,8,178,112,177,138,218,-2,230,-2,226,30,226,30,230,-2,238,28,254,30,238,28,243,0,254,30,243,0,254,3,190,54,188,1,202,-1,285,24,293,33,296,58,296,58,293,33,300,44,296,58,300,44,310,77,310,77,300,44,308,58,310,77,308,58,316,75,254,3,266,9,269,35,269,35,266,9,276,17,269,35,276,17,283,44,283,44,276,17,285,24,283,44,285,24,296,58,238,28,230,-2,243,0,143,38,134,17,153,31,143,38,153,31,147,44,64,79,71,92,73,123,73,123,71,92,85,103,73,123,85,103,137,141,137,141,85,103,106,114,137,141,106,114,137,127,42,6,58,0,48,112,48,112,58,0,63,63,48,112,63,63,64,79,20,68,22,32,24,84,24,84,22,32,30,17,24,84,30,17,32,99,32,99,30,17,42,6,32,99,42,6,48,112,38,156,44,153,45,208,45,208,44,153,52,152,45,208,52,152,62,220,62,220,52,152,59,153,62,220,59,153,66,156,34,193,30,176,31,168,34,193,31,168,34,161,34,193,34,161,38,156,34,193,38,156,45,208,74,185,73,188,73,167,74,185,73,167,74,175,74,185,74,175,74,180,73,167,73,188,73,192,73,167,73,192,73,196,73,167,73,196,70,161,62,220,74,203,84,227,22,32,20,68,19,50,48,112,64,79,73,123,138,90,137,127,137,100,254,30,254,3,269,35,123,229,119,215,127,210,
+199,78,185,60,172,46,159,38,144,33,128,31,103,36,81,49,65,69,54,96,51,128,54,157,63,181,78,200,96,211,119,215,128,215,136,212,141,208,145,201,148,191,151,180,154,172,159,166,163,161,169,158,175,157,183,158,189,161,195,166,198,172,199,179,195,195,184,209,167,220,146,227,122,230,108,229,94,226,80,220,67,213,55,204,40,189,28,172,19,152,14,130,12,106,16,72,27,43,45,20,68,4,96,-3,77,-49,80,-51,83,-50,85,-50,88,-49,94,-49,104,-50,112,-52,117,-55,120,-60,121,-67,120,-74,116,-81,111,-85,103,-88,94,-89,88,-89,82,-88,75,-87,69,-86,61,-83,54,-98,63,-102,79,-106,87,-106,96,-107,117,-105,135,-99,148,-91,156,-79,158,-64,157,-52,151,-43,142,-36,130,-32,116,-30,108,-30,105,-31,103,-31,113,-4,136,0,156,9,174,24,190,46,206,74,155,253,83,328,78,332,74,335,69,337,61,339,55,338,50,336,46,333,44,329,43,323,44,318,46,314,49,309,53,305,58,301,135,253,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,58,253,78,253,155,302,161,306,165,310,168,314,170,318,170,323,169,329,167,333,163,336,158,338,152,339,148,338,145,337,141,335,137,332,132,328,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,
+81,49,65,69,68,4,68,4,65,69,54,96,68,4,54,96,45,20,45,20,54,96,51,128,55,204,51,128,54,157,55,204,54,157,63,181,87,-106,96,-107,88,-89,88,-89,96,-107,94,-89,103,-88,94,-89,96,-107,103,-88,96,-107,117,-105,96,-3,94,-49,104,-50,96,-3,104,-50,103,-31,96,-3,103,-31,103,36,103,36,103,-31,113,-4,96,-3,77,-49,80,-51,96,-3,80,-51,83,-50,96,-3,83,-50,85,-50,96,-3,85,-50,88,-49,96,-3,88,-49,91,-49,96,-3,91,-49,94,-49,185,60,172,46,174,24,174,24,172,46,159,38,174,24,159,38,156,9,156,9,159,38,144,33,156,9,144,33,136,0,136,0,144,33,128,31,113,-4,136,0,128,31,113,-4,128,31,103,36,81,49,68,4,96,-3,81,49,96,-3,103,36,136,212,141,208,146,227,146,227,141,208,145,201,146,227,145,201,148,191,148,191,151,180,167,220,167,220,151,180,154,172,167,220,154,172,159,166,122,230,119,215,128,215,122,230,128,215,146,227,146,227,128,215,136,212,195,195,184,209,189,161,195,195,189,161,195,166,195,195,195,166,198,172,195,195,198,172,199,179,184,209,167,220,169,158,184,209,169,158,175,157,184,209,175,157,183,158,184,209,183,158,189,161,167,220,159,166,163,161,167,220,163,161,169,158,167,220,146,227,148,191,190,46,206,74,199,78,190,46,199,78,185,60,190,46,185,60,174,24,96,211,119,215,108,229,96,211,108,229,94,226,96,211,94,226,80,220,96,211,80,220,78,200,67,213,55,204,63,181,67,213,63,181,78,200,67,213,78,200,80,220,45,20,51,128,55,204,45,20,55,204,40,189,45,20,40,189,28,172,45,20,28,172,27,43,19,152,14,130,16,72,19,152,16,72,27,43,19,152,27,43,28,172,158,-64,157,-52,156,-79,156,-79,157,-52,151,-43,156,-79,151,-43,148,-91,148,-91,151,-43,142,-36,148,-91,142,-36,135,-99,135,-99,142,-36,130,-32,135,-99,130,-32,121,-67,121,-67,130,-32,120,-60,117,-55,120,-60,130,-32,117,-55,130,-32,116,-30,117,-55,116,-30,113,-30,117,-55,113,-30,112,-52,112,-52,113,-30,110,-30,112,-52,110,-30,108,-30,112,-52,108,-30,105,-31,112,-52,105,-31,104,-50,135,-99,121,-67,120,-74,135,-99,120,-74,117,-105,117,-105,120,-74,116,-81,117,-105,116,-81,111,-85,61,-83,63,-102,69,-86,69,-86,63,-102,71,-104,69,-86,71,-104,75,-87,75,-87,71,-104,79,-106,75,-87,79,-106,82,-88,82,-88,79,-106,87,-106,82,-88,87,-106,88,-89,63,-102,61,-83,54,-98,103,-88,117,-105,111,-85,103,-31,104,-50,105,-31,119,215,122,230,108,229,16,72,14,130,12,106,
+155,253,83,328,78,332,74,335,69,337,61,339,55,338,50,336,46,333,44,329,43,323,44,318,46,314,49,309,53,305,58,301,135,253,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,58,253,78,253,155,302,161,306,165,310,168,314,170,318,170,323,169,329,167,333,163,336,158,338,152,339,148,338,145,337,141,335,137,332,132,328,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,
+56,85,75,0,62,71,62,71,75,0,71,57,80,47,71,57,75,0,80,47,75,0,108,-4,52,100,50,118,49,15,52,100,49,15,75,0,52,100,75,0,56,85,12,108,17,70,17,148,17,148,17,70,29,39,17,148,29,39,31,182,31,182,29,39,49,15,31,182,49,15,49,138,49,138,49,15,50,118,135,253,155,253,83,328,135,253,83,328,78,332,135,253,78,332,74,335,135,253,74,335,69,337,135,253,69,337,65,338,135,253,65,338,61,339,135,253,61,339,58,301,43,323,44,318,44,329,44,329,44,318,46,314,44,329,46,314,46,333,46,333,46,314,49,309,46,333,49,309,50,336,50,336,49,309,53,305,50,336,53,305,55,338,55,338,53,305,58,301,55,338,58,301,61,339,133,228,116,230,120,210,120,210,116,230,103,212,87,210,103,212,116,230,87,210,116,230,81,224,190,62,176,48,181,26,181,26,176,48,162,37,181,26,162,37,160,9,160,9,162,37,146,31,160,9,146,31,136,-1,136,-1,146,31,127,30,203,138,201,153,198,166,203,138,198,166,195,177,203,138,195,177,190,186,203,138,190,186,185,195,203,138,185,195,175,207,203,138,175,207,163,217,203,138,163,217,151,155,203,138,151,155,50,155,203,138,50,155,49,138,141,192,147,176,149,224,149,224,147,176,151,155,149,224,151,155,163,217,198,49,212,79,204,82,198,49,204,82,190,62,198,49,190,62,181,26,114,31,101,34,108,-4,114,31,108,-4,136,-1,114,31,136,-1,127,30,90,39,80,47,108,-4,90,39,108,-4,101,34,133,228,120,210,133,203,133,228,133,203,141,192,133,228,141,192,149,224,50,155,55,175,52,207,52,207,55,175,63,191,52,207,63,191,81,224,81,224,63,191,74,203,81,224,74,203,87,210,52,207,31,182,49,138,52,207,49,138,50,155,
+58,253,78,253,155,302,161,306,165,310,168,314,170,318,170,323,169,329,167,333,163,336,158,338,152,339,148,338,145,337,141,335,137,332,132,328,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,190,253,127,337,97,337,35,253,51,253,112,305,173,253,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,186,286,185,294,181,301,176,306,169,310,161,311,153,310,147,306,141,301,138,294,137,286,
+203,138,201,153,198,166,203,138,198,166,195,177,203,138,195,177,190,186,203,138,190,186,185,195,203,138,185,195,175,207,203,138,175,207,163,217,203,138,163,217,151,155,203,138,151,155,50,155,203,138,50,155,49,138,141,192,147,176,149,224,149,224,147,176,151,155,149,224,151,155,163,217,152,339,155,302,158,338,158,338,155,302,161,306,158,338,161,306,163,336,163,336,161,306,165,310,163,336,165,310,167,333,167,333,165,310,168,314,167,333,168,314,169,329,169,329,168,314,170,318,169,329,170,318,170,323,155,302,152,339,148,338,155,302,148,338,145,337,155,302,145,337,141,335,155,302,141,335,137,332,155,302,137,332,132,328,155,302,132,328,78,253,52,100,50,118,49,15,49,15,50,118,49,138,49,15,49,138,31,182,49,15,31,182,29,39,29,39,31,182,17,148,29,39,17,148,17,70,17,70,17,148,12,108,133,228,116,230,120,210,120,210,116,230,103,212,87,210,103,212,116,230,87,210,116,230,81,224,190,62,176,48,181,26,181,26,176,48,162,37,181,26,162,37,160,9,160,9,162,37,146,31,160,9,146,31,136,-1,136,-1,146,31,127,30,198,49,212,79,204,82,198,49,204,82,190,62,198,49,190,62,181,26,114,31,101,34,108,-4,114,31,108,-4,136,-1,114,31,136,-1,127,30,101,34,90,39,108,-4,108,-4,90,39,80,47,108,-4,80,47,75,0,75,0,80,47,71,57,133,228,120,210,133,203,133,228,133,203,141,192,133,228,141,192,149,224,50,155,55,175,52,207,52,207,55,175,63,191,52,207,63,191,81,224,81,224,63,191,74,203,81,224,74,203,87,210,52,207,31,182,49,138,52,207,49,138,50,155,75,0,71,57,62,71,75,0,62,71,56,85,75,0,56,85,52,100,75,0,52,100,49,15,78,253,132,328,58,253,
+190,253,127,337,97,337,35,253,51,253,112,305,173,253,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,186,286,185,294,181,301,176,306,169,310,161,311,153,310,147,306,141,301,138,294,137,286,138,278,141,272,146,266,153,263,161,262,169,263,176,266,181,272,185,278,186,286,16383,16383,86,286,85,294,82,301,76,306,69,310,61,311,54,310,47,306,42,301,38,294,37,286,38,278,41,272,47,266,53,263,61,262,69,263,76,266,81,272,85,278,86,286,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,
+35,253,51,253,97,337,97,337,51,253,112,305,97,337,112,305,127,337,127,337,112,305,173,253,127,337,173,253,190,253,52,100,50,118,49,15,49,15,50,118,49,138,49,15,49,138,31,182,49,15,31,182,29,39,29,39,31,182,17,148,29,39,17,148,17,70,17,70,17,148,12,108,133,228,116,230,120,210,120,210,116,230,103,212,87,210,103,212,116,230,87,210,116,230,81,224,190,62,176,48,181,26,181,26,176,48,162,37,181,26,162,37,160,9,160,9,162,37,146,31,160,9,146,31,136,-1,136,-1,146,31,127,30,203,138,201,153,198,166,203,138,198,166,195,177,203,138,195,177,190,186,203,138,190,186,185,195,203,138,185,195,175,207,203,138,175,207,163,217,203,138,163,217,151,155,203,138,151,155,50,155,203,138,50,155,49,138,141,192,147,176,149,224,149,224,147,176,151,155,149,224,151,155,163,217,198,49,212,79,204,82,198,49,204,82,190,62,198,49,190,62,181,26,114,31,101,34,108,-4,114,31,108,-4,136,-1,114,31,136,-1,127,30,101,34,90,39,108,-4,108,-4,90,39,80,47,108,-4,80,47,75,0,75,0,80,47,71,57,133,228,120,210,133,203,133,228,133,203,141,192,133,228,141,192,149,224,50,155,55,175,52,207,52,207,55,175,63,191,52,207,63,191,81,224,81,224,63,191,74,203,81,224,74,203,87,210,52,207,31,182,49,138,52,207,49,138,50,155,75,0,71,57,62,71,75,0,62,71,56,85,75,0,56,85,52,100,75,0,52,100,49,15,
+186,286,185,294,181,301,176,306,169,310,161,311,153,310,147,306,141,301,138,294,137,286,138,278,141,272,146,266,153,263,161,262,169,263,176,266,181,272,185,278,186,286,16383,16383,86,286,85,294,82,301,76,306,69,310,61,311,54,310,47,306,42,301,38,294,37,286,38,278,41,272,47,266,53,263,61,262,69,263,76,266,81,272,85,278,86,286,16383,16383,204,82,190,62,176,48,162,37,146,31,127,30,114,31,101,34,90,39,80,47,71,57,62,71,56,85,52,100,50,118,49,138,203,138,201,153,198,166,195,177,185,195,175,207,163,217,149,224,133,228,116,230,81,224,52,207,31,182,17,148,12,108,17,70,29,39,49,15,75,0,108,-4,136,-1,160,9,181,26,198,49,212,79,16383,16383,50,155,55,175,63,191,74,203,87,210,103,212,120,210,133,203,141,192,147,176,151,155,115,253,42,328,38,332,33,335,29,337,21,339,15,338,10,336,6,333,4,329,3,323,3,318,5,314,8,309,18,301,95,253,16383,16383,122,0,122,7,105,9,94,14,88,21,85,34,84,52,84,228,82,230,5,203,5,195,15,197,26,197,33,196,37,193,40,187,42,178,42,33,38,20,32,13,20,9,3,7,3,0,25,253,45,253,122,302,127,306,131,310,134,314,136,318,137,323,136,329,134,333,130,336,125,338,119,339,111,337,107,335,103,332,98,328,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,87,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,8,0,147,253,84,337,54,337,-7,253,8,253,69,305,130,253,16383,16383,110,0,110,7,93,9,83,14,77,21,74,34,73,52,73,228,
+203,138,201,153,198,166,203,138,198,166,195,177,203,138,195,177,190,186,203,138,190,186,185,195,203,138,185,195,175,207,203,138,175,207,163,217,203,138,163,217,151,155,203,138,151,155,50,155,203,138,50,155,49,138,141,192,147,176,149,224,149,224,147,176,151,155,149,224,151,155,163,217,137,286,138,278,138,294,138,294,138,278,141,272,138,294,141,272,141,301,141,301,141,272,146,266,141,301,146,266,147,306,147,306,146,266,153,263,147,306,153,263,153,310,153,310,153,263,161,262,153,310,161,262,161,311,161,311,161,262,169,263,161,311,169,263,169,310,169,310,169,263,176,266,169,310,176,266,176,306,176,306,176,266,181,272,176,306,181,272,181,301,181,301,181,272,185,278,181,301,185,278,185,294,185,294,185,278,186,286,37,286,38,278,38,294,38,294,38,278,41,272,38,294,41,272,42,301,42,301,41,272,47,266,42,301,47,266,47,306,47,306,47,266,53,263,47,306,53,263,54,310,54,310,53,263,61,262,54,310,61,262,61,311,61,311,61,262,69,263,61,311,69,263,69,310,69,310,69,263,76,266,69,310,76,266,76,306,76,306,76,266,81,272,76,306,81,272,82,301,82,301,81,272,85,278,82,301,85,278,85,294,85,294,85,278,86,286,52,100,50,118,49,15,49,15,50,118,49,138,49,15,49,138,31,182,49,15,31,182,29,39,29,39,31,182,17,148,29,39,17,148,17,70,17,70,17,148,12,108,133,228,116,230,120,210,120,210,116,230,103,212,87,210,103,212,116,230,87,210,116,230,81,224,190,62,176,48,181,26,181,26,176,48,162,37,181,26,162,37,160,9,160,9,162,37,146,31,160,9,146,31,136,-1,136,-1,146,31,127,30,198,49,212,79,204,82,198,49,204,82,190,62,198,49,190,62,181,26,114,31,101,34,108,-4,114,31,108,-4,136,-1,114,31,136,-1,127,30,101,34,90,39,108,-4,108,-4,90,39,80,47,108,-4,80,47,75,0,75,0,80,47,71,57,133,228,120,210,133,203,133,228,133,203,141,192,133,228,141,192,149,224,50,155,55,175,52,207,52,207,55,175,63,191,52,207,63,191,81,224,81,224,63,191,74,203,81,224,74,203,87,210,52,207,31,182,49,138,52,207,49,138,50,155,75,0,71,57,62,71,75,0,62,71,56,85,75,0,56,85,52,100,75,0,52,100,49,15,
+115,253,42,328,38,332,33,335,29,337,21,339,15,338,10,336,6,333,4,329,3,323,3,318,5,314,8,309,18,301,95,253,16383,16383,122,0,122,7,105,9,94,14,88,21,85,34,84,52,84,228,82,230,5,203,5,195,15,197,26,197,33,196,37,193,40,187,42,178,42,33,38,20,32,13,20,9,3,7,3,0,25,253,45,253,122,302,127,306,131,310,134,314,136,318,137,323,136,329,134,333,130,336,125,338,119,339,111,337,107,335,103,332,98,328,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,87,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,
+95,253,115,253,42,328,95,253,42,328,38,332,95,253,38,332,33,335,95,253,33,335,29,337,95,253,29,337,25,338,95,253,25,338,21,339,95,253,21,339,18,301,3,323,3,318,4,329,4,329,3,318,5,314,4,329,5,314,6,333,6,333,5,314,8,309,6,333,8,309,10,336,10,336,8,309,13,305,10,336,13,305,15,338,15,338,13,305,18,301,15,338,18,301,21,339,38,20,32,13,122,0,122,0,32,13,20,9,122,0,20,9,3,7,15,197,19,197,82,230,82,230,19,197,23,197,82,230,23,197,26,197,26,197,33,196,82,230,82,230,33,196,37,193,82,230,37,193,40,187,38,20,122,0,42,33,42,33,122,0,94,14,42,33,94,14,42,52,42,52,94,14,88,21,42,52,88,21,42,166,42,178,42,166,82,230,42,178,82,230,40,187,10,196,15,197,82,230,10,196,82,230,5,203,10,196,5,203,5,195,84,52,84,228,82,230,84,52,82,230,42,166,84,52,42,166,85,34,105,9,94,14,122,0,105,9,122,0,122,7,122,0,3,7,3,0,42,166,88,21,85,34,
+25,253,45,253,122,302,127,306,131,310,134,314,136,318,137,323,136,329,134,333,130,336,125,338,119,339,111,337,107,335,103,332,98,328,16383,16383,127,0,127,7,110,9,99,14,93,21,90,34,89,52,89,228,87,230,10,203,10,195,20,197,31,197,38,196,42,193,45,187,47,178,47,33,43,20,37,13,25,9,8,7,8,0,147,253,84,337,54,337,-7,253,8,253,69,305,130,253,16383,16383,110,0,110,7,93,9,83,14,77,21,74,34,73,52,73,228,70,230,-6,203,-6,195,0,196,3,197,15,197,21,196,26,193,29,187,31,178,31,52,30,33,27,20,21,13,9,9,-7,7,-7,0,144,286,143,294,139,301,133,306,127,310,119,311,111,310,104,306,
+119,339,122,302,125,338,125,338,122,302,127,306,125,338,127,306,130,336,130,336,127,306,131,310,130,336,131,310,134,333,134,333,131,310,134,314,134,333,134,314,136,329,136,329,134,314,136,318,136,329,136,318,137,323,122,302,119,339,115,338,122,302,115,338,111,337,122,302,111,337,107,335,122,302,107,335,103,332,122,302,103,332,98,328,122,302,98,328,45,253,43,20,37,13,127,0,127,0,37,13,25,9,127,0,25,9,8,7,20,197,24,197,87,230,87,230,24,197,28,197,87,230,28,197,31,197,31,197,38,196,87,230,87,230,38,196,42,193,87,230,42,193,45,187,43,20,127,0,47,33,47,33,127,0,99,14,47,33,99,14,47,52,47,52,99,14,93,21,47,52,93,21,47,166,47,178,47,166,87,230,47,178,87,230,45,187,15,196,20,197,87,230,15,196,87,230,10,203,15,196,10,203,10,195,89,52,89,228,87,230,89,52,87,230,47,166,89,52,47,166,90,34,110,9,99,14,127,0,110,9,127,0,127,7,127,0,8,7,8,0,47,166,93,21,90,34,45,253,98,328,25,253,
+147,253,84,337,54,337,-7,253,8,253,69,305,130,253,16383,16383,110,0,110,7,93,9,83,14,77,21,74,34,73,52,73,228,70,230,-6,203,-6,195,0,196,3,197,15,197,21,196,26,193,29,187,31,178,31,52,30,33,27,20,21,13,9,9,-7,7,-7,0,144,286,143,294,139,301,133,306,127,310,119,311,111,310,104,306,99,301,96,294,94,286,96,278,99,272,104,266,111,263,118,262,126,263,133,266,139,272,143,278,144,286,16383,16383,45,286,43,294,40,301,34,306,27,310,20,311,12,310,5,306,0,301,-3,294,-4,286,
+-7,253,8,253,54,337,54,337,8,253,69,305,54,337,69,305,84,337,84,337,69,305,130,253,84,337,130,253,147,253,27,20,21,13,110,0,110,0,21,13,9,9,110,0,9,9,-7,7,3,197,8,197,70,230,70,230,8,197,11,197,70,230,11,197,15,197,15,197,21,196,70,230,70,230,21,196,26,193,70,230,26,193,29,187,31,166,31,52,77,21,31,166,77,21,74,34,31,166,74,34,73,52,31,166,73,52,70,230,31,166,70,230,31,178,0,196,3,197,70,230,0,196,70,230,-6,203,0,196,-6,203,-6,195,73,52,73,228,70,230,110,0,110,7,93,9,110,0,93,9,83,14,110,0,83,14,30,33,110,0,30,33,27,20,31,52,30,33,83,14,31,52,83,14,77,21,110,0,-7,7,-7,0,70,230,29,187,31,178,
+144,286,143,294,139,301,133,306,127,310,119,311,111,310,104,306,99,301,96,294,94,286,96,278,99,272,104,266,111,263,118,262,126,263,133,266,139,272,143,278,144,286,16383,16383,45,286,43,294,40,301,34,306,27,310,20,311,12,310,5,306,0,301,-3,294,-4,286,-3,278,0,272,5,266,11,263,19,262,27,263,34,266,40,272,43,278,45,286,16383,16383,113,0,113,7,97,9,86,14,80,21,77,34,76,52,76,228,74,230,-2,203,-2,195,2,196,7,197,18,197,25,196,29,193,32,187,34,178,35,166,35,52,34,33,31,20,24,13,12,9,-4,7,-4,0,212,328,195,343,148,318,135,326,122,332,107,337,90,340,71,342,50,329,66,326,80,323,93,318,105,311,118,302,57,270,74,255,135,287,151,272,163,256,172,239,179,220,184,200,170,212,159,221,148,226,136,229,123,230,89,224,59,208,35,182,20,148,15,108,20,70,35,38,58,15,88,0,123,-4,145,-2,165,3,182,13,196,26,209,44,218,60,225,79,231,99,234,120,235,142,233,179,225,215,211,248,192,278,166,304,16383,16383,190,101,187,69,179,44,167,25,151,13,132,9,104,18,83,41,70,73,62,108,60,141,62,165,70,185,83,201,99,212,118,216,142,211,
+31,20,113,0,34,33,34,33,113,0,86,14,34,33,86,14,35,52,35,52,86,14,80,21,35,52,80,21,35,166,35,166,80,21,77,34,35,166,77,34,76,52,74,230,-2,203,2,196,74,230,2,196,7,197,74,230,7,197,11,197,74,230,11,197,15,197,74,230,15,197,18,197,74,230,18,197,25,196,74,230,25,196,29,193,74,230,29,193,32,187,74,230,32,187,34,178,74,230,34,178,35,166,74,230,35,166,76,52,74,230,76,52,76,228,94,286,96,278,96,294,96,294,96,278,99,272,96,294,99,272,99,301,99,301,99,272,104,266,99,301,104,266,104,306,104,306,104,266,111,263,104,306,111,263,111,310,111,310,111,263,118,262,111,310,118,262,119,311,119,311,118,262,126,263,119,311,126,263,127,310,127,310,126,263,133,266,127,310,133,266,133,306,133,306,133,266,139,272,133,306,139,272,139,301,139,301,139,272,143,278,139,301,143,278,143,294,143,294,143,278,144,286,97,9,86,14,113,0,97,9,113,0,113,7,113,0,31,20,24,13,113,0,24,13,12,9,113,0,12,9,-4,7,113,0,-4,7,-4,0,-4,286,-3,278,-3,294,-3,294,-3,278,0,272,-3,294,0,272,0,301,0,301,0,272,5,266,0,301,5,266,5,306,5,306,5,266,11,263,5,306,11,263,12,310,12,310,11,263,19,262,12,310,19,262,20,311,20,311,19,262,27,263,20,311,27,263,27,310,27,310,27,263,34,266,27,310,34,266,34,306,34,306,34,266,40,272,34,306,40,272,40,301,40,301,40,272,43,278,40,301,43,278,43,294,43,294,43,278,45,286,2,196,-2,203,-2,195,
+212,328,195,343,148,318,135,326,122,332,107,337,90,340,71,342,50,329,66,326,80,323,93,318,105,311,118,302,57,270,74,255,135,287,151,272,163,256,172,239,179,220,184,200,170,212,159,221,148,226,136,229,123,230,89,224,59,208,35,182,20,148,15,108,20,70,35,38,58,15,88,0,123,-4,145,-2,165,3,182,13,196,26,209,44,218,60,225,79,231,99,234,120,235,142,233,179,225,215,211,248,192,278,166,304,16383,16383,190,101,187,69,179,44,167,25,151,13,132,9,104,18,83,41,70,73,62,108,60,141,62,165,70,185,83,201,99,212,118,216,142,211,162,195,177,171,187,139,190,101,196,319,191,309,186,302,181,297,176,295,170,294,165,294,160,295,154,297,149,299,143,301,131,307,124,311,110,315,103,316,96,316,82,314,70,308,59,298,51,284,46,266,60,266,64,274,68,281,73,285,79,288,85,289,89,289,97,287,102,285,106,283,118,278,128,273,137,269,144,267,151,266,158,266,173,268,185,274,195,284,203,299,210,319,16383,16383,243,0,243,7,230,9,221,13,216,19,213,29,212,42,212,153,210,180,202,201,190,217,174,227,153,230,139,229,125,224,111,216,96,205,81,190,80,190,80,228,76,230,50,220,37,216,23,212,8,208,8,199,10,200,13,200,16,201,22,201,30,200,
+136,229,123,230,142,211,142,211,123,230,118,216,99,212,118,216,123,230,99,212,123,230,89,224,122,332,118,302,135,287,122,332,135,287,135,326,135,326,135,287,151,272,135,326,151,272,148,318,148,318,151,272,166,304,148,318,166,304,195,343,195,343,166,304,212,328,107,337,90,340,93,318,107,337,93,318,105,311,107,337,105,311,118,302,107,337,118,302,122,332,50,329,66,326,71,342,71,342,66,326,80,323,71,342,80,323,90,340,90,340,80,323,93,318,187,69,179,44,182,13,182,13,179,44,167,25,182,13,167,25,165,3,165,3,167,25,151,13,165,3,151,13,145,-2,145,-2,151,13,132,9,145,-2,132,9,123,-4,123,-4,132,9,104,18,123,-4,104,18,88,0,88,0,104,18,83,41,88,0,83,41,70,73,88,0,70,73,58,15,58,15,70,73,62,108,58,15,62,108,60,141,60,141,62,165,59,208,59,208,62,165,70,185,59,208,70,185,89,224,89,224,70,185,83,201,89,224,83,201,99,212,15,108,20,70,20,148,20,148,20,70,35,38,20,148,35,38,35,182,35,182,35,38,58,15,35,182,58,15,59,208,59,208,58,15,60,141,151,272,163,256,166,304,166,304,163,256,172,239,166,304,172,239,192,278,192,278,172,239,179,220,192,278,179,220,184,200,118,302,57,270,74,255,118,302,74,255,135,287,184,200,187,139,192,278,192,278,187,139,190,101,196,26,190,101,187,69,233,179,225,215,225,79,233,179,225,79,231,99,233,179,231,99,234,120,233,179,234,120,235,142,196,26,209,44,211,248,211,248,209,44,218,60,211,248,218,60,225,215,225,215,218,60,225,79,192,278,190,101,196,26,192,278,196,26,211,248,187,139,184,200,177,171,177,171,184,200,170,212,177,171,170,212,162,195,162,195,170,212,159,221,162,195,159,221,148,226,148,226,136,229,142,211,148,226,142,211,162,195,187,69,182,13,196,26,
+196,319,191,309,186,302,181,297,176,295,170,294,165,294,160,295,154,297,149,299,143,301,131,307,124,311,110,315,103,316,96,316,82,314,70,308,59,298,51,284,46,266,60,266,64,274,68,281,73,285,79,288,85,289,89,289,97,287,102,285,106,283,118,278,128,273,137,269,144,267,151,266,158,266,173,268,185,274,195,284,203,299,210,319,16383,16383,243,0,243,7,230,9,221,13,216,19,213,29,212,42,212,153,210,180,202,201,190,217,174,227,153,230,139,229,125,224,111,216,96,205,81,190,80,190,80,228,76,230,50,220,37,216,23,212,8,208,8,199,10,200,13,200,16,201,22,201,30,200,35,197,38,191,40,181,40,47,39,32,37,21,31,14,22,9,9,7,9,0,114,0,114,7,101,9,92,13,86,18,83,26,82,36,82,174,95,186,105,194,115,199,124,202,133,203,147,201,157,195,164,185,169,171,170,152,170,52,169,35,166,23,161,15,152,10,139,7,138,0,166,253,94,328,89,332,84,335,80,337,72,339,66,338,61,336,57,333,55,329,54,323,55,318,57,314,60,309,64,305,69,301,146,253,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,77,253,97,253,174,302,180,306,184,310,187,314,189,318,189,323,188,329,186,333,182,336,177,338,171,339,163,337,160,335,156,332,151,328,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,
+37,21,31,14,114,0,114,0,31,14,22,9,114,0,22,9,9,7,13,200,16,201,23,212,23,212,16,201,19,201,23,212,19,201,22,201,22,201,30,200,23,212,23,212,30,200,37,216,23,212,8,208,10,200,23,212,10,200,13,200,30,200,35,197,37,216,37,216,35,197,38,191,37,216,38,191,50,220,50,220,38,191,40,181,50,220,40,181,40,169,83,26,40,169,40,47,83,26,40,47,86,18,86,18,40,47,92,13,80,228,76,230,80,190,80,190,76,230,82,36,80,190,82,36,81,190,81,190,82,36,82,174,81,190,82,174,96,205,96,205,82,174,95,186,96,205,95,186,105,194,64,274,68,281,70,308,70,308,68,281,73,285,70,308,73,285,82,314,82,314,73,285,79,288,82,314,79,288,85,289,85,289,89,289,96,316,96,316,89,289,93,288,96,316,93,288,97,287,60,266,64,274,70,308,60,266,70,308,59,298,60,266,59,298,51,284,60,266,51,284,46,266,96,316,97,287,103,316,103,316,97,287,102,285,103,316,102,285,106,283,106,283,118,278,110,315,110,315,118,278,117,313,96,316,82,314,85,289,110,315,103,316,106,283,117,313,118,278,124,311,124,311,118,278,128,273,124,311,128,273,131,307,131,307,128,273,137,269,131,307,137,269,143,301,143,301,137,269,144,267,143,301,144,267,149,299,149,299,144,267,151,266,149,299,151,266,154,297,154,297,151,266,158,266,154,297,158,266,160,295,160,295,158,266,173,268,160,295,173,268,165,294,165,294,173,268,170,294,176,295,170,294,173,268,176,295,173,268,185,274,96,205,105,194,111,216,111,216,105,194,115,199,111,216,115,199,125,224,125,224,115,199,124,202,125,224,124,202,133,203,133,203,147,201,139,229,139,229,147,201,153,230,82,36,76,230,63,225,82,36,63,225,83,26,139,229,125,224,133,203,166,23,161,15,243,0,243,0,161,15,152,10,243,0,152,10,139,7,157,195,164,185,174,227,174,227,164,185,169,171,174,227,169,171,170,152,216,19,170,152,170,52,216,19,170,52,221,13,221,13,170,52,169,35,221,13,169,35,243,0,243,0,169,35,166,23,153,230,147,201,157,195,153,230,157,195,174,227,212,42,212,153,210,180,212,42,210,180,202,201,212,42,202,201,213,29,230,9,221,13,243,0,230,9,243,0,243,7,213,29,202,201,190,217,213,29,190,217,174,227,213,29,174,227,170,152,213,29,170,152,216,19,196,319,191,309,195,284,196,319,195,284,203,299,196,319,203,299,210,319,186,302,181,297,185,274,186,302,185,274,195,284,186,302,195,284,191,309,114,0,114,7,101,9,114,0,101,9,92,13,114,0,92,13,39,32,114,0,39,32,37,21,50,220,40,169,83,26,50,220,83,26,63,225,10,200,8,208,8,199,114,0,9,7,9,0,39,32,92,13,40,47,176,295,185,274,181,297,243,0,139,7,138,0,
+166,253,94,328,89,332,84,335,80,337,72,339,66,338,61,336,57,333,55,329,54,323,55,318,57,314,60,309,64,305,69,301,146,253,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,77,253,97,253,174,302,180,306,184,310,187,314,189,318,189,323,188,329,186,333,182,336,177,338,171,339,163,337,160,335,156,332,151,328,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,
+146,253,166,253,94,328,146,253,94,328,89,332,146,253,89,332,84,335,146,253,84,335,80,337,146,253,80,337,76,338,146,253,76,338,72,339,146,253,72,339,69,301,54,323,55,318,55,329,55,329,55,318,57,314,55,329,57,314,57,333,57,333,57,314,60,309,57,333,60,309,61,336,61,336,60,309,64,305,61,336,64,305,66,338,66,338,64,305,69,301,66,338,69,301,72,339,64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,
+77,253,97,253,174,302,180,306,184,310,187,314,189,318,189,323,188,329,186,333,182,336,177,338,171,339,163,337,160,335,156,332,151,328,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,200,253,138,337,107,337,45,253,62,253,123,305,184,253,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,190,319,185,309,181,302,176,297,170,295,164,294,159,294,154,295,149,297,137,301,
+171,339,174,302,177,338,177,338,174,302,180,306,177,338,180,306,182,336,182,336,180,306,184,310,182,336,184,310,186,333,186,333,184,310,187,314,186,333,187,314,188,329,188,329,187,314,189,318,188,329,189,318,189,323,174,302,171,339,167,338,174,302,167,338,163,337,174,302,163,337,160,335,174,302,160,335,156,332,174,302,156,332,151,328,174,302,151,328,97,253,64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,97,253,151,328,77,253,
+200,253,138,337,107,337,45,253,62,253,123,305,184,253,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,190,319,185,309,181,302,176,297,170,295,164,294,159,294,154,295,149,297,137,301,126,307,118,311,104,315,97,316,90,316,76,314,64,308,54,298,46,284,40,266,55,266,58,274,63,281,68,285,73,288,80,289,84,289,92,287,100,283,112,278,123,273,131,269,139,267,145,266,152,266,168,268,180,274,190,284,198,299,205,319,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,
+45,253,62,253,107,337,107,337,62,253,123,305,107,337,123,305,138,337,138,337,123,305,184,253,138,337,184,253,200,253,64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,
+190,319,185,309,181,302,176,297,170,295,164,294,159,294,154,295,149,297,137,301,126,307,118,311,104,315,97,316,90,316,76,314,64,308,54,298,46,284,40,266,55,266,58,274,63,281,68,285,73,288,80,289,84,289,92,287,100,283,112,278,123,273,131,269,139,267,145,266,152,266,168,268,180,274,190,284,198,299,205,319,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,197,286,196,294,192,301,186,306,180,310,172,311,164,310,157,306,152,301,149,294,147,286,149,278,152,272,157,266,164,263,171,262,179,263,186,266,192,272,196,278,197,286,16383,16383,98,286,96,294,93,301,87,306,80,310,73,311,65,310,58,306,53,301,49,294,48,286,49,278,53,272,58,266,64,263,72,262,80,263,87,266,93,272,96,278,98,286,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,
+58,274,63,281,64,308,64,308,63,281,68,285,64,308,68,285,76,314,76,314,68,285,73,288,76,314,73,288,80,289,80,289,84,289,90,316,90,316,84,289,88,288,90,316,88,288,92,287,55,266,58,274,64,308,55,266,64,308,54,298,55,266,54,298,46,284,55,266,46,284,40,266,90,316,92,287,97,316,97,316,92,287,96,285,97,316,96,285,100,283,100,283,112,278,104,315,104,315,112,278,111,313,90,316,76,314,80,289,104,315,97,316,100,283,111,313,112,278,118,311,118,311,112,278,123,273,118,311,123,273,126,307,126,307,123,273,131,269,126,307,131,269,137,301,137,301,131,269,139,267,137,301,139,267,143,299,143,299,139,267,145,266,143,299,145,266,149,297,149,297,145,266,152,266,149,297,152,266,154,295,154,295,152,266,168,268,154,295,168,268,159,294,159,294,168,268,164,294,170,295,164,294,168,268,170,295,168,268,180,274,190,319,185,309,190,284,190,319,190,284,198,299,190,319,198,299,205,319,181,302,176,297,180,274,181,302,180,274,190,284,181,302,190,284,185,309,64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,170,295,180,274,176,297,
+197,286,196,294,192,301,186,306,180,310,172,311,164,310,157,306,152,301,149,294,147,286,149,278,152,272,157,266,164,263,171,262,179,263,186,266,192,272,196,278,197,286,16383,16383,98,286,96,294,93,301,87,306,80,310,73,311,65,310,58,306,53,301,49,294,48,286,49,278,53,272,58,266,64,263,72,262,80,263,87,266,93,272,96,278,98,286,16383,16383,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,20,75,35,42,58,17,88,1,123,-4,160,1,191,17,215,43,230,76,235,116,16383,16383,190,102,187,70,180,44,168,25,151,13,131,9,120,10,110,13,101,18,93,25,86,34,76,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,98,212,118,216,130,215,140,211,149,206,158,199,165,191,174,177,181,161,186,142,189,122,190,102,169,229,168,238,164,246,158,252,150,256,142,258,133,256,125,252,119,246,115,239,113,230,115,221,119,214,125,208,132,204,141,203,150,204,158,208,164,214,168,221,169,229,16383,16383,267,110,267,143,15,143,15,110,16383,16383,169,22,168,31,164,38,158,45,150,49,142,50,133,49,125,45,119,39,115,31,113,22,115,14,119,6,125,0,132,-3,141,-4,150,-3,158,0,164,6,168,13,169,22,219,276,199,276,171,221,161,224,152,227,143,229,134,230,124,230,88,224,58,208,35,184,20,152,15,113,15,100,17,87,20,74,30,50,35,42,40,36,46,29,53,22,63,14,26,-55,45,-55,77,6,87,1,105,-3,114,-4,123,-4,159,1,190,18,214,44,229,78,235,117,233,141,227,162,218,181,204,198,186,213,16383,16383,79,46,72,63,66,81,63,99,60,118,60,138,62,164,70,186,82,202,
+48,286,49,278,49,294,49,294,49,278,53,272,49,294,53,272,53,301,53,301,53,272,58,266,53,301,58,266,58,306,58,306,58,266,64,263,58,306,64,263,65,310,65,310,64,263,72,262,65,310,72,262,73,311,73,311,72,262,80,263,73,311,80,263,80,310,80,310,80,263,87,266,80,310,87,266,87,306,87,306,87,266,93,272,87,306,93,272,93,301,93,301,93,272,96,278,93,301,96,278,96,294,96,294,96,278,98,286,64,91,58,17,69,70,69,70,58,17,88,1,69,70,88,1,76,51,76,51,88,1,86,34,93,25,86,34,88,1,93,25,88,1,123,-4,162,225,127,230,130,215,130,215,127,230,118,216,98,212,118,216,127,230,98,212,127,230,90,225,147,286,149,278,149,294,149,294,149,278,152,272,149,294,152,272,152,301,152,301,152,272,157,266,152,301,157,266,157,306,157,306,157,266,164,263,157,306,164,263,164,310,164,310,164,263,171,262,164,310,171,262,172,311,172,311,171,262,179,263,172,311,179,263,180,310,180,310,179,263,186,266,180,310,186,266,186,306,186,306,186,266,192,272,186,306,192,272,192,301,192,301,192,272,196,278,192,301,196,278,196,294,196,294,196,278,197,286,187,70,180,44,191,17,191,17,180,44,168,25,191,17,168,25,160,1,160,1,168,25,151,13,160,1,151,13,131,9,131,9,120,10,123,-4,123,-4,120,10,110,13,123,-4,110,13,101,18,140,211,149,206,162,225,162,225,149,206,158,199,162,225,158,199,165,191,165,191,174,177,191,210,191,210,174,177,181,161,191,210,181,161,186,142,230,154,215,186,215,43,230,154,215,43,230,76,230,154,230,76,235,116,187,70,191,17,190,102,190,102,191,17,191,210,191,210,191,17,215,43,191,210,215,43,215,186,191,210,186,142,189,122,191,210,189,122,190,102,191,210,162,225,165,191,131,9,123,-4,160,1,58,17,61,113,60,137,60,137,62,164,58,209,58,209,62,164,70,186,58,209,70,186,90,225,90,225,70,186,82,202,90,225,82,202,98,212,58,17,60,137,58,209,58,17,58,209,35,42,35,42,58,209,35,185,35,42,35,185,20,75,20,75,35,185,20,153,20,75,20,153,15,114,61,113,58,17,64,91,162,225,130,215,140,211,93,25,123,-4,101,18,
+169,229,168,238,164,246,158,252,150,256,142,258,133,256,125,252,119,246,115,239,113,230,115,221,119,214,125,208,132,204,141,203,150,204,158,208,164,214,168,221,169,229,16383,16383,267,110,267,143,15,143,15,110,16383,16383,169,22,168,31,164,38,158,45,150,49,142,50,133,49,125,45,119,39,115,31,113,22,115,14,119,6,125,0,132,-3,141,-4,150,-3,158,0,164,6,168,13,169,22,219,276,199,276,171,221,161,224,152,227,143,229,134,230,124,230,88,224,58,208,35,184,20,152,15,113,15,100,17,87,20,74,30,50,35,42,40,36,46,29,53,22,63,14,26,-55,45,-55,77,6,87,1,105,-3,114,-4,123,-4,159,1,190,18,214,44,229,78,235,117,233,141,227,162,218,181,204,198,186,213,16383,16383,79,46,72,63,66,81,63,99,60,118,60,138,62,164,70,186,
+113,230,115,221,115,239,115,239,115,221,119,214,115,239,119,214,119,246,119,246,119,214,125,208,119,246,125,208,125,252,125,252,125,208,132,204,125,252,132,204,133,256,133,256,132,204,141,203,133,256,141,203,142,258,142,258,141,203,150,204,142,258,150,204,150,256,150,256,150,204,158,208,150,256,158,208,158,252,158,252,158,208,164,214,158,252,164,214,164,246,164,246,164,214,168,221,164,246,168,221,168,238,168,238,168,221,169,229,15,143,15,110,267,110,15,143,267,110,267,143,113,22,115,14,115,31,115,31,115,14,119,6,115,31,119,6,119,39,119,39,119,6,125,0,119,39,125,0,125,45,125,45,125,0,132,-3,125,45,132,-3,133,49,133,49,132,-3,141,-4,133,49,141,-4,142,50,142,50,141,-4,150,-3,142,50,150,-3,150,49,150,49,150,-3,158,0,150,49,158,0,158,45,158,45,158,0,164,6,158,45,164,6,164,38,164,38,164,6,168,13,164,38,168,13,168,31,168,31,168,13,169,22,
+219,276,199,276,171,221,161,224,152,227,143,229,134,230,124,230,88,224,58,208,35,184,20,152,15,113,15,100,17,87,20,74,30,50,35,42,40,36,46,29,53,22,63,14,26,-55,45,-55,77,6,87,1,105,-3,114,-4,123,-4,159,1,190,18,214,44,229,78,235,117,233,141,227,162,218,181,204,198,186,213,16383,16383,79,46,72,63,66,81,63,99,60,118,60,138,62,164,70,186,82,202,99,212,118,216,127,215,135,213,143,210,151,205,158,198,16383,16383,170,183,178,167,183,152,187,136,189,120,190,102,187,69,180,44,168,25,151,13,131,9,121,10,112,12,104,16,97,22,89,30,170,253,97,328,92,332,88,335,84,337,80,338,75,339,69,338,64,336,61,333,58,329,57,323,58,318,60,314,63,309,67,305,73,301,150,253,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,
+63,14,63,14,45,-55,63,14,45,-55,77,6,63,14,77,6,63,99,63,14,63,99,60,118,63,14,60,118,60,138,63,14,60,138,58,208,63,14,58,208,53,22,58,208,35,184,35,42,58,208,35,42,40,36,58,208,40,36,46,29,58,208,46,29,53,22,35,184,20,152,20,74,35,184,20,74,25,62,35,184,25,62,30,50,35,184,30,50,35,42,20,152,15,113,15,100,20,152,15,100,17,87,20,152,17,87,20,74,124,230,118,216,127,215,124,230,127,215,134,230,134,230,127,215,135,213,134,230,135,213,143,229,143,229,135,213,143,210,143,229,143,210,152,227,152,227,143,210,151,205,152,227,151,205,158,198,187,69,180,44,190,18,190,18,180,44,168,25,190,18,168,25,159,1,159,1,168,25,151,13,159,1,151,13,131,9,131,9,121,10,123,-4,123,-4,121,10,114,-4,112,12,104,16,105,-3,112,12,105,-3,114,-4,112,12,114,-4,121,10,87,1,96,-1,89,30,89,30,96,-1,97,22,97,22,96,-1,105,-3,97,22,105,-3,104,16,161,224,158,198,170,183,161,224,170,183,171,221,171,221,170,183,178,167,171,221,178,167,186,213,186,213,178,167,183,152,186,213,183,152,187,136,199,276,171,221,186,213,199,276,186,213,219,276,158,198,79,46,89,30,158,198,89,30,170,183,79,46,72,63,77,6,79,46,77,6,87,1,79,46,87,1,89,30,66,81,63,99,77,6,66,81,77,6,72,63,229,78,235,117,233,141,229,78,233,141,227,162,229,78,227,162,218,181,229,78,218,181,214,44,187,69,190,18,190,102,190,102,190,18,204,198,204,198,190,18,214,44,204,198,214,44,218,181,186,213,187,136,204,198,204,198,187,136,189,120,204,198,189,120,190,102,131,9,123,-4,159,1,70,186,82,202,88,224,88,224,82,202,99,212,88,224,99,212,124,230,124,230,99,212,118,216,60,138,62,164,58,208,58,208,62,164,70,186,58,208,70,186,88,224,45,-55,63,14,26,-55,152,227,158,198,161,224,
+170,253,97,328,92,332,88,335,84,337,80,338,75,339,69,338,64,336,61,333,58,329,57,323,58,318,60,314,63,309,67,305,73,301,150,253,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,78,253,98,253,175,302,181,306,185,310,188,314,189,318,190,323,189,329,187,333,183,336,179,338,172,339,168,338,165,337,161,335,156,332,151,328,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,
+150,253,170,253,97,328,150,253,97,328,92,332,150,253,92,332,88,335,150,253,88,335,84,337,150,253,84,337,80,338,150,253,80,338,75,339,150,253,75,339,73,301,57,323,58,318,58,329,58,329,58,318,60,314,58,329,60,314,61,333,61,333,60,314,63,309,61,333,63,309,64,336,64,336,63,309,67,305,64,336,67,305,69,338,69,338,67,305,73,301,69,338,73,301,75,339,78,225,4,225,17,216,78,225,17,216,26,213,78,225,26,213,32,207,78,225,32,207,35,197,78,225,35,197,36,185,78,225,36,185,38,38,78,225,38,38,46,20,78,225,46,20,58,6,78,225,58,6,75,-1,78,225,75,-1,78,64,164,53,162,48,168,38,168,38,162,48,159,43,168,38,159,43,155,40,155,40,147,34,153,21,153,21,147,34,139,29,153,21,139,29,138,8,138,8,139,29,130,26,138,8,130,26,123,0,123,0,130,26,121,25,123,0,121,25,113,24,113,24,102,26,109,-3,109,-3,102,26,97,-4,97,-4,102,26,92,31,97,-4,92,31,84,40,97,-4,84,40,79,51,97,-4,79,51,75,-1,78,64,75,-1,79,51,113,24,109,-3,123,0,166,184,168,38,209,225,209,225,168,38,169,38,209,225,169,38,171,-3,171,-3,169,38,169,-2,168,38,166,184,166,69,168,38,166,69,166,59,168,38,166,59,164,53,155,40,153,21,168,38,225,26,217,29,225,14,225,14,217,29,212,34,225,14,212,34,212,10,212,10,212,34,209,42,212,10,209,42,199,6,199,6,209,42,209,54,199,6,209,54,209,225,209,225,171,-3,186,1,209,225,186,1,199,6,209,225,129,225,145,215,209,225,145,215,155,212,209,225,155,212,162,206,209,225,162,206,165,197,209,225,165,197,166,184,237,25,225,26,225,14,237,25,225,14,240,18,237,25,240,18,240,25,38,38,36,185,36,59,145,215,129,225,129,217,17,216,4,225,4,218,
+78,253,98,253,175,302,181,306,185,310,188,314,189,318,190,323,189,329,187,333,183,336,179,338,172,339,168,338,165,337,161,335,156,332,151,328,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,200,253,138,337,107,337,45,253,62,253,123,305,184,253,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,196,286,195,294,192,301,186,306,179,310,171,311,164,310,157,306,152,301,148,294,147,286,
+209,225,129,225,145,215,209,225,145,215,155,212,209,225,155,212,162,206,209,225,162,206,165,197,209,225,165,197,166,184,209,225,166,184,168,38,209,225,168,38,169,38,209,225,169,38,171,-3,209,225,171,-3,186,1,209,225,186,1,199,6,209,225,199,6,209,54,166,184,166,69,168,38,237,25,225,26,225,14,237,25,225,14,240,18,237,25,240,18,240,25,209,54,199,6,209,42,209,42,199,6,212,10,209,42,212,10,212,34,212,34,212,10,225,14,212,34,225,14,217,29,217,29,225,14,225,26,172,339,175,302,179,338,179,338,175,302,181,306,179,338,181,306,183,336,183,336,181,306,185,310,183,336,185,310,187,333,187,333,185,310,188,314,187,333,188,314,189,329,189,329,188,314,189,318,189,329,189,318,190,323,175,302,172,339,168,338,175,302,168,338,165,337,175,302,165,337,161,335,175,302,161,335,156,332,175,302,156,332,151,328,175,302,151,328,98,253,78,225,4,225,17,216,78,225,17,216,26,213,78,225,26,213,32,207,78,225,32,207,35,197,78,225,35,197,36,185,78,225,36,185,38,38,78,225,38,38,46,20,78,225,46,20,58,6,78,225,58,6,75,-1,78,225,75,-1,78,64,164,53,162,48,168,38,168,38,162,48,159,43,168,38,159,43,155,40,155,40,147,34,153,21,153,21,147,34,139,29,153,21,139,29,138,8,138,8,139,29,130,26,138,8,130,26,123,0,123,0,130,26,121,25,123,0,121,25,113,24,113,24,102,26,109,-3,109,-3,102,26,97,-4,97,-4,102,26,92,31,97,-4,92,31,84,40,97,-4,84,40,79,51,97,-4,79,51,75,-1,78,64,75,-1,79,51,113,24,109,-3,123,0,166,59,164,53,168,38,166,59,168,38,166,69,155,40,153,21,168,38,38,38,36,185,36,59,171,-3,169,38,169,-2,17,216,4,225,4,218,98,253,151,328,78,253,145,215,129,225,129,217,
+200,253,138,337,107,337,45,253,62,253,123,305,184,253,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,196,286,195,294,192,301,186,306,179,310,171,311,164,310,157,306,152,301,148,294,147,286,148,278,151,272,157,266,163,263,171,262,179,263,186,266,192,272,195,278,196,286,16383,16383,97,286,96,294,92,301,87,306,80,310,72,311,64,310,58,306,52,301,49,294,47,286,49,278,52,272,57,266,64,263,71,262,79,263,86,266,92,272,96,278,97,286,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,
+209,225,129,225,145,215,209,225,145,215,155,212,209,225,155,212,162,206,209,225,162,206,165,197,209,225,165,197,166,184,209,225,166,184,168,38,209,225,168,38,169,38,209,225,169,38,171,-3,209,225,171,-3,186,1,209,225,186,1,199,6,209,225,199,6,209,54,166,184,166,69,168,38,237,25,225,26,225,14,237,25,225,14,240,18,237,25,240,18,240,25,209,54,199,6,209,42,209,42,199,6,212,10,209,42,212,10,212,34,212,34,212,10,225,14,212,34,225,14,217,29,217,29,225,14,225,26,45,253,62,253,107,337,107,337,62,253,123,305,107,337,123,305,138,337,138,337,123,305,184,253,138,337,184,253,200,253,78,225,4,225,17,216,78,225,17,216,26,213,78,225,26,213,32,207,78,225,32,207,35,197,78,225,35,197,36,185,78,225,36,185,38,38,78,225,38,38,46,20,78,225,46,20,58,6,78,225,58,6,75,-1,78,225,75,-1,78,64,164,53,162,48,168,38,168,38,162,48,159,43,168,38,159,43,155,40,155,40,147,34,153,21,153,21,147,34,139,29,153,21,139,29,138,8,138,8,139,29,130,26,138,8,130,26,123,0,123,0,130,26,121,25,123,0,121,25,113,24,113,24,102,26,109,-3,109,-3,102,26,97,-4,97,-4,102,26,92,31,97,-4,92,31,84,40,97,-4,84,40,79,51,97,-4,79,51,75,-1,78,64,75,-1,79,51,113,24,109,-3,123,0,166,59,164,53,168,38,166,59,168,38,166,69,155,40,153,21,168,38,38,38,36,185,36,59,171,-3,169,38,169,-2,17,216,4,225,4,218,145,215,129,225,129,217,
+196,286,195,294,192,301,186,306,179,310,171,311,164,310,157,306,152,301,148,294,147,286,148,278,151,272,157,266,163,263,171,262,179,263,186,266,192,272,195,278,196,286,16383,16383,97,286,96,294,92,301,87,306,80,310,72,311,64,310,58,306,52,301,49,294,47,286,49,278,52,272,57,266,64,263,71,262,79,263,86,266,92,272,96,278,97,286,16383,16383,240,25,237,25,225,26,217,29,212,34,209,42,209,225,129,225,129,217,145,215,155,212,162,206,165,197,166,184,166,59,164,53,162,48,159,43,147,34,139,29,130,26,121,25,113,24,102,26,92,31,84,40,79,51,78,64,78,225,4,225,4,218,17,216,26,213,32,207,35,197,36,185,36,59,38,38,46,20,58,6,75,-1,97,-4,109,-3,123,0,138,8,153,21,168,38,169,38,169,-2,171,-3,186,1,199,6,225,14,240,18,71,253,92,253,169,302,174,306,178,310,181,314,183,318,184,323,183,329,181,333,177,336,172,338,166,339,158,337,154,335,150,332,145,328,16383,16383,238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,26,211,30,206,33,200,99,60,105,47,111,35,116,24,121,9,119,2,116,-8,112,-21,106,-34,100,-44,96,-51,85,-62,80,-65,75,-66,71,-66,69,-65,66,-64,62,-63,63,-63,57,-60,52,-58,42,-56,36,-56,30,-57,24,-60,19,-65,16,-72,15,-79,17,-88,21,-96,28,-102,38,-106,50,-108,71,-105,90,-94,106,-76,122,-49,137,-11,213,192,217,202,221,208,226,213,231,216,238,218,79,339,76,342,63,337,51,333,38,329,23,325,
+209,225,129,225,145,215,209,225,145,215,155,212,209,225,155,212,162,206,209,225,162,206,165,197,209,225,165,197,166,184,209,225,166,184,168,38,209,225,168,38,169,38,209,225,169,38,171,-3,209,225,171,-3,186,1,209,225,186,1,199,6,209,225,199,6,209,54,166,184,166,69,168,38,237,25,225,26,225,14,237,25,225,14,240,18,237,25,240,18,240,25,209,54,199,6,209,42,209,42,199,6,212,10,209,42,212,10,212,34,212,34,212,10,225,14,212,34,225,14,217,29,217,29,225,14,225,26,147,286,148,278,148,294,148,294,148,278,151,272,148,294,151,272,152,301,152,301,151,272,157,266,152,301,157,266,157,306,157,306,157,266,163,263,157,306,163,263,164,310,164,310,163,263,171,262,164,310,171,262,171,311,171,311,171,262,179,263,171,311,179,263,179,310,179,310,179,263,186,266,179,310,186,266,186,306,186,306,186,266,192,272,186,306,192,272,192,301,192,301,192,272,195,278,192,301,195,278,195,294,195,294,195,278,196,286,47,286,49,278,49,294,49,294,49,278,52,272,49,294,52,272,52,301,52,301,52,272,57,266,52,301,57,266,58,306,58,306,57,266,64,263,58,306,64,263,64,310,64,310,64,263,71,262,64,310,71,262,72,311,72,311,71,262,79,263,72,311,79,263,80,310,80,310,79,263,86,266,80,310,86,266,87,306,87,306,86,266,92,272,87,306,92,272,92,301,92,301,92,272,96,278,92,301,96,278,96,294,96,294,96,278,97,286,78,225,4,225,17,216,78,225,17,216,26,213,78,225,26,213,32,207,78,225,32,207,35,197,78,225,35,197,36,185,78,225,36,185,38,38,78,225,38,38,46,20,78,225,46,20,58,6,78,225,58,6,75,-1,78,225,75,-1,78,64,164,53,162,48,168,38,168,38,162,48,159,43,168,38,159,43,155,40,155,40,147,34,153,21,153,21,147,34,139,29,153,21,139,29,138,8,138,8,139,29,130,26,138,8,130,26,123,0,123,0,130,26,121,25,123,0,121,25,113,24,113,24,102,26,109,-3,109,-3,102,26,97,-4,97,-4,102,26,92,31,97,-4,92,31,84,40,97,-4,84,40,79,51,97,-4,79,51,75,-1,78,64,75,-1,79,51,113,24,109,-3,123,0,166,59,164,53,168,38,166,59,168,38,166,69,155,40,153,21,168,38,38,38,36,185,36,59,171,-3,169,38,169,-2,17,216,4,225,4,218,145,215,129,225,129,217,
+71,253,92,253,169,302,174,306,178,310,181,314,183,318,184,323,183,329,181,333,177,336,172,338,166,339,158,337,154,335,150,332,145,328,16383,16383,238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,26,211,30,206,33,200,99,60,105,47,111,35,116,24,121,9,119,2,116,-8,112,-21,106,-34,100,-44,96,-51,85,-62,80,-65,75,-66,71,-66,69,-65,66,-64,62,-63,63,-63,57,-60,52,-58,42,-56,36,-56,30,-57,24,-60,19,-65,16,-72,15,-79,17,-88,21,-96,28,-102,38,-106,50,-108,71,-105,90,-94,106,-76,122,-49,137,-11,213,192,217,202,221,208,226,213,231,216,238,218,79,339,76,342,63,337,51,333,38,329,23,325,4,320,4,311,8,311,9,312,13,312,23,311,30,308,35,303,37,295,37,-76,34,-86,27,-92,17,-96,2,-98,2,-107,123,-107,123,-98,104,-97,91,-93,84,-87,80,-75,79,-59,79,17,90,8,99,2,108,-1,118,-3,130,-4,164,1,193,19,215,47,230,82,235,123,231,160,221,190,204,212,180,225,151,230,135,229,120,224,106,216,92,205,79,190,16383,16383,79,166,83,175,91,184,103,192,117,198,131,200,152,196,170,185,182,166,189,140,192,107,189,75,181,49,169,29,152,16,131,11,117,13,103,19,91,27,82,36,79,45,198,286,197,294,193,301,188,306,181,310,173,311,165,310,159,306,153,301,150,294,148,286,150,278,153,272,158,266,165,263,172,262,180,263,187,266,193,272,197,278,198,286,
+166,339,169,302,172,338,172,338,169,302,174,306,172,338,174,306,177,336,177,336,174,306,178,310,177,336,178,310,181,333,181,333,178,310,181,314,181,333,181,314,183,329,183,329,181,314,183,318,183,329,183,318,184,323,169,302,166,339,162,338,169,302,162,338,158,337,169,302,158,337,154,335,169,302,154,335,150,332,169,302,150,332,145,328,169,302,145,328,92,253,90,-57,85,-62,90,-94,90,-94,85,-62,80,-65,90,-94,80,-65,75,-66,75,-66,73,-66,90,-94,90,-94,73,-66,71,-105,90,-57,106,-76,96,-51,96,-51,106,-76,100,-44,106,-34,100,-44,106,-76,106,-34,106,-76,122,-49,143,59,88,184,99,60,143,59,99,60,105,47,143,59,105,47,111,35,143,59,111,35,116,24,143,59,116,24,119,15,143,59,119,15,121,9,143,59,121,9,122,-49,143,59,122,-49,137,-11,143,59,137,-11,213,192,143,59,213,192,192,196,122,-49,121,9,119,2,99,60,88,184,86,188,99,60,86,188,84,192,99,60,84,192,82,196,99,60,82,196,81,201,99,60,81,201,33,200,33,200,81,201,81,204,81,204,82,209,33,200,33,200,82,209,85,212,33,200,85,212,109,225,109,225,85,212,90,215,109,225,90,215,98,217,194,202,193,201,213,192,213,192,193,201,193,198,213,192,193,198,192,196,238,225,171,225,179,217,238,225,179,217,186,216,238,225,186,216,190,213,238,225,190,213,193,210,238,225,193,210,194,205,238,225,194,205,226,213,238,225,226,213,231,216,238,225,231,216,238,218,194,205,213,192,217,202,194,205,217,202,221,208,194,205,221,208,226,213,194,204,194,202,213,192,194,204,213,192,194,205,122,-49,119,2,116,-8,122,-49,116,-8,112,-21,122,-49,112,-21,106,-34,71,-105,73,-66,71,-66,71,-105,71,-66,69,-65,71,-105,69,-65,66,-64,71,-105,66,-64,63,-63,71,-105,63,-63,57,-60,71,-105,57,-60,52,-58,71,-105,52,-58,50,-108,52,-58,47,-57,50,-108,50,-108,47,-57,42,-56,50,-108,42,-56,38,-106,38,-106,42,-56,36,-56,38,-106,36,-56,30,-57,38,-106,30,-57,28,-102,28,-102,30,-57,24,-60,28,-102,24,-60,21,-96,21,-96,24,-60,19,-65,21,-96,19,-65,17,-88,17,-88,19,-65,16,-72,17,-88,16,-72,15,-79,98,217,109,218,109,225,109,225,7,225,14,217,109,225,14,217,21,214,109,225,21,214,26,211,109,225,26,211,30,206,109,225,30,206,33,200,66,-64,62,-63,63,-63,14,217,7,225,7,218,90,-57,90,-94,106,-76,179,217,171,225,171,218,92,253,145,328,71,253,
+79,339,76,342,63,337,51,333,38,329,23,325,4,320,4,311,8,311,9,312,13,312,23,311,30,308,35,303,37,295,37,-76,34,-86,27,-92,17,-96,2,-98,2,-107,123,-107,123,-98,104,-97,91,-93,84,-87,80,-75,79,-59,79,17,90,8,99,2,108,-1,118,-3,130,-4,164,1,193,19,215,47,230,82,235,123,231,160,221,190,204,212,180,225,151,230,135,229,120,224,106,216,92,205,79,190,16383,16383,79,166,83,175,91,184,103,192,117,198,131,200,152,196,170,185,182,166,189,140,192,107,189,75,181,49,169,29,152,16,131,11,117,13,103,19,91,27,82,36,79,45,198,286,197,294,193,301,188,306,181,310,173,311,165,310,159,306,153,301,150,294,148,286,150,278,153,272,158,266,165,263,172,262,180,263,187,266,193,272,197,278,198,286,16383,16383,99,286,97,294,94,301,88,306,81,310,74,311,66,310,59,306,54,301,50,294,49,286,50,278,54,272,59,266,65,263,73,262,81,263,88,266,94,272,97,278,99,286,16383,16383,238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,
+34,-86,27,-92,123,-107,123,-107,27,-92,17,-96,123,-107,17,-96,2,-98,8,311,9,312,23,325,23,325,9,312,11,312,23,325,11,312,13,312,13,312,23,311,23,325,23,325,23,311,38,329,23,325,4,320,6,311,23,325,6,311,8,311,30,308,35,303,38,329,38,329,35,303,37,295,38,329,37,295,37,284,80,-75,37,284,37,-63,80,-75,37,-63,84,-87,84,-87,37,-63,91,-93,79,190,79,339,76,342,79,190,76,342,79,-59,79,190,79,-59,79,166,79,190,79,166,92,205,235,123,231,160,230,82,230,82,231,160,221,190,230,82,221,190,215,47,215,47,221,190,204,212,215,47,204,212,193,19,193,19,204,212,192,107,193,19,192,107,189,75,193,19,189,75,181,49,152,196,170,185,180,225,180,225,170,185,182,166,180,225,182,166,204,212,204,212,182,166,189,140,204,212,189,140,192,107,135,229,131,200,152,196,135,229,152,196,151,230,151,230,152,196,180,225,108,-1,118,-3,117,13,117,13,118,-3,131,11,152,16,131,11,164,1,152,16,164,1,169,29,169,29,164,1,193,19,169,29,193,19,181,49,131,11,118,-3,130,-4,131,11,130,-4,164,1,123,-107,123,-98,104,-97,123,-107,104,-97,91,-93,123,-107,91,-93,37,-76,123,-107,37,-76,34,-86,82,36,79,45,90,8,90,8,79,45,79,17,80,-75,79,-59,51,333,80,-75,51,333,38,329,63,337,51,333,79,-59,63,337,79,-59,76,342,83,175,91,184,92,205,92,205,91,184,103,192,92,205,103,192,106,216,106,216,103,192,117,198,106,216,117,198,120,224,120,224,117,198,131,200,120,224,131,200,135,229,82,36,90,8,91,27,91,27,90,8,99,2,91,27,99,2,103,19,103,19,99,2,108,-1,103,19,108,-1,117,13,92,205,79,166,83,175,6,311,4,320,4,311,123,-107,2,-98,2,-107,37,-76,91,-93,37,-63,37,284,80,-75,38,329,38,329,23,311,30,308,
+198,286,197,294,193,301,188,306,181,310,173,311,165,310,159,306,153,301,150,294,148,286,150,278,153,272,158,266,165,263,172,262,180,263,187,266,193,272,197,278,198,286,16383,16383,99,286,97,294,94,301,88,306,81,310,74,311,66,310,59,306,54,301,50,294,49,286,50,278,54,272,59,266,65,263,73,262,81,263,88,266,94,272,97,278,99,286,16383,16383,238,225,171,225,171,218,179,217,186,216,190,213,193,210,194,205,194,202,193,201,193,198,192,196,143,59,88,184,82,196,81,201,81,204,82,209,85,212,90,215,98,217,109,218,109,225,7,225,7,218,14,217,21,214,26,211,30,206,33,200,99,60,105,47,111,35,116,24,121,9,119,2,116,-8,112,-21,106,-34,100,-44,96,-51,85,-62,80,-65,75,-66,71,-66,69,-65,66,-64,62,-63,63,-63,57,-60,52,-58,42,-56,36,-56,30,-57,24,-60,19,-65,16,-72,15,-79,17,-88,21,-96,28,-102,38,-106,50,-108,71,-105,90,-94,106,-76,122,-49,137,-11,213,192,217,202,221,208,226,213,231,216,238,218,256,359,256,387,100,387,100,359,16383,16383,353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,23,259,21,258,18,256,16,250,12,242,10,235,10,226,9,226,0,16383,16383,224,128,108,128,166,266,190,253,190,281,35,281,35,253,16383,16383,221,33,216,29,208,25,200,23,195,25,190,28,187,35,185,44,184,56,184,168,183,181,180,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,208,83,213,93,217,104,218,117,216,128,211,136,202,142,190,143,173,143,146,114,135,92,126,75,118,63,112,54,105,42,97,
+148,286,150,278,150,294,150,294,150,278,153,272,150,294,153,272,153,301,153,301,153,272,158,266,153,301,158,266,159,306,159,306,158,266,165,263,159,306,165,263,165,310,165,310,165,263,172,262,165,310,172,262,173,311,173,311,172,262,180,263,173,311,180,263,181,310,181,310,180,263,187,266,181,310,187,266,188,306,188,306,187,266,193,272,188,306,193,272,193,301,193,301,193,272,197,278,193,301,197,278,197,294,197,294,197,278,198,286,49,286,50,278,50,294,50,294,50,278,54,272,50,294,54,272,54,301,54,301,54,272,59,266,54,301,59,266,59,306,59,306,59,266,65,263,59,306,65,263,66,310,66,310,65,263,73,262,66,310,73,262,74,311,74,311,73,262,81,263,74,311,81,263,81,310,81,310,81,263,88,266,81,310,88,266,88,306,88,306,88,266,94,272,88,306,94,272,94,301,94,301,94,272,97,278,94,301,97,278,97,294,97,294,97,278,99,286,90,-57,85,-62,90,-94,90,-94,85,-62,80,-65,90,-94,80,-65,75,-66,75,-66,73,-66,90,-94,90,-94,73,-66,71,-105,90,-57,106,-76,96,-51,96,-51,106,-76,100,-44,106,-34,100,-44,106,-76,106,-34,106,-76,122,-49,143,59,88,184,99,60,143,59,99,60,105,47,143,59,105,47,111,35,143,59,111,35,116,24,143,59,116,24,119,15,143,59,119,15,121,9,143,59,121,9,122,-49,143,59,122,-49,137,-11,143,59,137,-11,213,192,143,59,213,192,192,196,122,-49,121,9,119,2,99,60,88,184,86,188,99,60,86,188,84,192,99,60,84,192,82,196,99,60,82,196,81,201,99,60,81,201,33,200,33,200,81,201,81,204,81,204,82,209,33,200,33,200,82,209,85,212,33,200,85,212,109,225,109,225,85,212,90,215,109,225,90,215,98,217,194,202,193,201,213,192,213,192,193,201,193,198,213,192,193,198,192,196,238,225,171,225,179,217,238,225,179,217,186,216,238,225,186,216,190,213,238,225,190,213,193,210,238,225,193,210,194,205,238,225,194,205,226,213,238,225,226,213,231,216,238,225,231,216,238,218,194,205,213,192,217,202,194,205,217,202,221,208,194,205,221,208,226,213,194,204,194,202,213,192,194,204,213,192,194,205,122,-49,119,2,116,-8,122,-49,116,-8,112,-21,122,-49,112,-21,106,-34,71,-105,73,-66,71,-66,71,-105,71,-66,69,-65,71,-105,69,-65,66,-64,71,-105,66,-64,63,-63,71,-105,63,-63,57,-60,71,-105,57,-60,52,-58,71,-105,52,-58,50,-108,52,-58,47,-57,50,-108,50,-108,47,-57,42,-56,50,-108,42,-56,38,-106,38,-106,42,-56,36,-56,38,-106,36,-56,30,-57,38,-106,30,-57,28,-102,28,-102,30,-57,24,-60,28,-102,24,-60,21,-96,21,-96,24,-60,19,-65,21,-96,19,-65,17,-88,17,-88,19,-65,16,-72,17,-88,16,-72,15,-79,98,217,109,218,109,225,109,225,7,225,14,217,109,225,14,217,21,214,109,225,21,214,26,211,109,225,26,211,30,206,109,225,30,206,33,200,66,-64,62,-63,63,-63,14,217,7,225,7,218,90,-57,90,-94,106,-76,179,217,171,225,171,218,
+166,253,94,328,89,332,85,335,81,337,73,339,66,338,61,336,58,333,55,329,55,318,57,314,60,309,70,301,147,253,55,253,75,253,151,301,157,305,161,309,164,314,166,318,166,329,163,333,160,336,155,338,148,339,140,337,136,335,132,332,
+147,253,166,253,94,328,147,253,94,328,89,332,147,253,89,332,85,335,147,253,85,335,81,337,147,253,81,337,77,338,147,253,77,338,73,339,147,253,73,339,70,301,55,323,55,318,55,329,55,329,55,318,57,314,55,329,57,314,58,333,58,333,57,314,60,309,58,333,60,309,61,336,61,336,60,309,65,305,61,336,65,305,66,338,66,338,65,305,70,301,66,338,70,301,73,339,
+55,253,75,253,151,301,157,305,161,309,164,314,166,318,166,329,163,333,160,336,155,338,148,339,140,337,136,335,132,332,127,328,203,253,140,337,109,337,47,253,64,253,124,305,185,253,193,319,188,309,183,302,178,297,173,294,161,294,155,295,148,298,139,302,
+148,339,151,301,155,338,155,338,151,301,157,305,155,338,157,305,160,336,160,336,157,305,161,309,160,336,161,309,163,333,163,333,161,309,164,314,163,333,164,314,166,329,166,329,164,314,166,318,166,329,166,318,166,323,151,301,148,339,144,338,151,301,144,338,140,337,151,301,140,337,136,335,151,301,136,335,132,332,151,301,132,332,127,328,151,301,127,328,75,253,127,328,55,253,75,253,
+203,253,140,337,109,337,47,253,64,253,124,305,185,253,193,319,188,309,183,302,178,297,173,294,161,294,155,295,
+47,253,64,253,109,337,109,337,64,253,124,305,109,337,124,305,140,337,140,337,124,305,185,253,140,337,185,253,203,253,
+193,319,188,309,183,302,178,297,173,294,161,294,155,295,148,298,139,302,128,307,121,311,107,315,100,316,93,316,79,314,67,308,56,298,48,284,42,266,57,266,61,274,65,281,70,285,76,288,83,289,88,289,92,288,98,286,105,282,114,278,125,273,134,269,141,267,148,266,155,266,170,268,182,274,192,284,201,299,208,319,203,273,203,300,47,300,47,273,250,385,250,410,0,410,0,385,180,332,171,313,162,300,151,290,139,285,124,283,107,285,93,291,82,301,73,315,68,332,54,332,56,305,64,283,78,267,98,257,123,253,145,256,164,266,178,281,188,303,194,332,150,286,148,294,145,301,140,306,133,310,124,311,116,310,109,306,104,301,101,294,
+61,274,65,281,67,308,67,308,65,281,70,285,67,308,70,285,79,314,79,314,70,285,76,288,79,314,76,288,83,289,83,289,88,289,93,316,93,316,88,289,92,288,93,316,92,288,98,286,57,266,61,274,67,308,57,266,67,308,56,298,57,266,56,298,48,284,57,266,48,284,42,266,155,266,170,268,161,294,161,294,170,268,166,294,173,294,166,294,170,268,173,294,170,268,182,274,193,319,188,309,192,284,193,319,192,284,201,299,193,319,201,299,208,319,183,302,178,297,182,274,183,302,182,274,192,284,183,302,192,284,188,309,114,313,114,278,121,311,121,311,114,278,125,273,121,311,125,273,128,307,128,307,125,273,134,269,128,307,134,269,139,302,139,302,134,269,141,267,139,302,141,267,148,298,148,298,141,267,148,266,148,298,148,266,155,295,155,295,148,266,155,266,155,295,155,266,161,294,93,316,98,286,100,316,100,316,98,286,105,282,100,316,105,282,107,315,107,315,105,282,114,278,107,315,114,278,114,313,93,316,79,314,83,289,173,294,182,274,178,297,
+203,273,203,300,47,300,47,273,250,385,250,410,0,410,0,385,
+203,273,203,300,47,300,203,273,47,300,47,273,
+250,385,250,410,0,410,0,385,180,332,171,313,162,300,151,290,
+250,385,250,410,0,410,250,385,0,410,0,385,
+180,332,171,313,162,300,151,290,139,285,124,283,107,285,93,291,82,301,73,315,68,332,54,332,56,305,64,283,78,267,98,257,123,253,145,256,164,266,178,281,188,303,194,332,150,286,148,294,145,301,140,306,133,310,124,311,116,310,109,306,104,301,101,294,100,286,101,278,105,272,110,266,117,263,124,262,132,263,139,266,145,271,148,278,150,286,200,286,
+107,285,93,291,98,257,98,257,93,291,82,301,98,257,82,301,78,267,78,267,82,301,73,315,78,267,73,315,68,332,171,313,162,300,164,266,164,266,162,300,151,290,164,266,151,290,145,256,145,256,151,290,139,285,145,256,139,285,124,283,124,283,107,285,123,253,123,253,107,285,98,257,68,332,54,332,56,305,68,332,56,305,64,283,68,332,64,283,78,267,180,332,171,313,178,281,180,332,178,281,188,303,180,332,188,303,194,332,124,283,123,253,145,256,171,313,164,266,178,281,
+150,286,148,294,145,301,140,306,133,310,124,311,116,310,109,306,104,301,101,294,100,286,101,278,105,272,110,266,117,263,124,262,132,263,139,266,145,271,148,278,150,286,200,286,198,294,195,301,189,306,182,310,175,311,167,310,160,306,155,301,151,294,150,286,151,278,155,272,160,266,166,263,174,262,182,263,189,266,195,272,198,278,200,286,
+124,262,132,263,133,310,133,310,132,263,139,266,133,310,139,266,140,306,140,306,139,266,145,271,140,306,145,271,145,301,145,301,145,271,148,278,145,301,148,278,148,294,148,294,148,278,150,286,101,294,101,278,104,301,104,301,101,278,105,272,104,301,105,272,109,306,109,306,105,272,110,266,109,306,110,266,116,310,116,310,110,266,117,263,116,310,117,263,124,311,124,311,117,263,124,262,124,311,124,262,133,310,101,278,101,294,100,286,
+200,286,198,294,195,301,189,306,182,310,175,311,167,310,160,306,155,301,151,294,150,286,151,278,155,272,160,266,166,263,174,262,182,263,189,266,195,272,198,278,200,286,16383,16383,100,286,99,294,95,301,90,306,83,310,75,311,67,310,60,306,55,301,51,294,50,286,51,278,55,272,60,266,67,263,75,262,83,263,90,266,95,272,99,278,100,286,109,291,109,246,126,246,127,263,131,263,147,266,160,274,171,287,178,303,181,321,179,337,175,352,165,364,150,373,129,376,122,375,116,374,109,372,104,370,99,367,94,363,91,359,88,354,86,346,87,342,89,338,92,335,96,333,100,332,109,335,113,343,116,353,121,361,131,364,139,362,146,356,150,347,153,336,153,325,152,314,146,304,138,297,128,292,
+75,311,75,262,83,310,83,310,75,262,83,263,83,310,83,263,90,306,90,306,83,263,90,266,90,306,90,266,95,301,95,301,90,266,95,272,95,301,95,272,99,294,99,294,95,272,99,278,99,294,99,278,100,286,50,286,51,278,51,294,51,294,51,278,55,272,51,294,55,272,55,301,55,301,55,272,60,266,55,301,60,266,60,306,60,306,60,266,67,263,60,306,67,263,67,310,67,310,67,263,75,262,67,310,75,262,75,311,150,286,151,278,151,294,151,294,151,278,155,272,151,294,155,272,155,301,155,301,155,272,160,266,155,301,160,266,160,306,160,306,160,266,166,263,160,306,166,263,167,310,167,310,166,263,174,262,167,310,174,262,175,311,175,311,174,262,182,263,175,311,182,263,182,310,182,310,182,263,189,266,182,310,189,266,189,306,189,306,189,266,195,272,189,306,195,272,195,301,195,301,195,272,198,278,195,301,198,278,198,294,198,294,198,278,200,286,
+109,291,109,246,126,246,127,263,131,263,147,266,160,274,171,287,178,303,181,321,179,337,175,352,165,364,150,373,129,376,122,375,116,374,109,372,104,370,99,367,94,363,91,359,88,354,86,346,87,342,89,338,92,335,96,333,100,332,109,335,113,343,116,353,121,361,131,364,139,362,146,356,150,347,153,336,153,325,152,314,146,304,138,297,128,292,116,291,175,305,173,321,165,335,155,346,141,353,126,355,110,353,96,346,85,335,78,322,75,306,78,290,85,276,95,266,109,259,124,256,140,259,154,266,165,276,173,290,175,305,16383,16383,158,306,156,295,152,286,144,279,135,275,124,273,114,275,106,279,99,286,94,295,93,306,94,316,99,325,106,332,115,337,124,339,135,337,144,332,151,325,156,316,158,306,118,253,
+131,364,129,376,122,375,131,364,122,375,121,361,131,364,150,373,129,376,121,361,122,375,116,353,116,353,122,375,116,374,116,353,116,374,113,343,113,343,116,374,109,372,113,343,109,372,109,335,109,335,109,372,104,370,109,335,104,370,100,332,100,332,104,370,99,367,100,332,99,367,96,333,96,333,99,367,94,363,96,333,94,363,92,335,92,335,94,363,91,359,92,335,91,359,89,338,89,338,91,359,88,354,89,338,88,354,87,342,87,342,88,354,87,350,87,342,87,350,86,346,181,321,179,337,178,303,178,303,179,337,175,352,178,303,175,352,171,287,171,287,175,352,165,364,171,287,165,364,160,274,160,274,165,364,153,325,153,336,153,325,165,364,153,336,165,364,150,373,153,336,150,373,150,347,150,373,131,364,139,362,150,373,139,362,146,356,150,373,146,356,150,347,152,314,146,304,147,266,152,314,147,266,160,274,152,314,160,274,153,325,126,246,127,263,128,292,128,292,127,263,131,263,128,292,131,263,138,297,138,297,131,263,147,266,138,297,147,266,146,304,126,246,128,292,116,291,126,246,116,291,109,291,126,246,109,291,109,246,
+175,305,173,321,165,335,155,346,141,353,126,355,110,353,96,346,85,335,78,322,75,306,78,290,85,276,95,266,109,259,124,256,140,259,154,266,165,276,173,290,175,305,16383,16383,158,306,156,295,152,286,144,279,135,275,124,273,114,275,106,279,99,286,94,295,93,306,94,316,99,325,106,332,115,337,124,339,135,337,144,332,151,325,156,316,158,306,118,253,137,253,214,301,220,305,224,310,227,314,229,324,228,329,226,333,222,336,218,338,212,339,208,339,204,338,200,336,196,333,190,328,16383,16383,40,253,60,253,137,301,142,305,146,310,149,314,151,319,151,324,150,329,148,333,144,336,140,338,134,339,130,339,126,338,123,336,118,333,113,328,203,337,185,337,125,286,65,337,47,337,109,253,141,253,
+156,295,152,286,154,266,154,266,152,286,144,279,154,266,144,279,140,259,140,259,144,279,135,275,140,259,135,275,124,256,124,256,135,275,124,273,126,355,124,339,135,337,126,355,135,337,141,353,141,353,135,337,144,332,141,353,144,332,155,346,155,346,144,332,151,325,155,346,151,325,156,316,175,305,173,321,173,290,173,290,173,321,165,335,173,290,165,335,165,276,165,276,165,335,158,306,156,316,158,306,165,335,156,316,165,335,155,346,156,295,154,266,165,276,156,295,165,276,158,306,99,325,106,332,110,353,110,353,106,332,115,337,110,353,115,337,126,355,126,355,115,337,124,339,96,346,85,335,93,306,96,346,93,306,94,316,96,346,94,316,99,325,96,346,99,325,110,353,99,286,94,295,95,266,95,266,94,295,93,306,114,275,106,279,109,259,114,275,109,259,124,256,114,275,124,256,124,273,99,286,95,266,109,259,99,286,109,259,106,279,75,306,78,290,78,322,78,322,78,290,85,276,78,322,85,276,85,335,85,335,85,276,95,266,85,335,95,266,93,306,
+118,253,137,253,214,301,220,305,224,310,227,314,229,324,228,329,226,333,222,336,218,338,212,339,208,339,204,338,200,336,196,333,190,328,16383,16383,40,253,60,253,137,301,142,305,146,310,149,314,151,319,151,324,150,329,148,333,144,336,140,338,134,339,130,339,126,338,123,336,118,333,113,328,203,337,185,337,125,286,65,337,47,337,109,253,141,253,142,250,142,350,115,350,115,250,174,250,174,350,146,350,146,250,16383,16383,104,250,104,350,77,350,77,250,229,253,156,328,151,333,146,336,142,338,138,339,134,339,129,338,124,336,121,333,119,329,118,324,118,319,120,314,123,310,127,305,
+212,339,214,301,218,338,218,338,214,301,220,305,218,338,220,305,222,336,222,336,220,305,224,310,222,336,224,310,226,333,226,333,224,310,227,314,226,333,227,314,228,329,228,329,227,314,228,319,228,329,228,319,229,324,214,301,212,339,208,339,214,301,208,339,204,338,214,301,204,338,200,336,214,301,200,336,196,333,214,301,196,333,190,328,214,301,190,328,137,253,134,339,137,301,140,338,140,338,137,301,142,305,140,338,142,305,144,336,144,336,142,305,146,310,144,336,146,310,148,333,148,333,146,310,149,314,148,333,149,314,150,329,150,329,149,314,151,319,150,329,151,319,151,324,137,301,134,339,130,339,137,301,130,339,126,338,137,301,126,338,123,336,137,301,123,336,118,333,137,301,118,333,113,328,137,301,113,328,60,253,60,253,113,328,40,253,137,253,190,328,118,253,
+203,337,185,337,125,286,65,337,47,337,109,253,141,253,142,250,142,350,115,350,115,250,174,250,174,350,146,350,
+203,337,185,337,141,253,141,253,185,337,125,286,141,253,125,286,109,253,109,253,125,286,65,337,109,253,65,337,47,337,
+142,250,142,350,115,350,115,250,174,250,174,350,146,350,146,250,
+142,250,142,350,115,350,142,250,115,350,115,250,
+174,250,174,350,146,350,146,250,16383,16383,104,250,104,350,77,350,77,250,229,253,156,328,151,333,146,336,142,338,138,339,134,339,129,338,124,336,
+146,350,146,250,174,250,146,350,174,250,174,350,77,350,77,250,104,250,77,350,104,250,104,350,
+229,253,156,328,151,333,146,336,142,338,138,339,134,339,129,338,124,336,121,333,119,329,118,324,118,319,120,314,123,310,127,305,132,301,209,253,16383,16383,151,253,78,328,73,333,68,336,64,338,60,339,56,339,51,338,46,336,43,333,40,329,40,319,42,314,44,310,49,305,54,301,131,253,150,358,148,366,145,373,140,379,133,382,124,383,116,382,109,379,104,373,101,366,100,358,101,351,105,344,110,339,117,335,124,334,132,335,139,339,145,344,148,350,150,358,16383,16383,180,332,171,313,162,300,151,290,139,285,124,283,107,285,93,291,82,301,73,315,68,332,54,332,56,305,64,283,
+209,253,229,253,156,328,209,253,156,328,151,333,209,253,151,333,146,336,209,253,146,336,142,338,209,253,142,338,138,339,209,253,138,339,134,339,209,253,134,339,132,301,118,324,118,319,119,329,119,329,118,319,120,314,119,329,120,314,121,333,121,333,120,314,123,310,121,333,123,310,124,336,124,336,123,310,127,305,124,336,127,305,129,338,129,338,127,305,132,301,129,338,132,301,134,339,131,253,151,253,78,328,131,253,78,328,73,333,131,253,73,333,68,336,131,253,68,336,64,338,131,253,64,338,60,339,131,253,60,339,56,339,131,253,56,339,54,301,40,324,40,319,40,329,40,329,40,319,42,314,40,329,42,314,43,333,43,333,42,314,44,310,43,333,44,310,46,336,46,336,44,310,49,305,46,336,49,305,51,338,51,338,49,305,54,301,51,338,54,301,56,339,
+353,0,353,9,340,12,330,17,321,26,314,38,306,55,184,337,174,337,70,93,55,58,44,34,33,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,99,108,230,108,251,61,257,45,259,38,260,31,261,26,260,22,258,18,256,15,252,13,248,12,226,9,226,0,16383,16383,224,128,108,128,166,266,211,175,235,181,254,191,268,205,277,224,280,248,274,277,258,300,232,317,195,327,148,331,8,331,8,321,29,320,43,316,51,308,55,295,56,275,56,56,55,37,51,24,42,16,29,11,8,9,8,0,177,0,217,4,250,15,275,34,291,58,296,89,292,116,281,138,263,155,239,167,211,174,16383,16383,108,183,108,303,109,307,112,310,115,312,119,313,162,310,192,302,
+55,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,174,337,76,51,99,108,174,337,99,108,108,128,108,128,99,108,230,108,108,128,230,108,224,128,224,128,230,108,306,55,224,128,306,55,184,337,258,18,256,15,353,0,353,0,256,15,252,13,353,0,252,13,248,12,261,26,353,0,330,17,261,26,330,17,321,26,261,26,321,26,314,38,261,26,314,38,306,55,261,26,306,55,260,31,306,55,230,108,251,61,306,55,251,61,254,53,306,55,254,53,257,45,306,55,257,45,259,38,306,55,259,38,260,31,174,337,108,128,166,266,174,337,166,266,224,128,174,337,224,128,184,337,70,93,55,58,72,30,70,93,74,43,75,47,70,93,75,47,76,51,70,93,76,51,174,337,340,12,330,17,353,0,340,12,353,0,353,9,260,22,258,18,353,0,260,22,353,0,261,26,226,9,226,0,353,0,226,9,353,0,248,12,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,44,34,107,0,44,34,33,20,107,0,33,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,55,58,
+211,175,235,181,254,191,268,205,277,224,280,248,274,277,258,300,232,317,195,327,148,331,8,331,8,321,29,320,43,316,51,308,55,295,56,275,56,56,55,37,51,24,42,16,29,11,8,9,8,0,177,0,217,4,250,15,275,34,291,58,296,89,292,116,281,138,263,155,239,167,211,174,16383,16383,108,183,108,303,109,307,112,310,115,312,119,313,162,310,192,302,213,289,225,270,228,245,225,223,214,205,197,193,172,186,139,183,16383,16383,108,163,140,163,171,161,198,155,220,142,234,121,239,89,234,59,220,39,198,26,170,20,138,18,126,19,118,21,112,26,109,32,108,41,289,247,286,331,6,331,6,321,25,319,38,315,45,307,49,294,50,276,50,62,49,40,45,25,37,16,25,12,6,9,6,0,146,0,146,9,126,11,113,16,105,24,101,37,100,56,100,292,101,300,103,306,106,310,111,311,118,312,206,312,232,310,251,303,264,291,272,273,276,247,338,0,184,337,174,337,24,0,16383,16383,262,46,68,46,166,266,299,84,285,84,271,57,254,38,230,26,197,20,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,
+51,24,42,16,177,0,177,0,42,16,29,11,177,0,29,11,8,9,55,295,56,275,112,310,55,295,112,310,148,331,148,331,112,310,115,312,148,331,115,312,119,313,119,313,162,310,148,331,148,331,162,310,195,327,239,89,234,59,250,15,250,15,234,59,220,39,250,15,220,39,217,4,217,4,220,39,198,26,217,4,198,26,177,0,177,0,198,26,170,20,177,0,170,20,138,18,138,18,126,19,177,0,177,0,126,19,118,21,177,0,118,21,55,37,55,37,118,21,56,56,213,289,225,270,232,317,232,317,225,270,228,245,235,181,228,245,225,223,195,327,162,310,192,302,195,327,192,302,213,289,195,327,213,289,232,317,235,181,254,191,258,300,258,300,254,191,268,205,258,300,268,205,274,277,274,277,268,205,277,224,274,277,277,224,280,248,232,317,228,245,235,181,232,317,235,181,258,300,234,121,239,167,220,142,220,142,239,167,211,174,220,142,211,174,198,155,198,155,211,174,211,175,198,155,211,175,214,205,214,205,211,175,235,181,214,205,235,181,225,223,140,163,171,161,172,186,172,186,171,161,198,155,172,186,198,155,197,193,197,193,198,155,214,205,140,163,172,186,139,183,140,163,139,183,108,183,140,163,108,183,108,163,109,32,108,41,56,275,109,32,56,275,56,56,296,89,292,116,291,58,291,58,292,116,281,138,291,58,281,138,275,34,275,34,281,138,263,155,275,34,263,155,250,15,250,15,263,155,239,167,250,15,239,167,239,89,56,56,118,21,112,26,56,56,112,26,109,32,56,275,108,41,108,296,56,275,108,296,108,303,56,275,108,303,109,307,56,275,109,307,112,310,148,331,8,331,29,320,148,331,29,320,43,316,148,331,43,316,51,308,148,331,51,308,55,295,29,320,8,331,8,321,177,0,8,9,8,0,51,24,177,0,55,37,239,167,234,121,239,89,
+289,247,286,331,6,331,6,321,25,319,38,315,45,307,49,294,50,276,50,62,49,40,45,25,37,16,25,12,6,9,6,0,146,0,146,9,126,11,113,16,105,24,101,37,100,56,100,292,101,300,103,306,106,310,111,311,118,312,206,312,232,310,251,303,264,291,272,273,276,247,338,0,184,337,174,337,24,0,16383,16383,262,46,68,46,166,266,299,84,285,84,271,57,254,38,230,26,197,20,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,
+38,315,45,307,286,331,286,331,45,307,111,311,286,331,111,311,118,312,286,331,118,312,206,312,286,331,206,312,232,310,286,331,232,310,251,303,286,331,251,303,264,291,286,331,264,291,272,273,286,331,272,273,276,247,286,331,276,247,289,247,100,56,100,292,50,276,50,276,100,292,101,300,50,276,101,300,103,306,50,276,103,306,106,310,50,276,106,310,49,294,50,276,101,37,100,56,111,311,45,307,49,294,111,311,49,294,106,310,25,319,38,315,286,331,25,319,286,331,6,331,25,319,6,331,6,321,146,0,146,9,126,11,146,0,126,11,113,16,146,0,113,16,49,40,146,0,49,40,45,25,146,0,45,25,37,16,146,0,37,16,25,12,146,0,25,12,6,9,146,0,6,9,6,0,50,62,49,40,113,16,50,62,113,16,105,24,50,62,105,24,101,37,50,62,101,37,50,276,
+338,0,184,337,174,337,24,0,16383,16383,262,46,68,46,166,266,299,84,285,84,271,57,254,38,230,26,197,20,151,18,132,19,
+174,337,24,0,68,46,68,46,24,0,338,0,68,46,338,0,262,46,262,46,338,0,184,337,262,46,184,337,174,337,174,337,68,46,166,266,174,337,166,266,262,46,
+299,84,285,84,271,57,254,38,230,26,197,20,151,18,132,19,117,21,108,25,102,31,100,42,100,164,176,164,198,162,213,158,222,150,229,136,233,115,244,115,244,232,233,232,229,212,222,198,213,190,198,185,176,184,100,184,100,294,101,302,103,307,106,310,111,312,118,312,179,311,219,306,243,297,255,282,261,259,273,259,271,331,6,331,6,321,25,320,38,315,45,307,49,294,50,275,50,57,49,37,45,24,38,16,25,12,6,9,6,0,276,0,299,88,287,88,282,72,278,59,273,49,266,40,257,33,249,28,240,24,228,21,215,20,199,19,73,19,289,324,289,331,26,331,16,246,29,246,32,260,35,271,38,279,43,287,50,295,58,301,68,306,81,309,97,311,117,312,224,312,5,7,5,0,286,0,352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,211,331,211,321,231,319,244,315,251,307,255,294,256,274,256,180,104,180,104,274,
+45,24,38,16,276,0,276,0,38,16,25,12,276,0,25,12,6,9,38,315,45,307,271,331,271,331,45,307,111,312,271,331,111,312,118,312,118,312,179,311,271,331,271,331,179,311,219,306,271,331,219,306,243,297,271,331,243,297,255,282,271,331,255,282,261,259,271,331,261,259,273,259,45,24,117,21,49,37,49,37,117,21,108,25,49,37,108,25,50,57,50,57,108,25,102,31,50,57,102,31,50,275,50,275,102,31,100,42,50,275,100,42,100,294,100,184,100,164,176,164,100,184,176,164,176,184,198,185,176,184,198,162,198,185,198,162,213,190,213,190,198,162,213,158,213,190,213,158,222,198,222,198,213,158,222,150,222,198,222,150,229,212,229,212,222,150,229,136,229,212,229,136,233,232,233,232,229,136,233,115,233,232,233,115,244,115,50,275,100,294,101,302,50,275,101,302,103,307,50,275,103,307,106,310,50,275,106,310,49,294,106,310,111,312,45,307,106,310,45,307,49,294,25,320,38,315,271,331,25,320,271,331,6,331,25,320,6,331,6,321,254,38,230,26,276,0,276,0,230,26,197,20,276,0,197,20,151,18,151,18,132,19,276,0,276,0,132,19,117,21,276,0,117,21,45,24,276,0,299,84,285,84,276,0,285,84,271,57,276,0,271,57,254,38,176,184,176,164,198,162,233,232,244,115,244,232,276,0,6,9,6,0,
+299,88,287,88,282,72,278,59,273,49,266,40,257,33,249,28,240,24,228,21,215,20,199,19,73,19,289,324,289,331,26,331,16,246,29,246,32,260,35,271,38,279,43,287,50,295,58,301,68,306,81,309,97,311,117,312,224,312,5,7,5,0,286,0,352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,211,331,211,321,231,319,244,315,251,307,255,294,256,274,256,180,104,180,104,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,
+35,271,38,279,26,331,26,331,38,279,43,287,26,331,43,287,50,295,50,295,58,301,26,331,26,331,58,301,68,306,26,331,68,306,81,309,73,19,289,324,224,312,224,312,289,324,289,331,224,312,289,331,117,312,97,311,117,312,289,331,97,311,289,331,26,331,26,331,16,246,29,246,26,331,29,246,32,260,26,331,32,260,35,271,224,312,5,7,73,19,73,19,5,7,286,0,73,19,286,0,199,19,199,19,286,0,215,20,278,59,273,49,286,0,286,0,273,49,266,40,286,0,266,40,257,33,257,33,249,28,286,0,286,0,249,28,240,24,286,0,240,24,228,21,286,0,299,88,287,88,286,0,287,88,282,72,286,0,282,72,278,59,286,0,5,7,5,0,215,20,286,0,228,21,26,331,81,309,97,311,
+352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,211,331,211,321,231,319,244,315,251,307,255,294,256,274,256,180,104,180,104,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,28,319,41,315,49,307,53,294,54,274,54,61,53,39,49,25,42,16,29,12,9,9,9,0,148,0,148,9,129,12,117,17,109,25,105,38,104,56,104,157,256,157,256,62,255,41,252,26,244,17,232,12,212,9,212,0,251,118,249,129,247,142,245,170,245,189,246,197,247,204,251,220,238,220,235,211,231,203,226,197,218,193,209,191,156,191,146,192,139,196,133,201,129,209,124,220,112,220,114,210,116,197,117,184,117,172,118,161,118,153,115,126,113,118,125,118,129,129,134,138,139,144,146,148,156,149,209,149,219,148,226,144,231,137,235,128,238,118,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,
+49,25,42,16,148,0,148,0,42,16,29,12,148,0,29,12,9,9,149,331,9,331,28,319,149,331,28,319,41,315,149,331,41,315,49,307,149,331,49,307,53,294,149,331,53,294,118,315,149,331,118,315,130,319,149,331,130,319,149,321,54,274,105,38,104,56,104,180,104,157,256,157,104,180,256,157,256,180,256,180,256,157,312,25,256,180,312,25,308,37,54,274,104,56,104,274,54,274,104,274,106,294,54,274,106,294,110,307,54,274,110,307,118,315,54,274,118,315,53,294,252,26,244,17,352,0,352,0,244,17,232,12,352,0,232,12,212,9,333,319,352,321,352,331,333,319,352,331,320,315,320,315,352,331,255,294,320,315,255,294,256,274,308,37,256,274,256,180,307,55,307,274,256,274,256,274,307,274,308,293,256,274,308,293,312,307,352,331,211,331,231,319,352,331,231,319,244,315,352,331,244,315,251,307,352,331,251,307,255,294,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,255,41,352,0,255,41,252,26,256,62,255,41,320,17,256,62,320,17,312,25,256,62,312,25,256,157,148,0,148,9,129,12,148,0,129,12,117,17,148,0,117,17,53,39,148,0,53,39,49,25,54,61,53,39,117,17,54,61,117,17,109,25,54,61,109,25,105,38,54,61,105,38,54,274,148,0,9,9,9,0,352,0,212,9,212,0,256,274,308,37,307,55,231,319,211,331,211,321,320,315,256,274,312,307,28,319,9,331,9,321,
+251,118,249,129,247,142,245,170,245,189,246,197,247,204,251,220,238,220,235,211,231,203,226,197,218,193,209,191,156,191,146,192,139,196,133,201,129,209,124,220,112,220,114,210,116,197,117,184,117,172,118,161,118,153,115,126,113,118,125,118,129,129,134,138,139,144,146,148,156,149,209,149,219,148,226,144,231,137,235,128,238,118,16383,16383,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,362,0,362,9,349,11,336,16,322,25,305,41,283,64,166,192,259,281,278,298,292,309,305,316,320,320,338,321,338,331,208,331,208,321,220,321,229,320,235,318,238,315,240,311,241,305,239,298,234,289,226,280,202,256,113,174,113,293,117,307,124,315,137,319,158,321,158,331,17,331,17,321,37,319,50,315,57,306,61,293,62,275,62,63,61,40,57,26,50,17,36,12,17,9,17,0,157,0,157,9,139,12,126,16,118,23,114,36,113,55,113,148,126,158,176,107,198,84,217,63,232,46,241,32,244,22,244,18,241,15,237,12,231,11,224,10,210,9,210,0,344,0,344,9,330,12,320,17,311,26,304,38,296,55,179,337,
+207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,134,308,149,314,180,338,180,338,149,314,164,318,180,338,164,318,180,320,180,320,194,319,235,330,235,330,194,319,207,316,235,330,180,338,180,320,247,142,246,156,238,220,238,220,246,156,245,170,238,220,245,170,245,180,245,180,245,189,238,220,238,220,245,189,246,197,238,220,246,197,247,204,249,212,251,220,238,220,249,212,238,220,247,204,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,234,1,235,26,223,19,234,1,223,19,209,15,234,1,209,15,196,12,234,1,196,12,181,11,234,1,181,11,180,-6,226,144,231,137,231,203,231,203,231,137,235,128,231,203,235,128,235,211,235,211,235,128,238,118,235,211,238,118,238,220,238,220,238,118,249,129,238,220,249,129,247,142,156,149,209,149,209,191,218,193,209,191,219,148,218,193,219,148,226,197,226,197,219,148,226,144,226,197,226,144,231,203,209,191,156,191,156,149,146,148,156,149,156,191,146,148,156,191,146,192,146,148,146,192,139,144,139,144,146,192,139,196,139,144,139,196,134,138,134,138,139,196,133,201,134,138,133,201,129,129,129,129,133,201,129,209,129,129,129,209,125,118,125,118,129,209,124,220,125,118,124,220,118,161,118,161,124,220,117,172,124,220,112,220,114,210,124,220,114,210,116,197,124,220,116,197,117,184,124,220,117,184,117,172,125,118,118,161,118,153,125,118,118,153,117,144,125,118,117,144,116,135,125,118,116,135,115,126,125,118,115,126,113,118,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,154,15,180,-6,167,12,167,12,180,-6,181,11,142,19,130,25,180,-6,142,19,180,-6,154,15,81,24,74,166,46,61,126,330,134,308,180,338,209,191,209,149,219,148,249,129,238,118,251,118,
+157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,362,0,362,9,349,11,336,16,322,25,305,41,283,64,166,192,259,281,278,298,292,309,305,316,320,320,338,321,338,331,208,331,208,321,220,321,229,320,235,318,238,315,240,311,241,305,239,298,234,289,226,280,202,256,
+52,23,44,15,157,0,157,0,44,15,30,11,157,0,30,11,9,9,157,331,9,331,30,320,157,331,30,320,44,316,157,331,44,316,53,308,157,331,53,308,57,295,157,331,57,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,57,295,157,0,157,9,137,11,157,0,137,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,9,9,9,0,56,36,122,16,57,56,30,320,9,331,9,321,
+362,0,362,9,349,11,336,16,322,25,305,41,283,64,166,192,259,281,278,298,292,309,305,316,320,320,338,321,338,331,208,331,208,321,220,321,229,320,235,318,238,315,240,311,241,305,239,298,234,289,226,280,202,256,113,174,113,293,117,307,124,315,137,319,158,321,158,331,17,331,17,321,37,319,50,315,57,306,61,293,62,275,62,63,61,40,57,26,50,17,36,12,17,9,17,0,157,0,157,9,139,12,126,16,118,23,114,36,113,55,113,148,126,158,176,107,198,84,217,63,232,46,241,32,244,22,244,18,241,15,237,12,231,11,224,10,210,9,210,0,344,0,344,9,330,12,320,17,311,26,304,38,296,55,179,337,169,337,70,93,56,58,44,34,34,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,160,267,161,267,241,61,244,51,247,44,249,37,250,31,251,26,249,18,244,13,236,11,227,10,216,9,216,0,432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,
+158,321,158,321,137,319,137,319,158,321,158,331,137,319,158,331,124,315,124,315,158,331,61,293,124,315,61,293,62,275,114,36,62,275,62,63,114,36,62,63,118,23,118,23,62,63,126,16,62,275,114,36,113,55,113,174,113,148,126,158,113,174,126,158,202,256,202,256,126,158,166,192,202,256,166,192,259,281,62,275,113,55,113,274,62,275,113,274,113,293,62,275,113,293,117,307,62,275,117,307,124,315,158,331,17,331,37,319,158,331,37,319,50,315,158,331,50,315,57,306,158,331,57,306,61,293,234,289,226,280,259,281,259,281,226,280,215,269,259,281,215,269,202,256,338,331,208,331,220,321,338,331,220,321,229,320,338,331,229,320,235,318,338,331,235,318,238,315,338,331,238,315,240,311,338,331,240,311,241,305,338,331,241,305,305,316,338,331,305,316,320,320,338,331,320,320,338,321,241,305,259,281,278,298,241,305,278,298,292,309,241,305,292,309,305,316,239,298,234,289,259,281,239,298,259,281,241,305,241,15,237,12,362,0,362,0,237,12,231,11,362,0,231,11,224,10,244,22,362,0,336,16,244,22,336,16,322,25,244,22,322,25,305,41,244,22,305,41,283,64,244,22,283,64,241,32,283,64,166,192,176,107,283,64,176,107,198,84,283,64,198,84,217,63,283,64,217,63,232,46,283,64,232,46,241,32,349,11,336,16,362,0,349,11,362,0,362,9,244,18,241,15,362,0,244,18,362,0,244,22,210,9,210,0,362,0,210,9,362,0,224,10,157,0,157,9,139,12,157,0,139,12,126,16,157,0,126,16,61,40,157,0,61,40,57,26,157,0,57,26,50,17,157,0,50,17,36,12,157,0,36,12,17,9,157,0,17,9,17,0,61,40,126,16,62,63,176,107,166,192,126,158,220,321,208,331,208,321,37,319,17,331,17,321,
+344,0,344,9,330,12,320,17,311,26,304,38,296,55,179,337,169,337,70,93,56,58,44,34,34,20,22,13,7,9,7,0,107,0,107,9,94,10,84,12,77,16,73,22,72,30,72,34,73,38,74,43,76,51,160,267,161,267,241,61,244,51,247,44,249,37,250,31,251,26,249,18,244,13,236,11,227,10,216,9,216,0,432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,6,9,6,0,123,0,123,9,103,12,90,18,82,29,78,48,76,75,76,275,203,0,209,0,
+56,58,73,22,72,30,72,30,72,34,70,93,70,93,72,34,73,38,70,93,73,38,74,43,161,267,169,337,160,267,160,267,169,337,76,51,75,47,76,51,169,337,75,47,169,337,70,93,251,26,344,0,320,17,251,26,320,17,311,26,251,26,311,26,304,38,251,26,304,38,296,55,251,26,296,55,250,31,296,55,179,337,241,61,296,55,241,61,244,51,296,55,244,51,247,44,296,55,247,44,249,37,296,55,249,37,250,31,169,337,161,267,241,61,169,337,241,61,179,337,70,93,56,58,72,30,330,12,320,17,344,0,330,12,344,0,344,9,249,18,244,13,344,0,249,18,344,0,251,26,344,0,244,13,236,11,344,0,236,11,227,10,344,0,227,10,216,9,344,0,216,9,216,0,107,0,107,9,94,10,107,0,94,10,84,12,107,0,84,12,34,20,107,0,34,20,22,13,107,0,22,13,7,9,107,0,7,9,7,0,44,34,34,20,84,12,44,34,84,12,77,16,44,34,77,16,73,22,44,34,73,22,56,58,75,47,70,93,74,43,
+432,0,432,9,413,12,401,17,393,25,389,38,388,56,388,275,389,294,393,307,401,316,413,320,431,321,431,331,332,331,222,80,106,331,7,331,7,321,28,319,42,315,50,307,54,294,55,275,55,75,54,47,49,29,41,18,27,12,6,9,6,0,123,0,123,9,103,12,90,18,82,29,78,48,76,75,76,275,203,0,209,0,337,286,337,61,336,40,333,26,325,17,312,12,292,9,292,0,353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,103,13,90,20,82,31,78,49,76,75,76,269,297,-5,306,-5,306,274,308,289,311,299,315,307,320,313,324,315,329,318,335,319,343,320,353,321,295,247,295,331,
+49,29,41,18,123,0,123,0,41,18,27,12,123,0,27,12,6,9,333,26,325,17,432,0,432,0,325,17,312,12,432,0,312,12,292,9,413,320,431,321,431,331,413,320,431,331,401,316,401,316,431,331,337,286,401,316,337,286,393,307,393,307,337,286,389,294,401,17,393,25,337,61,337,61,393,25,389,38,337,61,389,38,337,286,337,286,389,38,388,56,337,286,388,56,388,275,203,0,209,0,222,80,222,80,209,0,337,286,222,80,337,286,332,331,332,331,337,286,431,331,106,331,7,331,28,319,106,331,28,319,42,315,106,331,42,315,50,307,106,331,50,307,54,294,106,331,54,294,55,275,106,331,55,275,76,275,106,331,76,275,203,0,106,331,203,0,222,80,76,75,76,275,55,275,76,75,55,275,78,48,78,48,55,275,55,75,78,48,55,75,82,29,82,29,55,75,54,47,82,29,54,47,90,18,90,18,54,47,49,29,90,18,49,29,123,0,432,0,432,9,413,12,432,0,413,12,401,17,432,0,401,17,336,40,432,0,336,40,333,26,103,12,90,18,123,0,103,12,123,0,123,9,123,0,6,9,6,0,432,0,292,9,292,0,336,40,401,17,337,61,28,319,7,331,7,321,389,294,337,286,388,275,
+353,331,235,331,235,321,247,320,256,319,263,317,275,309,278,303,281,295,283,285,284,274,284,89,91,331,6,331,6,321,19,321,29,318,37,313,46,306,55,295,55,75,54,48,49,30,41,19,27,13,6,9,6,0,123,0,123,9,103,13,90,20,82,31,78,49,76,75,76,269,297,-5,306,-5,306,274,308,289,311,299,315,307,320,313,324,315,329,318,335,319,343,320,353,321,295,247,295,331,26,331,26,246,39,246,43,263,48,276,55,284,66,289,79,290,242,290,256,289,266,284,274,276,279,263,282,247,16383,16383,252,109,252,225,240,225,239,211,235,200,229,193,219,189,207,188,114,188,102,189,93,193,87,200,83,211,81,225,70,225,70,109,81,109,84,122,87,132,93,140,101,146,113,147,205,147,218,146,227,141,234,133,239,123,240,109,16383,16383,307,0,
+49,30,41,19,123,0,123,0,41,19,27,13,123,0,27,13,6,9,256,319,263,317,353,331,353,331,263,317,269,313,353,331,269,313,275,309,275,309,278,303,353,331,353,331,278,303,281,295,353,331,281,295,324,315,324,315,281,295,320,313,324,315,320,313,320,312,320,312,320,313,315,307,315,307,320,313,284,274,315,307,284,274,284,259,297,-5,284,259,284,89,297,-5,284,89,91,331,353,331,324,315,329,318,353,331,329,318,335,319,353,331,335,319,343,320,353,331,343,320,353,321,306,-5,306,253,297,-5,297,-5,306,253,306,274,297,-5,306,274,284,259,284,259,306,274,308,289,284,259,308,289,311,299,283,285,284,274,320,313,283,285,320,313,281,295,247,320,256,319,353,331,247,320,353,331,235,331,247,320,235,331,235,321,91,331,6,331,19,321,91,331,19,321,29,318,91,331,29,318,37,313,91,331,37,313,46,306,91,331,46,306,55,295,91,331,55,295,76,269,91,331,76,269,297,-5,55,295,78,49,76,75,54,48,49,30,90,20,90,20,49,30,123,0,90,20,123,0,103,13,103,13,123,0,123,9,55,75,54,48,82,31,55,75,82,31,78,49,55,75,78,49,55,295,123,0,6,9,6,0,54,48,90,20,82,31,19,321,6,331,6,321,76,269,55,295,76,75,315,307,284,259,311,299,
+295,247,295,331,26,331,26,246,39,246,43,263,48,276,55,284,66,289,79,290,242,290,256,289,266,284,274,276,279,263,282,247,16383,16383,252,109,252,225,240,225,239,211,235,200,229,193,219,189,207,188,114,188,102,189,93,193,87,200,83,211,81,225,70,225,70,109,81,109,84,122,87,132,93,140,101,146,113,147,205,147,218,146,227,141,234,133,239,123,240,109,16383,16383,307,0,307,85,295,85,293,70,287,57,278,49,265,44,248,42,70,42,56,44,44,49,35,57,29,69,27,85,15,85,15,0,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,
+295,331,26,331,66,289,295,331,66,289,79,290,295,331,79,290,242,290,295,331,242,290,256,289,295,331,256,289,266,284,295,331,266,284,274,276,295,331,274,276,279,263,295,331,279,263,282,247,295,331,282,247,295,247,26,331,26,246,39,246,26,331,39,246,43,263,26,331,43,263,48,276,26,331,48,276,55,284,26,331,55,284,66,289,219,189,207,188,218,146,218,146,207,188,205,147,205,147,207,188,114,188,205,147,114,188,113,147,101,146,113,147,102,189,101,146,102,189,93,193,83,211,84,122,87,200,87,200,84,122,87,132,87,200,87,132,93,193,93,193,87,132,93,140,93,193,93,140,101,146,83,211,81,225,84,122,84,122,81,225,81,109,81,109,81,225,70,225,81,109,70,225,70,109,240,225,239,211,240,109,240,225,240,109,252,109,240,225,252,109,252,225,240,109,239,211,239,123,239,123,239,211,235,200,239,123,235,200,234,133,234,133,235,200,229,193,234,133,229,193,227,141,227,141,229,193,219,189,227,141,219,189,218,146,287,57,278,49,307,0,307,0,278,49,265,44,307,0,265,44,248,42,307,0,307,85,295,85,307,0,295,85,293,70,307,0,293,70,287,57,248,42,70,42,307,0,307,0,70,42,56,44,307,0,56,44,15,0,15,0,56,44,44,49,15,0,44,49,35,57,15,0,35,57,15,85,15,85,35,57,29,69,15,85,29,69,27,85,113,147,114,188,102,189,
+344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,9,331,9,321,28,319,41,315,49,307,53,294,54,274,54,61,53,39,49,25,42,16,29,12,9,9,9,0,148,0,148,9,129,12,117,17,109,25,105,38,104,56,104,296,105,303,107,307,111,310,116,312,238,312,245,311,251,310,254,306,256,301,256,62,255,41,252,26,244,17,232,12,212,9,212,0,8,331,8,321,27,319,39,315,46,307,49,294,50,276,50,39,47,25,40,16,27,12,
+149,314,180,338,134,308,134,308,180,338,126,330,134,308,126,330,121,298,121,298,126,330,108,286,97,269,108,286,126,330,97,269,126,330,81,307,81,102,81,24,90,75,90,75,81,24,126,1,90,75,126,1,103,52,103,52,126,1,119,33,130,25,119,33,126,1,130,25,126,1,180,-6,207,316,235,330,194,319,194,319,235,330,180,320,164,318,180,320,180,338,164,318,180,338,149,314,81,307,46,271,46,61,81,307,46,61,74,166,81,307,74,166,76,194,81,307,76,194,80,222,81,307,80,222,87,247,81,307,87,247,97,269,81,102,76,132,81,24,81,24,76,132,74,166,24,109,46,61,46,271,24,109,46,271,24,224,24,109,24,224,17,167,223,19,209,15,234,1,234,1,209,15,196,12,234,1,196,12,181,11,181,11,167,12,180,-6,180,-6,167,12,154,15,180,-6,154,15,142,19,207,316,219,311,235,330,235,330,219,311,231,305,235,330,231,305,242,296,242,296,257,279,280,306,280,306,257,279,270,257,280,306,270,257,279,231,235,330,180,338,180,320,280,103,272,76,279,24,279,24,272,76,260,53,279,24,260,53,246,35,246,35,235,26,279,24,279,24,235,26,234,1,344,166,336,222,336,108,336,108,336,222,314,269,336,108,314,269,314,60,314,60,314,269,287,169,285,201,287,169,314,269,285,201,314,269,280,306,285,201,280,306,279,231,280,306,235,330,242,296,314,60,287,169,285,134,314,60,285,134,280,103,314,60,280,103,279,24,181,11,180,-6,234,1,81,24,74,166,46,61,223,19,234,1,235,26,130,25,180,-6,142,19,
+352,0,352,9,333,12,320,17,312,25,308,37,307,55,307,274,308,293,312,307,320,315,333,319,352,321,352,331,9,331,9,321,28,319,41,315,49,307,53,294,54,274,54,61,53,39,49,25,42,16,29,12,9,9,9,0,148,0,148,9,129,12,117,17,109,25,105,38,104,56,104,296,105,303,107,307,111,310,116,312,238,312,245,311,251,310,254,306,256,301,256,62,255,41,252,26,244,17,232,12,212,9,212,0,8,331,8,321,27,319,39,315,46,307,49,294,50,276,50,39,47,25,40,16,27,12,8,9,8,0,148,0,148,9,128,12,114,16,106,24,102,37,101,56,101,146,109,145,115,145,122,144,136,144,164,145,188,147,208,153,225,161,243,175,253,185,260,197,266,210,270,225,271,240,270,254,267,268,262,280,255,291,246,300,231,310,213,319,191,325,166,329,137,331,16383,16383,101,295,101,302,103,307,106,310,111,312,118,313,
+49,25,42,16,148,0,148,0,42,16,29,12,148,0,29,12,9,9,53,294,54,274,111,310,53,294,111,310,49,307,49,307,111,310,116,312,49,307,116,312,352,331,352,331,116,312,123,312,252,26,244,17,352,0,352,0,244,17,232,12,352,0,232,12,212,9,352,331,123,312,238,312,352,331,238,312,245,311,352,331,245,311,251,310,352,331,251,310,254,306,352,331,254,306,256,301,352,331,256,301,256,294,352,331,256,294,320,315,352,331,320,315,333,319,352,331,333,319,352,321,307,55,307,274,256,294,256,294,307,274,308,293,256,294,308,293,312,307,320,17,312,25,256,62,256,62,312,25,308,37,256,62,308,37,256,294,117,17,109,25,54,61,54,61,109,25,105,38,54,61,105,38,54,274,54,274,105,38,104,56,54,274,104,56,104,296,54,274,104,296,105,303,54,274,105,303,107,307,54,274,107,307,111,310,352,331,9,331,28,319,352,331,28,319,41,315,352,331,41,315,49,307,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,255,41,352,0,255,41,252,26,148,0,148,9,129,12,148,0,129,12,117,17,148,0,117,17,53,39,148,0,53,39,49,25,148,0,9,9,9,0,53,39,117,17,54,61,352,0,212,9,212,0,255,41,320,17,256,62,256,294,308,37,307,55,28,319,9,331,9,321,320,315,256,294,312,307,
+8,331,8,321,27,319,39,315,46,307,49,294,50,276,50,39,47,25,40,16,27,12,8,9,8,0,148,0,148,9,128,12,114,16,106,24,102,37,101,56,101,146,109,145,115,145,122,144,136,144,164,145,188,147,208,153,225,161,243,175,253,185,260,197,266,210,270,225,271,240,270,254,267,268,262,280,255,291,246,300,231,310,213,319,191,325,166,329,137,331,16383,16383,101,295,101,302,103,307,106,310,111,312,118,313,155,310,182,302,202,288,213,266,217,238,213,213,202,192,185,177,162,167,132,164,120,164,114,165,108,165,101,166,300,102,289,102,283,82,275,66,264,56,249,49,229,47,74,47,193,184,86,312,190,312,214,310,234,305,248,294,259,276,266,251,278,251,278,331,15,331,15,324,148,162,15,7,15,0,286,0,296,246,293,331,12,331,8,246,21,246,28,274,37,292,50,303,70,309,97,310,127,310,127,61,126,39,123,25,115,16,101,12,80,9,80,0,226,0,226,9,205,11,192,16,183,23,179,36,178,55,178,310,208,310,235,309,254,303,268,292,277,274,284,246,352,329,345,332,338,334,332,335,320,335,289,330,259,315,232,290,211,258,198,218,
+111,312,118,312,118,313,137,331,118,313,155,310,137,331,155,310,166,329,166,329,155,310,182,302,166,329,182,302,191,325,191,325,182,302,202,288,191,325,202,288,213,319,213,319,202,288,213,266,213,319,213,266,231,310,231,310,213,266,217,238,231,310,217,238,225,161,225,161,213,213,208,153,208,153,213,213,202,192,208,153,202,192,188,147,188,147,202,192,185,177,188,147,185,177,164,145,164,145,185,177,162,167,164,145,162,167,136,144,136,144,162,167,132,164,136,144,132,164,128,144,128,144,132,164,126,164,128,144,126,164,122,144,122,144,126,164,120,164,122,144,120,164,115,145,115,145,120,164,114,165,115,145,114,165,109,145,109,145,114,165,108,165,109,145,108,165,101,166,101,56,101,166,50,276,101,56,50,276,102,37,102,37,50,276,50,61,101,166,101,146,109,145,271,240,270,254,270,225,270,225,270,254,267,268,270,225,267,268,266,210,266,210,267,268,262,280,266,210,262,280,260,197,260,197,262,280,255,291,260,197,255,291,253,185,253,185,255,291,246,300,253,185,246,300,243,175,243,175,246,300,231,310,243,175,231,310,225,161,137,331,8,331,27,319,137,331,27,319,39,315,137,331,39,315,46,307,137,331,46,307,49,294,137,331,49,294,50,276,137,331,50,276,106,310,137,331,106,310,111,312,137,331,111,312,118,313,101,295,101,302,50,276,101,295,50,276,101,166,103,307,106,310,50,276,103,307,50,276,101,302,148,0,148,9,128,12,148,0,128,12,114,16,148,0,114,16,50,39,148,0,50,39,47,25,148,0,47,25,40,16,148,0,40,16,27,12,148,0,27,12,8,9,148,0,8,9,8,0,50,61,50,39,114,16,50,61,114,16,106,24,50,61,106,24,102,37,27,319,8,331,8,321,213,213,225,161,217,238,155,310,118,313,118,312,
+
+
+300,102,289,102,283,82,275,66,264,56,249,49,229,47,74,47,193,184,86,312,190,312,214,310,234,305,248,294,259,276,266,251,278,251,278,331,15,331,15,324,148,162,15,7,15,0,286,0,296,246,293,331,12,331,8,246,21,246,28,274,37,292,50,303,70,309,97,310,127,310,127,61,126,39,123,25,115,16,101,12,80,9,80,0,226,0,226,9,205,11,192,16,183,23,179,36,
+278,331,15,331,86,312,278,331,86,312,190,312,278,331,190,312,214,310,278,331,214,310,234,305,278,331,234,305,248,294,278,331,248,294,259,276,278,331,259,276,266,251,278,331,266,251,278,251,148,162,15,7,74,47,148,162,74,47,193,184,148,162,193,184,86,312,148,162,86,312,15,331,148,162,15,331,15,324,275,66,264,56,286,0,286,0,264,56,249,49,286,0,249,49,229,47,286,0,300,102,289,102,286,0,289,102,283,82,286,0,283,82,275,66,286,0,229,47,74,47,286,0,74,47,15,7,286,0,15,7,15,0,
+296,246,293,331,12,331,8,246,21,246,28,274,37,292,50,303,70,309,97,310,127,310,127,61,126,39,123,25,115,16,101,12,80,9,80,0,226,0,226,9,205,11,192,16,183,23,179,36,178,55,178,310,208,310,235,309,254,303,268,292,277,274,284,246,352,329,345,332,338,334,332,335,320,335,289,330,259,315,232,290,211,258,198,218,196,218,186,260,169,293,146,318,117,332,81,337,67,336,53,332,39,327,26,319,15,311,18,303,25,305,33,308,41,310,49,311,55,312,84,306,109,289,130,257,146,211,157,147,
+293,331,12,331,70,309,293,331,70,309,97,310,293,331,97,310,127,310,293,331,127,310,178,310,293,331,178,310,208,310,293,331,208,310,235,309,293,331,235,309,254,303,293,331,254,303,268,292,293,331,268,292,277,274,293,331,277,274,284,246,293,331,284,246,296,246,192,16,183,23,127,61,127,61,183,23,179,36,127,61,179,36,127,310,127,310,179,36,178,55,127,310,178,55,178,310,12,331,8,246,21,246,12,331,21,246,28,274,12,331,28,274,37,292,12,331,37,292,50,303,12,331,50,303,70,309,226,0,226,9,205,11,226,0,205,11,192,16,226,0,192,16,126,39,226,0,126,39,123,25,226,0,123,25,115,16,226,0,115,16,101,12,226,0,101,12,80,9,226,0,80,9,80,0,126,39,192,16,127,61,
+352,329,345,332,338,334,332,335,320,335,289,330,259,315,232,290,211,258,198,218,196,218,186,260,169,293,146,318,117,332,81,337,67,336,53,332,39,327,26,319,15,311,18,303,25,305,33,308,41,310,49,311,55,312,84,306,109,289,130,257,146,211,157,147,157,61,156,39,153,25,144,16,130,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,152,215,204,233,251,261,288,296,313,335,322,342,322,348,320,352,320,216,290,217,301,221,310,230,316,245,320,267,321,267,331,114,331,114,321,136,320,151,317,160,311,164,302,165,290,165,280,122,276,82,263,49,241,26,209,17,165,23,128,39,97,67,72,106,57,156,51,165,51,165,42,163,29,157,20,146,14,132,10,114,9,114,0,267,0,267,9,248,11,234,15,224,20,218,29,216,43,216,51,228,51,264,56,300,69,332,91,355,123,364,165,355,209,332,241,298,263,258,276,216,280,16383,16383,215,262,250,256,
+18,303,25,305,26,319,26,319,25,305,33,308,26,319,33,308,39,327,39,327,33,308,41,310,39,327,41,310,53,332,53,332,41,310,49,311,53,332,49,311,55,312,55,312,84,306,67,336,67,336,84,306,81,337,67,336,53,332,55,312,198,218,196,218,210,36,198,218,210,36,209,55,198,218,209,55,209,152,198,218,209,152,211,258,332,335,326,335,335,322,335,322,326,335,320,335,335,322,320,335,296,313,296,313,320,335,289,330,296,313,289,330,261,288,261,288,289,330,259,315,261,288,259,315,233,251,233,251,259,315,232,290,233,251,232,290,215,204,215,204,232,290,211,258,215,204,211,258,209,152,338,334,335,322,339,322,338,334,339,322,345,332,345,332,339,322,342,322,345,332,342,322,345,321,348,320,352,320,352,329,348,320,352,329,345,321,345,321,352,329,345,332,260,0,260,9,239,11,260,0,239,11,224,15,260,0,224,15,156,39,260,0,156,39,153,25,260,0,153,25,144,16,260,0,144,16,130,12,260,0,130,12,107,9,260,0,107,9,107,0,169,293,157,147,210,36,169,293,210,36,186,260,186,260,210,36,196,218,156,39,224,15,157,61,157,61,224,15,215,23,157,61,215,23,157,147,157,147,215,23,210,36,84,306,109,289,117,332,117,332,109,289,130,257,117,332,130,257,146,318,146,318,130,257,146,211,146,318,146,211,169,293,169,293,146,211,157,147,81,337,84,306,117,332,335,322,338,334,332,335,18,303,26,319,15,311,
+216,290,217,301,221,310,230,316,245,320,267,321,267,331,114,331,114,321,136,320,151,317,160,311,164,302,165,290,165,280,122,276,82,263,49,241,26,209,17,165,23,128,39,97,67,72,106,57,156,51,165,51,165,42,163,29,157,20,146,14,132,10,114,9,114,0,267,0,267,9,248,11,234,15,224,20,218,29,216,43,216,51,228,51,264,56,300,69,332,91,355,123,364,165,355,209,332,241,298,263,258,276,216,280,16383,16383,215,262,250,256,276,240,295,216,306,188,310,159,304,128,290,103,268,85,243,74,215,70,16383,16383,166,70,133,75,107,88,88,107,76,132,72,159,76,189,89,216,109,240,135,256,166,262,352,0,352,9,338,12,327,16,317,22,307,32,296,46,200,184,272,272,289,292,303,305,316,314,331,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,263,301,260,296,257,290,251,282,243,272,188,202,166,234,151,255,139,272,131,286,126,297,124,306,125,312,128,316,133,319,139,320,147,321,161,321,161,331,11,331,11,321,29,319,44,312,59,299,78,276,103,242,156,164,78,66,58,42,43,26,31,17,19,12,5,9,5,0,121,0,121,9,106,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,100,57,109,70,169,145,217,74,226,60,233,48,238,38,241,31,242,25,241,20,
+267,321,267,321,245,320,245,320,267,321,267,331,245,320,267,331,230,316,230,316,267,331,164,302,230,316,164,302,165,290,166,262,165,290,165,280,166,262,165,280,135,256,135,256,165,280,122,276,135,256,122,276,109,240,109,240,122,276,89,216,216,43,215,70,166,262,166,262,215,70,215,262,166,262,215,262,216,290,216,290,215,262,216,280,166,262,216,290,217,301,166,262,217,301,221,310,166,262,218,29,216,43,165,290,166,262,221,310,165,290,221,310,230,316,267,331,114,331,136,320,267,331,136,320,151,317,267,331,151,317,160,311,267,331,160,311,164,302,82,263,49,241,72,159,82,263,72,159,76,189,82,263,76,189,89,216,82,263,89,216,122,276,17,165,23,128,26,209,26,209,23,128,39,97,26,209,39,97,49,241,49,241,39,97,67,72,49,241,67,72,72,159,332,91,310,159,304,128,332,91,304,128,300,69,300,69,304,128,290,103,300,69,290,103,268,85,306,188,310,159,332,241,332,241,310,159,332,91,332,241,332,91,355,209,355,209,332,91,355,123,355,209,355,123,364,165,298,263,258,276,276,240,298,263,276,240,295,216,298,263,295,216,306,188,298,263,306,188,332,241,250,256,276,240,258,276,250,256,258,276,216,280,250,256,216,280,215,262,216,51,228,51,243,74,243,74,228,51,264,56,243,74,264,56,268,85,268,85,264,56,300,69,216,43,216,51,215,70,215,70,216,51,243,74,267,0,267,9,248,11,267,0,248,11,234,15,267,0,234,15,165,42,267,0,165,42,163,29,267,0,163,29,157,20,267,0,157,20,146,14,267,0,146,14,132,10,267,0,132,10,114,9,267,0,114,9,114,0,166,70,133,75,156,51,166,70,156,51,165,51,166,70,165,51,224,20,166,70,224,20,218,29,166,70,218,29,166,262,165,51,165,42,234,15,165,51,234,15,224,20,107,88,88,107,106,57,107,88,106,57,156,51,107,88,156,51,133,75,76,132,72,159,67,72,76,132,67,72,106,57,76,132,106,57,88,107,136,320,114,331,114,321,
+352,0,352,9,338,12,327,16,317,22,307,32,296,46,200,184,272,272,289,292,303,305,316,314,331,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,263,301,260,296,257,290,251,282,243,272,188,202,166,234,151,255,139,272,131,286,126,297,124,306,125,312,128,316,133,319,139,320,147,321,161,321,161,331,11,331,11,321,29,319,44,312,59,299,78,276,103,242,156,164,78,66,58,42,43,26,31,17,19,12,5,9,5,0,121,0,121,9,106,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,100,57,109,70,169,145,217,74,226,60,233,48,238,38,241,31,242,25,241,20,238,16,233,14,226,12,217,11,204,9,204,0,362,345,332,341,310,328,295,309,287,284,285,254,283,226,278,198,267,175,248,159,218,153,212,153,212,281,214,299,221,311,232,318,246,321,263,321,263,331,110,331,110,321,128,321,142,317,152,310,159,299,161,281,161,153,156,153,125,159,106,175,95,198,90,226,89,254,86,284,78,309,64,328,42,341,11,345,11,335,21,330,28,320,32,308,34,295,35,283,34,274,34,265,33,256,33,247,32,238,39,199,59,170,87,150,122,139,161,135,161,62,160,40,156,25,147,16,132,12,110,9,110,0,263,0,263,9,244,11,229,14,220,22,214,35,212,55,212,135,251,139,286,150,314,170,333,199,340,238,340,256,339,265,339,295,341,308,345,320,352,330,362,335,358,0,
+31,17,121,0,43,26,43,26,121,0,88,17,43,26,88,17,58,42,58,42,88,17,84,21,58,42,84,21,83,26,83,26,84,31,78,66,78,66,84,31,87,38,78,66,87,38,156,164,156,164,87,38,92,46,156,164,92,46,100,57,103,242,156,164,126,297,103,242,126,297,124,306,124,306,125,312,103,242,156,164,100,57,109,70,109,70,169,145,156,164,156,164,169,145,166,234,156,164,166,234,151,255,78,66,58,42,83,26,103,242,125,312,78,276,78,276,125,312,128,316,78,276,128,316,59,299,59,299,128,316,133,319,59,299,133,319,161,331,161,331,133,319,139,320,161,331,139,320,147,321,147,321,161,321,161,331,161,331,11,331,29,319,161,331,29,319,44,312,161,331,44,312,59,299,260,296,257,290,272,272,272,272,257,290,251,282,272,272,251,282,243,272,243,272,188,202,200,184,200,184,188,202,217,74,200,184,217,74,296,46,296,46,217,74,226,60,296,46,226,60,233,48,348,331,229,331,243,320,348,331,243,320,253,319,348,331,253,319,259,316,348,331,259,316,262,311,348,331,262,311,263,305,348,331,263,305,316,314,348,331,316,314,331,319,348,331,331,319,348,321,263,305,272,272,289,292,263,305,289,292,303,305,263,305,303,305,316,314,263,301,260,296,272,272,263,301,272,272,263,305,243,272,200,184,272,272,238,16,233,14,352,0,352,0,233,14,226,12,352,0,226,12,217,11,242,25,352,0,327,16,242,25,327,16,317,22,242,25,317,22,307,32,242,25,307,32,296,46,242,25,296,46,241,31,296,46,233,48,238,38,296,46,238,38,241,31,188,202,166,234,169,145,188,202,169,145,217,74,338,12,327,16,352,0,338,12,352,0,352,9,241,20,238,16,352,0,241,20,352,0,242,25,204,9,204,0,352,0,204,9,352,0,217,11,156,164,151,255,139,272,156,164,139,272,131,286,156,164,131,286,126,297,121,0,121,9,106,11,121,0,106,11,95,13,121,0,95,13,88,17,19,12,5,9,121,0,19,12,121,0,31,17,121,0,5,9,5,0,243,320,229,331,229,321,29,319,11,331,11,321,
+362,345,332,341,310,328,295,309,287,284,285,254,283,226,278,198,267,175,248,159,218,153,212,153,212,281,214,299,221,311,232,318,246,321,263,321,263,331,110,331,110,321,128,321,142,317,152,310,159,299,161,281,161,153,156,153,125,159,106,175,95,198,90,226,89,254,86,284,78,309,64,328,42,341,11,345,11,335,21,330,28,320,32,308,34,295,35,283,34,274,34,265,33,256,33,247,32,238,39,199,59,170,87,150,122,139,161,135,161,62,160,40,156,25,147,16,132,12,110,9,110,0,263,0,263,9,244,11,229,14,220,22,214,35,212,55,212,135,251,139,286,150,314,170,333,199,340,238,340,256,339,265,339,295,341,308,345,320,352,330,362,335,358,0,358,84,345,84,343,71,339,61,333,53,325,49,314,47,237,47,238,66,275,80,305,100,327,126,341,159,345,199,338,242,318,280,285,310,241,331,186,338,130,330,86,309,53,277,33,239,26,199,31,159,44,126,65,100,95,80,132,66,133,47,58,47,46,48,38,52,32,59,28,70,27,85,15,85,15,0,158,0,153,80,129,93,110,114,96,140,87,170,84,200,88,235,100,268,120,295,149,313,186,320,222,314,250,298,271,273,284,239,289,200,285,168,276,138,261,112,242,92,218,80,214,0,158,411,157,419,153,426,148,432,141,435,133,436,125,435,118,432,113,426,110,420,108,412,109,404,113,397,118,392,125,388,132,387,140,388,148,392,153,397,
+263,321,263,321,246,321,246,321,263,321,263,331,246,321,263,331,232,318,232,318,263,331,159,299,232,318,159,299,161,281,161,135,161,281,161,153,161,135,161,153,156,153,161,135,220,22,214,35,161,135,214,35,212,55,212,153,212,135,251,139,212,153,251,139,218,153,218,153,251,139,248,159,212,55,212,281,161,135,161,135,212,281,214,299,161,135,214,299,161,281,161,281,214,299,221,311,161,281,221,311,232,318,263,331,110,331,128,321,263,331,128,321,142,317,263,331,142,317,152,310,263,331,152,310,159,299,310,328,295,309,314,170,314,170,295,309,287,284,314,170,287,284,286,150,286,150,287,284,285,254,286,150,285,254,283,226,310,328,314,170,332,341,332,341,314,170,333,199,332,341,333,199,339,295,339,295,333,199,339,283,339,274,339,283,333,199,339,274,333,199,340,238,352,330,362,335,362,345,352,330,362,345,345,320,345,320,362,345,332,341,345,320,332,341,341,308,341,308,332,341,339,295,248,159,251,139,267,175,267,175,251,139,286,150,267,175,286,150,278,198,278,198,286,150,283,226,340,238,340,247,340,256,340,238,340,256,339,265,340,238,339,265,339,274,263,0,263,9,244,11,263,0,244,11,229,14,263,0,229,14,160,40,263,0,160,40,156,25,263,0,156,25,147,16,263,0,147,16,132,12,263,0,132,12,110,9,263,0,110,9,110,0,161,62,160,40,229,14,161,62,229,14,220,22,161,62,220,22,161,135,125,159,106,175,122,139,125,159,122,139,161,135,125,159,161,135,156,153,90,226,89,254,87,150,90,226,87,150,95,198,95,198,87,150,122,139,95,198,122,139,106,175,87,150,89,254,86,284,87,150,86,284,78,309,87,150,78,309,64,328,87,150,64,328,59,170,42,341,11,345,21,330,42,341,21,330,28,320,42,341,28,320,32,308,42,341,32,308,34,295,42,341,34,295,35,283,42,341,35,283,39,199,42,341,39,199,59,170,42,341,59,170,64,328,39,199,35,283,34,274,39,199,34,274,34,265,39,199,34,265,33,256,39,199,33,256,33,247,39,199,33,247,32,238,21,330,11,345,11,335,128,321,110,331,110,321,
+358,0,358,84,345,84,343,71,339,61,333,53,325,49,314,47,237,47,238,66,275,80,305,100,327,126,341,159,345,199,338,242,318,280,285,310,241,331,186,338,130,330,86,309,53,277,33,239,26,199,31,159,44,126,65,100,95,80,132,66,133,47,58,47,46,48,38,52,32,59,28,70,27,85,15,85,15,0,158,0,153,80,129,93,110,114,96,140,87,170,84,200,88,235,100,268,120,295,149,313,186,320,222,314,250,298,271,273,284,239,289,200,285,168,276,138,261,112,242,92,218,80,214,0,158,411,157,419,153,426,148,432,141,435,133,436,125,435,118,432,113,426,110,420,108,412,109,404,113,397,118,392,125,388,132,387,140,388,148,392,153,397,157,404,158,411,16383,16383,59,411,57,419,54,426,48,432,41,435,33,436,26,435,19,432,14,426,10,420,9,412,10,404,14,397,19,392,25,388,33,387,41,388,48,392,54,397,57,404,59,411,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,
+58,47,46,48,158,0,158,0,46,48,38,52,158,0,38,52,15,0,15,0,38,52,32,59,15,0,32,59,15,85,15,85,32,59,28,70,15,85,28,70,27,85,26,199,31,159,33,239,33,239,31,159,44,126,33,239,44,126,53,277,53,277,44,126,65,100,53,277,65,100,86,309,86,309,65,100,84,200,95,80,84,200,65,100,186,338,149,313,186,320,186,320,222,314,241,331,241,331,222,314,250,298,241,331,250,298,285,310,285,310,250,298,271,273,285,310,271,273,284,239,289,200,305,100,318,280,318,280,305,100,327,126,318,280,327,126,338,242,338,242,327,126,341,159,338,242,341,159,345,199,285,310,284,239,289,200,285,310,289,200,318,280,241,331,186,338,186,320,261,112,275,80,276,138,276,138,275,80,305,100,276,138,305,100,285,168,285,168,305,100,289,200,214,0,237,47,218,80,218,80,237,47,238,66,218,80,238,66,242,92,242,92,238,66,275,80,242,92,275,80,261,112,339,61,333,53,358,0,358,0,333,53,325,49,358,0,325,49,314,47,358,0,358,84,345,84,358,0,345,84,343,71,358,0,343,71,339,61,237,47,214,0,358,0,237,47,358,0,314,47,130,330,86,309,100,268,130,330,100,268,120,295,130,330,120,295,149,313,130,330,149,313,186,338,86,309,84,200,88,235,86,309,88,235,100,268,132,66,133,47,153,80,132,66,153,80,129,93,132,66,129,93,110,114,132,66,110,114,96,140,132,66,96,140,95,80,87,170,84,200,95,80,87,170,95,80,96,140,133,47,58,47,158,0,133,47,158,0,153,80,
+158,411,157,419,153,426,148,432,141,435,133,436,125,435,118,432,113,426,110,420,108,412,109,404,113,397,118,392,125,388,132,387,140,388,148,392,153,397,157,404,158,411,16383,16383,59,411,57,419,54,426,48,432,41,435,33,436,26,435,19,432,14,426,10,420,9,412,10,404,14,397,19,392,25,388,33,387,41,388,48,392,54,397,57,404,59,411,16383,16383,157,0,157,9,137,11,122,16,114,24,109,37,108,56,108,276,109,295,113,308,122,316,136,320,157,321,157,331,9,331,9,321,30,320,44,316,53,308,57,295,57,56,56,36,52,23,44,15,30,11,9,9,9,0,257,411,256,419,252,426,247,432,240,435,233,436,225,435,218,432,213,426,209,420,208,412,209,404,213,397,218,392,225,388,232,387,240,388,247,392,252,397,256,404,257,411,16383,16383,158,411,157,419,153,426,148,432,141,435,133,436,125,435,118,432,113,426,110,420,108,412,109,404,113,397,118,392,125,388,132,387,140,388,148,392,153,397,157,404,158,411,16383,16383,352,329,345,332,338,334,332,335,320,335,289,330,259,315,232,290,211,258,198,218,196,218,186,260,169,293,146,318,117,332,81,337,67,336,53,332,39,327,26,319,15,311,18,303,25,305,33,308,41,310,49,311,55,312,
+9,412,10,404,10,420,10,420,10,404,14,397,10,420,14,397,14,426,14,426,14,397,19,392,14,426,19,392,19,432,19,432,19,392,25,388,19,432,25,388,26,435,26,435,25,388,33,387,26,435,33,387,33,436,33,436,33,387,41,388,33,436,41,388,41,435,41,435,41,388,48,392,41,435,48,392,48,432,48,432,48,392,54,397,48,432,54,397,54,426,54,426,54,397,57,404,54,426,57,404,57,419,57,419,57,404,59,411,52,23,44,15,157,0,157,0,44,15,30,11,157,0,30,11,9,9,157,331,9,331,30,320,157,331,30,320,44,316,157,331,44,316,53,308,157,331,53,308,57,295,157,331,57,295,122,316,157,331,122,316,136,320,157,331,136,320,157,321,122,16,114,24,57,56,57,56,114,24,109,37,57,56,109,37,57,276,57,276,109,37,108,56,57,276,108,56,108,276,57,276,108,276,109,295,57,276,109,295,113,308,57,276,113,308,122,316,57,276,122,316,57,295,108,412,109,404,110,420,110,420,109,404,113,397,110,420,113,397,113,426,113,426,113,397,118,392,113,426,118,392,118,432,118,432,118,392,125,388,118,432,125,388,125,435,125,435,125,388,132,387,125,435,132,387,133,436,133,436,132,387,140,388,133,436,140,388,141,435,141,435,140,388,148,392,141,435,148,392,148,432,148,432,148,392,153,397,148,432,153,397,153,426,153,426,153,397,157,404,153,426,157,404,157,419,157,419,157,404,158,411,157,0,157,9,137,11,157,0,137,11,122,16,157,0,122,16,56,36,157,0,56,36,52,23,157,0,9,9,9,0,56,36,122,16,57,56,30,320,9,331,9,321,
+257,411,256,419,252,426,247,432,240,435,233,436,225,435,218,432,213,426,209,420,208,412,209,404,213,397,218,392,225,388,232,387,240,388,247,392,252,397,256,404,257,411,16383,16383,158,411,157,419,153,426,148,432,141,435,133,436,125,435,118,432,113,426,110,420,108,412,109,404,113,397,118,392,125,388,132,387,140,388,148,392,153,397,157,404,158,411,16383,16383,352,329,345,332,338,334,332,335,320,335,289,330,259,315,232,290,211,258,198,218,196,218,186,260,169,293,146,318,117,332,81,337,67,336,53,332,39,327,26,319,15,311,18,303,25,305,33,308,41,310,49,311,55,312,84,306,109,289,130,257,146,211,157,147,157,61,156,39,153,25,144,16,130,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,152,215,204,233,251,261,288,296,313,335,322,342,322,348,320,352,320,108,253,126,253,158,294,163,299,167,304,169,309,171,313,172,316,171,322,168,326,165,329,157,331,151,330,147,329,143,327,140,324,138,320,16383,16383,257,65,255,50,252,39,248,32,245,27,241,26,232,31,223,43,216,60,210,78,206,94,261,225,212,225,190,157,182,178,171,198,156,215,137,226,113,230,79,224,52,207,31,181,19,148,15,112,19,73,32,41,52,16,78,1,108,-4,129,-1,147,5,162,17,174,32,185,50,190,32,196,17,204,5,213,-1,225,-4,239,0,250,8,258,24,263,43,265,65,16383,16383,166,104,162,84,155,59,145,35,131,16,113,9,90,19,75,43,66,76,61,109,60,137,63,167,70,189,81,204,95,213,110,216,129,208,144,187,154,159,161,130,166,104,76,253,94,253,127,294,135,304,138,309,139,313,140,316,139,322,137,326,133,329,125,331,119,330,115,329,111,327,108,324,
+18,303,25,305,26,319,26,319,25,305,33,308,26,319,33,308,39,327,39,327,33,308,41,310,39,327,41,310,53,332,53,332,41,310,49,311,53,332,49,311,55,312,55,312,84,306,67,336,67,336,84,306,81,337,67,336,53,332,55,312,198,218,196,218,210,36,198,218,210,36,209,55,198,218,209,55,209,152,198,218,209,152,211,258,260,0,260,9,239,11,260,0,239,11,224,15,260,0,224,15,156,39,260,0,156,39,153,25,260,0,153,25,144,16,260,0,144,16,130,12,260,0,130,12,107,9,260,0,107,9,107,0,169,293,157,147,210,36,169,293,210,36,186,260,186,260,210,36,196,218,156,39,224,15,157,61,157,61,224,15,215,23,157,61,215,23,157,147,157,147,215,23,210,36,332,335,326,335,335,322,335,322,326,335,320,335,335,322,320,335,296,313,296,313,320,335,289,330,296,313,289,330,261,288,261,288,289,330,259,315,261,288,259,315,233,251,233,251,259,315,232,290,233,251,232,290,215,204,215,204,232,290,211,258,215,204,211,258,209,152,338,334,335,322,339,322,338,334,339,322,345,332,345,332,339,322,342,322,345,332,342,322,345,321,348,320,352,320,352,329,348,320,352,329,345,321,345,321,352,329,345,332,208,412,209,404,209,420,209,420,209,404,213,397,209,420,213,397,213,426,213,426,213,397,218,392,213,426,218,392,218,432,218,432,218,392,225,388,218,432,225,388,225,435,225,435,225,388,232,387,225,435,232,387,233,436,233,436,232,387,240,388,233,436,240,388,240,435,240,435,240,388,247,392,240,435,247,392,247,432,247,432,247,392,252,397,247,432,252,397,252,426,252,426,252,397,256,404,252,426,256,404,256,419,256,419,256,404,257,411,108,412,109,404,110,420,110,420,109,404,113,397,110,420,113,397,113,426,113,426,113,397,118,392,113,426,118,392,118,432,118,432,118,392,125,388,118,432,125,388,125,435,125,435,125,388,132,387,125,435,132,387,133,436,133,436,132,387,140,388,133,436,140,388,141,435,141,435,140,388,148,392,141,435,148,392,148,432,148,432,148,392,153,397,148,432,153,397,153,426,153,426,153,397,157,404,153,426,157,404,157,419,157,419,157,404,158,411,84,306,109,289,117,332,117,332,109,289,130,257,117,332,130,257,146,318,146,318,130,257,146,211,146,318,146,211,169,293,169,293,146,211,157,147,81,337,84,306,117,332,335,322,338,334,332,335,18,303,26,319,15,311,
+108,253,126,253,158,294,163,299,167,304,169,309,171,313,172,316,171,322,168,326,165,329,157,331,151,330,147,329,143,327,140,324,138,320,16383,16383,257,65,255,50,252,39,248,32,245,27,241,26,232,31,223,43,216,60,210,78,206,94,261,225,212,225,190,157,182,178,171,198,156,215,137,226,113,230,79,224,52,207,31,181,19,148,15,112,19,73,32,41,52,16,78,1,108,-4,129,-1,147,5,162,17,174,32,185,50,190,32,196,17,204,5,213,-1,225,-4,239,0,250,8,258,24,263,43,265,65,16383,16383,166,104,162,84,155,59,145,35,131,16,113,9,90,19,75,43,66,76,61,109,60,137,63,167,70,189,81,204,95,213,110,216,129,208,144,187,154,159,161,130,166,104,76,253,94,253,127,294,135,304,138,309,139,313,140,316,139,322,137,326,133,329,125,331,119,330,115,329,111,327,108,324,106,320,16383,16383,196,73,182,54,166,39,149,29,131,22,110,20,95,22,80,27,69,36,60,49,57,65,61,81,70,94,83,102,97,107,111,108,117,108,125,106,128,106,133,105,142,106,148,108,153,111,156,115,157,118,156,122,154,124,150,127,145,128,138,129,131,128,121,126,115,125,108,124,92,127,80,133,72,142,67,154,65,167,67,182,74,195,83,206,96,213,112,215,127,215,140,212,148,208,154,203,156,195,155,193,155,190,154,187,154,183,153,179,155,171,158,166,163,161,168,158,175,157,182,158,188,161,194,165,198,171,199,179,194,199,181,214,163,223,
+63,167,70,189,79,224,79,224,70,189,81,204,79,224,81,204,113,230,113,230,81,204,95,213,113,230,95,213,110,216,110,216,129,208,113,230,113,230,129,208,137,226,157,331,158,294,161,330,161,330,158,294,163,299,161,330,163,299,165,329,165,329,163,299,167,304,165,329,167,304,168,326,168,326,167,304,169,309,168,326,169,309,171,322,171,322,169,309,171,313,171,322,171,313,172,316,158,294,157,331,151,330,158,294,151,330,147,329,158,294,147,329,143,327,158,294,143,327,140,324,158,294,140,324,138,320,158,294,138,320,126,253,144,187,154,159,156,215,156,215,154,159,161,130,156,215,161,130,171,198,171,198,161,130,166,104,171,198,166,104,174,32,171,198,174,32,182,178,182,178,174,32,185,50,182,178,185,50,190,157,190,157,185,50,190,32,190,157,190,32,212,225,212,225,190,32,196,17,212,225,196,17,206,94,206,94,196,17,204,5,206,94,204,5,213,-1,137,226,129,208,144,187,137,226,144,187,156,215,174,32,166,104,162,84,174,32,162,84,162,17,162,17,162,84,155,59,162,17,155,59,147,5,147,5,155,59,145,35,147,5,145,35,131,16,78,1,108,-4,90,19,90,19,108,-4,113,9,131,16,113,9,129,-1,131,16,129,-1,147,5,210,78,206,94,213,-1,212,225,206,94,261,225,252,39,248,32,250,8,250,8,248,32,245,27,250,8,245,27,241,26,241,26,232,31,239,0,239,0,232,31,225,-4,210,78,213,-1,216,60,216,60,213,-1,225,-4,216,60,225,-4,223,43,223,43,225,-4,232,31,258,24,263,43,265,65,258,24,265,65,257,65,258,24,257,65,255,50,258,24,255,50,252,39,258,24,252,39,250,8,241,26,239,0,250,8,113,9,108,-4,129,-1,90,19,75,43,78,1,78,1,75,43,66,76,78,1,66,76,52,16,52,16,66,76,61,109,52,16,61,109,60,137,60,137,63,167,52,207,52,207,63,167,79,224,52,16,60,137,52,207,52,16,52,207,32,41,32,41,52,207,31,181,32,41,31,181,19,73,19,73,31,181,19,148,19,73,19,148,15,112,126,253,138,320,108,253,
+76,253,94,253,127,294,135,304,138,309,139,313,140,316,139,322,137,326,133,329,125,331,119,330,115,329,111,327,108,324,106,320,16383,16383,196,73,182,54,166,39,149,29,131,22,110,20,95,22,80,27,69,36,60,49,57,65,61,81,70,94,83,102,97,107,111,108,117,108,125,106,128,106,133,105,142,106,148,108,153,111,156,115,157,118,156,122,154,124,150,127,145,128,138,129,131,128,121,126,115,125,108,124,92,127,80,133,72,142,67,154,65,167,67,182,74,195,83,206,96,213,112,215,127,215,140,212,148,208,154,203,156,195,155,193,155,190,154,187,154,183,153,179,155,171,158,166,163,161,168,158,175,157,182,158,188,161,194,165,198,171,199,179,194,199,181,214,163,223,142,228,121,230,87,226,60,217,40,202,28,184,24,165,26,152,31,141,39,131,49,123,63,118,47,113,33,103,22,91,15,77,12,61,14,46,21,29,37,13,65,0,108,-4,130,-1,151,6,171,20,189,40,204,68,84,253,101,253,134,294,142,304,145,309,147,313,147,316,146,322,144,326,140,329,132,331,122,329,119,327,116,324,113,320,16383,16383,226,-107,223,-101,221,-94,219,-86,218,-76,218,160,216,182,208,202,196,217,180,226,159,230,145,229,131,224,117,216,102,205,87,190,86,190,84,205,81,215,76,223,68,226,56,228,44,225,33,216,22,203,13,188,5,172,12,170,15,176,25,188,30,193,36,194,39,193,41,190,44,184,45,173,46,156,46,0,88,0,88,174,100,185,111,194,120,199,130,202,140,203,153,201,163,195,170,185,174,172,176,154,176,-79,177,-89,179,-97,181,-103,184,-107,40,253,57,253,90,294,98,304,101,309,103,313,103,316,102,322,100,326,96,329,93,330,89,331,83,330,78,329,75,327,72,324,70,320,16383,16383,126,54,120,43,115,36,110,31,105,29,99,28,95,29,91,33,90,36,89,40,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,37,196,42,193,45,188,
+37,13,65,0,47,113,47,113,65,0,57,65,63,118,57,65,61,81,63,118,61,81,70,94,72,142,67,154,70,94,70,94,67,154,65,167,63,118,65,167,60,217,63,118,60,217,49,123,49,123,60,217,40,202,49,123,40,202,39,131,39,131,40,202,31,141,142,228,121,230,127,215,127,215,121,230,112,215,96,213,112,215,121,230,96,213,121,230,87,226,125,331,127,294,129,330,129,330,127,294,131,299,129,330,131,299,133,329,133,329,131,299,135,304,133,329,135,304,137,326,137,326,135,304,138,309,137,326,138,309,139,322,139,322,138,309,139,313,139,322,139,313,140,316,127,294,125,331,119,330,127,294,119,330,115,329,127,294,115,329,111,327,127,294,111,327,108,324,127,294,108,324,106,320,127,294,106,320,94,253,194,199,181,214,182,158,194,199,182,158,188,161,194,199,188,161,194,165,194,199,194,165,198,171,194,199,198,171,199,179,158,166,163,161,163,223,163,223,163,161,168,158,163,223,168,158,181,214,181,214,168,158,175,157,181,214,175,157,182,158,127,215,140,212,142,228,142,228,140,212,148,208,142,228,148,208,163,223,163,223,148,208,154,203,163,223,154,203,156,195,156,195,158,166,163,223,156,195,155,193,158,166,158,166,155,193,155,190,158,166,155,190,155,171,155,171,155,190,154,187,155,171,154,187,154,183,87,226,60,217,67,182,87,226,67,182,74,195,87,226,74,195,83,206,87,226,83,206,96,213,67,182,60,217,65,167,28,184,24,165,26,152,28,184,26,152,31,141,28,184,31,141,40,202,83,102,97,107,92,127,92,127,97,107,108,124,115,125,108,124,111,108,83,102,92,127,80,133,83,102,80,133,72,142,83,102,72,142,70,94,63,118,70,94,65,167,111,108,108,124,97,107,117,108,121,107,121,126,121,126,121,107,125,106,121,126,125,106,126,127,126,127,125,106,128,106,126,127,128,106,131,128,131,128,128,106,133,105,131,128,133,105,138,129,138,129,133,105,142,106,138,129,142,106,145,128,145,128,142,106,148,108,145,128,148,108,150,127,150,127,148,108,153,111,150,127,153,111,154,124,154,124,153,111,156,115,154,124,156,115,156,122,156,122,156,115,157,118,115,125,111,108,117,108,115,125,117,108,121,126,80,27,108,-4,95,22,95,22,108,-4,110,20,131,22,110,20,130,-1,131,22,130,-1,151,6,69,36,60,49,65,0,69,36,65,0,108,-4,69,36,108,-4,80,27,57,65,65,0,60,49,12,61,14,46,15,77,15,77,14,46,21,29,15,77,21,29,22,91,22,91,21,29,37,13,22,91,37,13,33,103,33,103,37,13,47,113,204,68,196,73,189,40,189,40,196,73,182,54,189,40,182,54,171,20,171,20,182,54,166,39,171,20,166,39,151,6,151,6,166,39,149,29,151,6,149,29,131,22,110,20,108,-4,130,-1,47,113,57,65,63,118,155,171,154,183,153,179,94,253,106,320,76,253,
+84,253,101,253,134,294,142,304,145,309,147,313,147,316,146,322,144,326,140,329,132,331,122,329,119,327,116,324,113,320,16383,16383,226,-107,223,-101,221,-94,219,-86,218,-76,218,160,216,182,208,202,196,217,180,226,159,230,145,229,131,224,117,216,102,205,87,190,86,190,84,205,81,215,76,223,68,226,56,228,44,225,33,216,22,203,13,188,5,172,12,170,15,176,25,188,30,193,36,194,39,193,41,190,44,184,45,173,46,156,46,0,88,0,88,174,100,185,111,194,120,199,130,202,140,203,153,201,163,195,170,185,174,172,176,154,176,-79,177,-89,179,-97,181,-103,184,-107,40,253,57,253,90,294,98,304,101,309,103,313,103,316,102,322,100,326,96,329,93,330,89,331,83,330,78,329,75,327,72,324,70,320,16383,16383,126,54,120,43,115,36,110,31,105,29,99,28,95,29,91,33,90,36,89,40,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,37,196,42,193,45,188,47,181,47,39,48,26,51,14,57,4,65,-2,77,-4,92,-1,105,7,116,20,126,35,133,50,202,278,201,286,197,293,192,298,185,302,177,303,169,302,163,298,157,293,154,286,152,278,154,271,157,264,163,258,169,255,177,253,185,255,192,258,197,264,
+15,176,20,182,22,203,22,203,20,182,25,188,22,203,25,188,33,216,33,216,25,188,30,193,33,216,30,193,36,194,36,194,39,193,44,225,44,225,39,193,41,190,44,225,41,190,44,184,13,188,5,172,12,170,13,188,12,170,15,176,13,188,15,176,22,203,87,190,86,190,88,0,87,190,88,0,88,174,87,190,88,174,102,205,88,174,100,185,102,205,102,205,100,185,111,194,102,205,111,194,117,216,117,216,111,194,120,199,117,216,120,199,131,224,131,224,120,199,130,202,131,224,130,202,140,203,140,203,153,201,145,229,145,229,153,201,159,230,88,0,86,190,84,205,88,0,84,205,81,215,88,0,81,215,76,223,88,0,76,223,68,226,88,0,68,226,56,228,88,0,56,228,46,156,88,0,46,156,46,0,145,229,131,224,140,203,218,-65,218,160,216,182,218,-65,216,182,208,202,218,-65,208,202,218,-76,196,217,180,226,181,-103,196,217,181,-103,184,-107,196,217,184,-107,218,-76,196,217,218,-76,208,202,184,-107,226,-107,223,-101,184,-107,223,-101,221,-94,184,-107,221,-94,219,-86,184,-107,219,-86,218,-76,180,226,159,230,163,195,180,226,163,195,170,185,180,226,170,185,174,172,180,226,174,172,176,154,180,226,176,154,176,-79,180,226,176,-79,177,-89,180,226,177,-89,179,-97,180,226,179,-97,181,-103,176,154,176,-64,176,-79,132,331,134,294,136,330,136,330,134,294,138,299,136,330,138,299,140,329,140,329,138,299,142,304,140,329,142,304,144,326,144,326,142,304,145,309,144,326,145,309,146,322,146,322,145,309,147,313,146,322,147,313,147,316,134,294,132,331,127,330,134,294,127,330,122,329,134,294,122,329,119,327,134,294,119,327,116,324,134,294,116,324,113,320,134,294,113,320,101,253,45,173,46,156,56,228,45,173,56,228,44,225,45,173,44,225,44,184,44,225,33,216,36,194,101,253,113,320,84,253,159,230,153,201,163,195,
+40,253,57,253,90,294,98,304,101,309,103,313,103,316,102,322,100,326,96,329,93,330,89,331,83,330,78,329,75,327,72,324,70,320,16383,16383,126,54,120,43,115,36,110,31,105,29,99,28,95,29,91,33,90,36,89,40,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,37,196,42,193,45,188,47,181,47,39,48,26,51,14,57,4,65,-2,77,-4,92,-1,105,7,116,20,126,35,133,50,202,278,201,286,197,293,192,298,185,302,177,303,169,302,163,298,157,293,154,286,152,278,154,271,157,264,163,258,169,255,177,253,185,255,192,258,197,264,201,271,202,278,16383,16383,100,253,118,253,151,294,159,304,162,309,163,313,164,316,163,322,161,326,157,329,149,331,143,330,139,329,135,327,132,324,130,320,16383,16383,103,278,101,286,98,293,92,298,85,302,78,303,70,302,63,298,58,293,54,286,53,278,54,271,58,264,
+89,331,90,294,93,330,93,330,90,294,94,299,93,330,94,299,96,329,96,329,94,299,98,304,96,329,98,304,100,326,100,326,98,304,101,309,100,326,101,309,102,322,102,322,101,309,103,313,102,322,103,313,103,316,90,294,89,331,83,330,90,294,83,330,78,329,90,294,78,329,75,327,90,294,75,327,72,324,90,294,72,324,70,320,90,294,70,320,57,253,45,188,57,219,42,193,42,193,57,219,41,214,42,193,41,214,37,196,37,196,41,214,31,196,28,196,31,196,41,214,28,196,41,214,26,208,57,4,65,-2,72,224,72,224,65,-2,77,-4,72,224,77,-4,88,230,88,230,77,-4,89,40,88,230,89,40,89,228,91,33,92,-1,93,31,93,31,92,-1,105,7,93,31,105,7,95,29,95,29,105,7,99,28,105,29,99,28,105,7,105,29,105,7,116,20,133,50,126,54,126,35,126,35,126,54,120,43,126,35,120,43,116,20,116,20,120,43,115,36,116,20,115,36,110,31,92,-1,91,33,90,36,92,-1,90,36,89,40,92,-1,89,40,77,-4,57,219,45,188,47,181,57,219,47,181,47,172,57,219,47,172,48,26,57,219,48,26,51,14,57,219,51,14,57,4,57,219,57,4,72,224,47,172,47,39,48,26,26,208,10,204,15,196,26,208,15,196,20,196,26,208,20,196,24,196,26,208,24,196,28,196,15,196,10,204,10,195,105,29,116,20,110,31,57,253,70,320,40,253,
+202,278,201,286,197,293,192,298,185,302,177,303,169,302,163,298,157,293,154,286,152,278,154,271,157,264,163,258,169,255,177,253,185,255,192,258,197,264,201,271,202,278,16383,16383,100,253,118,253,151,294,159,304,162,309,163,313,164,316,163,322,161,326,157,329,149,331,143,330,139,329,135,327,132,324,130,320,16383,16383,103,278,101,286,98,293,92,298,85,302,78,303,70,302,63,298,58,293,54,286,53,278,54,271,58,264,63,258,70,255,78,253,85,255,92,258,98,264,101,271,103,278,16383,16383,127,230,127,220,139,218,149,214,159,209,168,201,177,191,186,176,193,159,198,141,201,122,202,104,200,75,193,49,182,28,165,14,142,9,121,14,106,28,97,47,92,68,91,87,91,193,90,205,86,215,80,222,71,226,60,228,47,225,36,216,26,203,16,188,8,172,15,170,18,176,28,188,33,193,39,194,43,192,46,187,48,180,49,170,49,99,51,66,60,38,76,15,102,0,139,-4,174,1,204,18,227,43,242,75,247,113,241,155,226,188,202,211,173,225,141,230,257,65,255,50,252,39,248,32,245,27,241,26,232,31,223,43,216,60,210,78,206,94,261,225,212,225,190,157,182,178,171,198,156,215,137,226,113,230,79,224,52,207,31,181,19,148,15,112,19,73,32,41,52,16,78,1,108,-4,129,-1,147,5,162,17,174,32,185,50,190,32,196,17,204,5,213,-1,225,-4,239,0,250,8,258,24,263,43,265,65,16383,16383,166,104,162,84,155,59,145,35,131,16,113,9,90,19,75,43,66,76,61,109,60,137,63,167,70,189,81,204,95,213,110,216,129,208,144,187,154,159,161,130,166,104,172,200,181,204,190,209,196,215,202,222,206,229,209,236,211,244,213,251,213,257,214,264,209,289,197,311,179,327,157,338,133,342,102,337,76,322,54,293,41,249,36,186,36,-67,34,-85,30,-101,27,-107,70,-107,72,-102,74,-95,76,-87,78,-67,78,16,88,7,98,1,108,-2,119,-3,131,-4,164,2,192,19,214,46,228,78,233,114,231,137,223,158,211,176,194,190,173,199,16383,16383,78,243,78,250,79,276,85,297,95,314,108,324,
+18,176,23,182,26,203,26,203,23,182,28,188,26,203,28,188,36,216,36,216,28,188,33,193,36,216,33,193,39,194,39,194,43,192,47,225,47,225,43,192,46,187,47,225,46,187,48,180,16,188,8,172,15,170,16,188,15,170,18,176,16,188,18,176,26,203,49,99,51,66,49,159,49,170,49,159,60,228,49,170,60,228,48,180,48,180,60,228,47,225,54,286,54,271,58,293,58,293,54,271,58,264,58,293,58,264,63,298,63,298,58,264,63,258,63,298,63,258,70,302,70,302,63,258,70,255,70,302,70,255,78,303,78,303,70,255,78,253,78,303,78,253,85,302,85,302,78,253,85,255,85,302,85,255,92,298,92,298,85,255,92,258,92,298,92,258,98,293,98,293,92,258,98,264,98,293,98,264,101,286,101,286,98,264,101,271,101,286,101,271,103,278,91,87,91,193,90,205,91,87,90,205,86,215,91,87,86,215,80,222,91,87,80,222,92,68,141,230,127,230,139,218,141,230,139,218,149,214,141,230,149,214,173,225,200,75,193,49,204,18,204,18,193,49,182,28,204,18,182,28,174,1,174,1,182,28,165,14,174,1,165,14,142,9,142,9,121,14,139,-4,139,-4,121,14,106,28,139,-4,106,28,102,0,102,0,106,28,97,47,102,0,97,47,92,68,76,15,102,0,92,68,76,15,92,68,80,222,76,15,80,222,71,226,76,15,71,226,60,228,76,15,60,228,60,38,60,228,49,159,51,66,60,228,51,66,60,38,47,225,36,216,39,194,149,214,159,209,173,225,173,225,159,209,168,201,173,225,168,201,177,191,177,191,186,176,202,211,202,211,186,176,193,159,202,211,193,159,198,141,202,211,202,104,204,18,202,211,204,18,226,188,226,188,204,18,227,43,226,188,227,43,241,155,241,155,227,43,242,75,241,155,242,75,247,113,202,211,198,141,201,122,202,211,201,122,202,104,202,211,173,225,177,191,142,9,139,-4,174,1,154,286,154,271,157,293,157,293,154,271,157,264,157,293,157,264,163,298,163,298,157,264,163,258,163,298,163,258,169,302,169,302,163,258,169,255,169,302,169,255,177,303,177,303,169,255,177,253,177,303,177,253,185,302,185,302,177,253,185,255,185,302,185,255,192,298,192,298,185,255,192,258,192,298,192,258,197,293,197,293,192,258,197,264,197,293,197,264,201,286,201,286,197,264,201,271,201,286,201,271,202,278,149,331,151,294,153,330,153,330,151,294,155,299,153,330,155,299,157,329,157,329,155,299,159,304,157,329,159,304,161,326,161,326,159,304,162,309,161,326,162,309,163,322,163,322,162,309,163,313,163,322,163,313,164,316,151,294,149,331,143,330,151,294,143,330,139,329,151,294,139,329,135,327,151,294,135,327,132,324,151,294,132,324,130,320,151,294,130,320,118,253,118,253,130,320,100,253,154,271,154,286,152,278,200,75,204,18,202,104,139,218,127,230,127,220,54,271,54,286,53,278,
+257,65,255,50,252,39,248,32,245,27,241,26,232,31,223,43,216,60,210,78,206,94,261,225,212,225,190,157,182,178,171,198,156,215,137,226,113,230,79,224,52,207,31,181,19,148,15,112,19,73,32,41,52,16,78,1,108,-4,129,-1,147,5,162,17,174,32,185,50,190,32,196,17,204,5,213,-1,225,-4,239,0,250,8,258,24,263,43,265,65,16383,16383,166,104,162,84,155,59,145,35,131,16,113,9,90,19,75,43,66,76,61,109,60,137,63,167,70,189,81,204,95,213,110,216,129,208,144,187,154,159,161,130,166,104,172,200,181,204,190,209,196,215,202,222,206,229,209,236,211,244,213,251,213,257,214,264,209,289,197,311,179,327,157,338,133,342,102,337,76,322,54,293,41,249,36,186,36,-67,34,-85,30,-101,27,-107,70,-107,72,-102,74,-95,76,-87,78,-67,78,16,88,7,98,1,108,-2,119,-3,131,-4,164,2,192,19,214,46,228,78,233,114,231,137,223,158,211,176,194,190,173,199,16383,16383,78,243,78,250,79,276,85,297,95,314,108,324,124,328,144,322,158,309,167,290,172,268,173,247,172,235,170,225,166,215,160,209,152,206,147,207,141,208,
+63,167,70,189,79,224,79,224,70,189,81,204,79,224,81,204,113,230,113,230,81,204,95,213,113,230,95,213,110,216,110,216,129,208,113,230,113,230,129,208,137,226,144,187,154,159,156,215,156,215,154,159,161,130,156,215,161,130,171,198,171,198,161,130,166,104,171,198,166,104,174,32,171,198,174,32,182,178,182,178,174,32,185,50,182,178,185,50,190,157,190,157,185,50,190,32,190,157,190,32,212,225,212,225,190,32,196,17,212,225,196,17,206,94,206,94,196,17,204,5,206,94,204,5,213,-1,137,226,129,208,144,187,137,226,144,187,156,215,174,32,166,104,162,84,174,32,162,84,162,17,162,17,162,84,155,59,162,17,155,59,147,5,147,5,155,59,145,35,147,5,145,35,131,16,78,1,108,-4,90,19,90,19,108,-4,113,9,131,16,113,9,129,-1,131,16,129,-1,147,5,210,78,206,94,213,-1,212,225,206,94,261,225,252,39,248,32,250,8,250,8,248,32,245,27,250,8,245,27,241,26,241,26,232,31,239,0,239,0,232,31,225,-4,210,78,213,-1,216,60,216,60,213,-1,225,-4,216,60,225,-4,223,43,223,43,225,-4,232,31,258,24,263,43,265,65,258,24,265,65,257,65,258,24,257,65,255,50,258,24,255,50,252,39,258,24,252,39,250,8,241,26,239,0,250,8,113,9,108,-4,129,-1,90,19,75,43,78,1,78,1,75,43,66,76,78,1,66,76,52,16,52,16,66,76,61,109,52,16,61,109,60,137,60,137,63,167,52,207,52,207,63,167,79,224,52,16,60,137,52,207,52,16,52,207,32,41,32,41,52,207,31,181,32,41,31,181,19,73,19,73,31,181,19,148,19,73,19,148,15,112,
+172,200,181,204,190,209,196,215,202,222,206,229,209,236,211,244,213,251,213,257,214,264,209,289,197,311,179,327,157,338,133,342,102,337,76,322,54,293,41,249,36,186,36,-67,34,-85,30,-101,27,-107,70,-107,72,-102,74,-95,76,-87,78,-67,78,16,88,7,98,1,108,-2,119,-3,131,-4,164,2,192,19,214,46,228,78,233,114,231,137,223,158,211,176,194,190,173,199,16383,16383,78,243,78,250,79,276,85,297,95,314,108,324,124,328,144,322,158,309,167,290,172,268,173,247,172,235,170,225,166,215,160,209,152,206,147,207,141,208,136,209,130,210,118,210,112,208,108,206,106,203,105,200,106,195,109,192,113,189,118,188,125,187,130,187,142,190,148,190,158,187,169,178,179,162,187,136,190,101,187,72,179,47,167,28,150,16,129,11,114,13,100,19,88,26,80,35,78,45,222,225,172,225,120,49,115,84,108,130,97,177,78,214,49,228,32,224,20,212,12,195,7,173,5,150,12,150,16,166,21,178,28,187,35,192,41,194,66,179,84,143,96,96,103,50,107,18,103,9,100,0,96,-7,90,-25,84,-47,82,-57,81,-66,81,-74,82,-85,85,-94,90,-101,96,-106,105,-108,118,-105,127,-98,133,-87,135,-73,136,-58,136,-45,135,-32,133,-19,131,-8,129,0,110,213,77,203,50,187,31,164,19,137,15,108,20,74,34,44,56,18,86,1,123,-4,161,1,192,17,215,43,230,76,235,116,232,141,225,164,213,184,197,202,176,217,145,233,114,248,87,261,68,274,61,290,64,302,72,310,83,316,95,319,106,320,137,316,154,307,165,296,176,286,191,282,198,284,203,288,206,293,208,299,209,304,203,318,188,328,168,336,145,340,124,342,102,340,81,334,61,324,
+108,324,124,328,124,328,133,342,124,328,144,322,133,342,144,322,157,338,157,338,144,322,158,309,157,338,158,309,179,327,179,327,158,309,167,290,179,327,167,290,172,268,172,200,181,204,172,235,172,200,172,235,170,225,172,200,170,225,169,178,172,200,169,178,179,162,172,200,179,162,173,199,233,114,231,137,228,78,228,78,231,137,223,158,228,78,223,158,214,46,214,46,223,158,211,176,214,46,211,176,194,190,192,19,214,46,194,190,192,19,194,190,190,101,192,19,190,101,187,72,192,19,187,72,179,47,192,19,179,47,167,28,192,19,167,28,164,2,194,190,173,199,179,162,194,190,179,162,187,136,194,190,187,136,190,101,170,225,166,215,169,178,169,178,166,215,160,209,169,178,160,209,158,187,158,187,160,209,152,206,129,11,131,-4,150,16,150,16,131,-4,164,2,150,16,164,2,167,28,85,297,95,314,102,337,102,337,95,314,108,324,102,337,108,324,133,342,133,342,108,324,124,328,78,250,79,276,76,322,78,250,76,322,76,-87,78,250,76,-87,77,-77,78,250,77,-77,78,-67,76,322,79,276,85,297,76,322,85,297,102,337,76,322,54,293,70,-107,76,322,70,-107,72,-102,76,322,72,-102,74,-95,76,322,74,-95,76,-87,70,-107,54,293,41,249,70,-107,41,249,36,186,70,-107,36,186,36,-67,70,-107,36,-67,35,-76,70,-107,35,-76,34,-85,70,-107,34,-85,32,-93,70,-107,32,-93,30,-101,70,-107,30,-101,27,-107,114,13,100,19,108,-2,114,13,108,-2,119,-3,114,13,119,-3,129,11,108,-2,100,19,98,1,98,1,100,19,88,26,98,1,88,26,88,7,88,7,88,26,80,35,88,7,80,35,78,45,78,45,78,16,88,7,148,190,152,206,147,207,148,190,147,207,142,190,118,188,125,187,127,210,127,210,125,187,130,187,127,210,130,187,130,210,130,210,130,187,134,188,130,210,134,188,136,209,136,209,134,188,138,189,136,209,138,189,141,208,141,208,138,189,142,190,141,208,142,190,147,207,106,203,106,195,108,206,108,206,106,195,109,192,108,206,109,192,112,208,112,208,109,192,113,189,112,208,113,189,118,210,118,210,113,189,118,188,118,210,118,188,127,210,173,247,181,204,179,327,173,247,179,327,172,268,206,229,209,236,209,289,209,289,209,236,211,244,209,289,211,244,214,264,214,264,211,244,213,251,214,264,213,251,213,257,190,209,196,215,197,311,197,311,196,215,202,222,197,311,202,222,209,289,209,289,202,222,206,229,197,311,179,327,181,204,197,311,181,204,190,209,172,235,181,204,173,247,148,190,158,187,152,206,131,-4,129,11,119,-3,106,195,106,203,105,200,
+222,225,172,225,120,49,115,84,108,130,97,177,78,214,49,228,32,224,20,212,12,195,7,173,5,150,12,150,16,166,21,178,28,187,35,192,41,194,66,179,84,143,96,96,103,50,107,18,103,9,100,0,96,-7,90,-25,84,-47,82,-57,81,-66,81,-74,82,-85,85,-94,90,-101,96,-106,105,-108,118,-105,127,-98,133,-87,135,-73,136,-58,136,-45,135,-32,133,-19,131,-8,129,0,110,213,77,203,50,187,31,164,19,137,15,108,20,74,34,44,56,18,86,1,123,-4,161,1,192,17,215,43,230,76,235,116,232,141,225,164,213,184,197,202,176,217,145,233,114,248,87,261,68,274,61,290,64,302,72,310,83,316,95,319,106,320,137,316,154,307,165,296,176,286,191,282,198,284,203,288,206,293,208,299,209,304,203,318,188,328,168,336,145,340,124,342,102,340,
+35,192,41,194,41,194,49,228,41,194,66,179,49,228,66,179,78,214,78,214,66,179,84,143,78,214,84,143,97,177,97,177,84,143,96,96,97,177,96,96,103,50,120,49,115,84,118,-105,118,-105,115,84,108,130,118,-105,108,130,107,18,107,18,108,130,103,50,103,50,108,130,97,177,118,-105,127,-98,120,49,120,49,127,-98,129,0,120,49,129,0,172,225,172,225,129,0,222,225,107,18,103,9,105,-108,107,18,105,-108,118,-105,100,0,96,-7,96,-106,100,0,96,-106,105,-108,100,0,105,-108,103,9,96,-7,93,-16,96,-106,96,-106,93,-16,90,-25,96,-106,90,-25,90,-101,90,-101,90,-25,87,-36,90,-101,87,-36,85,-94,85,-94,87,-36,84,-47,85,-94,84,-47,82,-57,82,-85,85,-94,82,-57,82,-85,82,-57,81,-66,82,-85,81,-66,81,-74,135,-73,136,-58,136,-45,135,-73,136,-45,135,-32,135,-73,135,-32,133,-19,135,-73,133,-19,133,-87,133,-87,133,-19,131,-8,133,-87,131,-8,129,0,133,-87,129,0,127,-98,21,178,28,187,32,224,32,224,28,187,35,192,32,224,35,192,49,228,49,228,35,192,41,194,20,212,12,195,12,150,20,212,12,150,16,166,20,212,16,166,21,178,20,212,21,178,32,224,7,173,5,150,12,150,7,173,12,150,12,195,
+110,213,77,203,50,187,31,164,19,137,15,108,20,74,34,44,56,18,86,1,123,-4,161,1,192,17,215,43,230,76,235,116,232,141,225,164,213,184,197,202,176,217,145,233,114,248,87,261,68,274,61,290,64,302,72,310,83,316,95,319,106,320,137,316,154,307,165,296,176,286,191,282,198,284,203,288,206,293,208,299,209,304,203,318,188,328,168,336,145,340,124,342,102,340,81,334,61,324,47,309,42,289,45,269,54,251,68,237,87,224,110,213,16383,16383,190,104,187,71,180,45,168,25,151,13,130,9,121,10,111,13,101,19,93,26,85,35,76,52,69,70,64,88,61,106,60,121,62,144,70,165,84,183,103,195,127,200,149,190,167,172,179,149,187,126,190,104,196,73,182,54,166,39,149,29,131,22,110,20,95,22,80,27,69,36,60,49,57,65,61,81,70,94,83,102,97,107,111,108,117,108,125,106,128,106,133,105,142,106,148,108,153,111,156,115,157,118,156,122,154,124,150,127,145,128,138,129,131,128,121,126,115,125,108,124,92,127,80,133,72,142,67,154,65,167,67,182,74,195,83,206,96,213,112,215,127,215,140,212,148,208,154,203,156,195,155,193,155,190,154,187,154,183,153,179,155,171,158,166,163,161,168,158,175,157,182,158,188,161,194,165,198,171,199,179,194,199,181,214,163,223,142,228,121,230,87,226,60,217,40,202,28,184,24,165,26,152,31,141,39,131,49,123,63,118,47,113,33,103,22,91,15,77,
+42,289,45,269,47,309,47,309,45,269,54,251,47,309,54,251,61,324,61,324,54,251,61,290,68,237,61,290,54,251,64,302,72,310,81,334,81,334,72,310,83,316,81,334,83,316,102,340,102,340,83,316,95,319,102,340,95,319,106,320,106,320,137,316,124,342,124,342,137,316,145,340,61,324,61,290,64,302,61,324,64,302,81,334,198,284,203,288,203,318,203,318,203,288,206,293,203,318,206,293,209,304,209,304,206,293,208,299,154,307,165,296,168,336,168,336,165,296,176,286,168,336,176,286,188,328,188,328,176,286,191,282,188,328,191,282,203,318,203,318,191,282,198,284,145,340,137,316,154,307,145,340,154,307,168,336,235,116,232,141,230,76,230,76,232,141,225,164,230,76,225,164,215,43,215,43,225,164,213,184,215,43,213,184,197,202,192,17,215,43,197,202,192,17,197,202,190,104,192,17,190,104,187,71,192,17,187,71,180,45,192,17,180,45,168,25,192,17,168,25,161,1,197,202,176,217,179,149,197,202,179,149,187,126,197,202,187,126,190,104,145,233,127,200,149,190,145,233,149,190,176,217,176,217,149,190,167,172,176,217,167,172,179,149,111,13,123,-4,121,10,121,10,123,-4,130,9,151,13,130,9,161,1,151,13,161,1,168,25,130,9,123,-4,161,1,124,342,102,340,106,320,69,70,86,1,76,52,76,52,86,1,85,35,93,26,85,35,86,1,93,26,86,1,123,-4,68,274,68,237,87,261,87,261,68,237,87,224,87,261,87,224,114,248,114,248,87,224,110,213,114,248,110,213,127,200,62,144,70,165,77,203,77,203,70,165,84,183,77,203,84,183,110,213,110,213,84,183,103,195,110,213,103,195,127,200,77,203,50,187,62,144,62,144,50,187,60,121,61,106,60,121,56,18,61,106,56,18,64,88,64,88,56,18,86,1,64,88,86,1,69,70,56,18,60,121,50,187,56,18,50,187,34,44,34,44,50,187,31,164,34,44,31,164,20,74,20,74,31,164,19,137,20,74,19,137,15,108,101,19,93,26,123,-4,101,19,123,-4,111,13,61,290,68,237,68,274,127,200,145,233,114,248,
+196,73,182,54,166,39,149,29,131,22,110,20,95,22,80,27,69,36,60,49,57,65,61,81,70,94,83,102,97,107,111,108,117,108,125,106,128,106,133,105,142,106,148,108,153,111,156,115,157,118,156,122,154,124,150,127,145,128,138,129,131,128,121,126,115,125,108,124,92,127,80,133,72,142,67,154,65,167,67,182,74,195,83,206,96,213,112,215,127,215,140,212,148,208,154,203,156,195,155,193,155,190,154,187,154,183,153,179,155,171,158,166,163,161,168,158,175,157,182,158,188,161,194,165,198,171,199,179,194,199,181,214,163,223,142,228,121,230,87,226,60,217,40,202,28,184,24,165,26,152,31,141,39,131,49,123,63,118,47,113,33,103,22,91,15,77,12,61,14,46,21,29,37,13,65,0,108,-4,130,-1,151,6,171,20,189,40,204,68,76,342,59,335,45,327,35,318,29,308,27,296,30,283,38,272,48,265,60,260,71,259,72,257,52,225,36,196,25,166,19,135,17,100,21,58,33,28,49,9,71,-1,95,-4,105,-4,117,-2,128,-1,137,0,143,0,158,-1,170,-5,180,-12,186,-22,188,-34,186,-47,180,-58,170,-67,159,-72,147,-74,140,-72,134,-69,128,-64,123,-61,117,-59,110,-60,104,-63,99,-68,97,-73,96,-80,98,-90,103,-98,111,-103,121,-107,132,-108,151,-104,170,-93,187,-76,199,-55,204,-29,201,-3,192,16,177,30,156,38,128,41,117,41,113,40,103,40,78,44,61,55,49,72,43,93,41,117,44,151,53,184,65,213,80,238,94,257,119,262,142,271,161,283,174,297,179,311,178,316,175,321,171,325,166,327,159,328,142,325,125,315,108,302,94,287,84,273,74,274,65,277,57,281,52,288,
+37,13,65,0,47,113,47,113,65,0,57,65,63,118,57,65,61,81,63,118,61,81,70,94,72,142,67,154,70,94,70,94,67,154,65,167,63,118,65,167,60,217,63,118,60,217,49,123,49,123,60,217,40,202,49,123,40,202,39,131,39,131,40,202,31,141,142,228,121,230,127,215,127,215,121,230,112,215,96,213,112,215,121,230,96,213,121,230,87,226,194,199,181,214,182,158,194,199,182,158,188,161,194,199,188,161,194,165,194,199,194,165,198,171,194,199,198,171,199,179,158,166,163,161,163,223,163,223,163,161,168,158,163,223,168,158,181,214,181,214,168,158,175,157,181,214,175,157,182,158,127,215,140,212,142,228,142,228,140,212,148,208,142,228,148,208,163,223,163,223,148,208,154,203,163,223,154,203,156,195,156,195,158,166,163,223,156,195,155,193,158,166,158,166,155,193,155,190,158,166,155,190,155,171,155,171,155,190,154,187,155,171,154,187,154,183,87,226,60,217,67,182,87,226,67,182,74,195,87,226,74,195,83,206,87,226,83,206,96,213,67,182,60,217,65,167,28,184,24,165,26,152,28,184,26,152,31,141,28,184,31,141,40,202,83,102,97,107,92,127,92,127,97,107,108,124,115,125,108,124,111,108,83,102,92,127,80,133,83,102,80,133,72,142,83,102,72,142,70,94,63,118,70,94,65,167,111,108,108,124,97,107,117,108,121,107,121,126,121,126,121,107,125,106,121,126,125,106,126,127,126,127,125,106,128,106,126,127,128,106,131,128,131,128,128,106,133,105,131,128,133,105,138,129,138,129,133,105,142,106,138,129,142,106,145,128,145,128,142,106,148,108,145,128,148,108,150,127,150,127,148,108,153,111,150,127,153,111,154,124,154,124,153,111,156,115,154,124,156,115,156,122,156,122,156,115,157,118,115,125,111,108,117,108,115,125,117,108,121,126,80,27,108,-4,95,22,95,22,108,-4,110,20,131,22,110,20,130,-1,131,22,130,-1,151,6,69,36,60,49,65,0,69,36,65,0,108,-4,69,36,108,-4,80,27,57,65,65,0,60,49,12,61,14,46,15,77,15,77,14,46,21,29,15,77,21,29,22,91,22,91,21,29,37,13,22,91,37,13,33,103,33,103,37,13,47,113,204,68,196,73,189,40,189,40,196,73,182,54,189,40,182,54,171,20,171,20,182,54,166,39,171,20,166,39,151,6,151,6,166,39,149,29,151,6,149,29,131,22,110,20,108,-4,130,-1,47,113,57,65,63,118,155,171,154,183,153,179,
+76,342,59,335,45,327,35,318,29,308,27,296,30,283,38,272,48,265,60,260,71,259,72,257,52,225,36,196,25,166,19,135,17,100,21,58,33,28,49,9,71,-1,95,-4,105,-4,117,-2,128,-1,137,0,143,0,158,-1,170,-5,180,-12,186,-22,188,-34,186,-47,180,-58,170,-67,159,-72,147,-74,140,-72,134,-69,128,-64,123,-61,117,-59,110,-60,104,-63,99,-68,97,-73,96,-80,98,-90,103,-98,111,-103,121,-107,132,-108,151,-104,170,-93,187,-76,199,-55,204,-29,201,-3,192,16,177,30,156,38,128,41,117,41,113,40,103,40,78,44,61,55,49,72,43,93,41,117,44,151,53,184,65,213,80,238,94,257,119,262,142,271,161,283,174,297,179,311,178,316,175,321,171,325,166,327,159,328,142,325,125,315,108,302,94,287,84,273,74,274,65,277,57,281,52,288,50,298,51,305,55,312,61,320,70,328,81,334,226,-107,223,-101,221,-94,219,-86,218,-76,218,160,216,182,208,202,196,217,180,226,159,230,145,229,131,224,117,216,102,205,87,190,86,190,84,205,81,215,76,223,68,226,56,228,44,225,33,216,22,203,13,188,5,172,12,170,15,176,25,188,30,193,36,194,39,193,41,190,44,184,45,173,46,156,46,0,88,0,88,174,100,185,111,194,120,199,130,202,140,203,153,201,163,195,170,185,174,172,176,154,176,-79,177,-89,179,-97,181,-103,184,-107,234,166,233,198,230,228,226,254,220,277,211,296,199,313,185,325,169,334,150,340,126,342,87,333,55,310,32,273,18,226,13,170,14,144,15,120,18,100,23,81,28,64,40,41,55,21,74,7,96,-1,122,-4,161,3,192,27,215,63,229,110,234,166,16383,16383,59,177,59,193,62,247,70,285,83,310,99,324,119,328,150,318,171,292,182,256,188,216,189,177,16383,16383,
+43,93,41,117,41,117,36,196,41,117,44,151,36,196,44,151,52,225,52,225,44,151,53,184,52,225,53,184,72,257,72,257,53,184,65,213,72,257,65,213,80,238,48,265,50,298,45,327,48,265,45,327,38,272,38,272,45,327,35,318,38,272,35,318,30,283,30,283,35,318,29,308,30,283,29,308,27,296,51,305,55,312,59,335,59,335,55,312,61,320,59,335,61,320,76,342,76,342,61,320,70,328,76,342,70,328,81,334,51,305,59,335,45,327,51,305,45,327,50,298,108,302,94,287,94,257,94,257,94,287,84,273,94,257,84,273,80,238,80,238,84,273,74,274,80,238,74,274,72,257,72,257,74,274,71,259,166,327,159,328,161,283,161,283,159,328,142,325,161,283,142,325,142,271,142,271,142,325,125,315,142,271,125,315,119,262,119,262,125,315,108,302,119,262,108,302,94,257,65,277,57,281,60,260,65,277,60,260,71,259,65,277,71,259,74,274,52,288,50,298,48,265,52,288,48,265,60,260,52,288,60,260,57,281,71,-1,95,-4,78,44,78,44,95,-4,103,40,108,40,103,40,105,-4,108,40,105,-4,117,-2,61,55,49,72,49,9,61,55,49,9,71,-1,61,55,71,-1,78,44,43,93,41,117,33,28,43,93,33,28,49,9,43,93,49,9,49,72,41,117,36,196,33,28,33,28,36,196,25,166,33,28,25,166,21,58,21,58,25,166,19,135,21,58,19,135,17,100,177,30,156,38,158,-1,158,-1,156,38,143,0,137,0,143,0,156,38,137,0,156,38,128,41,128,-1,137,0,128,41,128,-1,128,41,123,41,128,-1,123,41,117,41,128,-1,117,41,117,-2,113,40,108,40,117,-2,113,40,117,-2,117,41,128,-64,132,-108,134,-69,134,-69,132,-108,151,-104,134,-69,151,-104,140,-72,140,-72,151,-104,147,-74,159,-72,147,-74,151,-104,159,-72,151,-104,170,-93,204,-29,201,-3,199,-55,199,-55,201,-3,192,16,199,-55,192,16,188,-34,188,-34,187,-76,199,-55,158,-1,170,-5,177,30,177,30,170,-5,180,-12,177,30,180,-12,192,16,192,16,180,-12,186,-22,192,16,186,-22,188,-34,187,-76,188,-34,186,-47,187,-76,186,-47,180,-58,187,-76,180,-58,170,-67,187,-76,170,-67,170,-93,110,-60,111,-103,117,-59,117,-59,111,-103,121,-107,117,-59,121,-107,123,-61,123,-61,121,-107,132,-108,123,-61,132,-108,128,-64,97,-73,98,-90,99,-68,99,-68,98,-90,103,-98,99,-68,103,-98,104,-63,104,-63,103,-98,111,-103,104,-63,111,-103,110,-60,175,321,171,325,174,297,175,321,174,297,179,311,175,321,179,311,178,316,166,327,161,283,174,297,166,327,174,297,171,325,103,40,95,-4,105,-4,98,-90,97,-73,96,-80,159,-72,170,-93,170,-67,
+226,-107,223,-101,221,-94,219,-86,218,-76,218,160,216,182,208,202,196,217,180,226,159,230,145,229,131,224,117,216,102,205,87,190,86,190,84,205,81,215,76,223,68,226,56,228,44,225,33,216,22,203,13,188,5,172,12,170,15,176,25,188,30,193,36,194,39,193,41,190,44,184,45,173,46,156,46,0,88,0,88,174,100,185,111,194,120,199,130,202,140,203,153,201,163,195,170,185,174,172,176,154,176,-79,177,-89,179,-97,181,-103,184,-107,234,166,233,198,230,228,226,254,220,277,211,296,199,313,185,325,169,334,150,340,126,342,87,333,55,310,32,273,18,226,13,170,14,144,15,120,18,100,23,81,28,64,40,41,55,21,74,7,96,-1,122,-4,161,3,192,27,215,63,229,110,234,166,16383,16383,59,177,59,193,62,247,70,285,83,310,99,324,119,328,150,318,171,292,182,256,188,216,189,177,16383,16383,189,158,187,109,180,67,168,36,151,16,128,9,98,18,78,42,67,77,61,118,
+15,176,20,182,22,203,22,203,20,182,25,188,22,203,25,188,33,216,33,216,25,188,30,193,33,216,30,193,36,194,36,194,39,193,44,225,44,225,39,193,41,190,44,225,41,190,44,184,13,188,5,172,12,170,13,188,12,170,15,176,13,188,15,176,22,203,87,190,86,190,88,0,87,190,88,0,88,174,87,190,88,174,102,205,88,174,100,185,102,205,102,205,100,185,111,194,102,205,111,194,117,216,117,216,111,194,120,199,117,216,120,199,131,224,131,224,120,199,130,202,131,224,130,202,140,203,140,203,153,201,145,229,145,229,153,201,159,230,88,0,86,190,84,205,88,0,84,205,81,215,88,0,81,215,76,223,88,0,76,223,68,226,88,0,68,226,56,228,88,0,56,228,46,156,88,0,46,156,46,0,145,229,131,224,140,203,218,-65,218,160,216,182,218,-65,216,182,208,202,218,-65,208,202,218,-76,196,217,180,226,181,-103,196,217,181,-103,184,-107,196,217,184,-107,218,-76,196,217,218,-76,208,202,184,-107,226,-107,223,-101,184,-107,223,-101,221,-94,184,-107,221,-94,219,-86,184,-107,219,-86,218,-76,180,226,159,230,163,195,180,226,163,195,170,185,180,226,170,185,174,172,180,226,174,172,176,154,180,226,176,154,176,-79,180,226,176,-79,177,-89,180,226,177,-89,179,-97,180,226,179,-97,181,-103,176,154,176,-64,176,-79,45,173,46,156,56,228,45,173,56,228,44,225,45,173,44,225,44,184,44,225,33,216,36,194,159,230,153,201,163,195,
+234,166,233,198,230,228,226,254,220,277,211,296,199,313,185,325,169,334,150,340,126,342,87,333,55,310,32,273,18,226,13,170,14,144,15,120,18,100,23,81,28,64,40,41,55,21,74,7,96,-1,122,-4,161,3,192,27,215,63,229,110,234,166,16383,16383,59,177,59,193,62,247,70,285,83,310,99,324,119,328,150,318,171,292,182,256,188,216,189,177,16383,16383,189,158,187,109,180,67,168,36,151,16,128,9,98,18,78,42,67,77,61,118,59,161,189,161,126,54,120,43,115,36,110,31,105,29,99,28,95,29,91,33,90,36,89,40,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,37,196,42,193,45,188,47,181,47,39,48,26,51,14,57,4,65,-2,77,-4,92,-1,105,7,116,20,126,35,133,50,252,0,252,7,239,10,228,13,219,19,209,27,199,39,113,140,131,158,147,172,161,181,174,185,188,187,194,186,201,185,207,183,213,182,220,181,227,182,233,185,239,189,243,196,245,206,
+150,340,126,342,150,318,150,318,126,342,119,328,99,324,119,328,126,342,99,324,126,342,87,333,230,228,226,254,229,110,230,228,229,110,234,166,230,228,234,166,233,198,220,277,211,296,215,63,220,277,215,63,229,110,220,277,229,110,226,254,23,81,28,64,32,273,32,273,28,64,40,41,32,273,40,41,55,310,55,310,40,41,55,21,55,310,55,21,59,193,59,193,55,21,59,161,59,193,59,161,59,177,59,177,59,161,189,177,189,177,59,161,189,161,189,177,189,161,192,27,189,177,192,27,199,313,199,313,192,27,215,63,199,313,215,63,211,296,171,292,182,256,185,325,185,325,182,256,188,216,185,325,188,216,199,313,199,313,188,216,189,177,169,334,150,340,150,318,169,334,150,318,171,292,169,334,171,292,185,325,187,109,180,67,192,27,192,27,180,67,168,36,192,27,168,36,161,3,161,3,168,36,151,16,161,3,151,16,128,9,128,9,98,18,122,-4,122,-4,98,18,96,-1,78,42,67,77,74,7,78,42,74,7,96,-1,78,42,96,-1,98,18,59,161,55,21,61,118,61,118,55,21,74,7,61,118,74,7,67,77,189,158,187,109,192,27,189,158,192,27,189,161,128,9,122,-4,161,3,59,193,62,247,55,310,55,310,62,247,70,285,55,310,70,285,87,333,87,333,70,285,83,310,87,333,83,310,99,324,14,144,15,120,18,226,18,226,15,120,18,100,18,226,18,100,32,273,32,273,18,100,23,81,14,144,18,226,13,170,
+126,54,120,43,115,36,110,31,105,29,99,28,95,29,91,33,90,36,89,40,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,37,196,42,193,45,188,47,181,47,39,48,26,51,14,57,4,65,-2,77,-4,92,-1,105,7,116,20,126,35,133,50,252,0,252,7,239,10,228,13,219,19,209,27,199,39,113,140,131,158,147,172,161,181,174,185,188,187,194,186,201,185,207,183,213,182,220,181,227,182,233,185,239,189,243,196,245,206,244,214,240,220,234,225,226,229,215,230,202,228,184,222,160,205,127,176,83,129,83,229,
+45,188,57,219,42,193,42,193,57,219,41,214,42,193,41,214,37,196,37,196,41,214,31,196,28,196,31,196,41,214,28,196,41,214,26,208,57,4,65,-2,72,224,72,224,65,-2,77,-4,72,224,77,-4,88,230,88,230,77,-4,89,40,88,230,89,40,89,228,91,33,92,-1,93,31,93,31,92,-1,105,7,93,31,105,7,95,29,95,29,105,7,99,28,105,29,99,28,105,7,105,29,105,7,116,20,133,50,126,54,126,35,126,35,126,54,120,43,126,35,120,43,116,20,116,20,120,43,115,36,116,20,115,36,110,31,92,-1,91,33,90,36,92,-1,90,36,89,40,92,-1,89,40,77,-4,57,219,45,188,47,181,57,219,47,181,47,172,57,219,47,172,48,26,57,219,48,26,51,14,57,219,51,14,57,4,57,219,57,4,72,224,47,172,47,39,48,26,26,208,10,204,15,196,26,208,15,196,20,196,26,208,20,196,24,196,26,208,24,196,28,196,15,196,10,204,10,195,105,29,116,20,110,31,
+252,0,252,7,239,10,228,13,219,19,209,27,199,39,113,140,131,158,147,172,161,181,174,185,188,187,194,186,201,185,207,183,213,182,220,181,227,182,233,185,239,189,243,196,245,206,244,214,240,220,234,225,226,229,215,230,202,228,184,222,160,205,127,176,83,129,83,229,81,230,70,226,48,220,35,216,18,212,3,208,3,200,10,200,14,201,20,201,28,200,34,197,38,192,40,183,41,171,41,0,83,0,83,113,148,34,151,30,155,24,156,22,156,20,155,15,153,12,149,9,144,8,137,7,133,7,133,0,238,69,235,53,229,42,222,35,215,31,209,30,200,32,193,38,186,47,181,58,176,71,121,266,113,292,104,313,95,329,83,338,68,342,51,337,39,325,32,308,28,288,26,268,34,268,38,284,43,295,49,302,56,305,64,306,74,304,83,296,92,283,100,267,107,248,113,225,6,0,56,0,128,177,164,45,169,29,176,15,184,4,193,-2,204,-5,219,-1,230,8,239,24,244,45,246,69,251,53,244,42,239,35,234,31,230,29,224,28,221,29,218,31,216,36,215,45,214,56,214,225,172,225,172,59,171,53,169,48,
+10,200,14,201,18,212,18,212,14,201,17,201,18,212,17,201,20,201,20,201,28,200,35,216,35,216,28,200,34,197,35,216,34,197,38,192,7,200,10,200,18,212,7,200,18,212,3,208,7,200,3,208,3,200,35,216,38,192,48,220,48,220,38,192,40,183,48,220,40,183,41,171,83,0,41,171,41,0,35,216,18,212,20,201,83,129,83,229,81,230,83,129,81,230,83,0,83,129,83,0,83,113,83,129,83,113,127,176,131,158,147,172,160,205,160,205,147,172,161,181,160,205,161,181,184,222,184,222,161,181,174,185,184,222,174,185,188,187,188,187,194,186,202,228,202,228,194,186,201,185,202,228,201,185,207,183,127,176,83,113,113,140,127,176,113,140,131,158,127,176,131,158,160,205,83,0,81,230,70,226,83,0,70,226,59,223,83,0,59,223,48,220,83,0,48,220,41,171,227,182,233,185,234,225,234,225,233,185,239,189,234,225,239,189,240,220,240,220,239,189,243,196,240,220,243,196,244,214,244,214,243,196,245,206,207,183,213,182,215,230,215,230,213,182,220,181,215,230,220,181,226,229,226,229,220,181,227,182,226,229,227,182,234,225,202,228,184,222,188,187,153,12,149,9,252,0,252,0,149,9,144,8,252,0,144,8,137,7,156,20,252,0,228,13,156,20,228,13,219,19,156,20,219,19,209,27,156,20,209,27,199,39,156,20,199,39,156,22,199,39,113,140,148,34,199,39,148,34,151,30,199,39,151,30,153,27,199,39,153,27,155,24,199,39,155,24,156,22,239,10,228,13,252,0,239,10,252,0,252,7,155,15,153,12,252,0,155,15,252,0,156,20,133,7,133,0,252,0,133,7,252,0,137,7,148,34,113,140,83,113,202,228,207,183,215,230,
+238,69,235,53,229,42,222,35,215,31,209,30,200,32,193,38,186,47,181,58,176,71,121,266,113,292,104,313,95,329,83,338,68,342,51,337,39,325,32,308,28,288,26,268,34,268,38,284,43,295,49,302,56,305,64,306,74,304,83,296,92,283,100,267,107,248,113,225,6,0,56,0,128,177,164,45,169,29,176,15,184,4,193,-2,204,-5,219,-1,230,8,239,24,244,45,246,69,251,53,244,42,239,35,234,31,230,29,224,28,221,29,218,31,216,36,215,45,214,56,214,225,172,225,172,59,171,53,169,48,166,44,161,40,153,33,144,29,136,26,128,24,121,24,108,26,96,32,87,41,80,53,78,69,78,225,36,225,36,-65,35,-75,34,-84,32,-93,30,-101,27,-107,69,-107,71,-102,73,-94,75,-85,76,-75,76,9,78,9,81,4,87,0,93,-2,101,-4,109,-4,
+56,305,64,306,64,306,68,342,64,306,74,304,68,342,74,304,83,338,83,338,74,304,83,296,83,338,83,296,95,329,95,329,83,296,92,283,95,329,92,283,100,267,113,292,107,248,113,225,113,292,113,225,121,266,121,266,113,225,128,177,121,266,128,177,176,71,176,71,128,177,164,45,176,71,164,45,169,29,104,313,95,329,100,267,104,313,100,267,107,248,104,313,107,248,113,292,176,71,169,29,176,15,176,71,176,15,184,4,113,225,6,0,56,0,113,225,56,0,128,177,200,32,193,38,193,-2,193,-2,193,38,186,47,193,-2,186,47,184,4,184,4,186,47,181,58,184,4,181,58,176,71,235,53,229,42,230,8,230,8,229,42,222,35,230,8,222,35,219,-1,219,-1,222,35,215,31,219,-1,215,31,209,30,209,30,200,32,204,-5,204,-5,200,32,193,-2,239,24,244,45,246,69,239,24,246,69,238,69,239,24,238,69,235,53,239,24,235,53,230,8,209,30,204,-5,219,-1,43,295,49,302,51,337,51,337,49,302,56,305,51,337,56,305,68,342,68,342,56,305,64,306,39,325,32,308,34,268,39,325,34,268,38,284,39,325,38,284,43,295,39,325,43,295,51,337,28,288,26,268,34,268,28,288,34,268,32,308,
+251,53,244,42,239,35,234,31,230,29,224,28,221,29,218,31,216,36,215,45,214,56,214,225,172,225,172,59,171,53,169,48,166,44,161,40,153,33,144,29,136,26,128,24,121,24,108,26,96,32,87,41,80,53,78,69,78,225,36,225,36,-65,35,-75,34,-84,32,-93,30,-101,27,-107,69,-107,71,-102,73,-94,75,-85,76,-75,76,9,78,9,81,4,87,0,93,-2,101,-4,109,-4,119,-3,131,0,144,7,158,19,171,36,172,36,173,23,177,12,182,3,191,-2,203,-4,217,-1,230,7,241,20,250,35,258,50,212,230,206,188,189,141,163,97,129,63,90,45,89,45,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,31,196,37,195,42,192,45,188,47,181,47,-6,59,-6,100,7,134,28,163,55,186,84,203,116,212,141,217,166,220,189,221,211,222,230,89,342,71,335,57,328,48,319,43,309,41,297,42,286,47,278,53,272,61,268,69,266,63,259,58,251,54,242,52,233,51,224,52,215,55,206,59,198,65,190,73,184,54,168,39,150,27,129,20,106,17,81,20,53,29,29,44,11,67,0,98,-4,
+78,225,36,225,69,-107,78,225,69,-107,71,-102,78,225,71,-102,73,-94,78,225,73,-94,75,-85,78,225,75,-85,76,-75,78,225,76,-75,76,9,78,225,76,9,78,9,69,-107,36,225,36,-65,69,-107,36,-65,35,-75,69,-107,35,-75,34,-84,69,-107,34,-84,32,-93,69,-107,32,-93,30,-101,69,-107,30,-101,27,-107,87,0,93,-2,96,32,96,32,93,-2,101,-4,96,32,101,-4,108,26,108,26,101,-4,109,-4,108,26,109,-4,121,24,121,24,109,-4,119,-3,121,24,119,-3,131,0,171,53,169,48,171,36,171,36,169,48,166,44,171,36,166,44,161,40,161,40,153,33,158,19,158,19,153,33,144,29,158,19,144,29,144,7,144,7,144,29,136,26,144,7,136,26,131,0,131,0,136,26,128,24,131,0,128,24,121,24,87,41,80,53,81,4,87,41,81,4,87,0,87,41,87,0,96,32,81,4,80,53,78,69,81,4,78,69,78,9,214,225,172,225,173,23,173,23,172,225,172,68,173,23,172,68,172,36,172,36,172,68,172,59,172,36,172,59,171,36,171,36,172,59,171,53,161,40,158,19,171,36,214,225,173,23,177,12,214,225,177,12,182,3,214,225,182,3,191,-2,214,225,191,-2,203,-4,214,225,203,-4,214,56,244,42,239,35,241,20,241,20,239,35,234,31,241,20,234,31,230,7,230,7,234,31,230,29,230,7,230,29,224,28,224,28,221,29,230,7,230,7,221,29,218,31,230,7,218,31,217,-1,217,-1,218,31,216,36,217,-1,216,36,215,45,250,35,258,50,251,53,250,35,251,53,244,42,250,35,244,42,241,20,215,45,214,56,203,-4,215,45,203,-4,217,-1,76,9,76,-75,76,-64,
+212,230,206,188,189,141,163,97,129,63,90,45,89,45,89,228,88,230,72,224,57,219,41,214,26,208,10,204,10,195,15,196,31,196,37,195,42,192,45,188,47,181,47,-6,59,-6,100,7,134,28,163,55,186,84,203,116,212,141,217,166,220,189,221,211,222,230,89,342,71,335,57,328,48,319,43,309,41,297,42,286,47,278,53,272,61,268,69,266,63,259,58,251,54,242,52,233,51,224,52,215,55,206,59,198,65,190,73,184,54,168,39,150,27,129,20,106,17,81,20,53,29,29,44,11,67,0,98,-4,107,-4,117,-2,
+45,188,57,219,42,192,42,192,57,219,41,214,42,192,41,214,37,195,37,195,41,214,31,196,28,196,31,196,41,214,28,196,41,214,26,208,89,228,88,230,89,45,89,45,88,230,72,224,89,45,72,224,59,-6,59,-6,72,224,57,219,59,-6,57,219,47,172,47,172,57,219,47,181,26,208,10,204,15,196,26,208,15,196,20,196,26,208,20,196,25,196,26,208,25,196,28,196,186,84,189,141,163,55,163,55,189,141,163,97,163,55,163,97,134,28,134,28,163,97,129,63,134,28,129,63,100,7,100,7,129,63,90,45,189,141,203,116,206,188,206,188,203,116,212,141,206,188,212,141,212,230,212,230,212,141,217,166,212,230,217,166,222,230,222,230,217,166,220,189,222,230,220,189,221,211,89,45,59,-6,100,7,89,45,100,7,90,45,47,172,47,-6,59,-6,15,196,10,204,10,195,189,141,186,84,203,116,57,219,45,188,47,181,
+89,342,71,335,57,328,48,319,43,309,41,297,42,286,47,278,53,272,61,268,69,266,63,259,58,251,54,242,52,233,51,224,52,215,55,206,59,198,65,190,73,184,54,168,39,150,27,129,20,106,17,81,20,53,29,29,44,11,67,0,98,-4,107,-4,117,-2,128,-1,137,0,143,0,158,-1,170,-5,180,-12,186,-22,188,-34,186,-47,180,-59,170,-67,159,-72,147,-74,140,-72,134,-69,128,-64,123,-61,117,-59,110,-60,104,-63,99,-68,97,-73,96,-80,98,-90,103,-98,111,-103,121,-107,132,-108,151,-104,170,-93,187,-76,199,-53,204,-26,201,-3,192,15,177,29,156,38,128,41,118,41,111,40,98,40,79,42,63,48,51,59,43,75,40,98,43,118,50,136,62,152,77,164,94,174,102,172,110,171,117,170,142,170,157,173,171,178,181,186,185,197,184,204,179,210,172,214,164,216,153,217,140,216,127,213,113,208,101,202,89,194,83,199,78,204,74,211,72,218,71,225,73,235,77,243,83,251,93,256,106,258,126,260,144,264,160,271,171,280,175,291,174,297,171,301,166,305,160,307,151,307,139,306,125,303,111,297,96,290,83,281,76,283,70,286,66,291,64,297,63,305,64,310,66,316,72,322,80,328,93,334,237,114,232,151,218,183,197,208,167,224,129,230,91,223,60,203,37,174,22,139,17,101,23,67,38,38,62,15,92,0,126,-4,161,2,191,20,215,47,231,79,237,114,16383,16383,192,95,190,74,183,52,172,31,156,17,134,11,107,19,87,38,73,65,65,95,62,122,64,145,70,169,80,191,97,207,119,214,148,205,168,184,182,155,190,124,192,95,233,69,229,55,223,45,216,40,209,37,203,36,194,38,188,41,184,47,180,54,178,61,177,69,176,78,175,88,175,109,176,127,176,144,178,160,179,173,180,183,239,183,239,225,97,225,68,222,46,214,29,200,16,180,4,155,12,155,23,167,35,176,47,180,62,183,78,183,72,119,64,77,54,54,42,42,30,36,26,35,20,31,18,25,20,15,23,6,30,0,39,-5,52,-6,77,9,91,48,98,99,100,148,100,183,147,183,145,160,143,136,139,82,139,56,141,37,147,20,156,7,169,-1,185,-4,205,0,220,12,232,29,239,49,241,69,36,-65,35,-75,34,-84,32,-93,30,-101,27,-107,70,-107,72,-102,74,-95,76,-85,77,-75,78,-64,78,15,88,7,98,1,108,-2,118,-4,130,-4,164,1,192,19,214,47,228,82,233,123,228,158,214,188,191,210,163,225,
+51,59,43,75,44,11,44,11,43,75,40,98,39,150,40,98,43,118,39,150,43,118,54,168,54,168,43,118,50,136,54,168,50,136,62,152,61,268,63,305,57,328,61,268,57,328,53,272,53,272,57,328,48,319,53,272,48,319,47,278,47,278,48,319,43,309,47,278,43,309,42,286,42,286,43,309,41,297,64,310,66,316,71,335,71,335,66,316,72,322,71,335,72,322,89,342,89,342,72,322,80,328,89,342,80,328,93,334,64,310,71,335,57,328,64,310,57,328,63,305,73,235,76,283,71,225,71,225,70,286,69,266,69,266,70,286,66,291,69,266,66,291,64,297,83,281,76,283,77,243,83,281,77,243,83,251,83,281,83,251,96,290,72,218,73,184,74,211,74,211,73,184,77,164,74,211,77,164,78,204,78,204,77,164,94,174,78,204,94,174,83,199,83,199,94,174,89,194,101,202,94,174,102,172,101,202,102,172,113,208,113,208,102,172,110,171,113,208,110,171,117,170,73,184,54,168,62,152,73,184,62,152,77,164,73,184,72,218,71,225,73,184,71,225,69,266,73,184,69,266,65,190,52,233,52,215,54,242,54,242,52,215,55,206,54,242,55,206,58,251,58,251,55,206,59,198,58,251,59,198,63,259,63,259,59,198,65,190,63,259,65,190,69,266,64,297,63,305,61,268,64,297,61,268,69,266,128,41,124,41,128,-1,128,-1,124,41,118,41,128,-1,118,41,117,-2,117,-2,118,41,111,40,117,-2,111,40,107,-4,107,-4,111,40,104,40,107,-4,104,40,98,-4,98,-4,104,40,98,40,177,29,156,38,158,-1,158,-1,156,38,143,0,137,0,143,0,156,38,137,0,156,38,128,41,128,-64,132,-108,134,-69,134,-69,132,-108,151,-104,134,-69,151,-104,140,-72,140,-72,151,-104,147,-74,159,-72,147,-74,151,-104,159,-72,151,-104,170,-93,204,-26,201,-3,199,-53,199,-53,201,-3,192,15,199,-53,192,15,188,-34,188,-34,187,-76,199,-53,158,-1,170,-5,177,29,177,29,170,-5,180,-12,177,29,180,-12,192,15,192,15,180,-12,186,-22,192,15,186,-22,188,-34,188,-34,186,-47,187,-76,187,-76,186,-47,180,-59,187,-76,180,-59,170,-93,170,-93,180,-59,170,-67,170,-93,170,-67,159,-72,110,-60,111,-103,117,-59,117,-59,111,-103,121,-107,117,-59,121,-107,123,-61,123,-61,121,-107,132,-108,123,-61,132,-108,128,-64,97,-73,98,-90,99,-68,99,-68,98,-90,103,-98,99,-68,103,-98,104,-63,104,-63,103,-98,111,-103,104,-63,111,-103,110,-60,181,186,185,197,184,204,181,186,184,204,179,210,181,186,179,210,172,214,181,186,172,214,171,178,117,170,124,170,127,213,127,213,124,170,131,170,127,213,131,170,140,216,140,216,131,170,142,170,140,216,142,170,153,217,153,217,142,170,157,173,153,217,157,173,164,216,164,216,157,173,171,178,164,216,171,178,172,214,160,307,160,271,166,305,166,305,160,271,171,280,166,305,171,280,171,301,171,301,171,280,175,291,171,301,175,291,174,297,125,303,126,260,139,306,139,306,126,260,144,264,139,306,144,264,151,307,151,307,144,264,160,271,151,307,160,271,160,307,83,251,93,256,96,290,96,290,93,256,106,258,96,290,106,258,111,297,111,297,106,258,126,260,111,297,126,260,125,303,79,42,63,48,67,0,79,42,67,0,98,-4,79,42,98,-4,98,40,51,59,44,11,67,0,51,59,67,0,63,48,29,29,44,11,40,98,29,29,40,98,39,150,29,29,39,150,27,129,29,29,27,129,20,53,20,106,17,81,20,53,20,106,20,53,27,129,113,208,117,170,127,213,98,-90,97,-73,96,-80,128,41,128,-1,137,0,52,215,52,233,51,224,94,174,101,202,89,194,70,286,71,225,76,283,76,283,73,235,77,243,
+237,114,232,151,218,183,197,208,167,224,129,230,91,223,60,203,37,174,22,139,17,101,23,67,38,38,62,15,92,0,126,-4,161,2,191,20,215,47,231,79,237,114,16383,16383,192,95,190,74,183,52,172,31,156,17,134,11,107,19,87,38,73,65,65,95,62,122,64,145,70,169,80,191,97,207,119,214,148,205,168,184,182,155,190,124,192,95,233,69,229,55,223,45,216,40,209,37,203,36,194,38,188,41,184,47,180,54,178,61,177,69,176,78,175,88,175,109,176,127,176,144,178,160,179,173,180,183,239,183,239,225,97,225,68,222,46,214,29,200,16,180,4,155,12,155,23,167,35,176,47,180,62,183,78,183,72,119,64,77,54,54,42,42,30,36,26,35,20,31,18,25,20,15,
+97,207,119,214,119,214,129,230,119,214,148,205,129,230,148,205,167,224,167,224,148,205,168,184,167,224,168,184,197,208,197,208,168,184,182,155,197,208,182,155,190,124,190,74,183,52,191,20,191,20,183,52,172,31,191,20,172,31,161,2,161,2,172,31,156,17,161,2,156,17,134,11,134,11,107,19,126,-4,126,-4,107,19,92,0,107,19,87,38,92,0,92,0,87,38,73,65,92,0,73,65,62,15,62,15,73,65,65,95,62,15,65,95,62,122,80,191,91,223,70,169,70,169,91,223,60,203,70,169,60,203,64,145,64,145,60,203,62,122,62,15,62,122,60,203,62,15,60,203,38,38,38,38,60,203,37,174,38,38,37,174,23,67,23,67,37,174,22,139,23,67,22,139,17,101,237,114,232,151,231,79,231,79,232,151,218,183,231,79,218,183,215,47,215,47,218,183,197,208,215,47,197,208,192,95,192,95,191,20,215,47,134,11,126,-4,161,2,97,207,119,214,129,230,97,207,129,230,91,223,97,207,91,223,80,191,190,74,191,20,192,95,197,208,190,124,192,95,
+233,69,229,55,223,45,216,40,209,37,203,36,194,38,188,41,184,47,180,54,178,61,177,69,176,78,175,88,175,109,176,127,176,144,178,160,179,173,180,183,239,183,239,225,97,225,68,222,46,214,29,200,16,180,4,155,12,155,23,167,35,176,47,180,62,183,78,183,72,119,64,77,54,54,42,42,30,36,26,35,20,31,18,25,20,15,23,6,30,0,39,-5,52,-6,77,9,91,48,98,99,100,148,100,183,147,183,145,160,143,136,139,82,139,56,141,37,147,20,156,7,169,-1,185,-4,205,0,220,12,232,29,239,49,241,69,36,-65,35,-75,34,-84,32,-93,30,-101,27,-107,70,-107,72,-102,74,-95,76,-85,77,-75,78,-64,78,15,88,7,98,1,108,-2,118,-4,130,-4,164,1,192,19,214,47,228,82,233,123,228,158,214,188,191,210,163,225,129,230,101,225,75,210,54,182,41,138,36,76,16383,16383,78,137,79,163,85,185,94,202,107,212,123,216,145,211,163,197,177,175,186,144,190,106,187,75,179,49,166,29,150,16,129,11,115,13,101,18,89,26,81,35,78,44,216,176,213,191,205,206,190,218,169,227,142,230,107,223,73,202,45,171,25,130,17,83,21,45,
+72,119,64,77,77,9,77,9,64,77,54,54,77,9,54,54,52,-6,52,-6,54,54,42,42,52,-6,42,42,39,-5,39,-5,42,42,30,36,39,-5,30,36,30,0,30,0,30,36,26,35,30,0,26,35,23,6,23,6,26,35,23,33,23,6,23,33,20,31,20,15,23,6,20,31,20,15,20,31,19,28,20,15,19,28,18,25,97,225,68,222,78,183,78,183,91,48,97,225,97,225,91,48,98,99,97,225,98,99,100,183,100,183,98,99,100,148,180,183,239,183,239,225,180,183,239,225,147,183,147,183,239,225,100,183,176,78,175,88,169,-1,169,-1,175,88,175,99,169,-1,175,99,175,109,175,109,176,127,169,-1,169,-1,176,127,176,144,169,-1,176,144,156,7,156,7,176,144,178,160,156,7,178,160,179,173,147,20,180,183,147,183,147,20,147,183,145,160,179,173,180,183,147,20,179,173,147,20,156,7,97,225,100,183,239,225,4,155,12,155,16,180,16,180,12,155,23,167,16,180,23,167,29,200,29,200,23,167,35,176,29,200,35,176,46,214,46,214,35,176,47,180,46,214,47,180,68,222,68,222,47,180,62,183,68,222,62,183,78,183,188,41,184,47,185,-4,185,-4,184,47,180,54,185,-4,180,54,178,61,178,61,177,69,185,-4,185,-4,177,69,169,-1,188,41,205,0,194,38,194,38,205,0,203,36,209,37,203,36,205,0,209,37,205,0,220,12,233,69,229,55,232,29,233,69,232,29,239,49,233,69,239,49,241,69,223,45,216,40,220,12,223,45,220,12,232,29,223,45,232,29,229,55,143,136,141,109,141,37,143,136,141,37,147,20,143,136,147,20,145,160,139,82,139,56,141,37,139,82,141,37,141,109,78,183,72,119,77,9,78,183,77,9,91,48,176,78,169,-1,177,69,188,41,185,-4,205,0,209,37,220,12,216,40,
+36,-65,35,-75,34,-84,32,-93,30,-101,27,-107,70,-107,72,-102,74,-95,76,-85,77,-75,78,-64,78,15,88,7,98,1,108,-2,118,-4,130,-4,164,1,192,19,214,47,228,82,233,123,228,158,214,188,191,210,163,225,129,230,101,225,75,210,54,182,41,138,36,76,16383,16383,78,137,79,163,85,185,94,202,107,212,123,216,145,211,163,197,177,175,186,144,190,106,187,75,179,49,166,29,150,16,129,11,115,13,101,18,89,26,81,35,78,44,216,176,213,191,205,206,190,218,169,227,142,230,107,223,73,202,45,171,25,130,17,83,21,45,33,20,50,5,71,-2,95,-4,105,-4,117,-2,128,-1,137,0,143,0,158,-1,170,-5,180,-12,186,-22,188,-34,186,-47,180,-58,170,-67,159,-72,147,-74,140,-72,134,-69,128,-64,123,-61,117,-59,110,-60,104,-63,99,-68,97,-73,96,-80,98,-90,103,-98,111,-103,121,-107,132,-108,151,-104,170,-93,187,-76,199,-55,204,-29,201,-3,192,16,177,30,156,38,
+107,212,123,216,123,216,129,230,123,216,145,211,129,230,145,211,163,225,163,225,145,211,163,197,163,225,163,197,191,210,191,210,163,197,177,175,191,210,177,175,186,144,191,210,190,106,192,19,191,210,192,19,214,188,214,188,192,19,214,47,214,188,214,47,228,158,228,158,214,47,228,82,228,158,228,82,233,123,192,19,190,106,187,75,192,19,187,75,179,49,192,19,179,49,166,29,192,19,166,29,164,1,129,11,130,-4,150,16,150,16,130,-4,164,1,150,16,164,1,166,29,130,-4,129,11,118,-4,118,-4,129,11,115,13,118,-4,115,13,108,-2,108,-2,115,13,101,18,108,-2,101,18,98,1,98,1,101,18,89,26,98,1,89,26,88,7,88,7,89,26,81,35,88,7,81,35,78,44,85,185,94,202,101,225,101,225,94,202,107,212,101,225,107,212,129,230,129,230,107,212,123,216,78,137,79,163,75,210,78,137,75,210,76,-85,78,137,76,-85,77,-75,78,137,77,-75,78,-64,75,210,79,163,85,185,75,210,85,185,101,225,75,210,54,182,70,-107,75,210,70,-107,72,-102,75,210,72,-102,74,-95,75,210,74,-95,76,-85,70,-107,54,182,41,138,70,-107,41,138,36,76,70,-107,36,76,36,-65,70,-107,36,-65,35,-75,70,-107,35,-75,34,-84,70,-107,34,-84,32,-93,70,-107,32,-93,30,-101,70,-107,30,-101,27,-107,78,44,78,15,88,7,191,210,186,144,190,106,
+216,176,213,191,205,206,190,218,169,227,142,230,107,223,73,202,45,171,25,130,17,83,21,45,33,20,50,5,71,-2,95,-4,105,-4,117,-2,128,-1,137,0,143,0,158,-1,170,-5,180,-12,186,-22,188,-34,186,-47,180,-58,170,-67,159,-72,147,-74,140,-72,134,-69,128,-64,123,-61,117,-59,110,-60,104,-63,99,-68,97,-73,96,-80,98,-90,103,-98,111,-103,121,-107,132,-108,151,-104,170,-93,187,-76,199,-55,204,-29,201,-3,192,16,177,30,156,38,128,41,119,41,115,40,103,40,78,45,60,54,48,68,42,85,41,105,45,135,58,158,76,174,97,183,118,186,141,182,158,174,170,163,181,155,192,151,201,153,208,157,212,163,215,169,216,176,259,183,259,225,119,225,87,220,58,207,35,184,20,151,15,108,20,73,35,42,58,18,87,1,119,-4,156,1,187,16,212,38,228,65,233,94,229,121,218,138,203,152,186,165,171,183,16383,16383,189,85,186,63,180,42,168,25,152,13,131,9,110,15,90,30,75,54,64,84,60,117,65,145,78,164,97,176,118,182,137,183,153,172,167,155,178,134,186,110,189,85,221,183,221,225,81,225,55,219,34,204,18,183,7,160,2,138,9,138,16,153,25,166,37,175,50,181,66,183,107,183,102,164,96,142,92,119,88,95,87,71,89,49,94,28,103,11,118,0,138,-4,157,0,172,10,183,27,191,48,193,71,185,71,182,59,176,49,169,42,
+60,54,48,68,50,5,50,5,48,68,42,85,50,5,42,85,33,20,33,20,42,85,41,105,45,171,41,105,45,135,45,171,45,135,73,202,73,202,45,135,58,158,73,202,58,158,76,174,73,202,76,174,107,223,107,223,76,174,97,183,107,223,97,183,118,186,118,186,141,182,142,230,142,230,141,182,158,174,142,230,158,174,169,227,169,227,158,174,170,163,169,227,170,163,190,218,190,218,170,163,181,155,190,218,181,155,192,151,17,83,21,45,25,130,25,130,21,45,33,20,25,130,33,20,45,171,45,171,33,20,41,105,177,30,156,38,158,-1,158,-1,156,38,143,0,137,0,143,0,156,38,137,0,156,38,128,41,128,-1,137,0,128,41,128,-1,128,41,123,41,128,-1,123,41,119,41,128,-1,119,41,117,-2,105,-4,117,-2,107,40,111,40,107,40,117,-2,111,40,117,-2,115,40,115,40,117,-2,119,41,60,54,71,-2,78,45,78,45,71,-2,95,-4,78,45,95,-4,103,40,103,40,95,-4,105,-4,103,40,105,-4,107,40,128,-64,132,-108,134,-69,134,-69,132,-108,151,-104,134,-69,151,-104,140,-72,140,-72,151,-104,147,-74,159,-72,147,-74,151,-104,159,-72,151,-104,170,-93,204,-29,201,-3,199,-55,199,-55,201,-3,192,16,199,-55,192,16,188,-34,188,-34,187,-76,199,-55,158,-1,170,-5,177,30,177,30,170,-5,180,-12,177,30,180,-12,192,16,192,16,180,-12,186,-22,192,16,186,-22,188,-34,187,-76,188,-34,186,-47,187,-76,186,-47,180,-58,187,-76,180,-58,170,-67,187,-76,170,-67,170,-93,110,-60,111,-103,117,-59,117,-59,111,-103,121,-107,117,-59,121,-107,123,-61,123,-61,121,-107,132,-108,123,-61,132,-108,128,-64,97,-73,98,-90,99,-68,99,-68,98,-90,103,-98,99,-68,103,-98,104,-63,104,-63,103,-98,111,-103,104,-63,111,-103,110,-60,213,191,205,206,208,157,213,191,208,157,212,163,213,191,212,163,215,169,213,191,215,169,216,176,205,206,190,218,192,151,205,206,192,151,201,153,205,206,201,153,208,157,142,230,107,223,118,186,98,-90,97,-73,96,-80,159,-72,170,-93,170,-67,60,54,50,5,71,-2,
+259,183,259,225,119,225,87,220,58,207,35,184,20,151,15,108,20,73,35,42,58,18,87,1,119,-4,156,1,187,16,212,38,228,65,233,94,229,121,218,138,203,152,186,165,171,183,16383,16383,189,85,186,63,180,42,168,25,152,13,131,9,110,15,90,30,75,54,64,84,60,117,65,145,78,164,97,176,118,182,137,183,153,172,167,155,178,134,186,110,189,85,221,183,221,225,81,225,55,219,34,204,18,183,7,160,2,138,9,138,16,153,25,166,37,175,50,181,66,183,107,183,102,164,96,142,92,119,88,95,87,71,89,49,94,28,103,11,118,0,138,-4,157,0,172,10,183,27,191,48,193,71,185,71,182,59,176,49,169,42,161,38,151,36,141,39,133,47,128,59,125,74,124,91,125,113,128,135,131,155,134,172,
+186,63,180,42,187,16,187,16,180,42,168,25,187,16,168,25,156,1,156,1,168,25,152,13,156,1,152,13,131,9,131,9,110,15,119,-4,119,-4,110,15,90,30,119,-4,90,30,87,1,87,1,90,30,75,54,87,1,75,54,64,84,58,207,60,117,65,145,58,207,65,145,87,220,87,220,65,145,78,164,87,220,78,164,97,176,58,18,87,1,64,84,58,18,64,84,60,117,58,18,60,117,58,207,58,18,58,207,35,184,58,18,35,184,35,42,20,151,15,108,20,73,20,151,20,73,35,42,20,151,35,42,35,184,153,172,167,155,171,183,171,183,167,155,178,134,171,183,259,225,137,183,119,225,87,220,97,176,119,225,97,176,118,182,119,225,118,182,137,183,119,225,137,183,259,225,137,183,153,172,171,183,233,94,229,121,228,65,228,65,229,121,218,138,228,65,218,138,212,38,212,38,218,138,203,152,212,38,203,152,189,85,189,85,203,152,186,165,189,85,186,165,186,110,186,165,171,183,178,134,186,165,178,134,186,110,189,85,187,16,212,38,131,9,119,-4,156,1,186,63,187,16,189,85,259,225,171,183,259,183,
+221,183,221,225,81,225,55,219,34,204,18,183,7,160,2,138,9,138,16,153,25,166,37,175,50,181,66,183,107,183,102,164,96,142,92,119,88,95,87,71,89,49,94,28,103,11,118,0,138,-4,157,0,172,10,183,27,191,48,193,71,185,71,182,59,176,49,169,42,161,38,151,36,141,39,133,47,128,59,125,74,124,91,125,113,128,135,131,155,134,172,136,183,127,230,127,220,139,218,149,214,159,209,168,201,177,191,186,176,193,159,198,141,201,122,202,104,200,75,193,49,182,28,165,14,142,9,121,14,106,28,97,47,92,68,91,87,91,193,90,205,86,215,80,222,71,226,60,228,47,225,36,216,26,203,16,188,8,172,15,170,18,176,28,188,33,193,39,194,43,192,46,187,48,180,49,170,49,99,51,66,60,38,76,15,
+9,138,16,153,18,183,18,183,16,153,25,166,18,183,25,166,34,204,34,204,25,166,37,175,34,204,37,175,55,219,55,219,37,175,50,181,55,219,50,181,66,183,81,225,66,183,107,183,81,225,107,183,221,225,221,225,107,183,136,183,221,225,136,183,221,183,7,160,2,138,9,138,7,160,9,138,18,183,118,0,125,74,124,91,124,91,125,113,118,0,118,0,125,113,107,183,118,0,107,183,103,11,103,11,107,183,102,164,103,11,102,164,96,142,128,135,131,155,107,183,107,183,131,155,134,172,107,183,134,172,136,183,138,-4,157,0,141,39,141,39,157,0,151,36,161,38,151,36,157,0,161,38,157,0,172,10,185,71,182,59,183,27,185,71,183,27,191,48,185,71,191,48,193,71,176,49,169,42,172,10,176,49,172,10,183,27,176,49,183,27,182,59,138,-4,141,39,133,47,138,-4,133,47,128,59,138,-4,128,59,125,74,138,-4,125,74,118,0,103,11,96,142,94,28,94,28,96,142,92,119,94,28,92,119,89,49,89,49,92,119,88,95,89,49,88,95,87,71,161,38,172,10,169,42,66,183,81,225,55,219,128,135,107,183,125,113,
+127,230,127,220,139,218,149,214,159,209,168,201,177,191,186,176,193,159,198,141,201,122,202,104,200,75,193,49,182,28,165,14,142,9,121,14,106,28,97,47,92,68,91,87,91,193,90,205,86,215,80,222,71,226,60,228,47,225,36,216,26,203,16,188,8,172,15,170,18,176,28,188,33,193,39,194,43,192,46,187,48,180,49,170,49,99,51,66,60,38,76,15,102,0,139,-4,174,1,204,18,227,43,242,75,247,113,241,155,226,188,202,211,173,225,141,230,134,9,124,10,114,13,104,18,94,25,86,34,76,52,68,72,63,94,61,116,60,137,63,166,73,189,88,206,109,216,134,221,134,228,132,229,129,229,126,230,121,230,84,224,54,207,33,181,19,150,15,114,19,78,33,46,55,20,85,3,123,-3,134,-4,134,-107,176,-107,176,-4,220,1,254,18,277,43,292,75,296,111,291,151,278,184,258,209,233,224,207,230,195,229,184,226,175,221,167,215,160,208,148,187,141,162,137,134,135,105,134,76,16383,16383,176,9,176,129,
+18,176,23,182,26,203,26,203,23,182,28,188,26,203,28,188,36,216,36,216,28,188,33,193,36,216,33,193,39,194,39,194,43,192,47,225,47,225,43,192,46,187,47,225,46,187,48,180,16,188,8,172,15,170,16,188,15,170,18,176,16,188,18,176,26,203,49,99,51,66,49,159,49,170,49,159,60,228,49,170,60,228,48,180,48,180,60,228,47,225,91,87,91,193,90,205,91,87,90,205,86,215,91,87,86,215,80,222,91,87,80,222,92,68,141,230,127,230,139,218,141,230,139,218,149,214,141,230,149,214,173,225,200,75,193,49,204,18,204,18,193,49,182,28,204,18,182,28,174,1,174,1,182,28,165,14,174,1,165,14,142,9,142,9,121,14,139,-4,139,-4,121,14,106,28,139,-4,106,28,102,0,102,0,106,28,97,47,102,0,97,47,92,68,76,15,102,0,92,68,76,15,92,68,80,222,76,15,80,222,71,226,76,15,71,226,60,228,76,15,60,228,60,38,60,228,49,159,51,66,60,228,51,66,60,38,47,225,36,216,39,194,149,214,159,209,173,225,173,225,159,209,168,201,173,225,168,201,177,191,177,191,186,176,202,211,202,211,186,176,193,159,202,211,193,159,198,141,202,211,202,104,204,18,202,211,204,18,226,188,226,188,204,18,227,43,226,188,227,43,241,155,241,155,227,43,242,75,241,155,242,75,247,113,202,211,198,141,201,122,202,211,201,122,202,104,202,211,173,225,177,191,142,9,139,-4,174,1,200,75,204,18,202,104,139,218,127,230,127,220,
+134,9,124,10,114,13,104,18,94,25,86,34,76,52,68,72,63,94,61,116,60,137,63,166,73,189,88,206,109,216,134,221,134,228,132,229,129,229,126,230,121,230,84,224,54,207,33,181,19,150,15,114,19,78,33,46,55,20,85,3,123,-3,134,-4,134,-107,176,-107,176,-4,220,1,254,18,277,43,292,75,296,111,291,151,278,184,258,209,233,224,207,230,195,229,184,226,175,221,167,215,160,208,148,187,141,162,137,134,135,105,134,76,16383,16383,176,9,176,129,177,155,178,179,182,198,189,211,201,216,218,209,232,190,243,164,249,134,252,103,250,74,243,49,231,28,214,14,191,9,243,225,194,225,123,93,113,139,103,177,92,206,79,224,63,230,49,227,38,217,31,202,27,182,26,156,34,156,37,171,41,182,46,190,51,194,56,195,67,192,77,183,85,168,93,147,101,119,110,78,6,-104,55,-104,126,26,136,-34,141,-57,148,-78,157,-94,168,-105,182,-109,198,-104,209,-90,216,-71,219,-52,220,-34,213,-34,210,-49,206,-61,201,-68,195,-72,187,-74,188,-74,177,-71,168,-63,160,-48,153,-27,147,1,138,41,342,228,332,230,316,230,290,224,273,209,262,187,256,162,254,136,253,103,249,69,239,39,223,17,197,9,197,225,155,225,155,9,129,17,112,39,103,69,99,104,98,137,
+61,116,60,137,60,137,55,20,60,137,54,207,55,20,54,207,33,46,33,46,54,207,33,181,33,46,33,181,19,78,19,78,33,181,19,150,19,78,19,150,15,114,63,94,55,20,68,72,68,72,55,20,85,3,68,72,85,3,76,52,76,52,85,3,86,34,94,25,86,34,85,3,94,25,85,3,123,-3,61,116,60,137,55,20,61,116,55,20,63,94,135,105,134,76,176,-107,176,-107,134,76,134,9,176,-107,134,9,134,-4,134,-4,134,9,124,10,134,-4,124,10,123,-3,123,-3,124,10,114,13,123,-3,114,13,104,18,134,221,134,228,132,229,134,221,132,229,129,229,134,221,129,229,126,230,134,221,126,230,124,230,134,221,124,230,121,230,134,221,121,230,109,216,175,221,176,-107,176,129,176,9,176,-4,220,1,176,9,220,1,191,9,191,9,220,1,214,14,207,230,201,216,218,209,207,230,218,209,233,224,233,224,218,209,232,190,233,224,232,190,243,164,178,179,182,198,184,226,184,226,182,198,189,211,184,226,189,211,195,229,195,229,189,211,201,216,195,229,201,216,207,230,175,221,176,129,177,155,175,221,177,155,178,179,175,221,178,179,184,226,176,-107,175,221,167,215,176,-107,167,215,160,208,176,-107,160,208,148,187,176,-107,148,187,141,162,176,-107,141,162,137,134,176,-107,137,134,135,105,296,111,291,151,292,75,292,75,291,151,278,184,292,75,278,184,277,43,277,43,278,184,258,209,277,43,258,209,254,18,254,18,258,209,252,103,254,18,252,103,250,74,254,18,250,74,243,49,258,209,233,224,243,164,258,209,243,164,249,134,258,209,249,134,252,103,231,28,214,14,220,1,231,28,220,1,254,18,231,28,254,18,243,49,63,166,73,189,84,224,84,224,73,189,88,206,84,224,88,206,121,230,121,230,88,206,109,216,63,166,84,224,54,207,63,166,54,207,60,137,176,-107,134,-4,134,-107,94,25,123,-3,104,18,
+243,225,194,225,123,93,113,139,103,177,92,206,79,224,63,230,49,227,38,217,31,202,27,182,26,156,34,156,37,171,41,182,46,190,51,194,56,195,67,192,77,183,85,168,93,147,101,119,110,78,6,-104,55,-104,126,26,136,-34,141,-57,148,-78,157,-94,168,-105,182,-109,198,-104,209,-90,216,-71,219,-52,220,-34,213,-34,210,-49,206,-61,201,-68,195,-72,187,-74,188,-74,177,-71,168,-63,160,-48,153,-27,147,1,138,41,342,228,332,230,316,230,290,224,273,209,262,187,256,162,254,136,253,103,249,69,239,39,223,17,197,9,197,225,155,225,155,9,129,17,112,39,103,69,99,104,98,137,96,163,90,188,78,210,61,224,36,230,31,230,25,229,14,229,10,228,10,220,30,210,42,190,49,164,52,137,52,114,55,72,65,39,84,15,114,0,155,-4,155,-107,197,-107,197,-4,236,0,265,16,285,41,296,74,300,114,300,137,303,164,310,190,
+79,224,63,230,67,192,67,192,63,230,56,195,51,194,56,195,63,230,51,194,63,230,49,227,194,225,123,93,126,26,126,26,123,93,113,139,126,26,113,139,110,78,110,78,113,139,103,177,110,78,103,177,101,119,67,192,77,183,79,224,79,224,77,183,85,168,79,224,85,168,92,206,92,206,85,168,93,147,92,206,93,147,103,177,103,177,93,147,101,119,138,41,243,225,194,225,138,41,194,225,126,26,138,41,126,26,136,-34,138,41,136,-34,141,-57,138,41,141,-57,147,1,110,78,6,-104,55,-104,110,78,55,-104,126,26,210,-49,206,-61,209,-90,209,-90,206,-61,201,-68,209,-90,201,-68,198,-104,198,-104,201,-68,195,-72,198,-104,195,-72,188,-74,187,-74,188,-74,177,-71,187,-74,177,-71,182,-109,182,-109,177,-71,168,-105,177,-71,168,-63,168,-105,168,-105,168,-63,160,-48,168,-105,160,-48,157,-94,157,-94,160,-48,153,-27,157,-94,153,-27,148,-78,148,-78,153,-27,147,1,148,-78,147,1,141,-57,216,-71,219,-52,220,-34,216,-71,220,-34,213,-34,216,-71,213,-34,210,-49,216,-71,210,-49,209,-90,187,-74,182,-109,198,-104,187,-74,198,-104,188,-74,34,156,37,171,38,217,38,217,37,171,41,182,38,217,41,182,49,227,49,227,41,182,46,190,49,227,46,190,51,194,34,156,38,217,31,202,34,156,31,202,27,182,34,156,27,182,26,156,
+342,228,332,230,316,230,290,224,273,209,262,187,256,162,254,136,253,103,249,69,239,39,223,17,197,9,197,225,155,225,155,9,129,17,112,39,103,69,99,104,98,137,96,163,90,188,78,210,61,224,36,230,31,230,25,229,14,229,10,228,10,220,30,210,42,190,49,164,52,137,52,114,55,72,65,39,84,15,114,0,155,-4,155,-107,197,-107,197,-4,236,0,265,16,285,41,296,74,300,114,300,137,303,164,310,190,322,211,342,221,180,223,206,218,226,203,240,179,249,146,252,104,252,76,248,51,242,29,229,14,210,9,200,12,190,20,181,33,174,51,170,73,173,85,177,105,178,115,179,127,177,145,174,158,169,168,163,173,156,175,149,173,143,168,138,159,135,145,133,126,134,114,135,103,137,94,139,84,142,73,138,51,132,33,123,20,113,12,100,9,82,15,71,31,64,54,61,81,60,109,63,149,73,180,88,204,108,218,132,223,132,230,94,225,62,211,37,186,
+239,39,223,17,236,0,236,0,223,17,197,9,197,-107,197,9,155,-4,197,225,155,225,155,-4,197,225,155,-4,197,9,155,225,155,9,155,-4,155,-4,155,9,129,17,155,-4,129,17,114,0,114,0,129,17,112,39,114,0,112,39,103,69,99,104,98,137,96,163,99,104,96,163,90,188,99,104,90,188,84,15,99,104,84,15,103,69,52,114,55,72,61,224,61,224,55,72,65,39,61,224,65,39,78,210,78,210,65,39,84,15,78,210,84,15,90,188,42,190,49,164,61,224,61,224,49,164,52,137,61,224,52,137,52,114,61,224,36,230,42,190,42,190,36,230,31,230,42,190,31,230,30,210,30,210,31,230,25,229,30,210,25,229,19,229,14,229,10,228,30,210,14,229,30,210,19,229,262,187,256,162,265,16,265,16,256,162,254,136,265,16,254,136,253,103,342,221,342,228,337,229,342,221,337,229,332,230,342,221,332,230,327,230,342,221,327,230,322,211,303,164,310,190,316,230,316,230,310,190,322,211,316,230,322,211,321,230,321,230,322,211,327,230,262,187,265,16,273,209,273,209,265,16,285,41,273,209,285,41,290,224,290,224,285,41,296,74,290,224,296,74,300,137,300,137,296,74,300,114,290,224,300,137,303,164,290,224,303,164,316,230,265,16,253,103,249,69,265,16,249,69,239,39,265,16,239,39,236,0,197,9,197,-4,236,0,197,-107,155,-4,155,-107,30,210,10,228,10,220,103,69,84,15,114,0,
+180,223,206,218,226,203,240,179,249,146,252,104,252,76,248,51,242,29,229,14,210,9,200,12,190,20,181,33,174,51,170,73,173,85,177,105,178,115,179,127,177,145,174,158,169,168,163,173,156,175,149,173,143,168,138,159,135,145,133,126,134,114,135,103,137,94,139,84,142,73,138,51,132,33,123,20,113,12,100,9,82,15,71,31,64,54,61,81,60,109,63,149,73,180,88,204,108,218,132,223,132,230,94,225,62,211,37,186,20,151,15,104,15,84,18,66,23,50,30,35,39,23,49,13,59,5,70,0,81,-3,93,-4,109,-2,123,3,136,12,147,26,156,43,164,26,175,12,187,3,202,-2,218,-4,230,-3,242,0,253,5,263,13,273,23,282,35,289,49,294,66,296,85,297,105,292,152,275,187,250,211,218,225,180,230,158,286,157,294,153,301,148,306,141,310,133,311,125,310,118,306,113,301,110,294,108,286,109,278,113,272,118,266,125,263,132,262,140,263,148,266,153,272,157,278,158,286,16383,16383,59,286,57,294,54,301,48,306,41,310,33,311,26,310,19,306,14,301,10,294,9,286,10,278,14,272,19,266,25,263,33,262,41,263,48,266,54,272,57,278,59,286,16383,16383,138,54,132,43,127,36,122,31,118,29,112,28,108,29,105,31,103,33,102,36,102,228,99,230,84,224,68,219,53,214,37,208,22,204,22,195,27,196,49,196,54,193,57,188,59,181,60,172,60,39,61,26,63,14,69,4,77,-2,89,-4,104,-1,117,7,128,20,138,35,146,50,202,286,201,294,197,301,192,306,185,310,177,311,169,310,162,306,157,301,154,294,152,286,154,278,
+71,31,64,54,70,0,70,0,64,54,61,81,70,0,61,81,59,5,59,5,61,81,60,109,62,211,60,109,63,149,62,211,63,149,73,180,108,218,132,223,132,230,108,218,132,230,94,225,108,218,94,225,88,204,94,225,62,211,73,180,94,225,73,180,88,204,23,50,30,35,37,186,37,186,30,35,39,23,37,186,39,23,62,211,62,211,39,23,49,13,62,211,49,13,60,109,60,109,49,13,59,5,20,151,15,104,15,84,20,151,15,84,18,66,20,151,18,66,23,50,20,151,23,50,37,186,81,-3,93,-4,82,15,82,15,93,-4,100,9,113,12,100,9,109,-2,113,12,109,-2,123,3,71,31,70,0,81,-3,71,31,81,-3,82,15,174,51,170,73,175,12,174,158,170,73,173,85,174,158,173,85,175,95,177,145,174,158,175,95,177,145,175,95,177,105,177,145,177,105,178,115,177,145,178,115,179,127,156,175,156,43,163,173,163,173,156,43,164,26,163,173,164,26,169,168,169,168,164,26,170,73,169,168,170,73,174,158,174,51,175,12,181,33,181,33,175,12,187,3,181,33,187,3,190,20,190,20,187,3,202,-2,190,20,202,-2,200,12,200,12,202,-2,210,9,229,14,210,9,218,-4,229,14,218,-4,230,-3,282,35,289,49,292,152,292,152,289,49,294,66,292,152,294,66,297,105,297,105,294,66,296,85,275,187,250,211,252,104,275,187,252,104,253,5,275,187,253,5,263,13,275,187,263,13,273,23,275,187,273,23,282,35,275,187,282,35,292,152,240,179,249,146,250,211,250,211,249,146,252,104,253,5,252,104,252,76,240,179,250,211,226,203,226,203,250,211,218,225,226,203,218,225,206,218,206,218,218,225,180,230,206,218,180,230,180,223,229,14,230,-3,242,29,242,29,230,-3,242,0,242,29,242,0,248,51,248,51,242,0,253,5,248,51,253,5,252,76,210,9,202,-2,218,-4,139,84,142,73,143,168,143,168,142,73,147,26,143,168,147,26,149,173,149,173,147,26,156,43,149,173,156,43,156,175,147,26,142,73,138,51,147,26,138,51,136,12,136,12,138,51,132,33,136,12,132,33,123,3,123,3,132,33,123,20,123,3,123,20,113,12,138,159,135,145,135,103,138,159,135,103,137,94,138,159,137,94,139,84,138,159,139,84,143,168,135,145,133,126,134,114,135,145,134,114,135,103,100,9,93,-4,109,-2,170,73,164,26,175,12,
+272,145,263,146,255,146,246,147,238,148,230,150,229,176,225,203,220,230,212,257,201,281,191,300,179,316,163,329,144,338,121,342,100,339,80,331,63,316,50,294,46,264,53,226,74,194,104,168,142,149,185,137,186,133,186,116,185,85,180,56,171,32,157,15,137,9,115,14,101,28,91,46,87,66,85,84,85,110,84,131,81,145,76,154,67,159,55,160,43,158,31,151,20,140,9,125,0,105,7,100,15,114,20,123,25,128,29,131,33,132,37,131,39,128,42,123,43,115,44,104,44,93,46,61,55,34,72,13,97,0,133,-4,172,3,200,26,217,58,227,95,230,134,247,134,256,135,272,137,16383,16383,185,161,141,182,112,208,95,235,86,260,84,280,86,295,91,307,99,316,109,321,119,323,135,320,149,310,162,289,173,253,181,200,181,198,182,193,183,184,184,174,185,161,198,208,186,255,169,291,146,317,117,332,81,337,67,336,53,332,39,327,26,319,15,311,18,303,25,305,33,308,41,310,49,311,55,312,84,306,109,289,130,257,146,211,157,147,157,61,156,39,153,25,144,16,130,12,107,9,107,0,260,0,260,9,239,11,224,15,215,23,210,36,209,55,209,126,211,167,220,219,236,270,261,309,296,325,299,325,305,323,308,321,309,319,307,315,296,304,291,295,289,285,290,276,294,268,301,262,308,259,318,257,329,259,338,265,344,273,348,284,349,295,346,309,339,320,329,330,317,336,303,338,268,330,241,308,221,277,207,242,199,208,176,342,134,342,134,230,126,230,86,224,55,206,32,180,19,149,15,114,19,79,33,47,55,20,85,2,123,-4,134,-4,134,-107,176,-107,176,-4,223,2,257,21,280,48,292,81,296,116,294,143,286,168,272,190,
+20,123,25,128,31,151,31,151,25,128,29,131,31,151,29,131,33,132,33,132,37,131,43,158,43,158,37,131,39,128,43,158,39,128,42,123,0,105,7,100,9,125,9,125,7,100,15,114,9,125,15,114,20,140,20,140,15,114,20,123,20,140,20,123,31,151,44,104,46,61,55,160,55,160,46,61,55,34,55,160,55,34,67,159,67,159,55,34,72,13,67,159,72,13,76,154,76,154,72,13,87,66,76,154,87,66,85,84,85,84,85,110,84,131,85,84,84,131,81,145,85,84,81,145,76,154,121,342,119,323,135,320,121,342,135,320,144,338,144,338,135,320,149,310,144,338,149,310,163,329,163,329,149,310,162,289,163,329,162,289,173,253,180,56,171,32,172,3,172,3,171,32,157,15,172,3,157,15,137,9,137,9,115,14,133,-4,133,-4,115,14,101,28,133,-4,101,28,97,0,97,0,101,28,91,46,97,0,91,46,87,66,43,115,44,104,55,160,43,115,55,160,43,158,43,115,43,158,42,123,43,158,31,151,33,132,272,137,272,145,264,136,264,136,272,145,263,146,264,136,263,146,256,135,256,135,263,146,255,146,256,135,255,146,247,134,247,134,255,146,246,147,247,134,246,147,238,134,238,134,246,147,238,148,238,134,238,148,230,150,230,150,229,176,230,134,230,134,229,176,227,95,229,176,225,203,227,95,227,95,225,203,220,230,227,95,220,230,217,58,217,58,220,230,212,257,217,58,212,257,201,281,217,58,201,281,200,26,200,26,201,281,191,300,200,26,191,300,186,116,186,116,185,85,200,26,200,26,185,85,180,56,200,26,180,56,172,3,137,9,133,-4,172,3,238,134,230,150,230,134,91,307,99,316,100,339,100,339,99,316,109,321,100,339,109,321,121,342,121,342,109,321,119,323,80,331,84,280,86,295,80,331,86,295,100,339,100,339,86,295,91,307,191,300,179,316,181,200,191,300,181,200,181,198,191,300,181,198,182,193,191,300,182,193,183,184,191,300,183,184,184,174,191,300,184,174,185,161,191,300,185,161,185,137,191,300,185,137,186,133,191,300,186,133,186,129,191,300,186,129,186,124,191,300,186,124,186,120,191,300,186,120,186,116,185,161,141,182,142,149,185,161,142,149,185,137,112,208,95,235,104,168,112,208,104,168,142,149,112,208,142,149,141,182,86,260,84,280,74,194,86,260,74,194,104,168,86,260,104,168,95,235,84,280,80,331,74,194,74,194,80,331,63,316,74,194,63,316,53,226,53,226,63,316,50,294,53,226,50,294,46,264,173,253,181,200,179,316,173,253,179,316,163,329,46,61,44,104,44,93,87,66,72,13,97,0,
+176,342,134,342,134,230,126,230,86,224,55,206,32,180,19,149,15,114,19,79,33,47,55,20,85,2,123,-4,134,-4,134,-107,176,-107,176,-4,223,2,257,21,280,48,292,81,296,116,294,143,286,168,272,190,254,208,230,222,221,225,211,228,189,230,176,230,16383,16383,176,9,176,216,203,210,225,193,240,168,249,137,252,102,249,73,243,48,231,27,214,14,191,9,16383,16383,135,9,125,10,114,13,104,18,95,25,86,34,77,51,69,70,64,91,61,113,60,137,62,164,70,186,82,202,99,212,120,216,135,216,363,183,363,225,77,225,53,219,33,204,18,183,8,160,3,137,11,137,18,152,27,164,36,174,48,181,61,183,84,183,76,169,69,153,64,137,61,120,60,103,64,64,76,34,92,12,112,0,134,-4,153,-2,169,3,182,12,193,26,201,43,210,25,221,12,233,2,247,-2,261,-4,286,0,309,12,327,33,339,63,343,102,342,119,340,136,336,153,329,169,320,183,16383,16383,279,183,285,171,291,155,295,138,297,120,298,103,297,76,293,51,286,29,275,15,258,9,246,12,236,20,226,33,219,51,215,74,218,82,
+296,116,294,143,292,81,292,81,294,143,286,168,292,81,286,168,280,48,280,48,286,168,272,190,280,48,272,190,257,21,257,21,272,190,254,208,257,21,254,208,252,102,221,225,225,193,230,222,230,222,225,193,240,168,230,222,240,168,254,208,254,208,240,168,249,137,254,208,249,137,252,102,211,228,200,229,203,210,211,228,203,210,225,193,211,228,225,193,221,225,200,229,189,230,203,210,203,210,189,230,176,230,203,210,176,230,176,216,176,216,176,230,176,342,176,216,176,342,135,216,135,216,176,342,134,342,135,216,134,342,134,230,257,21,252,102,249,73,257,21,249,73,243,48,257,21,243,48,231,27,257,21,231,27,223,2,231,27,214,14,223,2,223,2,214,14,191,9,223,2,191,9,176,-4,176,-4,191,9,176,9,176,-4,176,9,176,-107,176,-107,176,9,135,216,176,-107,135,216,135,9,134,-4,134,-107,176,-107,134,-4,176,-107,135,9,134,-4,135,9,125,10,134,-4,125,10,123,-4,69,70,85,2,77,51,77,51,85,2,86,34,95,25,86,34,85,2,95,25,85,2,123,-4,82,202,86,224,70,186,70,186,86,224,55,206,70,186,55,206,62,164,62,164,55,206,60,137,61,113,60,137,55,20,61,113,55,20,64,91,64,91,55,20,85,2,64,91,85,2,69,70,123,-4,125,10,114,13,123,-4,114,13,104,18,123,-4,104,18,95,25,126,230,86,224,99,212,126,230,99,212,120,216,126,230,120,216,135,216,126,230,135,216,134,230,55,20,60,137,55,206,55,20,55,206,33,47,33,47,55,206,32,180,33,47,32,180,19,79,19,79,32,180,19,149,19,79,19,149,15,114,86,224,82,202,99,212,176,216,135,216,176,9,
+363,183,363,225,77,225,53,219,33,204,18,183,8,160,3,137,11,137,18,152,27,164,36,174,48,181,61,183,84,183,76,169,69,153,64,137,61,120,60,103,64,64,76,34,92,12,112,0,134,-4,153,-2,169,3,182,12,193,26,201,43,210,25,221,12,233,2,247,-2,261,-4,286,0,309,12,327,33,339,63,343,102,342,119,340,136,336,153,329,169,320,183,16383,16383,279,183,285,171,291,155,295,138,297,120,298,103,297,76,293,51,286,29,275,15,258,9,246,12,236,20,226,33,219,51,215,74,218,82,220,90,222,99,224,115,223,126,221,138,217,149,211,156,202,159,193,156,186,149,182,139,180,127,179,116,180,107,181,99,185,81,188,74,183,51,176,33,167,19,156,12,143,9,126,15,115,30,108,52,106,76,105,99,106,118,108,137,112,153,118,169,125,183,155,-46,154,-68,151,-83,143,-91,129,-96,108,-98,108,-107,254,-107,254,-98,233,-96,219,-92,211,-84,207,-71,206,-52,206,-4,252,8,290,33,319,68,337,113,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,23,114,42,69,71,33,109,8,155,-4,16383,16383,287,169,285,134,280,103,272,76,260,53,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,52,90,75,81,102,76,132,74,166,76,194,80,222,87,247,97,269,108,286,121,298,134,308,149,314,164,318,180,320,194,319,207,316,219,311,231,305,242,296,257,279,270,257,279,231,285,201,287,169,103,-107,146,-107,146,-2,176,7,200,26,219,50,231,81,235,116,230,154,215,186,191,210,162,225,127,230,90,225,58,209,35,185,20,153,15,114,
+11,137,18,152,18,183,18,183,18,152,27,164,18,183,27,164,33,204,33,204,27,164,36,174,33,204,36,174,53,219,53,219,36,174,48,181,53,219,48,181,61,183,77,225,61,183,84,183,77,225,84,183,363,225,363,225,84,183,125,183,363,225,125,183,279,183,8,160,3,137,11,137,8,160,11,137,18,183,108,137,112,153,84,183,84,183,112,153,118,169,84,183,118,169,125,183,108,52,112,0,115,30,115,30,112,0,134,-4,115,30,134,-4,126,15,126,15,134,-4,143,9,156,12,143,9,153,-2,156,12,153,-2,169,3,105,99,92,12,106,76,106,76,92,12,112,0,106,76,112,0,108,52,219,51,215,74,221,12,217,149,215,74,218,82,217,149,218,82,221,138,221,138,218,82,220,90,221,138,220,90,222,99,223,126,221,138,222,99,223,126,222,99,223,107,223,126,223,107,224,115,188,74,193,26,193,156,193,156,193,26,201,43,193,156,201,43,202,159,202,159,201,43,210,25,202,159,210,25,211,156,211,156,210,25,215,74,211,156,215,74,217,149,219,51,221,12,226,33,226,33,221,12,233,2,226,33,233,2,236,20,236,20,233,2,247,-2,236,20,247,-2,246,12,246,12,247,-2,258,9,275,15,258,9,261,-4,275,15,261,-4,286,0,363,225,279,183,285,171,363,225,285,171,291,155,363,225,291,155,320,183,363,225,320,183,363,183,340,136,336,153,339,63,339,63,336,153,329,169,339,63,329,169,327,33,327,33,329,169,320,183,327,33,320,183,309,12,309,12,320,183,298,103,291,155,295,138,320,183,320,183,295,138,297,120,320,183,297,120,298,103,106,118,108,137,84,183,106,118,84,183,92,12,106,118,92,12,105,99,340,136,339,63,343,102,340,136,343,102,342,119,309,12,298,103,297,76,309,12,297,76,293,51,309,12,293,51,286,29,309,12,286,29,286,0,258,9,247,-2,261,-4,186,149,182,139,183,90,186,149,183,90,185,81,186,149,185,81,188,74,186,149,188,74,193,156,179,116,180,107,180,127,180,127,180,107,181,99,180,127,181,99,182,139,182,139,181,99,183,90,193,26,188,74,183,51,193,26,183,51,182,12,182,12,183,51,176,33,182,12,176,33,169,3,169,3,176,33,167,19,169,3,167,19,156,12,143,9,134,-4,153,-2,76,169,69,153,76,34,76,169,76,34,92,12,76,169,92,12,84,183,64,137,61,120,64,64,64,137,64,64,76,34,64,137,76,34,69,153,64,64,61,120,60,103,275,15,286,0,286,29,61,183,77,225,53,219,215,74,210,25,221,12,
+257,225,206,225,111,104,110,104,112,114,114,125,115,138,117,150,117,160,115,183,108,202,97,217,82,226,64,230,53,229,43,225,35,219,29,210,27,198,28,193,31,188,35,184,40,181,46,180,54,181,60,184,63,188,67,191,71,192,81,190,89,184,95,174,99,162,100,148,99,136,98,121,96,107,94,94,91,85,21,0,73,0,170,121,171,121,168,111,166,100,164,88,163,76,162,65,164,46,170,27,180,11,194,0,214,-4,225,-3,236,0,244,5,250,14,252,26,251,32,248,37,244,41,239,43,233,44,225,43,219,40,213,34,209,33,199,35,191,40,185,50,181,64,180,85,180,98,181,111,183,122,186,132,189,141,213,-107,214,-103,216,-93,217,-89,217,-86,202,-54,166,-40,119,-30,75,-8,44,40,45,40,55,24,69,11,86,2,106,-2,131,-4,166,1,195,18,217,44,230,75,235,110,230,150,217,183,195,208,166,224,129,230,83,221,50,197,29,163,18,126,15,89,15,69,16,49,18,29,22,10,28,-6,65,-50,110,-71,154,-79,189,-88,205,-107,16383,16383,190,108,188,82,183,55,173,32,157,15,133,9,105,17,85,37,70,66,62,101,60,137,63,166,71,188,83,203,100,213,120,216,141,210,160,195,175,171,186,142,190,108,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,
+95,174,97,217,89,184,89,184,97,217,82,226,89,184,82,226,81,190,81,190,82,226,71,192,67,191,71,192,82,226,67,191,82,226,64,230,206,225,111,104,170,121,170,121,111,104,94,94,170,121,94,94,91,85,91,85,21,0,73,0,112,114,114,125,115,183,115,183,114,125,115,138,115,183,115,138,117,160,117,160,115,138,117,150,110,104,112,114,115,183,110,104,115,183,108,202,110,104,108,202,100,148,110,104,100,148,99,136,110,104,99,136,98,121,110,104,98,121,96,107,110,104,96,107,94,94,110,104,94,94,111,104,191,40,185,50,194,0,194,0,185,50,181,64,194,0,181,64,180,11,180,11,181,64,180,85,171,121,180,85,180,98,171,121,180,98,181,111,186,132,189,141,206,225,186,132,206,225,183,122,183,122,206,225,171,121,183,122,171,121,181,111,206,225,189,141,257,225,99,162,100,148,108,202,99,162,108,202,97,217,91,85,73,0,170,121,225,43,219,40,225,-3,225,-3,219,40,216,37,225,-3,216,37,214,-4,214,-4,216,37,213,34,214,-4,213,34,209,33,209,33,199,35,214,-4,214,-4,199,35,194,0,252,26,251,32,250,14,250,14,251,32,248,37,250,14,248,37,244,5,244,5,248,37,244,41,244,5,244,41,239,43,225,43,225,-3,233,44,233,44,225,-3,236,0,233,44,236,0,239,43,239,43,236,0,244,5,171,121,168,111,170,27,171,121,170,27,180,11,171,121,180,11,180,85,166,100,164,88,164,46,166,100,164,46,170,27,166,100,170,27,168,111,163,76,162,65,164,46,163,76,164,46,164,88,64,230,53,229,54,181,64,230,54,181,60,184,64,230,60,184,63,188,64,230,63,188,67,191,35,184,40,181,43,225,43,225,40,181,46,180,43,225,46,180,53,229,53,229,46,180,54,181,27,198,28,193,29,210,29,210,28,193,31,188,29,210,31,188,35,219,35,219,31,188,35,184,35,219,35,184,43,225,97,217,95,174,99,162,191,40,194,0,199,35,206,225,170,121,171,121,
+213,-107,214,-103,216,-93,217,-89,217,-86,202,-54,166,-40,119,-30,75,-8,44,40,45,40,55,24,69,11,86,2,106,-2,131,-4,166,1,195,18,217,44,230,75,235,110,230,150,217,183,195,208,166,224,129,230,83,221,50,197,29,163,18,126,15,89,15,69,16,49,18,29,22,10,28,-6,65,-50,110,-71,154,-79,189,-88,205,-107,16383,16383,190,108,188,82,183,55,173,32,157,15,133,9,105,17,85,37,70,66,62,101,60,137,63,166,71,188,83,203,100,213,120,216,141,210,160,195,175,171,186,142,190,108,344,166,336,222,314,269,280,306,235,330,180,338,126,330,81,307,46,271,24,224,17,167,24,109,46,61,81,24,126,1,180,-6,234,1,279,24,314,60,336,108,344,166,16383,16383,74,180,77,205,82,229,88,251,97,271,108,286,121,299,134,308,149,315,164,318,180,320,194,319,207,316,219,311,231,305,242,296,256,281,268,261,277,237,284,210,286,180,16383,16383,287,157,285,126,279,98,271,73,260,52,246,35,235,26,223,19,209,15,196,12,181,11,167,12,154,15,142,19,130,25,119,33,103,51,91,73,82,98,
+28,-6,65,-50,44,40,44,40,65,-50,75,-8,75,-8,65,-50,110,-71,75,-8,110,-71,119,-30,119,-30,110,-71,154,-79,119,-30,154,-79,166,-40,166,-40,154,-79,189,-88,166,-40,189,-88,202,-54,202,-54,189,-88,205,-107,202,-54,205,-107,217,-86,217,-86,205,-107,213,-107,217,-86,213,-107,214,-103,55,24,69,11,60,137,60,137,63,166,50,197,50,197,63,166,71,188,50,197,71,188,83,221,83,221,71,188,83,203,83,221,83,203,129,230,129,230,83,203,100,213,129,230,100,213,120,216,120,216,141,210,129,230,129,230,141,210,166,224,133,9,106,-2,131,-4,133,9,131,-4,166,1,133,9,105,17,106,-2,86,2,106,-2,105,17,86,2,105,17,85,37,86,2,85,37,70,66,86,2,70,66,69,11,62,101,60,137,69,11,62,101,69,11,70,66,188,82,183,55,195,18,195,18,183,55,173,32,195,18,173,32,166,1,166,1,173,32,157,15,166,1,157,15,133,9,175,171,186,142,195,208,195,208,186,142,190,108,195,18,190,108,188,82,166,224,141,210,160,195,166,224,160,195,175,171,166,224,175,171,195,208,195,18,217,44,217,183,217,183,217,44,230,75,217,183,230,75,230,150,230,150,230,75,235,110,195,208,190,108,195,18,195,208,195,18,217,183,217,-86,214,-103,215,-98,217,-86,215,-98,216,-93,217,-86,216,-93,217,-89,16,49,18,29,18,126,18,126,18,29,22,10,18,126,22,10,29,163,29,163,22,10,28,-6,29,163,28,-6,44,40,18,126,15,89,15,69,18,126,15,69,16,49,44,40,45,40,50,197,50,197,45,40,55,24,50,197,55,24,60,137,50,197,29,163,44,40,
+196,56,183,41,169,29,155,22,139,17,123,16,100,21,82,35,68,56,60,82,57,112,155,112,155,127,57,127,61,151,69,175,82,196,99,210,119,215,142,212,158,203,169,191,177,177,183,162,191,162,184,230,176,230,174,224,173,222,171,220,167,220,160,221,152,223,144,226,133,229,118,230,82,223,53,205,31,178,17,145,12,108,17,74,30,44,50,18,78,1,112,-4,136,-1,157,5,176,17,191,33,204,52,23,169,37,184,50,195,65,203,80,208,97,209,119,204,138,190,151,169,159,143,162,113,65,113,65,98,162,98,159,73,150,50,137,29,120,15,100,9,77,13,61,21,50,34,42,48,36,63,28,63,36,-4,44,-4,44,-1,46,3,52,5,60,4,67,1,76,0,87,-3,101,-4,137,2,167,20,189,47,202,80,207,117,203,150,190,181,169,207,142,224,108,230,84,227,62,220,44,208,28,192,16,172,243,411,
+155,112,155,127,57,112,57,112,57,127,53,205,53,205,57,127,61,151,53,205,61,151,82,223,82,223,61,151,69,175,82,223,69,175,82,196,68,56,78,1,82,35,82,35,78,1,112,-4,82,35,112,-4,100,21,100,21,112,-4,123,16,139,17,123,16,136,-1,139,17,136,-1,157,5,60,82,57,112,50,18,60,82,50,18,78,1,60,82,78,1,68,56,12,108,17,74,17,145,17,145,17,74,30,44,17,145,30,44,31,178,31,178,30,44,50,18,31,178,50,18,53,205,53,205,50,18,57,112,158,203,169,191,160,221,160,221,169,191,167,220,171,220,167,220,169,191,171,220,169,191,177,177,184,230,176,230,177,177,184,230,177,177,183,162,184,230,183,162,191,162,177,177,176,230,175,227,177,177,175,227,174,224,177,177,174,224,173,222,177,177,173,222,171,220,133,229,119,215,142,212,133,229,142,212,144,226,144,226,142,212,158,203,144,226,158,203,152,223,152,223,158,203,160,221,204,52,196,56,191,33,191,33,196,56,183,41,191,33,183,41,176,17,176,17,183,41,169,29,176,17,169,29,157,5,157,5,169,29,155,22,157,5,155,22,139,17,123,16,112,-4,136,-1,118,230,82,223,82,196,118,230,82,196,99,210,118,230,99,210,119,215,118,230,119,215,133,229,57,127,57,112,155,127,
+350,0,350,9,337,12,327,17,319,26,311,38,304,55,180,337,171,337,68,93,52,58,41,34,31,20,19,13,4,9,4,0,104,0,104,9,91,10,81,12,74,16,70,22,69,30,69,34,70,38,71,43,72,47,74,51,97,108,228,108,248,61,254,45,256,38,257,31,257,23,256,21,255,18,251,14,247,12,239,10,232,10,223,9,223,0,16383,16383,220,128,105,128,162,266,108,183,108,294,109,301,111,306,114,310,119,311,126,312,188,312,202,311,217,307,230,300,242,287,251,267,252,263,253,258,255,254,256,250,256,247,268,247,266,331,9,331,9,321,30,320,44,315,52,308,56,295,57,275,57,56,56,37,52,24,43,16,29,11,9,9,9,0,169,0,209,4,242,16,267,35,283,60,289,91,280,132,256,159,223,174,185,181,146,183,16383,16383,108,163,
+52,58,70,22,69,30,69,30,69,34,68,93,68,93,69,34,70,38,68,93,70,38,71,43,243,11,239,10,350,0,350,0,239,10,232,10,350,0,232,10,223,9,72,47,74,51,171,337,171,337,74,51,97,108,171,337,97,108,105,128,105,128,97,108,228,108,105,128,228,108,220,128,220,128,228,108,304,55,220,128,304,55,180,337,256,21,255,18,350,0,350,0,255,18,253,16,350,0,253,16,251,14,251,14,247,12,350,0,350,0,247,12,243,11,257,26,350,0,327,17,257,26,327,17,319,26,257,26,319,26,311,38,257,26,311,38,304,55,257,26,304,55,257,31,304,55,228,108,248,61,304,55,248,61,251,53,304,55,251,53,254,45,304,55,254,45,256,38,304,55,256,38,257,31,171,337,105,128,162,266,171,337,162,266,220,128,171,337,220,128,180,337,68,93,52,58,69,30,72,47,171,337,68,93,72,47,68,93,71,43,337,12,327,17,350,0,337,12,350,0,350,9,257,23,256,21,350,0,257,23,350,0,257,26,104,0,104,9,91,10,104,0,91,10,81,12,104,0,81,12,41,34,104,0,41,34,31,20,104,0,31,20,19,13,104,0,19,13,4,9,104,0,4,9,4,0,41,34,81,12,74,16,41,34,74,16,70,22,41,34,70,22,52,58,350,0,223,9,223,0,
+108,183,108,294,109,301,111,306,114,310,119,311,126,312,188,312,202,311,217,307,230,300,242,287,251,267,252,263,253,258,255,254,256,250,256,247,268,247,266,331,9,331,9,321,30,320,44,315,52,308,56,295,57,275,57,56,56,37,52,24,43,16,29,11,9,9,9,0,169,0,209,4,242,16,267,35,283,60,289,91,280,132,256,159,223,174,185,181,146,183,16383,16383,108,163,138,163,166,161,191,154,212,141,226,120,231,89,226,59,212,39,190,27,162,21,131,19,120,20,113,22,110,26,108,33,108,41,212,180,226,183,237,187,245,190,253,195,260,200,267,208,273,218,277,229,280,240,281,252,275,281,259,303,233,318,196,328,150,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,178,0,218,4,251,17,276,37,292,63,297,94,296,107,293,120,289,131,282,142,273,151,264,159,255,165,244,171,230,175,212,179,16383,16383,108,188,108,296,109,302,110,307,113,310,116,311,121,312,141,312,173,310,198,302,215,290,226,273,229,250,226,228,217,210,203,198,
+52,24,43,16,169,0,169,0,43,16,29,11,169,0,29,11,9,9,44,315,52,308,266,331,266,331,52,308,119,311,266,331,119,311,126,312,266,331,126,312,188,312,266,331,188,312,202,311,217,307,230,300,266,331,266,331,230,300,242,287,266,331,242,287,251,267,251,267,252,263,266,331,266,331,252,263,253,258,266,331,253,258,255,254,266,331,255,254,256,250,266,331,256,250,256,247,266,331,256,247,268,247,57,275,108,33,108,41,108,183,108,163,138,163,108,183,138,163,146,183,146,183,138,163,166,161,146,183,166,161,185,181,185,181,166,161,191,154,185,181,191,154,223,174,223,174,191,154,212,141,223,174,212,141,226,120,57,275,108,41,108,294,57,275,108,294,109,301,57,275,109,301,111,306,57,275,111,306,114,310,57,275,114,310,56,295,119,311,52,308,56,295,119,311,56,295,114,310,30,320,44,315,266,331,30,320,266,331,9,331,30,320,9,331,9,321,231,89,226,59,242,16,242,16,226,59,212,39,242,16,212,39,209,4,209,4,212,39,190,27,209,4,190,27,169,0,169,0,190,27,162,21,169,0,162,21,131,19,131,19,120,20,169,0,169,0,120,20,113,22,169,0,113,22,56,37,56,37,113,22,57,56,231,89,242,16,256,159,256,159,242,16,267,35,256,159,267,35,280,132,280,132,267,35,283,60,280,132,283,60,289,91,226,120,231,89,256,159,226,120,256,159,223,174,57,56,113,22,110,26,57,56,110,26,108,33,57,56,108,33,57,275,169,0,9,9,9,0,52,24,169,0,56,37,266,331,202,311,217,307,
+212,180,226,183,237,187,245,190,253,195,260,200,267,208,273,218,277,229,280,240,281,252,275,281,259,303,233,318,196,328,150,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,178,0,218,4,251,17,276,37,292,63,297,94,296,107,293,120,289,131,282,142,273,151,264,159,255,165,244,171,230,175,212,179,16383,16383,108,188,108,296,109,302,110,307,113,310,116,311,121,312,141,312,173,310,198,302,215,290,226,273,229,250,226,228,217,210,203,198,182,191,155,188,16383,16383,108,168,139,168,163,167,182,164,199,158,217,148,225,141,232,131,237,120,239,108,240,94,239,82,237,69,233,58,228,48,221,41,208,31,195,25,180,21,162,19,140,19,127,20,119,22,113,26,109,33,108,41,272,242,270,331,9,331,9,321,28,320,41,315,48,307,52,294,53,275,53,57,52,37,48,24,41,16,28,12,9,9,9,0,150,0,150,9,130,12,117,16,109,24,105,37,104,56,104,302,106,307,109,310,114,312,192,312,206,311,221,307,234,300,246,286,255,267,256,262,258,256,259,250,260,245,260,242,323,-75,323,9,303,11,291,17,283,27,279,40,278,57,278,274,280,293,283,307,291,315,304,319,323,321,323,331,47,331,47,321,62,320,75,316,83,308,88,295,90,275,87,172,79,97,65,46,45,18,17,9,7,9,7,-75,19,-75,19,-72,20,-67,21,-60,23,-54,24,-49,32,-29,43,-15,56,-5,71,0,259,0,274,-5,287,-15,298,-29,306,-49,307,-54,308,-60,309,-67,310,-72,311,-75,16383,16383,228,41,227,33,225,27,222,22,217,20,
+52,24,43,16,178,0,178,0,43,16,30,11,178,0,30,11,9,9,56,295,57,275,113,310,56,295,113,310,150,331,150,331,113,310,116,311,150,331,116,311,121,312,150,331,121,312,141,312,150,331,141,312,173,310,208,31,195,25,218,4,218,4,195,25,180,21,218,4,180,21,178,0,178,0,180,21,162,19,178,0,162,19,140,19,140,19,127,20,178,0,178,0,127,20,119,22,178,0,119,22,56,37,56,37,119,22,57,56,259,303,233,318,237,187,237,187,233,318,229,250,237,187,229,250,226,228,237,187,226,228,226,183,226,183,226,228,217,210,226,183,217,210,212,180,212,180,217,210,203,198,212,180,203,198,212,179,212,179,203,198,217,148,212,179,217,148,230,175,230,175,217,148,225,141,155,188,163,167,182,191,182,191,163,167,182,164,182,191,182,164,203,198,203,198,182,164,199,158,203,198,199,158,217,148,237,69,233,58,251,17,251,17,233,58,228,48,251,17,228,48,221,41,221,41,208,31,218,4,163,167,155,188,139,168,139,168,155,188,108,188,139,168,108,188,108,168,109,33,108,41,57,275,109,33,57,275,57,56,57,56,119,22,113,26,57,56,113,26,109,33,273,151,264,159,276,37,276,37,264,159,255,165,276,37,255,165,251,17,251,17,255,165,244,171,251,17,244,171,240,94,240,94,239,82,251,17,251,17,239,82,237,69,244,171,230,175,232,131,244,171,232,131,237,120,244,171,237,120,239,108,244,171,239,108,240,94,233,318,196,328,198,302,233,318,198,302,215,290,233,318,215,290,226,273,233,318,226,273,229,250,196,328,150,331,173,310,196,328,173,310,198,302,57,275,108,41,108,296,57,275,108,296,109,302,57,275,109,302,110,307,57,275,110,307,113,310,150,331,9,331,30,320,150,331,30,320,44,316,150,331,44,316,52,308,150,331,52,308,56,295,267,208,273,218,275,281,275,281,273,218,277,229,275,281,277,229,281,252,281,252,277,229,280,240,245,190,253,195,259,303,259,303,253,195,260,200,259,303,260,200,275,281,275,281,260,200,267,208,293,120,289,131,292,63,293,120,292,63,297,94,293,120,297,94,296,107,282,142,273,151,276,37,282,142,276,37,292,63,282,142,292,63,289,131,221,41,218,4,251,17,259,303,237,187,245,190,30,320,9,331,9,321,230,175,225,141,232,131,178,0,9,9,9,0,52,24,178,0,56,37,
+272,242,270,331,9,331,9,321,28,320,41,315,48,307,52,294,53,275,53,57,52,37,48,24,41,16,28,12,9,9,9,0,150,0,150,9,130,12,117,16,109,24,105,37,104,56,104,302,106,307,109,310,114,312,192,312,206,311,221,307,234,300,246,286,255,267,256,262,258,256,259,250,260,245,260,242,323,-75,323,9,303,11,291,17,283,27,279,40,278,57,278,274,280,293,283,307,291,315,304,319,323,321,323,331,47,331,47,321,62,320,75,316,83,308,88,295,90,275,87,172,79,97,65,46,45,18,17,9,7,9,7,-75,19,-75,19,-72,20,-67,21,-60,23,-54,24,-49,32,-29,43,-15,56,-5,71,0,
+48,24,41,16,150,0,150,0,41,16,28,12,150,0,28,12,9,9,52,294,53,275,109,310,52,294,109,310,48,307,48,307,109,310,114,312,48,307,114,312,270,331,270,331,114,312,122,312,221,307,234,300,270,331,270,331,234,300,246,286,270,331,246,286,255,267,255,267,256,262,270,331,270,331,256,262,258,256,270,331,258,256,259,250,270,331,259,250,260,245,270,331,260,245,260,242,270,331,260,242,272,242,270,331,122,312,192,312,270,331,192,312,206,311,270,331,206,311,221,307,117,16,109,24,53,57,53,57,109,24,105,37,53,57,105,37,53,275,53,275,105,37,104,56,53,275,104,56,104,294,53,275,104,294,104,302,53,275,104,302,106,307,53,275,106,307,109,310,270,331,9,331,28,320,270,331,28,320,41,315,270,331,41,315,48,307,150,0,150,9,130,12,150,0,130,12,117,16,150,0,117,16,52,37,150,0,52,37,48,24,150,0,9,9,9,0,52,37,117,16,53,57,28,320,9,331,9,321,
+323,-75,323,9,303,11,291,17,283,27,279,40,278,57,278,274,280,293,283,307,291,315,304,319,323,321,323,331,47,331,47,321,62,320,75,316,83,308,88,295,90,275,87,172,79,97,65,46,45,18,17,9,7,9,7,-75,19,-75,19,-72,20,-67,21,-60,23,-54,24,-49,32,-29,43,-15,56,-5,71,0,259,0,274,-5,287,-15,298,-29,306,-49,307,-54,308,-60,309,-67,310,-72,311,-75,16383,16383,228,41,227,33,225,27,222,22,217,20,209,19,76,19,91,48,101,88,108,141,112,209,113,294,113,303,115,308,119,311,124,312,210,312,217,311,222,310,225,306,227,301,228,294,304,84,290,84,276,57,260,38,239,27,211,21,174,19,137,19,122,21,113,25,107,32,105,42,105,164,181,164,203,162,218,158,227,150,234,136,238,115,249,115,249,232,238,232,234,211,227,198,218,189,203,185,181,184,105,184,105,294,106,302,108,307,111,310,116,312,189,312,218,311,239,306,252,297,261,282,266,259,278,259,276,331,11,331,11,321,30,320,43,315,50,307,54,294,55,275,55,57,54,37,50,24,43,16,30,12,11,9,11,0,281,0,507,0,507,9,476,18,453,32,435,52,417,79,394,113,382,130,370,144,359,155,345,164,330,172,329,173,342,181,354,193,
+20,-67,21,-60,17,9,17,9,21,-60,23,-54,17,9,23,-54,24,-49,24,-49,32,-29,45,18,45,18,32,-29,43,-15,45,18,43,-15,56,-5,62,320,75,316,323,331,323,331,75,316,124,312,323,331,124,312,131,312,323,331,131,312,210,312,323,331,210,312,217,311,87,172,91,48,90,275,90,275,91,48,113,303,113,303,91,48,113,294,71,0,87,0,76,19,71,0,76,19,79,97,79,97,76,19,91,48,79,97,91,48,87,172,65,46,45,18,56,-5,65,46,56,-5,71,0,65,46,71,0,79,97,45,18,17,9,24,-49,17,9,7,9,19,-75,17,9,19,-75,19,-72,17,9,19,-72,20,-67,323,331,217,311,222,310,323,331,222,310,225,306,323,331,225,306,227,301,323,331,227,301,228,294,323,331,228,294,291,315,323,331,291,315,304,319,323,331,304,319,323,321,291,17,283,27,287,-15,287,-15,283,27,279,40,287,-15,279,40,274,-5,274,-5,279,40,278,57,274,-5,278,57,278,274,228,294,243,0,280,293,280,293,243,0,259,0,280,293,259,0,278,274,278,274,259,0,274,-5,283,307,291,315,228,294,283,307,228,294,280,293,113,294,91,48,101,88,113,294,101,88,108,141,113,294,108,141,112,209,124,312,83,308,119,311,119,311,83,308,88,295,119,311,88,295,115,308,115,308,88,295,90,275,115,308,90,275,113,303,47,331,47,321,62,320,47,331,62,320,323,331,308,-60,323,9,307,-54,307,-54,323,9,306,-49,298,-29,306,-49,303,11,298,-29,303,11,291,17,323,9,308,-60,309,-67,323,9,309,-67,310,-72,323,9,310,-72,311,-75,323,9,311,-75,323,-75,323,9,303,11,306,-49,209,19,76,19,87,0,209,19,87,0,243,0,209,19,243,0,217,20,243,0,228,294,228,41,243,0,228,41,227,33,243,0,227,33,225,27,243,0,225,27,222,22,243,0,222,22,217,20,19,-75,7,9,7,-75,291,17,287,-15,298,-29,124,312,75,316,83,308,
+304,84,290,84,276,57,260,38,239,27,211,21,174,19,137,19,122,21,113,25,107,32,105,42,105,164,181,164,203,162,218,158,227,150,234,136,238,115,249,115,249,232,238,232,234,211,227,198,218,189,203,185,181,184,105,184,105,294,106,302,108,307,111,310,116,312,189,312,218,311,239,306,252,297,261,282,266,259,278,259,276,331,11,331,11,321,30,320,43,315,50,307,54,294,55,275,55,57,54,37,50,24,43,16,30,12,11,9,11,0,281,0,507,0,507,9,476,18,453,32,435,52,417,79,394,113,382,130,370,144,359,155,345,164,330,172,329,173,342,181,354,193,364,209,373,228,382,251,388,266,394,280,401,293,410,301,419,305,425,302,430,295,435,286,443,279,457,276,466,278,473,283,478,289,481,297,482,305,480,315,475,324,467,331,456,336,442,338,419,335,401,325,388,309,376,290,367,267,356,239,345,216,331,197,310,185,280,181,280,293,283,307,291,315,304,319,325,321,325,331,186,331,186,321,
+50,24,43,16,281,0,281,0,43,16,30,12,281,0,30,12,11,9,54,294,55,275,111,310,54,294,111,310,50,307,50,307,111,310,116,312,50,307,116,312,276,331,276,331,116,312,123,312,50,24,122,21,54,37,54,37,122,21,113,25,54,37,113,25,55,57,55,57,113,25,107,32,55,57,107,32,55,275,55,275,107,32,105,42,55,275,105,42,105,294,105,184,105,164,181,164,105,184,181,164,181,184,203,185,181,184,203,162,203,185,203,162,218,189,218,189,203,162,218,158,218,189,218,158,227,198,227,198,218,158,227,150,227,198,227,150,234,211,234,211,227,150,234,136,234,211,234,136,238,232,238,232,234,136,238,115,238,232,238,115,249,115,276,331,123,312,189,312,276,331,189,312,218,311,276,331,218,311,239,306,276,331,239,306,252,297,276,331,252,297,261,282,276,331,261,282,266,259,276,331,266,259,278,259,55,275,105,294,106,302,55,275,106,302,108,307,55,275,108,307,111,310,276,331,11,331,30,320,276,331,30,320,43,315,276,331,43,315,50,307,260,38,239,27,281,0,281,0,239,27,211,21,281,0,211,21,174,19,281,0,304,84,290,84,281,0,290,84,276,57,281,0,276,57,260,38,281,0,174,19,156,19,281,0,156,19,137,19,281,0,137,19,122,21,281,0,122,21,50,24,281,0,11,9,11,0,30,320,11,331,11,321,181,184,181,164,203,162,238,232,249,115,249,232,
+507,0,507,9,476,18,453,32,435,52,417,79,394,113,382,130,370,144,359,155,345,164,330,172,329,173,342,181,354,193,364,209,373,228,382,251,388,266,394,280,401,293,410,301,419,305,425,302,430,295,435,286,443,279,457,276,466,278,473,283,478,289,481,297,482,305,480,315,475,324,467,331,456,336,442,338,419,335,401,325,388,309,376,290,367,267,356,239,345,216,331,197,310,185,280,181,280,293,283,307,291,315,304,319,325,321,325,331,186,331,186,321,206,320,220,315,227,307,230,294,231,275,231,181,203,185,182,197,167,216,154,239,143,267,134,290,123,309,109,325,91,335,68,338,54,336,43,331,35,324,30,315,28,305,29,297,32,289,37,283,44,278,53,276,67,279,75,286,80,295,85,302,91,305,100,301,109,293,115,280,122,266,128,251,137,228,146,209,156,193,168,181,181,173,180,172,165,164,152,155,140,144,129,130,117,113,94,79,75,52,57,32,35,18,4,9,4,0,99,0,109,10,120,23,131,40,144,60,158,84,177,116,190,138,201,152,213,159,231,161,231,55,230,36,228,23,222,16,210,11,193,9,193,0,323,0,323,9,305,12,292,16,284,23,281,36,280,55,280,161,297,159,309,152,320,138,333,116,352,84,367,60,380,40,391,23,401,10,411,0,177,175,201,180,222,192,240,208,251,229,256,253,252,281,239,304,217,322,185,334,142,338,131,338,121,337,111,335,100,333,89,330,83,328,67,324,60,322,54,321,49,322,44,324,40,328,37,332,35,338,25,338,23,220,35,220,43,253,56,280,76,301,101,314,131,319,156,316,176,308,191,294,201,277,204,257,204,245,201,232,196,219,188,207,175,196,165,191,155,187,143,185,127,183,104,183,104,163,128,163,146,161,160,158,172,153,184,146,194,138,202,129,209,118,213,105,215,91,211,64,201,43,183,28,159,18,128,15,105,17,85,23,65,33,44,47,23,65,14,57,32,35,54,17,80,4,109,-3,141,-6,160,-6,177,-3,193,0,208,5,223,13,239,25,253,39,264,55,270,74,272,95,267,121,252,142,230,158,204,169,177,174,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,212,331,212,321,230,319,242,315,251,309,255,299,257,285,105,82,105,274,106,294,110,307,118,315,131,319,150,321,150,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,148,9,131,11,118,16,110,23,106,33,105,48,257,252,257,62,256,41,252,26,245,17,
+75,52,57,32,99,0,99,0,57,32,35,18,99,0,35,18,4,9,75,286,80,295,91,335,91,335,80,295,85,302,91,335,85,302,91,305,91,305,100,301,109,325,109,325,100,301,109,293,109,325,109,293,115,280,44,278,53,276,54,336,54,336,53,276,67,279,54,336,67,279,68,338,68,338,67,279,75,286,68,338,75,286,91,335,28,305,29,297,30,315,30,315,29,297,32,289,30,315,32,289,35,324,35,324,32,289,37,283,35,324,37,283,43,331,43,331,37,283,44,278,43,331,44,278,54,336,115,280,122,266,123,309,123,309,122,266,128,251,123,309,128,251,134,290,134,290,128,251,137,228,134,290,137,228,143,267,143,267,137,228,146,209,143,267,146,209,154,239,154,239,146,209,156,193,154,239,156,193,167,216,167,216,156,193,168,181,167,216,168,181,182,197,182,197,168,181,181,173,182,197,181,173,190,138,190,138,181,173,180,172,228,23,222,16,323,0,323,0,222,16,210,11,323,0,210,11,193,9,304,319,325,321,325,331,304,319,325,331,291,315,291,315,325,331,230,294,291,315,230,294,231,275,231,161,231,275,231,181,231,161,284,23,281,36,323,0,323,9,305,12,323,0,305,12,292,16,323,0,292,16,230,36,323,0,230,36,228,23,280,55,280,181,231,161,280,55,231,161,281,36,231,55,230,36,292,16,231,55,292,16,284,23,231,55,284,23,231,161,280,161,297,159,280,181,280,181,280,274,231,161,231,161,280,274,280,293,231,161,280,293,283,307,283,307,291,315,231,275,283,307,231,275,231,161,325,331,186,331,206,320,325,331,206,320,220,315,325,331,220,315,227,307,325,331,227,307,230,294,453,32,435,52,411,0,411,0,435,52,417,79,411,0,417,79,401,10,401,10,417,79,394,113,401,10,394,113,391,23,391,23,394,113,382,130,391,23,382,130,380,40,380,40,382,130,370,144,380,40,370,144,367,60,367,60,370,144,359,155,367,60,359,155,352,84,352,84,359,155,345,164,352,84,345,164,333,116,333,116,345,164,330,172,333,116,330,172,329,173,476,18,453,32,411,0,476,18,411,0,507,0,476,18,507,0,507,9,320,138,329,173,331,197,331,197,329,173,342,181,331,197,342,181,345,216,345,216,342,181,354,193,345,216,354,193,356,239,356,239,354,193,364,209,356,239,364,209,367,267,367,267,364,209,373,228,367,267,373,228,376,290,376,290,373,228,382,251,376,290,382,251,388,309,388,309,382,251,388,266,388,309,388,266,401,325,401,325,388,266,394,280,401,325,394,280,401,293,310,185,280,181,297,159,310,185,297,159,309,152,310,185,309,152,320,138,310,185,320,138,331,197,442,338,419,335,425,302,425,302,419,335,419,305,410,301,419,305,419,335,410,301,419,335,401,325,457,276,466,278,467,331,467,331,466,278,473,283,467,331,473,283,475,324,475,324,473,283,478,289,475,324,478,289,480,315,480,315,478,289,481,297,480,315,481,297,482,305,430,295,435,286,442,338,442,338,435,286,443,279,442,338,443,279,456,336,456,336,443,279,457,276,456,336,457,276,467,331,190,138,201,152,203,185,203,185,201,152,213,159,203,185,213,159,231,181,231,181,213,159,231,161,99,0,109,10,117,113,117,113,109,10,120,23,117,113,120,23,129,130,129,130,120,23,131,40,129,130,131,40,140,144,140,144,131,40,144,60,140,144,144,60,152,155,152,155,144,60,158,84,152,155,158,84,165,164,165,164,158,84,177,116,165,164,177,116,180,172,180,172,177,116,190,138,94,79,75,52,99,0,94,79,99,0,117,113,109,325,91,335,91,305,109,325,115,280,123,309,99,0,4,9,4,0,182,197,190,138,203,185,333,116,329,173,320,138,442,338,425,302,430,295,401,325,401,293,410,301,206,320,186,331,186,321,323,0,193,9,193,0,
+177,175,201,180,222,192,240,208,251,229,256,253,252,281,239,304,217,322,185,334,142,338,131,338,121,337,111,335,100,333,89,330,83,328,67,324,60,322,54,321,49,322,44,324,40,328,37,332,35,338,25,338,23,220,35,220,43,253,56,280,76,301,101,314,131,319,156,316,176,308,191,294,201,277,204,257,204,245,201,232,196,219,188,207,175,196,165,191,155,187,143,185,127,183,104,183,104,163,128,163,146,161,160,158,172,153,184,146,194,138,202,129,209,118,213,105,215,91,211,64,201,43,183,28,159,18,128,15,105,17,85,23,65,33,44,47,23,65,14,57,32,35,54,17,80,4,109,-3,141,-6,160,-6,177,-3,193,0,208,5,223,13,239,25,253,39,264,55,270,74,272,95,267,121,252,142,230,158,204,169,177,174,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,212,331,212,321,230,319,242,315,251,309,255,299,257,285,105,82,105,274,106,294,110,307,118,315,131,319,150,321,150,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,148,9,131,11,118,16,110,23,106,33,105,48,257,252,257,62,256,41,252,26,245,17,232,12,213,9,213,0,248,424,246,436,242,445,235,452,227,456,219,458,211,456,208,453,206,450,205,445,207,438,213,434,225,430,227,425,226,418,221,413,212,408,199,406,180,405,162,406,149,408,140,413,135,418,134,425,136,430,148,434,154,438,156,445,156,450,154,453,151,456,148,457,
+40,328,43,253,44,324,44,324,43,253,56,280,44,324,56,280,49,322,49,322,56,280,54,321,60,322,54,321,56,280,60,322,56,280,76,301,201,232,196,219,201,180,201,180,196,219,188,207,201,180,188,207,177,175,177,175,188,207,175,196,177,175,175,196,177,174,177,174,175,196,172,153,172,153,175,196,165,191,172,153,165,191,160,158,160,158,165,191,155,187,160,158,155,187,146,161,146,161,155,187,143,185,146,161,143,185,128,163,128,163,143,185,127,183,128,163,127,183,104,183,23,65,32,35,44,47,44,47,32,35,54,17,44,47,54,17,65,33,65,33,54,17,80,4,65,33,80,4,85,23,85,23,80,4,109,-3,85,23,109,-3,105,17,105,17,109,-3,128,15,159,18,128,15,141,-6,159,18,141,-6,160,-6,131,319,121,337,111,335,131,319,111,335,101,314,131,319,131,338,121,337,101,314,111,335,100,333,101,314,100,333,89,330,101,314,89,330,83,328,101,314,83,328,76,301,76,301,83,328,75,326,76,301,75,326,67,324,76,301,67,324,60,322,156,316,176,308,185,334,185,334,176,308,191,294,185,334,191,294,217,322,217,322,191,294,201,277,217,322,201,277,204,257,204,257,204,245,222,192,222,192,204,245,201,232,222,192,201,232,201,180,156,316,185,334,142,338,156,316,142,338,131,338,156,316,131,338,131,319,217,322,222,192,239,304,239,304,222,192,240,208,239,304,240,208,252,281,252,281,240,208,251,229,252,281,251,229,256,253,204,257,222,192,217,322,177,174,172,153,184,146,184,146,194,138,204,169,204,169,194,138,202,129,204,169,202,129,209,118,267,121,252,142,253,39,267,121,253,39,264,55,267,121,264,55,270,74,267,121,270,74,272,95,160,-6,177,-3,183,28,183,28,177,-3,193,0,183,28,193,0,201,43,201,43,193,0,208,5,201,43,208,5,211,64,211,64,208,5,223,13,211,64,223,13,215,91,215,91,223,13,230,158,230,158,223,13,239,25,230,158,239,25,252,142,252,142,239,25,253,39,204,169,209,118,230,158,230,158,209,118,213,105,230,158,213,105,215,91,204,169,177,174,184,146,128,15,109,-3,141,-6,40,328,37,332,43,253,43,253,37,332,35,338,43,253,35,338,35,220,35,220,35,338,25,338,35,220,25,338,23,220,32,35,23,65,14,57,159,18,160,-6,183,28,128,163,104,183,104,163,
+352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,212,331,212,321,230,319,242,315,251,309,255,299,257,285,105,82,105,274,106,294,110,307,118,315,131,319,150,321,150,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,148,9,131,11,118,16,110,23,106,33,105,48,257,252,257,62,256,41,252,26,245,17,232,12,213,9,213,0,248,424,246,436,242,445,235,452,227,456,219,458,211,456,208,453,206,450,205,445,207,438,213,434,225,430,227,425,226,418,221,413,212,408,199,406,180,405,162,406,149,408,140,413,135,418,134,425,136,430,148,434,154,438,156,445,156,450,154,453,151,456,148,457,144,458,135,456,127,452,120,445,115,436,113,424,117,408,129,395,145,386,163,380,180,378,198,380,216,385,232,395,243,407,248,424,16383,16383,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,
+50,25,42,16,149,0,149,0,42,16,29,12,149,0,29,12,9,9,257,285,105,82,105,48,105,48,105,274,54,274,54,274,105,274,106,294,54,274,106,294,110,307,150,331,9,331,29,319,150,331,29,319,42,315,150,331,42,315,50,307,150,331,50,307,53,294,150,331,53,294,118,315,150,331,118,315,131,319,150,331,131,319,150,321,54,274,110,307,118,315,54,274,118,315,53,294,252,26,245,17,352,0,352,0,245,17,232,12,352,0,232,12,213,9,242,315,251,309,352,331,352,331,251,309,255,299,352,331,255,299,257,285,257,285,257,252,309,37,309,37,257,252,257,62,309,37,257,62,312,25,312,25,257,62,320,17,333,319,352,321,352,331,333,319,352,331,320,315,320,315,352,331,257,285,320,315,257,285,312,307,312,307,257,285,309,293,307,55,307,274,257,285,307,55,257,285,309,37,230,319,242,315,352,331,230,319,352,331,212,331,230,319,212,331,212,321,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,256,41,352,0,256,41,252,26,149,0,148,9,131,11,149,0,131,11,118,16,149,0,118,16,53,39,149,0,53,39,50,25,106,33,105,48,54,274,106,33,54,274,54,61,106,33,54,61,110,23,54,61,53,39,118,16,54,61,118,16,110,23,149,0,9,9,9,0,352,0,213,9,213,0,256,41,320,17,257,62,309,293,257,285,307,274,257,285,105,48,257,252,29,319,9,331,9,321,
+248,424,246,436,242,445,235,452,227,456,219,458,211,456,208,453,206,450,205,445,207,438,213,434,225,430,227,425,226,418,221,413,212,408,199,406,180,405,162,406,149,408,140,413,135,418,134,425,136,430,148,434,154,438,156,445,156,450,154,453,151,456,148,457,144,458,135,456,127,452,120,445,115,436,113,424,117,408,129,395,145,386,163,380,180,378,198,380,216,385,232,395,243,407,248,424,16383,16383,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,212,331,212,321,230,319,242,316,250,310,254,300,256,285,105,82,105,274,106,294,110,307,118,315,131,319,150,321,150,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,148,9,131,11,119,15,111,22,107,33,105,48,257,252,257,62,256,41,252,26,245,17,232,12,213,9,213,0,343,0,343,9,321,13,312,17,302,23,292,30,282,40,271,54,259,71,246,92,230,114,218,131,206,145,193,155,180,164,164,171,164,172,178,181,190,193,201,208,211,227,220,251,225,266,232,281,239,294,247,303,257,306,263,303,267,296,272,287,281,280,294,277,303,279,310,284,315,291,318,299,319,306,317,317,313,325,305,332,295,337,281,338,257,335,239,325,224,309,213,290,204,267,196,245,187,226,176,209,162,195,142,185,137,183,131,182,124,181,106,181,106,274,107,293,110,307,117,315,130,319,151,321,151,331,10,331,10,321,30,319,43,315,51,306,54,293,55,275,55,65,54,42,51,27,43,17,29,12,9,9,9,0,151,0,151,9,132,12,119,16,111,23,107,36,106,55,106,161,113,161,119,160,125,158,130,156,134,154,140,149,149,140,160,126,174,108,189,85,203,61,216,40,227,24,238,10,248,0,332,0,332,9,313,12,300,17,292,25,288,37,287,55,
+149,408,140,413,145,386,145,386,140,413,135,418,145,386,135,418,129,395,129,395,135,418,134,425,135,456,134,425,136,430,135,456,136,430,144,458,144,458,136,430,142,432,144,458,142,432,148,434,148,457,148,434,151,456,151,456,148,434,154,438,151,456,154,438,154,453,154,453,154,438,156,445,154,453,156,445,156,450,129,395,134,425,135,456,129,395,135,456,127,452,129,395,127,452,120,445,129,395,120,445,117,408,115,436,113,424,117,408,115,436,117,408,120,445,149,408,163,380,162,406,162,406,163,380,180,405,199,406,180,405,180,378,199,406,180,378,198,380,246,436,242,445,243,407,243,407,242,445,235,452,243,407,235,452,232,395,232,395,235,452,227,456,232,395,227,456,227,425,227,456,219,458,219,432,227,456,219,432,225,430,227,456,225,430,227,425,215,457,211,456,213,434,215,457,213,434,219,432,215,457,219,432,219,458,208,453,206,450,207,438,208,453,207,438,213,434,208,453,213,434,211,456,227,425,226,418,232,395,232,395,226,418,221,413,232,395,221,413,216,385,216,385,221,413,212,408,216,385,212,408,199,406,180,405,163,380,180,378,50,25,42,16,149,0,149,0,42,16,29,12,149,0,29,12,9,9,119,15,111,22,54,61,54,61,111,22,107,33,54,61,107,33,54,274,54,274,107,33,105,48,105,82,105,48,256,285,150,331,9,331,29,319,150,331,29,319,42,315,150,331,42,315,50,307,150,331,50,307,53,294,150,331,53,294,118,315,150,331,118,315,131,319,150,331,131,319,150,321,105,274,106,294,54,274,105,274,54,274,105,48,105,274,105,48,105,82,54,274,106,294,110,307,54,274,110,307,118,315,54,274,118,315,53,294,252,26,245,17,352,0,352,0,245,17,232,12,352,0,232,12,213,9,352,331,212,331,230,319,352,331,230,319,242,316,352,331,242,316,250,310,352,331,250,310,254,300,352,331,254,300,256,285,352,331,256,285,320,315,352,331,320,315,333,319,352,331,333,319,352,321,320,17,312,25,257,62,257,62,312,25,309,37,257,62,309,37,257,252,257,252,309,37,307,55,257,252,307,55,307,274,257,252,307,274,309,293,257,252,309,293,312,307,257,252,312,307,320,315,257,252,320,315,256,285,257,252,256,285,105,48,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,256,41,352,0,256,41,252,26,149,0,148,9,131,11,149,0,131,11,119,15,149,0,119,15,53,39,149,0,53,39,50,25,149,0,9,9,9,0,53,39,119,15,54,61,352,0,213,9,213,0,256,41,320,17,257,62,230,319,212,331,212,321,29,319,9,331,9,321,199,406,198,380,216,385,246,436,243,407,248,424,207,438,206,450,205,445,149,408,145,386,163,380,144,458,148,434,148,457,
+343,0,343,9,321,13,312,17,302,23,292,30,282,40,271,54,259,71,246,92,230,114,218,131,206,145,193,155,180,164,164,171,164,172,178,181,190,193,201,208,211,227,220,251,225,266,232,281,239,294,247,303,257,306,263,303,267,296,272,287,281,280,294,277,303,279,310,284,315,291,318,299,319,306,317,317,313,325,305,332,295,337,281,338,257,335,239,325,224,309,213,290,204,267,196,245,187,226,176,209,162,195,142,185,137,183,131,182,124,181,106,181,106,274,107,293,110,307,117,315,130,319,151,321,151,331,10,331,10,321,30,319,43,315,51,306,54,293,55,275,55,65,54,42,51,27,43,17,29,12,9,9,9,0,151,0,151,9,132,12,119,16,111,23,107,36,106,55,106,161,113,161,119,160,125,158,130,156,134,154,140,149,149,140,160,126,174,108,189,85,203,61,216,40,227,24,238,10,248,0,332,0,332,9,313,12,300,17,292,25,288,37,287,55,287,274,288,293,292,307,300,315,313,319,332,321,332,331,65,331,65,321,80,320,93,316,101,308,107,295,108,275,108,112,105,78,100,47,89,26,73,17,65,21,54,43,46,53,32,57,25,56,18,53,11,48,6,40,4,30,7,14,14,4,25,-2,39,-5,55,-6,92,2,114,27,126,60,130,97,131,131,131,292,132,300,133,305,136,309,141,311,148,312,219,312,226,311,231,309,234,305,236,300,237,292,237,63,236,41,232,26,225,17,212,12,193,9,193,0,435,0,435,9,417,12,404,17,397,25,393,38,392,56,392,275,393,294,397,307,404,316,417,320,435,321,435,331,335,331,225,80,109,331,11,331,11,321,31,319,45,315,53,307,57,294,58,275,58,75,57,47,53,29,44,18,30,12,9,9,9,0,127,0,127,9,107,12,94,18,85,29,
+151,0,151,9,132,12,151,0,132,12,119,16,151,0,119,16,54,42,151,0,54,42,51,27,151,0,51,27,43,17,151,0,43,17,29,12,151,0,29,12,9,9,151,0,9,9,9,0,55,275,107,36,106,55,106,181,106,161,113,161,55,275,106,55,106,181,106,181,113,161,116,181,116,181,113,161,119,160,116,181,119,160,124,181,124,181,119,160,125,158,124,181,125,158,131,182,131,182,125,158,130,156,131,182,130,156,134,154,134,154,140,149,137,183,137,183,140,149,142,185,162,195,142,185,149,140,162,195,149,140,160,126,55,65,54,42,119,16,55,65,119,16,111,23,55,65,111,23,107,36,55,65,107,36,55,275,151,331,10,331,30,319,151,331,30,319,43,315,151,331,43,315,51,306,151,331,51,306,54,293,151,331,54,293,117,315,151,331,117,315,130,319,151,331,130,319,151,321,106,274,107,293,55,275,106,274,55,275,106,181,55,275,107,293,110,307,55,275,110,307,117,315,55,275,117,315,54,293,137,183,131,182,134,154,196,245,187,226,190,193,196,245,190,193,201,208,196,245,201,208,204,267,190,193,187,226,178,181,178,181,187,226,176,209,178,181,176,209,164,172,164,172,176,209,162,195,164,172,162,195,164,171,164,171,162,195,160,126,164,171,160,126,174,108,225,266,232,281,239,325,239,325,232,281,239,294,239,325,239,294,257,335,257,335,239,294,247,303,257,335,247,303,257,306,257,306,263,303,257,335,257,335,263,303,281,338,204,267,211,227,213,290,213,290,211,227,220,251,213,290,220,251,224,309,224,309,220,251,225,266,224,309,225,266,239,325,332,11,321,13,343,0,343,0,321,13,312,17,343,0,312,17,248,0,248,0,312,17,302,23,248,0,302,23,292,30,292,30,282,40,248,0,248,0,282,40,271,54,248,0,271,54,259,71,193,155,189,85,203,61,193,155,203,61,206,145,206,145,203,61,216,40,206,145,216,40,218,131,218,131,216,40,227,24,218,131,227,24,230,114,230,114,227,24,238,10,230,114,238,10,246,92,246,92,238,10,248,0,246,92,248,0,259,71,272,287,281,280,281,338,281,338,281,280,294,277,281,338,294,277,295,337,295,337,294,277,303,279,295,337,303,279,305,332,305,332,303,279,310,284,305,332,310,284,313,325,313,325,310,284,315,291,313,325,315,291,317,317,317,317,315,291,318,299,317,317,318,299,319,306,281,338,263,303,267,296,281,338,267,296,272,287,180,164,164,171,174,108,180,164,174,108,189,85,180,164,189,85,193,155,142,185,140,149,149,140,332,11,343,0,343,9,211,227,204,267,201,208,30,319,10,331,10,321,
+332,0,332,9,313,12,300,17,292,25,288,37,287,55,287,274,288,293,292,307,300,315,313,319,332,321,332,331,65,331,65,321,80,320,93,316,101,308,107,295,108,275,108,112,105,78,100,47,89,26,73,17,65,21,54,43,46,53,32,57,25,56,18,53,11,48,6,40,4,30,7,14,14,4,25,-2,39,-5,55,-6,92,2,114,27,126,60,130,97,131,131,131,292,132,300,133,305,136,309,141,311,148,312,219,312,226,311,231,309,234,305,236,300,237,292,237,63,236,41,232,26,225,17,212,12,193,9,193,0,435,0,435,9,417,12,404,17,397,25,393,38,392,56,392,275,393,294,397,307,404,316,417,320,435,321,435,331,335,331,225,80,109,331,11,331,11,321,31,319,45,315,53,307,57,294,58,275,58,75,57,47,53,29,44,18,30,12,9,9,9,0,127,0,127,9,107,12,94,18,85,29,81,48,80,75,80,275,206,0,213,0,340,286,340,40,336,26,328,17,315,12,296,9,296,0,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,213,331,213,321,
+108,112,105,78,114,27,114,27,105,78,100,47,114,27,100,47,92,2,92,2,100,47,89,26,92,2,89,26,73,17,73,17,65,21,92,2,92,2,65,21,55,-6,107,295,108,275,136,309,107,295,136,309,101,308,101,308,136,309,141,311,101,308,141,311,332,331,332,331,141,311,148,312,232,26,225,17,332,0,332,0,225,17,212,12,332,0,212,12,193,9,332,331,148,312,219,312,332,331,219,312,226,311,332,331,226,311,231,309,332,331,231,309,234,305,332,331,234,305,236,300,332,331,236,300,237,292,332,331,237,292,300,315,332,331,300,315,313,319,332,331,313,319,332,321,287,55,287,274,237,292,237,292,287,274,288,293,237,292,288,293,292,307,300,17,292,25,237,63,237,63,292,25,288,37,237,63,288,37,237,292,131,292,132,300,114,27,131,292,114,27,126,60,131,292,126,60,130,97,131,292,130,97,131,131,108,275,108,145,114,27,108,275,114,27,132,300,108,275,132,300,133,305,108,275,133,305,136,309,332,331,65,331,80,320,332,331,80,320,93,316,332,331,93,316,101,308,332,0,332,9,313,12,332,0,313,12,300,17,332,0,300,17,236,41,332,0,236,41,232,26,55,-6,65,21,60,31,55,-6,60,31,54,43,55,-6,54,43,46,53,55,-6,46,53,39,-5,46,53,32,57,39,-5,39,-5,32,57,25,56,39,-5,25,56,25,-2,25,-2,25,56,18,53,25,-2,18,53,14,4,14,4,18,53,11,48,14,4,11,48,7,14,7,14,11,48,6,40,7,14,6,40,4,30,108,112,114,27,108,145,332,0,193,9,193,0,236,41,300,17,237,63,237,292,288,37,287,55,80,320,65,331,65,321,300,315,237,292,292,307,
+435,0,435,9,417,12,404,17,397,25,393,38,392,56,392,275,393,294,397,307,404,316,417,320,435,321,435,331,335,331,225,80,109,331,11,331,11,321,31,319,45,315,53,307,57,294,58,275,58,75,57,47,53,29,44,18,30,12,9,9,9,0,127,0,127,9,107,12,94,18,85,29,81,48,80,75,80,275,206,0,213,0,340,286,340,40,336,26,328,17,315,12,296,9,296,0,352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,213,331,213,321,232,319,245,315,252,307,256,294,257,274,257,180,105,180,105,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,
+53,29,44,18,127,0,127,0,44,18,30,12,127,0,30,12,9,9,336,26,328,17,435,0,435,0,328,17,315,12,435,0,315,12,296,9,417,320,435,321,435,331,417,320,435,331,404,316,404,316,435,331,340,286,404,316,340,286,397,307,397,307,340,286,393,294,404,17,397,25,340,61,340,61,397,25,393,38,340,61,393,38,340,286,340,286,393,38,392,56,340,286,392,56,392,275,206,0,213,0,225,80,225,80,213,0,340,286,225,80,340,286,335,331,335,331,340,286,435,331,109,331,11,331,31,319,109,331,31,319,45,315,109,331,45,315,53,307,109,331,53,307,57,294,109,331,57,294,58,275,109,331,58,275,80,275,109,331,80,275,206,0,109,331,206,0,225,80,80,75,80,275,58,275,80,75,58,275,81,48,81,48,58,275,58,75,81,48,58,75,85,29,85,29,58,75,57,47,85,29,57,47,94,18,94,18,57,47,53,29,94,18,53,29,127,0,435,0,435,9,417,12,435,0,417,12,404,17,435,0,404,17,340,40,435,0,340,40,336,26,107,12,94,18,127,0,107,12,127,0,127,9,127,0,9,9,9,0,435,0,296,9,296,0,340,40,404,17,340,61,31,319,11,331,11,321,393,294,340,286,392,275,
+352,0,352,9,333,12,320,17,312,25,309,37,307,55,307,274,309,293,312,307,320,315,333,319,352,321,352,331,213,331,213,321,232,319,245,315,252,307,256,294,257,274,257,180,105,180,105,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,110,25,106,38,105,56,105,157,257,157,257,62,256,41,252,26,245,17,232,12,213,9,213,0,345,166,337,222,316,269,281,306,236,330,181,338,127,330,82,307,47,271,26,224,18,167,26,109,47,61,82,24,127,1,181,-6,235,1,280,24,315,60,337,108,345,166,16383,16383,288,169,286,134,281,103,273,76,261,53,247,35,235,26,223,19,210,15,197,12,182,11,168,12,155,15,143,19,131,25,120,33,103,52,91,75,82,102,77,132,75,166,76,194,81,222,88,247,98,269,109,286,122,298,135,308,150,314,165,318,181,320,194,319,207,316,220,311,231,305,243,296,258,279,271,257,
+50,25,42,16,149,0,149,0,42,16,29,12,149,0,29,12,9,9,149,331,9,331,29,319,149,331,29,319,42,315,149,331,42,315,50,307,149,331,50,307,53,294,149,331,53,294,118,315,149,331,118,315,130,319,149,331,130,319,149,321,54,274,106,38,105,56,105,180,105,157,257,157,105,180,257,157,257,180,257,180,257,157,312,25,257,180,312,25,309,37,54,274,105,56,105,274,54,274,105,274,106,294,54,274,106,294,110,307,54,274,110,307,118,315,54,274,118,315,53,294,252,26,245,17,352,0,352,0,245,17,232,12,352,0,232,12,213,9,333,319,352,321,352,331,333,319,352,331,320,315,320,315,352,331,256,294,320,315,256,294,257,274,309,37,257,274,257,180,307,55,307,274,257,274,257,274,307,274,309,293,257,274,309,293,312,307,352,331,213,331,232,319,352,331,232,319,245,315,352,331,245,315,252,307,352,331,252,307,256,294,352,0,352,9,333,12,352,0,333,12,320,17,352,0,320,17,256,41,352,0,256,41,252,26,257,62,256,41,320,17,257,62,320,17,312,25,257,62,312,25,257,157,149,0,149,9,130,12,149,0,130,12,118,17,149,0,118,17,53,39,149,0,53,39,50,25,54,61,53,39,118,17,54,61,118,17,110,25,54,61,110,25,106,38,54,61,106,38,54,274,149,0,9,9,9,0,352,0,213,9,213,0,257,274,309,37,307,55,232,319,213,331,213,321,320,315,257,274,312,307,29,319,9,331,9,321,
+345,166,337,222,316,269,281,306,236,330,181,338,127,330,82,307,47,271,26,224,18,167,26,109,47,61,82,24,127,1,181,-6,235,1,280,24,315,60,337,108,345,166,16383,16383,288,169,286,134,281,103,273,76,261,53,247,35,235,26,223,19,210,15,197,12,182,11,168,12,155,15,143,19,131,25,120,33,103,52,91,75,82,102,77,132,75,166,76,194,81,222,88,247,98,269,109,286,122,298,135,308,150,314,165,318,181,320,194,319,207,316,220,311,231,305,243,296,258,279,271,257,280,231,286,201,288,169,353,0,353,9,333,12,321,17,313,25,309,37,308,55,308,274,309,293,313,307,321,315,334,319,353,321,353,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,110,25,106,38,105,56,105,300,107,306,111,309,116,311,124,312,238,312,246,311,251,309,255,306,257,300,257,62,256,41,253,26,246,17,233,12,213,9,213,0,9,331,9,321,28,319,40,315,47,307,51,294,51,39,48,25,41,16,29,12,9,9,
+150,314,181,338,135,308,135,308,181,338,127,330,135,308,127,330,122,298,122,298,127,330,109,286,98,269,109,286,127,330,98,269,127,330,82,307,82,102,82,24,91,75,91,75,82,24,127,1,91,75,127,1,103,52,103,52,127,1,120,33,131,25,120,33,127,1,131,25,127,1,181,-6,236,330,181,338,194,319,194,319,181,338,181,320,165,318,181,320,181,338,165,318,181,338,150,314,223,19,210,15,235,1,235,1,210,15,197,12,235,1,197,12,182,11,182,11,168,12,181,-6,181,-6,168,12,155,15,181,-6,155,15,143,19,207,316,220,311,236,330,236,330,220,311,231,305,236,330,231,305,243,296,243,296,258,279,281,306,281,306,258,279,271,257,281,306,271,257,280,231,281,103,273,76,280,24,280,24,273,76,261,53,280,24,261,53,247,35,247,35,235,26,280,24,280,24,235,26,235,1,345,166,337,222,337,108,337,108,337,222,316,269,337,108,316,269,315,60,315,60,316,269,288,169,286,201,288,169,316,269,286,201,316,269,281,306,286,201,281,306,280,231,281,306,236,330,243,296,315,60,288,169,286,134,315,60,286,134,281,103,315,60,281,103,280,24,182,11,181,-6,235,1,82,307,47,271,47,61,82,307,47,61,75,166,82,307,75,166,76,194,82,307,76,194,81,222,82,307,81,222,88,247,82,307,88,247,98,269,82,102,77,132,82,24,82,24,77,132,75,166,26,109,47,61,47,271,26,109,47,271,26,224,26,109,26,224,18,167,82,24,75,166,47,61,223,19,235,1,235,26,236,330,194,319,207,316,131,25,181,-6,143,19,
+353,0,353,9,333,12,321,17,313,25,309,37,308,55,308,274,309,293,313,307,321,315,334,319,353,321,353,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,110,25,106,38,105,56,105,300,107,306,111,309,116,311,124,312,238,312,246,311,251,309,255,306,257,300,257,62,256,41,253,26,246,17,233,12,213,9,213,0,9,331,9,321,28,319,40,315,47,307,51,294,51,39,48,25,41,16,29,12,9,9,9,0,150,0,150,9,129,12,115,16,107,24,104,37,103,56,103,146,110,145,115,145,120,144,132,144,161,145,184,147,204,153,221,161,239,175,249,185,257,197,263,210,266,225,267,240,266,254,263,268,258,280,252,291,243,300,227,310,209,319,187,325,162,329,134,331,16383,16383,103,294,103,301,105,306,108,310,113,311,120,312,156,309,
+50,25,42,16,149,0,149,0,42,16,29,12,149,0,29,12,9,9,42,315,50,307,353,331,353,331,50,307,116,311,353,331,116,311,124,312,353,331,124,312,238,312,353,331,238,312,246,311,253,26,246,17,353,0,353,0,246,17,233,12,353,0,233,12,213,9,353,331,246,311,251,309,353,331,251,309,255,306,353,331,255,306,257,300,353,331,257,300,257,292,353,331,257,292,321,315,353,331,321,315,334,319,353,331,334,319,353,321,308,55,308,274,257,292,257,292,308,274,309,293,257,292,309,293,313,307,321,17,313,25,257,62,257,62,313,25,309,37,257,62,309,37,257,292,118,17,110,25,54,61,54,61,110,25,106,38,54,61,106,38,54,274,54,274,106,38,105,56,54,274,105,56,105,291,54,274,105,291,105,300,54,274,105,300,107,306,54,274,107,306,111,309,54,274,111,309,53,294,116,311,50,307,53,294,116,311,53,294,111,309,29,319,42,315,353,331,29,319,353,331,9,331,29,319,9,331,9,321,353,0,353,9,333,12,353,0,333,12,321,17,353,0,321,17,256,41,353,0,256,41,253,26,149,0,149,9,130,12,149,0,130,12,118,17,149,0,118,17,53,39,149,0,53,39,50,25,149,0,9,9,9,0,53,39,118,17,54,61,353,0,213,9,213,0,256,41,321,17,257,62,257,292,309,37,308,55,321,315,257,292,313,307,
+9,331,9,321,28,319,40,315,47,307,51,294,51,39,48,25,41,16,29,12,9,9,9,0,150,0,150,9,129,12,115,16,107,24,104,37,103,56,103,146,110,145,115,145,120,144,132,144,161,145,184,147,204,153,221,161,239,175,249,185,257,197,263,210,266,225,267,240,266,254,263,268,258,280,252,291,243,300,227,310,209,319,187,325,162,329,134,331,16383,16383,103,294,103,301,105,306,108,310,113,311,120,312,156,309,182,302,200,287,210,266,213,238,210,213,199,192,182,177,158,167,128,164,118,164,113,165,109,165,103,166,311,65,289,47,269,32,248,23,226,17,201,15,180,17,161,21,143,28,126,38,112,51,99,68,89,88,82,112,77,140,76,171,81,219,96,260,121,291,154,311,196,318,215,316,232,311,248,304,263,293,276,280,283,272,289,263,294,252,299,240,302,224,314,224,310,338,300,338,297,332,289,324,284,322,278,321,273,322,266,324,258,326,244,330,232,333,208,337,196,338,185,338,157,336,131,330,106,320,83,305,63,286,47,266,35,243,26,218,20,191,18,162,20,133,26,106,36,80,49,57,66,37,85,22,107,9,131,0,157,-4,
+113,311,120,312,120,312,134,331,120,312,156,309,134,331,156,309,162,329,162,329,156,309,182,302,162,329,182,302,187,325,187,325,182,302,200,287,187,325,200,287,209,319,209,319,200,287,210,266,209,319,210,266,227,310,227,310,210,266,213,238,227,310,213,238,221,161,221,161,210,213,204,153,204,153,210,213,199,192,204,153,199,192,184,147,184,147,199,192,182,177,184,147,182,177,161,145,161,145,182,177,158,167,161,145,158,167,132,144,132,144,158,167,128,164,132,144,128,164,125,144,125,144,128,164,122,164,125,144,122,164,120,144,120,144,122,164,118,164,120,144,118,164,115,145,115,145,118,164,113,165,115,145,113,165,110,145,110,145,113,165,109,165,110,145,109,165,103,146,103,146,109,165,103,166,103,146,103,166,103,56,103,56,103,166,51,276,103,56,51,276,104,37,104,37,51,276,51,61,267,240,266,254,266,225,266,225,266,254,263,268,266,225,263,268,263,210,263,210,263,268,258,280,263,210,258,280,257,197,257,197,258,280,252,291,257,197,252,291,249,185,249,185,252,291,243,300,249,185,243,300,239,175,239,175,243,300,227,310,239,175,227,310,221,161,134,331,9,331,28,319,134,331,28,319,40,315,134,331,40,315,47,307,134,331,47,307,51,294,134,331,51,294,51,276,134,331,51,276,108,310,134,331,108,310,113,311,134,331,113,311,120,312,103,294,103,301,51,276,103,294,51,276,103,166,105,306,108,310,51,276,105,306,51,276,103,301,150,0,150,9,129,12,150,0,129,12,115,16,150,0,115,16,51,39,150,0,51,39,48,25,150,0,48,25,41,16,150,0,41,16,29,12,150,0,29,12,9,9,150,0,9,9,9,0,51,61,51,39,115,16,51,61,115,16,107,24,51,61,107,24,104,37,28,319,9,331,9,321,210,213,221,161,213,238,
+311,65,289,47,269,32,248,23,226,17,201,15,180,17,161,21,143,28,126,38,112,51,99,68,89,88,82,112,77,140,76,171,81,219,96,260,121,291,154,311,196,318,215,316,232,311,248,304,263,293,276,280,283,272,289,263,294,252,299,240,302,224,314,224,310,338,300,338,297,332,289,324,284,322,278,321,273,322,266,324,258,326,244,330,232,333,208,337,196,338,185,338,157,336,131,330,106,320,83,305,63,286,47,266,35,243,26,218,20,191,18,162,20,133,26,106,36,80,49,57,66,37,85,22,107,9,131,0,157,-4,184,-6,218,-4,249,3,277,16,301,34,320,56,296,246,292,331,18,331,15,246,27,246,33,274,42,292,54,303,73,309,100,310,130,310,130,61,129,39,125,25,117,16,104,12,83,9,83,0,229,0,229,9,208,11,194,16,186,23,182,36,181,55,181,310,210,310,237,309,256,303,269,292,277,274,284,246,347,331,243,331,243,322,254,320,263,316,269,312,273,306,274,299,273,292,271,284,268,273,263,260,257,245,204,118,132,245,123,262,110,288,107,297,106,303,107,309,112,314,119,318,129,321,142,322,142,331,7,331,7,322,15,320,27,316,37,310,42,305,46,300,51,294,61,278,181,67,172,53,163,41,154,33,146,28,
+66,37,77,140,76,171,76,171,83,305,66,37,66,37,83,305,63,286,66,37,63,286,49,57,49,57,63,286,47,266,49,57,47,266,36,80,36,80,47,266,35,243,36,80,35,243,26,106,26,106,35,243,26,218,26,106,26,218,20,133,20,133,26,218,20,191,20,133,20,191,18,162,82,112,85,22,89,88,89,88,85,22,107,9,89,88,107,9,99,68,99,68,107,9,112,51,126,38,112,51,131,0,126,38,131,0,143,28,143,28,131,0,157,-4,143,28,157,-4,161,21,161,21,157,-4,184,-6,161,21,184,-6,180,17,180,17,184,-6,201,15,226,17,201,15,218,-4,226,17,218,-4,249,3,77,140,66,37,85,22,77,140,85,22,82,112,112,51,107,9,131,0,258,326,263,293,266,324,266,324,263,293,276,280,266,324,276,280,273,322,273,322,276,280,278,321,284,322,278,321,283,272,284,322,283,272,289,263,278,321,276,280,283,272,232,333,232,311,244,330,244,330,232,311,248,304,244,330,248,304,251,328,251,328,248,304,263,293,251,328,263,293,258,326,220,335,208,337,215,316,220,335,215,316,232,311,220,335,232,311,232,333,208,337,196,338,215,316,215,316,196,338,196,318,154,311,196,318,157,336,154,311,157,336,131,330,314,224,310,338,302,224,302,224,310,338,300,338,302,224,300,338,299,240,299,240,300,338,297,332,299,240,297,332,294,252,294,252,297,332,293,328,294,252,293,328,289,263,289,263,293,328,289,324,289,263,289,324,284,322,320,56,311,65,301,34,301,34,311,65,289,47,301,34,289,47,277,16,277,16,289,47,269,32,277,16,269,32,249,3,249,3,269,32,248,23,249,3,248,23,226,17,201,15,184,-6,218,-4,196,318,196,338,185,338,196,318,185,338,157,336,76,171,81,219,83,305,83,305,81,219,96,260,83,305,96,260,106,320,106,320,96,260,121,291,106,320,121,291,131,330,131,330,121,291,154,311,
+296,246,292,331,18,331,15,246,27,246,33,274,42,292,54,303,73,309,100,310,130,310,130,61,129,39,125,25,117,16,104,12,83,9,83,0,229,0,229,9,208,11,194,16,186,23,182,36,181,55,181,310,210,310,237,309,256,303,269,292,277,274,284,246,347,331,243,331,243,322,254,320,263,316,269,312,273,306,274,299,273,292,271,284,268,273,263,260,257,245,204,118,132,245,123,262,110,288,107,297,106,303,107,309,112,314,119,318,129,321,142,322,142,331,7,331,7,322,15,320,27,316,37,310,42,305,46,300,
+292,331,18,331,73,309,292,331,73,309,100,310,292,331,100,310,130,310,292,331,130,310,181,310,292,331,181,310,210,310,292,331,210,310,237,309,292,331,237,309,256,303,292,331,256,303,269,292,292,331,269,292,277,274,292,331,277,274,284,246,292,331,284,246,296,246,194,16,186,23,130,61,130,61,186,23,182,36,130,61,182,36,130,310,130,310,182,36,181,55,130,310,181,55,181,310,18,331,15,246,27,246,18,331,27,246,33,274,18,331,33,274,42,292,18,331,42,292,54,303,18,331,54,303,73,309,229,0,229,9,208,11,229,0,208,11,194,16,229,0,194,16,129,39,229,0,129,39,125,25,229,0,125,25,117,16,229,0,117,16,104,12,229,0,104,12,83,9,229,0,83,9,83,0,129,39,194,16,130,61,
+347,331,243,331,243,322,254,320,263,316,269,312,273,306,274,299,273,292,271,284,268,273,263,260,257,245,204,118,132,245,123,262,110,288,107,297,106,303,107,309,112,314,119,318,129,321,142,322,142,331,7,331,7,322,15,320,27,316,37,310,42,305,46,300,51,294,61,278,181,67,172,53,163,41,154,33,146,28,138,27,136,27,133,28,131,29,127,30,124,32,118,35,108,39,104,40,99,41,92,40,85,37,80,32,77,26,76,20,78,10,84,3,93,-2,104,-5,117,-6,132,-4,147,0,161,9,175,22,188,40,194,51,202,65,210,81,219,100,228,122,291,272,300,289,310,302,321,312,333,319,347,322,218,290,219,301,223,310,232,316,247,320,269,321,269,331,116,331,116,321,138,320,152,317,161,311,165,302,166,290,166,280,124,276,84,263,50,241,27,209,19,165,24,128,41,97,69,72,107,57,158,51,166,51,166,37,164,27,158,19,148,14,134,10,116,9,116,0,269,0,269,9,248,11,233,14,224,19,219,27,218,38,218,51,230,51,265,56,302,69,334,91,357,123,366,165,357,209,333,241,300,263,260,276,218,280,16383,16383,217,262,251,256,278,240,296,216,307,188,311,159,305,128,291,103,270,85,244,74,217,70,16383,16383,167,70,135,75,108,88,89,107,78,132,74,159,78,189,91,216,111,240,136,256,
+21,318,27,316,142,331,142,331,27,316,32,313,142,331,32,313,37,310,37,310,42,305,142,331,142,331,42,305,46,300,142,331,46,300,51,294,61,278,181,67,107,297,61,278,107,297,106,303,106,303,107,309,61,278,61,278,107,309,112,314,61,278,112,314,56,286,142,331,51,294,56,286,142,331,56,286,112,314,142,331,112,314,119,318,142,331,119,318,129,321,142,331,129,321,142,322,15,320,21,318,142,331,15,320,142,331,7,331,15,320,7,331,7,322,133,28,131,29,132,-4,132,-4,131,29,127,30,132,-4,127,30,124,32,124,32,118,35,132,-4,132,-4,118,35,117,-6,181,67,172,53,175,22,175,22,172,53,163,41,175,22,163,41,161,9,161,9,163,41,154,33,161,9,154,33,147,0,147,0,154,33,146,28,147,0,146,28,138,27,138,27,136,27,147,0,147,0,136,27,133,28,147,0,133,28,132,-4,257,245,204,118,210,81,257,245,210,81,219,100,257,245,219,100,228,122,257,245,228,122,291,272,347,331,243,331,254,320,347,331,254,320,263,316,347,331,263,316,269,312,347,331,269,312,273,306,347,331,273,306,274,299,347,331,274,299,321,312,347,331,321,312,333,319,347,331,333,319,347,322,291,272,300,289,274,299,291,272,274,299,273,292,291,272,273,292,271,284,291,272,271,284,268,273,291,272,268,273,263,260,291,272,263,260,257,245,310,302,321,312,274,299,310,302,274,299,300,289,204,118,132,245,181,67,204,118,181,67,188,40,204,118,188,40,194,51,204,118,194,51,202,65,204,118,202,65,210,81,181,67,132,245,123,262,181,67,123,262,116,276,181,67,116,276,110,288,181,67,110,288,107,297,118,35,113,37,117,-6,117,-6,113,37,108,39,117,-6,108,39,104,-5,104,-5,108,39,104,40,104,-5,104,40,99,41,93,-2,104,-5,99,41,93,-2,99,41,92,40,93,-2,92,40,85,37,93,-2,85,37,84,3,80,32,77,26,78,10,80,32,78,10,84,3,80,32,84,3,85,37,78,10,77,26,76,20,181,67,175,22,188,40,254,320,243,331,243,322,
+218,290,219,301,223,310,232,316,247,320,269,321,269,331,116,331,116,321,138,320,152,317,161,311,165,302,166,290,166,280,124,276,84,263,50,241,27,209,19,165,24,128,41,97,69,72,107,57,158,51,166,51,166,37,164,27,158,19,148,14,134,10,116,9,116,0,269,0,269,9,248,11,233,14,224,19,219,27,218,38,218,51,230,51,265,56,302,69,334,91,357,123,366,165,357,209,333,241,300,263,260,276,218,280,16383,16383,217,262,251,256,278,240,296,216,307,188,311,159,305,128,291,103,270,85,244,74,217,70,16383,16383,167,70,135,75,108,88,89,107,78,132,74,159,78,189,91,216,111,240,136,256,167,262,352,0,352,9,337,12,326,16,316,22,306,32,296,46,200,184,272,272,289,292,303,305,316,314,330,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,262,301,260,296,256,290,250,282,243,272,187,202,165,234,151,255,139,272,130,286,125,297,123,306,124,312,127,316,132,319,139,320,147,320,161,321,161,331,11,331,11,321,28,319,43,312,58,299,77,276,102,242,155,164,77,66,57,42,42,26,30,17,18,12,4,9,4,0,121,0,121,9,105,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,99,57,109,70,169,145,216,74,225,60,232,48,238,38,241,31,242,25,241,20,
+269,321,269,321,247,320,247,320,269,321,269,331,247,320,269,331,232,316,232,316,269,331,166,290,232,316,166,290,223,310,223,310,166,290,167,262,219,27,167,262,167,70,219,27,167,70,224,19,224,19,167,70,166,51,224,19,166,51,166,37,218,38,217,70,167,262,167,262,217,70,217,262,167,262,217,262,218,290,218,290,217,262,218,280,219,301,223,310,167,262,219,301,167,262,218,290,166,290,269,331,165,302,269,331,116,331,138,320,269,331,138,320,152,317,269,331,152,317,161,311,269,331,161,311,165,302,91,216,111,240,124,276,124,276,111,240,136,256,124,276,136,256,166,280,166,280,136,256,167,262,166,280,167,262,166,290,84,263,50,241,74,159,84,263,74,159,78,189,84,263,78,189,91,216,84,263,91,216,124,276,19,165,24,128,27,209,27,209,24,128,41,97,27,209,41,97,50,241,50,241,41,97,69,72,50,241,69,72,74,159,334,91,311,159,305,128,334,91,305,128,302,69,302,69,305,128,291,103,302,69,291,103,270,85,307,188,311,159,333,241,333,241,311,159,334,91,333,241,334,91,357,209,357,209,334,91,357,123,357,209,357,123,366,165,300,263,260,276,278,240,300,263,278,240,296,216,300,263,296,216,307,188,300,263,307,188,333,241,251,256,278,240,260,276,251,256,260,276,218,280,251,256,218,280,217,262,218,51,230,51,244,74,244,74,230,51,265,56,244,74,265,56,270,85,270,85,265,56,302,69,218,38,167,262,219,27,218,38,218,51,217,70,269,0,269,9,248,11,269,0,248,11,233,14,269,0,233,14,166,37,269,0,166,37,164,27,269,0,164,27,158,19,269,0,158,19,148,14,269,0,148,14,134,10,269,0,134,10,116,9,269,0,116,9,116,0,158,51,166,51,167,70,158,51,167,70,135,75,158,51,135,75,108,88,158,51,108,88,107,57,74,159,69,72,78,132,78,132,69,72,107,57,78,132,107,57,89,107,89,107,107,57,108,88,166,37,233,14,224,19,217,70,218,51,244,74,138,320,116,331,116,321,
+352,0,352,9,337,12,326,16,316,22,306,32,296,46,200,184,272,272,289,292,303,305,316,314,330,319,348,321,348,331,229,331,229,321,243,320,253,319,259,316,262,311,263,305,262,301,260,296,256,290,250,282,243,272,187,202,165,234,151,255,139,272,130,286,125,297,123,306,124,312,127,316,132,319,139,320,147,320,161,321,161,331,11,331,11,321,28,319,43,312,58,299,77,276,102,242,155,164,77,66,57,42,42,26,30,17,18,12,4,9,4,0,121,0,121,9,105,11,95,13,88,17,84,21,83,26,84,31,87,38,92,46,99,57,109,70,169,145,216,74,225,60,232,48,238,38,241,31,242,25,241,20,237,16,232,14,225,12,217,11,204,9,204,0,348,-75,348,9,329,12,316,16,308,24,305,37,304,57,304,292,308,306,316,315,329,319,348,321,348,331,209,331,209,321,228,319,240,315,248,306,251,293,252,275,252,28,250,23,247,21,242,19,115,19,110,21,107,23,105,28,105,269,106,290,109,305,117,314,129,319,149,321,149,331,9,331,9,321,28,319,41,314,49,306,53,294,54,276,54,57,53,37,49,24,41,16,28,12,9,9,9,0,284,0,299,-5,312,-15,323,-29,331,-49,332,-54,333,-60,335,-67,335,-72,336,-75,320,0,320,9,301,12,288,16,280,24,276,37,275,57,275,269,276,291,280,306,288,315,301,319,320,321,320,331,186,331,186,321,204,319,214,316,221,309,223,299,224,283,224,174,216,170,
+30,17,121,0,42,26,42,26,121,0,88,17,42,26,88,17,57,42,57,42,88,17,84,21,57,42,84,21,83,26,83,26,84,31,77,66,77,66,84,31,87,38,77,66,87,38,155,164,155,164,87,38,92,46,155,164,92,46,99,57,102,242,155,164,125,297,102,242,125,297,123,306,123,306,124,312,102,242,155,164,99,57,109,70,109,70,169,145,155,164,155,164,169,145,165,234,155,164,165,234,151,255,77,66,57,42,83,26,161,331,11,331,28,319,161,331,28,319,43,312,161,331,43,312,58,299,161,331,58,299,132,319,161,331,132,319,139,320,161,331,139,320,147,320,161,331,147,320,161,321,132,319,58,299,127,316,127,316,58,299,77,276,127,316,77,276,124,312,124,312,77,276,102,242,260,296,256,290,272,272,272,272,256,290,250,282,272,272,250,282,243,272,243,272,187,202,200,184,200,184,187,202,216,74,200,184,216,74,296,46,296,46,216,74,225,60,296,46,225,60,232,48,348,331,229,331,243,320,348,331,243,320,253,319,348,331,253,319,259,316,348,331,259,316,262,311,348,331,262,311,263,305,348,331,263,305,316,314,348,331,316,314,330,319,348,331,330,319,348,321,263,305,272,272,289,292,263,305,289,292,303,305,263,305,303,305,316,314,262,301,260,296,272,272,262,301,272,272,263,305,243,272,200,184,272,272,237,16,232,14,352,0,352,0,232,14,225,12,352,0,225,12,217,11,242,25,352,0,326,16,242,25,326,16,316,22,242,25,316,22,306,32,242,25,306,32,296,46,242,25,296,46,241,31,296,46,232,48,238,38,296,46,238,38,241,31,187,202,165,234,169,145,187,202,169,145,216,74,337,12,326,16,352,0,337,12,352,0,352,9,241,20,237,16,352,0,241,20,352,0,242,25,204,9,204,0,352,0,204,9,352,0,217,11,155,164,151,255,139,272,155,164,139,272,130,286,155,164,130,286,125,297,121,0,121,9,105,11,121,0,105,11,95,13,121,0,95,13,88,17,18,12,4,9,121,0,18,12,121,0,30,17,121,0,4,9,4,0,243,320,229,331,229,321,28,319,11,331,11,321,
+348,-75,348,9,329,12,316,16,308,24,305,37,304,57,304,292,308,306,316,315,329,319,348,321,348,331,209,331,209,321,228,319,240,315,248,306,251,293,252,275,252,28,250,23,247,21,242,19,115,19,110,21,107,23,105,28,105,269,106,290,109,305,117,314,129,319,149,321,149,331,9,331,9,321,28,319,41,314,49,306,53,294,54,276,54,57,53,37,49,24,41,16,28,12,9,9,9,0,284,0,299,-5,312,-15,323,-29,331,-49,332,-54,333,-60,335,-67,335,-72,336,-75,320,0,320,9,301,12,288,16,280,24,276,37,275,57,275,269,276,291,280,306,288,315,301,319,320,321,320,331,186,331,186,321,204,319,214,316,221,309,223,299,224,283,224,174,216,170,204,166,190,161,173,158,155,156,132,158,116,165,105,176,99,193,97,216,97,273,98,294,101,307,109,315,121,319,139,321,139,331,2,331,2,321,21,319,34,315,41,307,45,293,46,273,46,211,50,178,62,155,80,142,104,136,133,134,157,136,178,140,197,145,212,152,224,157,224,57,223,37,
+49,24,41,16,268,0,268,0,41,16,28,12,268,0,28,12,9,9,149,331,9,331,28,319,149,331,28,319,41,314,149,331,41,314,49,306,149,331,49,306,53,294,149,331,53,294,117,314,149,331,117,314,129,319,149,331,129,319,149,321,110,21,107,23,54,57,54,57,107,23,105,28,54,57,105,28,54,276,54,276,105,28,105,34,54,276,105,34,105,269,54,276,105,269,106,290,54,276,106,290,109,305,54,276,109,305,117,314,54,276,117,314,53,294,329,319,348,321,348,331,329,319,348,331,316,315,316,315,348,331,251,293,316,315,251,293,252,275,268,0,252,275,252,35,268,0,252,35,252,28,316,16,308,24,312,-15,312,-15,308,24,305,37,312,-15,305,37,299,-5,299,-5,305,37,304,57,299,-5,304,57,304,270,252,275,268,0,304,292,304,292,268,0,284,0,304,292,284,0,304,270,304,270,284,0,299,-5,308,306,316,315,252,275,308,306,252,275,304,292,348,331,209,331,228,319,348,331,228,319,240,315,348,331,240,315,248,306,348,331,248,306,251,293,333,-60,348,9,332,-54,332,-54,348,9,331,-49,323,-29,331,-49,329,12,323,-29,329,12,316,16,348,9,333,-60,335,-67,348,9,335,-67,335,-72,348,9,335,-72,336,-75,348,9,336,-75,348,-75,348,9,329,12,331,-49,268,0,252,28,250,23,268,0,250,23,247,21,268,0,247,21,242,19,268,0,242,19,235,19,268,0,235,19,123,19,268,0,123,19,115,19,268,0,115,19,49,24,110,21,54,57,53,37,110,21,53,37,49,24,110,21,49,24,115,19,268,0,9,9,9,0,316,16,312,-15,323,-29,228,319,209,331,209,321,28,319,9,331,9,321,
+320,0,320,9,301,12,288,16,280,24,276,37,275,57,275,269,276,291,280,306,288,315,301,319,320,321,320,331,186,331,186,321,204,319,214,316,221,309,223,299,224,283,224,174,216,170,204,166,190,161,173,158,155,156,132,158,116,165,105,176,99,193,97,216,97,273,98,294,101,307,109,315,121,319,139,321,139,331,2,331,2,321,21,319,34,315,41,307,45,293,46,273,46,211,50,178,62,155,80,142,104,136,133,134,157,136,178,140,197,145,212,152,224,157,224,57,223,37,219,24,211,16,199,12,180,9,180,0,483,0,483,9,463,12,450,16,443,24,439,37,438,57,438,270,439,292,443,306,450,315,463,319,483,321,483,331,343,331,344,321,362,319,375,315,383,306,386,293,387,275,387,28,385,23,382,21,377,19,282,19,277,21,274,23,272,27,272,269,273,290,276,305,283,314,296,319,315,321,315,331,183,331,183,321,200,319,210,314,217,306,220,294,220,28,218,23,215,21,210,19,120,19,115,21,112,23,110,28,110,269,111,291,114,306,120,315,131,320,147,321,147,331,15,331,15,321,34,319,46,314,54,306,58,294,59,276,
+139,321,139,321,121,319,121,319,139,321,139,331,121,319,139,331,109,315,109,315,139,331,45,293,109,315,45,293,46,273,50,178,46,273,46,211,132,158,116,165,133,134,133,134,116,165,105,176,133,134,105,176,104,136,104,136,105,176,99,193,104,136,99,193,80,142,80,142,99,193,97,216,80,142,97,216,97,273,46,273,50,178,101,307,101,307,50,178,62,155,101,307,62,155,98,294,98,294,62,155,80,142,98,294,80,142,97,273,139,331,2,331,21,319,139,331,21,319,34,315,139,331,34,315,41,307,139,331,41,307,45,293,224,283,224,174,224,157,224,157,224,174,216,170,224,157,216,170,212,152,212,152,216,170,204,166,212,152,204,166,197,145,197,145,204,166,190,161,197,145,190,161,178,140,178,140,190,161,173,158,178,140,173,158,157,136,157,136,173,158,155,156,133,134,157,136,155,156,133,134,155,156,132,158,320,331,186,331,204,319,320,331,204,319,214,316,320,331,214,316,221,309,320,331,221,309,223,299,320,331,223,299,224,283,320,331,224,283,288,315,320,331,288,315,301,319,320,331,301,319,320,321,275,57,275,269,224,157,224,157,275,269,276,291,224,157,276,291,280,306,224,283,224,157,280,306,224,283,280,306,288,315,320,0,320,9,301,12,320,0,301,12,288,16,320,0,288,16,223,37,320,0,223,37,219,24,320,0,219,24,211,16,320,0,211,16,199,12,320,0,199,12,180,9,320,0,180,9,180,0,224,157,280,24,276,37,224,157,276,37,275,57,224,57,223,37,288,16,224,57,288,16,280,24,224,57,280,24,224,157,204,319,186,331,186,321,21,319,2,331,2,321,109,315,46,273,101,307,
+483,0,483,9,463,12,450,16,443,24,439,37,438,57,438,270,439,292,443,306,450,315,463,319,483,321,483,331,343,331,344,321,362,319,375,315,383,306,386,293,387,275,387,28,385,23,382,21,377,19,282,19,277,21,274,23,272,27,272,269,273,290,276,305,283,314,296,319,315,321,315,331,183,331,183,321,200,319,210,314,217,306,220,294,220,28,218,23,215,21,210,19,120,19,115,21,112,23,110,28,110,269,111,291,114,306,120,315,131,320,147,321,147,331,15,331,15,321,34,319,46,314,54,306,58,294,59,276,59,57,58,37,54,24,46,16,33,12,15,9,15,0,483,-75,483,9,463,12,450,16,443,24,439,37,438,57,438,270,439,292,443,306,450,315,463,319,483,321,483,331,343,331,344,321,362,319,375,315,383,306,386,293,387,275,387,28,385,23,382,21,377,19,282,19,277,21,274,23,272,27,272,269,273,290,276,305,283,314,296,319,315,321,315,331,183,331,183,321,200,319,210,314,217,306,220,294,220,28,218,23,215,21,210,19,120,19,115,21,112,23,110,28,110,269,111,291,114,306,120,315,131,320,147,321,147,331,15,331,15,321,34,319,46,314,54,306,58,294,59,276,59,57,58,37,54,24,46,16,33,12,15,9,15,0,
+59,57,58,37,115,21,115,21,58,37,54,24,115,21,54,24,120,19,120,19,54,24,46,16,120,19,46,16,483,0,483,0,46,16,33,12,483,0,33,12,15,9,147,331,15,331,34,319,147,331,34,319,46,314,147,331,46,314,54,306,147,331,54,306,58,294,147,331,58,294,120,315,147,331,120,315,131,320,147,331,131,320,147,321,115,21,112,23,59,57,59,57,112,23,110,28,59,57,110,28,59,276,59,276,110,28,110,34,59,276,110,34,110,269,59,276,110,269,111,291,59,276,111,291,114,306,59,276,114,306,120,315,59,276,120,315,58,294,296,319,315,321,315,331,296,319,315,331,283,314,283,314,315,331,220,294,283,314,220,294,220,276,272,27,220,276,220,35,272,27,220,35,274,23,274,23,220,35,277,21,272,33,272,269,220,276,220,276,272,269,273,290,220,276,273,290,276,305,315,331,183,331,200,319,315,331,200,319,210,314,315,331,210,314,217,306,315,331,217,306,220,294,463,319,483,321,483,331,463,319,483,331,450,315,450,315,483,331,386,293,450,315,386,293,387,275,439,37,387,275,387,35,439,37,387,35,443,24,443,24,387,35,450,16,438,57,438,270,387,275,387,275,438,270,439,292,387,275,439,292,443,306,483,331,343,331,344,321,483,331,344,321,362,319,483,331,362,319,375,315,483,331,375,315,383,306,483,331,383,306,386,293,483,0,483,9,463,12,483,0,463,12,450,16,483,0,450,16,387,35,483,0,387,35,387,28,483,0,387,28,385,23,483,0,385,23,382,21,483,0,382,21,377,19,483,0,377,19,371,19,483,0,371,19,289,19,483,0,289,19,282,19,483,0,282,19,218,23,483,0,218,23,215,21,483,0,215,21,210,19,483,0,210,19,203,19,483,0,203,19,127,19,483,0,127,19,120,19,282,19,277,21,220,35,282,19,220,35,220,28,282,19,220,28,218,23,483,0,15,9,15,0,220,276,272,27,272,33,387,275,439,37,438,57,450,315,387,275,443,306,200,319,183,331,183,321,283,314,220,276,276,305,34,319,15,331,15,321,
+483,-75,483,9,463,12,450,16,443,24,439,37,438,57,438,270,439,292,443,306,450,315,463,319,483,321,483,331,343,331,344,321,362,319,375,315,383,306,386,293,387,275,387,28,385,23,382,21,377,19,282,19,277,21,274,23,272,27,272,269,273,290,276,305,283,314,296,319,315,321,315,331,183,331,183,321,200,319,210,314,217,306,220,294,220,28,218,23,215,21,210,19,120,19,115,21,112,23,110,28,110,269,111,291,114,306,120,315,131,320,147,321,147,331,15,331,15,321,34,319,46,314,54,306,58,294,59,276,59,57,58,37,54,24,46,16,33,12,15,9,15,0,419,0,433,-5,446,-15,457,-29,465,-49,467,-55,468,-61,469,-68,470,-73,470,-75,171,183,171,274,172,293,177,307,186,315,200,319,219,321,219,331,10,331,7,246,18,246,25,274,33,293,45,304,63,309,90,310,120,310,120,56,119,37,114,24,106,16,92,11,72,9,72,0,231,0,271,4,305,15,330,34,346,59,352,91,345,126,327,153,299,170,262,180,219,183,16383,16383,171,163,204,163,231,161,256,154,276,141,289,120,294,89,289,59,275,39,253,27,226,21,195,19,185,20,178,22,174,26,171,33,171,41,432,0,432,9,414,12,401,17,393,25,389,38,388,57,388,274,389,294,393,307,401,315,414,319,432,321,432,331,292,331,292,321,312,319,325,315,332,307,336,294,337,274,337,61,336,39,333,25,325,16,312,12,292,9,292,0,
+59,57,58,37,115,21,115,21,58,37,54,24,115,21,54,24,120,19,120,19,54,24,46,16,120,19,46,16,402,0,402,0,46,16,33,12,402,0,33,12,15,9,147,331,15,331,34,319,147,331,34,319,46,314,147,331,46,314,54,306,147,331,54,306,58,294,147,331,58,294,120,315,147,331,120,315,131,320,147,331,131,320,147,321,115,21,112,23,59,57,59,57,112,23,110,28,59,57,110,28,59,276,59,276,110,28,110,34,59,276,110,34,110,269,59,276,110,269,111,291,59,276,111,291,114,306,59,276,114,306,120,315,59,276,120,315,58,294,296,319,315,321,315,331,296,319,315,331,283,314,283,314,315,331,220,294,283,314,220,294,220,276,272,27,220,276,220,35,272,27,220,35,274,23,274,23,220,35,277,21,272,33,272,269,220,276,220,276,272,269,273,290,220,276,273,290,276,305,315,331,183,331,200,319,315,331,200,319,210,314,315,331,210,314,217,306,315,331,217,306,220,294,463,319,483,321,483,331,463,319,483,331,450,315,450,315,483,331,386,293,450,315,386,293,387,275,402,0,387,275,387,35,402,0,387,35,387,28,450,16,443,24,446,-15,446,-15,443,24,439,37,446,-15,439,37,433,-5,433,-5,439,37,438,57,433,-5,438,57,438,270,387,275,402,0,439,292,439,292,402,0,419,0,439,292,419,0,438,270,438,270,419,0,433,-5,443,306,450,315,387,275,443,306,387,275,439,292,483,331,343,331,344,321,483,331,344,321,362,319,483,331,362,319,375,315,483,331,375,315,383,306,483,331,383,306,386,293,468,-61,483,9,467,-55,467,-55,483,9,465,-49,457,-29,465,-49,463,12,457,-29,463,12,450,16,483,9,468,-61,469,-68,483,9,469,-68,470,-73,483,9,470,-73,470,-75,483,9,470,-75,483,-75,483,9,463,12,465,-49,402,0,387,28,385,23,402,0,385,23,382,21,402,0,382,21,377,19,402,0,377,19,371,19,402,0,371,19,289,19,402,0,289,19,282,19,402,0,282,19,220,28,402,0,220,28,218,23,402,0,218,23,215,21,402,0,215,21,210,19,402,0,210,19,203,19,402,0,203,19,127,19,402,0,127,19,120,19,220,35,220,28,282,19,220,35,282,19,277,21,402,0,15,9,15,0,220,276,272,27,272,33,450,16,446,-15,457,-29,200,319,183,331,183,321,283,314,220,276,276,305,34,319,15,331,15,321,
+171,183,171,274,172,293,177,307,186,315,200,319,219,321,219,331,10,331,7,246,18,246,25,274,33,293,45,304,63,309,90,310,120,310,120,56,119,37,114,24,106,16,92,11,72,9,72,0,231,0,271,4,305,15,330,34,346,59,352,91,345,126,327,153,299,170,262,180,219,183,16383,16383,171,163,204,163,231,161,256,154,276,141,289,120,294,89,289,59,275,39,253,27,226,21,195,19,185,20,178,22,174,26,171,33,171,41,432,0,432,9,414,12,401,17,393,25,389,38,388,57,388,274,389,294,393,307,401,315,414,319,432,321,432,331,292,331,292,321,312,319,325,315,332,307,336,294,337,274,337,61,336,39,333,25,325,16,312,12,292,9,292,0,16383,16383,108,183,108,274,110,293,115,307,123,315,137,319,156,321,156,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,170,0,210,4,
+114,24,106,16,231,0,231,0,106,16,92,11,231,0,92,11,72,9,177,307,186,315,120,310,120,310,186,315,219,331,120,310,219,331,90,310,63,309,90,310,219,331,63,309,219,331,10,331,200,319,219,321,219,331,200,319,219,331,186,315,120,310,171,33,171,41,171,183,171,163,204,163,171,183,204,163,219,183,219,183,204,163,231,161,219,183,231,161,262,180,262,180,231,161,256,154,262,180,256,154,276,141,120,310,171,41,171,274,120,310,171,274,172,293,120,310,172,293,177,307,10,331,7,246,18,246,10,331,18,246,25,274,10,331,25,274,33,293,10,331,33,293,45,304,10,331,45,304,63,309,294,89,289,59,305,15,305,15,289,59,275,39,305,15,275,39,271,4,271,4,275,39,253,27,271,4,253,27,231,0,231,0,253,27,226,21,231,0,226,21,195,19,195,19,185,20,231,0,231,0,185,20,178,22,231,0,178,22,119,37,119,37,178,22,120,56,299,170,294,89,305,15,299,170,305,15,327,153,327,153,305,15,330,34,327,153,330,34,345,126,345,126,330,34,346,59,345,126,346,59,352,91,299,170,262,180,276,141,299,170,276,141,289,120,299,170,289,120,294,89,120,56,178,22,174,26,120,56,174,26,171,33,120,56,171,33,120,310,231,0,72,9,72,0,114,24,231,0,119,37,
+432,0,432,9,414,12,401,17,393,25,389,38,388,57,388,274,389,294,393,307,401,315,414,319,432,321,432,331,292,331,292,321,312,319,325,315,332,307,336,294,337,274,337,61,336,39,333,25,325,16,312,12,292,9,292,0,16383,16383,108,183,108,274,110,293,115,307,123,315,137,319,156,321,156,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,170,0,210,4,244,15,268,34,284,59,290,91,283,126,265,153,238,170,201,180,158,183,16383,16383,108,163,142,163,170,161,194,154,214,141,227,120,232,89,227,59,214,39,193,27,166,21,134,19,123,20,115,22,111,26,109,33,108,41,108,183,108,274,110,293,115,307,123,315,137,319,156,321,156,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,170,0,210,4,243,15,268,34,284,59,289,91,283,126,265,153,237,170,201,180,158,183,16383,16383,108,163,142,163,170,161,194,154,214,141,227,120,232,89,227,59,213,39,193,27,166,21,134,19,123,20,115,22,111,26,109,33,108,41,26,338,23,224,36,224,39,239,42,252,46,263,51,272,57,280,71,293,85,304,101,311,118,316,136,318,173,312,203,293,226,265,241,228,248,184,103,184,103,161,248,161,248,142,246,124,242,108,237,92,231,78,218,57,201,39,181,26,
+432,321,432,321,414,319,414,319,432,321,432,331,414,319,432,331,401,315,401,315,432,331,336,294,401,315,336,294,337,274,389,38,337,274,337,61,389,38,337,61,393,25,393,25,337,61,401,17,388,57,388,274,337,274,337,274,388,274,389,294,337,274,389,294,393,307,432,331,292,331,312,319,432,331,312,319,325,315,432,331,325,315,332,307,432,331,332,307,336,294,432,0,432,9,414,12,432,0,414,12,401,17,432,0,401,17,336,39,432,0,336,39,333,25,432,0,333,25,325,16,432,0,325,16,312,12,432,0,312,12,292,9,432,0,292,9,292,0,52,24,43,16,170,0,170,0,43,16,30,11,170,0,30,11,9,9,156,331,9,331,30,320,156,331,30,320,44,316,156,331,44,316,52,308,156,331,52,308,56,295,156,331,56,295,123,315,156,331,123,315,137,319,156,331,137,319,156,321,57,275,109,33,108,41,108,183,108,163,142,163,108,183,142,163,158,183,158,183,142,163,170,161,158,183,170,161,201,180,201,180,170,161,194,154,201,180,194,154,214,141,57,275,108,41,108,274,57,275,108,274,110,293,57,275,110,293,115,307,57,275,115,307,123,315,57,275,123,315,56,295,232,89,227,59,244,15,244,15,227,59,214,39,244,15,214,39,210,4,210,4,214,39,193,27,210,4,193,27,170,0,170,0,193,27,166,21,170,0,166,21,134,19,134,19,123,20,170,0,170,0,123,20,115,22,170,0,115,22,56,37,56,37,115,22,57,56,238,170,232,89,244,15,238,170,244,15,265,153,265,153,244,15,268,34,265,153,268,34,283,126,283,126,268,34,284,59,283,126,284,59,290,91,238,170,201,180,214,141,238,170,214,141,227,120,238,170,227,120,232,89,57,56,115,22,111,26,57,56,111,26,109,33,57,56,109,33,57,275,170,0,9,9,9,0,52,24,170,0,56,37,30,320,9,331,9,321,336,39,401,17,337,61,337,274,389,38,388,57,312,319,292,331,292,321,401,315,337,274,393,307,
+108,183,108,274,110,293,115,307,123,315,137,319,156,321,156,331,9,331,9,321,30,320,44,316,52,308,56,295,57,275,57,56,56,37,52,24,43,16,30,11,9,9,9,0,170,0,210,4,243,15,268,34,284,59,289,91,283,126,265,153,237,170,201,180,158,183,16383,16383,108,163,142,163,170,161,194,154,214,141,227,120,232,89,227,59,213,39,193,27,166,21,134,19,123,20,115,22,111,26,109,33,108,41,26,338,23,224,36,224,39,239,42,252,46,263,51,272,57,280,71,293,85,304,101,311,118,316,136,318,173,312,203,293,226,265,241,228,248,184,103,184,103,161,248,161,248,142,246,124,242,108,237,92,231,78,218,57,201,39,181,26,158,18,131,15,107,17,86,23,65,32,45,46,25,65,15,55,33,33,55,16,80,3,109,-4,141,-6,168,-4,194,0,218,9,240,22,258,37,275,57,288,79,298,104,304,131,
+52,24,43,16,170,0,170,0,43,16,30,11,170,0,30,11,9,9,156,331,9,331,30,320,156,331,30,320,44,316,156,331,44,316,52,308,156,331,52,308,56,295,156,331,56,295,123,315,156,331,123,315,137,319,156,331,137,319,156,321,57,275,109,33,108,41,108,183,108,163,142,163,108,183,142,163,158,183,158,183,142,163,170,161,158,183,170,161,201,180,201,180,170,161,194,154,201,180,194,154,214,141,57,275,108,41,108,274,57,275,108,274,110,293,57,275,110,293,115,307,57,275,115,307,123,315,57,275,123,315,56,295,57,56,56,37,115,22,115,22,56,37,170,0,115,22,170,0,123,20,123,20,170,0,134,19,166,21,134,19,170,0,166,21,170,0,193,27,193,27,170,0,210,4,193,27,210,4,213,39,213,39,210,4,243,15,213,39,243,15,227,59,227,59,243,15,232,89,237,170,232,89,243,15,237,170,243,15,265,153,265,153,243,15,268,34,265,153,268,34,283,126,283,126,268,34,284,59,283,126,284,59,289,91,237,170,201,180,214,141,237,170,214,141,227,120,237,170,227,120,232,89,57,56,115,22,111,26,57,56,111,26,109,33,57,56,109,33,57,275,170,0,9,9,9,0,52,24,170,0,56,37,30,320,9,331,9,321,
+26,338,23,224,36,224,39,239,42,252,46,263,51,272,57,280,71,293,85,304,101,311,118,316,136,318,173,312,203,293,226,265,241,228,248,184,103,184,103,161,248,161,248,142,246,124,242,108,237,92,231,78,218,57,201,39,181,26,158,18,131,15,107,17,86,23,65,32,45,46,25,65,15,55,33,33,55,16,80,3,109,-4,141,-6,168,-4,194,0,218,9,240,22,258,37,275,57,288,79,298,104,304,131,306,160,305,188,299,215,290,240,278,263,263,284,244,304,222,319,198,330,173,336,147,338,136,338,124,337,113,336,101,333,90,330,83,328,75,326,61,322,55,321,50,322,45,324,41,328,38,332,36,338,105,180,105,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,110,25,106,38,105,56,105,157,149,157,157,102,177,57,207,22,245,0,291,-6,337,1,376,24,405,60,425,108,431,166,425,222,406,269,377,306,338,330,291,338,245,331,207,310,178,276,158,232,149,180,16383,16383,377,169,376,134,373,103,367,76,359,53,347,35,337,26,327,19,315,15,303,12,291,11,279,12,268,15,257,19,247,25,237,33,224,52,214,75,208,102,204,132,203,166,204,194,207,222,211,247,
+36,338,36,338,38,332,38,332,36,338,39,239,38,332,39,239,41,328,41,328,39,239,42,252,41,328,42,252,45,324,45,324,42,252,46,263,45,324,46,263,50,322,50,322,46,263,51,272,50,322,51,272,55,321,55,321,51,272,57,280,55,321,57,280,61,322,36,224,39,239,36,338,36,224,36,338,26,338,36,224,26,338,23,224,75,326,68,324,71,293,71,293,68,324,61,322,71,293,61,322,57,280,90,330,83,328,85,304,90,330,85,304,101,311,90,330,101,311,101,333,75,326,71,293,85,304,75,326,85,304,83,328,248,142,246,124,258,37,258,37,246,124,242,108,258,37,242,108,240,22,240,22,242,108,237,92,240,22,237,92,231,78,231,78,218,57,218,9,218,9,218,57,201,39,218,9,201,39,194,0,194,0,201,39,181,26,194,0,181,26,168,-4,168,-4,181,26,158,18,168,-4,158,18,141,-6,141,-6,158,18,131,15,131,15,107,17,109,-4,109,-4,107,17,86,23,109,-4,86,23,80,3,80,3,86,23,65,32,80,3,65,32,55,16,55,16,65,32,45,46,55,16,45,46,33,33,33,33,45,46,25,65,33,33,25,65,15,55,136,318,136,338,124,337,136,318,124,337,118,316,136,318,147,338,136,338,118,316,124,337,113,336,118,316,113,336,101,333,118,316,101,333,101,311,306,160,305,188,304,131,304,131,305,188,299,215,304,131,299,215,298,104,298,104,299,215,290,240,298,104,290,240,288,79,288,79,290,240,278,263,288,79,278,263,275,57,275,57,278,263,263,284,275,57,263,284,258,37,258,37,263,284,248,161,258,37,248,161,248,142,263,284,248,184,248,161,248,161,248,184,103,184,244,304,222,319,226,265,244,304,226,265,241,228,244,304,241,228,248,184,244,304,248,184,263,284,203,293,226,265,222,319,203,293,222,319,198,330,203,293,198,330,173,336,203,293,173,336,173,312,173,312,173,336,147,338,173,312,147,338,136,318,231,78,218,9,240,22,141,-6,131,15,109,-4,248,161,103,184,103,161,
+105,180,105,274,106,294,110,307,118,315,130,319,149,321,149,331,9,331,9,321,29,319,42,315,50,307,53,294,54,274,54,61,53,39,50,25,42,16,29,12,9,9,9,0,149,0,149,9,130,12,118,17,110,25,106,38,105,56,105,157,149,157,157,102,177,57,207,22,245,0,291,-6,337,1,376,24,405,60,425,108,431,166,425,222,406,269,377,306,338,330,291,338,245,331,207,310,178,276,158,232,149,180,16383,16383,377,169,376,134,373,103,367,76,359,53,347,35,337,26,327,19,315,15,303,12,291,11,279,12,268,15,257,19,247,25,237,33,224,52,214,75,208,102,204,132,203,166,204,194,207,222,211,247,219,269,228,286,239,299,251,308,263,315,276,318,290,320,302,319,313,316,324,311,334,305,343,296,356,279,366,257,372,231,376,201,377,169,309,0,309,9,290,12,277,16,270,25,267,39,267,276,268,294,271,307,278,315,290,319,309,321,309,331,180,331,136,329,98,321,69,306,49,282,42,246,47,216,60,193,81,176,108,164,141,157,49,35,41,26,31,19,22,14,12,11,2,9,2,0,83,0,198,155,216,155,216,56,215,37,211,24,203,16,189,12,169,9,169,0,16383,16383,216,174,186,174,156,177,131,186,113,200,101,219,97,244,99,261,103,276,111,288,121,298,133,305,143,308,153,310,164,311,177,312,190,312,200,311,207,309,212,304,215,296,216,286,223,33,218,29,210,25,206,24,201,23,196,25,192,28,189,35,187,44,186,56,186,152,185,168,184,181,181,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,
+50,25,42,16,149,0,149,0,42,16,29,12,149,0,29,12,9,9,149,331,9,331,29,319,149,331,29,319,42,315,149,331,42,315,50,307,149,331,50,307,53,294,149,331,53,294,118,315,149,331,118,315,130,319,149,331,130,319,149,321,158,232,149,180,149,157,149,157,149,180,105,180,149,157,105,180,105,157,106,38,105,56,54,274,106,38,54,274,54,61,54,274,105,56,105,274,54,274,105,274,106,294,54,274,106,294,110,307,54,274,110,307,118,315,54,274,118,315,53,294,149,0,149,9,130,12,149,0,130,12,118,17,149,0,118,17,53,39,149,0,53,39,50,25,54,61,53,39,118,17,54,61,118,17,110,25,54,61,110,25,106,38,263,315,291,338,251,308,251,308,291,338,245,331,251,308,245,331,239,299,239,299,245,331,228,286,219,269,228,286,245,331,219,269,245,331,207,310,208,102,207,22,214,75,214,75,207,22,245,0,214,75,245,0,224,52,224,52,245,0,237,33,247,25,237,33,245,0,247,25,245,0,291,-6,338,330,291,338,302,319,302,319,291,338,290,320,276,318,290,320,291,338,276,318,291,338,263,315,207,310,178,276,203,166,207,310,203,166,204,194,207,310,204,194,207,222,207,310,207,222,211,247,207,310,211,247,219,269,208,102,204,132,207,22,207,22,204,132,203,166,268,15,291,-6,279,12,279,12,291,-6,291,11,303,12,291,11,291,-6,303,12,291,-6,337,1,313,316,324,311,338,330,338,330,324,311,334,305,338,330,334,305,343,296,343,296,356,279,377,306,377,306,356,279,366,257,377,306,366,257,372,231,373,103,367,76,376,24,376,24,367,76,359,53,376,24,359,53,347,35,347,35,337,26,376,24,376,24,337,26,337,1,431,166,425,222,425,108,425,108,425,222,406,269,425,108,406,269,405,60,405,60,406,269,377,169,377,306,372,231,376,201,377,306,376,201,377,169,377,306,377,169,406,269,377,306,338,330,343,296,376,134,373,103,376,24,376,134,376,24,405,60,376,134,405,60,377,169,337,1,337,26,327,19,337,1,327,19,315,15,337,1,315,15,303,12,257,19,247,25,291,-6,257,19,291,-6,268,15,149,157,157,102,158,232,158,232,157,102,177,57,158,232,177,57,178,276,178,276,177,57,207,22,178,276,207,22,203,166,338,330,302,319,313,316,149,0,9,9,9,0,29,319,9,331,9,321,
+309,0,309,9,290,12,277,16,270,25,267,39,267,276,268,294,271,307,278,315,290,319,309,321,309,331,180,331,136,329,98,321,69,306,49,282,42,246,47,216,60,193,81,176,108,164,141,157,49,35,41,26,31,19,22,14,12,11,2,9,2,0,83,0,198,155,216,155,216,56,215,37,211,24,203,16,189,12,169,9,169,0,16383,16383,216,174,186,174,156,177,131,186,113,200,101,219,97,244,99,261,103,276,111,288,121,298,133,305,143,308,153,310,164,311,177,312,190,312,200,311,207,309,212,304,215,296,216,286,223,33,218,29,210,25,206,24,201,23,196,25,192,28,189,35,187,44,186,56,186,152,185,168,184,181,181,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,207,83,212,93,215,104,217,117,215,129,210,138,202,144,190,146,173,146,146,116,135,93,126,76,118,63,112,54,105,42,97,33,87,
+31,19,22,14,83,0,83,0,22,14,12,11,83,0,12,11,2,9,99,261,103,276,98,321,98,321,103,276,111,288,98,321,111,288,136,329,136,329,111,288,121,298,136,329,121,298,133,305,133,305,143,308,136,329,136,329,143,308,180,331,101,219,97,244,108,164,108,164,97,244,81,176,81,176,97,244,98,321,98,321,97,244,99,261,42,246,47,216,49,282,49,282,47,216,60,193,49,282,60,193,69,306,69,306,60,193,81,176,69,306,81,176,98,321,141,157,83,0,198,155,141,157,198,155,156,177,141,157,156,177,131,186,141,157,131,186,113,200,141,157,113,200,108,164,211,24,203,16,309,0,309,0,203,16,189,12,309,0,189,12,169,9,153,310,164,311,180,331,180,331,164,311,177,312,180,331,177,312,190,312,190,312,200,311,309,331,309,331,200,311,207,309,309,331,207,309,212,304,211,24,309,0,215,37,215,37,309,0,277,16,215,37,277,16,216,56,216,56,277,16,270,25,216,56,270,25,216,155,216,155,270,25,216,174,216,155,216,174,198,155,198,155,216,174,186,174,198,155,186,174,156,177,83,0,141,157,49,35,83,0,49,35,41,26,83,0,41,26,31,19,290,319,309,321,309,331,290,319,309,331,278,315,278,315,309,331,216,286,278,315,216,286,271,307,271,307,216,286,268,294,216,286,267,39,267,61,267,276,268,294,216,286,267,276,216,286,267,61,309,331,212,304,215,296,309,331,215,296,216,286,309,331,180,331,190,312,290,12,277,16,309,0,290,12,309,0,309,9,216,174,270,25,267,39,216,174,267,39,216,286,309,0,169,9,169,0,83,0,2,9,2,0,180,331,143,308,153,310,101,219,108,164,113,200,
+223,33,218,29,210,25,206,24,201,23,196,25,192,28,189,35,187,44,186,56,186,152,185,168,184,181,181,191,176,199,170,208,162,215,152,222,140,226,127,229,111,230,98,229,85,227,73,224,63,220,54,215,44,208,37,200,32,192,29,183,28,175,29,167,33,161,37,156,43,153,50,152,57,153,63,156,68,161,71,167,73,172,72,178,72,182,71,185,70,189,70,194,71,201,76,207,83,212,93,215,104,217,117,215,129,210,138,202,144,190,146,173,146,146,116,135,93,126,76,118,63,112,54,105,42,97,33,87,25,75,20,62,18,47,21,29,28,14,39,4,54,-2,71,-4,84,-3,99,0,114,6,130,16,146,31,149,17,153,7,160,0,168,-3,178,-4,188,-3,197,-1,206,2,214,9,223,19,16383,16383,146,65,145,57,144,50,140,44,135,38,128,32,122,29,110,25,103,24,97,24,86,25,76,30,69,38,64,48,63,63,63,71,65,78,68,84,73,91,79,97,88,104,99,111,112,118,128,125,146,132,42,174,47,203,59,230,77,253,100,270,129,278,142,279,169,279,182,280,194,283,210,293,220,306,226,320,229,333,230,343,220,343,217,332,212,325,205,320,195,318,183,317,150,317,94,304,57,269,34,223,23,172,20,127,24,87,36,52,57,22,87,2,127,-4,164,1,195,17,219,43,234,76,239,116,233,154,218,186,195,210,166,225,131,230,111,228,92,223,74,213,57,196,43,173,16383,16383,194,102,192,70,184,44,172,25,155,13,135,9,125,10,115,13,106,18,98,25,91,34,81,51,74,70,69,91,66,113,65,137,67,164,75,186,87,202,102,212,122,216,134,215,144,211,153,206,161,199,169,191,178,177,185,161,190,142,193,122,194,102,153,118,169,121,183,128,194,137,202,151,205,168,201,188,191,204,174,215,149,222,118,225,12,225,12,218,26,216,35,214,40,209,42,200,43,187,43,39,42,25,40,16,35,11,26,8,12,7,12,0,149,0,161,2,171,4,181,8,190,12,200,19,208,28,214,39,218,51,
+37,156,43,153,44,208,44,208,43,153,50,152,44,208,50,152,54,215,54,215,50,152,57,153,54,215,57,153,63,220,63,220,57,153,63,156,63,220,63,156,73,224,73,224,63,156,70,194,71,167,70,194,68,161,111,230,104,217,117,215,111,230,117,215,127,229,127,229,117,215,129,210,127,229,129,210,140,226,140,226,129,210,138,202,140,226,138,202,144,190,76,207,83,212,85,227,85,227,83,212,93,215,85,227,93,215,98,229,98,229,93,215,104,217,98,229,104,217,111,230,73,224,70,194,71,201,73,224,71,201,76,207,73,224,76,207,85,227,70,194,63,156,68,161,29,183,29,167,32,192,32,192,29,167,33,161,32,192,33,161,37,200,37,200,33,161,37,156,37,200,37,156,44,208,186,56,186,152,185,168,186,56,185,168,184,181,186,56,184,181,181,191,186,56,181,191,188,-3,192,28,197,-1,196,25,196,25,197,-1,201,23,206,24,201,23,206,2,206,24,206,2,214,9,189,35,187,44,188,-3,189,35,188,-3,197,-1,189,35,197,-1,192,28,178,-4,188,-3,181,191,178,-4,181,191,176,199,178,-4,176,199,170,208,178,-4,170,208,168,-3,162,215,152,222,153,7,162,215,153,7,160,0,162,215,160,0,168,-3,162,215,168,-3,170,208,152,222,140,226,144,190,152,222,144,190,146,173,152,222,146,173,146,132,152,222,146,132,146,31,152,222,146,31,149,17,152,222,149,17,153,7,146,146,146,132,146,173,218,29,214,27,214,9,218,29,214,9,223,19,218,29,223,19,223,33,210,25,206,24,214,9,210,25,214,9,214,27,201,23,197,-1,206,2,146,31,146,132,146,65,146,31,146,65,145,57,146,31,145,57,144,50,146,31,144,50,140,44,146,31,140,44,135,38,146,31,135,38,130,16,130,16,135,38,128,32,128,32,122,29,130,16,130,16,122,29,116,27,130,16,116,27,114,6,114,6,116,27,110,25,114,6,110,25,103,24,99,111,112,118,116,135,116,135,112,118,128,125,116,135,128,125,146,146,146,146,128,125,146,132,65,78,68,84,76,118,76,118,68,84,73,91,76,118,73,91,79,97,79,97,88,104,93,126,93,126,88,104,99,111,93,126,99,111,116,135,93,126,76,118,79,97,72,182,71,185,71,167,72,182,71,167,73,172,72,182,73,172,72,178,70,189,70,194,71,167,70,189,71,167,71,185,63,112,54,105,54,-2,63,112,54,-2,63,63,63,112,63,63,63,71,63,112,63,71,65,78,63,112,65,78,76,118,63,63,54,-2,64,48,64,48,54,-2,71,-4,64,48,71,-4,69,38,69,38,71,-4,76,30,20,62,21,29,25,75,25,75,21,29,28,14,25,75,28,14,33,87,33,87,28,14,39,4,33,87,39,4,42,97,42,97,39,4,54,-2,42,97,54,-2,54,105,84,-3,99,0,86,25,86,25,99,0,97,24,103,24,97,24,99,0,103,24,99,0,114,6,76,30,71,-4,84,-3,76,30,84,-3,86,25,21,29,20,62,18,47,186,56,188,-3,187,44,29,167,29,183,28,175,
+42,174,47,203,59,230,77,253,100,270,129,278,142,279,169,279,182,280,194,283,210,293,220,306,226,320,229,333,230,343,220,343,217,332,212,325,205,320,195,318,183,317,150,317,94,304,57,269,34,223,23,172,20,127,24,87,36,52,57,22,87,2,127,-4,164,1,195,17,219,43,234,76,239,116,233,154,218,186,195,210,166,225,131,230,111,228,92,223,74,213,57,196,43,173,16383,16383,194,102,192,70,184,44,172,25,155,13,135,9,125,10,115,13,106,18,98,25,91,34,81,51,74,70,69,91,66,113,65,137,67,164,75,186,87,202,102,212,122,216,134,215,144,211,153,206,161,199,169,191,178,177,185,161,190,142,193,122,194,102,153,118,169,121,183,128,194,137,202,151,205,168,201,188,191,204,174,215,149,222,118,225,12,225,12,218,26,216,35,214,40,209,42,200,43,187,43,39,42,25,40,16,35,11,26,8,12,7,12,0,149,0,161,2,171,4,181,8,190,12,200,19,208,28,214,39,218,51,219,63,215,82,206,96,191,107,174,114,153,118,16383,16383,85,195,86,202,88,207,92,209,97,211,103,211,127,209,145,203,156,194,162,182,164,166,161,151,154,139,143,130,128,125,110,123,99,124,92,125,87,128,85,132,85,139,16383,16383,85,97,85,102,87,105,91,108,98,109,127,109,144,105,159,98,170,84,174,62,174,63,170,42,160,28,146,19,127,15,106,14,
+169,279,183,317,156,279,156,279,183,317,150,317,156,279,150,317,142,279,142,279,150,317,129,278,100,270,129,278,150,317,100,270,150,317,94,304,229,333,230,343,226,320,226,320,230,343,220,343,226,320,220,343,220,306,220,306,220,343,217,332,220,306,217,332,212,325,210,293,220,306,212,325,210,293,212,325,205,320,210,293,205,320,195,318,210,293,195,318,194,283,169,279,182,280,183,317,183,317,182,280,194,283,183,317,194,283,195,318,42,174,47,203,57,269,57,269,47,203,59,230,57,269,59,230,94,304,94,304,59,230,77,253,94,304,77,253,100,270,42,174,57,269,34,223,42,174,34,223,36,52,42,174,36,52,57,22,42,174,57,22,43,173,24,87,36,52,34,223,24,87,34,223,23,172,24,87,23,172,20,127,74,70,87,2,81,51,81,51,87,2,91,34,98,25,91,34,87,2,98,25,87,2,127,-4,65,137,57,196,66,113,66,113,57,196,57,22,66,113,57,22,69,91,69,91,57,22,87,2,69,91,87,2,74,70,131,230,122,216,134,215,131,230,134,215,166,225,166,225,134,215,144,211,166,225,144,211,153,206,75,186,87,202,92,223,92,223,87,202,102,212,92,223,102,212,111,228,111,228,102,212,122,216,111,228,122,216,131,230,74,213,57,196,67,164,74,213,67,164,75,186,74,213,75,186,92,223,67,164,57,196,65,137,192,70,184,44,195,17,195,17,184,44,172,25,195,17,172,25,164,1,164,1,172,25,155,13,164,1,155,13,135,9,135,9,125,10,127,-4,127,-4,125,10,115,13,127,-4,115,13,106,18,185,161,195,210,178,177,178,177,195,210,169,191,161,199,169,191,166,225,161,199,166,225,153,206,195,210,194,102,195,17,195,210,195,17,218,186,218,186,195,17,219,43,218,186,219,43,233,154,233,154,219,43,234,76,233,154,234,76,239,116,195,210,185,161,190,142,195,210,190,142,193,122,195,210,193,122,194,102,195,210,166,225,169,191,135,9,127,-4,164,1,192,70,195,17,194,102,98,25,127,-4,106,18,43,173,57,22,57,196,
+153,118,169,121,183,128,194,137,202,151,205,168,201,188,191,204,174,215,149,222,118,225,12,225,12,218,26,216,35,214,40,209,42,200,43,187,43,39,42,25,40,16,35,11,26,8,12,7,12,0,149,0,161,2,171,4,181,8,190,12,200,19,208,28,214,39,218,51,219,63,215,82,206,96,191,107,174,114,153,118,16383,16383,85,195,86,202,88,207,92,209,97,211,103,211,127,209,145,203,156,194,162,182,164,166,161,151,154,139,143,130,128,125,110,123,99,124,92,125,87,128,85,132,85,139,16383,16383,85,97,85,102,87,105,91,108,98,109,127,109,144,105,159,98,170,84,174,62,174,63,170,42,160,28,146,19,127,15,106,14,98,15,92,17,88,20,85,26,85,34,194,155,191,225,8,225,8,218,22,217,31,215,36,211,39,204,40,194,40,40,39,25,36,16,30,11,21,9,8,7,8,0,113,0,113,7,100,9,91,13,85,18,82,26,81,36,81,194,82,200,83,205,86,208,91,209,98,210,130,208,154,201,170,190,180,175,185,155,219,225,21,225,21,218,34,216,44,212,51,206,55,197,56,183,56,99,55,66,51,40,42,22,28,11,7,7,7,-68,16,-68,26,-37,37,-17,47,-5,58,0,172,0,182,-5,191,-17,200,-37,210,-68,219,-68,219,7,206,9,197,11,192,16,189,25,189,198,192,207,198,213,206,216,219,218,16383,16383,147,41,146,30,143,23,139,18,133,15,126,14,58,14,64,28,68,43,71,59,73,75,73,190,74,199,
+40,16,35,11,137,0,137,0,35,11,26,8,137,0,26,8,12,7,86,202,88,207,43,187,43,187,88,207,92,209,43,187,92,209,118,225,118,225,92,209,97,211,118,225,97,211,103,211,103,211,127,209,118,225,118,225,127,209,149,222,159,98,170,84,174,114,174,114,170,84,174,62,174,114,174,62,174,63,174,63,174,62,181,8,181,8,174,62,171,4,171,4,174,62,170,42,171,4,170,42,161,2,161,2,170,42,160,28,161,2,160,28,149,0,149,0,160,28,146,19,149,0,146,19,137,0,137,0,146,19,127,15,137,0,127,15,106,14,106,14,98,15,137,0,137,0,98,15,92,17,137,0,92,17,42,25,42,25,92,17,43,39,127,109,110,123,109,109,98,109,109,109,99,124,98,109,99,124,92,125,85,139,85,102,85,132,85,132,85,102,87,105,85,132,87,105,87,128,87,128,87,105,91,108,87,128,91,108,92,125,92,125,91,108,98,109,110,123,99,124,109,109,161,151,169,121,164,166,164,166,169,121,174,215,174,215,169,121,183,128,174,215,183,128,191,204,191,204,183,128,194,137,191,204,194,137,201,188,201,188,194,137,202,151,201,188,202,151,205,168,127,209,145,203,149,222,149,222,145,203,156,194,149,222,156,194,174,215,174,215,156,194,162,182,174,215,162,182,164,166,159,98,153,118,144,105,144,105,153,118,154,139,154,139,153,118,169,121,154,139,169,121,161,151,110,123,127,109,128,125,128,125,127,109,144,105,128,125,144,105,143,130,143,130,144,105,154,139,215,82,206,96,208,28,215,82,208,28,214,39,215,82,214,39,218,51,215,82,218,51,219,63,181,8,190,12,191,107,191,107,190,12,200,19,191,107,200,19,206,96,206,96,200,19,208,28,191,107,174,114,174,63,191,107,174,63,181,8,85,26,85,34,43,187,85,26,43,187,43,39,85,26,43,39,88,20,85,195,86,202,43,187,85,195,43,187,85,34,35,214,40,209,118,225,118,225,40,209,42,200,118,225,42,200,43,187,26,216,35,214,118,225,26,216,118,225,12,225,26,216,12,225,12,218,137,0,12,7,12,0,40,16,137,0,42,25,43,39,92,17,88,20,153,118,159,98,174,114,85,102,85,139,85,97,
+194,155,191,225,8,225,8,218,22,217,31,215,36,211,39,204,40,194,40,40,39,25,36,16,30,11,21,9,8,7,8,0,113,0,113,7,100,9,91,13,85,18,82,26,81,36,81,194,82,200,83,205,86,208,91,209,98,210,130,208,154,201,170,190,180,175,185,155,219,225,21,225,21,218,34,216,44,212,51,206,55,197,56,183,56,99,55,66,51,40,42,22,28,11,7,7,7,-68,16,-68,26,-37,37,-17,47,-5,58,0,172,0,182,-5,191,-17,200,-37,210,-68,219,-68,219,7,206,9,197,11,192,16,189,25,189,198,192,207,198,213,
+36,211,39,204,191,225,191,225,39,204,91,209,191,225,91,209,98,210,98,210,130,208,191,225,191,225,130,208,154,201,191,225,154,201,170,190,191,225,170,190,180,175,191,225,180,175,185,155,191,225,185,155,194,155,81,36,81,194,40,194,40,194,81,194,82,200,40,194,82,200,83,205,40,194,83,205,86,208,40,194,86,208,91,209,40,194,91,209,39,204,40,194,82,26,81,36,191,225,8,225,22,217,191,225,22,217,31,215,191,225,31,215,36,211,113,0,113,7,100,9,113,0,100,9,91,13,113,0,91,13,40,40,113,0,40,40,39,25,113,0,39,25,36,16,113,0,36,16,30,11,113,0,30,11,21,9,113,0,21,9,8,7,113,0,8,7,8,0,40,40,91,13,85,18,40,40,85,18,82,26,40,40,82,26,40,194,22,217,8,225,8,218,
+219,225,21,225,21,218,34,216,44,212,51,206,55,197,56,183,56,99,55,66,51,40,42,22,28,11,7,7,7,-68,16,-68,26,-37,37,-17,47,-5,58,0,172,0,182,-5,191,-17,200,-37,210,-68,219,-68,219,7,206,9,197,11,192,16,189,25,189,198,192,207,198,213,206,216,219,218,16383,16383,147,41,146,30,143,23,139,18,133,15,126,14,58,14,64,28,68,43,71,59,73,75,73,190,74,199,76,205,80,209,85,210,92,211,135,211,141,209,145,205,146,199,147,190,210,82,196,63,182,48,167,39,150,33,132,31,102,37,80,53,66,77,58,106,55,137,209,137,208,152,205,165,202,176,197,186,192,195,181,207,169,217,156,224,140,228,123,230,88,224,59,207,37,182,24,148,19,108,23,70,35,39,55,15,81,0,114,-4,142,-1,167,9,188,26,205,49,219,79,16383,16383,56,151,61,172,69,190,80,203,93,211,109,214,126,211,139,203,148,191,154,173,158,151,353,0,353,7,347,8,341,10,331,14,327,17,323,21,317,28,311,37,304,47,
+34,216,44,212,219,225,219,225,44,212,85,210,219,225,85,210,92,211,219,225,92,211,127,211,219,225,127,211,135,211,126,14,58,14,68,0,126,14,68,0,161,0,126,14,161,0,133,15,147,190,161,0,189,198,189,198,161,0,172,0,189,198,172,0,189,183,189,183,172,0,182,-5,189,183,182,-5,189,41,189,41,182,-5,191,-17,189,41,191,-17,189,25,161,0,147,190,147,41,161,0,147,41,146,30,161,0,146,30,143,23,161,0,143,23,139,18,161,0,139,18,133,15,219,225,135,211,141,209,219,225,141,209,145,205,219,225,145,205,146,199,219,225,146,199,147,190,219,225,147,190,198,213,219,225,198,213,206,216,219,225,206,216,219,218,192,207,198,213,147,190,192,207,147,190,189,198,73,190,74,199,58,14,73,190,58,14,64,28,73,190,64,28,68,43,73,190,68,43,71,59,73,190,71,59,73,75,73,190,73,75,73,89,58,0,68,0,58,14,58,0,58,14,56,183,58,0,56,183,56,99,58,0,56,99,55,66,58,0,55,66,51,40,58,0,51,40,47,-5,58,14,74,199,56,183,56,183,74,199,76,205,56,183,76,205,55,197,55,197,76,205,80,209,55,197,80,209,51,206,51,206,80,209,85,210,51,206,85,210,44,212,21,225,21,218,34,216,21,225,34,216,219,225,219,-68,219,7,210,-68,210,-68,219,7,206,9,210,-68,206,9,200,-37,200,-37,206,9,197,11,200,-37,197,11,192,16,192,16,189,25,191,-17,192,16,191,-17,200,-37,16,-68,26,-37,28,11,28,11,26,-37,37,-17,28,11,37,-17,42,22,42,22,37,-17,47,-5,42,22,47,-5,51,40,7,7,7,-68,16,-68,7,7,16,-68,28,11,
+210,82,196,63,182,48,167,39,150,33,132,31,102,37,80,53,66,77,58,106,55,137,209,137,208,152,205,165,202,176,197,186,192,195,181,207,169,217,156,224,140,228,123,230,88,224,59,207,37,182,24,148,19,108,23,70,35,39,55,15,81,0,114,-4,142,-1,167,9,188,26,205,49,219,79,16383,16383,56,151,61,172,69,190,80,203,93,211,109,214,126,211,139,203,148,191,154,173,158,151,353,0,353,7,347,8,341,10,331,14,327,17,323,21,317,28,311,37,304,47,298,58,286,79,275,94,264,105,253,113,240,120,240,121,258,137,269,156,278,172,286,185,297,190,301,189,306,187,318,183,324,182,332,183,338,186,343,191,346,197,347,204,346,211,342,218,336,223,327,227,316,228,306,227,297,224,289,218,282,211,275,201,267,187,259,171,251,156,242,143,233,135,228,132,222,130,215,128,
+80,53,66,77,81,0,81,0,66,77,58,106,81,0,58,106,55,15,55,15,58,106,55,137,56,151,55,137,209,137,56,151,209,137,158,151,158,151,209,137,169,217,140,228,123,230,126,211,126,211,123,230,109,214,93,211,109,214,123,230,93,211,123,230,88,224,156,224,140,228,148,191,156,224,148,191,154,173,156,224,154,173,158,151,156,224,158,151,169,217,140,228,126,211,139,203,140,228,139,203,148,191,56,151,61,172,59,207,59,207,61,172,69,190,59,207,69,190,88,224,88,224,69,190,80,203,88,224,80,203,93,211,37,182,24,148,35,39,37,182,35,39,55,15,37,182,55,15,55,137,37,182,55,137,56,151,37,182,56,151,59,207,24,148,19,108,23,70,24,148,23,70,35,39,81,0,114,-4,102,37,102,37,114,-4,132,31,150,33,132,31,142,-1,150,33,142,-1,167,9,209,137,208,152,205,165,209,137,205,165,202,176,209,137,202,176,197,186,209,137,197,186,192,195,209,137,192,195,181,207,209,137,181,207,169,217,219,79,210,82,205,49,205,49,210,82,196,63,205,49,196,63,188,26,188,26,196,63,182,48,188,26,182,48,167,9,167,9,182,48,167,39,167,9,167,39,150,33,132,31,114,-4,142,-1,80,53,81,0,102,37,
+353,0,353,7,347,8,341,10,331,14,327,17,323,21,317,28,311,37,304,47,298,58,286,79,275,94,264,105,253,113,240,120,240,121,258,137,269,156,278,172,286,185,297,190,301,189,306,187,318,183,324,182,332,183,338,186,343,191,346,197,347,204,346,211,342,218,336,223,327,227,316,228,306,227,297,224,289,218,282,211,275,201,267,187,259,171,251,156,242,143,233,135,228,132,222,130,215,128,208,127,200,127,200,190,201,199,204,207,210,212,219,216,232,218,232,225,128,225,128,218,140,216,149,214,154,209,158,201,158,127,151,127,144,128,138,129,132,132,127,135,117,145,108,157,101,170,88,196,82,207,75,216,67,223,56,227,44,228,34,227,26,224,20,219,15,212,14,204,15,197,18,191,23,186,29,183,36,182,43,183,50,185,60,189,65,190,74,185,80,172,87,155,100,137,121,121,121,120,107,114,95,107,85,95,74,79,62,57,63,57,56,46,50,36,44,28,38,21,33,17,29,14,25,12,19,10,14,8,7,7,7,0,73,0,124,83,133,96,139,104,145,109,151,112,158,113,158,25,155,18,151,13,145,10,137,8,126,7,126,0,234,0,234,7,214,9,207,12,203,17,201,24,200,33,200,113,209,111,216,108,222,104,228,95,237,82,287,0,114,121,130,126,146,134,158,146,167,160,170,177,168,188,164,198,158,207,149,215,139,221,121,227,111,229,99,230,80,230,75,229,69,228,64,226,57,224,49,222,46,220,42,219,35,219,29,223,27,226,26,230,20,230,16,150,25,150,30,172,38,190,50,204,65,213,85,216,98,214,110,209,119,200,125,188,127,172,126,163,123,155,118,147,112,140,104,135,97,132,89,129,81,128,72,127,60,127,60,113,86,111,106,106,120,96,129,82,132,62,130,47,124,34,114,23,99,15,79,13,65,14,52,18,40,24,28,33,14,46,7,39,19,23,32,11,46,2,64,-2,85,-4,113,-2,125,1,137,5,147,12,157,20,166,29,173,40,177,52,179,65,175,84,165,99,151,110,133,117,114,121,251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,84,60,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,178,165,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,229,12,224,17,221,26,220,40,220,183,221,198,223,207,229,213,238,216,251,218,201,319,199,330,195,340,
+25,12,19,10,73,0,73,0,19,10,14,8,73,0,14,8,7,7,50,36,44,28,73,0,73,0,44,28,38,21,73,0,38,21,33,17,33,17,29,14,73,0,73,0,29,14,25,12,95,107,85,95,124,83,124,83,85,95,74,79,124,83,74,79,73,0,73,0,74,79,62,57,73,0,62,57,56,46,56,46,62,57,63,57,67,223,65,190,74,185,67,223,74,185,75,216,75,216,74,185,80,172,75,216,80,172,82,207,82,207,80,172,87,155,82,207,87,155,88,196,88,196,87,155,100,137,88,196,100,137,94,184,94,184,100,137,101,170,50,185,55,187,56,227,56,227,55,187,60,189,56,227,60,189,67,223,67,223,60,189,65,190,44,228,34,227,36,182,44,228,36,182,43,183,44,228,43,183,50,185,44,228,50,185,56,227,14,204,15,197,15,212,15,212,15,197,18,191,15,212,18,191,20,219,20,219,18,191,23,186,20,219,23,186,26,224,26,224,23,186,29,183,26,224,29,183,34,227,34,227,29,183,36,182,127,135,121,121,124,83,127,135,124,83,133,96,127,135,117,145,121,121,121,121,117,145,108,157,121,121,108,157,101,170,121,121,101,170,100,137,155,18,151,13,234,0,234,0,151,13,145,10,234,0,145,10,137,8,137,8,126,7,234,0,234,0,126,7,126,0,234,0,234,7,224,8,234,0,224,8,214,9,234,0,214,9,207,12,234,0,207,12,158,33,234,0,158,33,158,25,234,0,158,25,155,18,201,24,200,33,158,113,201,24,158,113,203,17,203,17,158,113,158,33,158,113,200,33,200,127,158,113,200,127,200,190,158,113,200,190,201,199,158,113,201,199,204,207,158,113,204,207,158,189,158,113,158,189,158,127,215,128,208,127,209,111,209,111,208,127,200,127,232,225,128,225,140,216,232,225,140,216,149,214,232,225,149,214,154,209,232,225,154,209,158,201,232,225,158,201,158,189,232,225,158,189,210,212,232,225,210,212,219,216,232,225,219,216,232,218,264,105,253,113,287,0,287,0,253,113,240,120,287,0,240,120,237,82,237,82,240,120,240,121,237,82,240,121,233,135,237,82,233,135,228,95,228,95,233,135,228,132,228,95,228,132,222,104,222,104,228,132,222,130,222,104,222,130,216,108,216,108,222,130,215,128,216,108,215,128,209,111,317,28,311,37,287,0,287,0,311,37,304,47,287,0,304,47,298,58,297,224,297,190,301,189,297,224,301,189,306,227,306,227,301,189,306,187,306,227,306,187,316,228,316,228,306,187,312,185,316,228,312,185,318,183,297,190,289,218,286,185,286,185,289,218,282,211,286,185,282,211,278,172,278,172,282,211,275,201,278,172,275,201,269,156,269,156,275,201,267,187,269,156,267,187,259,171,258,137,269,156,259,171,258,137,259,171,251,156,258,137,251,156,242,143,258,137,242,143,240,121,242,143,233,135,240,121,318,183,324,182,327,227,327,227,324,182,332,183,327,227,332,183,336,223,336,223,332,183,338,186,336,223,338,186,342,218,342,218,338,186,343,191,342,218,343,191,346,211,346,211,343,191,346,197,346,211,346,197,347,204,317,28,287,0,323,21,323,21,287,0,327,17,331,14,327,17,287,0,331,14,287,0,353,0,353,0,353,7,347,8,353,0,347,8,341,10,353,0,341,10,336,12,353,0,336,12,331,14,287,0,298,58,286,79,287,0,286,79,275,94,287,0,275,94,264,105,145,109,151,112,151,127,151,127,151,112,158,113,151,127,158,113,158,127,132,132,127,135,133,96,132,132,133,96,138,129,138,129,133,96,139,104,138,129,139,104,144,128,144,128,139,104,145,109,144,128,145,109,151,127,124,83,121,121,121,120,124,83,121,120,107,114,124,83,107,114,95,107,73,0,7,7,7,0,50,36,73,0,56,46,316,228,318,183,327,227,297,190,297,224,289,218,200,127,200,113,209,111,140,216,128,225,128,218,210,212,158,189,204,207,158,33,207,12,203,17,
+114,121,130,126,146,134,158,146,167,160,170,177,168,188,164,198,158,207,149,215,139,221,121,227,111,229,99,230,80,230,75,229,69,228,64,226,57,224,49,222,46,220,42,219,35,219,29,223,27,226,26,230,20,230,16,150,25,150,30,172,38,190,50,204,65,213,85,216,98,214,110,209,119,200,125,188,127,172,126,163,123,155,118,147,112,140,104,135,97,132,89,129,81,128,72,127,60,127,60,113,86,111,106,106,120,96,129,82,132,62,130,47,124,34,114,23,99,15,79,13,65,14,52,18,40,24,28,33,14,46,7,39,19,23,32,11,46,2,64,-2,85,-4,113,-2,125,1,137,5,147,12,157,20,166,29,173,40,177,52,179,65,175,84,165,99,151,110,133,117,114,121,251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,84,60,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,178,165,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,229,12,224,17,221,26,220,40,220,183,221,198,223,207,229,213,238,216,251,218,201,319,199,330,195,340,188,347,180,351,171,352,167,352,161,348,159,344,158,339,160,332,166,329,172,327,178,324,180,319,179,313,174,307,166,303,152,300,133,299,115,300,102,303,93,307,88,313,87,319,89,324,95,327,101,329,107,332,
+26,230,20,230,25,150,26,230,25,150,30,172,26,230,30,172,27,226,49,222,46,220,50,204,50,204,46,220,42,219,50,204,42,219,39,219,39,219,35,219,38,190,38,190,35,219,32,221,38,190,32,221,30,172,30,172,32,221,29,223,30,172,29,223,27,226,64,-2,85,-4,65,14,65,14,85,-4,79,13,99,15,79,13,85,-4,99,15,85,-4,99,-3,85,216,80,230,75,229,85,216,75,229,69,228,85,216,69,228,65,213,85,216,86,230,80,230,65,213,69,228,64,226,65,213,64,226,57,224,65,213,57,224,53,223,65,213,53,223,50,204,39,219,38,190,50,204,81,128,86,111,89,129,89,129,86,111,106,106,89,129,106,106,97,132,97,132,106,106,104,135,112,140,104,135,106,106,112,140,106,106,114,121,114,121,106,106,120,96,114,121,120,96,133,117,133,117,120,96,129,82,133,117,129,82,132,62,86,230,98,214,99,230,99,230,98,214,110,209,99,230,110,209,111,229,111,229,110,209,119,200,111,229,119,200,121,227,121,227,119,200,125,188,121,227,125,188,130,224,130,224,125,188,127,172,130,126,127,172,126,163,126,163,123,155,130,126,130,126,123,155,118,147,130,126,118,147,114,121,114,121,118,147,112,140,170,177,168,188,167,160,167,160,168,188,164,198,167,160,164,198,158,146,158,146,164,198,158,207,158,146,158,207,149,215,146,134,158,146,149,215,146,134,149,215,139,221,146,134,139,221,130,224,146,134,130,224,130,126,85,216,98,214,86,230,133,117,132,62,137,5,133,117,137,5,151,110,151,110,137,5,147,12,151,110,147,12,157,20,175,84,165,99,166,29,175,84,166,29,173,40,175,84,173,40,177,52,175,84,177,52,179,65,165,99,151,110,157,20,165,99,157,20,166,29,130,47,124,34,125,1,130,47,125,1,137,5,130,47,137,5,132,62,114,23,99,15,99,-3,114,23,99,-3,113,-2,114,23,113,-2,125,1,114,23,125,1,124,34,72,127,60,127,86,111,72,127,86,111,81,128,14,46,19,23,28,33,28,33,19,23,32,11,28,33,32,11,40,24,40,24,32,11,46,2,40,24,46,2,52,18,52,18,46,2,64,-2,52,18,64,-2,65,14,19,23,14,46,7,39,86,111,60,127,60,113,130,224,127,172,130,126,49,222,50,204,53,223,25,150,20,230,16,150,
+251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,84,60,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,178,165,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,229,12,224,17,221,26,220,40,220,183,221,198,223,207,229,213,238,216,251,218,201,319,199,330,195,340,188,347,180,351,171,352,167,352,161,348,159,344,158,339,160,332,166,329,172,327,178,324,180,319,179,313,174,307,166,303,152,300,133,299,115,300,102,303,93,307,88,313,87,319,89,324,95,327,101,329,107,332,109,339,108,344,107,348,101,352,97,352,88,351,80,347,73,340,68,330,66,319,70,302,82,289,98,280,116,275,133,273,151,275,169,280,185,289,196,302,201,319,16383,16383,251,225,147,225,147,218,160,216,169,213,174,207,
+39,16,33,11,116,0,116,0,33,11,25,9,116,0,25,9,12,7,178,189,84,60,84,36,84,36,84,189,42,183,42,183,84,189,85,199,42,183,85,199,88,207,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,42,183,88,207,93,212,42,183,93,212,42,197,174,18,169,12,251,0,251,0,169,12,160,9,251,0,160,9,147,7,169,213,174,207,251,225,251,225,174,207,177,200,251,225,177,200,178,189,178,189,178,165,221,26,221,26,178,165,178,37,221,26,178,37,224,17,224,17,178,37,229,12,238,216,251,218,251,225,238,216,251,225,229,213,229,213,251,225,178,189,229,213,178,189,223,207,223,207,178,189,221,198,220,40,220,183,178,189,220,40,178,189,221,26,160,216,169,213,251,225,160,216,251,225,147,225,160,216,147,225,147,218,251,0,251,7,238,9,251,0,238,9,229,12,251,0,229,12,178,37,251,0,178,37,177,26,251,0,177,26,174,18,116,0,116,7,102,9,116,0,102,9,93,13,116,0,93,13,42,40,116,0,42,40,42,25,116,0,42,25,39,16,85,26,84,36,42,183,85,26,42,183,42,40,85,26,42,40,88,18,116,0,12,7,12,0,42,40,93,13,88,18,251,0,147,7,147,0,221,198,178,189,220,183,178,189,84,36,178,165,25,216,12,225,12,218,
+201,319,199,330,195,340,188,347,180,351,171,352,167,352,161,348,159,344,158,339,160,332,166,329,172,327,178,324,180,319,179,313,174,307,166,303,152,300,133,299,115,300,102,303,93,307,88,313,87,319,89,324,95,327,101,329,107,332,109,339,108,344,107,348,101,352,97,352,88,351,80,347,73,340,68,330,66,319,70,302,82,289,98,280,116,275,133,273,151,275,169,280,185,289,196,302,201,319,16383,16383,251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,84,60,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,178,165,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,229,12,224,17,221,26,220,40,220,183,221,198,223,207,229,213,238,216,251,218,248,0,248,7,241,8,235,10,225,14,221,17,217,21,211,28,205,37,198,47,192,58,180,79,168,94,156,105,144,113,131,120,131,121,148,137,160,156,168,172,176,185,188,190,192,189,202,185,208,183,214,182,222,183,228,186,233,191,237,197,238,204,236,211,233,218,226,223,218,227,207,228,196,227,185,223,176,216,168,207,161,196,140,154,132,143,124,135,118,132,112,130,105,128,98,127,91,127,91,190,92,199,95,207,100,212,109,216,122,218,122,225,18,225,18,218,31,216,39,214,45,209,48,201,49,189,49,25,46,18,42,13,36,10,26,8,12,7,12,0,128,0,128,7,117,8,107,9,99,12,94,17,92,24,91,33,91,113,99,111,106,108,112,103,118,95,127,82,181,0,238,225,45,225,45,218,57,216,66,212,71,206,74,197,75,183,75,99,74,77,73,53,69,33,62,18,50,12,46,15,42,22,38,30,32,36,23,39,18,38,13,36,
+102,303,93,307,98,280,98,280,93,307,88,313,98,280,88,313,82,289,82,289,88,313,87,319,88,351,87,319,89,324,88,351,89,324,97,352,97,352,89,324,95,327,97,352,95,327,101,329,101,352,101,329,104,350,104,350,101,329,107,332,104,350,107,332,107,348,107,348,107,332,109,339,107,348,109,339,108,344,82,289,87,319,88,351,82,289,88,351,80,347,82,289,80,347,73,340,82,289,73,340,70,302,68,330,66,319,70,302,68,330,70,302,73,340,102,303,116,275,115,300,115,300,116,275,133,299,152,300,133,299,133,273,152,300,133,273,151,275,196,302,201,319,199,330,196,302,199,330,195,340,196,302,195,340,188,347,196,302,188,347,185,289,185,289,188,347,180,319,185,289,180,319,179,313,185,289,179,313,174,307,185,289,174,307,169,280,180,351,171,352,172,327,180,351,172,327,178,324,180,351,178,324,180,319,180,351,180,319,188,347,167,352,164,350,166,329,167,352,166,329,172,327,167,352,172,327,171,352,161,348,159,344,160,332,161,348,160,332,166,329,161,348,166,329,164,350,169,280,174,307,166,303,169,280,166,303,152,300,169,280,152,300,151,275,133,299,116,275,133,273,39,16,33,11,116,0,116,0,33,11,25,9,116,0,25,9,12,7,178,189,84,60,84,36,84,36,84,189,42,183,42,183,84,189,85,199,42,183,85,199,88,207,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,42,183,88,207,93,212,42,183,93,212,42,197,174,18,169,12,251,0,251,0,169,12,160,9,251,0,160,9,147,7,169,213,174,207,251,225,251,225,174,207,177,200,251,225,177,200,178,189,178,189,178,165,221,26,221,26,178,165,178,37,221,26,178,37,224,17,224,17,178,37,229,12,238,216,251,218,251,225,238,216,251,225,229,213,229,213,251,225,178,189,229,213,178,189,223,207,223,207,178,189,221,198,220,40,220,183,178,189,220,40,178,189,221,26,160,216,169,213,251,225,160,216,251,225,147,225,160,216,147,225,147,218,251,0,251,7,238,9,251,0,238,9,229,12,251,0,229,12,178,37,251,0,178,37,177,26,251,0,177,26,174,18,116,0,116,7,102,9,116,0,102,9,93,13,116,0,93,13,42,40,116,0,42,40,42,25,116,0,42,25,39,16,85,26,84,36,42,183,85,26,42,183,42,40,85,26,42,40,88,18,116,0,12,7,12,0,42,40,93,13,88,18,251,0,147,7,147,0,221,198,178,189,220,183,178,189,84,36,178,165,25,216,12,225,12,218,160,332,159,344,158,339,102,303,98,280,116,275,97,352,101,329,101,352,
+248,0,248,7,241,8,235,10,225,14,221,17,217,21,211,28,205,37,198,47,192,58,180,79,168,94,156,105,144,113,131,120,131,121,148,137,160,156,168,172,176,185,188,190,192,189,202,185,208,183,214,182,222,183,228,186,233,191,237,197,238,204,236,211,233,218,226,223,218,227,207,228,196,227,185,223,176,216,168,207,161,196,140,154,132,143,124,135,118,132,112,130,105,128,98,127,91,127,91,190,92,199,95,207,100,212,109,216,122,218,122,225,18,225,18,218,31,216,39,214,45,209,48,201,49,189,49,25,46,18,42,13,36,10,26,8,12,7,12,0,128,0,128,7,117,8,107,9,99,12,94,17,92,24,91,33,91,113,99,111,106,108,112,103,118,95,127,82,181,0,238,225,45,225,45,218,57,216,66,212,71,206,74,197,75,183,75,99,74,77,73,53,69,33,62,18,50,12,46,15,42,22,38,30,32,36,23,39,18,38,13,36,8,33,5,27,4,20,6,10,10,3,18,-1,28,-3,39,-4,64,2,79,18,88,41,91,66,92,89,92,198,94,204,98,208,103,210,110,211,154,211,159,209,163,205,165,199,165,37,164,26,161,18,156,12,147,9,134,7,134,0,238,0,238,7,225,9,216,12,211,17,208,26,207,40,207,183,208,198,211,207,216,213,225,216,238,218,297,225,229,225,157,62,79,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,92,0,92,7,78,9,69,12,63,18,60,26,
+46,18,42,13,128,0,128,0,42,13,36,10,128,0,36,10,26,8,26,8,12,7,128,0,128,0,12,7,12,0,128,0,128,7,117,8,128,0,117,8,107,9,128,0,107,9,99,12,128,0,99,12,49,33,128,0,49,33,49,25,128,0,49,25,46,18,91,33,91,127,49,189,91,33,49,189,92,24,49,33,99,12,94,17,49,33,94,17,92,24,49,33,92,24,49,189,91,113,99,111,91,127,91,127,91,190,49,189,49,189,91,190,92,199,49,189,92,199,95,207,122,225,18,225,31,216,122,225,31,216,39,214,122,225,39,214,45,209,122,225,45,209,48,201,122,225,48,201,49,189,122,225,49,189,100,212,122,225,100,212,109,216,122,225,109,216,122,218,106,108,112,103,112,130,112,130,112,103,118,95,112,130,118,95,118,132,118,132,118,95,124,135,132,143,124,135,127,82,105,128,98,127,99,111,105,128,99,111,106,108,105,128,106,108,112,130,127,82,124,135,118,95,202,185,207,228,197,187,197,187,207,228,196,227,197,187,196,227,192,189,192,189,196,227,188,190,176,185,188,190,185,223,176,185,185,223,176,216,147,168,148,137,154,182,154,182,148,137,160,156,154,182,160,156,161,196,161,196,160,156,168,172,161,196,168,172,168,207,168,207,168,172,176,185,168,207,176,185,176,216,156,105,144,113,181,0,181,0,144,113,131,120,181,0,131,120,127,82,127,82,131,120,131,121,127,82,131,121,132,143,132,143,131,121,148,137,132,143,148,137,140,154,140,154,148,137,147,168,208,183,214,182,218,227,218,227,214,182,222,183,218,227,222,183,226,223,226,223,222,183,228,186,226,223,228,186,233,218,233,218,228,186,233,191,233,218,233,191,236,211,236,211,233,191,237,197,236,211,237,197,238,204,207,228,202,185,208,183,207,228,208,183,218,227,196,227,185,223,188,190,211,28,181,0,217,21,217,21,181,0,221,17,225,14,221,17,181,0,225,14,181,0,248,0,248,0,248,7,241,8,248,0,241,8,235,10,248,0,235,10,230,12,248,0,230,12,225,14,181,0,211,28,205,37,181,0,205,37,198,47,181,0,198,47,192,58,181,0,192,58,180,79,181,0,180,79,168,94,181,0,168,94,156,105,91,127,99,111,98,127,31,216,18,225,18,218,100,212,49,189,95,207,
+238,225,45,225,45,218,57,216,66,212,71,206,74,197,75,183,75,99,74,77,73,53,69,33,62,18,50,12,46,15,42,22,38,30,32,36,23,39,18,38,13,36,8,33,5,27,4,20,6,10,10,3,18,-1,28,-3,39,-4,64,2,79,18,88,41,91,66,92,89,92,198,94,204,98,208,103,210,110,211,154,211,159,209,163,205,165,199,165,37,164,26,161,18,156,12,147,9,134,7,134,0,238,0,238,7,225,9,216,12,211,17,208,26,207,40,207,183,208,198,211,207,216,213,225,216,238,218,297,225,229,225,157,62,79,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,92,0,92,7,78,9,69,12,63,18,60,26,59,36,59,172,60,172,143,0,147,0,224,174,224,37,223,26,220,18,214,12,204,9,190,7,190,0,296,0,296,7,284,9,275,12,270,17,267,26,266,40,266,183,267,198,270,207,275,213,284,216,297,218,251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,178,124,84,124,84,189,85,199,88,207,93,212,102,216,
+74,77,73,53,79,18,79,18,73,53,69,33,79,18,69,33,64,2,64,2,69,33,62,18,64,2,62,18,50,12,50,12,46,15,64,2,64,2,46,15,39,-4,57,216,66,212,238,225,238,225,66,212,103,210,238,225,103,210,110,211,238,225,110,211,145,211,238,225,145,211,154,211,161,18,156,12,238,0,238,0,156,12,147,9,238,0,147,9,134,7,238,225,154,211,159,209,238,225,159,209,163,205,238,225,163,205,165,199,238,225,165,199,165,190,238,225,165,190,216,213,238,225,216,213,225,216,238,225,225,216,238,218,207,40,207,183,165,190,165,190,207,183,208,198,165,190,208,198,211,207,216,12,211,17,165,37,165,37,211,17,208,26,165,37,208,26,165,190,92,189,92,198,75,183,92,189,75,183,79,18,92,189,79,18,88,41,92,189,88,41,91,66,92,189,91,66,92,89,75,183,92,198,94,204,75,183,94,204,98,208,75,183,98,208,74,197,71,206,74,197,98,208,71,206,98,208,103,210,71,206,103,210,66,212,45,225,45,218,57,216,45,225,57,216,238,225,238,0,238,7,225,9,238,0,225,9,216,12,238,0,216,12,165,37,238,0,165,37,164,26,238,0,164,26,161,18,75,99,74,77,79,18,75,99,79,18,75,183,39,-4,46,15,42,22,39,-4,42,22,38,30,39,-4,38,30,32,36,39,-4,32,36,28,-3,32,36,23,39,28,-3,28,-3,23,39,18,38,28,-3,18,38,18,-1,18,-1,18,38,13,36,18,-1,13,36,10,3,10,3,13,36,8,33,10,3,8,33,6,10,6,10,8,33,5,27,6,10,5,27,4,20,238,0,134,7,134,0,165,190,208,26,207,40,216,213,165,190,211,207,
+297,225,229,225,157,62,79,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,92,0,92,7,78,9,69,12,63,18,60,26,59,36,59,172,60,172,143,0,147,0,224,174,224,37,223,26,220,18,214,12,204,9,190,7,190,0,296,0,296,7,284,9,275,12,270,17,267,26,266,40,266,183,267,198,270,207,275,213,284,216,297,218,251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,178,124,84,124,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,108,178,108,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,
+39,16,33,11,92,0,92,0,33,11,25,9,92,0,25,9,12,7,220,18,214,12,296,0,296,0,214,12,204,9,296,0,204,9,190,7,229,225,157,62,224,174,229,225,224,174,267,26,229,225,267,26,266,40,229,225,266,40,266,183,229,225,266,183,267,198,229,225,267,198,270,207,229,225,270,207,275,213,229,225,275,213,297,225,59,172,60,172,79,225,79,225,60,172,143,0,79,225,143,0,157,62,157,62,143,0,147,0,157,62,147,0,224,174,92,7,78,9,92,0,92,0,78,9,69,12,92,0,69,12,42,25,42,25,69,12,63,18,42,25,63,18,42,40,42,40,63,18,60,26,42,40,60,26,42,183,42,183,60,26,59,36,42,183,59,36,59,172,79,225,12,225,25,216,79,225,25,216,33,212,79,225,33,212,39,206,79,225,39,206,42,197,79,225,42,197,42,183,79,225,42,183,59,172,284,216,297,218,297,225,284,216,297,225,275,213,296,0,296,7,284,9,296,0,284,9,275,12,296,0,275,12,224,37,296,0,224,37,223,26,296,0,223,26,220,18,224,37,275,12,270,17,224,37,270,17,267,26,224,37,267,26,224,174,92,0,12,7,12,0,39,16,92,0,42,25,296,0,190,7,190,0,25,216,12,225,12,218,
+251,225,147,225,147,218,160,216,169,213,174,207,177,200,178,189,178,124,84,124,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,108,178,108,178,37,177,26,174,18,169,12,160,9,147,7,147,0,251,0,251,7,238,9,229,12,224,17,221,26,220,40,220,183,221,198,223,207,229,213,238,216,251,218,238,116,232,154,217,186,194,210,165,225,130,230,92,225,61,209,38,185,23,153,17,114,23,75,38,42,61,17,91,1,126,-4,163,1,194,17,218,43,233,76,238,116,16383,16383,193,102,190,70,183,44,171,25,154,13,134,9,123,10,114,13,104,18,96,25,89,34,79,51,72,70,66,91,63,113,63,137,65,164,73,186,85,202,101,212,121,216,132,215,143,211,152,206,161,199,168,191,177,177,184,161,189,142,192,122,193,102,251,225,12,225,12,218,25,217,33,214,
+39,16,33,11,116,0,116,0,33,11,25,9,116,0,25,9,12,7,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,42,183,85,26,84,36,84,124,84,108,178,108,84,124,178,108,178,124,178,124,178,108,224,17,178,124,224,17,221,26,42,183,84,36,84,189,42,183,84,189,85,199,42,183,85,199,88,207,42,183,88,207,93,212,42,183,93,212,42,197,174,18,169,12,251,0,251,0,169,12,160,9,251,0,160,9,147,7,251,225,147,225,160,216,251,225,160,216,169,213,251,225,169,213,174,207,251,225,174,207,177,200,251,225,177,200,178,189,251,225,178,189,229,213,251,225,229,213,238,216,251,225,238,216,251,218,220,40,220,183,178,189,178,189,220,183,221,198,178,189,221,198,223,207,178,189,221,26,220,40,251,0,251,7,238,9,251,0,238,9,229,12,251,0,229,12,178,37,251,0,178,37,177,26,251,0,177,26,174,18,178,37,229,12,224,17,178,37,224,17,178,108,116,0,116,7,102,9,116,0,102,9,93,13,116,0,93,13,42,40,116,0,42,40,42,25,116,0,42,25,39,16,42,40,93,13,88,18,42,40,88,18,85,26,42,40,85,26,42,183,116,0,12,7,12,0,251,0,147,7,147,0,178,124,221,26,178,189,160,216,147,225,147,218,229,213,178,189,223,207,25,216,12,225,12,218,
+238,116,232,154,217,186,194,210,165,225,130,230,92,225,61,209,38,185,23,153,17,114,23,75,38,42,61,17,91,1,126,-4,163,1,194,17,218,43,233,76,238,116,16383,16383,193,102,190,70,183,44,171,25,154,13,134,9,123,10,114,13,104,18,96,25,89,34,79,51,72,70,66,91,63,113,63,137,65,164,73,186,85,202,101,212,121,216,132,215,143,211,152,206,161,199,168,191,177,177,184,161,189,142,192,122,193,102,251,225,12,225,12,218,25,217,33,214,39,209,42,200,42,26,39,17,33,12,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,186,85,196,88,203,92,208,98,210,105,211,156,211,163,210,169,208,174,203,177,196,178,186,178,37,177,26,175,18,170,12,161,9,148,7,148,0,251,0,251,7,238,9,229,11,224,16,221,24,220,37,220,184,221,199,224,209,230,214,238,217,251,218,76,229,
+66,91,61,17,72,70,72,70,61,17,91,1,72,70,91,1,79,51,79,51,91,1,89,34,96,25,89,34,91,1,96,25,91,1,126,-4,165,225,130,230,132,215,132,215,130,230,121,216,101,212,121,216,130,230,101,212,130,230,92,225,190,70,183,44,194,17,194,17,183,44,171,25,194,17,171,25,163,1,163,1,171,25,154,13,163,1,154,13,134,9,134,9,123,10,126,-4,126,-4,123,10,114,13,126,-4,114,13,104,18,143,211,152,206,165,225,165,225,152,206,161,199,165,225,161,199,168,191,168,191,177,177,194,210,194,210,177,177,184,161,194,210,184,161,189,142,194,210,193,102,194,17,194,210,194,17,217,186,217,186,194,17,218,43,217,186,218,43,232,154,232,154,218,43,233,76,232,154,233,76,238,116,194,210,189,142,192,122,194,210,192,122,193,102,194,210,165,225,168,191,134,9,126,-4,163,1,61,17,63,113,63,137,63,137,65,164,61,209,61,209,65,164,73,186,61,209,73,186,92,225,92,225,73,186,85,202,92,225,85,202,101,212,61,17,63,137,61,209,61,17,61,209,38,42,38,42,61,209,38,185,38,42,38,185,23,75,23,75,38,185,23,153,23,75,23,153,17,114,63,113,61,17,66,91,190,70,194,17,193,102,165,225,132,215,143,211,96,25,126,-4,104,18,
+251,225,12,225,12,218,25,217,33,214,39,209,42,200,42,26,39,17,33,12,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,186,85,196,88,203,92,208,98,210,105,211,156,211,163,210,169,208,174,203,177,196,178,186,178,37,177,26,175,18,170,12,161,9,148,7,148,0,251,0,251,7,238,9,229,11,224,16,221,24,220,37,220,184,221,199,224,209,230,214,238,217,251,218,76,229,73,230,58,224,44,219,31,214,17,209,1,204,1,196,4,197,13,197,22,196,28,194,32,189,34,180,34,-65,33,-79,30,-88,24,-94,14,-98,0,-100,0,-107,120,-107,120,-100,101,-99,88,-95,81,-89,77,-78,76,-62,76,17,86,8,96,2,107,-1,117,-3,129,-4,163,1,191,19,213,47,227,82,232,123,228,158,216,188,198,210,175,225,148,230,132,228,117,224,103,216,89,205,76,190,16383,16383,76,167,79,176,
+39,17,33,12,116,0,116,0,33,12,25,9,116,0,25,9,12,7,156,211,251,225,105,211,98,210,105,211,39,209,98,210,39,209,42,200,175,18,170,12,251,0,251,0,170,12,161,9,251,0,161,9,148,7,238,217,251,218,251,225,238,217,251,225,230,214,230,214,251,225,177,196,230,214,177,196,178,186,221,24,178,186,178,37,221,24,178,37,224,16,224,16,178,37,229,11,220,37,220,184,178,186,178,186,220,184,221,199,178,186,221,199,224,209,251,225,156,211,163,210,251,225,163,210,169,208,251,225,169,208,174,203,251,225,174,203,177,196,93,13,88,18,42,39,42,39,88,18,85,26,42,39,85,26,42,185,42,185,85,26,84,36,42,185,84,36,84,186,42,185,84,186,85,196,42,185,85,196,88,203,42,185,88,203,92,208,42,185,92,208,42,200,251,225,12,225,25,217,251,225,25,217,33,214,251,225,33,214,39,209,251,225,39,209,105,211,251,0,251,7,238,9,251,0,238,9,229,11,251,0,229,11,178,37,251,0,178,37,177,26,251,0,177,26,175,18,116,0,116,7,102,9,116,0,102,9,93,13,116,0,93,13,42,39,116,0,42,39,42,26,116,0,42,26,39,17,116,0,12,7,12,0,251,0,148,7,148,0,178,186,221,24,220,37,25,217,12,225,12,218,98,210,42,200,92,208,230,214,178,186,224,209,
+76,229,73,230,58,224,44,219,31,214,17,209,1,204,1,196,4,197,13,197,22,196,28,194,32,189,34,180,34,-65,33,-79,30,-88,24,-94,14,-98,0,-100,0,-107,120,-107,120,-100,101,-99,88,-95,81,-89,77,-78,76,-62,76,17,86,8,96,2,107,-1,117,-3,129,-4,163,1,191,19,213,47,227,82,232,123,228,158,216,188,198,210,175,225,148,230,132,228,117,224,103,216,89,205,76,190,16383,16383,76,167,79,176,87,185,99,193,113,198,127,200,148,195,165,183,178,163,186,136,189,103,186,73,178,47,165,27,148,14,128,10,113,12,99,18,87,26,79,35,76,44,207,78,193,60,180,46,167,38,153,33,137,31,111,36,89,49,73,69,63,96,59,128,62,157,71,182,86,200,105,212,127,216,137,215,144,212,149,208,153,201,156,191,160,180,163,172,167,166,171,161,177,158,184,157,191,158,197,161,202,166,206,172,207,179,203,195,192,209,175,220,154,227,130,230,116,229,102,226,88,221,75,213,62,204,63,204,48,189,36,172,28,152,22,130,21,106,25,70,38,39,58,15,84,0,116,-4,128,-3,140,-1,152,3,163,9,173,16,182,24,189,32,197,43,205,57,214,74,213,155,210,225,7,225,4,155,12,155,17,175,24,191,35,202,
+30,-88,24,-94,120,-107,120,-107,24,-94,14,-98,120,-107,14,-98,0,-100,6,197,8,197,17,209,17,209,8,197,11,197,17,209,11,197,13,197,13,197,22,196,17,209,17,209,22,196,31,214,17,209,1,204,4,197,17,209,4,197,6,197,79,35,76,44,86,8,86,8,76,44,76,17,77,-78,76,-62,44,219,77,-78,44,219,34,169,34,169,44,219,34,180,22,196,28,194,31,214,31,214,28,194,32,189,31,214,32,189,44,219,44,219,32,189,34,180,76,190,76,229,73,230,76,190,73,230,76,-62,76,190,76,-62,76,167,76,190,76,167,79,176,76,190,79,176,89,205,232,123,228,158,227,82,227,82,228,158,216,188,227,82,216,188,213,47,213,47,216,188,198,210,213,47,198,210,191,19,191,19,198,210,189,103,191,19,189,103,186,73,191,19,186,73,178,47,198,210,175,225,178,163,198,210,178,163,186,136,198,210,186,136,189,103,132,228,127,200,148,195,132,228,148,195,148,230,148,230,148,195,165,183,148,230,165,183,175,225,175,225,165,183,178,163,128,10,129,-4,148,14,148,14,129,-4,163,1,148,14,163,1,165,27,165,27,163,1,191,19,165,27,191,19,178,47,120,-107,120,-100,101,-99,120,-107,101,-99,88,-95,120,-107,88,-95,33,-79,120,-107,33,-79,30,-88,58,224,44,219,76,-62,58,224,76,-62,73,230,34,-65,33,-79,88,-95,34,-65,88,-95,81,-89,34,-65,81,-89,77,-78,34,-65,77,-78,34,169,79,176,87,185,89,205,89,205,87,185,99,193,89,205,99,193,103,216,103,216,99,193,113,198,103,216,113,198,117,224,117,224,113,198,127,200,117,224,127,200,132,228,113,12,99,18,107,-1,113,12,107,-1,117,-3,113,12,117,-3,128,10,79,35,86,8,87,26,87,26,86,8,96,2,87,26,96,2,99,18,99,18,96,2,107,-1,129,-4,128,10,117,-3,4,197,1,204,1,196,120,-107,0,-100,0,-107,
+207,78,193,60,180,46,167,38,153,33,137,31,111,36,89,49,73,69,63,96,59,128,62,157,71,182,86,200,105,212,127,216,137,215,144,212,149,208,153,201,156,191,160,180,163,172,167,166,171,161,177,158,184,157,191,158,197,161,202,166,206,172,207,179,203,195,192,209,175,220,154,227,130,230,116,229,102,226,88,221,75,213,62,204,63,204,48,189,36,172,28,152,22,130,21,106,25,70,38,39,58,15,84,0,116,-4,128,-3,140,-1,152,3,163,9,173,16,182,24,189,32,197,43,205,57,214,74,213,155,210,225,7,225,4,155,12,155,17,175,24,191,35,202,50,209,70,211,77,211,82,209,85,207,87,202,88,195,88,40,87,25,84,16,78,11,69,9,56,7,56,0,161,0,161,7,148,9,139,13,133,18,130,26,129,36,129,195,130,201,131,206,134,209,139,210,146,211,166,209,182,202,192,191,200,175,204,155,242,225,175,225,175,218,184,217,190,216,195,213,198,210,199,205,199,201,198,198,198,195,197,193,145,55,84,184,83,188,79,196,78,201,78,204,79,209,82,212,87,215,95,217,107,218,
+89,49,73,69,84,0,84,0,73,69,63,96,84,0,63,96,58,15,58,15,63,96,59,128,63,204,59,128,62,157,63,204,62,157,71,182,137,31,116,-4,128,-3,137,31,128,-3,140,-1,137,31,111,36,116,-4,89,49,84,0,116,-4,89,49,116,-4,111,36,203,195,192,209,197,161,203,195,197,161,202,166,203,195,202,166,206,172,203,195,206,172,207,179,192,209,175,220,177,158,192,209,177,158,184,157,192,209,184,157,191,158,192,209,191,158,197,161,175,220,154,227,156,191,175,220,156,191,160,180,175,220,160,180,163,172,175,220,163,172,167,166,175,220,167,166,171,161,175,220,171,161,177,158,144,212,149,208,154,227,154,227,149,208,153,201,154,227,153,201,156,191,130,230,127,216,137,215,130,230,137,215,154,227,154,227,137,215,144,212,182,24,189,32,193,60,193,60,189,32,197,43,193,60,197,43,207,78,207,78,197,43,205,57,207,78,205,57,214,74,140,-1,152,3,153,33,153,33,152,3,163,9,153,33,163,9,167,38,167,38,163,9,173,16,167,38,173,16,180,46,180,46,173,16,182,24,180,46,182,24,193,60,153,33,137,31,140,-1,105,212,127,216,116,229,105,212,116,229,102,226,105,212,102,226,88,221,105,212,88,221,86,200,75,213,63,204,71,182,75,213,71,182,86,200,75,213,86,200,88,221,48,189,36,172,38,39,48,189,38,39,58,15,48,189,58,15,59,128,48,189,59,128,63,204,28,152,22,130,25,70,28,152,25,70,38,39,28,152,38,39,36,172,127,216,130,230,116,229,25,70,22,130,21,106,
+213,155,210,225,7,225,4,155,12,155,17,175,24,191,35,202,50,209,70,211,77,211,82,209,85,207,87,202,88,195,88,40,87,25,84,16,78,11,69,9,56,7,56,0,161,0,161,7,148,9,139,13,133,18,130,26,129,36,129,195,130,201,131,206,134,209,139,210,146,211,166,209,182,202,192,191,200,175,204,155,242,225,175,225,175,218,184,217,190,216,195,213,198,210,199,205,199,201,198,198,198,195,197,193,145,55,84,184,83,188,79,196,78,201,78,204,79,209,82,212,87,215,95,217,107,218,107,225,4,225,4,218,11,217,23,211,27,206,31,200,99,59,105,47,111,34,116,22,120,13,122,6,119,-5,111,-24,100,-44,88,-60,
+84,16,78,11,161,0,161,0,78,11,69,9,161,0,69,9,56,7,24,191,35,202,7,225,7,225,35,202,50,209,7,225,50,209,70,211,70,211,77,211,210,225,210,225,77,211,82,209,210,225,82,209,85,207,85,207,87,202,210,225,210,225,87,202,139,210,210,225,139,210,146,211,146,211,166,209,210,225,210,225,166,209,182,202,210,225,182,202,192,191,210,225,192,191,200,175,210,225,200,175,204,155,210,225,204,155,213,155,129,36,129,195,88,195,88,195,129,195,130,201,88,195,130,201,131,206,88,195,131,206,134,209,88,195,134,209,139,210,88,195,139,210,87,202,88,195,130,26,129,36,210,225,7,225,70,211,7,225,4,155,12,155,7,225,12,155,17,175,7,225,17,175,24,191,161,0,161,7,148,9,161,0,148,9,139,13,161,0,139,13,88,40,161,0,88,40,87,25,161,0,87,25,84,16,88,40,139,13,133,18,88,40,133,18,130,26,88,40,130,26,88,195,161,0,56,7,56,0,
+242,225,175,225,175,218,184,217,190,216,195,213,198,210,199,205,199,201,198,198,198,195,197,193,145,55,84,184,83,188,79,196,78,201,78,204,79,209,82,212,87,215,95,217,107,218,107,225,4,225,4,218,11,217,23,211,27,206,31,200,99,59,105,47,111,34,116,22,120,13,122,6,119,-5,111,-24,100,-44,88,-60,75,-66,70,-66,64,-64,60,-63,55,-60,49,-58,39,-56,33,-56,27,-57,21,-60,16,-65,13,-72,12,-79,14,-88,18,-96,26,-102,35,-106,47,-108,68,-105,86,-94,102,-76,118,-48,134,-11,217,192,221,202,225,208,230,213,235,216,242,218,190,330,186,331,172,325,146,315,132,310,117,305,117,297,119,298,129,298,138,297,144,295,147,290,149,281,150,270,150,204,144,212,136,219,127,225,116,229,104,230,76,225,53,209,36,185,25,153,22,113,23,89,27,66,32,46,41,29,51,15,60,8,69,2,79,-1,91,-3,103,-4,115,-3,126,0,136,6,144,13,150,22,150,-65,149,-79,146,-88,140,-94,129,-98,114,-100,114,-107,233,-107,233,-100,214,-99,202,-95,194,-89,191,-78,190,-62,190,22,195,13,203,6,213,0,224,-3,236,-4,249,-3,260,-1,270,2,279,8,287,15,298,29,306,46,313,66,316,89,
+67,-65,68,-105,70,-66,70,-66,68,-105,86,-94,70,-66,86,-94,73,-66,73,-66,86,-94,75,-66,88,-60,75,-66,86,-94,88,-60,86,-94,102,-76,31,200,78,201,78,204,78,204,79,209,31,200,31,200,79,209,82,212,31,200,82,212,107,225,107,225,82,212,87,215,107,225,87,215,95,217,95,217,107,218,107,225,107,225,4,225,11,217,107,225,11,217,17,214,107,225,17,214,23,211,107,225,23,211,27,206,107,225,27,206,31,200,122,6,134,-11,145,55,145,55,134,-11,217,192,145,55,217,192,197,193,197,193,217,192,198,195,242,225,175,225,184,217,242,225,184,217,190,216,242,225,190,216,195,213,242,225,195,213,198,210,242,225,198,210,199,205,242,225,199,205,230,213,242,225,230,213,235,216,242,225,235,216,242,218,199,205,217,192,221,202,199,205,221,202,225,208,199,205,225,208,230,213,199,204,199,201,217,192,199,204,217,192,199,205,198,198,198,195,217,192,198,198,217,192,199,201,111,34,116,22,145,55,145,55,116,22,120,13,145,55,120,13,122,6,145,55,84,184,99,59,145,55,99,59,105,47,145,55,105,47,111,34,99,59,84,184,83,188,99,59,83,188,81,192,99,59,81,192,79,196,99,59,79,196,78,201,99,59,78,201,31,200,119,-5,111,-24,118,-48,119,-5,118,-48,134,-11,119,-5,134,-11,122,6,102,-76,118,-48,111,-24,102,-76,111,-24,100,-44,102,-76,100,-44,88,-60,68,-105,67,-65,64,-64,68,-105,64,-64,60,-63,68,-105,60,-63,55,-60,68,-105,55,-60,49,-58,68,-105,49,-58,47,-108,49,-58,44,-57,47,-108,47,-108,44,-57,39,-56,47,-108,39,-56,35,-106,35,-106,39,-56,33,-56,35,-106,33,-56,27,-57,35,-106,27,-57,26,-102,26,-102,27,-57,21,-60,26,-102,21,-60,18,-96,18,-96,21,-60,16,-65,18,-96,16,-65,14,-88,14,-88,16,-65,13,-72,14,-88,13,-72,12,-79,184,217,175,225,175,218,11,217,4,225,4,218,
+190,330,186,331,172,325,146,315,132,310,117,305,117,297,119,298,129,298,138,297,144,295,147,290,149,281,150,270,150,204,144,212,136,219,127,225,116,229,104,230,76,225,53,209,36,185,25,153,22,113,23,89,27,66,32,46,41,29,51,15,60,8,69,2,79,-1,91,-3,103,-4,115,-3,126,0,136,6,144,13,150,22,150,-65,149,-79,146,-88,140,-94,129,-98,114,-100,114,-107,233,-107,233,-100,214,-99,202,-95,194,-89,191,-78,190,-62,190,22,195,13,203,6,213,0,224,-3,236,-4,249,-3,260,-1,270,2,279,8,287,15,298,29,306,46,313,66,316,89,318,113,314,153,303,185,286,209,263,225,235,230,223,229,212,225,203,219,195,212,190,204,16383,16383,190,179,192,188,198,197,207,206,219,212,233,215,248,209,260,194,268,172,273,146,275,117,274,99,273,82,271,66,267,51,263,38,258,29,253,21,247,15,240,11,233,10,219,13,207,19,198,28,192,38,190,47,16383,16383,150,47,147,38,141,28,132,19,120,13,105,10,99,11,92,15,86,21,81,29,76,38,72,51,68,66,66,82,65,99,65,117,66,146,71,172,80,194,91,209,105,215,120,212,132,206,141,197,147,187,150,177,238,0,238,7,229,8,221,12,213,18,205,26,197,37,133,136,175,195,181,203,188,209,197,214,215,218,215,225,136,225,136,218,144,217,150,215,154,213,156,210,156,201,154,195,150,187,145,178,138,169,124,149,116,162,108,174,101,185,97,194,94,201,93,206,93,210,96,213,100,216,106,217,114,218,114,225,11,225,11,218,15,218,23,217,31,214,38,208,45,200,54,187,54,188,100,115,45,32,37,22,30,15,23,11,16,9,7,7,7,0,79,0,79,7,72,8,66,9,62,11,60,13,60,19,61,23,63,27,65,33,69,39,108,100,155,28,156,27,156,25,157,23,157,15,155,12,152,9,146,8,137,7,137,0,251,225,146,225,146,218,159,216,168,212,174,207,177,199,178,189,178,39,177,29,174,22,170,17,164,15,157,14,104,14,97,15,92,17,88,22,85,29,84,39,84,188,85,199,88,207,94,213,103,216,116,218,116,225,12,225,12,218,25,216,33,214,39,209,42,201,42,26,39,16,33,11,24,8,12,7,12,0,199,0,210,-3,221,-14,232,-34,243,-68,251,-68,251,7,238,8,229,11,224,16,221,25,220,40,220,186,221,199,223,208,229,213,238,216,251,218,
+69,2,79,-1,72,51,72,51,79,-1,76,38,81,29,76,38,79,-1,81,29,79,-1,91,-3,150,177,150,47,150,22,150,22,150,47,147,38,150,22,147,38,144,13,144,13,147,38,141,28,144,13,141,28,136,6,136,6,141,28,132,19,136,6,132,19,126,0,126,0,132,19,120,13,126,0,120,13,115,-3,115,-3,120,13,105,10,105,10,99,11,103,-4,103,-4,99,11,92,15,103,-4,92,15,91,-3,91,-3,92,15,86,21,91,-3,86,21,81,29,150,270,150,204,150,22,150,22,150,204,150,177,150,177,150,204,147,187,147,187,150,204,144,212,147,187,144,212,141,197,141,197,144,212,136,219,141,197,136,219,132,206,132,206,136,219,127,225,132,206,127,225,120,212,120,212,127,225,116,229,120,212,116,229,105,215,66,146,71,172,76,225,76,225,71,172,80,194,76,225,80,194,104,230,104,230,80,194,91,209,104,230,91,209,105,215,76,225,53,209,66,146,66,146,53,209,65,117,65,99,65,117,60,8,65,99,60,8,69,2,41,29,51,15,53,209,53,209,51,15,60,8,53,209,60,8,65,117,36,185,25,153,27,66,36,185,27,66,32,46,36,185,32,46,41,29,36,185,41,29,53,209,25,153,22,113,23,89,25,153,23,89,27,66,146,-88,140,-94,233,-107,233,-107,140,-94,129,-98,233,-107,129,-98,114,-100,122,298,124,298,132,310,132,310,124,298,126,298,132,310,126,298,129,298,129,298,138,297,132,310,132,310,138,297,146,315,132,310,117,305,119,298,132,310,119,298,122,298,192,38,190,47,195,13,195,13,190,47,190,22,191,-78,190,-62,159,320,191,-78,159,320,150,22,150,22,159,320,150,270,138,297,144,295,146,315,146,315,144,295,147,290,146,315,147,290,159,320,159,320,147,290,149,281,159,320,149,281,150,270,190,204,190,330,186,331,190,204,186,331,190,-62,190,204,190,-62,190,179,190,204,190,179,195,212,274,99,273,82,279,8,279,8,273,82,271,66,279,8,271,66,270,2,270,2,271,66,267,51,270,2,267,51,263,38,263,38,258,29,260,-1,260,-1,258,29,253,21,260,-1,253,21,249,-3,249,-3,253,21,247,15,249,-3,247,15,240,11,213,0,224,-3,219,13,219,13,224,-3,233,10,240,11,233,10,236,-4,240,11,236,-4,249,-3,314,153,303,185,306,46,314,153,306,46,313,66,314,153,313,66,316,89,314,153,316,89,318,113,274,99,279,8,275,117,275,117,279,8,286,209,286,209,279,8,287,15,286,209,287,15,303,185,303,185,287,15,298,29,303,185,298,29,306,46,248,209,260,194,263,225,263,225,260,194,268,172,263,225,268,172,286,209,286,209,268,172,273,146,286,209,273,146,275,117,263,225,235,230,248,209,248,209,235,230,233,215,219,212,233,215,223,229,219,212,223,229,212,225,263,38,260,-1,270,2,233,-107,233,-100,214,-99,233,-107,214,-99,202,-95,233,-107,202,-95,149,-79,233,-107,149,-79,146,-88,172,325,159,320,190,-62,172,325,190,-62,186,331,194,-89,191,-78,150,22,194,-89,150,22,150,-65,194,-89,150,-65,202,-95,69,2,72,51,68,66,69,2,68,66,66,82,69,2,66,82,65,99,192,38,195,13,198,28,198,28,195,13,203,6,198,28,203,6,207,19,207,19,203,6,213,0,207,19,213,0,219,13,190,179,192,188,195,212,195,212,192,188,198,197,195,212,198,197,203,219,203,219,198,197,207,206,203,219,207,206,212,225,212,225,207,206,219,212,235,230,223,229,233,215,233,10,224,-3,236,-4,115,-3,105,10,103,-4,119,298,117,305,117,297,233,-107,114,-100,114,-107,149,-79,202,-95,150,-65,105,215,116,229,104,230,
+238,0,238,7,229,8,221,12,213,18,205,26,197,37,133,136,175,195,181,203,188,209,197,214,215,218,215,225,136,225,136,218,144,217,150,215,154,213,156,210,156,201,154,195,150,187,145,178,138,169,124,149,116,162,108,174,101,185,97,194,94,201,93,206,93,210,96,213,100,216,106,217,114,218,114,225,11,225,11,218,15,218,23,217,31,214,38,208,45,200,54,187,54,188,100,115,45,32,37,22,30,15,23,11,16,9,7,7,7,0,79,0,79,7,72,8,66,9,62,11,60,13,60,19,61,23,63,27,65,33,69,39,108,100,155,28,156,27,156,25,157,23,157,15,155,12,152,9,146,8,137,7,137,0,251,225,146,225,146,218,159,216,168,212,174,207,177,199,178,189,178,39,177,29,174,22,170,17,164,15,157,14,104,14,97,15,92,17,88,22,85,29,84,39,84,188,85,199,88,207,94,213,103,216,116,218,116,225,12,225,12,218,25,216,33,214,39,209,42,201,42,26,39,16,33,11,24,8,12,7,12,0,199,0,210,-3,221,-14,232,-34,243,-68,251,-68,251,7,238,8,229,11,224,16,221,25,220,40,220,186,221,199,223,208,229,213,238,216,251,218,244,225,139,225,139,218,152,216,161,212,167,207,170,200,171,190,171,118,166,116,158,113,148,110,136,108,123,107,106,108,94,112,87,120,83,131,81,147,81,186,
+30,15,23,11,79,0,79,0,23,11,16,9,79,0,16,9,7,7,31,214,38,208,114,225,114,225,38,208,45,200,114,225,45,200,54,188,54,188,45,200,54,187,54,187,100,115,93,206,93,206,93,210,54,187,54,187,93,210,96,213,54,187,96,213,114,225,114,225,96,213,100,216,114,225,100,216,106,217,30,15,79,0,37,22,37,22,79,0,62,11,37,22,62,11,45,32,45,32,62,11,60,13,45,32,60,13,60,17,60,17,60,19,45,32,45,32,60,19,61,23,45,32,61,23,63,27,106,217,114,218,114,225,114,225,11,225,15,218,114,225,15,218,23,217,114,225,23,217,31,214,138,169,124,149,133,136,138,169,133,136,175,195,138,169,175,195,145,178,215,225,136,225,144,217,215,225,144,217,150,215,215,225,150,215,154,213,215,225,154,213,156,210,215,225,156,210,156,206,215,225,156,206,188,209,215,225,188,209,197,214,215,225,197,214,206,216,215,225,206,216,215,218,175,195,181,203,156,206,175,195,156,206,156,201,175,195,156,201,154,195,175,195,154,195,150,187,175,195,150,187,145,178,155,12,152,9,238,0,238,0,152,9,146,8,238,0,146,8,137,7,157,20,238,0,221,12,157,20,221,12,213,18,157,20,213,18,205,26,157,20,205,26,197,37,157,20,197,37,157,21,197,37,133,136,155,28,197,37,155,28,156,27,197,37,156,27,156,25,197,37,156,25,157,23,197,37,157,23,157,21,133,136,124,149,155,28,155,28,124,149,116,162,155,28,116,162,108,100,108,100,116,162,108,174,108,100,108,174,101,185,100,115,45,32,63,27,100,115,63,27,65,33,100,115,65,33,69,39,100,115,69,39,108,100,100,115,108,100,101,185,100,115,101,185,97,194,100,115,97,194,94,201,100,115,94,201,93,206,229,8,221,12,238,0,229,8,238,0,238,7,157,15,155,12,238,0,157,15,238,0,157,20,79,0,79,7,72,8,79,0,72,8,66,9,79,0,66,9,62,11,79,0,7,7,7,0,238,0,137,7,137,0,144,217,136,225,136,218,188,209,156,206,181,203,15,218,11,225,11,218,114,225,54,188,54,187,
+251,225,146,225,146,218,159,216,168,212,174,207,177,199,178,189,178,39,177,29,174,22,170,17,164,15,157,14,104,14,97,15,92,17,88,22,85,29,84,39,84,188,85,199,88,207,94,213,103,216,116,218,116,225,12,225,12,218,25,216,33,214,39,209,42,201,42,26,39,16,33,11,24,8,12,7,12,0,199,0,210,-3,221,-14,232,-34,243,-68,251,-68,251,7,238,8,229,11,224,16,221,25,220,40,220,186,221,199,223,208,229,213,238,216,251,218,244,225,139,225,139,218,152,216,161,212,167,207,170,200,171,190,171,118,166,116,158,113,148,110,136,108,123,107,106,108,94,112,87,120,83,131,81,147,81,186,82,199,86,208,91,213,100,216,113,218,113,225,9,225,9,218,22,216,30,213,36,209,39,200,40,186,40,144,43,121,52,105,66,97,85,93,107,92,124,93,139,96,152,100,162,104,171,108,171,27,168,18,162,13,153,9,141,7,141,0,244,0,244,7,231,9,223,12,217,17,215,25,214,39,
+39,16,33,11,187,0,187,0,33,11,24,8,187,0,24,8,12,7,116,225,12,225,25,216,116,225,25,216,33,214,116,225,33,214,39,209,116,225,39,209,42,201,116,225,42,201,42,188,116,225,42,188,94,213,116,225,94,213,103,216,116,225,103,216,116,218,92,17,88,22,42,41,42,41,88,22,85,29,42,41,85,29,42,188,42,188,85,29,84,39,42,188,84,39,84,188,42,188,84,188,85,199,42,188,85,199,88,207,42,188,88,207,94,213,251,225,146,225,159,216,251,225,159,216,168,212,251,225,168,212,174,207,251,225,174,207,177,199,251,225,177,199,178,189,251,225,178,189,229,213,251,225,229,213,238,216,251,225,238,216,251,218,224,16,221,25,221,-14,221,-14,221,25,220,40,220,40,220,186,210,-3,210,-3,220,186,199,0,178,189,187,0,221,199,221,199,187,0,199,0,221,199,199,0,220,186,223,208,229,213,178,189,223,208,178,189,221,199,251,-68,251,7,243,-68,243,-68,251,7,238,8,243,-68,238,8,232,-34,232,-34,238,8,229,11,232,-34,229,11,224,16,174,22,170,17,187,0,187,0,170,17,164,15,187,0,164,15,157,14,187,0,178,189,178,39,187,0,178,39,177,29,187,0,177,29,174,22,42,26,39,16,97,15,97,15,39,16,187,0,97,15,187,0,104,14,104,14,187,0,157,14,42,26,97,15,92,17,42,26,92,17,42,41,187,0,12,7,12,0,221,-14,220,40,210,-3,224,16,221,-14,232,-34,159,216,146,225,146,218,25,216,12,225,12,218,42,188,42,201,42,187,
+244,225,139,225,139,218,152,216,161,212,167,207,170,200,171,190,171,118,166,116,158,113,148,110,136,108,123,107,106,108,94,112,87,120,83,131,81,147,81,186,82,199,86,208,91,213,100,216,113,218,113,225,9,225,9,218,22,216,30,213,36,209,39,200,40,186,40,144,43,121,52,105,66,97,85,93,107,92,124,93,139,96,152,100,162,104,171,108,171,27,168,18,162,13,153,9,141,7,141,0,244,0,244,7,231,9,223,12,217,17,215,25,214,39,214,199,217,208,223,213,231,216,244,218,373,225,270,225,270,218,282,216,291,213,296,207,299,200,300,189,300,39,299,29,297,22,293,17,287,15,278,14,235,14,228,15,221,17,217,22,214,29,213,39,213,189,214,199,218,207,224,213,232,216,243,218,243,225,141,225,141,218,152,216,160,213,166,207,170,199,171,189,171,39,170,29,168,22,164,17,158,15,150,14,107,14,99,15,93,17,88,22,85,29,84,39,84,189,85,199,88,207,93,212,102,216,114,218,114,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,
+113,218,113,218,100,216,100,216,113,218,113,225,100,216,113,225,91,213,91,213,113,225,40,186,91,213,40,186,86,208,86,208,40,186,43,121,86,208,43,121,82,199,82,199,43,121,52,105,82,199,52,105,66,97,87,120,83,131,85,93,85,93,83,131,81,147,81,147,81,186,66,97,66,97,81,186,82,199,30,213,36,209,113,225,113,225,36,209,39,200,113,225,39,200,40,186,22,216,30,213,113,225,22,216,113,225,9,225,22,216,9,225,9,218,244,7,231,9,244,0,244,0,231,9,223,12,244,0,223,12,171,39,171,39,223,12,217,17,171,39,217,17,171,108,171,108,171,118,166,116,171,108,166,116,162,104,162,104,166,116,158,113,162,104,158,113,152,100,152,100,158,113,148,110,152,100,148,110,139,96,139,96,148,110,136,108,139,96,136,108,124,93,124,93,136,108,123,107,107,92,124,93,123,107,107,92,123,107,106,108,107,92,106,108,94,112,107,92,94,112,87,120,107,92,87,120,85,93,244,225,139,225,152,216,244,225,152,216,161,212,244,225,161,212,167,207,244,225,167,207,170,200,244,225,170,200,171,190,244,225,171,190,223,213,244,225,223,213,231,216,244,225,231,216,244,218,214,39,214,186,171,108,171,108,214,186,214,199,171,108,214,199,217,208,171,190,171,108,217,208,171,190,217,208,223,213,171,108,217,17,215,25,171,108,215,25,214,39,244,0,171,39,171,27,244,0,171,27,168,18,244,0,168,18,162,13,244,0,162,13,153,9,244,0,153,9,141,7,244,0,141,7,141,0,43,121,40,186,40,144,171,118,171,108,171,190,152,216,139,225,139,218,85,93,81,147,66,97,
+373,225,270,225,270,218,282,216,291,213,296,207,299,200,300,189,300,39,299,29,297,22,293,17,287,15,278,14,235,14,228,15,221,17,217,22,214,29,213,39,213,189,214,199,218,207,224,213,232,216,243,218,243,225,141,225,141,218,152,216,160,213,166,207,170,199,171,189,171,39,170,29,168,22,164,17,158,15,150,14,107,14,99,15,93,17,88,22,85,29,84,39,84,189,85,199,88,207,93,212,102,216,114,218,114,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,372,0,372,7,360,8,351,11,345,16,342,25,342,198,345,207,351,213,360,216,373,218,373,225,270,225,270,218,282,216,291,213,296,207,299,200,300,189,300,39,299,29,297,22,293,17,287,15,278,14,235,14,228,15,221,17,217,22,214,29,213,39,213,189,214,199,218,207,224,212,232,216,243,218,243,225,141,225,141,218,142,218,152,216,160,212,166,207,170,199,171,189,171,39,170,29,168,22,164,17,158,15,150,14,107,14,99,15,93,17,88,22,85,29,84,39,84,189,85,199,87,207,93,212,101,216,114,218,114,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,325,0,335,-5,345,-17,354,-37,364,-68,372,-68,372,7,360,8,351,11,345,15,
+39,16,33,11,372,0,372,0,33,11,25,9,372,0,25,9,12,7,114,225,12,225,25,216,114,225,25,216,33,212,114,225,33,212,39,206,114,225,39,206,42,197,114,225,42,197,42,183,114,225,42,183,93,212,114,225,93,212,102,216,114,225,102,216,114,218,93,17,88,22,42,40,42,40,88,22,85,29,42,40,85,29,42,183,42,183,85,29,84,39,42,183,84,39,84,189,42,183,84,189,85,199,42,183,85,199,88,207,42,183,88,207,93,212,93,17,42,25,99,15,99,15,42,25,39,16,99,15,39,16,107,14,107,14,39,16,372,0,107,14,372,0,150,14,150,14,372,0,158,15,243,225,141,225,152,216,243,225,152,216,160,213,243,225,160,213,166,207,243,225,166,207,170,199,243,225,170,199,171,189,243,225,171,189,224,213,243,225,224,213,232,216,243,225,232,216,243,218,213,39,213,189,171,189,171,189,213,189,214,199,171,189,214,199,218,207,221,17,217,22,171,39,171,39,217,22,214,29,171,39,214,29,171,189,297,22,293,17,372,0,372,0,293,17,287,15,372,0,287,15,278,14,373,225,270,225,282,216,373,225,282,216,291,213,373,225,291,213,296,207,373,225,296,207,299,200,373,225,299,200,300,189,373,225,300,189,351,213,373,225,351,213,360,216,373,225,360,216,373,218,342,40,342,183,300,189,300,189,342,183,342,198,300,189,342,198,345,207,351,11,345,16,300,39,300,39,345,16,342,25,300,39,342,25,300,189,372,0,372,7,360,8,372,0,360,8,351,11,372,0,351,11,299,29,372,0,299,29,297,22,372,0,278,14,235,14,372,0,235,14,228,15,372,0,228,15,164,17,372,0,164,17,158,15,170,29,168,22,228,15,170,29,228,15,221,17,170,29,221,17,171,39,372,0,12,7,12,0,42,25,93,17,42,40,164,17,228,15,168,22,171,189,214,29,213,39,299,29,351,11,300,39,300,189,342,25,342,40,282,216,270,225,270,218,351,213,300,189,345,207,152,216,141,225,141,218,224,213,171,189,218,207,25,216,12,225,12,218,
+373,225,270,225,270,218,282,216,291,213,296,207,299,200,300,189,300,39,299,29,297,22,293,17,287,15,278,14,235,14,228,15,221,17,217,22,214,29,213,39,213,189,214,199,218,207,224,212,232,216,243,218,243,225,141,225,141,218,142,218,152,216,160,212,166,207,170,199,171,189,171,39,170,29,168,22,164,17,158,15,150,14,107,14,99,15,93,17,88,22,85,29,84,39,84,189,85,199,87,207,93,212,101,216,114,218,114,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,325,0,335,-5,345,-17,354,-37,364,-68,372,-68,372,7,360,8,351,11,345,15,342,25,342,198,345,207,351,213,360,216,373,218,126,126,126,199,129,207,134,212,143,216,156,218,156,225,8,225,4,161,12,161,18,181,25,195,35,205,46,209,61,211,68,211,74,209,79,207,83,202,84,195,84,40,83,25,80,16,75,11,66,9,52,7,52,0,169,0,196,3,220,10,238,23,249,40,253,62,249,86,235,105,215,117,188,124,158,126,16383,16383,126,112,148,112,167,111,183,107,196,98,205,84,208,64,205,43,196,29,182,20,164,15,142,14,135,14,130,16,127,19,126,23,126,30,323,0,323,8,310,10,301,13,295,18,293,26,292,36,292,199,295,207,300,212,309,216,323,218,323,225,219,225,219,218,232,216,241,212,246,206,249,197,250,183,250,40,249,25,246,16,241,11,232,9,219,7,
+39,16,33,11,315,0,315,0,33,11,25,9,315,0,25,9,12,7,114,225,12,225,25,216,114,225,25,216,33,212,114,225,33,212,39,206,114,225,39,206,42,197,114,225,42,197,42,183,114,225,42,183,93,212,114,225,93,212,101,216,114,225,101,216,114,218,93,17,88,22,42,40,42,40,88,22,85,29,42,40,85,29,42,183,42,183,85,29,84,39,42,183,84,39,84,189,42,183,84,189,85,199,42,183,85,199,87,207,42,183,87,207,93,212,93,17,42,25,99,15,99,15,42,25,39,16,99,15,39,16,107,14,107,14,39,16,315,0,107,14,315,0,150,14,150,14,315,0,158,15,243,225,141,225,142,218,243,225,142,218,152,216,243,225,152,216,160,212,243,225,160,212,166,207,243,225,166,207,170,199,243,225,170,199,171,189,243,225,171,189,224,212,243,225,224,212,232,216,243,225,232,216,243,218,213,39,213,189,171,189,171,189,213,189,214,199,171,189,214,199,218,207,221,17,217,22,171,39,171,39,217,22,214,29,171,39,214,29,171,189,373,225,270,225,282,216,373,225,282,216,291,213,373,225,291,213,296,207,373,225,296,207,299,200,373,225,299,200,300,189,373,225,300,189,351,213,373,225,351,213,360,216,373,225,360,216,373,218,345,15,342,25,345,-17,345,-17,342,25,342,40,342,40,342,183,335,-5,335,-5,342,183,325,0,300,189,315,0,342,198,342,198,315,0,325,0,342,198,325,0,342,183,345,207,351,213,300,189,345,207,300,189,342,198,372,-68,372,7,364,-68,364,-68,372,7,360,8,364,-68,360,8,354,-37,354,-37,360,8,351,11,354,-37,351,11,345,15,297,22,293,17,315,0,315,0,293,17,287,15,315,0,287,15,278,14,315,0,300,189,300,39,315,0,300,39,299,29,315,0,299,29,297,22,315,0,278,14,235,14,315,0,235,14,228,15,315,0,228,15,168,22,315,0,168,22,164,17,315,0,164,17,158,15,170,29,168,22,228,15,170,29,228,15,221,17,170,29,221,17,171,39,315,0,12,7,12,0,42,25,93,17,42,40,171,189,214,29,213,39,345,-17,342,40,335,-5,345,15,345,-17,354,-37,282,216,270,225,270,218,142,218,141,225,141,218,224,212,171,189,218,207,25,216,12,225,12,218,
+126,126,126,199,129,207,134,212,143,216,156,218,156,225,8,225,4,161,12,161,18,181,25,195,35,205,46,209,61,211,68,211,74,209,79,207,83,202,84,195,84,40,83,25,80,16,75,11,66,9,52,7,52,0,169,0,196,3,220,10,238,23,249,40,253,62,249,86,235,105,215,117,188,124,158,126,16383,16383,126,112,148,112,167,111,183,107,196,98,205,84,208,64,205,43,196,29,182,20,164,15,142,14,135,14,130,16,127,19,126,23,126,30,323,0,323,8,310,10,301,13,295,18,293,26,292,36,292,199,295,207,300,212,309,216,323,218,323,225,219,225,219,218,232,216,241,212,246,206,249,197,250,183,250,40,249,25,246,16,241,11,232,9,219,7,219,0,16383,16383,84,126,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,127,0,155,3,179,10,197,23,209,40,213,62,208,86,194,105,
+80,16,75,11,169,0,169,0,75,11,66,9,169,0,66,9,52,7,74,209,156,225,68,211,68,211,156,225,61,211,46,209,61,211,156,225,46,209,156,225,8,225,156,225,74,209,79,207,156,225,79,207,83,202,156,225,83,202,84,195,156,225,84,195,134,212,156,225,134,212,143,216,156,225,143,216,156,218,84,195,126,23,126,30,126,126,126,112,148,112,126,126,148,112,158,126,158,126,148,112,167,111,158,126,167,111,188,124,188,124,167,111,183,107,188,124,183,107,196,98,84,195,126,30,126,189,84,195,126,189,126,199,84,195,126,199,129,207,84,195,129,207,134,212,8,225,4,161,12,161,8,225,12,161,18,181,8,225,18,181,25,195,8,225,25,195,35,205,8,225,35,205,46,209,205,43,196,29,196,3,196,3,196,29,182,20,196,3,182,20,169,0,169,0,182,20,164,15,169,0,164,15,142,14,142,14,135,14,169,0,169,0,135,14,130,16,169,0,130,16,83,25,83,25,130,16,84,40,196,3,220,10,205,43,205,43,220,10,208,64,215,117,208,64,220,10,215,117,220,10,235,105,235,105,220,10,238,23,235,105,238,23,249,86,249,86,238,23,249,40,249,86,249,40,253,62,215,117,188,124,196,98,215,117,196,98,205,84,215,117,205,84,208,64,84,40,130,16,127,19,84,40,127,19,126,23,84,40,126,23,84,195,169,0,52,7,52,0,80,16,169,0,83,25,
+323,0,323,8,310,10,301,13,295,18,293,26,292,36,292,199,295,207,300,212,309,216,323,218,323,225,219,225,219,218,232,216,241,212,246,206,249,197,250,183,250,40,249,25,246,16,241,11,232,9,219,7,219,0,16383,16383,84,126,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,127,0,155,3,179,10,197,23,209,40,213,62,208,86,194,105,174,117,148,124,118,126,16383,16383,84,112,107,112,126,111,142,107,155,98,164,84,167,64,164,43,155,29,141,20,123,15,102,14,94,14,89,16,86,19,85,23,84,30,84,126,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,127,0,155,3,179,10,197,23,209,40,213,62,208,86,194,105,174,117,148,124,118,126,16383,16383,84,112,107,112,126,111,142,107,155,98,164,84,167,64,164,43,155,29,141,20,123,15,102,14,94,14,89,16,86,19,85,23,84,30,30,228,23,157,32,157,38,173,46,189,58,203,75,212,99,216,122,212,140,200,154,182,162,157,165,128,75,128,75,112,165,112,160,87,150,64,135,47,114,35,88,31,71,33,56,37,42,46,28,59,15,78,7,74,18,53,
+323,218,323,218,309,216,309,216,323,218,323,225,309,216,323,225,300,212,300,212,323,225,249,197,300,212,249,197,250,183,293,26,250,183,250,40,293,26,250,40,295,18,295,18,250,40,301,13,292,36,292,189,250,183,250,183,292,189,292,199,250,183,292,199,295,207,323,225,219,225,232,216,323,225,232,216,241,212,323,225,241,212,246,206,323,225,246,206,249,197,323,0,323,8,310,10,323,0,310,10,301,13,323,0,301,13,250,40,323,0,250,40,249,25,323,0,249,25,246,16,323,0,246,16,241,11,323,0,241,11,232,9,323,0,232,9,219,7,323,0,219,7,219,0,39,16,33,11,127,0,127,0,33,11,25,9,127,0,25,9,12,7,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,42,183,85,23,84,30,84,126,84,112,107,112,84,126,107,112,118,126,118,126,107,112,126,111,118,126,126,111,148,124,148,124,126,111,142,107,148,124,142,107,155,98,42,183,84,30,84,189,42,183,84,189,85,199,42,183,85,199,88,207,42,183,88,207,93,212,42,183,93,212,42,197,164,43,155,29,155,3,155,3,155,29,141,20,155,3,141,20,127,0,127,0,141,20,123,15,127,0,123,15,102,14,102,14,94,14,127,0,127,0,94,14,89,16,127,0,89,16,42,25,42,25,89,16,42,40,155,3,179,10,164,43,164,43,179,10,167,64,174,117,167,64,179,10,174,117,179,10,194,105,194,105,179,10,197,23,194,105,197,23,208,86,208,86,197,23,209,40,208,86,209,40,213,62,174,117,148,124,155,98,174,117,155,98,164,84,174,117,164,84,167,64,42,40,89,16,86,19,42,40,86,19,85,23,42,40,85,23,42,183,127,0,12,7,12,0,39,16,127,0,42,25,25,216,12,225,12,218,250,183,293,26,292,36,232,216,219,225,219,218,300,212,250,183,295,207,
+84,126,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,127,0,155,3,179,10,197,23,209,40,213,62,208,86,194,105,174,117,148,124,118,126,16383,16383,84,112,107,112,126,111,142,107,155,98,164,84,167,64,164,43,155,29,141,20,123,15,102,14,94,14,89,16,86,19,85,23,84,30,30,228,23,157,32,157,38,173,46,189,58,203,75,212,99,216,122,212,140,200,154,182,162,157,165,128,75,128,75,112,165,112,160,87,150,64,135,47,114,35,88,31,71,33,56,37,42,46,28,59,15,78,7,74,18,53,32,32,49,14,72,0,101,-4,136,1,165,16,187,41,200,73,205,110,201,147,189,179,169,206,140,223,102,230,92,230,84,229,63,222,59,220,56,218,52,217,48,217,
+39,16,33,11,127,0,127,0,33,11,25,9,127,0,25,9,12,7,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,42,183,85,23,84,30,84,126,84,112,107,112,84,126,107,112,118,126,118,126,107,112,126,111,118,126,126,111,148,124,148,124,126,111,142,107,148,124,142,107,155,98,42,183,84,30,84,189,42,183,84,189,85,199,42,183,85,199,88,207,42,183,88,207,93,212,42,183,93,212,42,197,164,43,155,29,155,3,155,3,155,29,141,20,155,3,141,20,127,0,127,0,141,20,123,15,127,0,123,15,102,14,102,14,94,14,127,0,127,0,94,14,89,16,127,0,89,16,42,25,42,25,89,16,42,40,155,3,179,10,164,43,164,43,179,10,167,64,174,117,167,64,179,10,174,117,179,10,194,105,194,105,179,10,197,23,194,105,197,23,208,86,208,86,197,23,209,40,208,86,209,40,213,62,174,117,148,124,155,98,174,117,155,98,164,84,174,117,164,84,167,64,42,40,89,16,86,19,42,40,86,19,85,23,42,40,85,23,42,183,127,0,12,7,12,0,39,16,127,0,42,25,25,216,12,225,12,218,
+30,228,23,157,32,157,38,173,46,189,58,203,75,212,99,216,122,212,140,200,154,182,162,157,165,128,75,128,75,112,165,112,160,87,150,64,135,47,114,35,88,31,71,33,56,37,42,46,28,59,15,78,7,74,18,53,32,32,49,14,72,0,101,-4,136,1,165,16,187,41,200,73,205,110,201,147,189,179,169,206,140,223,102,230,92,230,84,229,63,222,59,220,56,218,52,217,48,217,44,218,42,219,40,221,38,224,37,228,84,124,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,108,131,108,138,70,153,39,176,16,205,0,239,-4,276,1,308,17,331,43,346,76,352,116,346,154,331,186,308,210,278,225,243,230,207,225,177,211,154,189,138,160,131,124,16383,16383,306,102,304,70,296,44,284,25,
+59,220,56,218,58,203,58,203,56,218,52,217,58,203,52,217,48,217,48,217,44,218,46,189,46,189,44,218,42,219,46,189,42,219,40,221,30,228,32,157,37,228,37,228,32,157,38,173,37,228,38,173,38,224,38,224,38,173,46,189,38,224,46,189,40,221,15,78,18,53,28,59,28,59,18,53,32,32,28,59,32,32,42,46,42,46,32,32,49,14,42,46,49,14,56,37,56,37,49,14,72,0,56,37,72,0,71,33,71,33,72,0,88,31,114,35,88,31,101,-4,114,35,101,-4,136,1,99,216,92,230,84,229,99,216,84,229,78,227,99,216,78,227,75,212,99,216,102,230,92,230,75,212,78,227,72,225,75,212,72,225,66,223,75,212,66,223,63,222,75,212,63,222,59,220,75,212,59,220,58,203,48,217,46,189,58,203,75,128,165,112,165,128,165,128,165,112,165,16,165,128,165,16,169,206,205,110,201,147,200,73,200,73,201,147,189,179,200,73,189,179,187,41,187,41,189,179,169,206,187,41,169,206,165,16,169,206,140,223,140,200,169,206,140,200,154,182,169,206,154,182,162,157,169,206,162,157,165,128,122,212,140,200,140,223,122,212,140,223,102,230,122,212,102,230,99,216,165,112,160,87,165,16,165,16,160,87,150,64,165,16,150,64,136,1,136,1,150,64,135,47,136,1,135,47,114,35,88,31,72,0,101,-4,18,53,15,78,7,74,32,157,30,228,23,157,165,112,75,128,75,112,
+84,124,84,189,85,199,88,207,93,212,102,216,116,218,116,225,12,225,12,218,25,216,33,212,39,206,42,197,42,25,39,16,33,11,25,9,12,7,12,0,116,0,116,7,102,9,93,13,88,18,85,26,84,36,84,108,131,108,138,70,153,39,176,16,205,0,239,-4,276,1,308,17,331,43,346,76,352,116,346,154,331,186,308,210,278,225,243,230,207,225,177,211,154,189,138,160,131,124,16383,16383,306,102,304,70,296,44,284,25,268,13,248,9,237,10,227,13,218,18,210,25,203,34,193,51,185,70,180,91,177,113,176,137,179,164,186,186,199,202,215,212,234,216,246,215,257,211,266,206,274,199,281,191,290,177,297,161,302,142,305,122,306,102,224,225,121,225,91,224,65,219,45,210,31,193,26,167,30,148,40,131,55,118,74,109,97,104,37,31,32,25,26,19,19,14,11,9,2,7,2,0,64,0,142,103,151,103,151,25,148,16,143,11,135,8,123,7,123,0,224,0,224,8,211,10,202,13,197,18,194,26,193,40,193,183,194,198,197,207,202,213,211,216,224,218,16383,16383,151,117,131,117,111,119,94,125,82,135,74,148,71,165,75,185,85,198,99,206,117,210,136,211,142,211,147,209,149,206,151,202,151,195,193,286,191,294,188,301,182,306,175,310,167,311,160,310,153,306,148,301,144,294,143,286,144,278,147,272,153,266,159,263,167,262,175,263,182,266,188,272,191,278,193,286,16383,16383,
+39,16,33,11,116,0,116,0,33,11,25,9,116,0,25,9,12,7,116,225,12,225,25,216,116,225,25,216,33,212,116,225,33,212,39,206,116,225,39,206,42,197,116,225,42,197,93,212,116,225,93,212,102,216,116,225,102,216,116,218,138,160,131,124,131,108,131,108,131,124,84,124,131,108,84,124,84,108,85,26,84,36,42,183,85,26,42,183,42,40,42,183,84,36,84,189,42,183,84,189,85,199,42,183,85,199,88,207,42,183,88,207,93,212,42,183,93,212,42,197,116,0,116,7,102,9,116,0,102,9,93,13,116,0,93,13,42,40,116,0,42,40,42,25,116,0,42,25,39,16,42,40,93,13,88,18,42,40,88,18,85,26,180,91,176,16,185,70,185,70,176,16,205,0,185,70,205,0,193,51,193,51,205,0,203,34,210,25,203,34,205,0,210,25,205,0,239,-4,278,225,243,230,246,215,246,215,243,230,234,216,215,212,234,216,243,230,215,212,243,230,207,225,304,70,296,44,308,17,308,17,296,44,284,25,308,17,284,25,276,1,276,1,284,25,268,13,276,1,268,13,248,9,248,9,237,10,239,-4,239,-4,237,10,227,13,239,-4,227,13,218,18,257,211,266,206,278,225,278,225,266,206,274,199,278,225,274,199,281,191,281,191,290,177,308,210,308,210,290,177,297,161,308,210,297,161,302,142,346,154,331,186,331,43,346,154,331,43,346,76,346,154,346,76,352,116,304,70,308,17,306,102,306,102,308,17,308,210,308,210,308,17,331,43,308,210,331,43,331,186,308,210,302,142,305,122,308,210,305,122,306,102,308,210,278,225,281,191,248,9,239,-4,276,1,176,137,179,164,177,211,177,211,179,164,186,186,177,211,186,186,207,225,207,225,186,186,199,202,207,225,199,202,215,212,131,108,138,70,138,160,138,160,138,70,153,39,138,160,153,39,154,189,154,189,153,39,176,16,154,189,176,16,176,137,176,137,177,211,154,189,177,113,176,137,176,16,177,113,176,16,180,91,278,225,246,215,257,211,210,25,239,-4,218,18,116,0,12,7,12,0,25,216,12,225,12,218,
+224,225,121,225,91,224,65,219,45,210,31,193,26,167,30,148,40,131,55,118,74,109,97,104,37,31,32,25,26,19,19,14,11,9,2,7,2,0,64,0,142,103,151,103,151,25,148,16,143,11,135,8,123,7,123,0,224,0,224,8,211,10,202,13,197,18,194,26,193,40,193,183,194,198,197,207,202,213,211,216,224,218,16383,16383,151,117,131,117,111,119,94,125,82,135,74,148,71,165,75,185,85,198,99,206,117,210,136,211,142,211,147,209,149,206,151,202,151,195,193,286,191,294,188,301,182,306,175,310,167,311,160,310,153,306,148,301,144,294,143,286,144,278,147,272,153,266,159,263,167,262,175,263,182,266,188,272,191,278,193,286,16383,16383,93,286,92,294,88,301,83,306,76,310,68,311,60,310,54,306,48,301,45,294,44,286,45,278,48,272,53,266,60,263,68,262,76,263,83,266,88,272,92,278,93,286,16383,16383,210,82,196,63,182,48,167,39,150,33,132,31,102,37,80,53,66,77,58,106,55,137,209,137,208,152,205,165,202,176,
+26,19,19,14,64,0,64,0,19,14,11,9,64,0,11,9,2,7,97,104,64,0,142,103,97,104,142,103,111,119,97,104,111,119,94,125,97,104,94,125,82,135,97,104,82,135,74,148,97,104,74,148,74,109,85,198,91,224,75,185,75,185,91,224,65,219,75,185,65,219,71,165,71,165,74,109,74,148,26,167,30,148,31,193,31,193,30,148,40,131,31,193,40,131,45,210,45,210,40,131,55,118,45,210,55,118,65,219,65,219,55,118,74,109,65,219,74,109,71,165,148,16,143,11,224,0,224,0,143,11,135,8,224,0,135,8,123,7,147,209,224,225,142,211,142,211,224,225,136,211,117,210,136,211,121,225,117,210,121,225,99,206,99,206,121,225,91,224,99,206,91,224,85,198,224,8,211,10,224,0,224,0,211,10,202,13,224,0,202,13,151,38,151,38,202,13,197,18,151,38,197,18,151,103,151,103,197,18,151,117,151,103,151,117,142,103,142,103,151,117,131,117,142,103,131,117,111,119,64,0,97,104,37,31,64,0,37,31,32,25,64,0,32,25,26,19,224,225,147,209,149,206,224,225,149,206,151,202,224,225,151,202,151,195,224,225,151,195,202,213,224,225,202,213,211,216,224,225,211,216,224,218,193,40,193,183,151,195,151,195,193,183,194,198,151,195,194,198,197,207,151,195,194,26,193,40,224,225,121,225,136,211,151,117,197,18,194,26,151,117,194,26,151,195,151,25,148,16,224,0,151,25,224,0,151,38,224,0,123,7,123,0,202,213,151,195,197,207,64,0,2,7,2,0,
+266,59,253,44,242,34,234,29,228,26,222,25,216,28,216,31,215,33,216,38,217,44,218,49,220,55,221,61,247,151,249,159,252,180,252,186,250,202,245,214,236,223,224,228,208,230,189,227,169,216,147,196,123,165,99,123,98,123,133,252,205,278,211,300,139,273,146,296,148,306,151,315,153,324,156,332,158,340,155,342,143,337,131,333,116,329,98,325,76,320,76,312,85,312,92,311,99,309,103,306,104,301,104,293,103,290,103,286,93,257,45,239,40,218,87,234,23,0,65,0,78,41,88,72,98,97,109,117,121,137,137,159,152,177,167,191,180,200,190,203,198,202,203,199,207,194,209,188,209,175,207,161,206,155,204,150,185,78,182,66,178,54,175,41,173,31,172,23,174,13,177,5,183,0,190,-3,199,-4,211,-2,225,3,240,14,256,30,273,54,344,337,341,331,335,324,327,316,316,310,302,308,271,312,246,322,222,334,193,344,154,348,118,342,88,327,65,305,51,278,46,248,49,224,60,204,77,189,100,179,128,176,136,176,144,177,151,179,159,182,167,186,163,197,157,195,150,193,144,191,137,190,131,190,116,192,102,198,90,208,82,222,79,241,83,262,93,278,106,289,122,295,138,297,168,293,193,283,216,272,242,262,273,258,303,263,325,276,340,294,349,314,355,334,16383,16383,352,209,344,217,335,225,325,231,312,235,295,237,275,234,257,225,241,212,231,195,227,174,232,145,243,121,257,99,269,76,273,49,271,34,264,22,253,11,238,5,219,2,204,4,191,8,181,16,172,28,165,44,158,63,149,82,136,98,118,110,94,114,72,109,53,97,38,82,28,65,22,51,34,49,39,57,45,64,53,69,61,73,
+99,123,98,123,99,123,99,123,98,123,109,117,99,123,109,117,123,165,123,165,109,117,121,137,104,296,104,293,133,252,133,252,104,293,103,290,133,252,103,290,103,286,103,286,93,257,98,123,98,123,93,257,98,97,98,123,98,97,109,117,203,199,208,230,198,202,198,202,208,230,190,203,180,200,190,203,189,227,180,200,189,227,169,216,123,165,137,159,147,196,147,196,137,159,152,177,147,196,152,177,169,216,169,216,152,177,167,191,169,216,167,191,180,200,204,150,185,78,190,-3,204,150,190,-3,199,-4,204,150,199,-4,211,-2,204,150,211,-2,206,155,211,-2,216,31,215,33,215,33,224,228,211,-2,211,-2,224,228,209,181,211,-2,209,181,209,175,211,-2,209,175,208,168,224,228,215,33,216,38,224,228,216,38,217,44,224,228,217,44,218,49,224,228,218,49,220,55,224,228,220,55,221,61,224,228,221,61,247,151,224,228,247,151,236,223,209,188,209,181,224,228,209,188,224,228,208,230,209,188,208,230,207,194,208,230,189,227,190,203,249,159,250,166,250,202,250,202,250,166,251,173,250,202,251,173,252,186,252,186,251,173,252,180,247,151,249,159,250,202,247,151,250,202,245,214,247,151,245,214,236,223,218,27,225,3,220,26,220,26,225,3,222,25,228,26,222,25,225,3,228,26,225,3,240,14,256,30,273,54,266,59,256,30,266,59,253,44,256,30,253,44,242,34,256,30,242,34,240,14,234,29,228,26,240,14,234,29,240,14,242,34,225,3,218,27,216,28,225,3,216,28,216,31,225,3,216,31,211,-2,207,161,206,155,211,-2,207,161,211,-2,208,168,183,0,190,-3,185,78,183,0,185,78,182,66,183,0,182,66,178,54,183,0,178,54,177,5,175,41,173,31,174,13,175,41,174,13,177,5,175,41,177,5,178,54,65,0,78,41,87,234,87,234,78,41,88,72,87,234,88,72,93,257,93,257,88,72,98,97,45,239,40,218,87,234,45,239,87,234,93,257,85,312,92,311,98,325,98,325,92,311,99,309,98,325,99,309,116,329,116,329,99,309,103,306,116,329,103,306,104,301,104,301,104,299,133,252,133,252,104,299,104,296,76,320,76,312,85,312,76,320,85,312,98,325,151,315,153,324,155,342,155,342,153,324,156,332,155,342,156,332,158,340,133,252,139,273,143,337,143,337,139,273,146,296,143,337,146,296,155,342,155,342,146,296,148,306,155,342,148,306,151,315,133,252,143,337,131,333,133,252,131,333,116,329,133,252,116,329,104,301,103,286,98,123,133,252,139,273,133,252,205,278,139,273,205,278,211,300,65,0,87,234,23,0,174,13,173,31,172,23,208,230,203,199,207,194,121,137,137,159,123,165,
+344,337,341,331,335,324,327,316,316,310,302,308,271,312,246,322,222,334,193,344,154,348,118,342,88,327,65,305,51,278,46,248,49,224,60,204,77,189,100,179,128,176,136,176,144,177,151,179,159,182,167,186,163,197,157,195,150,193,144,191,137,190,131,190,116,192,102,198,90,208,82,222,79,241,83,262,93,278,106,289,122,295,138,297,168,293,193,283,216,272,242,262,273,258,303,263,325,276,340,294,349,314,355,334,16383,16383,352,209,344,217,335,225,325,231,312,235,295,237,275,234,257,225,241,212,231,195,227,174,232,145,243,121,257,99,269,76,273,49,271,34,264,22,253,11,238,5,219,2,204,4,191,8,181,16,172,28,165,44,158,63,149,82,136,98,118,110,94,114,72,109,53,97,38,82,28,65,22,51,34,49,39,57,45,64,53,69,61,73,69,74,75,73,81,70,87,65,92,58,97,49,102,39,108,29,114,20,122,11,132,3,144,-3,157,-9,172,-13,192,-15,215,-16,253,-11,285,1,311,22,329,47,335,76,329,103,316,127,300,149,287,169,281,186,283,197,287,205,294,211,302,214,310,215,316,215,322,214,328,211,335,207,343,200,314,0,314,331,292,331,292,78,291,78,118,309,103,331,35,331,35,0,57,0,57,252,58,252,247,0,16383,16383,292,22,257,22,57,289,57,309,91,309,292,41,483,153,480,178,471,200,456,217,437,229,414,233,389,229,370,217,356,199,347,177,344,152,347,128,355,107,370,89,389,78,414,74,437,78,457,89,471,106,480,128,483,153,16383,16383,444,152,443,127,439,108,433,95,424,87,413,84,402,87,393,95,387,108,384,127,383,152,384,178,388,197,394,211,402,219,412,222,424,219,433,211,439,197,443,178,444,152,16383,16383,481,0,481,44,346,44,346,0,16383,16383,278,107,135,331,45,331,45,321,53,321,71,318,75,316,80,313,86,308,92,301,99,291,107,280,107,112,104,78,98,47,88,26,71,17,64,21,53,43,45,53,31,57,24,56,17,53,10,48,5,40,3,30,6,14,13,4,24,-2,38,-5,55,-6,91,2,113,27,124,60,128,97,129,131,129,246,291,-5,300,-5,300,186,301,219,303,253,309,284,319,305,335,314,343,309,348,300,354,288,362,278,376,274,383,275,390,278,397,283,402,291,403,301,401,317,394,327,383,334,369,337,353,338,316,329,
+102,198,90,208,100,179,100,179,90,208,82,222,100,179,82,222,77,189,77,189,82,222,79,241,88,327,79,241,83,262,88,327,83,262,93,278,154,348,138,297,168,293,154,348,168,293,193,344,193,344,168,293,193,283,193,344,193,283,222,334,222,334,193,283,216,272,222,334,216,272,242,262,222,334,242,262,246,322,246,322,242,262,273,258,246,322,273,258,271,312,271,312,273,258,302,308,316,310,302,308,303,263,316,310,303,263,325,276,355,334,344,337,349,314,349,314,344,337,341,331,349,314,341,331,340,294,340,294,341,331,335,324,340,294,335,324,327,316,327,316,316,310,325,276,327,316,325,276,340,294,302,308,273,258,303,263,295,237,275,234,283,197,283,197,275,234,281,186,285,1,281,186,275,234,285,1,275,234,273,49,273,49,271,34,285,1,285,1,271,34,264,22,285,1,264,22,253,-11,253,-11,264,22,253,11,253,-11,253,11,238,5,325,231,312,235,316,215,316,215,312,235,310,215,302,214,310,215,312,235,302,214,312,235,295,237,295,237,283,197,287,205,295,237,287,205,294,211,295,237,294,211,302,214,343,200,352,209,344,217,343,200,344,217,335,225,343,200,335,225,335,207,316,215,322,214,325,231,325,231,322,214,328,211,325,231,328,211,335,225,335,225,328,211,335,207,335,76,329,103,329,47,329,47,329,103,316,127,329,47,316,127,311,22,311,22,316,127,300,149,311,22,300,149,287,169,287,169,281,186,285,1,287,169,285,1,311,22,238,5,219,2,253,-11,253,-11,219,2,215,-16,215,-16,219,2,204,4,215,-16,204,4,192,-15,192,-15,204,4,191,8,192,-15,191,8,181,16,93,278,106,289,118,342,118,342,106,289,122,295,118,342,122,295,154,348,154,348,122,295,138,297,65,305,51,278,60,204,65,305,60,204,77,189,65,305,77,189,79,241,65,305,79,241,88,327,51,278,46,248,49,224,51,278,49,224,60,204,157,195,150,193,151,179,151,179,150,193,144,191,151,179,144,191,144,177,144,177,144,191,137,190,144,177,137,190,136,176,136,176,137,190,131,190,128,176,136,176,131,190,128,176,131,190,116,192,128,176,116,192,102,198,128,176,102,198,100,179,159,182,167,186,163,197,159,182,163,197,157,195,159,182,157,195,151,179,94,114,72,109,75,73,75,73,72,109,69,74,61,73,69,74,72,109,61,73,72,109,53,97,53,97,38,82,39,57,53,97,39,57,45,64,53,97,45,64,53,69,53,97,53,69,61,73,34,49,39,57,38,82,34,49,38,82,28,65,34,49,28,65,22,51,81,70,87,65,94,114,94,114,87,65,92,58,94,114,92,58,97,49,97,49,102,39,118,110,118,110,102,39,108,29,118,110,108,29,114,20,122,11,132,3,136,98,136,98,132,3,144,-3,136,98,144,-3,149,82,149,82,144,-3,157,-9,149,82,157,-9,158,63,158,63,157,-9,172,-13,158,63,172,-13,165,44,165,44,172,-13,172,28,181,16,172,28,172,-13,181,16,172,-13,192,-15,118,110,114,20,122,11,118,110,122,11,136,98,118,110,94,114,97,49,231,195,232,145,241,212,241,212,232,145,243,121,241,212,243,121,257,225,257,225,243,121,257,99,257,225,257,99,275,234,275,234,257,99,269,76,275,234,269,76,273,49,232,145,231,195,227,174,94,114,75,73,81,70,88,327,93,278,118,342,
+
+
+406,57,402,52,396,46,384,36,379,35,361,47,353,78,347,119,335,159,309,190,309,191,331,203,348,218,361,236,368,256,371,277,367,300,355,321,335,337,308,348,272,352,206,304,193,317,178,329,160,339,140,345,118,348,89,344,63,335,43,319,30,297,25,270,31,247,45,229,62,214,76,197,82,175,79,163,73,153,64,144,54,138,45,134,49,123,74,132,97,145,115,161,128,180,132,200,126,227,112,245,95,259,81,275,75,299,76,308,80,318,87,325,97,330,108,332,133,322,149,297,157,265,161,231,162,203,162,165,160,123,156,84,149,56,137,45,129,47,116,54,100,62,86,70,76,75,30,2,41,-3,51,9,56,14,60,17,63,20,70,17,83,11,97,3,111,-4,122,-10,149,19,173,53,193,88,209,125,220,161,257,170,269,162,276,149,280,132,282,113,283,94,284,70,289,44,298,21,313,1,333,-10,339,-10,355,0,372,11,388,24,403,36,415,47,16383,16383,222,179,223,189,223,200,224,212,224,233,223,242,222,253,220,265,217,276,214,286,225,297,235,304,245,310,255,313,266,314,283,310,296,302,305,291,310,278,312,266,310,246,303,226,289,208,268,192,238,182,356,0,248,142,271,153,290,167,303,186,311,208,314,233,308,271,291,298,265,317,232,328,195,331,35,331,35,0,118,0,118,136,155,136,252,0,16383,16383,246,302,262,293,275,281,284,268,290,251,292,232,290,214,284,197,274,182,261,170,246,161,16383,16383,224,160,218,159,212,159,207,158,201,158,196,157,118,157,118,309,203,309,208,308,214,307,224,305,16383,16383,313,22,264,22,181,136,184,136,186,135,206,135,213,136,219,136,225,137,16383,16383,96,22,57,22,57,309,96,309,382,0,382,11,365,13,350,18,337,26,326,36,314,47,382,113,368,127,300,61,284,80,254,120,224,158,250,166,274,178,295,196,309,217,315,244,306,281,282,306,250,323,213,331,177,334,35,334,35,321,57,320,73,315,85,307,92,292,94,269,94,65,92,42,85,27,73,18,57,14,35,12,35,0,197,0,197,12,175,14,158,18,147,27,140,42,138,65,138,152,145,152,149,151,162,151,165,152,172,152,270,31,200,-35,213,-49,282,17,295,0,16383,16383,138,283,140,298,146,308,156,314,168,317,182,318,212,315,235,307,251,293,261,271,264,240,259,207,244,186,222,174,194,168,163,166,158,166,153,167,
+82,175,79,163,82,175,82,175,79,163,97,145,82,175,97,145,95,259,82,175,95,259,81,275,82,175,81,275,76,197,76,197,81,275,75,299,63,335,75,299,76,308,63,335,76,308,89,344,89,344,76,308,80,318,89,344,80,318,87,325,118,348,108,332,133,322,118,348,133,322,140,345,140,345,133,322,149,297,140,345,149,297,160,339,160,339,149,297,157,265,160,339,157,265,161,231,162,165,160,123,173,53,173,53,160,123,156,84,173,53,156,84,149,19,149,19,156,84,149,56,149,19,149,56,137,45,137,45,129,47,149,19,149,19,129,47,122,-10,220,161,257,170,222,179,220,161,222,179,222,253,220,161,222,253,220,265,220,161,220,265,217,276,220,161,217,276,214,286,220,161,214,286,209,125,222,179,223,189,223,242,223,242,223,189,223,200,223,242,223,200,224,233,224,233,223,200,224,212,224,233,224,212,224,223,206,304,193,317,193,88,193,88,193,317,178,329,193,88,178,329,173,53,173,53,178,329,162,203,63,20,70,17,76,75,76,75,70,17,83,11,76,75,83,11,86,70,86,70,83,11,97,3,86,70,97,3,100,62,100,62,97,3,111,-4,100,62,111,-4,116,54,116,54,111,-4,122,-10,116,54,122,-10,129,47,76,75,30,2,41,-3,76,75,41,-3,46,3,76,75,46,3,51,9,76,75,51,9,56,14,76,75,56,14,60,17,76,75,60,17,63,20,97,330,108,332,118,348,97,330,118,348,89,344,97,330,89,344,87,325,63,335,43,319,45,229,63,335,45,229,62,214,63,335,62,214,76,197,63,335,76,197,75,299,31,247,45,229,43,319,31,247,43,319,30,297,31,247,30,297,25,270,95,259,97,145,112,245,112,245,97,145,115,161,112,245,115,161,126,227,126,227,115,161,128,180,126,227,128,180,132,200,74,132,97,145,79,163,74,132,79,163,73,153,74,132,73,153,64,144,74,132,64,144,54,138,74,132,54,138,49,123,54,138,45,134,49,123,276,149,289,208,269,162,269,162,289,208,268,192,269,162,268,192,257,170,257,170,268,192,238,182,235,304,245,310,272,352,272,352,245,310,255,313,272,352,255,313,266,314,266,314,283,310,272,352,272,352,283,310,308,348,312,266,331,203,335,337,335,337,331,203,348,218,335,337,348,218,355,321,355,321,348,218,361,236,355,321,361,236,367,300,367,300,361,236,368,256,367,300,368,256,371,277,310,278,312,266,335,337,310,278,335,337,308,348,310,278,308,348,305,291,308,348,283,310,296,302,308,348,296,302,305,291,310,246,303,226,309,191,310,246,309,191,331,203,310,246,331,203,312,266,309,190,309,191,303,226,309,190,303,226,313,1,309,190,313,1,335,159,402,52,396,46,403,36,403,36,396,46,390,41,403,36,390,41,388,24,388,24,390,41,384,36,388,24,384,36,379,35,379,35,361,47,372,11,372,11,361,47,355,0,313,1,333,-10,335,159,335,159,333,-10,339,-10,335,159,339,-10,347,119,347,119,339,-10,355,0,347,119,355,0,353,78,353,78,355,0,361,47,283,94,284,70,289,208,289,208,284,70,289,44,289,208,289,44,303,226,303,226,289,44,298,21,303,226,298,21,313,1,276,149,280,132,289,208,289,208,280,132,282,113,289,208,282,113,283,94,406,57,402,52,403,36,406,57,403,36,415,47,379,35,372,11,388,24,272,352,206,304,214,286,272,352,214,286,225,297,272,352,225,297,235,304,206,304,193,88,209,125,206,304,209,125,214,286,161,231,162,203,178,329,161,231,178,329,160,339,222,179,257,170,238,182,162,165,173,53,162,203,222,179,223,242,222,253,
+429,110,429,143,125,143,121,145,119,147,117,150,117,155,119,161,123,167,132,176,141,186,149,195,165,215,155,224,134,202,112,180,89,160,63,143,36,129,36,124,63,110,89,93,112,73,134,51,154,29,164,39,157,49,149,59,140,68,132,78,123,86,120,89,118,92,116,96,116,99,117,102,119,105,122,107,126,109,129,110,225,212,203,232,181,254,162,278,144,303,130,331,125,331,111,303,94,278,74,254,52,233,30,213,40,203,49,210,69,226,79,235,88,243,90,246,93,248,97,250,100,251,103,250,109,244,111,238,111,-77,144,-77,144,237,145,242,146,246,148,248,151,250,157,250,159,249,168,243,177,234,187,226,197,217,206,209,216,202,428,129,
+121,145,119,147,119,105,119,105,119,147,117,150,119,105,117,150,117,102,117,102,117,150,117,153,116,99,112,180,112,73,112,73,112,180,89,160,112,73,89,160,89,93,89,93,89,160,63,143,89,93,63,143,63,110,63,110,63,143,36,129,63,110,36,129,36,124,155,224,134,202,141,186,155,224,141,186,149,195,155,224,149,195,157,205,155,224,157,205,165,215,134,202,112,180,118,158,134,202,118,158,119,161,134,202,119,161,121,164,134,202,121,164,123,167,134,202,123,167,132,176,134,202,132,176,141,186,117,155,118,158,112,180,117,155,112,180,117,153,140,68,132,78,134,51,134,51,132,78,123,86,134,51,123,86,120,89,129,143,125,143,126,109,129,143,126,109,129,110,129,143,129,110,429,110,129,143,429,110,429,143,122,107,126,109,125,143,122,107,125,143,121,145,122,107,121,145,119,105,154,29,164,39,157,49,154,29,157,49,149,59,154,29,149,59,140,68,154,29,140,68,134,51,116,96,116,99,112,73,116,96,112,73,117,94,117,94,112,73,134,51,117,94,134,51,118,92,118,92,134,51,120,89,117,102,117,153,116,99,117,153,112,180,116,99,
+225,212,203,232,181,254,162,278,144,303,130,331,125,331,111,303,94,278,74,254,52,233,30,213,40,203,49,210,69,226,79,235,88,243,90,246,93,248,97,250,100,251,103,250,109,244,111,238,111,-77,144,-77,144,237,145,242,146,246,148,248,151,250,157,250,159,249,168,243,177,234,187,226,197,217,206,209,216,202,428,129,400,143,375,160,352,180,330,201,310,224,300,214,314,194,323,185,332,175,340,166,343,164,345,161,347,159,347,157,348,154,347,151,341,145,338,144,334,143,35,143,35,110,334,110,339,109,343,108,345,106,347,103,347,97,346,95,340,86,331,77,322,67,314,58,306,48,299,38,309,28,330,51,351,72,375,92,
+90,246,93,248,94,278,94,278,93,248,95,249,94,278,95,249,111,303,111,303,95,249,97,250,111,303,97,250,100,251,100,251,103,250,111,303,111,303,103,250,106,247,111,303,106,247,109,244,110,241,111,238,111,303,111,303,111,238,125,331,125,331,111,238,144,-77,125,331,144,-77,130,331,130,331,144,-77,144,237,130,331,144,237,144,303,144,303,144,237,145,242,144,303,145,242,146,246,88,243,90,246,94,278,88,243,94,278,79,235,79,235,94,278,74,254,79,235,74,254,69,226,69,226,74,254,59,218,52,233,30,213,40,203,52,233,40,203,49,210,52,233,49,210,59,218,52,233,59,218,74,254,146,246,148,248,162,278,162,278,148,248,151,250,162,278,151,250,154,250,154,250,157,250,162,278,162,278,157,250,159,249,162,278,159,249,162,247,187,226,197,217,203,232,203,232,197,217,206,209,203,232,206,209,225,212,225,212,206,209,216,202,181,254,162,278,162,247,181,254,162,247,165,245,181,254,165,245,168,243,181,254,168,243,177,234,181,254,177,234,187,226,181,254,187,226,203,232,111,238,111,-77,144,-77,144,303,146,246,162,278,111,303,109,244,110,241,
+428,129,400,143,375,160,352,180,330,201,310,224,300,214,314,194,323,185,332,175,340,166,343,164,345,161,347,159,347,157,348,154,347,151,341,145,338,144,334,143,35,143,35,110,334,110,339,109,343,108,345,106,347,103,347,97,346,95,340,86,331,77,322,67,314,58,306,48,299,38,309,28,330,51,351,72,375,92,400,110,428,124,216,50,206,43,186,27,168,9,165,7,163,5,160,3,158,3,156,2,153,3,147,9,145,12,145,331,112,331,112,16,111,11,110,8,105,3,99,3,96,4,90,8,88,10,78,19,69,28,49,44,40,51,30,41,53,20,74,-1,94,-24,111,-49,126,-77,131,-77,145,-49,162,-24,182,-1,203,20,225,41,444,129,417,143,391,160,
+347,97,351,72,347,100,347,100,351,72,348,154,348,154,351,72,352,180,352,180,351,72,375,92,352,180,375,92,375,160,375,160,375,92,400,110,375,160,400,110,400,143,400,143,400,110,428,124,400,143,428,124,428,129,352,180,330,201,332,175,352,180,332,175,340,166,352,180,340,166,343,164,352,180,343,164,345,161,352,180,345,161,347,159,352,180,347,159,347,157,352,180,347,157,348,154,300,214,307,204,310,224,310,224,307,204,314,194,310,224,314,194,330,201,330,201,314,194,323,185,330,201,323,185,332,175,35,143,334,110,334,143,338,144,334,143,339,109,338,144,339,109,341,145,341,145,339,109,343,108,341,145,343,108,344,148,344,148,343,108,345,106,344,148,345,106,347,151,347,151,345,106,347,103,347,151,347,103,347,100,322,67,330,51,331,77,331,77,330,51,351,72,331,77,351,72,340,86,340,86,351,72,342,89,351,72,347,97,346,95,351,72,346,95,344,92,351,72,344,92,342,89,314,58,306,48,309,28,314,58,309,28,330,51,314,58,330,51,322,67,348,154,347,151,347,100,334,110,35,143,35,110,334,143,334,110,339,109,309,28,306,48,299,38,
+216,50,206,43,186,27,168,9,165,7,163,5,160,3,158,3,156,2,153,3,147,9,145,12,145,331,112,331,112,16,111,11,110,8,105,3,99,3,96,4,90,8,88,10,78,19,69,28,49,44,40,51,30,41,53,20,74,-1,94,-24,111,-49,126,-77,131,-77,145,-49,162,-24,182,-1,203,20,225,41,444,129,417,143,391,160,368,180,346,201,325,224,315,214,322,204,330,194,339,185,348,175,359,164,361,161,363,157,363,154,362,151,360,148,357,145,354,144,350,143,108,143,104,145,102,147,100,150,100,155,101,158,107,167,116,176,125,186,133,195,141,205,148,215,138,224,96,180,72,160,47,143,19,129,19,124,
+110,8,107,5,111,-49,111,-49,107,5,105,3,111,-49,105,3,102,3,102,3,99,3,111,-49,111,-49,99,3,96,4,111,-49,96,4,94,-24,94,-24,96,4,93,6,94,-24,93,6,90,8,150,6,147,9,162,-24,162,-24,147,9,145,12,162,-24,145,12,145,-49,145,-49,145,12,145,16,145,16,145,331,131,-77,131,-77,145,331,126,-77,145,331,112,331,126,-77,126,-77,112,331,112,16,126,-77,112,16,111,-49,111,-49,112,16,111,11,111,-49,111,11,110,8,163,5,160,3,162,-24,162,-24,160,3,158,3,162,-24,158,3,156,2,156,2,153,3,162,-24,162,-24,153,3,150,6,186,27,177,18,182,-1,182,-1,177,18,168,9,182,-1,168,9,165,7,206,43,196,35,203,20,206,43,203,20,225,41,206,43,225,41,216,50,186,27,182,-1,203,20,186,27,203,20,196,35,163,5,162,-24,182,-1,163,5,182,-1,165,7,90,8,88,10,94,-24,94,-24,88,10,78,19,94,-24,78,19,74,-1,74,-1,78,19,69,28,74,-1,69,28,59,36,53,20,74,-1,59,36,53,20,59,36,49,44,53,20,49,44,40,51,53,20,40,51,30,41,145,-49,145,16,131,-77,
+444,129,417,143,391,160,368,180,346,201,325,224,315,214,322,204,330,194,339,185,348,175,359,164,361,161,363,157,363,154,362,151,360,148,357,145,354,144,350,143,108,143,104,145,102,147,100,150,100,155,101,158,107,167,116,176,125,186,133,195,141,205,148,215,138,224,96,180,72,160,47,143,19,129,19,124,47,110,72,93,95,73,117,51,137,29,147,39,133,59,124,68,115,78,104,89,102,92,100,94,100,96,99,99,100,102,103,105,109,109,113,110,350,110,355,109,358,108,361,106,363,100,362,97,362,95,356,86,347,77,338,67,330,58,322,48,315,38,325,28,345,51,367,72,391,92,417,110,444,124,225,246,203,266,182,288,162,312,145,337,131,365,126,365,112,337,94,312,74,288,53,267,31,247,40,237,50,244,70,260,79,269,88,277,93,282,96,283,100,285,104,284,107,281,111,275,112,272,112,-16,111,-21,110,-25,107,-28,105,-29,102,-30,93,-27,90,-25,88,-22,78,-13,69,-5,59,2,49,10,40,17,30,7,53,-12,74,-34,94,-58,111,-83,126,-111,131,-111,145,-83,162,-58,181,-34,203,-12,225,7,215,17,206,10,196,2,186,-5,163,-28,160,-29,158,-30,156,-30,153,-29,150,-27,147,-24,145,-20,145,276,147,280,149,282,152,284,157,284,160,283,169,277,178,268,187,260,197,251,206,243,216,236,428,-54,
+104,145,102,147,103,105,103,105,102,147,100,150,103,105,100,150,100,102,100,102,100,150,100,153,99,99,96,180,95,73,95,73,96,180,72,160,95,73,72,160,72,93,72,93,72,160,47,143,72,93,47,143,47,110,47,110,47,143,19,129,47,110,19,129,19,124,138,224,117,202,125,186,138,224,125,186,133,195,138,224,133,195,141,205,138,224,141,205,148,215,117,202,96,180,101,158,117,202,101,158,103,161,117,202,103,161,105,164,117,202,105,164,107,167,117,202,107,167,116,176,117,202,116,176,125,186,100,155,101,158,96,180,100,155,96,180,100,153,124,68,115,78,117,51,117,51,115,78,107,86,117,51,107,86,104,89,137,29,147,39,140,49,137,29,140,49,133,59,137,29,133,59,124,68,137,29,124,68,117,51,363,100,367,72,363,154,363,154,367,72,368,180,368,180,367,72,391,92,368,180,391,92,391,160,391,160,391,92,417,110,391,160,417,110,417,143,417,143,417,110,444,124,417,143,444,124,444,129,368,180,346,201,348,175,368,180,348,175,357,166,368,180,357,166,359,164,368,180,359,164,361,161,368,180,361,161,362,159,368,180,362,159,363,157,368,180,363,157,363,154,315,214,322,204,325,224,325,224,322,204,330,194,325,224,330,194,346,201,346,201,330,194,339,185,346,201,339,185,348,175,350,110,355,109,350,143,354,144,350,143,355,109,354,144,355,109,357,145,357,145,355,109,358,108,357,145,358,108,360,148,360,148,358,108,361,106,360,148,361,106,362,151,362,151,361,106,362,103,362,151,362,103,363,100,338,67,345,51,347,77,347,77,345,51,367,72,347,77,367,72,356,86,356,86,367,72,358,89,362,97,362,95,367,72,362,97,367,72,363,100,360,92,358,89,367,72,360,92,367,72,362,95,330,58,322,48,325,28,330,58,325,28,345,51,330,58,345,51,338,67,363,154,362,151,363,100,350,110,350,143,113,110,113,110,350,143,113,143,113,110,113,143,109,109,108,143,104,145,106,107,108,143,106,107,109,109,108,143,109,109,113,143,100,96,99,99,95,73,100,96,95,73,100,94,100,94,95,73,117,51,100,94,117,51,102,92,102,92,117,51,104,89,100,102,100,153,99,99,104,145,103,105,106,107,325,28,322,48,315,38,100,153,96,180,99,99,
+225,246,203,266,182,288,162,312,145,337,131,365,126,365,112,337,94,312,74,288,53,267,31,247,40,237,50,244,70,260,79,269,88,277,93,282,96,283,100,285,104,284,107,281,111,275,112,272,112,-16,111,-21,110,-25,107,-28,105,-29,102,-30,93,-27,90,-25,88,-22,78,-13,69,-5,59,2,49,10,40,17,30,7,53,-12,74,-34,94,-58,111,-83,126,-111,131,-111,145,-83,162,-58,181,-34,203,-12,225,7,215,17,206,10,196,2,186,-5,163,-28,160,-29,158,-30,156,-30,153,-29,150,-27,147,-24,145,-20,145,276,147,280,149,282,152,284,157,284,160,283,169,277,178,268,187,260,197,251,206,243,216,236,428,-54,118,271,115,274,111,280,110,282,110,285,111,287,111,288,112,290,113,291,115,292,117,294,121,295,124,296,153,296,166,297,178,298,190,300,190,315,182,314,173,313,125,313,103,315,81,318,60,324,39,331,35,328,43,306,48,285,51,263,53,241,54,219,53,210,53,193,52,184,51,176,65,176,68,188,70,214,70,243,72,249,73,251,76,254,77,254,78,255,83,255,85,254,88,254,92,252,404,-77,425,331,403,324,382,318,360,315,338,313,289,313,281,314,272,315,272,300,284,298,297,297,309,296,339,296,342,295,346,294,348,292,350,291,351,290,352,288,353,287,353,282,352,280,348,274,345,271,
+69,-5,74,-34,78,-13,78,-13,74,-34,94,-58,78,-13,94,-58,88,-22,88,-22,94,-58,90,-25,91,280,93,282,94,312,94,312,93,282,96,283,94,312,96,283,112,337,112,337,96,283,98,284,112,337,98,284,100,285,100,285,104,284,112,337,112,337,104,284,107,281,112,337,107,281,109,278,110,-25,107,-28,111,-83,111,-83,107,-28,105,-29,111,-83,105,-29,102,-30,102,-30,99,-29,111,-83,111,-83,99,-29,96,-28,111,-83,96,-28,94,-58,94,-58,96,-28,93,-27,94,-58,93,-27,90,-25,109,278,111,275,112,337,112,337,111,275,112,272,112,272,126,-111,126,365,126,365,126,-111,131,-111,126,365,131,-111,131,365,131,365,131,-111,145,-83,131,365,145,-83,145,271,145,271,145,-83,145,-17,88,277,91,280,94,312,88,277,94,312,79,269,79,269,94,312,74,288,79,269,74,288,70,260,70,260,74,288,60,252,53,267,31,247,40,237,53,267,40,237,50,244,53,267,50,244,60,252,53,267,60,252,74,288,147,280,149,282,162,312,162,312,149,282,152,284,162,312,152,284,155,284,155,284,157,284,162,312,162,312,157,284,160,283,162,312,160,283,163,281,187,260,197,251,203,266,203,266,197,251,206,243,203,266,206,243,225,246,225,246,206,243,216,236,182,288,162,312,163,281,182,288,163,281,166,279,182,288,166,279,169,277,182,288,169,277,178,268,182,288,178,268,187,260,182,288,187,260,203,266,145,337,131,365,145,271,145,337,145,271,145,276,145,337,145,276,147,280,145,337,147,280,162,312,163,-28,160,-29,162,-58,162,-58,160,-29,158,-30,162,-58,158,-30,156,-30,156,-30,153,-29,162,-58,162,-58,153,-29,150,-27,162,-58,150,-27,147,-24,186,-5,177,-14,181,-34,181,-34,177,-14,168,-23,181,-34,168,-23,165,-26,206,10,196,2,203,-12,206,10,203,-12,225,7,206,10,225,7,215,17,186,-5,181,-34,203,-12,186,-5,203,-12,196,2,163,-28,162,-58,181,-34,163,-28,181,-34,165,-26,145,-20,145,-17,145,-83,145,-20,145,-83,162,-58,145,-20,162,-58,147,-24,112,-16,111,-21,111,-83,112,-16,111,-83,126,-111,112,-16,126,-111,112,272,59,2,49,10,53,-12,59,2,53,-12,74,-34,59,2,74,-34,69,-5,40,17,30,7,53,-12,40,17,53,-12,49,10,110,-25,111,-83,111,-21,112,337,112,272,126,365,
+428,-54,118,271,115,274,111,280,110,282,110,285,111,287,111,288,112,290,113,291,115,292,117,294,121,295,124,296,153,296,166,297,178,298,190,300,190,315,182,314,173,313,125,313,103,315,81,318,60,324,39,331,35,328,43,306,48,285,51,263,53,241,54,219,53,210,53,193,52,184,51,176,65,176,68,188,70,214,70,243,72,249,73,251,76,254,77,254,78,255,83,255,85,254,88,254,92,252,404,-77,425,331,403,324,382,318,360,315,338,313,289,313,281,314,272,315,272,300,284,298,297,297,309,296,339,296,342,295,346,294,348,292,350,291,351,290,352,288,353,287,353,282,352,280,348,274,345,271,35,-54,59,-77,372,252,373,253,375,254,377,254,380,255,385,255,387,254,388,254,388,253,390,251,391,249,392,246,392,226,393,214,395,188,397,176,411,176,411,185,410,193,410,241,412,263,415,285,421,307,428,328,
+48,285,51,263,60,324,60,324,51,263,53,241,60,324,53,241,54,219,54,219,53,210,65,176,65,176,53,210,53,201,65,176,53,201,53,193,60,324,39,331,43,306,60,324,43,306,48,285,77,254,78,255,81,318,81,318,78,255,79,255,81,318,79,255,80,255,80,255,83,255,81,318,81,318,83,255,103,315,81,318,60,324,71,246,81,318,71,246,72,249,81,318,72,249,73,251,81,318,73,251,75,253,81,318,75,253,76,254,81,318,76,254,77,254,65,176,68,188,70,243,70,243,68,188,69,201,70,243,69,201,70,239,70,239,69,201,70,214,70,239,70,214,70,226,60,324,54,219,65,176,60,324,65,176,70,243,60,324,70,243,71,246,52,184,51,176,65,176,52,184,65,176,53,193,103,315,92,252,110,282,103,315,110,282,110,284,110,284,110,285,103,315,103,315,110,285,111,287,103,315,111,287,111,288,103,315,83,255,85,254,103,315,85,254,88,254,103,315,88,254,90,253,103,315,90,253,92,252,103,315,111,288,125,313,125,313,111,288,112,290,125,313,112,290,113,291,113,291,115,292,125,313,125,313,115,292,117,294,125,313,117,294,121,295,147,313,127,296,140,296,147,313,140,296,153,296,147,313,147,312,125,313,147,313,125,313,127,296,165,313,166,297,173,313,173,313,166,297,178,298,173,313,178,298,182,314,182,314,178,298,190,300,182,314,190,300,190,315,156,313,147,312,147,313,156,313,147,313,153,296,156,313,153,296,166,297,156,313,166,297,165,313,124,296,127,296,125,313,124,296,125,313,121,295,428,-54,118,271,404,-77,404,-77,118,271,115,274,404,-77,115,274,92,252,92,252,115,274,113,277,92,252,113,277,111,280,43,306,39,331,35,328,92,252,111,280,110,282,
+425,331,403,324,382,318,360,315,338,313,289,313,281,314,272,315,272,300,284,298,297,297,309,296,339,296,342,295,346,294,348,292,350,291,351,290,352,288,353,287,353,282,352,280,348,274,345,271,35,-54,59,-77,372,252,373,253,375,254,377,254,380,255,385,255,387,254,388,254,388,253,390,251,391,249,392,246,392,226,393,214,395,188,397,176,411,176,411,185,410,193,410,241,412,263,415,285,421,307,428,328,428,-74,421,-53,415,-31,412,-9,410,12,410,60,411,68,411,76,397,77,395,65,392,26,392,7,391,4,390,2,387,-1,380,-1,377,0,373,0,372,2,59,331,35,307,345,-17,348,-20,352,-26,353,-28,353,-33,352,-34,351,-36,350,-36,346,-40,342,-41,335,-41,322,-42,309,-42,297,-43,284,-45,272,-46,272,-60,281,-60,289,-59,338,-59,360,-61,382,-65,403,-70,425,-77,428,307,404,331,92,2,90,0,88,0,
+272,315,272,315,281,314,281,314,272,315,284,298,281,314,284,298,289,313,289,313,284,298,297,297,289,313,297,297,298,313,298,313,297,297,309,296,298,313,309,296,307,313,307,313,309,296,315,313,338,313,315,313,322,296,338,313,322,296,335,296,375,254,377,254,382,318,382,318,377,254,380,255,382,318,380,255,382,255,382,255,384,255,403,324,403,324,384,255,385,255,403,324,385,255,387,254,353,285,353,284,360,315,360,315,353,284,372,252,360,315,372,252,382,318,382,318,372,252,373,253,382,318,373,253,375,254,372,252,353,284,353,282,372,252,353,282,352,280,372,252,352,280,350,277,372,252,350,277,348,274,372,252,348,274,345,271,372,252,345,271,59,-77,410,193,410,201,403,324,403,324,410,201,410,210,403,324,410,210,410,219,410,219,410,241,403,324,403,324,410,241,412,263,403,324,412,263,415,285,403,324,415,285,425,331,425,331,415,285,421,307,425,331,421,307,428,328,395,188,397,176,403,324,403,324,397,176,411,176,403,324,411,176,410,193,410,193,411,176,411,185,403,324,387,254,388,254,403,324,388,254,388,253,403,324,388,253,390,251,403,324,390,251,391,249,403,324,391,249,392,246,403,324,392,246,392,243,403,324,392,243,392,239,403,324,392,239,392,226,403,324,392,226,393,214,403,324,393,214,394,201,403,324,394,201,395,188,403,324,382,318,382,255,360,315,338,313,339,296,360,315,339,296,342,295,360,315,342,295,346,294,360,315,346,294,348,292,360,315,348,292,350,291,360,315,350,291,351,290,360,315,351,290,352,288,360,315,352,288,353,287,360,315,353,287,353,285,335,296,339,296,338,313,315,313,309,296,322,296,59,-77,345,271,35,-54,284,298,272,315,272,300,
+428,-74,421,-53,415,-31,412,-9,410,12,410,60,411,68,411,76,397,77,395,65,392,26,392,7,391,4,390,2,387,-1,380,-1,377,0,373,0,372,2,59,331,35,307,345,-17,348,-20,352,-26,353,-28,353,-33,352,-34,351,-36,350,-36,346,-40,342,-41,335,-41,322,-42,309,-42,297,-43,284,-45,272,-46,272,-60,281,-60,289,-59,338,-59,360,-61,382,-65,403,-70,425,-77,428,307,404,331,92,2,90,0,88,0,85,-1,77,-1,76,0,75,0,73,2,72,4,70,10,70,39,68,65,65,77,51,76,53,60,53,43,54,35,53,12,51,-9,48,-31,43,-53,35,-74,39,-77,60,-70,81,-65,103,-61,125,-59,173,-59,182,-60,190,-60,190,-46,178,-45,166,-43,153,-42,140,-42,127,-41,121,-41,117,-40,113,-36,112,-36,111,-34,111,-33,110,-32,
+335,-41,322,-42,338,-59,338,-59,322,-42,315,-59,307,-59,315,-59,309,-42,307,-59,309,-42,298,-59,298,-59,309,-42,297,-43,298,-59,297,-43,289,-59,289,-59,297,-43,284,-45,289,-59,284,-45,281,-60,281,-60,284,-45,272,-46,281,-60,272,-46,272,-60,322,-42,309,-42,315,-59,353,-33,352,-34,360,-61,360,-61,352,-34,351,-36,360,-61,351,-36,350,-36,372,2,59,331,345,-17,372,2,345,-17,348,-20,372,2,348,-20,350,-23,372,2,350,-23,352,-26,372,2,352,-26,353,-28,372,2,353,-28,353,-30,372,2,353,-30,360,-61,372,2,360,-61,382,-65,372,2,382,-65,373,0,387,-1,385,-1,403,-70,403,-70,385,-1,384,-1,403,-70,384,-1,382,-1,382,-1,380,-1,382,-65,382,-65,380,-1,377,0,382,-65,377,0,375,0,360,-61,353,-30,353,-32,360,-61,353,-32,353,-33,393,39,392,26,403,-70,403,-70,392,26,392,14,403,-70,392,14,392,10,415,-31,412,-9,403,-70,403,-70,412,-9,410,12,403,-70,410,12,410,35,410,35,410,43,403,-70,403,-70,410,43,410,52,403,-70,410,52,410,60,411,76,397,77,403,-70,411,76,403,-70,410,60,411,76,410,60,411,68,403,-70,397,77,395,65,403,-70,395,65,394,52,403,-70,394,52,393,39,403,-70,392,10,392,7,403,-70,392,7,391,4,403,-70,391,4,390,2,403,-70,390,2,388,0,403,-70,388,0,387,-1,382,-1,382,-65,403,-70,425,-77,428,-74,421,-53,425,-77,421,-53,415,-31,425,-77,415,-31,403,-70,360,-61,350,-36,348,-38,360,-61,348,-38,346,-40,360,-61,346,-40,342,-41,360,-61,342,-41,339,-41,360,-61,339,-41,338,-59,339,-41,335,-41,338,-59,345,-17,59,331,35,307,373,0,382,-65,375,0,
+428,307,404,331,92,2,90,0,88,0,85,-1,77,-1,76,0,75,0,73,2,72,4,70,10,70,39,68,65,65,77,51,76,53,60,53,43,54,35,53,12,51,-9,48,-31,43,-53,35,-74,39,-77,60,-70,81,-65,103,-61,125,-59,173,-59,182,-60,190,-60,190,-46,178,-45,166,-43,153,-42,140,-42,127,-41,121,-41,117,-40,113,-36,112,-36,111,-34,111,-33,110,-32,110,-28,111,-26,115,-20,118,-17,433,110,433,143,300,143,349,225,320,225,272,143,119,143,113,147,111,153,111,155,113,161,115,164,127,176,135,186,144,196,152,206,159,215,149,225,129,202,107,181,83,161,58,143,30,129,30,124,58,110,83,93,107,73,128,51,148,29,158,39,151,49,143,59,135,68,126,78,115,89,113,92,111,96,110,99,111,102,114,105,120,109,123,110,252,110,204,29,233,29,281,110,433,129,405,143,380,161,
+78,-1,81,-65,79,-1,79,-1,81,-65,80,-1,83,-1,80,-1,81,-65,83,-1,81,-65,103,-61,111,-34,111,-33,103,-61,103,-61,111,-33,110,-32,103,-61,110,-32,110,-30,110,-30,110,-28,103,-61,103,-61,110,-28,92,2,103,-61,92,2,90,0,115,-20,118,-17,404,331,115,-20,404,331,92,2,404,331,118,-17,428,307,92,2,110,-28,111,-26,92,2,111,-26,113,-23,92,2,113,-23,115,-20,103,-61,90,0,88,0,103,-61,88,0,85,-1,103,-61,85,-1,83,-1,147,-59,140,-42,127,-41,147,-59,127,-41,125,-59,147,-59,153,-42,140,-42,156,-59,165,-59,166,-43,166,-43,165,-59,173,-59,166,-43,173,-59,178,-45,178,-45,173,-59,182,-60,178,-45,182,-60,190,-46,190,-46,182,-60,190,-60,156,-59,166,-43,153,-42,156,-59,153,-42,147,-59,121,-41,117,-40,125,-59,125,-59,117,-40,115,-38,125,-59,115,-38,113,-36,124,-41,121,-41,125,-59,124,-41,125,-59,127,-41,125,-59,113,-36,112,-36,125,-59,112,-36,111,-34,125,-59,111,-34,103,-61,81,-65,78,-1,77,-1,81,-65,77,-1,76,0,81,-65,76,0,75,0,81,-65,75,0,73,2,81,-65,73,2,72,4,81,-65,72,4,71,7,81,-65,71,7,60,-70,70,10,70,14,69,52,70,10,69,52,68,65,70,10,68,65,65,77,70,10,65,77,60,-70,70,10,60,-70,71,7,70,39,69,52,70,14,70,39,70,14,70,26,60,-70,65,77,54,35,60,-70,54,35,53,12,60,-70,53,12,51,-9,60,-70,51,-9,48,-31,60,-70,48,-31,43,-53,60,-70,43,-53,39,-77,53,60,53,51,65,77,65,77,53,51,53,43,65,77,53,43,54,35,65,77,51,76,52,68,65,77,52,68,53,60,43,-53,35,-74,39,-77,
+279,331,243,331,206,232,74,232,36,331,1,331,123,0,156,0,16383,16383,195,201,140,51,84,201,202,110,169,110,169,65,165,48,155,37,141,30,128,27,117,26,107,26,92,29,78,36,67,47,
+156,0,279,331,195,201,195,201,279,331,206,232,195,201,206,232,84,201,84,201,206,232,74,232,84,201,74,232,123,0,123,0,74,232,36,331,123,0,36,331,1,331,140,51,84,201,123,0,140,51,123,0,156,0,140,51,156,0,195,201,206,232,279,331,243,331,
+202,110,169,110,169,65,165,48,155,37,141,30,128,27,117,26,107,26,92,29,78,36,67,47,63,65,63,308,67,326,78,337,92,344,105,346,116,347,126,347,140,344,154,338,165,326,169,307,169,262,202,262,202,305,196,339,180,360,158,373,136,379,117,380,97,379,74,373,52,361,36,339,30,306,30,65,36,32,51,11,72,0,94,-5,114,-6,134,-5,157,0,179,10,196,30,202,61,98,313,112,317,119,318,127,319,134,319,161,314,179,300,191,279,198,255,200,228,200,221,199,214,199,207,198,200,196,194,189,203,180,210,169,214,159,217,148,218,107,210,72,188,44,156,26,117,20,75,22,51,30,29,43,11,62,0,88,-5,148,9,190,47,217,98,231,154,235,204,232,250,220,287,202,313,175,329,142,334,131,334,121,333,101,327,93,323,16383,16383,184,160,182,140,180,131,
+105,346,116,347,116,347,117,380,116,347,126,347,117,380,126,347,136,379,136,379,126,347,140,344,136,379,140,344,158,373,158,373,140,344,154,338,158,373,154,338,165,326,202,305,196,339,202,262,202,262,196,339,180,360,202,262,180,360,169,307,169,307,180,360,165,326,78,337,92,344,97,379,97,379,92,344,105,346,97,379,105,346,117,380,117,380,105,346,116,347,74,373,52,361,63,308,74,373,63,308,67,326,74,373,67,326,78,337,74,373,78,337,97,379,30,306,30,65,36,32,30,306,36,32,36,339,36,339,36,32,51,11,36,339,51,11,52,361,52,361,51,11,63,65,52,361,63,65,63,308,165,48,155,37,157,0,157,0,155,37,141,30,157,0,141,30,134,-5,134,-5,141,30,128,27,134,-5,128,27,117,26,117,26,107,26,114,-6,114,-6,107,26,94,-5,107,26,92,29,94,-5,94,-5,92,29,78,36,94,-5,78,36,72,0,72,0,78,36,67,47,72,0,67,47,63,65,63,65,51,11,72,0,202,110,169,110,179,10,202,110,179,10,196,30,202,110,196,30,202,61,179,10,169,110,169,65,179,10,169,65,165,48,179,10,165,48,157,0,117,26,114,-6,134,-5,202,262,169,307,169,262,158,373,165,326,180,360,
+98,313,112,317,119,318,127,319,134,319,161,314,179,300,191,279,198,255,200,228,200,221,199,214,199,207,198,200,196,194,189,203,180,210,169,214,159,217,148,218,107,210,72,188,44,156,26,117,20,75,22,51,30,29,43,11,62,0,88,-5,148,9,190,47,217,98,231,154,235,204,232,250,220,287,202,313,175,329,142,334,131,334,121,333,101,327,93,323,16383,16383,184,160,182,140,180,131,178,121,176,110,166,80,152,53,135,30,116,15,94,9,78,13,68,21,63,33,61,46,60,59,65,100,79,139,99,172,124,194,153,203,161,201,169,197,177,189,182,176,184,160,243,0,243,331,36,331,36,298,210,298,210,182,42,182,42,149,210,149,210,33,36,33,36,0,243,0,243,331,199,331,219,387,190,387,170,331,36,331,36,298,159,298,119,182,42,182,42,149,108,149,68,33,36,33,36,0,56,0,36,-60,65,-60,85,0,16383,16383,210,182,148,182,188,298,210,298,16383,16383,210,33,97,33,137,149,210,149,353,291,318,291,289,258,272,270,253,279,233,285,212,290,190,291,138,283,93,259,57,223,34,178,25,126,27,100,33,75,43,51,56,30,72,11,28,-39,63,-39,92,-6,110,-17,129,-26,148,-33,169,-37,190,-39,242,-30,288,-6,
+127,319,134,319,134,319,142,334,134,319,161,314,142,334,161,314,175,329,175,329,161,314,179,300,175,329,179,300,202,313,202,313,179,300,191,279,202,313,191,279,198,255,112,317,119,318,121,333,121,333,119,318,127,319,121,333,127,319,131,334,131,334,127,319,134,319,131,334,134,319,142,334,93,323,98,313,101,327,101,327,98,313,105,315,101,327,105,315,111,330,111,330,105,315,112,317,111,330,112,317,121,333,152,53,135,30,148,9,148,9,135,30,116,15,148,9,116,15,94,9,94,9,78,13,88,-5,88,-5,78,13,68,21,88,-5,68,21,62,0,62,0,68,21,63,33,62,0,63,33,61,46,61,46,60,59,62,0,62,0,60,59,44,156,44,156,60,59,72,188,72,188,60,59,65,100,20,75,22,51,26,117,26,117,22,51,30,29,26,117,30,29,44,156,44,156,30,29,43,11,44,156,43,11,62,0,159,217,153,203,161,201,159,217,161,201,169,214,169,214,161,201,169,197,169,214,169,197,180,210,180,210,169,197,177,189,180,210,177,189,182,176,79,139,99,172,107,210,107,210,99,172,124,194,107,210,124,194,148,218,148,218,124,194,153,203,148,218,153,203,159,217,72,188,65,100,79,139,72,188,79,139,107,210,182,140,180,131,190,47,190,47,180,131,178,121,190,47,178,121,176,110,176,110,166,80,190,47,190,47,166,80,152,53,190,47,152,53,148,9,198,200,196,194,217,98,217,98,196,194,190,47,190,47,196,194,189,203,190,47,189,203,184,160,184,160,189,203,182,176,190,47,184,160,183,150,190,47,183,150,182,140,94,9,88,-5,148,9,235,204,232,250,231,154,231,154,232,250,220,287,231,154,220,287,217,98,217,98,220,287,202,313,217,98,202,313,200,228,200,228,202,313,198,255,217,98,200,228,200,221,217,98,200,221,199,214,217,98,199,214,199,207,217,98,199,207,198,200,180,210,182,176,189,203,
+243,0,243,331,36,331,36,298,210,298,210,182,42,182,42,149,210,149,210,33,36,33,36,0,243,0,243,331,199,331,219,387,190,387,170,331,36,331,36,298,159,298,119,182,42,182,42,149,
+42,182,210,149,210,182,210,182,210,149,243,0,210,182,243,0,210,298,210,298,243,0,243,331,210,298,243,331,36,331,243,0,210,149,210,33,243,0,210,33,36,33,243,0,36,33,36,0,210,298,36,331,36,298,210,149,42,182,42,149,
+243,0,243,331,199,331,219,387,190,387,170,331,36,331,36,298,159,298,119,182,42,182,42,149,108,149,68,33,36,33,36,0,56,0,36,-60,65,-60,85,0,16383,16383,210,182,148,182,188,298,210,298,16383,16383,210,33,97,33,137,149,210,149,353,291,318,291,289,258,272,270,253,279,233,285,212,290,190,291,138,283,93,259,57,223,34,178,25,126,27,100,33,75,43,51,56,30,72,11,28,-39,63,-39,92,-6,110,-17,129,-26,148,-33,169,-37,190,-39,242,-30,288,-6,324,28,348,74,
+36,331,159,298,170,331,170,331,159,298,188,298,170,331,188,298,190,387,190,387,188,298,199,331,190,387,199,331,219,387,159,298,137,149,148,182,148,182,137,149,210,149,148,182,210,149,210,182,210,182,210,149,243,0,210,182,243,0,210,298,210,298,243,0,243,331,210,298,243,331,199,331,159,298,119,182,137,149,137,149,119,182,108,149,137,149,108,149,97,33,97,33,108,149,85,0,97,33,85,0,243,0,68,33,36,33,56,0,68,33,56,0,65,-60,68,33,65,-60,85,0,68,33,85,0,108,149,210,33,97,33,243,0,210,33,243,0,210,149,42,182,42,149,108,149,42,182,108,149,119,182,65,-60,56,0,36,-60,159,298,36,331,36,298,56,0,36,33,36,0,159,298,148,182,188,298,199,331,188,298,210,298,
+353,291,318,291,289,258,272,270,253,279,233,285,212,290,190,291,138,283,93,259,57,223,34,178,25,126,27,100,33,75,43,51,56,30,72,11,28,-39,63,-39,92,-6,110,-17,129,-26,148,-33,169,-37,190,-39,242,-30,288,-6,324,28,348,74,356,126,354,152,348,176,338,200,325,221,309,241,16383,16383,287,217,300,201,310,184,317,166,322,147,323,127,316,85,297,48,269,19,232,0,190,-6,174,-5,158,-2,142,2,127,9,113,18,16383,16383,94,36,81,51,71,68,64,86,60,106,58,127,65,168,84,205,112,233,148,252,190,258,208,257,225,254,241,248,256,241,267,233,333,0,185,337,175,337,31,0,16383,16383,272,21,63,21,167,267,334,331,31,331,180,-5,190,-5,16383,16383,302,310,197,64,93,310,313,-12,313,20,167,20,137,24,111,37,89,57,73,82,64,109,313,109,313,142,65,142,74,170,90,195,112,215,138,228,167,233,313,233,313,266,166,266,121,258,84,238,55,207,37,169,30,126,37,83,55,45,84,14,122,-5,167,-12,313,-12,313,20,154,20,148,22,142,23,136,25,179,109,313,109,313,142,195,142,239,233,313,233,313,266,256,266,289,331,257,331,225,266,166,266,121,258,84,238,55,207,37,169,30,126,33,97,42,70,
+323,127,316,85,324,28,324,28,316,85,297,48,324,28,297,48,288,-6,288,-6,297,48,269,19,288,-6,269,19,242,-30,242,-30,269,19,232,0,242,-30,232,0,190,-39,190,-39,232,0,190,-6,127,9,129,-26,142,2,142,2,129,-26,148,-33,142,2,148,-33,158,-2,158,-2,148,-33,169,-37,158,-2,169,-37,174,-5,174,-5,169,-37,190,-39,174,-5,190,-39,190,-6,127,9,113,18,129,-26,267,233,113,18,287,217,267,233,287,217,272,270,129,-26,113,18,110,-17,110,-17,113,18,94,36,110,-17,94,36,92,-6,92,-6,94,36,81,51,92,-6,81,51,72,11,72,11,81,51,71,68,72,11,71,68,64,86,58,127,65,168,57,223,58,127,57,223,56,30,58,127,56,30,60,106,60,106,56,30,72,11,60,106,72,11,64,86,27,100,33,75,34,178,34,178,33,75,43,51,34,178,43,51,57,223,57,223,43,51,56,30,267,233,272,270,256,241,256,241,272,270,253,279,256,241,253,279,241,248,241,248,253,279,233,285,241,248,233,285,225,254,225,254,233,285,212,290,225,254,212,290,208,257,208,257,212,290,190,258,148,252,190,258,190,291,148,252,190,291,138,283,65,168,84,205,93,259,93,259,84,205,112,233,93,259,112,233,138,283,138,283,112,233,148,252,212,290,190,291,190,258,318,291,289,258,300,201,318,291,300,201,309,241,318,291,309,241,353,291,289,258,272,270,287,217,289,258,287,217,300,201,63,-39,92,-6,72,11,63,-39,72,11,28,-39,348,176,338,200,348,74,348,176,348,74,356,126,348,176,356,126,354,152,325,221,309,241,310,184,325,221,310,184,317,166,325,221,317,166,322,147,325,221,322,147,323,127,325,221,323,127,324,28,325,221,324,28,348,74,325,221,348,74,338,200,310,184,309,241,300,201,94,36,113,18,267,233,57,223,65,168,93,259,27,100,34,178,25,126,
+333,0,185,337,175,337,31,0,16383,16383,272,21,63,21,167,267,334,331,31,331,180,-5,190,-5,16383,16383,302,310,197,64,93,310,
+175,337,31,0,63,21,63,21,31,0,333,0,63,21,333,0,272,21,272,21,333,0,185,337,272,21,185,337,175,337,175,337,63,21,167,267,175,337,167,267,272,21,
+334,331,31,331,180,-5,190,-5,16383,16383,302,310,197,64,93,310,313,-12,313,20,167,20,137,24,111,37,89,57,73,82,64,109,
+334,331,31,331,93,310,334,331,93,310,302,310,334,331,302,310,197,64,334,331,197,64,190,-5,180,-5,190,-5,197,64,180,-5,197,64,93,310,180,-5,93,310,31,331,
+313,-12,313,20,167,20,137,24,111,37,89,57,73,82,64,109,313,109,313,142,65,142,74,170,90,195,112,215,138,228,167,233,313,233,313,266,166,266,121,258,84,238,55,207,37,169,30,126,37,83,55,45,84,14,122,-5,167,-12,313,-12,313,20,154,20,148,22,142,23,136,25,179,109,313,109,313,142,195,142,239,233,313,233,313,266,256,266,289,331,257,331,225,266,166,266,121,258,84,238,55,207,37,169,30,126,33,97,42,70,55,45,73,24,96,7,54,-78,
+55,45,84,14,64,109,64,109,65,142,55,45,55,45,65,142,55,207,55,45,55,207,37,83,37,83,55,207,37,169,37,83,37,169,30,126,65,142,64,109,313,109,65,142,313,109,313,142,90,195,112,215,121,258,121,258,112,215,138,228,121,258,138,228,166,266,166,266,138,228,167,233,166,266,167,233,313,266,313,266,167,233,313,233,84,238,55,207,65,142,84,238,65,142,74,170,84,238,74,170,90,195,84,238,90,195,121,258,167,-12,313,-12,313,20,167,-12,313,20,167,20,167,-12,167,20,137,24,167,-12,137,24,122,-5,137,24,111,37,122,-5,122,-5,111,37,89,57,122,-5,89,57,84,14,84,14,89,57,73,82,84,14,73,82,64,109,
+313,-12,313,20,154,20,148,22,142,23,136,25,179,109,313,109,313,142,195,142,239,233,313,233,313,266,256,266,289,331,257,331,225,266,166,266,121,258,84,238,55,207,37,169,30,126,33,97,42,70,55,45,73,24,96,7,54,-78,84,-78,121,-5,130,-7,139,-10,157,-12,167,-12,16383,16383,209,233,164,142,65,142,74,170,90,195,112,215,138,228,167,233,16383,16383,147,109,112,37,98,49,86,62,76,77,69,93,64,109,211,22,211,55,138,55,116,57,97,64,83,75,72,90,65,109,211,109,211,142,65,142,72,162,82,177,97,188,115,194,137,196,211,196,211,229,137,229,102,224,73,210,51,188,37,159,32,126,37,93,51,65,73,42,102,28,137,22,30,266,30,233,175,233,205,228,231,215,253,195,269,170,278,142,30,142,30,109,278,109,269,82,253,57,232,37,205,24,175,20,30,20,30,-12,175,-12,220,-5,258,14,287,45,306,83,
+96,7,96,7,84,-78,96,7,84,-78,121,-5,96,7,121,-5,98,49,96,7,98,49,86,62,96,7,86,62,76,77,96,7,76,77,73,24,55,45,73,24,64,109,64,109,73,24,69,93,69,93,73,24,76,77,161,20,154,20,157,-12,157,-12,154,20,148,22,157,-12,148,22,148,-11,148,-11,148,22,142,23,148,-11,142,23,139,-10,139,-10,142,23,136,25,139,-10,136,25,130,-7,147,109,112,37,121,-5,147,109,121,-5,130,-7,147,109,130,-7,136,25,147,109,136,25,179,109,147,109,179,109,164,142,147,109,164,142,65,142,147,109,65,142,64,109,167,-12,313,-12,313,20,167,-12,313,20,167,20,167,-12,167,20,161,20,167,-12,161,20,157,-12,90,195,112,215,121,258,121,258,112,215,138,228,121,258,138,228,166,266,166,266,138,228,167,233,166,266,167,233,225,266,225,266,167,233,209,233,225,266,209,233,239,233,239,233,209,233,195,142,256,266,289,331,257,331,256,266,257,331,239,233,256,266,239,233,313,233,256,266,313,233,313,266,179,109,313,109,195,142,179,109,195,142,209,233,179,109,209,233,164,142,84,238,55,207,65,142,84,238,65,142,74,170,84,238,74,170,90,195,84,238,90,195,121,258,30,126,33,97,37,169,37,169,33,97,42,70,37,169,42,70,55,207,55,207,42,70,55,45,55,207,55,45,65,142,65,142,55,45,64,109,195,142,313,109,313,142,84,-78,96,7,54,-78,98,49,121,-5,112,37,225,266,239,233,257,331,
+211,22,211,55,138,55,116,57,97,64,83,75,72,90,65,109,211,109,211,142,65,142,72,162,82,177,97,188,115,194,137,196,211,196,211,229,137,229,102,224,73,210,51,188,37,159,32,126,37,93,51,65,73,42,102,28,137,22,30,266,30,233,175,233,205,228,231,215,253,195,269,170,278,142,30,142,30,109,278,109,269,82,253,57,232,37,205,24,175,20,30,20,30,-12,175,-12,220,-5,258,14,287,45,306,83,312,126,313,126,306,169,288,207,259,238,222,258,
+83,75,72,90,73,42,73,42,72,90,65,109,73,42,65,109,51,188,73,42,51,188,51,65,51,65,51,188,37,159,51,65,37,159,37,93,37,93,37,159,32,126,82,177,97,188,102,224,102,224,97,188,115,194,102,224,115,194,137,229,137,229,115,194,137,196,51,188,65,109,65,142,65,142,65,109,211,142,211,142,65,109,211,109,211,229,137,229,137,196,211,229,137,196,211,196,73,210,51,188,65,142,73,210,65,142,72,162,73,210,72,162,82,177,73,210,82,177,102,224,97,64,102,28,116,57,116,57,102,28,137,22,116,57,137,22,138,55,138,55,137,22,211,22,138,55,211,22,211,55,83,75,73,42,102,28,83,75,102,28,97,64,
+30,266,30,233,175,233,205,228,231,215,253,195,269,170,278,142,30,142,30,109,278,109,269,82,253,57,232,37,205,24,175,20,30,20,30,-12,175,-12,220,-5,258,14,287,45,306,83,312,126,313,126,306,169,288,207,259,238,222,258,177,266,289,331,257,331,222,258,213,261,204,263,196,264,186,265,177,266,30,266,30,233,175,233,182,232,188,232,194,231,200,229,206,228,164,142,30,142,30,109,147,109,103,20,30,20,30,-12,86,-12,54,-78,84,-78,117,-12,175,-12,220,-5,258,14,
+269,82,253,57,258,14,258,14,253,57,232,37,258,14,232,37,220,-5,220,-5,232,37,205,24,220,-5,205,24,175,20,177,266,30,266,175,233,177,266,175,233,205,228,177,266,205,228,222,258,312,126,306,169,306,83,306,83,306,169,288,207,306,83,288,207,287,45,287,45,288,207,278,109,287,45,278,109,269,82,231,215,253,195,259,238,259,238,253,195,269,170,259,238,269,170,288,207,288,207,269,170,278,142,288,207,278,142,278,109,222,258,205,228,231,215,222,258,231,215,259,238,175,-12,220,-5,175,20,175,-12,175,20,30,20,175,-12,30,20,30,-12,278,109,278,142,30,142,278,109,30,142,30,109,269,82,258,14,287,45,175,233,30,266,30,233,
+289,331,257,331,222,258,213,261,204,263,196,264,186,265,177,266,30,266,30,233,175,233,182,232,188,232,194,231,200,229,206,228,164,142,30,142,30,109,147,109,103,20,30,20,30,-12,86,-12,54,-78,84,-78,117,-12,175,-12,220,-5,258,14,287,45,306,83,312,126,313,126,310,155,301,183,287,208,269,229,247,247,16383,16383,195,142,230,214,244,203,256,190,266,175,273,159,278,142,16383,16383,278,109,269,82,253,57,232,37,205,24,175,20,133,20,179,109,32,229,32,196,105,196,128,194,146,188,161,177,171,162,177,142,32,142,32,109,177,109,171,90,161,75,146,64,127,57,105,55,32,55,32,22,107,22,141,28,170,42,192,65,206,93,211,126,206,159,192,188,170,210,140,224,105,229,243,0,243,320,30,320,30,0,474,-128,474,-115,465,-115,447,-112,433,-104,424,-92,418,-74,416,-51,416,307,418,330,423,347,434,359,451,366,474,368,474,382,26,382,26,368,35,368,52,366,66,360,76,349,83,331,85,305,
+86,-12,54,-78,84,-78,86,-12,84,-78,117,-12,86,-12,117,-12,103,20,86,-12,103,20,30,20,86,-12,30,20,30,-12,147,109,103,20,117,-12,147,109,117,-12,133,20,147,109,133,20,179,109,147,109,179,109,164,142,147,109,164,142,30,142,147,109,30,142,30,109,269,82,253,57,258,14,258,14,253,57,232,37,258,14,232,37,220,-5,220,-5,232,37,205,24,220,-5,205,24,175,20,195,142,230,214,206,228,206,228,213,261,204,263,206,228,204,263,200,229,200,229,204,263,196,264,200,229,196,264,194,231,194,231,196,264,188,232,30,266,175,233,177,266,177,266,175,233,182,232,177,266,182,232,186,265,186,265,182,232,188,232,186,265,188,232,196,264,257,331,222,258,230,214,257,331,230,214,247,247,257,331,247,247,289,331,230,214,244,203,247,247,247,247,244,203,256,190,247,247,256,190,269,229,269,229,256,190,266,175,269,229,266,175,273,159,213,261,206,228,230,214,213,261,230,214,222,258,273,159,278,142,287,208,278,109,278,142,195,142,278,109,195,142,179,109,179,109,195,142,206,228,179,109,206,228,164,142,312,126,310,155,306,83,306,83,310,155,301,183,306,83,301,183,287,45,287,45,301,183,287,208,287,45,287,208,278,109,278,109,287,208,278,142,269,82,258,14,287,45,269,82,287,45,278,109,175,-12,220,-5,175,20,175,-12,175,20,133,20,175,-12,133,20,117,-12,269,229,273,159,287,208,175,233,30,266,30,233,
+32,229,32,196,105,196,128,194,146,188,161,177,171,162,177,142,32,142,32,109,177,109,171,90,161,75,146,64,127,57,105,55,32,55,32,22,107,22,141,28,170,42,192,65,206,93,211,126,206,159,192,188,170,210,140,224,105,229,243,0,243,320,30,320,30,0,474,-128,474,-115,465,-115,447,-112,433,-104,424,-92,418,-74,416,-51,416,307,418,330,423,347,434,359,451,366,474,368,474,382,26,382,26,368,35,368,52,366,66,360,76,349,83,331,85,305,85,-60,83,-80,
+105,229,32,229,105,229,105,229,32,229,105,196,105,229,105,196,140,224,140,224,105,196,128,194,140,224,128,194,146,188,192,188,177,142,192,65,192,65,177,142,177,109,192,65,177,109,171,90,32,142,32,109,177,109,32,142,177,109,177,142,146,188,161,177,170,210,170,210,161,177,171,162,170,210,171,162,192,188,192,188,171,162,177,142,206,159,192,188,192,65,206,159,192,65,206,93,206,159,206,93,211,126,170,42,192,65,171,90,170,42,171,90,161,75,170,42,161,75,146,64,170,42,146,64,141,28,127,57,105,55,107,22,127,57,107,22,141,28,127,57,141,28,146,64,32,55,32,22,107,22,32,55,107,22,105,55,105,196,32,229,32,196,140,224,146,188,170,210,
+243,0,243,320,30,320,30,0,474,-128,474,-115,465,-115,447,-112,
+243,0,243,320,30,320,243,0,30,320,30,0,
+474,-128,474,-115,465,-115,447,-112,433,-104,424,-92,418,-74,416,-51,416,307,418,330,423,347,434,359,451,366,474,368,474,382,26,382,26,368,35,368,52,366,66,360,76,349,83,331,85,305,85,-60,83,-80,77,-95,67,-106,54,-112,36,-115,26,-115,26,-128,210,-128,210,-115,195,-115,177,-112,165,-104,157,-91,152,-72,151,-48,151,349,350,349,350,-48,349,-69,344,-88,337,-102,324,-111,306,-115,290,-115,290,-128,474,-128,474,-115,451,-112,434,-106,423,-94,418,-77,416,-54,416,304,418,327,424,345,433,358,447,365,465,368,474,368,474,382,290,382,290,368,306,368,324,364,337,355,344,341,349,322,350,300,350,-96,151,-96,151,300,152,325,157,344,165,357,177,365,195,368,210,368,210,382,26,382,26,368,36,368,54,366,67,359,77,348,83,333,85,313,85,-53,83,-78,76,-96,66,-107,52,-113,35,-115,26,-115,26,-128,
+77,-95,67,-106,210,-128,210,-128,67,-106,54,-112,210,-128,54,-112,36,-115,344,-88,337,-102,474,-128,474,-128,337,-102,324,-111,474,-128,324,-111,306,-115,474,382,26,382,35,368,474,382,35,368,52,366,474,382,52,366,66,360,474,382,66,360,76,349,474,382,76,349,151,349,474,382,151,349,350,349,474,382,350,349,434,359,474,382,434,359,451,366,474,382,451,366,474,368,433,-104,424,-92,350,-48,350,-48,424,-92,418,-74,350,-48,418,-74,350,349,350,349,418,-74,416,-51,350,349,416,-51,416,307,350,349,416,307,418,330,350,349,418,330,423,347,350,349,423,347,434,359,165,-104,157,-91,85,-60,85,-60,157,-91,152,-72,85,-60,152,-72,85,305,85,305,152,-72,151,-48,85,305,151,-48,151,349,83,331,85,305,151,349,83,331,151,349,76,349,474,-128,474,-115,465,-115,474,-128,465,-115,447,-112,474,-128,447,-112,433,-104,474,-128,433,-104,349,-69,474,-128,349,-69,344,-88,290,-115,290,-128,474,-128,290,-115,474,-128,306,-115,210,-128,210,-115,195,-115,210,-128,195,-115,177,-112,210,-128,177,-112,83,-80,210,-128,83,-80,77,-95,85,-60,83,-80,177,-112,85,-60,177,-112,165,-104,26,-115,26,-128,210,-128,26,-115,210,-128,36,-115,349,-69,433,-104,350,-48,35,368,26,382,26,368,
+474,-128,474,-115,451,-112,434,-106,423,-94,418,-77,416,-54,416,304,418,327,424,345,433,358,447,365,465,368,474,368,474,382,290,382,290,368,306,368,324,364,337,355,344,341,349,322,350,300,350,-96,151,-96,151,300,152,325,157,344,165,357,177,365,195,368,210,368,210,382,26,382,26,368,36,368,54,366,67,359,77,348,83,333,85,313,85,-53,83,-78,76,-96,66,-107,52,-113,35,-115,26,-115,26,-128,428,20,413,20,405,-7,394,-30,379,-48,357,-59,328,-63,121,-63,289,153,144,349,304,349,339,346,364,336,381,318,392,292,400,256,415,256,415,382,41,382,225,126,29,-128,401,-128,310,110,310,143,32,143,32,110,319,218,319,251,24,251,24,218,16383,16383,319,54,319,86,188,86,188,191,155,191,155,86,24,86,24,54,155,54,155,-43,188,-43,188,54,203,339,201,349,196,358,189,365,180,369,171,371,
+76,-96,66,-107,474,-128,474,-128,66,-107,52,-113,474,-128,52,-113,35,-115,77,348,83,333,210,382,210,382,83,333,177,365,210,382,177,365,195,368,210,382,195,368,210,368,85,313,85,-53,151,-96,85,313,151,-96,151,300,85,313,151,300,152,325,85,313,152,325,157,344,85,313,157,344,165,357,85,313,165,357,177,365,85,313,177,365,83,333,210,382,26,382,36,368,210,382,36,368,54,366,210,382,54,366,67,359,210,382,67,359,77,348,434,-106,423,-94,350,-96,350,-96,423,-94,418,-77,350,-96,418,-77,350,300,349,322,350,300,433,358,349,322,433,358,474,382,474,382,433,358,447,365,474,382,447,365,465,368,474,382,465,368,474,368,416,-54,416,304,350,300,350,300,416,304,418,327,350,300,418,327,424,345,474,382,290,382,306,368,474,382,306,368,324,364,474,382,324,364,337,355,474,382,337,355,344,341,474,382,344,341,349,322,474,-128,474,-115,451,-112,474,-128,451,-112,434,-106,474,-128,434,-106,350,-96,474,-128,350,-96,151,-96,474,-128,151,-96,76,-96,83,-78,76,-96,151,-96,83,-78,151,-96,85,-53,26,-115,26,-128,474,-128,26,-115,474,-128,35,-115,350,300,418,-77,416,-54,306,368,290,382,290,368,433,358,350,300,424,345,36,368,26,382,26,368,
+428,20,413,20,405,-7,394,-30,379,-48,357,-59,328,-63,121,-63,289,153,144,349,304,349,339,346,364,336,381,318,392,292,400,256,415,256,415,382,41,382,225,126,29,-128,401,-128,310,110,310,143,32,143,32,110,319,218,319,251,24,251,24,218,16383,16383,319,54,319,86,188,86,188,191,155,191,155,86,24,86,24,54,155,54,155,-43,188,-43,188,54,203,339,
+415,382,41,382,144,349,415,382,144,349,304,349,415,382,304,349,339,346,415,382,339,346,364,336,415,382,364,336,381,318,415,382,381,318,392,292,415,382,392,292,400,256,415,382,400,256,415,256,225,126,29,-128,121,-63,225,126,121,-63,289,153,225,126,289,153,144,349,225,126,144,349,41,382,394,-30,379,-48,401,-128,401,-128,379,-48,357,-59,401,-128,357,-59,328,-63,405,-7,394,-30,401,-128,405,-7,401,-128,428,20,405,-7,428,20,413,20,121,-63,29,-128,401,-128,121,-63,401,-128,328,-63,
+310,110,310,143,32,143,32,110,319,218,319,251,24,251,24,218,
+310,110,310,143,32,143,310,110,32,143,32,110,
+319,218,319,251,24,251,24,218,16383,16383,319,54,319,86,188,86,188,191,155,191,155,86,24,86,24,54,155,54,155,-43,188,-43,188,54,203,339,201,349,196,358,189,365,180,369,171,371,161,369,153,365,146,358,141,350,139,339,140,328,145,319,151,313,160,308,171,307,181,309,
+24,251,24,218,319,218,24,251,319,218,319,251,188,191,155,191,188,-43,188,-43,155,191,155,86,188,-43,155,86,155,54,155,54,155,86,24,86,155,54,24,86,24,54,188,54,319,54,188,86,188,86,319,54,319,86,188,-43,155,54,155,-43,
+203,339,201,349,196,358,189,365,180,369,171,371,161,369,153,365,146,358,141,350,139,339,140,328,145,319,151,313,160,308,171,307,181,309,190,313,197,320,201,329,203,339,16383,16383,318,110,318,143,188,143,188,273,155,273,155,143,24,143,24,110,155,110,155,-20,188,-20,188,110,239,355,203,355,23,-110,59,-110,201,46,44,205,12,205,171,46,228,169,227,175,225,181,221,185,216,189,210,190,208,190,206,189,204,189,202,188,200,186,191,180,182,170,170,158,156,145,137,133,138,153,142,172,146,190,150,204,151,215,150,222,147,227,143,231,138,234,132,235,
+171,371,171,307,180,369,180,369,171,307,181,309,180,369,181,309,189,365,189,365,181,309,190,313,189,365,190,313,196,358,196,358,190,313,197,320,196,358,197,320,201,349,201,349,197,320,201,329,201,349,201,329,203,339,139,339,140,328,141,350,141,350,140,328,145,319,141,350,145,319,146,358,146,358,145,319,151,313,146,358,151,313,153,365,153,365,151,313,160,308,153,365,160,308,161,369,161,369,160,308,171,307,161,369,171,307,171,371,188,273,155,273,188,-20,188,-20,155,273,155,143,188,-20,155,143,155,110,155,110,155,143,24,143,155,110,24,143,24,110,188,110,318,110,188,143,188,143,318,110,318,143,188,-20,155,110,155,-20,
+239,355,203,355,23,-110,59,-110,201,46,44,205,12,205,171,46,
+239,355,203,355,23,-110,239,355,23,-110,59,-110,
+201,46,44,205,12,205,171,46,228,169,227,175,225,181,221,185,
+201,46,44,205,12,205,201,46,12,205,171,46,
+228,169,227,175,225,181,221,185,216,189,210,190,208,190,206,189,204,189,202,188,200,186,191,180,182,170,170,158,156,145,137,133,138,153,142,172,146,190,150,204,151,215,150,222,147,227,143,231,138,234,132,235,127,234,121,231,117,227,114,222,113,215,114,204,118,189,122,172,126,153,127,132,111,143,96,155,72,179,62,186,63,186,60,188,58,189,56,189,54,190,51,190,45,189,40,185,37,181,34,175,33,169,34,165,35,162,37,159,40,156,44,153,55,149,70,144,87,139,105,133,122,125,105,117,88,111,71,106,56,102,46,98,42,95,39,91,37,87,36,82,35,78,36,73,38,69,42,65,47,63,54,62,56,62,59,63,61,64,67,66,75,72,85,83,98,95,112,108,127,118,126,98,122,80,118,63,114,49,113,37,114,31,117,26,121,21,127,18,132,17,138,18,143,21,147,26,150,31,151,37,150,49,146,63,142,80,138,98,137,118,157,104,173,89,185,75,196,65,208,61,215,62,220,65,224,70,227,75,228,81,227,85,226,88,224,91,221,95,217,97,207,101,193,105,177,109,159,116,140,125,161,135,179,142,195,146,208,149,218,153,221,155,224,158,226,162,228,165,228,169,155,126,152,147,142,166,128,180,110,190,89,194,67,190,48,181,33,167,24,148,20,127,23,105,33,86,47,72,66,62,88,59,109,62,128,72,142,86,152,105,155,126,16383,16383,122,126,120,115,116,105,108,98,99,93,88,92,77,93,67,98,60,106,55,115,53,127,55,138,59,147,67,154,77,159,89,161,99,159,108,154,116,147,120,137,122,126,155,126,152,147,142,166,128,180,110,190,89,194,67,190,48,181,33,167,24,148,20,127,23,105,33,86,47,72,66,62,88,59,109,62,128,72,142,86,152,105,155,126,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,149,381,156,391,162,399,169,404,177,407,185,408,195,407,202,404,208,399,212,392,213,382,211,369,204,359,195,351,183,345,171,340,171,335,184,335,189,334,193,333,196,333,206,328,213,323,219,315,222,306,223,296,222,284,217,274,210,266,201,261,190,259,186,260,182,260,178,262,173,264,168,267,164,270,161,272,152,275,146,273,144,271,142,268,142,265,143,260,146,255,152,251,160,249,171,248,193,250,214,257,231,269,242,286,
+146,63,142,80,143,21,143,21,142,80,138,98,143,21,138,98,138,18,138,18,138,98,137,118,137,133,138,234,132,17,132,17,138,234,132,235,132,17,132,235,127,118,127,118,132,235,127,132,127,118,127,132,122,125,122,125,127,132,111,143,138,153,142,172,143,231,143,231,142,172,146,190,143,231,146,190,147,227,147,227,146,190,150,204,147,227,150,204,150,222,150,222,150,204,151,215,138,234,137,133,138,153,138,234,138,153,143,231,127,118,126,98,127,18,127,118,127,18,132,17,113,37,114,31,114,49,114,49,114,31,117,26,114,49,117,26,118,63,118,63,117,26,121,21,118,63,121,21,122,80,122,80,121,21,127,18,122,80,127,18,126,98,137,118,157,104,140,125,140,125,157,104,159,116,159,116,157,104,173,89,159,116,173,89,177,109,177,109,173,89,185,75,177,109,185,75,193,105,193,105,185,75,196,65,193,105,196,65,207,101,207,101,196,65,208,61,207,101,208,61,217,97,217,97,208,61,215,62,217,97,215,62,220,65,221,155,224,158,225,181,225,181,224,158,226,162,225,181,226,162,227,175,227,175,226,162,228,165,227,175,228,165,228,169,221,185,216,189,218,153,221,185,218,153,221,155,221,185,221,155,225,181,216,189,210,190,218,153,218,153,210,190,208,190,218,153,208,190,208,149,208,149,208,190,206,189,208,149,206,189,204,189,204,189,202,188,208,149,208,149,202,188,200,186,208,149,200,186,195,146,195,146,200,186,191,180,195,146,191,180,182,170,156,145,140,125,161,135,156,145,161,135,170,158,170,158,161,135,179,142,170,158,179,142,182,170,182,170,179,142,195,146,137,133,137,118,140,125,137,133,140,125,156,145,137,118,137,133,132,17,137,118,132,17,138,18,228,81,227,85,227,75,227,75,227,85,226,88,227,75,226,88,224,70,224,70,226,88,224,91,224,70,224,91,221,95,221,95,217,97,220,65,221,95,220,65,224,70,150,49,146,63,147,26,150,49,147,26,150,31,150,49,150,31,151,37,127,132,132,235,127,234,127,132,127,234,126,153,126,153,127,234,122,172,122,172,127,234,121,231,122,172,121,231,118,189,118,189,121,231,117,227,118,189,117,227,114,204,114,204,117,227,114,222,114,204,114,222,113,215,75,72,85,83,88,111,88,111,85,83,98,95,88,111,98,95,105,117,105,117,98,95,112,108,105,117,112,108,122,125,122,125,112,108,127,118,71,106,56,102,59,63,71,106,59,63,61,64,71,106,61,64,64,65,71,106,64,65,67,66,71,106,67,66,75,72,71,106,75,72,88,111,56,102,46,98,47,63,56,102,47,63,54,62,56,102,54,62,56,62,56,102,56,62,59,63,42,65,47,63,46,98,42,65,46,98,42,95,42,65,42,95,39,91,42,65,39,91,38,69,37,87,36,82,36,73,37,87,36,73,38,69,37,87,38,69,39,91,122,125,111,143,105,133,105,133,111,143,96,155,105,133,96,155,87,139,87,139,96,155,83,168,87,139,83,168,72,179,70,144,87,139,72,179,70,144,72,179,62,186,70,144,62,186,60,188,70,144,60,188,58,189,70,144,58,189,56,189,70,144,56,189,55,149,55,149,56,189,54,190,55,149,54,190,51,190,55,149,51,190,45,189,55,149,45,189,44,153,40,185,37,181,37,159,40,185,37,159,40,156,40,185,40,156,44,153,40,185,44,153,45,189,33,169,34,165,34,175,34,175,34,165,35,162,34,175,35,162,37,181,37,181,35,162,37,159,36,73,36,82,35,78,146,63,143,21,147,26,
+155,126,152,147,142,166,128,180,110,190,89,194,67,190,48,181,33,167,24,148,20,127,23,105,33,86,47,72,66,62,88,59,109,62,128,72,142,86,152,105,155,126,16383,16383,122,126,120,115,116,105,108,98,99,93,88,92,77,93,67,98,60,106,55,115,53,127,55,138,59,147,67,154,77,159,89,161,99,159,108,154,116,147,120,137,122,126,155,126,152,147,142,166,128,180,110,190,89,194,67,190,48,181,33,167,24,148,20,127,23,105,33,86,47,72,66,62,88,59,109,62,128,72,142,86,152,105,155,126,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,149,381,156,391,162,399,
+60,106,66,62,67,98,67,98,66,62,88,59,67,98,88,59,77,93,77,93,88,59,88,92,99,93,88,92,88,59,99,93,88,59,109,62,55,138,59,147,67,190,67,190,59,147,67,154,67,190,67,154,89,194,89,194,67,154,77,159,89,194,77,159,89,161,89,161,99,159,110,190,110,190,99,159,108,154,110,190,108,154,116,147,20,127,23,105,24,148,24,148,23,105,33,86,24,148,33,86,33,167,33,167,33,86,47,72,33,167,47,72,48,181,48,181,47,72,53,127,55,138,67,190,48,181,55,138,48,181,53,127,155,126,152,147,152,105,152,105,152,147,142,166,152,105,142,166,142,86,142,86,142,166,128,180,142,86,128,180,128,72,128,72,128,180,122,126,128,72,122,126,120,115,128,72,120,115,116,105,128,180,110,190,116,147,128,180,116,147,120,137,128,180,120,137,122,126,110,190,89,194,89,161,109,62,128,72,116,105,109,62,116,105,108,98,109,62,108,98,99,93,55,115,53,127,47,72,55,115,47,72,66,62,55,115,66,62,60,106,
+155,126,152,147,142,166,128,180,110,190,89,194,67,190,48,181,33,167,24,148,20,127,23,105,33,86,47,72,66,62,88,59,109,62,128,72,142,86,152,105,155,126,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,149,381,156,391,
+20,127,23,105,24,148,24,148,23,105,33,86,24,148,33,86,33,167,33,167,33,86,47,72,33,167,47,72,48,181,48,181,47,72,66,62,48,181,66,62,67,190,67,190,66,62,88,59,67,190,88,59,89,194,89,194,88,59,109,62,89,194,109,62,110,190,110,190,109,62,128,72,110,190,128,72,128,180,128,180,128,72,142,86,128,180,142,86,142,166,142,166,142,86,152,105,142,166,152,105,152,147,152,147,152,105,155,126,
+482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,149,381,156,391,162,399,169,404,177,407,185,408,195,407,202,404,208,399,212,392,213,382,211,369,204,359,195,351,183,345,171,340,171,335,184,335,189,334,
+76,159,83,163,134,222,134,222,83,163,89,165,134,222,89,165,94,165,94,165,102,164,134,222,134,222,102,164,108,161,134,222,108,161,114,155,143,222,134,222,227,-128,227,-128,134,222,126,136,120,147,126,136,134,222,120,147,134,222,114,155,134,222,56,160,62,150,134,222,62,150,69,155,134,222,69,155,76,159,143,222,227,-128,246,-45,246,-45,227,-128,243,-128,246,-45,243,-128,248,-45,248,-45,243,-128,482,487,248,-45,482,487,454,487,
+149,381,156,391,162,399,169,404,177,407,185,408,195,407,202,404,208,399,212,392,213,382,211,369,204,359,195,351,183,345,171,340,171,335,184,335,189,334,193,333,196,333,206,328,213,323,219,315,222,306,223,296,222,284,217,274,210,266,201,261,190,259,186,260,182,260,178,262,173,264,168,267,164,270,161,272,152,275,146,273,144,271,142,268,142,265,143,260,146,255,152,251,160,249,171,248,193,250,214,257,231,269,242,286,247,307,245,320,240,331,233,340,223,347,210,352,218,358,224,365,229,373,232,381,233,388,231,400,226,410,218,417,206,421,193,423,178,421,166,416,156,407,149,396,143,382,16383,16383,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,252,291,252,312,225,312,225,421,210,421,131,312,131,291,201,291,201,249,225,249,225,291,16383,16383,201,312,142,312,201,395,16383,16383,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,321,42,304,45,287,54,270,70,253,92,235,121,235,123,245,137,258,150,275,162,296,170,321,173,321,215,294,211,272,201,254,185,239,165,225,142,199,174,177,195,156,207,137,213,116,215,95,212,70,201,46,180,28,147,21,100,26,63,39,35,59,15,83,4,108,0,135,3,159,12,180,27,198,47,213,73,232,47,250,27,271,12,294,3,321,0,16383,16383,202,90,193,78,180,66,164,54,144,45,120,42,96,47,76,59,62,78,53,101,50,126,53,144,60,161,71,174,
+158,273,160,249,161,272,161,272,160,249,171,248,161,272,171,248,164,270,164,270,171,248,168,267,173,264,168,267,171,248,173,264,171,248,193,250,149,381,156,391,156,407,156,407,156,391,162,399,156,407,162,399,166,416,166,416,162,399,169,404,166,416,169,404,178,421,178,421,169,404,177,407,178,421,177,407,185,408,185,408,195,407,193,423,193,423,195,407,206,421,149,396,143,382,149,381,149,396,149,381,156,407,184,335,189,334,195,351,195,351,189,334,193,333,195,351,193,333,196,333,196,333,206,328,204,359,204,359,206,328,211,369,183,345,171,340,178,335,183,345,178,335,184,335,183,345,184,335,195,351,204,359,195,351,196,333,210,352,218,358,211,369,211,369,218,358,213,382,218,417,213,382,218,358,218,417,218,358,226,410,226,410,218,358,224,365,226,410,224,365,229,373,195,407,202,404,206,421,206,421,202,404,208,399,206,421,208,399,218,417,218,417,208,399,212,392,218,417,212,392,213,382,231,400,226,410,229,373,231,400,229,373,232,381,231,400,232,381,233,388,210,352,211,369,206,328,210,352,206,328,213,323,210,352,213,323,223,347,242,286,247,307,245,320,242,286,245,320,240,331,242,286,240,331,233,340,242,286,233,340,231,269,223,296,231,269,233,340,223,296,233,340,223,347,223,347,213,323,219,315,223,347,219,315,222,306,223,347,222,306,223,296,210,266,214,257,217,274,217,274,214,257,231,269,217,274,231,269,222,284,222,284,231,269,223,296,190,259,193,250,201,261,201,261,193,250,214,257,201,261,214,257,210,266,193,423,178,421,185,408,186,260,182,260,193,250,186,260,193,250,190,259,178,262,173,264,193,250,178,262,193,250,182,260,155,274,152,275,152,251,155,274,152,251,160,249,155,274,160,249,158,273,149,274,146,273,146,255,149,274,146,255,152,251,149,274,152,251,152,275,144,271,142,268,143,260,144,271,143,260,146,255,144,271,146,255,146,273,76,159,83,163,134,222,134,222,83,163,89,165,134,222,89,165,94,165,94,165,102,164,134,222,134,222,102,164,108,161,134,222,108,161,114,155,143,222,134,222,227,-128,227,-128,134,222,126,136,120,147,126,136,134,222,120,147,134,222,114,155,134,222,56,160,62,150,134,222,62,150,69,155,134,222,69,155,76,159,143,222,227,-128,246,-45,246,-45,227,-128,243,-128,246,-45,243,-128,248,-45,248,-45,243,-128,482,487,248,-45,482,487,454,487,143,260,142,268,142,265,178,335,171,340,171,335,
+252,291,252,312,225,312,225,421,210,421,131,312,131,291,201,291,201,249,225,249,225,291,16383,16383,201,312,142,312,201,395,16383,16383,482,487,454,487,248,-45,246,-45,143,222,134,222,56,160,62,150,69,155,83,163,89,165,94,165,102,164,108,161,114,155,120,147,126,136,227,-128,243,-128,321,42,304,45,287,54,270,70,253,92,235,121,235,123,245,137,258,150,275,162,296,170,321,173,321,215,294,211,272,201,254,185,239,165,225,142,199,174,177,195,156,207,137,213,116,215,95,212,70,201,46,180,28,147,21,100,26,63,39,35,59,15,83,4,108,0,135,3,159,12,
+131,291,201,291,131,312,131,312,201,291,142,312,131,312,142,312,210,421,210,421,142,312,201,395,210,421,201,395,225,249,225,249,201,395,201,312,225,249,201,312,201,291,201,291,201,312,142,312,210,421,225,249,225,421,225,312,225,291,252,291,225,312,252,291,252,312,76,159,83,163,134,222,134,222,83,163,89,165,134,222,89,165,94,165,94,165,102,164,134,222,134,222,102,164,108,161,134,222,108,161,114,155,143,222,134,222,227,-128,227,-128,134,222,126,136,120,147,126,136,134,222,120,147,134,222,114,155,134,222,56,160,62,150,134,222,62,150,69,155,134,222,69,155,76,159,143,222,227,-128,246,-45,246,-45,227,-128,243,-128,246,-45,243,-128,248,-45,248,-45,243,-128,482,487,248,-45,482,487,454,487,225,249,201,291,201,249,
+321,42,304,45,287,54,270,70,253,92,235,121,235,123,245,137,258,150,275,162,296,170,321,173,321,215,294,211,272,201,254,185,239,165,225,142,199,174,177,195,156,207,137,213,116,215,95,212,70,201,46,180,28,147,21,100,26,63,39,35,59,15,83,4,108,0,135,3,159,12,180,27,198,47,213,73,232,47,250,27,271,12,294,3,321,0,16383,16383,202,90,193,78,180,66,164,54,144,45,120,42,96,47,76,59,62,78,53,101,50,126,53,144,60,161,71,174,85,182,100,185,121,181,140,169,160,150,181,124,202,92,427,111,422,148,408,177,387,198,363,210,336,215,309,211,287,201,269,185,253,165,239,142,213,174,191,195,171,207,151,213,131,215,110,212,84,201,60,180,42,147,35,100,40,63,54,35,73,15,97,4,123,0,150,3,174,12,195,27,213,47,228,73,246,47,264,27,284,12,305,3,328,0,363,7,390,25,410,51,423,81,427,111,16383,16383,249,123,259,136,270,149,285,161,304,170,328,173,352,169,371,157,385,138,394,115,397,89,394,70,387,54,377,41,363,33,347,30,327,33,308,45,290,63,270,89,249,121,16383,16383,217,90,
+213,73,232,47,213,73,213,73,232,47,225,142,213,73,225,142,202,92,202,92,199,174,181,124,181,124,199,174,177,195,181,124,177,195,160,150,160,150,177,195,156,207,160,150,156,207,140,169,140,169,156,207,137,213,140,169,137,213,121,181,121,181,137,213,116,215,121,181,116,215,100,185,53,144,60,161,70,201,70,201,60,161,71,174,70,201,71,174,95,212,95,212,71,174,85,182,95,212,85,182,100,185,21,100,26,63,28,147,28,147,26,63,39,35,28,147,39,35,46,180,46,180,39,35,59,15,46,180,59,15,50,126,50,126,53,144,46,180,46,180,53,144,70,201,202,90,193,78,198,47,198,47,193,78,180,66,198,47,180,66,180,27,180,27,180,66,164,54,180,27,164,54,159,12,159,12,164,54,144,45,159,12,144,45,135,3,135,3,144,45,120,42,135,3,120,42,108,0,108,0,120,42,96,47,108,0,96,47,83,4,83,4,96,47,76,59,83,4,76,59,62,78,59,15,83,4,62,78,59,15,62,78,53,101,59,15,53,101,50,126,287,54,270,70,271,12,271,12,270,70,253,92,271,12,253,92,250,27,250,27,253,92,235,121,250,27,235,121,232,47,321,173,321,215,296,170,296,170,321,215,294,211,296,170,294,211,275,162,275,162,294,211,272,201,275,162,272,201,258,150,258,150,272,201,254,185,258,150,254,185,245,137,245,137,254,185,239,165,245,137,239,165,235,123,235,123,239,165,225,142,235,123,225,142,232,47,235,123,232,47,235,121,304,45,287,54,294,3,304,45,294,3,321,0,304,45,321,0,321,42,199,174,202,92,225,142,213,73,202,92,202,90,213,73,202,90,198,47,100,185,116,215,95,212,287,54,271,12,294,3,
+427,111,422,148,408,177,387,198,363,210,336,215,309,211,287,201,269,185,253,165,239,142,213,174,191,195,171,207,151,213,131,215,110,212,84,201,60,180,42,147,35,100,40,63,54,35,73,15,97,4,123,0,150,3,174,12,195,27,213,47,228,73,246,47,264,27,284,12,305,3,328,0,363,7,390,25,410,51,423,81,427,111,16383,16383,249,123,259,136,270,149,285,161,304,170,328,173,352,169,371,157,385,138,394,115,397,89,394,70,387,54,377,41,363,33,347,30,327,33,308,45,290,63,270,89,249,121,16383,16383,217,90,207,78,195,66,179,54,159,45,134,42,110,47,91,59,77,78,68,101,65,126,67,144,74,161,85,174,99,182,115,185,135,181,155,169,175,150,195,124,217,92,317,0,317,33,58,33,58,292,25,292,25,0,321,0,321,33,91,33,310,252,285,273,12,0,321,0,321,33,271,33,265,61,257,88,247,113,233,138,218,160,310,252,284,273,196,185,186,195,174,205,169,209,148,182,168,166,172,161,11,0,239,0,239,-18,238,-24,238,-30,270,-35,272,-21,272,0,16383,16383,90,33,194,137,207,118,217,98,226,77,233,56,237,33,326,40,281,59,284,72,286,86,288,99,290,127,289,140,288,154,286,168,280,196,326,216,314,246,269,228,266,234,263,241,257,253,253,259,225,243,228,237,231,232,233,226,236,220,238,215,28,127,239,40,237,34,234,29,232,23,229,17,225,12,254,-5,258,1,261,8,265,14,268,21,270,27,314,9,16383,16383,114,127,249,184,
+228,73,246,47,228,73,228,73,246,47,239,142,228,73,239,142,217,92,217,92,213,174,195,124,195,124,213,174,191,195,195,124,191,195,175,150,175,150,191,195,171,207,175,150,171,207,155,169,155,169,171,207,151,213,155,169,151,213,135,181,135,181,151,213,131,215,135,181,131,215,115,185,67,144,74,161,84,201,84,201,74,161,85,174,84,201,85,174,110,212,110,212,85,174,99,182,110,212,99,182,115,185,35,100,40,63,42,147,42,147,40,63,54,35,42,147,54,35,60,180,60,180,54,35,73,15,60,180,73,15,65,126,65,126,67,144,60,180,60,180,67,144,84,201,217,90,207,78,213,47,213,47,207,78,195,66,213,47,195,66,195,27,195,27,195,66,179,54,195,27,179,54,174,12,174,12,179,54,159,45,174,12,159,45,150,3,150,3,159,45,134,42,150,3,134,42,123,0,123,0,134,42,110,47,123,0,110,47,97,4,97,4,110,47,91,59,97,4,91,59,77,78,73,15,97,4,77,78,73,15,77,78,68,101,73,15,68,101,65,126,336,215,328,173,352,169,336,215,352,169,363,210,363,210,352,169,371,157,363,210,371,157,387,198,387,198,371,157,385,138,387,198,385,138,394,115,270,149,285,161,287,201,287,201,285,161,304,170,287,201,304,170,309,211,309,211,304,170,328,173,309,211,328,173,336,215,239,142,249,123,253,165,253,165,249,123,259,136,253,165,259,136,269,185,269,185,259,136,270,149,269,185,270,149,287,201,264,27,249,121,246,47,246,47,249,121,249,123,246,47,249,123,239,142,249,121,264,27,270,89,270,89,264,27,284,12,270,89,284,12,290,63,290,63,284,12,305,3,290,63,305,3,308,45,308,45,305,3,328,0,308,45,328,0,327,33,327,33,328,0,347,30,363,33,347,30,363,7,363,33,363,7,390,25,387,198,394,115,408,177,408,177,394,115,397,89,410,51,397,89,394,70,410,51,394,70,390,25,390,25,394,70,387,54,390,25,387,54,377,41,422,148,408,177,410,51,422,148,410,51,423,81,422,148,423,81,427,111,347,30,328,0,363,7,213,174,217,92,239,142,228,73,217,92,217,90,228,73,217,90,213,47,115,185,131,215,110,212,363,33,390,25,377,41,397,89,410,51,408,177,
+317,0,317,33,58,33,58,292,25,292,25,0,321,0,321,33,91,33,310,252,285,273,12,0,
+58,33,58,292,25,292,58,33,25,292,25,0,58,33,25,0,317,0,58,33,317,0,317,33,
+321,0,321,33,91,33,310,252,285,273,12,0,321,0,321,33,271,33,265,61,257,88,247,113,
+91,33,310,252,285,273,91,33,285,273,12,0,91,33,12,0,321,0,91,33,321,0,321,33,
+321,0,321,33,271,33,265,61,257,88,247,113,233,138,218,160,310,252,284,273,196,185,186,195,174,205,169,209,148,182,168,166,172,161,11,0,239,0,239,-18,238,-24,238,-30,270,-35,272,-21,272,0,16383,16383,90,33,194,137,207,118,217,98,226,77,233,56,237,33,326,40,281,59,284,72,286,86,288,99,290,127,289,140,288,154,286,168,280,196,326,216,314,246,269,228,266,234,263,241,257,253,253,259,225,243,228,237,231,232,233,226,236,220,238,215,28,127,239,40,237,34,234,29,232,23,229,17,225,12,254,-5,258,1,261,8,
+90,33,194,137,172,161,172,161,174,205,169,209,172,161,169,209,168,166,168,166,169,209,163,170,169,209,148,182,153,178,169,209,153,178,158,174,169,209,158,174,163,170,194,137,207,118,196,185,196,185,207,118,218,160,196,185,218,160,284,273,284,273,218,160,310,252,207,118,217,98,218,160,218,160,217,98,226,77,218,160,226,77,233,138,233,138,226,77,233,56,233,138,233,56,237,33,194,137,196,185,191,190,194,137,191,190,186,195,194,137,186,195,180,200,194,137,180,200,174,205,194,137,174,205,172,161,233,138,237,33,247,113,239,0,237,33,90,33,239,0,90,33,11,0,11,0,90,33,172,161,265,61,257,88,270,-35,270,-35,257,88,247,113,270,-35,247,113,239,0,239,0,247,113,237,33,272,0,321,0,321,33,272,0,321,33,271,33,272,0,271,33,271,-28,272,0,271,-28,272,-21,272,0,272,-21,272,-14,272,0,272,-14,272,-6,271,33,265,61,270,-35,271,33,270,-35,271,-28,270,-35,239,0,239,-5,270,-35,239,-5,239,-12,270,-35,239,-12,239,-18,270,-35,239,-18,238,-24,270,-35,238,-24,238,-30,
+326,40,281,59,284,72,286,86,288,99,290,127,289,140,288,154,286,168,280,196,326,216,314,246,269,228,266,234,263,241,257,253,253,259,225,243,228,237,231,232,233,226,236,220,238,215,28,127,239,40,237,34,234,29,232,23,229,17,225,12,254,-5,258,1,261,8,265,14,268,21,270,27,314,9,16383,16383,114,127,249,184,252,172,254,161,255,149,257,127,256,115,254,93,252,82,249,71,83,-93,83,345,50,345,50,-93,190,152,179,178,118,147,118,345,84,345,84,130,12,93,23,66,84,98,84,-93,118,-93,118,114,197,-93,197,345,164,345,164,-93,16383,16383,98,-93,98,345,65,345,65,-93,293,181,281,207,219,175,219,345,185,345,185,158,119,125,119,345,86,345,86,108,12,70,23,44,86,75,86,-93,119,-93,119,93,185,126,185,-93,219,-93,219,143,295,-14,157,268,152,268,
+256,115,258,1,257,127,257,127,258,1,260,247,260,247,258,1,261,8,260,247,261,8,263,241,263,241,261,8,265,14,263,241,265,14,266,234,266,234,265,14,268,21,266,234,268,21,269,228,269,228,268,21,270,27,269,228,270,27,280,196,280,196,270,27,281,59,280,196,281,59,283,182,283,182,281,59,284,72,283,182,284,72,286,168,286,168,284,72,286,86,286,168,286,86,288,154,288,154,286,86,288,99,288,154,288,99,289,140,289,140,288,99,289,113,289,140,289,113,290,127,314,9,326,40,281,59,314,9,281,59,270,27,314,246,269,228,280,196,314,246,280,196,326,216,255,149,256,138,257,253,257,253,256,138,257,127,257,253,257,127,260,247,249,184,252,172,253,259,253,259,252,172,254,161,253,259,254,161,257,253,257,253,254,161,255,149,253,259,225,243,228,237,253,259,228,237,231,232,253,259,231,232,233,226,253,259,233,226,236,220,253,259,236,220,238,215,253,259,238,215,249,184,255,104,254,93,254,-5,255,104,254,-5,258,1,255,104,258,1,256,115,254,-5,254,93,252,82,254,-5,252,82,249,71,254,-5,249,71,239,40,254,-5,239,40,237,34,254,-5,237,34,234,29,254,-5,234,29,232,23,254,-5,232,23,229,17,254,-5,229,17,225,12,238,215,28,127,114,127,114,127,28,127,239,40,114,127,239,40,249,71,238,215,114,127,249,184,
+83,-93,83,345,50,345,50,-93,190,152,179,178,118,147,118,345,
+83,-93,83,345,50,345,83,-93,50,345,50,-93,
+190,152,179,178,118,147,118,345,84,345,84,130,12,93,23,66,84,98,84,-93,118,-93,118,114,197,-93,197,345,164,345,164,-93,16383,16383,98,-93,98,345,65,345,65,-93,293,181,281,207,219,175,
+84,130,12,93,23,66,84,130,23,66,84,98,84,130,84,98,118,-93,84,130,118,-93,84,345,84,345,118,-93,118,345,118,147,118,114,190,152,118,147,190,152,179,178,118,-93,84,98,84,-93,
+197,-93,197,345,164,345,164,-93,16383,16383,98,-93,98,345,65,345,65,-93,293,181,281,207,219,175,219,345,185,345,185,158,119,125,119,345,86,345,
+164,345,164,-93,197,-93,164,345,197,-93,197,345,65,345,65,-93,98,-93,65,345,98,-93,98,345,
+293,181,281,207,219,175,219,345,185,345,185,158,119,125,119,345,86,345,86,108,12,70,23,44,86,75,86,-93,119,-93,119,93,185,126,185,-93,219,-93,219,143,295,-14,157,268,152,268,16,-14,47,-14,155,201,262,-14,295,268,263,268,156,52,48,268,16,268,153,-14,158,-14,286,-15,286,132,280,177,261,215,233,243,197,261,
+86,108,12,70,23,44,86,108,23,44,86,75,86,108,86,75,119,-93,86,108,119,-93,86,345,219,345,185,345,219,-93,219,-93,185,345,185,158,219,-93,185,158,185,126,185,126,185,158,119,125,185,126,119,125,119,93,119,-93,119,345,86,345,219,143,293,181,219,175,219,175,293,181,281,207,219,-93,185,126,185,-93,119,-93,86,75,86,-93,
+295,-14,157,268,152,268,16,-14,47,-14,155,201,262,-14,295,268,263,268,156,52,48,268,16,268,153,-14,158,-14,
+16,-14,47,-14,152,268,152,268,47,-14,155,201,152,268,155,201,157,268,157,268,155,201,262,-14,157,268,262,-14,295,-14,
+295,268,263,268,156,52,48,268,16,268,153,-14,158,-14,286,-15,286,132,280,177,261,215,233,243,197,261,155,268,
+295,268,263,268,158,-14,158,-14,263,268,156,52,158,-14,156,52,153,-14,153,-14,156,52,48,268,153,-14,48,268,16,268,
+286,-15,286,132,280,177,261,215,233,243,197,261,155,268,113,262,77,244,49,216,30,178,24,134,24,-15,57,-15,57,132,62,165,76,193,97,215,124,230,155,235,186,230,212,215,234,193,248,165,253,132,253,-15,286,268,253,268,253,120,248,87,234,59,212,37,186,23,155,17,124,23,97,37,76,60,62,88,57,121,57,268,24,268,24,118,30,74,49,37,77,9,113,-8,155,-15,197,-8,233,9,261,38,280,75,286,120,
+253,132,253,132,248,165,248,165,253,132,261,215,248,165,261,215,234,193,234,193,261,215,233,243,234,193,233,243,212,215,212,215,233,243,197,261,212,215,197,261,186,230,186,230,197,261,155,235,124,230,155,235,155,268,124,230,155,268,113,262,62,165,76,193,77,244,77,244,76,193,97,215,77,244,97,215,113,262,113,262,97,215,124,230,49,216,30,178,57,-15,49,216,57,-15,57,132,49,216,57,132,62,165,49,216,62,165,77,244,24,134,24,-15,57,-15,24,134,57,-15,30,178,197,261,155,268,155,235,286,-15,286,132,280,177,286,-15,280,177,261,215,286,-15,261,215,253,132,286,-15,253,132,253,-15,
+286,268,253,268,253,120,248,87,234,59,212,37,186,23,155,17,124,23,97,37,76,60,62,88,57,121,57,268,24,268,24,118,30,74,49,37,77,9,113,-8,155,-15,197,-8,233,9,261,38,280,75,286,120,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,18,-143,22,-150,28,-155,
+253,120,248,87,261,38,261,38,248,87,234,59,261,38,234,59,233,9,233,9,234,59,212,37,233,9,212,37,197,-8,197,-8,212,37,186,23,197,-8,186,23,155,-15,155,-15,186,23,155,17,286,268,253,268,261,38,286,268,261,38,280,75,286,268,280,75,286,120,76,60,77,9,97,37,97,37,77,9,113,-8,97,37,113,-8,124,23,124,23,113,-8,155,-15,124,23,155,-15,155,17,62,88,57,121,49,37,62,88,49,37,77,9,62,88,77,9,76,60,57,268,24,268,30,74,57,268,30,74,49,37,57,268,49,37,57,121,30,74,24,268,24,118,253,120,261,38,253,268,
+102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,18,-143,22,-150,28,-155,37,-158,49,-159,78,-153,102,-135,119,-111,131,-84,140,-58,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,318,396,314,402,307,407,298,411,287,412,255,404,231,385,213,359,201,330,193,303,223,-61,215,-89,207,-112,198,-129,188,-140,175,-144,173,-143,172,-143,170,-142,170,-140,171,-137,173,-135,175,-132,178,-127,179,-120,178,-116,175,-112,172,-109,168,-108,163,-107,155,-109,148,-113,142,-119,139,-127,137,-136,138,-143,141,-150,146,-155,154,-158,165,-159,195,-153,219,-135,238,-111,252,-84,261,-58,352,308,360,337,368,362,378,380,389,393,402,397,404,397,406,396,408,394,408,392,407,390,405,387,402,384,400,379,399,372,400,368,402,364,410,360,415,360,423,361,430,366,435,372,439,380,440,390,439,396,436,402,431,407,424,411,413,412,381,404,355,385,336,359,
+49,-140,49,-137,51,-109,51,-109,49,-137,52,-135,51,-109,52,-135,54,-112,54,-112,52,-135,54,-132,54,-112,54,-132,57,-116,57,-116,54,-132,57,-127,57,-116,57,-127,57,-120,18,-127,18,-143,21,-119,21,-119,18,-143,22,-150,21,-119,22,-150,27,-113,27,-113,22,-150,28,-155,27,-113,28,-155,34,-109,34,-109,28,-155,37,-158,34,-109,37,-158,42,-107,42,-107,37,-158,49,-159,42,-107,49,-159,46,-108,46,-108,49,-159,49,-140,86,-112,77,-129,78,-153,78,-153,77,-129,67,-140,78,-153,67,-140,54,-144,54,-144,52,-143,78,-153,78,-153,52,-143,50,-143,78,-153,50,-143,49,-159,49,-159,50,-143,49,-142,49,-159,49,-142,49,-141,285,396,287,412,283,397,283,397,287,412,281,397,268,393,281,397,287,412,268,393,287,412,255,404,289,360,294,360,298,411,298,411,294,360,302,361,298,411,302,361,307,407,307,407,302,361,309,366,307,407,309,366,314,402,314,402,309,366,315,372,314,402,315,372,318,396,318,396,315,372,318,380,318,396,318,380,320,390,279,379,279,368,281,384,281,384,279,368,281,364,281,384,281,364,284,387,284,387,281,364,285,362,284,387,285,362,286,390,286,390,285,362,289,360,286,390,289,360,287,392,287,392,289,360,298,411,287,412,285,396,286,395,287,412,286,395,287,394,287,412,287,394,287,392,287,412,287,392,298,411,255,404,231,385,231,308,255,404,231,308,239,337,255,404,239,337,247,362,255,404,247,362,257,380,255,404,257,380,268,393,231,308,231,385,213,359,231,308,213,359,201,330,231,308,201,330,193,303,231,308,193,303,140,-58,94,-89,102,-135,102,-61,102,-61,102,-135,119,-111,102,-61,119,-111,193,303,193,303,119,-111,131,-84,193,303,131,-84,140,-58,86,-112,78,-153,102,-135,86,-112,102,-135,94,-89,49,-140,49,-159,49,-141,279,368,279,379,278,372,18,-143,18,-127,16,-136,46,-108,49,-140,51,-109,
+223,-61,215,-89,207,-112,198,-129,188,-140,175,-144,173,-143,172,-143,170,-142,170,-140,171,-137,173,-135,175,-132,178,-127,179,-120,178,-116,175,-112,172,-109,168,-108,163,-107,155,-109,148,-113,142,-119,139,-127,137,-136,138,-143,141,-150,146,-155,154,-158,165,-159,195,-153,219,-135,238,-111,252,-84,261,-58,352,308,360,337,368,362,378,380,389,393,402,397,404,397,406,396,408,394,408,392,407,390,405,387,402,384,400,379,399,372,400,368,402,364,410,360,415,360,423,361,430,366,435,372,439,380,440,390,439,396,436,402,431,407,424,411,413,412,381,404,355,385,336,359,323,330,314,303,16383,16383,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,98,-135,117,-111,131,-84,140,-58,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,359,201,330,193,303,344,-61,336,-89,328,-112,319,-129,309,-140,296,-144,294,-143,293,-143,291,-141,291,-140,292,-137,297,-132,299,-127,300,-120,299,-116,296,-112,293,-109,288,-108,284,-107,276,-109,269,-113,263,-119,259,-127,258,-136,259,-143,262,-150,267,-155,275,-158,286,-159,316,-153,341,-135,359,-111,373,-84,382,-58,473,308,481,337,489,362,499,380,510,393,523,397,525,397,527,396,529,394,529,392,528,390,526,387,523,384,521,379,520,372,521,368,523,364,531,360,536,360,544,361,551,366,556,372,560,380,561,390,560,396,558,402,552,407,545,411,534,412,502,404,476,385,457,359,443,330,435,303,16383,16383,223,-61,215,-89,207,-112,198,-129,187,-140,175,-144,173,-143,171,-143,169,-141,169,-140,170,-137,175,-132,177,-127,178,-120,177,-116,175,-112,171,-109,167,-108,162,-107,154,-109,147,-113,142,-119,138,-127,137,-136,138,-143,141,-150,146,-155,154,-158,164,-159,194,-153,219,-135,238,-111,251,-84,260,-58,352,308,359,337,368,362,377,380,388,393,402,397,404,397,405,396,407,395,407,392,406,390,402,384,399,379,398,372,399,368,402,364,405,362,409,360,414,360,422,361,429,366,435,372,438,380,440,390,439,396,436,402,431,407,423,411,412,412,380,404,355,385,336,359,322,330,314,303,
+49,-137,51,-109,49,-140,49,-140,46,-108,44,-159,44,-159,46,-108,42,-107,44,-159,42,-107,34,-109,51,-109,52,-135,54,-112,54,-112,52,-135,54,-132,54,-112,54,-132,57,-116,57,-116,54,-132,57,-127,57,-116,57,-127,57,-120,94,-89,86,-112,98,-135,98,-135,86,-112,77,-129,98,-135,77,-129,74,-153,74,-153,77,-129,67,-140,74,-153,67,-140,54,-144,54,-144,52,-143,74,-153,74,-153,52,-143,50,-143,74,-153,50,-143,44,-159,44,-159,50,-143,49,-142,44,-159,49,-142,49,-141,171,-137,172,-109,170,-140,170,-140,168,-108,165,-159,165,-159,168,-108,163,-107,165,-159,163,-107,155,-109,172,-109,173,-135,175,-112,175,-112,173,-135,175,-132,175,-112,175,-132,178,-116,178,-116,175,-132,178,-127,178,-116,178,-127,179,-120,215,-89,207,-112,219,-135,219,-135,207,-112,198,-129,219,-135,198,-129,195,-153,195,-153,198,-129,188,-140,195,-153,188,-140,175,-144,175,-144,173,-143,195,-153,195,-153,173,-143,172,-143,195,-153,172,-143,165,-159,165,-159,172,-143,170,-142,165,-159,170,-142,170,-141,285,396,292,412,283,397,283,397,292,412,281,397,268,393,281,397,292,412,268,393,292,412,260,404,302,361,302,411,294,360,294,360,302,411,292,412,294,360,292,412,289,360,289,360,292,412,287,392,289,360,287,392,286,390,289,360,286,390,285,362,285,362,286,390,284,387,285,362,284,387,281,364,281,364,284,387,281,384,281,364,281,384,279,368,279,368,281,384,279,379,279,368,279,379,278,372,320,390,319,396,318,380,318,380,319,396,316,402,318,380,316,402,315,372,315,372,316,402,310,407,315,372,310,407,309,366,309,366,310,407,302,411,309,366,302,411,302,361,292,412,285,396,286,395,292,412,286,395,287,394,292,412,287,394,287,392,260,404,234,385,239,337,260,404,239,337,247,362,260,404,247,362,257,380,260,404,257,380,268,393,231,308,239,337,234,385,231,308,234,385,215,359,231,308,215,359,201,330,231,308,201,330,193,303,231,308,193,303,140,-58,94,-89,98,-135,102,-61,102,-61,98,-135,117,-111,102,-61,117,-111,193,303,193,303,117,-111,131,-84,193,303,131,-84,140,-58,49,-140,44,-159,49,-141,16,-136,17,-143,18,-127,18,-127,17,-143,20,-150,18,-127,20,-150,21,-119,21,-119,20,-150,25,-155,21,-119,25,-155,27,-113,27,-113,25,-155,33,-158,27,-113,33,-158,34,-109,34,-109,33,-158,44,-159,406,396,413,412,404,397,404,397,413,412,402,397,389,393,402,397,413,412,389,393,413,412,381,404,423,361,424,411,415,360,415,360,424,411,413,412,415,360,413,412,410,360,410,360,413,412,408,392,410,360,408,392,407,390,410,360,407,390,406,362,406,362,407,390,405,387,406,362,405,387,402,364,402,364,405,387,402,384,402,364,402,384,400,379,400,379,399,372,400,368,400,379,400,368,402,364,440,390,439,396,439,380,439,380,439,396,436,402,439,380,436,402,435,372,435,372,436,402,431,407,435,372,431,407,430,366,430,366,431,407,424,411,430,366,424,411,423,361,413,412,406,396,407,395,413,412,407,395,408,394,413,412,408,394,408,392,381,404,355,385,360,337,381,404,360,337,368,362,381,404,368,362,378,380,381,404,378,380,389,393,352,308,360,337,355,385,352,308,355,385,336,359,352,308,336,359,323,330,352,308,323,330,314,303,352,308,314,303,261,-58,215,-89,219,-135,223,-61,223,-61,219,-135,238,-111,223,-61,238,-111,314,303,314,303,238,-111,252,-84,314,303,252,-84,261,-58,170,-140,165,-159,170,-141,137,-136,138,-143,139,-127,139,-127,138,-143,141,-150,139,-127,141,-150,142,-119,142,-119,141,-150,146,-155,142,-119,146,-155,148,-113,148,-113,146,-155,154,-158,148,-113,154,-158,155,-109,155,-109,154,-158,165,-159,168,-108,170,-140,172,-109,172,-109,171,-137,173,-135,46,-108,49,-140,51,-109,51,-109,49,-137,52,-135,
+344,-61,336,-89,328,-112,319,-129,309,-140,296,-144,294,-143,293,-143,291,-141,291,-140,292,-137,297,-132,299,-127,300,-120,299,-116,296,-112,293,-109,288,-108,284,-107,276,-109,269,-113,263,-119,259,-127,258,-136,259,-143,262,-150,267,-155,275,-158,286,-159,316,-153,341,-135,359,-111,373,-84,382,-58,473,308,481,337,489,362,499,380,510,393,523,397,525,397,527,396,529,394,529,392,528,390,526,387,523,384,521,379,520,372,521,368,523,364,531,360,536,360,544,361,551,366,556,372,560,380,561,390,560,396,558,402,552,407,545,411,534,412,502,404,476,385,457,359,443,330,435,303,16383,16383,223,-61,215,-89,207,-112,198,-129,187,-140,175,-144,173,-143,171,-143,169,-141,169,-140,170,-137,175,-132,177,-127,178,-120,177,-116,175,-112,171,-109,167,-108,162,-107,154,-109,147,-113,142,-119,138,-127,137,-136,138,-143,141,-150,146,-155,154,-158,164,-159,194,-153,219,-135,238,-111,251,-84,260,-58,352,308,359,337,368,362,377,380,388,393,402,397,404,397,405,396,407,395,407,392,406,390,402,384,399,379,398,372,399,368,402,364,405,362,409,360,414,360,422,361,429,366,435,372,438,380,440,390,439,396,436,402,431,407,423,411,412,412,380,404,355,385,336,359,322,330,314,303,16383,16383,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,98,-135,117,-111,131,-84,140,-58,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,359,201,330,193,303,176,238,167,238,131,232,101,216,76,192,60,161,55,126,58,99,67,74,81,53,100,35,123,22,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,18,-143,22,-150,28,-155,37,-158,49,-159,78,-153,102,-135,119,-111,131,-84,140,-58,157,13,167,13,202,19,233,35,258,59,274,90,280,126,276,152,267,177,253,199,234,216,211,229,231,308,239,337,247,362,257,381,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,318,396,314,402,307,407,298,411,287,412,255,404,231,385,213,358,201,330,193,303,16383,16383,162,32,206,210,224,199,239,185,251,167,258,147,261,126,256,96,243,70,222,50,197,37,167,32,16383,16383,172,219,127,41,109,52,95,66,83,84,76,104,74,126,78,155,92,181,112,201,137,214,167,219,296,231,284,234,271,236,258,237,244,238,214,238,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,358,201,330,193,303,175,233,135,222,101,204,76,182,61,155,55,126,58,104,67,84,82,65,102,48,126,35,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,99,-135,117,-111,131,-84,140,-58,160,22,172,19,200,15,230,13,
+49,-137,51,-109,49,-140,49,-140,46,-108,44,-159,44,-159,46,-108,42,-107,44,-159,42,-107,34,-109,51,-109,52,-135,54,-112,54,-112,52,-135,54,-132,54,-112,54,-132,57,-116,57,-116,54,-132,57,-127,57,-116,57,-127,57,-120,94,-89,86,-112,98,-135,98,-135,86,-112,77,-129,98,-135,77,-129,74,-153,74,-153,77,-129,67,-140,74,-153,67,-140,54,-144,54,-144,52,-143,74,-153,74,-153,52,-143,50,-143,74,-153,50,-143,44,-159,44,-159,50,-143,49,-142,44,-159,49,-142,49,-141,170,-137,171,-109,169,-140,169,-140,167,-108,164,-159,164,-159,167,-108,162,-107,164,-159,162,-107,154,-109,171,-109,172,-135,175,-112,175,-112,172,-135,175,-132,175,-112,175,-132,177,-116,177,-116,175,-132,177,-127,177,-116,177,-127,178,-120,215,-89,207,-112,219,-135,219,-135,207,-112,198,-129,219,-135,198,-129,194,-153,194,-153,198,-129,187,-140,194,-153,187,-140,175,-144,175,-144,173,-143,194,-153,194,-153,173,-143,171,-143,194,-153,171,-143,164,-159,164,-159,171,-143,170,-142,164,-159,170,-142,169,-141,285,396,292,412,283,397,283,397,292,412,281,397,268,393,281,397,292,412,268,393,292,412,260,404,302,361,302,411,294,360,294,360,302,411,292,412,294,360,292,412,289,360,289,360,292,412,287,392,289,360,287,392,286,390,289,360,286,390,285,362,285,362,286,390,284,387,285,362,284,387,281,364,281,364,284,387,281,384,281,364,281,384,279,368,279,368,281,384,279,379,279,368,279,379,278,372,292,-137,293,-109,291,-140,291,-140,288,-108,286,-159,286,-159,288,-108,284,-107,286,-159,284,-107,276,-109,293,-109,294,-135,296,-112,296,-112,294,-135,297,-132,296,-112,297,-132,299,-116,299,-116,297,-132,299,-127,299,-116,299,-127,300,-120,320,390,319,396,318,380,318,380,319,396,316,402,318,380,316,402,315,372,315,372,316,402,310,407,315,372,310,407,309,366,309,366,310,407,302,411,309,366,302,411,302,361,292,412,285,396,286,395,292,412,286,395,287,394,292,412,287,394,287,392,260,404,234,385,239,337,260,404,239,337,247,362,260,404,247,362,257,380,260,404,257,380,268,393,231,308,239,337,234,385,231,308,234,385,215,359,231,308,215,359,201,330,231,308,201,330,193,303,231,308,193,303,140,-58,94,-89,98,-135,102,-61,102,-61,98,-135,117,-111,102,-61,117,-111,193,303,193,303,117,-111,131,-84,193,303,131,-84,140,-58,49,-140,44,-159,49,-141,16,-136,17,-143,18,-127,18,-127,17,-143,20,-150,18,-127,20,-150,21,-119,21,-119,20,-150,25,-155,21,-119,25,-155,27,-113,27,-113,25,-155,33,-158,27,-113,33,-158,34,-109,34,-109,33,-158,44,-159,336,-89,328,-112,341,-135,341,-135,328,-112,319,-129,341,-135,319,-129,316,-153,316,-153,319,-129,309,-140,316,-153,309,-140,296,-144,296,-144,294,-143,316,-153,316,-153,294,-143,293,-143,316,-153,293,-143,286,-159,286,-159,293,-143,292,-142,286,-159,292,-142,291,-141,405,396,412,412,404,397,404,397,412,412,402,397,388,393,402,397,412,412,388,393,412,412,380,404,422,361,423,411,414,360,414,360,423,411,412,412,414,360,412,412,409,360,409,360,412,412,407,392,409,360,407,392,406,390,409,360,406,390,405,362,405,362,406,390,404,387,405,362,404,387,402,364,402,364,404,387,402,384,402,364,402,384,399,379,399,379,398,372,399,368,399,379,399,368,402,364,440,390,439,396,438,380,438,380,439,396,436,402,438,380,436,402,435,372,435,372,436,402,431,407,435,372,431,407,429,366,429,366,431,407,423,411,429,366,423,411,422,361,412,412,405,396,407,395,412,412,407,395,407,394,412,412,407,394,407,392,380,404,355,385,359,337,380,404,359,337,368,362,380,404,368,362,377,380,380,404,377,380,388,393,352,308,359,337,355,385,352,308,355,385,336,359,352,308,336,359,322,330,352,308,322,330,314,303,352,308,314,303,260,-58,215,-89,219,-135,223,-61,223,-61,219,-135,238,-111,223,-61,238,-111,314,303,314,303,238,-111,251,-84,314,303,251,-84,260,-58,169,-140,164,-159,169,-141,137,-136,138,-143,138,-127,138,-127,138,-143,141,-150,138,-127,141,-150,142,-119,142,-119,141,-150,146,-155,142,-119,146,-155,147,-113,147,-113,146,-155,154,-158,147,-113,154,-158,154,-109,154,-109,154,-158,164,-159,435,303,344,-61,359,-111,435,303,359,-111,373,-84,435,303,373,-84,382,-58,435,303,382,-58,473,308,435,303,473,308,443,330,344,-61,336,-89,341,-135,344,-61,341,-135,359,-111,291,-140,286,-159,291,-141,258,-136,259,-143,259,-127,259,-127,259,-143,262,-150,259,-127,262,-150,263,-119,263,-119,262,-150,267,-155,263,-119,267,-155,269,-113,269,-113,267,-155,275,-158,269,-113,275,-158,276,-109,276,-109,275,-158,286,-159,527,396,534,412,525,397,525,397,534,412,523,397,510,393,523,397,534,412,510,393,534,412,502,404,544,361,545,411,536,360,536,360,545,411,534,412,536,360,534,412,531,360,531,360,534,412,529,392,531,360,529,392,528,390,531,360,528,390,527,362,527,362,528,390,526,387,527,362,526,387,523,364,523,364,526,387,523,384,523,364,523,384,521,379,521,379,520,372,521,368,521,379,521,368,523,364,561,390,560,396,560,380,560,380,560,396,558,402,560,380,558,402,556,372,556,372,558,402,552,407,556,372,552,407,551,366,551,366,552,407,545,411,551,366,545,411,544,361,534,412,527,396,528,395,534,412,528,395,529,394,534,412,529,394,529,392,502,404,476,385,481,337,502,404,481,337,489,362,502,404,489,362,499,380,502,404,499,380,510,393,473,308,481,337,476,385,473,308,476,385,457,359,473,308,457,359,443,330,288,-108,291,-140,293,-109,293,-109,292,-137,294,-135,167,-108,169,-140,171,-109,171,-109,170,-137,172,-135,46,-108,49,-140,51,-109,51,-109,49,-137,52,-135,
+176,238,167,238,131,232,101,216,76,192,60,161,55,126,58,99,67,74,81,53,100,35,123,22,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,18,-143,22,-150,28,-155,37,-158,49,-159,78,-153,102,-135,119,-111,131,-84,140,-58,157,13,167,13,202,19,233,35,258,59,274,90,280,126,276,152,267,177,253,199,234,216,211,229,231,308,239,337,247,362,257,381,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,318,396,314,402,307,407,298,411,287,412,255,404,231,385,213,358,201,330,193,303,16383,16383,162,32,206,210,224,199,239,185,251,167,258,147,261,126,256,96,243,70,222,50,197,37,167,32,16383,16383,172,219,127,41,109,52,95,66,83,84,76,104,74,126,78,155,92,181,112,201,137,214,167,219,296,231,284,234,271,236,258,237,244,238,214,238,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,358,201,330,193,303,175,233,135,222,101,204,76,182,61,155,55,126,58,104,67,84,82,65,102,48,126,35,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,99,-135,117,-111,131,-84,140,-58,160,22,172,19,200,15,230,13,235,13,237,14,242,14,223,-61,216,-89,208,-112,199,-129,188,-140,175,-144,173,-143,172,-143,170,-142,170,-140,171,-137,173,-135,175,-132,178,-127,179,-120,178,-116,175,-112,172,-109,168,-108,163,-107,155,-109,148,-113,142,-119,139,-127,137,-136,138,-143,
+49,-140,49,-137,51,-109,51,-109,49,-137,52,-135,51,-109,52,-135,54,-112,54,-112,52,-135,54,-132,54,-112,54,-132,57,-116,57,-116,54,-132,57,-127,57,-116,57,-127,57,-120,18,-127,18,-143,21,-119,21,-119,18,-143,22,-150,21,-119,22,-150,27,-113,27,-113,22,-150,28,-155,27,-113,28,-155,34,-109,34,-109,28,-155,37,-158,34,-109,37,-158,42,-107,42,-107,37,-158,49,-159,42,-107,49,-159,46,-108,46,-108,49,-159,49,-140,86,-112,77,-129,78,-153,78,-153,77,-129,67,-140,78,-153,67,-140,54,-144,54,-144,52,-143,78,-153,78,-153,52,-143,50,-143,78,-153,50,-143,49,-159,49,-159,50,-143,49,-142,49,-159,49,-142,49,-141,95,66,100,35,109,52,109,52,100,35,123,22,109,52,123,22,127,41,127,41,123,22,131,-84,127,41,131,-84,172,219,172,219,131,-84,140,-58,172,219,140,-58,157,13,83,84,76,104,81,53,83,84,81,53,100,35,83,84,100,35,95,66,76,104,74,126,81,53,81,53,74,126,67,74,67,74,74,126,76,192,76,192,74,126,78,155,201,330,193,303,206,210,206,210,193,303,176,238,206,210,176,238,172,219,172,219,176,238,167,238,172,219,167,238,167,219,167,219,167,238,137,214,78,155,92,181,101,216,101,216,92,181,112,201,101,216,112,201,131,232,131,232,112,201,137,214,131,232,137,214,167,238,60,161,55,126,58,99,60,161,58,99,67,74,60,161,67,74,76,192,289,360,294,360,298,411,298,411,294,360,302,361,298,411,302,361,307,407,307,407,302,361,309,366,307,407,309,366,314,402,314,402,309,366,315,372,314,402,315,372,318,396,318,396,315,372,318,380,318,396,318,380,320,390,279,379,279,368,281,384,281,384,279,368,281,364,281,384,281,364,284,387,284,387,281,364,285,362,284,387,285,362,286,390,286,390,285,362,289,360,286,390,289,360,287,392,287,392,289,360,298,411,287,412,255,404,268,393,287,412,268,393,281,397,287,412,281,397,283,397,287,412,283,397,285,396,287,412,285,396,286,395,287,412,286,395,287,394,287,412,287,394,287,392,287,412,287,392,298,411,255,404,231,385,231,308,255,404,231,308,239,337,255,404,239,337,247,362,255,404,247,362,257,381,255,404,257,381,268,393,213,358,201,330,206,210,213,358,206,210,211,229,213,358,211,229,231,308,213,358,231,308,231,385,162,32,206,210,172,219,162,32,172,219,159,13,162,32,159,13,161,13,162,32,161,13,163,13,162,32,163,13,167,32,94,-89,102,-135,102,-61,102,-61,102,-135,119,-111,102,-61,119,-111,123,22,123,22,119,-111,131,-84,86,-112,78,-153,102,-135,86,-112,102,-135,94,-89,49,-140,49,-159,49,-141,258,59,274,90,261,126,261,126,267,177,258,147,258,147,267,177,253,199,258,147,253,199,251,167,251,167,253,199,239,185,234,216,211,229,224,199,234,216,224,199,239,185,234,216,239,185,253,199,274,90,280,126,276,152,274,90,276,152,267,177,274,90,267,177,261,126,258,59,261,126,256,96,258,59,256,96,243,70,258,59,243,70,233,35,163,13,165,13,167,32,167,32,165,13,167,13,167,32,167,13,197,37,197,37,167,13,202,19,197,37,202,19,222,50,222,50,202,19,233,35,222,50,233,35,243,70,224,199,211,229,206,210,279,368,279,379,278,372,18,-143,18,-127,16,-136,172,219,157,13,159,13,76,192,78,155,101,216,46,-108,49,-140,51,-109,
+296,231,284,234,271,236,258,237,244,238,214,238,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,358,201,330,193,303,175,233,135,222,101,204,76,182,61,155,55,126,58,104,67,84,82,65,102,48,126,35,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,99,-135,117,-111,131,-84,140,-58,160,22,172,19,200,15,230,13,235,13,237,14,242,14,223,-61,216,-89,208,-112,199,-129,188,-140,175,-144,173,-143,172,-143,170,-142,170,-140,171,-137,173,-135,175,-132,178,-127,179,-120,178,-116,175,-112,172,-109,168,-108,163,-107,155,-109,148,-113,142,-119,139,-127,137,-136,138,-143,141,-150,146,-155,154,-158,165,-159,195,-153,220,-135,239,-111,252,-84,261,-58,280,18,321,29,356,47,382,70,398,96,404,126,401,149,391,170,376,189,355,206,330,219,352,308,360,337,368,362,378,380,389,393,402,397,404,397,406,396,408,394,408,392,407,390,405,387,402,384,400,379,399,372,400,368,402,364,410,360,415,360,423,361,430,366,435,372,439,380,440,390,439,396,436,402,431,407,424,411,413,412,381,404,355,385,336,359,323,330,314,303,16383,16383,325,200,345,188,362,175,374,160,382,143,385,126,380,103,367,82,345,64,318,50,285,39,16383,16383,247,33,235,33,232,32,228,32,214,33,201,34,188,36,176,38,165,41,209,219,241,219,267,217,291,211,16383,16383,131,54,111,65,96,78,84,93,77,109,74,126,79,149,91,170,112,188,138,203,171,213,415,225,385,231,368,234,351,236,334,237,352,308,360,337,368,362,377,381,388,393,402,397,404,397,405,396,407,395,407,392,406,390,402,384,399,379,398,372,399,368,402,364,405,362,409,360,414,360,422,361,429,366,435,372,438,380,440,390,439,396,436,402,431,407,423,411,412,412,380,404,355,385,336,359,322,330,314,303,297,238,257,238,227,236,213,234,231,308,239,337,247,362,257,380,268,393,281,397,283,397,285,396,287,394,287,392,286,390,284,387,281,384,279,379,278,372,279,368,281,364,289,360,294,360,302,361,309,366,315,372,318,380,320,390,319,396,316,402,310,407,302,411,292,412,260,404,234,385,215,359,201,330,193,303,174,227,132,214,99,197,74,177,59,153,54,126,57,103,66,82,80,64,101,49,127,37,102,-61,94,-89,86,-112,77,-129,67,-140,54,-144,52,-143,50,-143,49,-142,49,-137,52,-135,54,-132,57,-127,57,-116,54,-112,51,-109,46,-108,42,-107,34,-109,27,-113,21,-119,18,-127,16,-136,17,-143,20,-150,25,-155,33,-158,44,-159,74,-153,99,-135,117,-111,131,-84,140,-58,161,26,175,23,191,20,207,18,224,16,242,15,223,-61,215,-89,207,-112,198,-129,187,-140,175,-144,173,-143,171,-143,169,-141,169,-140,170,-137,175,-132,177,-127,178,-120,177,-116,175,-112,171,-109,167,-108,162,-107,154,-109,147,-113,142,-119,138,-127,137,-136,138,-143,141,-150,146,-155,154,-158,164,-159,194,-153,219,-135,238,-111,251,-84,260,-58,278,13,289,13,305,14,320,14,335,15,349,16,363,18,344,-61,336,-89,328,-112,319,-129,309,-140,296,-144,294,-143,292,-143,290,-141,290,-140,291,-137,296,-132,298,-127,299,-120,298,-116,296,-112,292,-109,288,-108,283,-107,275,-109,268,-113,262,-119,259,-127,257,-136,258,-143,261,-150,267,-155,275,-158,285,-159,316,-153,340,-135,359,-111,372,-84,381,-58,401,24,444,36,478,53,503,73,519,98,524,126,521,148,
+49,-137,51,-109,49,-140,49,-140,46,-108,44,-159,44,-159,46,-108,42,-107,44,-159,42,-107,34,-109,51,-109,52,-135,54,-112,54,-112,52,-135,54,-132,54,-112,54,-132,57,-116,57,-116,54,-132,57,-127,57,-116,57,-127,57,-120,94,-89,86,-112,99,-135,99,-135,86,-112,77,-129,99,-135,77,-129,74,-153,74,-153,77,-129,67,-140,74,-153,67,-140,54,-144,54,-144,52,-143,74,-153,74,-153,52,-143,50,-143,74,-153,50,-143,44,-159,44,-159,50,-143,49,-142,44,-159,49,-142,49,-141,96,78,102,48,111,65,111,65,102,48,126,35,111,65,126,35,131,54,131,54,126,35,131,-84,131,54,131,-84,171,213,171,213,131,-84,140,-58,171,213,140,-58,160,22,84,93,77,109,82,65,84,93,82,65,102,48,84,93,102,48,96,78,77,109,74,126,82,65,82,65,74,126,67,84,67,84,74,126,76,182,76,182,74,126,79,149,171,-137,172,-109,170,-140,170,-140,168,-108,165,-159,165,-159,168,-108,163,-107,165,-159,163,-107,155,-109,172,-109,173,-135,175,-112,175,-112,173,-135,175,-132,175,-112,175,-132,178,-116,178,-116,175,-132,178,-127,178,-116,178,-127,179,-120,216,-89,208,-112,220,-135,220,-135,208,-112,199,-129,220,-135,199,-129,195,-153,195,-153,199,-129,188,-140,195,-153,188,-140,175,-144,175,-144,173,-143,195,-153,195,-153,173,-143,172,-143,195,-153,172,-143,165,-159,165,-159,172,-143,170,-142,165,-159,170,-142,170,-141,201,330,193,303,209,219,209,219,193,303,175,233,209,219,175,233,171,213,171,213,175,233,138,203,138,203,175,233,135,222,138,203,135,222,112,188,112,188,135,222,101,204,112,188,101,204,91,170,91,170,101,204,79,149,61,155,55,126,58,104,61,155,58,104,67,84,61,155,67,84,76,182,285,396,292,412,283,397,283,397,292,412,281,397,268,393,281,397,292,412,268,393,292,412,260,404,302,361,302,411,294,360,294,360,302,411,292,412,294,360,292,412,289,360,289,360,292,412,287,392,289,360,287,392,286,390,289,360,286,390,285,362,285,362,286,390,284,387,285,362,284,387,281,364,281,364,284,387,281,384,281,364,281,384,279,368,279,368,281,384,279,379,279,368,279,379,278,372,320,390,319,396,318,380,318,380,319,396,316,402,318,380,316,402,315,372,315,372,316,402,310,407,315,372,310,407,309,366,309,366,310,407,302,411,309,366,302,411,302,361,292,412,285,396,286,395,292,412,286,395,287,394,292,412,287,394,287,392,260,404,234,385,239,337,260,404,239,337,247,362,260,404,247,362,257,380,260,404,257,380,268,393,239,337,234,385,231,308,231,308,234,385,215,358,231,308,215,358,214,238,214,238,215,358,212,219,214,238,212,219,216,219,215,358,201,330,209,219,215,358,209,219,212,219,176,38,165,41,172,19,171,213,165,41,209,219,160,22,172,19,165,41,160,22,165,41,171,213,94,-89,99,-135,102,-61,102,-61,99,-135,117,-111,102,-61,117,-111,126,35,126,35,117,-111,131,-84,49,-140,44,-159,49,-141,16,-136,17,-143,18,-127,18,-127,17,-143,20,-150,18,-127,20,-150,21,-119,21,-119,20,-150,25,-155,21,-119,25,-155,27,-113,27,-113,25,-155,33,-158,27,-113,33,-158,34,-109,34,-109,33,-158,44,-159,296,231,284,234,291,211,291,211,325,200,296,231,296,231,325,200,314,303,406,396,413,412,404,397,404,397,413,412,402,397,389,393,402,397,413,412,389,393,413,412,381,404,423,361,424,411,415,360,415,360,424,411,413,412,415,360,413,412,410,360,410,360,413,412,408,392,410,360,408,392,407,390,410,360,407,390,406,362,406,362,407,390,405,387,406,362,405,387,402,364,402,364,405,387,402,384,402,364,402,384,400,379,400,379,399,372,400,368,400,379,400,368,402,364,440,390,439,396,439,380,439,380,439,396,436,402,439,380,436,402,435,372,435,372,436,402,431,407,435,372,431,407,430,366,430,366,431,407,424,411,430,366,424,411,423,361,413,412,406,396,407,395,413,412,407,395,408,394,413,412,408,394,408,392,381,404,355,385,360,337,381,404,360,337,368,362,381,404,368,362,378,380,381,404,378,380,389,393,336,359,330,219,352,308,336,359,352,308,355,385,355,385,352,308,360,337,336,359,325,200,330,219,330,219,325,200,345,188,330,219,345,188,355,206,355,206,345,188,362,175,355,206,362,175,376,189,376,189,362,175,374,160,376,189,374,160,382,143,323,330,314,303,325,200,323,330,325,200,336,359,291,211,247,33,252,-84,291,211,252,-84,261,-58,291,211,261,-58,280,18,291,211,280,18,285,39,291,211,285,39,325,200,243,33,239,33,239,14,243,33,239,14,242,14,243,33,242,14,252,-84,243,33,252,-84,247,33,216,-89,220,-135,223,-61,223,-61,220,-135,239,-111,223,-61,239,-111,242,14,242,14,239,-111,252,-84,170,-140,165,-159,170,-141,137,-136,138,-143,139,-127,139,-127,138,-143,141,-150,139,-127,141,-150,142,-119,142,-119,141,-150,146,-155,142,-119,146,-155,148,-113,148,-113,146,-155,154,-158,148,-113,154,-158,155,-109,155,-109,154,-158,165,-159,404,126,401,149,398,96,398,96,401,149,391,170,398,96,391,170,385,126,385,126,382,70,398,96,391,170,376,189,382,143,391,170,382,143,385,126,385,126,380,103,382,70,382,70,380,103,367,82,382,70,367,82,356,47,356,47,367,82,345,64,356,47,345,64,321,29,321,29,345,64,318,50,321,29,318,50,285,39,280,18,321,29,285,39,176,38,186,17,188,36,188,36,186,17,200,15,188,36,200,15,201,34,201,34,200,15,215,14,201,34,215,14,214,33,214,33,215,14,228,32,232,32,228,32,230,13,232,32,230,13,232,13,291,211,284,234,279,214,279,214,284,234,271,236,279,214,271,236,267,217,267,217,271,236,258,237,267,217,258,237,254,218,254,218,258,237,244,238,254,218,244,238,241,219,241,219,244,238,230,238,241,219,230,238,228,219,232,13,235,13,235,33,235,33,235,13,237,14,235,33,237,14,239,33,239,33,237,14,239,14,230,238,214,238,216,219,230,238,216,219,220,219,230,238,220,219,224,219,230,238,224,219,228,219,228,32,215,14,230,13,232,32,232,13,235,33,176,38,172,19,186,17,76,182,79,149,101,204,168,-108,170,-140,172,-109,172,-109,171,-137,173,-135,46,-108,49,-140,51,-109,51,-109,49,-137,52,-135,
+319,60,319,93,170,93,200,160,319,160,319,193,214,193,274,331,247,331,187,193,24,193,24,160,172,160,143,93,24,93,24,60,128,60,69,-77,95,-77,156,60,319,206,319,239,24,239,24,206,16383,16383,319,110,319,143,24,143,24,110,16383,16383,319,14,319,47,24,47,24,14,319,14,319,47,150,47,177,110,319,110,319,143,
+128,60,69,-77,95,-77,128,60,95,-77,156,60,128,60,156,60,143,93,128,60,143,93,24,93,128,60,24,93,24,60,172,160,143,93,156,60,172,160,156,60,170,93,172,160,170,93,200,160,172,160,200,160,187,193,172,160,187,193,24,193,172,160,24,193,24,160,214,193,274,331,247,331,214,193,247,331,200,160,214,193,200,160,319,160,214,193,319,160,319,193,170,93,156,60,319,60,170,93,319,60,319,93,187,193,200,160,247,331,
+319,206,319,239,24,239,24,206,16383,16383,319,110,319,143,24,143,24,110,16383,16383,319,14,319,47,24,47,24,14,319,14,319,47,150,47,177,110,319,110,319,143,192,143,219,206,319,206,319,239,233,239,274,331,247,331,207,239,
+24,239,24,206,319,206,24,239,319,206,319,239,24,143,24,110,319,110,24,143,319,110,319,143,24,47,24,14,319,14,24,47,319,14,319,47,
+319,14,319,47,150,47,177,110,319,110,319,143,192,143,219,206,319,206,319,239,233,239,274,331,247,331,207,239,24,239,24,206,193,206,165,143,24,143,24,110,151,110,123,47,24,47,24,14,108,14,69,-77,95,-77,136,14,319,239,319,272,24,272,24,239,16383,16383,319,153,319,186,24,186,24,153,16383,16383,319,67,319,100,24,100,24,67,16383,16383,319,-18,319,14,24,14,24,-18,315,26,315,57,99,165,315,272,315,305,32,167,32,162,16383,16383,315,-50,
+108,14,69,-77,95,-77,108,14,95,-77,136,14,108,14,136,14,123,47,108,14,123,47,24,47,108,14,24,47,24,14,151,110,123,47,136,14,151,110,136,14,150,47,151,110,150,47,177,110,151,110,177,110,165,143,151,110,165,143,24,143,151,110,24,143,24,110,193,206,165,143,177,110,193,206,177,110,192,143,193,206,192,143,219,206,193,206,219,206,207,239,193,206,207,239,24,239,193,206,24,239,24,206,233,239,274,331,247,331,233,239,247,331,219,206,233,239,219,206,319,206,233,239,319,206,319,239,192,143,177,110,319,110,192,143,319,110,319,143,150,47,136,14,319,14,150,47,319,14,319,47,207,239,219,206,247,331,
+319,239,319,272,24,272,24,239,16383,16383,319,153,319,186,24,186,24,153,16383,16383,319,67,319,100,24,100,24,67,16383,16383,319,-18,319,14,24,14,24,-18,315,26,315,57,99,165,315,272,315,305,32,167,32,162,16383,16383,315,-50,315,-17,32,-17,32,-50,315,162,315,167,32,305,32,272,248,165,32,57,32,26,
+24,272,24,239,319,239,24,272,319,239,319,272,24,186,24,153,319,153,24,186,319,153,319,186,24,100,24,67,319,67,24,100,319,67,319,100,24,14,24,-18,319,-18,24,14,319,-18,319,14,
+315,26,315,57,99,165,315,272,315,305,32,167,32,162,16383,16383,315,-50,315,-17,32,-17,32,-50,315,162,315,167,32,305,32,272,248,165,32,57,32,26,16383,16383,315,-50,315,-17,32,-17,32,-50,
+99,165,315,272,315,305,99,165,315,305,32,167,99,165,32,167,315,26,99,165,315,26,315,57,32,-17,32,-50,315,-50,32,-17,315,-50,315,-17,315,26,32,167,32,162,
+315,162,315,167,32,305,32,272,248,165,32,57,32,26,16383,16383,315,-50,315,-17,32,-17,32,-50,311,80,311,112,95,219,311,326,311,359,28,222,28,217,16383,16383,311,-5,311,27,28,27,28,-5,
+248,165,32,57,315,162,248,165,315,162,315,167,248,165,315,167,32,305,248,165,32,305,32,272,32,-17,32,-50,315,-50,32,-17,315,-50,315,-17,315,162,32,57,32,26,
+311,80,311,112,95,219,311,326,311,359,28,222,28,217,16383,16383,311,-5,311,27,28,27,28,-5,16383,16383,311,-104,311,-72,28,-72,28,-104,311,217,311,222,28,359,28,326,244,219,28,112,28,80,16383,16383,311,-5,311,27,28,27,28,-5,16383,16383,311,-104,311,-72,28,-72,28,-104,
+95,219,311,326,311,359,95,219,311,359,28,222,95,219,28,222,311,80,95,219,311,80,311,112,28,27,28,-5,311,-5,28,27,311,-5,311,27,28,-72,28,-104,311,-104,28,-72,311,-104,311,-72,311,80,28,222,28,217,
+311,217,311,222,28,359,28,326,244,219,28,112,28,80,16383,16383,311,-5,311,27,28,27,28,-5,16383,16383,311,-104,311,-72,28,-72,28,-104,310,94,310,126,94,233,310,340,310,373,28,235,28,230,16383,16383,310,-91,310,-58,158,-58,200,8,310,8,310,41,221,41,245,79,215,79,
+244,219,28,112,311,217,244,219,311,217,311,222,244,219,311,222,28,359,244,219,28,359,28,326,28,27,28,-5,311,-5,28,27,311,-5,311,27,28,-72,28,-104,311,-104,28,-72,311,-104,311,-72,311,217,28,112,28,80,
+310,94,310,126,94,233,310,340,310,373,28,235,28,230,16383,16383,310,-91,310,-58,158,-58,200,8,310,8,310,41,221,41,245,79,215,79,191,41,28,41,28,8,171,8,128,-58,28,-58,28,-91,108,-91,84,-129,114,-129,138,-91,310,230,310,235,28,373,28,340,244,233,28,126,28,94,16383,16383,310,-91,310,-58,165,-58,207,8,310,8,310,41,228,41,252,79,222,79,198,41,28,41,28,8,177,8,135,-58,28,-58,28,-91,114,-91,91,-129,121,-129,145,-91,
+94,233,310,340,310,373,94,233,310,373,28,235,94,233,28,235,310,94,94,233,310,94,310,126,28,41,171,8,191,41,191,41,171,8,200,8,191,41,200,8,215,79,215,79,200,8,221,41,215,79,221,41,245,79,221,41,200,8,310,8,221,41,310,8,310,41,108,-91,114,-129,128,-58,128,-58,114,-129,138,-91,128,-58,138,-91,171,8,171,8,138,-91,158,-58,171,8,158,-58,200,8,28,-58,28,-91,108,-91,28,-58,108,-91,128,-58,158,-58,138,-91,310,-91,158,-58,310,-91,310,-58,114,-129,108,-91,84,-129,171,8,28,41,28,8,310,94,28,235,28,230,
+310,230,310,235,28,373,28,340,244,233,28,126,28,94,16383,16383,310,-91,310,-58,165,-58,207,8,310,8,310,41,228,41,252,79,222,79,198,41,28,41,28,8,177,8,135,-58,28,-58,28,-91,114,-91,91,-129,121,-129,145,-91,454,-12,454,18,238,127,454,233,454,266,171,129,171,124,16383,16383,295,-12,295,18,79,127,295,233,295,266,12,129,12,124,454,124,454,129,171,266,171,233,387,127,171,18,171,-12,16383,16383,295,124,295,129,12,266,12,233,228,127,
+244,233,28,126,310,230,244,233,310,230,310,235,244,233,310,235,28,373,244,233,28,373,28,340,28,41,177,8,198,41,198,41,177,8,207,8,198,41,207,8,222,79,222,79,207,8,228,41,222,79,228,41,252,79,228,41,207,8,310,8,228,41,310,8,310,41,114,-91,121,-129,135,-58,135,-58,121,-129,145,-91,135,-58,145,-91,177,8,177,8,145,-91,165,-58,177,8,165,-58,207,8,28,-58,28,-91,114,-91,28,-58,114,-91,135,-58,165,-58,145,-91,310,-91,165,-58,310,-91,310,-58,121,-129,114,-91,91,-129,177,8,28,41,28,8,310,230,28,126,28,94,
+454,-12,454,18,238,127,454,233,454,266,171,129,171,124,16383,16383,295,-12,295,18,79,127,295,233,295,266,12,129,12,124,454,124,454,129,171,266,171,233,387,127,171,18,171,-12,16383,16383,295,124,295,129,12,266,12,233,228,127,12,18,12,-12,
+238,127,454,233,454,266,238,127,454,266,171,129,238,127,171,129,454,-12,238,127,454,-12,454,18,79,127,295,233,295,266,79,127,295,266,12,129,79,127,12,129,295,-12,79,127,295,-12,295,18,295,-12,12,129,12,124,454,-12,171,129,171,124,
+454,124,454,129,171,266,171,233,387,127,171,18,171,-12,16383,16383,295,124,295,129,12,266,12,233,228,127,12,18,12,-12,190,-102,179,-89,167,-74,154,-59,130,-25,149,4,165,35,176,66,183,97,185,127,183,156,176,187,164,218,149,248,130,278,
+387,127,171,18,454,124,387,127,454,124,454,129,387,127,454,129,171,266,387,127,171,266,171,233,228,127,12,18,295,124,228,127,295,124,295,129,228,127,295,129,12,266,228,127,12,266,12,233,295,124,12,18,12,-12,454,124,171,18,171,-12,
+190,-102,179,-89,167,-74,154,-59,130,-25,149,4,165,35,176,66,183,97,185,127,183,156,176,187,164,218,149,248,130,278,142,296,154,312,167,328,179,342,190,355,190,365,174,353,158,340,143,326,130,312,117,296,103,312,89,326,74,340,59,353,42,365,42,357,66,329,78,313,91,296,103,278,84,249,68,218,57,187,50,156,47,127,50,97,57,66,68,35,84,4,103,-25,91,-42,78,-58,66,-74,42,-102,42,-111,59,-99,89,-73,117,-43,143,-73,158,-86,174,-99,190,-111,16383,16383,152,127,151,98,146,70,138,45,128,20,116,-2,104,20,95,45,87,71,82,98,80,127,82,155,87,182,95,208,105,233,117,256,128,233,138,208,146,182,151,155,152,127,319,22,300,49,273,71,242,87,207,96,174,100,198,155,227,162,255,173,281,188,303,208,319,232,319,249,302,230,283,215,261,204,237,195,213,190,254,286,228,286,184,186,171,186,138,188,105,195,75,206,47,224,24,249,24,232,43,204,69,182,101,166,135,156,170,153,146,98,116,92,88,81,61,65,40,46,24,22,24,4,40,22,60,38,82,49,106,58,131,64,89,-32,116,-32,159,66,161,67,171,67,204,65,237,58,268,46,295,28,319,4,310,-12,310,18,171,88,214,185,310,233,310,266,232,228,277,331,250,331,198,211,28,128,28,123,137,71,71,-77,99,-77,158,60,16383,16383,179,168,148,99,94,126,310,123,310,128,203,181,268,331,241,331,
+130,278,142,296,143,326,143,326,142,296,154,312,143,326,154,312,158,340,158,340,154,312,167,328,158,340,167,328,174,353,174,353,167,328,179,342,174,353,179,342,190,365,190,365,179,342,190,355,117,296,103,312,105,233,117,296,105,233,117,256,117,256,128,233,130,312,130,312,128,233,130,278,130,312,130,278,143,326,116,-2,117,-43,128,20,128,20,117,-43,130,-58,128,20,130,-58,130,-25,130,-25,130,-58,143,-73,130,-25,138,45,128,20,183,97,183,156,176,66,176,66,183,156,176,187,176,66,176,187,165,35,165,35,176,187,164,218,165,35,164,218,152,127,152,127,164,218,151,155,149,248,130,278,138,208,149,248,138,208,146,182,149,248,146,182,151,155,149,248,151,155,164,218,130,312,117,296,117,256,165,35,152,127,151,98,165,35,151,98,149,4,149,4,151,98,146,70,149,4,146,70,138,45,142,-42,143,-73,154,-59,154,-59,143,-73,158,-86,154,-59,158,-86,167,-74,167,-74,158,-86,174,-99,167,-74,174,-99,179,-89,179,-89,174,-99,190,-111,179,-89,190,-111,190,-102,105,233,103,312,103,278,103,278,103,312,91,296,91,296,103,312,89,326,91,296,89,326,78,313,78,313,89,326,74,340,78,313,74,340,66,329,66,329,74,340,59,353,66,329,59,353,54,343,54,343,59,353,42,365,54,343,42,365,42,357,103,-58,103,-25,91,-42,103,-58,91,-42,89,-73,89,-73,91,-42,78,-58,89,-73,78,-58,74,-86,74,-86,78,-58,66,-74,74,-86,66,-74,59,-99,59,-99,66,-74,54,-88,59,-99,54,-88,42,-102,104,20,95,45,103,-25,104,20,103,-25,103,-58,104,20,103,-58,117,-43,104,20,117,-43,116,-2,103,278,84,249,87,182,103,278,87,182,95,208,103,278,95,208,105,233,84,249,68,218,68,35,84,249,68,35,80,127,84,249,80,127,82,155,84,249,82,155,87,182,87,71,82,98,84,4,84,4,82,98,80,127,68,35,68,218,57,66,57,66,68,218,57,187,57,66,57,187,50,97,50,97,57,187,50,156,50,97,50,156,47,127,87,71,84,4,103,-25,87,71,103,-25,95,45,84,4,80,127,68,35,59,-99,42,-102,42,-111,130,-25,143,-73,142,-42,138,45,130,-25,149,4,183,156,183,97,185,127,130,278,128,233,138,208,
+319,22,300,49,273,71,242,87,207,96,174,100,198,155,227,162,255,173,281,188,303,208,319,232,319,249,302,230,283,215,261,204,237,195,213,190,254,286,228,286,184,186,171,186,138,188,105,195,75,206,47,224,24,249,24,232,43,204,69,182,101,166,135,156,170,153,146,98,116,92,88,81,61,65,40,46,24,22,24,4,40,22,60,38,82,49,106,58,131,64,89,-32,116,-32,159,66,161,67,171,67,204,65,237,58,268,46,295,28,319,4,310,-12,310,18,171,88,214,185,310,233,310,266,232,228,277,331,250,331,198,211,28,128,28,123,137,71,71,-77,99,-77,158,60,16383,16383,179,168,148,99,94,126,310,123,310,128,203,181,268,331,241,331,180,192,28,266,28,233,168,164,126,68,28,18,28,-12,108,26,63,-77,89,-77,142,42,16383,16383,244,126,161,84,190,153,310,-50,310,-17,129,-17,171,92,310,25,310,56,181,120,220,226,310,271,310,304,236,267,272,365,246,365,203,251,28,166,
+40,22,60,38,61,65,61,65,60,38,82,49,61,65,82,49,88,81,88,81,82,49,106,58,88,81,106,58,116,92,116,92,106,58,131,64,146,98,131,64,159,66,146,98,159,66,170,153,170,153,159,66,161,67,170,153,161,67,164,67,40,22,61,65,40,46,40,22,40,46,24,22,40,22,24,22,24,4,135,156,170,153,138,188,138,188,170,153,171,186,173,186,171,186,171,67,173,186,171,67,174,100,174,100,171,67,204,65,174,100,204,65,207,96,207,96,204,65,237,58,207,96,237,58,242,87,242,87,237,58,268,46,242,87,268,46,273,71,273,71,268,46,295,28,273,71,295,28,300,49,300,49,295,28,319,4,300,49,319,4,319,22,24,249,43,204,47,224,47,224,43,204,69,182,47,224,69,182,75,206,75,206,69,182,101,166,75,206,101,166,105,195,105,195,101,166,135,156,105,195,135,156,138,188,171,67,171,186,170,153,171,67,170,153,168,67,170,153,164,67,166,67,170,153,166,67,168,67,131,64,89,-32,116,-32,131,64,116,-32,159,66,319,249,302,230,303,208,303,208,302,230,283,215,303,208,283,215,281,188,281,188,283,215,261,204,281,188,261,204,255,173,255,173,261,204,237,195,255,173,237,195,227,162,227,162,237,195,213,190,227,162,213,190,198,155,228,286,184,186,198,155,228,286,198,155,213,190,228,286,213,190,254,286,198,155,184,186,181,186,198,155,181,186,179,186,198,155,179,186,176,186,198,155,176,186,174,100,176,186,173,186,174,100,43,204,24,249,24,232,319,249,303,208,319,232,116,92,131,64,146,98,
+310,-12,310,18,171,88,214,185,310,233,310,266,232,228,277,331,250,331,198,211,28,128,28,123,137,71,71,-77,99,-77,158,60,16383,16383,179,168,148,99,94,126,310,123,310,128,203,181,268,331,241,331,180,192,28,266,28,233,168,164,126,68,28,18,28,-12,108,26,63,-77,89,-77,142,42,16383,16383,244,126,161,84,190,153,
+198,211,28,128,94,126,94,126,28,128,137,71,94,126,137,71,148,99,148,99,137,71,158,60,148,99,158,60,179,168,179,168,158,60,171,88,179,168,171,88,214,185,94,126,179,168,198,211,198,211,179,168,214,185,198,211,214,185,250,331,250,331,214,185,232,228,250,331,232,228,277,331,137,71,71,-77,99,-77,137,71,99,-77,158,60,232,228,214,185,310,233,232,228,310,233,310,266,171,88,158,60,310,-12,171,88,310,-12,310,18,137,71,28,128,28,123,
+310,123,310,128,203,181,268,331,241,331,180,192,28,266,28,233,168,164,126,68,28,18,28,-12,108,26,63,-77,89,-77,142,42,16383,16383,244,126,161,84,190,153,310,-50,310,-17,129,-17,171,92,310,25,310,56,181,120,220,226,310,271,310,304,236,267,272,365,246,365,203,251,28,166,28,161,147,103,103,-17,28,-17,28,-50,
+108,26,63,-77,89,-77,108,26,89,-77,142,42,108,26,142,42,126,68,108,26,126,68,28,18,108,26,28,18,28,-12,168,164,126,68,142,42,168,164,142,42,161,84,168,164,161,84,190,153,168,164,190,153,180,192,168,164,180,192,28,266,168,164,28,266,28,233,203,181,268,331,241,331,203,181,241,331,190,153,203,181,190,153,244,126,203,181,244,126,310,128,310,123,310,128,244,126,310,123,244,126,161,84,310,123,161,84,142,42,180,192,190,153,241,331,
+320,0,320,33,190,33,190,331,157,331,157,33,26,33,26,0,313,126,309,150,298,171,281,188,260,199,235,203,211,199,189,188,
+190,331,157,331,190,33,190,33,157,331,157,33,190,33,157,33,320,0,320,0,157,33,26,33,320,0,26,33,26,0,190,33,320,0,320,33
 };
-short mgl_buf_fnt[246080] = {
-123,
-123,132,123,164,390,164,395,165,400,165,416,163,436,159,451,151,463,141,471,128,473,114,471,103,463,96,452,92,437,91,420,91,404,92,398,93,390,16383,16383,165,30,163,42,158,52,150,61,140,66,128,68,116,66,106,61,98,52,92,42,91,30,92,19,97,8,105,1,115,-3,127,-5,140,-3,150,1,158,8,163,18,165,30,209,302,216,341,222,376,227,405,231,428,232,445,231,454,226,462,220,468,212,472,202,473,193,472,184,468,178,461,173,453,172,443,173,430,176,408,187,342,195,302,16383,16383,91,302,98,340,105,375,109,404,112,428,113,445,112,454,108,462,102,468,94,472,84,473,74,472,66,468,59,461,55,453,54,443,55,430,58,408,69,342,77,302,347,284,347,322,280,322,300,463,259,463,239,322,145,322,167,463,127,463,105,322,23,322,23,284,99,284,84,190,4,190,4,152,78,152,55,0,96,0,119,152,213,152,191,0,232,0,253,152,329,152,329,190,259,190,273,284,16383,16383,233,284,219,190,125,190,140,284,185,446,216,439,241,426,261,407,276,382,287,350,298,350,298,427,283,439,265,449,243,456,216,462,185,465,185,509,161,509,161,465,123,459,89,446,62,425,43,397,37,359,40,327,53,299,75,274,111,247,161,217,161,20,126,24,96,37,72,59,54,89,41,127,30,127,30,36,53,22,76,12,100,5,128,1,161,0,161,-60,185,-60,185,0,230,9,267,23,296,45,314,76,320,119,320,134,318,148,315,160,311,172,306,182,294,198,279,213,258,230,228,249,185,273,16383,16383,161,285,131,307,110,324,97,340,90,355,88,373,91,393,99,411,114,426,134,438,161,446,16383,16383,185,205,218,184,241,165,255,146,263,126,265,103,262,76,253,55,238,40,215,28,185,20,480,149,478,178,469,200,455,217,436,228,413,231,374,223,338,201,308,168,288,127,280,84,285,53,297,26,315,5,338,-7,366,-12,401,-4,432,19,457,55,474,100,480,149,16383,16383,464,151,459,107,445,68,424,35,399,13,370,5,358,8,347,14,338,25,333,38,331,53,334,83,342,114,353,145,368,173,386,195,391,201,405,209,413,211,420,212,435,209,447,201,456,188,462,171,464,151,16383,16383,434,495,404,495,371,463,348,444,328,432,310,428,287,427,272,427,259,430,247,436,234,443,220,454,209,
-462,201,467,193,471,186,473,178,473,136,465,99,444,70,411,50,370,43,324,47,293,58,267,76,246,98,233,125,228,138,229,151,232,163,237,174,244,185,254,204,275,219,301,231,328,239,357,241,387,241,405,240,411,239,418,251,414,262,411,272,409,282,408,292,408,313,409,330,413,346,421,361,432,377,448,101,-12,134,-12,16383,16383,225,398,220,352,207,310,186,277,161,255,132,247,119,249,108,256,99,266,94,280,92,296,94,319,98,343,105,366,114,389,126,410,134,422,141,432,150,440,162,447,177,455,183,448,190,442,196,437,201,434,207,430,215,426,220,422,223,416,225,409,225,398,515,77,502,63,490,53,478,46,465,42,450,41,426,43,403,51,383,64,363,82,344,105,364,134,382,161,414,213,432,242,442,257,452,269,464,277,479,282,498,284,498,298,347,298,347,284,365,281,378,276,386,270,391,262,392,251,390,231,383,210,370,186,352,158,327,124,306,150,286,177,269,204,252,234,235,269,278,290,309,311,329,333,340,358,344,387,339,417,326,441,305,459,279,470,248,473,214,469,185,455,162,432,147,403,141,368,142,350,144,332,149,312,156,290,166,264,139,248,100,222,70,193,48,162,34,129,30,96,35,58,50,29,75,7,108,-4,149,-8,181,-6,212,0,241,12,270,30,300,55,326,31,350,13,373,0,396,-6,420,-8,447,-5,471,4,493,20,511,42,525,70,16383,16383,306,389,304,366,295,345,280,326,257,308,225,291,213,315,205,335,200,354,198,373,197,393,199,412,207,428,218,440,234,448,252,451,270,448,285,439,297,426,304,409,306,389,16383,16383,283,73,259,55,237,43,218,34,199,30,180,28,153,32,129,44,110,63,98,89,94,122,97,149,105,173,121,195,145,217,177,240,198,197,218,161,239,129,260,101,283,73,70,302,78,341,84,376,89,406,92,429,93,445,92,454,88,462,82,468,74,472,64,473,54,472,46,468,39,462,35,453,34,444,35,428,38,405,43,376,49,341,56,302,213,-112,163,-62,129,-11,107,43,97,106,94,178,97,252,108,312,129,365,163,413,213,462,206,473,145,430,97,378,62,318,41,251,34,177,41,105,62,37,97,-24,144,-79,205,-123,20,462,72,413,106,363,127,307,136,244,139,171,136,97,126,36,105,-15,71,-64,20,-112,27,-123,87,-79,136,
--26,171,32,192,99,199,173,192,244,170,311,135,374,88,429,29,473,188,330,206,340,221,347,235,352,249,355,266,359,280,361,290,366,297,371,301,379,302,388,301,397,298,405,292,410,285,414,277,415,267,412,256,404,244,393,233,381,223,370,215,363,208,357,201,352,192,346,182,340,182,367,184,378,186,390,189,402,194,415,196,423,199,430,200,437,201,443,202,448,200,456,197,463,191,468,184,472,176,473,168,472,161,469,156,463,152,457,151,449,151,444,153,430,155,422,158,413,162,399,165,386,167,373,169,349,169,340,154,349,142,357,130,367,106,391,98,400,91,406,85,411,78,413,72,414,64,413,58,409,53,403,50,396,49,387,49,388,51,378,56,371,65,365,78,360,96,355,110,353,122,349,135,344,149,338,164,330,149,321,135,314,123,309,109,305,91,302,75,298,63,293,54,287,49,280,48,270,49,262,52,255,57,250,64,246,73,245,80,246,85,248,91,251,97,256,104,263,114,274,121,281,125,286,128,290,132,294,136,297,141,301,147,306,156,311,169,320,169,313,168,296,167,282,165,269,162,256,158,244,155,236,152,229,151,222,150,216,149,211,151,203,154,196,160,190,167,187,174,185,183,187,190,191,196,197,201,204,202,213,202,216,201,220,200,225,198,230,191,251,187,266,184,281,182,313,182,320,188,316,196,310,205,304,215,297,225,287,236,275,246,263,254,255,262,249,270,246,278,245,286,246,293,250,299,256,302,263,303,272,302,281,297,289,289,294,277,298,261,302,246,305,218,313,205,319,194,326,445,154,445,200,263,200,263,383,216,383,216,200,34,200,34,154,216,154,216,-28,263,-28,263,154,58,-97,85,-81,107,-61,123,-38,133,-14,137,10,134,31,126,47,114,60,98,68,80,71,66,69,55,64,46,56,40,45,38,31,40,19,45,9,53,2,65,-2,79,-3,83,-3,88,-2,92,-1,102,-1,105,-2,109,-6,109,-9,107,-23,100,-38,88,-53,72,-69,51,-84,199,136,199,180,27,180,27,136,127,30,125,42,119,53,111,62,100,68,88,70,76,68,65,63,57,54,51,43,49,30,51,18,56,8,65,0,75,-5,88,-7,100,-5,110,0,119,8,125,19,127,30,201,473,154,473,-5,-9,41,-9,333,231,325,311,305,378,272,429,229,462,178,473,118,461,73,425,41,
-373,23,308,17,235,22,166,38,99,68,43,113,4,175,-9,235,3,280,40,310,94,327,160,333,231,16383,16383,266,227,262,151,251,91,233,46,207,18,175,9,142,18,117,46,99,91,88,153,84,230,88,308,99,371,117,417,142,445,173,455,207,445,233,417,251,370,262,307,266,227,276,0,276,10,249,12,230,17,218,25,211,37,209,53,209,471,203,473,77,409,77,400,97,407,104,410,111,412,118,413,128,415,136,414,142,410,146,403,148,393,149,380,149,66,147,46,141,31,128,20,110,14,83,10,83,0,332,96,322,100,309,80,297,67,285,58,271,54,255,53,91,53,206,177,239,214,265,250,282,284,293,317,296,350,290,390,273,423,246,450,210,467,166,473,120,467,82,448,54,418,34,380,21,334,36,330,53,366,70,392,89,409,111,418,138,421,172,417,199,405,219,385,232,357,236,323,233,288,223,253,205,218,179,181,145,141,20,9,20,0,294,0,43,357,60,385,79,405,100,420,122,428,147,431,172,428,193,420,209,405,219,386,223,360,220,336,212,314,201,295,185,279,166,266,157,261,147,256,135,251,122,246,107,241,107,231,128,231,145,230,158,229,169,227,178,224,204,213,225,198,240,177,249,152,252,123,247,89,234,59,215,36,189,21,160,16,149,16,138,18,127,22,114,28,100,37,89,44,80,49,72,53,64,55,57,55,48,54,40,51,34,45,30,38,29,30,32,16,42,5,58,-2,79,-7,107,-9,145,-7,181,0,215,13,245,31,270,55,280,72,289,91,296,111,300,131,302,153,300,175,296,195,290,213,282,229,271,244,253,260,242,266,229,273,212,280,213,280,237,298,256,317,269,337,276,357,278,377,273,409,258,436,235,456,205,469,169,473,128,468,95,453,67,429,46,397,31,360,331,117,331,162,259,162,259,473,228,473,9,162,9,117,205,117,205,0,259,0,259,117,16383,16383,205,162,37,162,205,402,306,477,300,481,294,474,288,469,282,466,275,464,266,463,122,463,45,298,45,292,46,290,47,289,50,288,53,288,91,286,125,279,155,268,180,254,202,239,219,223,232,204,241,183,247,160,249,134,244,99,230,67,209,41,183,23,155,16,146,17,137,20,127,24,116,30,105,38,92,48,82,54,72,58,63,60,53,60,42,59,34,56,27,50,23,43,22,
-34,26,19,38,7,57,-1,81,-7,111,-9,138,-8,164,-4,187,2,209,12,230,24,255,46,274,71,288,100,296,133,298,170,298,191,295,210,290,227,283,243,273,259,249,288,223,309,192,325,151,337,98,348,127,408,269,408,277,412,280,414,281,417,313,479,259,471,213,460,173,444,136,421,100,388,73,356,52,320,36,281,27,240,23,195,25,166,29,137,36,110,46,84,57,61,74,36,95,17,120,2,149,-6,180,-9,207,-7,232,0,255,9,275,24,292,41,305,60,314,80,321,103,326,127,327,153,321,203,304,244,277,274,241,293,195,299,178,299,161,296,144,290,126,281,106,268,124,327,156,379,199,420,252,450,313,468,16383,16383,265,131,262,91,253,58,237,32,216,16,188,10,153,18,125,41,105,78,93,127,89,186,94,219,106,243,125,257,147,265,170,267,205,262,232,245,250,218,261,180,265,131,314,452,314,463,56,463,14,360,27,354,43,378,57,395,71,405,87,410,109,412,259,412,120,-4,166,-4,312,109,309,140,298,170,278,198,247,227,203,259,240,281,266,300,284,321,294,345,297,373,291,405,275,432,250,454,218,468,179,473,135,469,98,454,69,432,50,401,44,364,46,339,53,315,69,291,94,265,130,232,92,203,66,178,50,155,41,131,39,105,45,67,64,36,92,11,129,-4,173,-9,220,-4,259,11,287,36,305,69,312,109,16383,16383,248,373,246,349,239,327,226,307,208,289,183,273,150,294,125,315,108,337,98,359,95,384,99,408,109,427,125,442,146,451,172,454,198,450,219,439,235,422,245,400,248,373,16383,16383,190,191,215,171,234,152,248,133,256,111,259,87,255,61,244,40,228,24,207,14,181,10,152,14,127,27,108,47,96,76,92,111,94,136,100,159,111,179,127,199,148,219,41,-15,91,-6,132,4,169,19,203,40,238,68,267,101,291,140,308,182,318,228,321,276,319,310,314,342,304,371,292,397,277,420,259,439,239,454,217,464,193,471,166,473,119,465,79,442,48,407,28,361,21,308,27,260,44,221,70,191,105,172,147,166,171,167,193,171,214,179,234,190,252,205,230,142,196,88,152,46,99,16,39,-1,16383,16383,253,248,248,229,233,214,214,204,192,198,172,196,142,202,118,220,100,248,89,286,85,332,86,355,90,377,95,398,102,416,110,430,118,438,127,
-445,137,450,149,453,161,454,194,447,220,425,238,389,249,340,253,276,134,282,132,294,127,305,119,313,108,319,96,321,83,319,73,314,64,306,59,295,57,282,59,270,65,259,73,251,84,246,96,244,108,246,119,251,127,259,132,270,134,282,16383,16383,134,30,132,43,127,54,119,62,108,68,96,70,83,68,73,63,64,54,59,43,57,30,59,19,65,8,73,0,84,-5,96,-7,108,-5,119,0,127,8,132,19,134,30,134,282,132,294,126,305,118,313,107,319,95,321,83,319,72,314,63,306,58,295,56,282,58,270,64,259,72,251,83,246,95,244,107,246,118,251,126,259,132,270,134,282,16383,16383,75,-97,102,-82,124,-63,140,-40,150,-16,153,9,150,30,143,47,131,60,115,68,98,71,84,69,73,64,64,56,58,45,56,32,58,20,63,10,71,2,82,-1,97,-3,101,-3,109,-1,119,-1,122,-3,124,-5,125,-7,126,-10,123,-24,116,-39,105,-54,89,-69,68,-84,434,-16,434,27,132,178,434,328,434,373,39,181,39,174,446,224,446,270,34,270,34,224,16383,16383,446,84,446,130,34,130,34,84,434,174,434,181,39,373,39,328,341,178,39,27,39,-16,171,115,176,142,183,165,192,187,203,206,216,225,247,262,268,292,281,316,288,339,290,363,283,400,265,431,237,454,202,468,162,473,163,473,125,469,93,455,69,434,53,406,48,373,49,357,54,344,61,335,70,329,81,327,91,328,99,332,105,339,109,347,110,357,107,369,101,378,93,386,86,396,84,409,87,422,97,434,112,443,129,450,149,452,174,448,195,437,211,420,222,397,226,370,224,344,218,318,210,292,200,266,190,239,177,205,168,177,163,153,160,133,159,115,16383,16383,203,31,201,43,196,53,188,61,178,67,166,69,154,67,144,62,136,54,131,43,129,31,131,20,135,10,143,2,154,-3,166,-4,178,-3,188,2,196,10,201,20,203,31,481,51,452,38,424,28,396,22,368,18,341,17,274,27,218,56,176,100,149,157,140,226,142,257,147,288,156,318,169,346,184,371,207,399,234,421,265,438,299,448,338,452,401,442,456,415,499,373,528,321,538,261,534,220,520,182,501,152,477,131,450,123,439,125,431,128,425,135,421,144,420,156,420,159,421,162,421,166,422,168,468,346,420,346,413,320,412,320,405,333,397,343,387,350,375,
-354,360,355,339,353,320,347,303,337,286,324,271,306,256,284,243,259,233,233,227,206,225,179,228,152,237,131,250,115,267,104,286,101,306,103,325,109,343,120,359,134,373,152,375,152,380,134,390,120,403,109,420,102,438,100,478,109,513,133,541,170,560,216,566,268,555,334,523,390,474,434,410,463,337,473,301,471,268,466,237,456,207,442,180,425,147,395,120,360,99,320,86,276,81,229,94,151,130,85,185,34,255,1,338,-9,366,-8,394,-4,422,3,454,14,490,30,16383,16383,401,283,399,262,395,240,388,216,380,193,370,172,360,158,350,146,339,138,328,133,316,131,302,134,290,142,282,154,276,171,274,192,275,210,279,228,284,245,291,261,299,276,313,293,327,307,341,317,355,323,368,325,379,323,388,318,395,309,399,298,401,283,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,295,245,315,249,330,254,342,260,353,266,363,273,372,284,380,298,386,313,390,330,391,347,384,387,362,420,325,443,273,458,208,463,12,463,12,450,41,447,60,442,72,431,77,413,79,385,79,79,77,52,71,33,59,22,40,16,12,13,12,0,248,0,304,5,350,21,385,47,407,82,415,124,413,143,409,160,402,177,393,192,380,205,368,216,355,224,339,232,320,238,295,244,16383,16383,151,256,151,424,153,430,156,434,161,437,167,438,196,438,241,433,276,421,300,402,315,375,320,343,315,312,303,287,282,270,253,260,215,256,16383,16383,151,228,194,227,227,225,254,221,278,213,302,200,314,190,323,177,330,162,333,144,334,125,333,108,330,92,325,78,317,66,308,56,290,43,271,34,250,29,225,26,194,26,177,27,165,30,157,36,152,45,151,57,430,91,400,65,371,45,342,32,311,24,276,21,247,23,220,29,194,39,172,53,152,71,133,95,119,123,109,157,103,195,101,239,108,307,130,364,164,408,211,435,269,445,295,443,319,436,342,425,362,410,381,392,391,381,399,
-368,407,353,413,335,418,314,434,314,427,473,414,473,410,465,405,459,399,454,392,451,384,450,376,451,367,453,356,456,346,460,336,463,285,472,269,473,252,473,214,471,177,462,143,448,111,427,83,401,61,372,43,340,30,306,22,268,20,227,22,186,31,148,45,112,63,80,87,52,113,31,144,13,178,0,214,-6,252,-9,300,-5,343,5,382,23,415,47,443,79,11,463,11,450,38,447,56,442,66,431,71,413,73,385,73,80,71,53,67,34,56,23,38,17,11,13,11,0,208,0,249,2,288,8,323,17,356,29,384,45,418,72,445,104,464,143,476,186,480,234,477,275,468,312,454,345,434,374,410,400,378,422,341,440,299,453,252,461,200,463,16383,16383,145,408,146,420,150,428,157,434,167,437,181,438,220,436,254,431,284,422,311,408,337,389,360,364,379,337,392,306,400,270,403,230,400,185,392,146,377,113,357,85,330,62,330,63,305,48,279,37,251,31,218,27,178,26,164,27,154,30,148,37,145,46,145,59,418,118,398,118,379,80,357,53,328,37,289,28,237,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,257,437,298,435,327,429,346,416,357,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,17,9,13,9,0,386,0,382,363,379,463,9,463,9,450,36,447,53,440,64,429,68,412,70,386,70,86,68,55,63,35,52,23,35,16,8,13,8,0,205,0,205,13,177,16,159,22,148,33,142,51,141,78,141,229,240,229,271,227,292,222,306,210,315,190,320,161,335,161,335,324,320,324,315,296,306,277,292,265,270,259,240,258,141,258,141,421,143,428,148,433,155,436,165,437,257,437,300,435,328,429,346,416,358,395,365,363,496,248,317,248,317,235,345,232,363,227,374,216,379,198,380,171,380,61,375,47,362,36,342,26,316,20,286,18,225,27,174,54,135,97,111,155,102,227,104,267,111,306,121,341,136,372,156,397,175,414,196,427,220,437,245,443,273,445,296,444,318,439,339,431,358,421,375,407,387,395,397,382,406,367,415,
-348,425,326,441,326,435,473,420,473,417,466,411,459,405,454,397,451,388,450,384,450,378,451,372,453,358,457,340,463,322,468,305,471,286,473,265,473,225,471,189,463,155,451,124,434,98,413,72,385,51,352,36,315,26,274,23,229,25,189,32,153,43,121,59,91,80,65,111,39,146,18,186,3,227,-6,270,-9,312,-7,352,-1,389,8,421,22,448,39,448,179,449,202,453,218,461,227,475,233,496,235,492,0,492,13,466,17,448,23,437,35,431,52,430,77,430,384,431,411,437,429,448,440,466,447,492,450,492,463,296,463,296,450,323,447,341,441,352,430,357,411,359,384,359,252,146,252,146,384,148,411,153,429,165,441,183,447,209,450,209,463,13,463,13,450,40,447,58,441,69,429,74,411,75,384,75,85,74,55,69,35,58,23,40,16,12,13,13,13,13,0,208,0,207,13,181,16,163,23,153,35,147,53,146,79,146,220,359,220,359,87,357,57,353,37,342,24,324,17,297,13,297,0,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,171,442,191,448,220,450,220,463,13,463,13,450,42,447,62,442,74,431,79,413,80,386,80,78,79,51,73,32,62,21,42,16,12,13,13,13,13,0,248,463,47,463,47,450,76,447,94,441,105,431,110,413,112,385,112,66,111,47,109,33,104,24,97,19,86,17,79,19,74,23,71,30,68,38,64,48,59,58,53,66,47,72,39,76,30,77,19,75,10,70,3,61,-1,51,-3,41,0,23,9,9,23,-1,43,-7,66,-9,107,-4,140,11,164,39,179,78,184,130,184,384,185,412,190,430,201,441,219,447,248,450,506,0,506,13,488,15,471,22,451,35,427,57,397,90,233,269,363,394,389,417,409,433,428,442,448,447,473,450,473,463,291,463,291,450,309,449,320,448,329,445,334,441,337,435,338,427,335,417,328,405,317,391,301,376,283,359,158,244,158,384,159,411,163,429,174,440,192,447,221,450,221,463,23,463,23,450,51,447,70,440,80,429,85,411,87,384,87,88,85,57,80,36,69,23,51,16,23,13,23,0,220,0,220,13,194,16,176,22,165,33,159,50,158,77,158,207,177,222,246,150,277,117,304,89,324,64,338,45,342,30,341,25,338,21,332,17,324,15,313,14,294,13,294,
-0,419,122,401,122,394,108,388,97,382,87,377,78,371,70,355,54,335,42,312,34,284,29,252,27,204,27,178,28,159,31,148,36,142,45,141,59,141,384,142,411,147,429,159,441,178,447,206,450,206,463,9,463,9,450,36,447,54,440,64,428,68,409,70,382,70,80,68,53,63,35,52,23,35,16,9,13,9,0,385,0,605,0,605,13,579,17,561,24,550,35,545,53,543,78,543,385,545,412,550,430,561,442,578,448,604,450,604,463,465,463,310,112,148,463,10,463,10,450,39,447,58,441,70,430,75,411,77,384,77,105,75,66,69,40,57,25,38,17,9,13,9,0,172,0,172,13,144,17,126,25,114,41,109,67,107,105,107,384,284,0,293,0,472,401,472,86,471,57,466,37,455,24,436,17,409,13,409,0,495,463,329,463,329,450,346,448,359,446,369,443,377,439,384,432,390,424,393,413,396,400,397,383,398,363,398,125,127,463,9,463,9,450,27,449,41,445,52,438,64,428,77,413,77,105,75,67,69,42,57,27,38,18,9,13,9,0,172,0,172,13,144,19,126,28,114,44,109,68,107,105,107,377,416,-7,428,-7,428,355,429,383,431,404,436,419,441,430,448,438,454,442,461,445,470,447,480,449,495,450,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,11,463,11,450,37,447,54,441,64,430,69,412,70,386,70,85,69,55,65,35,55,23,38,16,11,13,11,0,207,0,207,13,179,16,160,22,148,33,143,51,141,78,141,204,152,203,161,202,190,202,230,203,263,206,291,214,316,226,340,245,354,259,365,276,373,294,378,315,380,336,378,356,374,375,367,392,357,407,345,420,323,434,298,446,267,456,232,461,192,463,16383,16383,141,413,142,422,144,429,148,434,155,437,166,438,217,434,255,
-423,282,403,298,373,303,333,298,298,283,269,259,248,226,234,184,230,168,230,160,231,151,231,141,232,491,-123,491,-110,445,-104,403,-91,365,-71,330,-42,298,-4,325,1,348,8,368,17,387,29,406,45,433,75,454,108,469,145,478,186,481,233,470,314,439,380,391,431,328,462,252,473,178,463,115,431,66,381,35,314,23,232,26,195,33,161,44,128,59,98,77,70,94,51,111,35,132,22,156,10,185,0,214,-36,247,-68,289,-93,338,-110,394,-120,457,-123,16383,16383,402,237,400,195,394,155,385,119,372,89,357,66,340,49,321,35,300,25,277,18,252,16,228,18,204,25,181,37,161,52,145,70,130,95,119,125,111,158,106,195,104,234,106,274,112,311,122,346,134,375,150,398,167,416,186,429,206,439,228,446,251,448,270,446,289,443,306,437,323,428,338,416,360,393,378,362,391,325,399,283,402,237,462,0,462,13,445,15,431,19,419,24,408,33,396,46,256,223,303,235,339,252,363,275,378,304,383,338,381,357,377,375,371,393,361,409,348,422,328,436,303,447,274,456,240,461,202,463,12,463,12,450,39,447,56,441,66,430,70,412,71,386,71,87,70,56,65,35,55,23,38,16,12,13,12,0,205,0,205,13,178,16,160,22,149,33,144,51,143,78,143,214,182,216,348,0,16383,16383,143,408,144,421,149,429,156,434,165,437,178,438,225,434,261,423,286,404,301,378,306,344,305,323,300,305,292,288,280,274,266,264,248,255,228,248,206,244,179,241,143,240,328,324,313,473,298,473,296,465,292,458,288,453,282,450,276,449,266,451,259,452,253,455,245,458,230,464,216,468,202,471,188,473,172,473,132,468,99,452,73,427,56,393,50,351,53,325,62,299,78,275,102,252,135,230,162,215,188,199,213,182,235,165,252,149,260,140,265,130,269,119,272,107,273,94,269,68,258,46,240,30,217,19,190,16,152,20,120,35,91,59,66,94,45,139,30,139,51,-8,66,-8,67,0,70,5,74,10,79,13,85,14,90,14,96,13,110,9,134,0,150,-3,167,-7,184,-9,201,-9,247,-3,286,14,317,41,337,77,344,121,340,152,327,180,305,207,275,233,235,259,194,283,159,305,133,328,116,351,110,378,113,400,123,418,137,432,157,441,180,445,205,442,227,434,248,423,266,408,282,390,289,380,301,
-356,306,341,311,324,415,345,410,463,17,463,12,345,29,345,38,383,51,409,70,425,98,432,136,434,178,434,178,86,177,55,172,35,160,23,141,16,112,13,112,0,316,0,316,13,288,16,268,22,256,33,251,51,249,77,249,434,291,434,329,432,356,425,375,409,388,383,398,345,494,463,331,463,331,450,360,446,379,437,390,421,395,396,397,359,397,175,396,144,394,119,390,98,382,80,371,62,371,63,356,48,337,37,315,28,291,23,265,21,242,22,222,26,204,33,188,42,175,52,161,69,152,88,147,110,145,135,145,384,146,411,151,429,161,440,180,446,208,450,208,463,10,463,10,450,38,447,56,441,66,431,71,415,73,391,73,174,75,133,81,97,93,67,109,42,130,23,148,11,169,2,193,-4,219,-8,248,-9,285,-7,318,-1,346,9,370,23,390,41,405,63,416,87,423,114,426,145,427,183,427,361,429,395,434,419,445,435,464,445,494,450,488,463,345,463,345,450,361,449,375,447,386,442,393,434,395,421,395,413,393,405,390,394,386,383,382,371,280,113,173,352,162,377,154,396,149,409,146,420,145,427,146,434,150,440,156,444,165,447,177,448,197,450,197,463,11,463,11,450,29,448,44,442,57,429,71,407,87,373,258,-7,268,-7,423,387,435,413,447,431,459,442,473,448,488,450,652,463,515,463,515,450,533,449,547,445,556,439,562,432,563,421,563,412,559,392,556,380,552,367,463,130,363,385,360,395,356,404,354,413,352,420,352,426,354,434,360,440,371,445,386,449,405,450,405,463,220,463,220,450,240,449,255,444,267,433,279,413,291,383,311,330,238,132,138,395,135,403,132,410,131,417,130,423,130,428,131,436,135,442,143,446,156,449,174,450,174,463,3,463,3,450,22,447,38,439,51,424,63,400,77,366,102,294,129,220,157,144,184,68,211,-7,221,-7,329,288,351,231,374,172,397,112,419,52,441,-7,452,-7,482,85,505,156,528,221,556,297,595,401,602,419,610,432,620,440,634,446,652,450,493,0,493,13,473,16,457,22,443,31,430,45,415,65,280,257,380,380,404,408,424,428,443,440,463,447,488,450,488,463,321,463,321,450,341,449,354,446,363,442,367,436,369,427,368,421,365,414,359,406,351,395,341,380,263,283,232,327,212,357,195,381,183,400,176,416,173,
-429,175,437,179,443,186,446,195,448,205,449,226,450,226,463,16,463,16,450,40,446,61,437,83,418,109,387,144,338,218,230,109,93,81,59,60,37,43,23,26,17,7,13,7,0,170,0,170,13,148,16,133,19,123,23,118,29,116,36,118,43,122,53,129,65,139,80,153,98,237,202,303,104,316,84,326,67,333,54,338,43,339,35,338,28,333,23,326,19,316,16,304,15,286,13,286,0,492,463,340,463,340,450,359,449,372,446,381,442,385,436,387,428,386,423,385,417,383,412,381,405,377,399,276,244,173,398,169,405,163,419,161,425,161,431,162,437,166,442,173,446,182,448,194,449,211,450,211,463,16,463,16,450,34,447,51,438,71,419,95,387,129,340,220,205,220,86,219,55,213,34,201,23,181,16,150,13,150,0,364,0,364,13,334,16,313,22,301,32,294,50,292,77,292,212,395,372,416,403,434,424,451,438,470,446,492,450,419,123,402,123,395,101,389,83,382,68,372,56,360,46,349,39,335,34,319,30,301,27,102,27,405,453,405,463,37,463,23,344,41,344,45,364,49,379,54,391,60,402,70,413,81,421,95,428,113,433,136,436,163,437,313,437,7,10,7,0,401,0,209,-108,209,-90,152,-90,139,-89,129,-85,121,-78,116,-68,115,-53,115,413,116,426,121,435,128,441,138,445,152,446,209,446,209,463,62,463,62,-108,201,-9,41,473,-5,473,153,-9,172,-108,172,463,23,463,23,446,83,446,97,445,107,440,113,432,117,421,118,408,118,-58,117,-70,114,-79,108,-85,98,-89,85,-90,23,-90,23,-108,313,208,185,463,144,463,17,208,64,208,165,410,265,208,350,-87,350,-51,0,-51,0,-87,170,355,68,459,61,465,55,469,50,472,44,474,38,474,29,473,22,471,17,466,14,460,13,452,13,445,16,439,20,433,26,427,34,422,141,355,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,
-296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,107,477,104,478,87,473,72,468,57,464,41,459,23,454,2,448,2,435,4,436,9,436,11,437,14,437,29,436,39,433,45,426,48,414,48,39,55,25,73,13,99,2,130,-3,164,-6,216,1,261,25,296,61,319,110,327,168,321,217,305,260,278,293,243,314,202,322,177,319,154,312,134,299,118,283,107,263,16383,16383,107,223,111,240,121,255,136,267,155,275,177,278,191,277,205,272,218,266,229,257,239,245,248,228,256,208,261,186,264,163,266,138,265,115,261,94,256,75,249,59,240,45,230,35,218,26,205,20,191,17,175,16,154,17,135,22,120,29,111,39,107,52,279,109,260,84,241,65,222,53,202,46,180,44,144,50,114,68,91,97,76,135,71,180,76,220,88,254,109,280,135,296,166,302,180,300,190,297,197,291,203,281,208,268,212,252,216,241,222,232,229,226,237,222,245,220,256,222,265,226,272,232,277,241,279,250,273,272,258,292,234,308,205,318,171,322,151,320,132,316,113,309,94,299,77,286,56,265,39,241,27,213,20,182,17,148,24,97,42,55,70,22,107,0,151,-6,168,-5,185,-1,201,4,216,12,231,23,243,33,254,45,264,61,276,80,288,103,344,30,344,41,338,40,327,40,315,41,306,45,300,52,298,63,297,80,297,477,293,478,236,460,215,454,191,448,191,436,194,436,197,437,205,437,219,436,228,432,234,426,237,416,238,401,238,292,223,304,209,312,195,318,180,321,165,322,119,313,79,288,47,249,26,200,19,144,25,94,42,52,69,20,105,0,148,-6,170,-4,190,0,207,9,223,22,238,40,238,-4,241,-6,16383,16383,238,71,238,68,234,60,231,56,219,44,210,37,200,33,188,31,176,30,143,36,116,55,96,84,83,124,79,172,83,
-216,94,252,113,279,137,296,166,302,189,299,208,288,224,273,234,254,238,232,286,115,266,87,247,67,226,52,204,44,178,41,159,43,142,47,126,55,112,66,100,80,87,99,79,119,73,140,70,165,68,194,284,194,281,215,278,232,273,248,267,261,259,273,245,290,228,304,209,314,187,320,162,322,163,322,113,314,73,290,43,254,24,207,17,152,23,98,40,54,68,21,105,0,151,-6,190,-1,224,12,254,36,278,69,297,110,16383,16383,70,216,77,245,88,267,103,284,122,294,144,297,168,294,186,285,198,269,206,246,212,216,15,315,15,293,72,293,72,73,71,47,66,30,56,19,39,13,14,10,14,0,196,0,196,10,167,13,148,18,137,29,132,46,131,73,131,293,216,293,216,315,131,315,131,396,133,418,137,436,145,449,156,456,170,459,179,458,186,455,193,450,200,442,207,431,214,421,220,414,226,410,232,407,239,406,248,408,256,412,263,418,267,425,268,434,264,449,255,461,239,470,219,476,195,478,170,476,147,469,127,459,110,445,97,427,87,409,80,390,76,370,73,345,72,315,329,272,329,299,267,299,259,300,252,301,245,303,221,312,210,315,198,318,187,320,165,322,128,316,96,300,71,276,54,244,48,208,51,184,58,163,70,145,89,129,113,114,107,108,101,103,95,97,89,92,84,86,71,74,62,64,56,55,52,46,51,37,51,38,52,29,55,22,62,16,73,9,88,1,62,-19,42,-37,29,-53,22,-68,20,-83,26,-105,43,-124,69,-138,102,-148,141,-151,171,-149,201,-144,230,-135,257,-122,280,-107,296,-93,308,-79,316,-65,321,-50,323,-33,319,-9,308,10,290,25,267,36,238,41,148,45,128,46,112,49,101,53,95,58,93,64,96,73,102,84,112,94,124,102,135,108,148,106,156,105,175,105,190,106,205,109,220,115,234,122,248,131,261,144,271,158,279,174,283,192,284,213,284,224,282,236,280,247,276,259,271,272,16383,16383,106,237,109,259,115,278,126,291,140,299,158,302,170,301,182,297,192,290,202,281,209,270,216,254,222,237,227,220,229,202,230,185,228,164,221,146,210,133,196,125,178,122,154,127,134,142,119,166,110,197,106,234,16383,16383,303,-44,297,-66,279,-85,251,-99,215,-108,170,-111,170,-112,136,-109,108,-102,87,-92,73,-78,69,-61,70,-51,73,-42,79,-32,89,
--18,103,-1,121,-3,143,-6,168,-7,194,-9,216,-9,250,-10,274,-14,291,-20,300,-30,303,-44,341,0,341,10,322,15,310,21,303,31,300,47,299,71,299,211,296,251,285,282,268,304,244,317,212,322,213,322,189,320,168,313,148,302,129,286,110,263,110,476,106,478,92,473,79,469,64,465,47,459,26,453,7,448,7,436,9,436,10,437,16,437,31,436,41,433,47,427,50,416,51,401,51,71,50,47,47,31,39,20,26,14,6,10,6,0,158,0,158,10,137,14,123,20,115,30,111,47,110,71,110,240,127,257,142,270,157,278,172,283,188,284,207,281,221,272,232,258,238,237,240,210,240,71,239,47,235,30,227,20,213,14,192,10,192,0,126,442,124,453,119,463,112,471,102,476,91,478,79,476,69,471,61,463,56,453,55,442,56,431,61,421,69,414,79,409,90,407,102,409,112,414,119,421,124,431,126,442,16383,16383,177,0,177,10,154,13,139,19,130,30,126,47,125,73,125,320,123,322,14,284,14,273,28,275,34,276,44,276,53,274,59,270,63,262,66,249,66,73,65,46,61,29,51,18,35,13,11,10,11,0,136,442,134,453,129,463,121,471,111,476,100,478,89,476,79,471,71,463,66,453,64,442,66,431,71,421,78,414,88,409,99,407,111,409,121,414,129,421,134,431,136,442,16383,16383,135,320,131,322,108,313,87,306,67,298,46,292,23,284,23,273,26,273,32,275,38,275,44,276,54,276,63,274,69,270,73,262,76,250,77,234,77,-30,76,-58,75,-79,73,-95,70,-106,66,-115,63,-119,59,-123,54,-126,49,-127,43,-128,37,-127,31,-125,26,-122,20,-116,6,-100,0,-93,-6,-89,-13,-86,-19,-86,-29,-87,-37,-91,-43,-97,-47,-104,-48,-113,-45,-126,-36,-136,-22,-144,-4,-150,16,-151,58,-145,92,-126,116,-95,130,-53,135,0,353,0,353,10,336,13,319,19,304,28,288,42,272,62,165,198,185,216,230,256,263,282,288,297,311,303,336,305,336,315,193,315,193,305,207,305,217,303,224,301,227,297,228,293,227,289,225,284,222,279,217,273,212,268,116,183,116,477,113,478,98,473,83,469,67,464,48,459,26,453,5,448,5,436,10,436,15,437,23,437,27,438,39,436,48,432,53,424,56,412,57,395,57,57,56,39,53,27,45,20,30,15,5,10,5,0,169,0,169,
-10,155,11,140,13,129,17,122,24,118,34,116,47,116,176,221,37,224,33,226,29,228,26,229,23,229,21,228,18,226,15,223,12,219,11,214,10,201,10,201,0,180,0,180,10,157,13,142,18,133,27,129,41,127,61,127,475,124,478,103,472,63,460,40,454,13,448,13,436,20,437,35,437,39,438,51,436,59,431,65,423,68,410,69,393,69,64,67,44,62,30,53,20,37,14,15,10,15,0,542,0,542,10,524,12,513,14,505,18,499,26,496,38,495,54,495,196,491,241,482,276,466,301,443,317,413,322,389,320,366,313,344,301,322,285,299,263,290,285,278,301,263,313,246,320,225,322,206,321,187,317,166,308,144,292,118,268,116,268,116,320,111,322,91,314,72,308,54,302,35,296,13,291,13,279,18,280,23,280,27,281,36,281,45,280,52,275,57,266,59,253,60,235,60,62,59,41,54,26,45,17,31,12,11,10,11,0,166,0,166,10,147,12,134,16,125,23,120,34,119,49,119,245,123,249,125,252,128,255,139,265,153,274,169,280,186,284,202,286,218,282,231,272,240,256,246,235,248,208,248,60,247,39,242,25,234,17,220,12,200,10,200,0,357,0,357,10,336,12,322,17,313,27,308,43,306,66,306,243,319,259,332,271,347,279,363,284,381,286,402,283,417,274,428,259,433,237,435,207,435,63,434,43,430,28,423,19,410,14,390,10,390,0,340,0,340,10,322,13,310,18,302,27,298,40,297,59,297,214,293,252,283,282,266,304,243,317,214,322,195,320,175,314,155,303,135,287,113,266,113,320,107,322,88,315,52,303,33,297,11,291,11,279,14,280,18,280,22,281,31,281,41,280,48,275,53,267,56,254,56,66,55,44,51,29,43,19,31,13,12,10,13,10,13,0,160,0,160,10,142,13,129,18,120,26,116,36,115,51,115,244,132,260,147,271,161,279,174,282,187,284,205,281,220,273,230,259,236,239,238,212,238,73,237,49,233,32,225,21,213,14,195,10,194,0,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,
-72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,111,320,107,322,86,314,67,306,48,300,28,293,6,286,6,275,10,275,13,276,23,276,36,275,44,271,49,264,52,253,52,-90,51,-109,47,-122,38,-131,24,-136,3,-139,3,-151,173,-151,173,-138,146,-137,128,-132,118,-123,112,-108,111,-86,111,23,125,11,139,3,152,-2,166,-5,182,-6,229,2,270,27,301,66,322,115,329,173,323,221,307,263,282,294,250,315,212,322,189,320,168,314,149,303,130,287,111,266,16383,16383,111,234,115,246,127,259,144,270,163,277,183,280,212,274,235,256,253,228,265,190,269,145,265,102,253,66,236,39,212,22,184,16,164,18,144,26,127,36,115,49,111,62,341,-151,341,-139,323,-136,310,-131,302,-124,299,-113,298,-97,298,320,290,320,252,298,234,307,217,314,202,319,187,321,171,322,122,313,79,288,46,250,25,201,17,144,23,94,38,53,61,21,92,0,129,-6,153,-4,176,1,198,12,220,26,239,45,239,-86,237,-106,231,-120,220,-130,202,-136,177,-139,177,-151,16383,16383,239,89,239,80,238,73,236,66,230,58,220,50,209,44,196,40,182,37,169,36,157,37,146,39,135,43,125,48,116,55,103,70,92,90,84,114,79,140,77,169,82,214,94,251,114,279,141,296,173,302,197,299,215,291,229,277,236,258,239,233,112,320,109,322,87,314,68,306,28,292,5,284,5,273,15,275,20,275,25,276,30,276,39,274,45,270,50,262,52,250,53,234,53,59,52,41,49,29,40,21,26,15,3,10,3,0,172,0,172,10,147,13,130,18,119,28,113,43,112,63,112,220,115,235,123,250,135,264,148,274,161,278,164,278,167,276,171,274,175,271,179,267,186,262,191,258,197,255,207,253,216,255,224,259,230,265,233,274,234,285,233,298,228,308,220,315,209,320,196,322,179,320,164,313,148,301,131,282,112,256,109,211,99,219,90,228,84,238,80,249,79,259,82,276,89,290,100,299,114,304,131,306,154,303,173,294,188,277,200,253,211,220,221,220,218,315,210,315,205,310,202,308,195,308,192,309,188,310,183,312,179,313,170,317,161,319,152,320,142,321,132,321,100,317,74,307,53,289,40,265,36,235,39,
-214,49,193,65,173,89,153,120,134,158,113,170,104,180,95,188,84,193,73,195,60,192,44,184,30,172,18,156,11,137,9,110,12,89,24,71,43,58,71,48,107,37,107,37,-2,45,-2,48,0,51,3,54,4,58,5,72,5,78,4,85,2,95,0,105,-3,115,-4,126,-5,136,-6,145,-6,176,-1,203,10,224,29,239,53,244,80,242,102,235,120,223,136,206,151,182,166,186,54,177,44,169,38,161,33,153,30,145,30,131,32,120,39,113,51,109,69,108,92,108,293,178,293,178,315,108,315,108,400,106,404,105,405,103,405,94,393,92,390,89,386,74,364,59,346,45,330,33,319,21,311,17,308,14,305,11,303,10,300,9,298,9,296,10,295,10,294,11,294,12,293,49,293,49,82,52,50,59,25,72,7,89,-2,111,-6,131,-4,149,1,165,12,181,27,195,46,336,35,332,35,315,36,304,40,297,47,293,59,292,75,292,315,181,315,181,303,203,301,218,296,227,289,232,276,233,258,233,96,232,83,230,74,227,67,223,61,217,55,206,47,194,41,182,37,170,34,158,34,142,36,129,44,118,56,111,71,109,89,109,315,6,315,6,305,24,303,36,298,44,289,49,276,50,259,50,83,54,53,64,28,82,9,106,-2,135,-6,152,-4,172,1,193,12,214,29,235,53,237,53,237,-3,240,-5,260,2,279,8,297,14,316,20,336,25,334,315,237,315,237,305,249,303,258,300,265,295,268,289,270,282,269,278,269,274,268,269,266,261,196,80,124,259,120,271,118,281,118,286,119,292,123,297,129,300,138,303,151,305,151,315,13,315,13,305,27,303,38,296,49,283,61,260,77,224,161,23,163,20,164,16,165,13,166,11,166,9,169,2,172,-2,174,-6,177,-8,179,-9,182,-8,185,-4,189,1,193,11,198,25,288,250,298,273,306,289,314,298,323,303,334,305,486,315,400,315,400,305,421,298,426,294,430,289,430,276,428,268,426,258,423,248,419,237,355,81,297,238,292,250,289,259,287,266,285,280,286,287,290,293,297,298,309,301,326,305,326,315,184,315,184,305,197,302,208,297,216,288,224,275,232,256,245,217,182,77,113,260,111,264,110,269,109,273,109,281,110,289,113,295,119,299,128,302,141,305,141,315,15,315,15,305,23,303,30,299,37,292,44,279,52,260,146,
-21,151,9,155,1,159,-4,162,-8,165,-9,167,-8,170,-5,173,0,177,7,182,17,260,185,324,20,329,7,333,-1,336,-6,338,-9,341,-9,344,-8,347,-5,350,0,354,10,360,24,457,266,463,281,468,290,473,297,479,301,486,305,335,0,335,10,323,12,311,16,300,25,289,37,278,52,188,190,246,273,255,284,265,293,277,299,290,303,303,305,303,315,192,315,192,305,203,303,211,301,216,298,219,294,220,289,219,283,216,276,210,268,203,257,195,244,190,237,186,231,182,224,178,218,173,212,173,213,172,216,170,218,164,227,153,244,144,259,137,272,133,282,131,289,132,295,136,299,142,302,150,304,162,305,162,315,17,315,17,305,23,305,35,303,45,299,55,292,65,279,77,262,77,263,143,162,63,46,52,31,43,22,34,15,24,12,12,10,12,0,113,0,113,10,103,11,95,12,89,15,86,18,85,23,87,31,90,37,94,43,99,52,155,138,219,40,220,37,222,33,222,30,223,27,222,21,220,16,215,13,206,11,195,10,195,0,333,315,239,315,239,305,251,304,260,302,267,299,271,294,272,287,272,286,271,283,271,281,269,275,201,82,123,257,117,269,115,275,114,281,113,286,115,293,119,297,126,301,138,303,153,305,153,315,10,315,10,305,20,303,29,300,36,295,42,289,47,280,139,84,147,66,155,49,162,34,167,21,169,12,169,13,167,2,163,-12,157,-30,149,-48,141,-62,134,-72,119,-87,112,-91,105,-93,103,-93,100,-92,92,-90,87,-88,88,-88,80,-85,73,-82,66,-80,58,-79,51,-79,41,-80,33,-85,27,-92,23,-101,21,-111,23,-124,30,-135,40,-144,53,-149,70,-151,100,-147,126,-133,149,-107,171,-69,192,-16,298,269,303,282,309,292,316,298,323,303,333,305,293,95,280,98,276,80,273,66,270,55,266,47,261,40,254,33,242,28,228,24,209,22,187,21,94,21,282,305,282,315,40,315,37,232,50,232,54,258,61,276,72,287,88,292,111,294,205,294,19,10,19,0,282,0,245,-118,220,-109,202,-97,190,-81,183,-60,181,-32,181,84,179,115,173,137,161,154,143,165,116,174,143,183,161,195,173,212,179,234,181,265,181,382,183,410,190,431,202,447,220,459,245,468,245,476,220,475,201,473,185,470,172,465,160,459,149,449,141,437,135,421,131,401,130,379,130,254,128,
-228,122,209,111,195,94,184,70,175,94,166,111,154,122,140,128,121,130,95,130,-28,131,-50,135,-70,141,-86,149,-99,160,-108,172,-115,185,-120,201,-123,220,-125,245,-126,93,-9,93,473,47,473,47,-9,206,378,205,400,201,420,195,436,186,449,176,459,164,465,151,470,136,473,116,475,91,476,91,468,116,459,134,447,146,431,153,410,155,382,155,265,156,234,163,211,175,195,193,184,220,175,193,166,175,154,163,138,156,115,155,84,155,-32,153,-60,146,-81,134,-97,116,-109,91,-118,91,-126,116,-125,135,-123,151,-120,164,-115,176,-108,187,-99,195,-86,201,-70,205,-51,206,-29,206,95,208,121,214,140,224,155,241,166,266,175,241,184,224,195,214,209,208,228,206,254,327,227,317,211,307,197,296,186,282,179,265,177,250,178,235,183,220,189,207,195,198,200,173,210,155,217,141,221,128,224,116,224,96,222,78,216,60,205,43,188,28,163,53,128,61,146,72,160,84,170,97,177,112,179,129,178,145,175,159,170,171,166,180,162,201,150,217,142,232,136,247,132,264,131,283,133,300,140,317,151,334,168,352,192,141,292,140,304,134,313,126,321,116,326,105,327,92,326,82,321,74,314,69,304,67,292,69,280,74,269,82,261,92,255,104,253,116,255,126,261,134,269,139,280,141,292,16383,16383,109,198,100,198,69,-69,68,-75,68,-85,67,-91,67,-97,69,-116,73,-131,81,-142,91,-149,105,-151,117,-149,127,-141,135,-129,140,-114,141,-96,141,-75,140,-69,305,115,284,87,264,67,245,54,225,47,202,45,193,45,186,46,178,47,160,53,231,257,239,243,246,232,253,225,262,222,272,220,282,222,290,226,296,233,300,242,302,252,299,266,293,280,282,292,268,302,249,311,282,405,258,405,227,319,218,320,210,321,203,321,197,322,191,322,142,313,99,290,66,253,44,207,37,153,38,132,42,110,48,90,56,71,66,53,74,42,82,33,92,25,103,17,118,9,83,-96,106,-96,141,0,150,-1,158,-3,166,-4,173,-5,180,-5,196,-4,211,-1,226,4,240,11,252,20,266,33,278,47,289,63,300,83,313,109,16383,16383,138,69,120,88,107,108,98,129,92,154,91,182,95,222,108,255,128,279,154,295,186,301,193,301,205,299,219,295,241,230,241,261,153,261,150,287,148,308,146,326,146,343,145,359,148,392,157,418,170,
-438,189,450,212,455,226,453,237,449,245,441,250,431,252,418,253,399,255,385,260,377,268,372,279,371,290,373,300,378,307,386,312,396,313,408,309,429,296,447,277,461,252,470,223,473,176,466,138,444,110,410,92,365,86,309,86,300,87,291,88,281,89,272,91,261,16,261,16,230,91,230,95,206,99,178,102,152,104,130,106,114,106,94,105,91,105,88,97,89,90,90,84,90,78,91,72,91,51,88,33,81,20,70,11,56,9,37,9,38,11,23,17,11,27,2,40,-3,56,-4,70,-3,83,0,95,8,109,20,124,38,150,21,172,8,191,1,208,-2,226,-4,245,-2,263,2,281,10,297,20,312,34,321,45,329,59,336,73,341,86,343,95,343,97,342,97,341,98,336,98,333,97,323,87,323,88,309,75,294,65,279,58,262,54,244,53,224,54,205,56,186,61,164,68,139,77,148,119,153,146,156,164,157,176,157,221,156,230,16383,16383,99,53,99,50,98,46,96,41,93,36,89,31,83,25,77,20,71,17,64,15,56,14,46,15,38,19,32,24,28,31,27,40,28,49,32,56,40,62,49,65,62,66,72,65,82,63,91,60,97,57,99,53,366,28,298,95,309,113,317,130,322,148,325,165,326,184,325,204,322,221,317,238,309,254,298,272,366,340,332,373,263,306,247,317,231,324,214,330,195,333,176,334,157,333,139,330,122,325,105,317,87,306,20,373,-15,340,53,272,42,255,34,238,29,221,25,203,24,184,25,164,29,146,34,129,42,112,53,95,-15,28,20,-6,87,62,104,51,121,43,139,37,157,34,176,33,195,34,213,37,230,43,247,51,263,62,332,-6,16383,16383,278,185,273,151,259,121,236,98,208,83,176,77,143,83,114,98,92,121,77,150,72,184,77,217,92,246,114,269,142,284,174,289,207,284,236,269,258,247,273,218,278,185,359,463,222,463,222,450,232,450,243,449,253,446,261,441,265,436,267,429,267,424,266,418,264,411,261,405,258,398,179,244,97,398,93,405,91,412,89,418,88,424,88,430,89,438,94,443,103,447,116,449,133,450,133,463,-36,463,-36,450,-19,447,-4,440,9,426,25,402,45,367,112,246,11,246,11,219,128,219,133,209,133,155,11,155,11,127,133,127,133,84,132,55,127,35,117,22,101,16,77,13,77,0,248,0,248,13,225,
-16,209,22,199,33,194,51,192,77,192,127,313,127,313,155,192,155,192,209,198,219,313,219,313,246,212,246,276,375,290,401,305,420,321,434,339,444,359,450,93,280,93,473,47,473,47,280,16383,16383,93,-9,93,184,47,184,47,-9,140,359,132,367,126,377,121,387,117,398,116,409,119,425,127,439,139,450,156,456,176,459,190,457,201,454,211,449,217,443,219,436,219,435,218,434,216,430,213,428,207,423,202,417,198,411,196,404,195,398,197,388,201,380,208,373,217,369,228,367,241,369,251,374,258,381,263,392,264,405,260,427,247,446,228,460,203,470,174,473,142,469,115,458,95,440,82,416,77,387,77,388,79,367,86,348,98,329,118,308,147,283,139,283,135,284,129,284,103,279,81,268,64,250,53,227,49,200,53,170,67,140,90,111,124,79,169,45,192,28,210,11,222,-3,229,-18,231,-34,228,-52,220,-67,208,-79,191,-86,170,-88,155,-87,142,-83,130,-78,123,-71,120,-63,121,-61,122,-60,123,-57,126,-55,139,-42,142,-36,144,-30,145,-24,143,-15,138,-7,131,-1,122,2,111,4,99,2,88,-2,80,-10,75,-20,73,-33,77,-55,91,-74,112,-89,138,-99,170,-103,203,-99,231,-87,252,-68,266,-44,270,-14,269,6,262,24,250,42,232,63,205,88,213,88,242,91,265,102,283,120,295,143,298,172,296,194,288,216,275,238,258,259,236,280,16383,16383,262,148,259,134,252,122,241,112,228,105,213,102,197,104,181,111,162,122,142,138,118,160,106,174,97,186,90,197,87,209,86,222,88,237,95,250,105,259,118,266,133,268,148,265,165,258,185,247,205,232,225,213,238,199,248,185,256,172,260,159,262,148,221,401,219,412,214,421,207,428,197,433,186,435,175,433,166,429,158,421,153,412,152,401,153,390,158,380,165,373,174,368,185,366,197,368,207,373,214,380,219,390,221,401,16383,16383,82,401,80,412,75,421,67,428,58,433,47,435,36,433,27,429,19,421,14,412,13,401,14,390,19,380,26,373,35,368,46,366,57,368,67,373,75,380,80,390,82,401,383,173,372,173,360,151,346,133,330,122,312,115,291,113,256,118,227,133,206,159,192,193,187,236,191,276,204,310,225,336,253,353,287,359,309,356,328,348,343,336,354,318,360,295,372,295,372,345,370,351,366,355,362,357,363,357,349,362,333,
-367,318,370,302,372,287,373,288,373,236,366,193,347,161,318,140,278,133,230,139,186,156,150,184,122,222,105,267,98,294,100,321,103,346,109,363,114,371,120,16383,16383,505,231,493,308,460,374,409,427,345,461,270,473,192,461,125,427,73,375,39,309,27,231,39,155,72,88,124,36,190,2,266,-9,343,2,409,36,460,88,494,154,505,231,16383,16383,467,234,457,166,428,108,385,61,330,31,266,20,203,30,148,61,104,107,75,165,65,232,75,298,104,356,148,402,202,433,264,444,328,433,383,403,428,358,457,300,467,234,189,309,185,306,177,302,174,301,170,301,166,302,163,304,161,309,160,316,160,406,157,430,148,449,134,463,113,471,87,473,62,471,41,465,25,455,15,442,11,427,12,419,15,413,20,409,26,406,34,405,40,406,46,408,51,412,54,417,55,422,55,427,54,430,54,432,53,434,53,438,55,443,60,447,67,451,75,453,84,454,93,453,101,449,106,443,109,435,110,424,110,403,78,391,55,382,40,375,29,368,18,359,13,354,9,347,6,340,4,332,3,323,5,308,12,295,23,284,36,278,52,276,65,277,77,280,90,286,103,295,116,306,119,295,124,286,130,280,138,277,148,276,157,276,164,278,172,282,180,288,189,297,16383,16383,111,332,111,329,110,326,108,322,106,319,103,316,96,313,90,311,84,310,79,309,73,309,65,310,58,315,52,321,48,330,47,340,49,350,55,359,67,367,85,376,111,386,164,159,220,108,240,89,263,67,285,46,302,30,311,23,313,24,316,25,318,26,320,30,318,36,313,44,306,55,296,69,284,84,274,97,263,112,251,127,239,143,226,159,284,233,296,249,306,261,313,271,318,279,320,284,319,286,319,288,317,290,315,291,312,291,303,285,285,270,264,250,241,229,220,210,16383,16383,30,159,86,108,106,89,129,67,150,46,168,30,177,23,183,26,185,28,185,30,184,36,179,44,172,55,162,69,150,84,140,97,129,112,117,127,91,159,150,233,162,249,172,261,179,271,184,279,185,284,185,286,183,290,181,291,177,291,168,285,151,270,129,250,106,229,86,210,387,80,387,275,34,275,34,229,340,229,340,80,199,136,199,180,27,180,27,136,397,106,397,112,387,121,364,144,353,157,342,172,302,227,323,236,338,248,349,263,356,279,358,295,354,
-319,344,338,327,352,304,361,275,364,155,364,155,353,170,351,180,348,185,341,187,331,188,316,188,152,187,137,185,127,180,122,170,119,154,117,153,106,266,106,266,117,250,119,240,122,235,129,232,140,232,220,266,220,279,200,288,186,294,177,298,170,302,162,314,142,325,126,335,115,344,108,352,106,16383,16383,232,233,232,351,259,351,279,348,294,340,304,327,309,311,311,293,309,274,303,257,293,244,279,236,262,233,263,233,16383,16383,505,230,493,307,460,374,409,427,344,461,270,473,192,461,125,427,73,375,39,309,27,232,39,155,72,88,124,36,190,2,266,-9,343,2,409,36,460,88,494,154,505,230,16383,16383,467,231,457,165,428,107,384,61,329,31,266,20,203,30,148,61,104,107,75,165,65,232,75,298,104,356,148,402,203,433,265,444,329,433,384,403,428,357,457,299,467,231,226,383,226,420,8,420,8,383,240,373,235,405,221,432,200,454,173,468,141,473,109,468,81,454,59,433,45,405,40,373,45,341,59,314,80,292,108,278,140,273,172,278,199,292,221,314,235,341,240,373,16383,16383,213,373,209,350,198,329,183,312,163,301,140,297,117,301,97,312,81,328,71,349,67,373,71,397,81,418,97,434,116,445,138,449,162,445,182,434,198,418,209,397,212,373,446,170,446,216,263,216,263,352,216,352,216,216,34,216,34,170,216,170,216,23,263,23,263,170,16383,16383,446,-60,446,-14,34,-14,34,-60,207,248,195,253,188,245,181,240,173,237,164,235,154,234,75,234,134,291,157,316,174,338,186,358,192,377,194,397,190,422,178,443,160,459,136,470,105,473,74,470,49,461,29,444,13,421,1,390,18,380,28,398,39,412,51,423,65,429,80,431,96,428,109,421,120,409,127,395,130,378,127,364,121,346,110,326,94,304,75,281,4,205,4,189,180,189,143,358,160,368,172,379,180,391,184,403,185,415,181,434,171,450,154,462,133,470,109,473,85,471,65,464,47,451,30,432,15,407,32,394,43,410,54,421,66,429,78,433,92,434,106,433,117,429,125,422,130,412,131,401,129,387,122,374,109,363,91,352,65,342,65,322,73,323,79,324,84,324,106,322,123,314,136,303,144,287,147,266,145,250,138,237,128,226,115,220,99,217,92,218,86,219,79,221,72,225,64,231,56,236,50,240,40,
-244,35,245,27,244,20,241,14,237,11,231,9,223,12,210,21,199,35,191,52,185,73,184,116,188,153,201,180,222,198,248,204,280,202,300,195,318,183,335,166,348,143,356,65,355,93,355,201,423,208,428,214,434,219,440,221,446,222,452,221,460,218,466,213,471,206,473,198,474,192,474,186,472,181,469,175,465,168,459,301,315,239,315,239,80,229,65,217,53,201,44,183,38,162,37,163,37,142,40,126,48,114,62,106,83,104,109,104,315,42,315,42,38,40,20,36,-7,31,-40,27,-72,25,-97,26,-115,30,-130,36,-141,45,-149,56,-151,68,-149,77,-143,84,-132,88,-117,90,-97,87,-72,81,-41,73,-9,67,20,64,45,77,26,92,11,108,1,127,-4,150,-6,172,-4,192,3,210,15,227,33,241,56,243,56,247,34,255,16,267,3,281,-3,296,-6,311,-5,323,-1,334,6,346,17,359,33,359,39,349,31,341,25,335,21,329,19,323,19,314,21,308,27,304,36,301,50,301,67,373,-107,373,-91,346,-88,328,-81,317,-70,312,-53,311,-28,311,380,312,406,317,425,328,438,346,446,373,450,373,463,188,463,133,458,92,442,64,416,47,378,42,330,48,278,65,241,92,215,130,199,178,191,178,-19,177,-49,172,-69,161,-81,143,-88,116,-91,116,-107,224,-107,224,448,265,448,265,-107,16383,16383,178,206,146,214,123,230,107,254,98,288,95,331,97,373,105,404,120,426,144,441,178,448,127,177,125,190,119,200,111,209,100,215,88,217,76,215,65,210,57,201,51,190,49,178,51,166,56,155,65,147,75,141,88,139,100,141,110,147,119,155,125,166,127,177,122,0,98,0,69,-69,73,-72,77,-71,80,-70,84,-69,93,-69,107,-70,118,-73,125,-78,129,-85,130,-94,129,-105,124,-113,116,-119,105,-123,91,-125,83,-125,75,-124,57,-120,46,-117,37,-138,49,-143,60,-146,71,-148,95,-150,125,-147,149,-139,168,-127,179,-111,183,-90,180,-74,172,-60,160,-51,143,-45,123,-43,112,-43,108,-44,105,-44,173,189,173,205,158,207,147,210,139,215,135,223,134,233,134,470,124,473,41,434,41,418,51,422,58,425,63,427,73,427,75,425,76,421,77,415,77,229,76,220,73,214,66,210,55,207,40,205,40,189,213,380,208,410,194,436,173,456,145,469,111,473,75,469,46,456,23,435,9,407,4,373,9,341,23,314,44,
-294,72,280,105,276,140,281,170,295,193,317,207,346,212,380,16383,16383,162,361,160,339,154,322,143,309,130,302,112,299,102,300,93,303,85,308,78,314,73,323,67,336,62,350,58,366,56,382,55,398,58,416,64,430,74,441,88,448,104,450,123,446,139,434,151,415,159,391,162,361,320,155,264,206,244,225,221,247,200,269,182,285,173,291,171,291,169,290,165,286,165,284,166,278,171,270,178,260,188,246,200,230,210,217,221,203,233,187,259,155,200,81,188,65,178,53,171,43,166,35,165,30,165,29,167,25,169,24,173,23,182,29,199,44,221,64,243,86,264,105,16383,16383,185,155,129,206,109,225,86,247,65,269,47,285,38,291,36,291,34,290,32,288,30,284,32,278,36,270,44,260,53,246,65,230,75,217,86,203,98,187,124,155,65,81,44,53,36,43,32,35,30,30,31,29,31,27,32,25,34,24,38,23,46,29,64,44,85,64,108,86,129,105,499,63,499,103,461,103,461,284,427,284,286,98,286,63,412,63,412,0,461,0,461,63,16383,16383,412,103,317,103,412,228,16383,16383,442,473,410,473,93,-9,127,-9,16383,16383,156,189,156,205,140,207,129,210,122,215,118,223,116,233,116,470,106,473,30,434,30,418,40,422,48,425,53,427,62,427,64,425,65,421,66,415,66,229,65,220,62,214,55,210,45,207,30,205,30,189,519,59,506,64,500,56,493,51,485,48,476,46,466,45,387,45,445,102,469,127,486,148,497,168,504,188,505,208,502,233,490,254,472,270,447,281,417,284,385,281,360,272,341,255,325,232,312,201,313,201,330,191,340,209,351,223,363,234,377,240,391,242,407,240,421,232,431,221,438,206,441,189,438,175,432,157,421,137,406,115,387,92,316,17,316,0,491,0,16383,16383,416,473,384,473,67,-9,102,-9,16383,16383,152,189,152,205,136,207,125,210,117,215,113,223,112,233,112,470,102,473,27,434,27,418,36,422,43,425,49,427,58,427,60,425,61,421,62,415,63,407,63,229,62,220,58,214,51,210,41,207,25,205,25,189,502,63,502,103,464,103,464,284,431,284,289,98,289,63,415,63,415,0,464,0,464,63,16383,16383,415,103,320,103,415,228,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,143,358,160,368,172,379,180,391,184,403,185,415,181,434,171,
-450,154,462,133,470,109,473,85,471,65,464,47,451,30,432,15,407,32,394,43,410,54,421,66,429,78,433,92,434,106,433,117,429,125,422,130,412,131,401,129,387,122,374,109,363,91,352,65,342,65,322,73,323,79,324,84,324,106,322,123,314,136,303,144,287,147,266,145,250,138,237,128,226,115,220,99,217,92,218,86,219,79,221,72,225,64,231,56,236,50,240,40,244,35,245,27,244,20,241,14,237,11,231,9,223,12,210,21,199,35,191,52,185,73,184,116,188,153,201,180,222,198,248,204,280,202,300,195,318,183,335,166,348,143,356,182,291,180,303,175,313,167,320,157,325,145,327,133,325,122,320,115,313,110,303,108,291,110,279,115,268,122,260,133,254,145,252,156,254,167,260,175,268,180,279,182,291,16383,16383,140,205,134,179,128,157,119,136,108,117,95,98,65,59,44,28,30,3,23,-19,21,-43,22,-59,25,-74,31,-88,37,-100,46,-111,62,-125,82,-136,104,-144,127,-150,150,-151,186,-146,218,-132,242,-111,258,-83,263,-50,262,-35,258,-23,251,-14,242,-9,230,-7,220,-8,212,-12,206,-18,202,-26,201,-36,201,-42,203,-47,206,-53,210,-59,216,-65,220,-71,223,-76,226,-80,227,-84,227,-87,224,-100,214,-112,199,-122,181,-128,162,-130,137,-126,116,-114,100,-96,89,-74,85,-47,86,-27,89,-6,94,15,101,38,111,62,130,105,141,138,148,165,151,187,152,205,316,530,214,634,207,640,201,644,196,647,190,649,184,649,176,648,169,646,163,641,160,635,159,627,160,620,162,614,172,602,180,597,288,530,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,193,530,221,530,329,598,337,603,347,615,349,621,350,627,349,635,346,641,341,646,334,648,326,649,320,649,314,647,309,644,303,640,296,634,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,
-0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,359,530,272,647,228,647,141,530,165,530,250,602,335,530,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,347,622,340,608,333,598,326,591,318,588,309,587,303,587,296,588,288,590,281,593,273,597,255,605,246,610,236,614,226,616,206,618,187,615,170,606,155,592,144,572,136,548,156,548,161,559,168,568,175,574,183,578,192,580,197,579,203,578,208,577,214,574,220,572,237,564,252,557,264,552,274,549,283,548,293,548,314,550,332,558,346,573,358,594,367,622,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,355,576,354,587,349,596,341,603,331,608,320,610,310,608,300,604,293,596,288,587,286,576,288,565,292,555,300,548,309,543,320,541,331,543,341,548,349,555,354,565,355,576,16383,16383,216,576,215,587,209,596,202,603,192,608,181,610,170,608,161,604,154,596,149,587,147,576,149,565,153,555,161,548,170,543,180,541,192,543,202,548,209,555,215,565,216,576,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,
-44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,321,602,318,624,308,644,293,659,274,669,252,673,230,669,211,659,196,644,186,625,182,603,185,581,195,562,210,547,229,537,251,534,273,537,292,547,308,562,318,580,321,602,16383,16383,298,603,295,588,289,576,279,566,266,559,251,557,236,559,224,566,214,576,208,588,205,603,208,618,214,630,224,640,237,647,251,649,266,647,278,640,289,630,295,618,298,603,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,16383,16383,313,180,152,180,232,373,604,118,588,118,566,79,545,52,520,36,489,29,448,27,375,27,360,30,352,37,348,48,348,230,447,230,472,228,491,222,504,209,513,189,518,160,533,160,533,325,518,325,514,296,503,276,484,264,457,258,420,256,348,256,348,421,351,428,355,433,360,437,367,438,427,438,478,437,513,431,535,418,548,397,555,365,571,365,571,463,177,463,177,449,200,448,217,446,229,441,237,435,239,427,239,423,238,420,237,416,235,411,233,407,62,68,50,47,40,32,29,22,16,16,0,13,0,0,138,0,138,13,122,16,108,19,99,23,93,28,91,34,93,47,100,67,112,95,130,133,155,182,279,182,279,78,278,54,274,37,265,26,251,19,229,15,217,13,217,0,573,0,16383,16383,279,209,168,209,279,433,430,91,399,65,370,45,339,32,308,24,274,21,245,23,217,30,191,41,168,56,148,76,131,101,118,131,108,166,103,203,101,242,108,310,130,366,165,409,211,436,267,445,310,439,349,421,381,392,405,357,418,315,434,315,427,473,413,473,410,465,405,459,399,454,392,451,384,450,380,450,375,451,369,453,363,454,356,456,336,463,294,471,274,473,253,473,225,472,196,467,169,458,142,446,117,431,83,402,55,367,36,326,24,281,20,230,22,188,30,150,43,115,60,84,81,57,102,38,126,22,152,9,181,0,212,-6,185,
--69,191,-72,197,-70,201,-69,210,-69,224,-70,235,-73,242,-78,246,-85,247,-94,245,-105,240,-113,232,-119,222,-123,209,-125,200,-125,192,-124,174,-120,163,-117,153,-138,165,-143,176,-146,188,-148,199,-149,212,-150,242,-147,266,-139,284,-127,295,-111,299,-90,297,-74,289,-60,277,-51,260,-45,239,-43,228,-43,225,-44,221,-44,235,-8,239,-9,252,-9,299,-5,342,5,381,23,415,47,443,79,281,530,180,634,173,640,167,644,161,647,156,649,150,649,141,648,134,646,129,641,125,635,124,627,125,620,128,614,132,608,138,602,145,597,253,530,16383,16383,418,118,398,118,379,80,357,53,328,37,289,28,237,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,257,437,298,435,327,429,346,416,357,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,17,9,13,9,0,386,0,172,530,199,530,307,598,315,603,321,609,325,615,327,621,328,627,327,635,324,641,319,646,312,648,304,649,298,649,292,647,287,644,281,640,274,634,16383,16383,418,118,398,118,379,80,357,53,328,37,289,28,237,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,257,437,298,435,327,429,346,416,357,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,17,9,13,9,0,386,0,338,530,251,647,207,647,120,530,145,530,229,602,314,530,16383,16383,418,118,398,118,379,80,357,53,328,37,289,28,237,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,257,437,298,435,327,429,346,416,357,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,
-17,9,13,9,0,386,0,333,576,331,587,326,596,318,603,309,608,298,610,287,608,277,604,270,596,265,587,263,576,265,565,270,555,277,548,286,543,297,541,308,543,318,548,326,555,331,565,333,576,16383,16383,193,576,191,587,186,596,179,603,169,608,158,610,147,608,138,604,131,596,126,587,124,576,126,565,130,555,138,548,147,543,158,541,169,543,179,548,186,555,191,565,193,576,16383,16383,418,118,398,118,379,80,357,53,328,37,289,28,237,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,257,437,298,435,327,429,346,416,357,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,17,9,13,9,0,386,0,188,530,87,634,80,640,74,644,68,647,63,649,57,649,48,648,41,646,36,641,32,635,31,627,32,620,35,614,39,608,45,602,52,597,160,530,16383,16383,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,171,442,191,448,220,450,220,463,13,463,13,450,42,447,62,442,74,431,79,413,80,386,80,78,79,51,73,32,62,21,42,16,12,13,13,13,13,0,45,530,73,530,180,598,188,603,194,609,198,615,201,621,202,627,200,635,197,641,192,646,186,648,177,649,171,649,166,647,160,644,154,640,148,634,16383,16383,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,171,442,191,448,220,450,220,463,13,463,13,450,42,447,62,442,74,431,79,413,80,386,80,78,79,51,73,32,62,21,42,16,12,13,13,13,13,0,225,530,138,647,94,647,7,530,30,530,116,602,201,530,16383,16383,215,0,215,13,186,16,166,22,154,33,148,52,146,78,146,386,148,413,153,431,165,442,185,448,215,450,215,463,7,463,7,450,37,447,57,442,68,431,74,413,75,386,75,78,74,51,68,32,56,21,37,16,7,13,7,0,220,576,219,587,214,596,206,603,196,608,185,610,174,608,165,604,158,596,153,587,152,576,153,565,158,555,165,548,174,543,185,541,196,543,206,548,214,555,219,565,220,
-576,16383,16383,81,576,79,587,74,596,67,603,57,608,46,610,35,608,26,604,18,596,13,587,12,576,13,565,18,555,25,548,35,543,45,541,57,543,66,548,74,555,79,565,81,576,16383,16383,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,170,442,190,448,220,450,220,463,12,463,12,450,42,447,61,442,73,431,78,413,80,386,80,78,78,51,73,32,61,21,41,16,12,13,12,0,11,463,11,450,39,447,57,441,67,430,72,413,73,387,73,252,15,252,15,220,73,220,73,77,71,51,66,33,56,23,38,16,11,13,11,0,210,0,256,3,299,10,338,22,373,38,402,57,429,84,451,116,467,153,476,192,480,234,467,313,432,377,374,424,297,453,200,463,16383,16383,145,220,246,220,246,252,145,252,145,421,149,429,155,434,164,437,178,438,213,436,245,432,272,426,297,416,318,404,348,379,372,348,389,313,400,273,403,229,400,182,389,141,372,106,348,77,318,55,296,44,272,36,245,30,214,27,180,26,166,27,155,29,149,35,146,43,145,55,342,622,335,608,329,598,322,591,314,588,305,587,299,587,291,588,284,590,276,593,252,605,241,610,231,614,221,616,212,617,202,618,182,615,165,606,151,592,139,572,131,548,152,548,157,559,163,568,170,574,179,578,188,580,198,578,204,577,210,574,216,572,232,564,247,557,260,552,270,549,279,548,289,548,310,550,327,558,341,573,353,594,363,622,16383,16383,495,463,329,463,329,450,346,448,359,446,369,443,377,439,384,432,390,424,393,413,396,400,397,383,398,363,398,125,127,463,9,463,9,450,27,449,41,445,52,438,64,428,77,413,77,105,75,67,69,42,57,27,38,18,9,13,9,0,172,0,172,13,144,19,126,28,114,44,109,68,107,105,107,377,416,-7,428,-7,428,355,429,383,431,404,436,419,441,430,448,438,454,442,461,445,470,447,480,449,495,450,315,530,213,634,207,640,201,644,195,647,189,649,184,649,175,648,168,646,162,641,159,635,158,627,159,620,161,614,166,608,172,602,179,597,287,530,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,
-188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,181,530,209,530,317,598,325,603,331,609,335,615,337,621,338,627,337,635,334,641,329,646,322,648,313,649,308,649,302,647,297,644,291,640,284,634,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,357,530,270,647,226,647,139,530,163,530,248,602,333,530,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,342,622,335,608,329,598,322,591,314,588,305,587,299,587,291,588,284,590,276,593,252,605,241,610,231,614,221,616,212,617,202,618,182,615,165,606,151,592,139,572,131,548,152,548,157,559,163,568,170,574,179,578,188,580,198,578,204,577,210,574,216,572,232,564,247,557,260,552,270,549,279,548,289,548,310,550,327,558,341,573,353,594,363,622,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,
-232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,352,576,350,587,345,596,338,603,328,608,317,610,306,608,297,604,290,596,285,587,283,576,285,565,289,555,296,548,306,543,316,541,328,543,337,548,345,555,350,565,352,576,16383,16383,213,576,211,587,206,596,198,603,189,608,178,610,167,608,158,604,150,596,145,587,144,576,145,565,150,555,157,548,166,543,177,541,189,543,198,548,206,555,211,565,213,576,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,418,16,257,177,418,339,386,370,224,209,63,370,30,338,191,177,30,15,63,-16,224,144,386,-16,461,514,427,514,376,439,350,452,327,462,303,469,279,472,253,473,177,462,114,429,65,378,34,311,23,231,25,205,28,180,34,155,41,132,51,111,58,96,67,83,77,70,89,57,105,41,39,-55,73,-55,129,25,154,11,177,1,201,-4,225,-8,252,-9,328,1,391,34,440,85,470,152,481,232,480,258,476,284,470,308,463,332,455,353,446,368,438,381,428,394,399,423,16383,16383,136,86,123,113,114,139,108,166,105,197,104,231,111,305,130,365,161,410,202,438,252,448,275,446,295,441,315,432,333,419,352,402,16383,16383,369,378,381,351,391,325,397,297,400,266,402,231,395,158,376,98,345,53,304,25,252,16,229,17,209,22,190,31,171,44,153,62,317,530,216,634,209,640,203,644,197,647,191,649,185,649,177,648,170,646,165,641,161,635,160,627,161,620,164,614,168,608,174,
-602,181,597,289,530,16383,16383,494,463,331,463,331,450,360,446,379,437,390,421,395,396,397,359,397,175,396,144,394,119,390,98,382,80,371,62,371,63,356,48,337,37,315,28,291,23,265,21,242,22,222,26,204,33,188,42,175,52,161,69,152,88,147,110,145,135,145,384,146,411,151,429,161,440,180,446,208,450,208,463,10,463,10,450,38,447,56,441,66,431,71,415,73,391,73,174,75,133,81,97,93,67,109,42,130,23,148,11,169,2,193,-4,219,-8,248,-9,285,-7,318,-1,346,9,370,23,390,41,405,63,416,87,423,114,426,145,427,183,427,361,429,395,434,419,445,435,464,445,494,450,185,530,213,530,320,598,328,603,334,609,338,615,341,621,341,627,340,635,337,641,332,646,326,648,317,649,311,649,306,647,300,644,294,640,287,634,288,634,16383,16383,494,463,331,463,331,450,360,446,379,437,390,421,395,396,397,359,397,175,396,144,394,119,390,98,382,80,371,62,371,63,356,48,337,37,315,28,291,23,265,21,242,22,222,26,204,33,188,42,175,52,161,69,152,88,147,110,145,135,145,384,146,411,151,429,161,440,180,446,208,450,208,463,10,463,10,450,38,447,56,441,66,431,71,415,73,391,73,174,75,133,81,97,93,67,109,42,130,23,148,11,169,2,193,-4,219,-8,248,-9,285,-7,318,-1,346,9,370,23,390,41,405,63,416,87,423,114,426,145,427,183,427,361,429,395,434,419,445,435,464,445,494,450,358,530,270,647,227,647,140,530,164,530,248,602,334,530,16383,16383,494,463,331,463,331,450,360,446,379,437,390,421,395,396,397,359,397,175,396,144,394,119,390,98,382,80,371,62,371,63,356,48,337,37,315,28,291,23,265,21,242,22,222,26,204,33,188,42,175,52,161,69,152,88,147,110,145,135,145,384,146,411,151,429,161,440,180,446,208,450,208,463,10,463,10,450,38,447,56,441,66,431,71,415,73,391,73,174,75,133,81,97,93,67,109,42,130,23,148,11,169,2,193,-4,219,-8,248,-9,285,-7,318,-1,346,9,370,23,390,41,405,63,416,87,423,114,426,145,427,183,427,361,429,395,434,419,445,435,464,445,494,450,352,576,350,587,345,596,338,603,328,608,317,610,306,608,297,604,290,596,285,587,283,576,285,565,289,555,296,548,306,
-543,316,541,328,543,337,548,345,555,350,565,352,576,16383,16383,213,576,211,587,206,596,198,603,189,608,178,610,167,608,158,604,150,596,145,587,144,576,145,565,150,555,157,548,166,543,177,541,189,543,198,548,206,555,211,565,213,576,16383,16383,494,463,331,463,331,450,360,446,379,437,390,421,395,396,397,359,397,175,396,144,394,119,390,98,382,80,371,62,371,63,356,48,337,37,315,28,291,23,265,21,242,22,222,26,204,33,188,42,175,52,161,69,152,88,147,110,145,135,145,384,146,411,151,429,161,440,180,446,208,450,208,463,10,463,10,450,38,447,56,441,66,431,71,415,73,391,73,174,75,133,81,97,93,67,109,42,130,23,148,11,169,2,193,-4,219,-8,248,-9,285,-7,318,-1,346,9,370,23,390,41,405,63,416,87,423,114,426,145,427,183,427,361,429,395,434,419,445,435,464,445,494,450,186,530,214,530,322,598,329,603,335,609,340,615,342,621,343,627,342,635,339,641,334,646,327,648,319,649,313,649,307,647,302,644,296,640,289,634,16383,16383,492,463,340,463,340,450,359,449,372,446,381,442,385,436,387,428,386,423,385,417,383,412,381,405,377,399,276,244,173,398,169,405,163,419,161,425,161,431,162,437,166,442,173,446,182,448,194,449,211,450,211,463,16,463,16,450,34,447,51,438,71,419,95,387,129,340,220,205,220,86,219,55,213,34,201,23,181,16,150,13,150,0,364,0,364,13,334,16,313,22,301,32,294,50,292,77,292,212,395,372,416,403,434,424,451,438,470,446,492,450,141,373,141,380,142,408,147,428,159,440,177,446,205,450,205,463,11,463,11,450,37,446,54,440,64,429,69,412,70,387,70,84,69,55,65,35,55,23,38,17,11,13,11,0,207,0,207,13,179,16,160,22,149,33,143,50,141,77,141,113,152,112,161,111,190,111,221,112,248,114,272,119,293,126,313,134,335,150,354,170,368,193,377,218,380,245,371,289,348,324,310,350,259,367,198,373,16383,16383,141,323,142,332,144,339,148,343,155,345,164,346,215,342,255,330,282,310,298,280,303,241,298,205,283,176,259,155,225,142,181,138,173,138,165,139,158,139,150,140,141,141,51,59,50,40,46,27,39,18,26,13,9,10,9,0,110,0,110,384,113,410,121,431,133,446,150,
-456,170,459,192,455,210,442,223,422,231,395,234,361,231,331,223,308,210,290,191,278,167,273,159,272,154,270,150,268,148,265,147,262,148,258,150,254,154,252,161,251,170,250,203,243,228,225,247,196,258,156,262,105,261,86,258,67,255,50,250,36,245,27,241,22,236,18,224,14,217,14,210,15,205,17,201,21,198,27,195,51,193,59,188,67,182,73,174,77,166,78,155,77,147,72,140,65,136,56,134,45,138,28,147,14,161,3,180,-3,202,-5,242,1,277,20,304,49,321,87,327,130,326,154,320,175,312,195,300,213,284,228,271,239,257,247,241,253,222,259,198,264,237,284,265,302,282,322,292,344,295,372,289,408,274,437,249,459,216,473,176,478,130,472,95,453,70,421,56,376,51,318,222,355,120,459,114,465,108,469,102,472,96,474,91,474,82,473,75,471,69,466,66,460,65,452,66,445,68,439,73,433,79,427,86,422,194,355,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,84,355,111,355,219,423,226,428,232,434,236,440,239,446,240,452,239,460,236,466,231,471,224,473,216,474,210,474,204,472,199,469,193,465,186,459,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,
-302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,266,355,179,472,136,472,49,355,73,355,158,427,243,355,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,252,447,245,433,238,423,232,416,224,413,215,412,208,412,201,413,194,415,186,418,178,422,161,430,151,435,141,439,131,441,121,442,112,443,92,440,75,431,61,417,49,397,41,373,62,373,67,384,73,393,80,399,88,403,98,405,108,403,114,402,120,399,126,397,142,389,157,382,170,377,180,
-374,189,373,198,373,220,375,237,383,251,398,263,419,273,447,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,261,401,259,412,254,421,247,428,237,433,226,435,215,433,206,429,199,421,194,412,192,401,194,390,198,380,206,373,215,368,226,366,237,368,247,373,254,380,259,390,261,401,16383,16383,122,401,120,412,115,421,107,428,98,433,87,435,76,433,67,429,59,421,54,412,52,401,54,390,59,380,66,373,75,368,86,366,97,368,107,373,115,380,120,390,122,401,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,
-16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,227,429,223,451,213,470,198,485,179,496,158,499,135,496,116,486,101,471,91,452,88,430,91,407,101,388,116,373,134,364,156,360,179,364,198,373,213,388,223,407,227,429,16383,16383,203,430,201,415,194,402,184,392,171,386,156,384,142,386,129,392,120,402,113,415,111,430,113,444,120,456,130,466,142,473,156,475,171,473,184,466,194,456,201,444,203,430,16383,16383,309,46,303,41,297,37,291,35,286,33,280,33,272,35,266,40,262,49,259,62,258,79,258,213,257,235,256,253,252,267,247,279,238,291,227,302,213,310,197,317,177,321,155,322,137,321,119,318,103,314,88,308,75,301,62,291,52,280,45,268,40,257,39,245,41,234,46,225,52,218,61,214,70,213,80,214,89,219,95,225,100,233,102,241,101,249,100,255,98,265,98,271,100,282,107,291,117,299,130,304,146,305,164,303,179,296,191,283,198,266,201,242,201,205,159,189,128,176,106,165,89,156,75,148,59,136,46,122,35,105,28,87,26,66,29,40,39,20,55,5,75,-3,99,-6,118,-5,138,0,158,8,179,23,201,44,202,44,205,24,212,10,220,0,232,-4,246,-6,260,-5,273,-2,285,3,297,13,309,27,16383,16383,201,89,200,78,198,69,194,60,187,53,177,45,169,40,161,37,153,35,144,34,136,34,120,36,107,42,97,53,90,68,88,88,88,100,91,111,96,122,102,132,111,141,123,151,138,160,156,169,177,178,201,188,434,108,415,82,396,62,376,49,356,42,333,40,316,41,301,46,287,54,275,63,266,75,259,91,254,109,251,130,249,157,248,194,431,194,423,242,409,278,387,303,358,317,320,322,301,321,285,317,269,311,253,302,236,289,220,302,205,311,190,317,173,321,153,322,118,318,87,308,63,291,48,270,42,246,44,235,48,225,54,218,62,214,73,213,83,214,92,218,98,225,102,234,104,245,104,252,103,258,102,263,102,274,104,284,111,292,121,298,134,302,149,304,166,302,178,295,186,282,191,265,192,241,192,197,102,172,67,157,45,139,33,118,28,95,27,70,30,45,41,24,59,
-8,81,0,108,-4,128,-2,147,1,166,9,188,23,214,44,229,25,245,11,263,2,282,-2,305,-4,323,-3,340,0,356,5,372,13,387,23,399,34,410,47,420,62,431,81,442,105,16383,16383,248,215,252,247,260,271,272,288,288,297,309,300,329,297,345,288,355,271,362,247,365,215,16383,16383,192,141,194,111,197,96,200,80,205,64,205,62,200,53,188,44,170,35,151,29,134,27,116,30,104,39,94,52,89,69,88,88,90,110,100,128,119,144,149,160,192,177,279,109,260,84,241,65,222,53,202,46,180,44,144,50,114,68,91,97,76,135,71,180,76,220,88,254,109,280,135,296,166,302,180,300,190,297,197,291,203,281,208,268,212,252,216,241,222,232,229,226,237,222,245,220,256,222,265,226,272,232,277,241,279,250,273,272,258,292,234,308,205,318,171,322,151,320,132,316,113,308,94,298,77,286,55,265,39,240,27,213,20,182,17,148,23,101,38,61,63,28,95,6,134,-4,108,-69,113,-72,119,-70,123,-69,132,-69,146,-70,157,-73,164,-78,168,-85,170,-94,168,-105,163,-113,155,-119,144,-123,131,-125,123,-125,114,-124,106,-122,96,-120,85,-117,76,-138,88,-143,99,-146,110,-148,134,-150,164,-147,188,-139,207,-127,218,-111,222,-90,219,-74,211,-60,199,-51,182,-45,162,-43,151,-43,148,-44,144,-44,158,-6,190,0,218,13,243,34,266,64,288,103,217,355,116,459,109,465,103,469,97,472,91,474,85,474,77,473,70,471,65,466,61,460,60,452,61,445,64,439,68,433,74,427,81,422,189,355,16383,16383,286,115,266,87,247,67,226,52,204,44,178,41,159,43,142,47,126,55,112,66,100,80,87,99,79,119,73,140,70,165,68,194,284,194,281,215,278,232,273,248,267,261,259,273,245,290,228,304,209,314,187,320,162,322,163,322,113,314,73,290,43,254,24,207,17,152,23,98,40,54,68,21,105,0,151,-6,190,-1,224,12,254,36,278,69,297,110,16383,16383,70,216,77,245,88,267,103,284,122,294,144,297,168,294,186,285,198,269,206,246,212,216,81,355,109,355,217,423,225,428,231,434,235,440,237,446,238,452,237,460,234,466,229,471,222,473,213,474,208,474,202,472,197,469,191,465,184,459,16383,16383,286,115,266,87,247,67,226,52,204,44,178,41,159,43,142,47,126,55,112,66,100,
-80,87,99,79,119,73,140,70,165,68,194,284,194,281,215,278,232,273,248,267,261,259,273,245,290,228,304,209,314,187,320,162,322,163,322,113,314,73,290,43,254,24,207,17,152,23,98,40,54,68,21,105,0,151,-6,190,-1,224,12,254,36,278,69,297,110,16383,16383,70,216,77,245,88,267,103,284,122,294,144,297,168,294,186,285,198,269,206,246,212,216,266,355,178,472,135,472,48,355,72,355,157,427,242,355,16383,16383,286,115,266,87,247,67,226,52,204,44,178,41,159,43,142,47,126,55,112,66,100,80,87,99,79,119,73,140,70,165,68,194,284,194,281,215,278,232,273,248,267,261,259,273,245,290,228,304,209,314,187,320,162,322,163,322,113,314,73,290,43,254,24,207,17,152,23,98,40,54,68,21,105,0,151,-6,190,-1,224,12,254,36,278,69,297,110,16383,16383,70,216,77,245,88,267,103,284,122,294,144,297,168,294,186,285,198,269,206,246,212,216,260,401,258,412,253,421,246,428,237,433,226,435,215,433,205,429,198,421,193,412,191,401,193,390,198,380,205,373,214,368,225,366,236,368,246,373,253,380,258,390,260,401,16383,16383,121,401,119,412,114,421,106,428,97,433,86,435,75,433,66,429,58,421,53,412,52,401,53,390,58,380,65,373,74,368,85,366,96,368,106,373,114,380,119,390,121,401,16383,16383,286,115,266,87,247,67,226,52,204,44,178,41,159,43,142,47,126,55,112,66,100,80,87,99,79,119,73,140,70,165,68,194,284,194,281,215,278,232,273,248,267,261,259,273,245,290,228,304,209,314,187,320,162,322,163,322,113,314,73,290,43,254,24,207,17,152,23,98,40,54,68,21,105,0,151,-6,190,-1,224,12,254,36,278,69,297,110,16383,16383,70,216,77,245,88,267,103,284,122,294,144,297,168,294,186,285,198,269,206,246,212,216,161,355,59,459,53,465,47,469,41,472,36,474,30,474,21,473,14,471,8,466,5,460,4,452,5,445,8,439,12,433,18,427,25,422,133,355,16383,16383,170,0,170,10,147,13,132,19,123,30,119,47,118,73,118,320,115,322,7,284,7,273,21,275,27,276,37,276,46,274,52,270,56,262,59,249,59,73,58,46,54,29,44,18,28,13,4,10,4,0,34,355,63,355,170,423,178,428,184,434,188,
-440,191,446,191,452,190,460,187,466,182,471,175,473,166,474,161,474,155,472,150,469,144,465,137,459,138,459,16383,16383,177,0,177,10,154,13,139,19,130,30,126,47,125,73,125,320,122,322,14,284,14,273,28,275,34,276,44,276,53,274,59,270,63,262,66,249,66,73,65,46,61,29,51,18,35,13,11,10,11,0,205,355,118,472,75,472,-11,355,12,355,97,427,182,355,16383,16383,154,0,154,10,131,13,116,19,107,30,103,47,102,73,102,320,98,322,-8,284,-8,273,-1,274,11,276,20,276,29,274,36,270,40,262,43,249,44,232,44,73,43,46,38,29,29,18,13,13,-11,10,-11,0,202,401,200,412,195,421,187,428,177,433,166,435,156,433,146,429,139,421,134,412,132,401,134,390,138,380,146,373,155,368,166,366,177,368,187,373,195,380,200,390,202,401,16383,16383,63,401,61,412,56,421,48,428,38,433,27,435,17,433,7,429,0,421,-4,412,-6,401,-4,390,0,380,7,373,16,368,27,366,38,368,48,373,55,380,61,390,62,401,16383,16383,159,0,159,10,136,13,121,19,112,30,108,47,107,73,107,320,104,322,-3,284,-3,273,3,274,10,275,16,276,25,276,34,274,41,270,45,262,48,249,48,73,47,46,43,29,33,18,17,13,-6,10,-6,0,297,459,273,480,207,445,189,457,170,465,149,471,126,476,100,478,70,461,92,457,112,452,130,445,147,436,165,423,80,378,103,357,189,402,211,380,228,358,240,334,250,309,257,280,238,297,222,309,207,317,190,321,172,322,124,314,82,291,50,255,28,208,20,152,28,98,48,54,81,21,123,0,172,-6,203,-3,230,4,254,18,275,37,293,61,305,84,316,111,323,139,328,169,330,199,326,251,315,301,296,347,269,389,233,426,16383,16383,266,141,262,97,251,61,234,35,211,18,184,13,145,25,116,57,97,102,87,151,84,197,87,230,98,259,116,282,138,297,165,302,199,295,227,273,248,240,262,195,266,141,274,447,267,433,261,423,254,416,246,413,237,412,231,412,223,413,216,415,208,418,184,430,173,435,163,439,153,441,144,442,134,443,115,440,97,431,83,417,72,397,64,373,84,373,89,384,95,393,102,399,111,403,120,405,130,403,136,402,142,399,148,397,165,389,180,382,192,377,202,374,211,373,221,373,242,375,259,
-383,273,398,285,419,295,447,16383,16383,340,0,340,10,322,13,310,18,302,27,298,40,297,59,297,214,293,252,283,282,266,304,243,317,214,322,195,320,175,314,155,303,135,287,113,266,113,320,107,322,88,315,52,303,33,297,11,291,11,279,14,280,18,280,22,281,31,281,41,280,48,275,53,267,56,254,56,66,55,44,51,29,43,19,31,13,12,10,13,10,13,0,160,0,160,10,142,13,129,18,120,26,116,36,115,51,115,244,132,260,147,271,161,279,174,282,187,284,205,281,220,273,230,259,236,239,238,212,238,73,237,49,233,32,225,21,213,14,195,10,194,0,232,355,131,459,124,465,118,469,112,472,107,474,101,474,92,473,85,471,80,466,77,460,76,452,77,445,79,439,84,433,90,427,97,422,205,355,16383,16383,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,108,355,136,355,244,423,251,428,257,434,261,440,264,446,265,452,264,460,261,466,255,471,248,473,240,474,234,474,229,472,224,469,218,465,211,459,16383,16383,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,280,355,193,472,150,472,63,355,87,355,172,427,257,355,16383,16383,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,
-72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,266,447,260,433,253,423,246,416,238,413,230,412,223,412,216,413,208,415,200,418,166,435,156,439,146,441,136,442,127,443,107,440,90,431,75,417,64,397,56,373,77,373,82,384,88,393,95,399,103,403,112,405,117,404,129,402,135,399,141,397,157,389,172,382,184,377,194,374,204,373,213,373,235,375,252,383,266,398,277,419,287,447,16383,16383,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,276,401,274,412,269,421,261,428,251,433,241,435,230,433,220,429,213,421,208,412,206,401,208,390,213,380,220,373,229,368,240,366,251,368,261,373,269,380,274,390,276,401,16383,16383,137,401,135,412,130,421,122,428,112,433,102,435,91,433,81,429,74,421,69,412,67,401,69,390,74,380,81,373,90,368,101,366,112,368,122,373,130,380,135,390,137,401,16383,16383,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,259,28,214,20,159,28,105,49,59,82,24,123,1,172,-6,224,1,268,24,301,60,322,107,329,162,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,237,321,235,333,229,344,221,353,210,359,198,361,186,359,175,353,166,345,161,334,159,322,161,309,166,299,174,291,185,285,198,284,210,286,221,291,229,299,235,309,237,321,16383,16383,373,154,373,200,21,200,21,154,16383,16383,237,30,235,43,229,54,221,62,210,68,198,70,186,68,175,63,166,54,161,44,159,31,161,19,166,9,174,0,185,-4,198,-6,210,-4,221,
-0,229,8,235,19,237,30,306,386,279,386,239,309,225,314,212,318,200,320,188,321,174,322,124,314,81,292,49,257,28,212,20,159,21,140,24,122,28,104,42,70,49,59,56,50,64,41,74,31,88,20,37,-77,63,-77,108,8,122,2,146,-4,159,-6,173,-6,223,1,266,25,300,62,321,109,329,164,326,197,318,227,305,254,285,277,260,298,16383,16383,111,64,101,88,93,113,88,139,85,165,84,194,87,230,98,260,115,283,138,297,166,302,178,301,189,299,200,294,211,287,222,277,16383,16383,238,256,249,234,257,212,262,191,265,167,266,142,262,97,252,61,235,35,212,18,183,13,169,14,157,17,146,23,136,31,125,42,238,355,136,459,129,465,123,469,118,472,112,474,105,474,97,473,90,471,85,466,82,460,80,452,81,445,84,439,88,433,94,427,102,422,209,355,16383,16383,336,35,332,35,315,36,304,40,297,47,293,59,292,75,292,315,181,315,181,303,203,301,218,296,227,289,232,276,233,258,233,96,232,83,230,74,227,67,223,61,217,55,206,47,194,41,182,37,170,34,158,34,142,36,129,44,118,56,111,71,109,89,109,315,6,315,6,305,24,303,36,298,44,289,49,276,50,259,50,83,54,53,64,28,82,9,106,-2,135,-6,152,-4,172,1,193,12,214,29,235,53,237,53,237,-3,240,-5,260,2,279,8,297,14,316,20,336,25,109,355,138,355,245,423,253,428,259,434,263,440,265,446,266,452,265,460,262,466,257,471,250,473,241,474,236,474,230,472,225,469,219,465,212,459,16383,16383,336,35,332,35,315,36,304,40,297,47,293,59,292,75,292,315,181,315,181,303,203,301,218,296,227,289,232,276,233,258,233,96,232,83,230,74,227,67,223,61,217,55,206,47,194,41,182,37,170,34,158,34,142,36,129,44,118,56,111,71,109,89,109,315,6,315,6,305,24,303,36,298,44,289,49,276,50,259,50,83,54,53,64,28,82,9,106,-2,135,-6,152,-4,172,1,193,12,214,29,235,53,237,53,237,-3,240,-5,260,2,279,8,297,14,316,20,336,25,280,355,193,472,150,472,63,355,87,355,172,427,257,355,16383,16383,336,35,332,35,315,36,304,40,297,47,293,59,292,75,292,315,181,315,181,303,203,301,218,296,227,289,232,276,233,258,233,96,232,83,230,
-74,227,67,223,61,217,55,206,47,194,41,182,37,170,34,158,34,142,36,129,44,118,56,111,71,109,89,109,315,6,315,6,305,24,303,36,298,44,289,49,276,50,259,50,83,54,53,64,28,82,9,106,-2,135,-6,152,-4,172,1,193,12,214,29,235,53,237,53,237,-3,240,-5,260,2,279,8,297,14,316,20,336,25,275,401,273,412,268,421,261,428,251,433,240,435,229,433,220,429,212,421,207,412,205,401,207,390,212,380,219,373,228,368,239,366,251,368,260,373,268,380,273,390,275,401,16383,16383,136,401,134,412,129,421,121,428,112,433,101,435,90,433,81,429,73,421,68,412,66,401,68,390,73,380,80,373,89,368,100,366,111,368,121,373,129,380,134,390,136,401,16383,16383,336,35,332,35,315,36,304,40,297,47,293,59,292,75,292,315,181,315,181,303,203,301,218,296,227,289,232,276,233,258,233,96,232,83,230,74,227,67,223,61,217,55,206,47,194,41,182,37,170,34,158,34,142,36,129,44,118,56,111,71,109,89,109,315,6,315,6,305,24,303,36,298,44,289,49,276,50,259,50,83,54,53,64,28,82,9,106,-2,135,-6,152,-4,172,1,193,12,214,29,235,53,237,53,237,-3,240,-5,260,2,279,8,297,14,316,20,336,25,100,355,128,355,236,423,244,428,254,440,256,446,257,452,256,460,253,466,248,471,241,473,232,474,226,474,221,472,216,469,210,465,203,459,16383,16383,333,315,239,315,239,305,251,304,260,302,267,299,271,294,272,287,272,286,271,283,271,281,269,275,201,82,123,257,117,269,115,275,114,281,113,286,115,293,119,297,126,301,138,303,153,305,153,315,10,315,10,305,20,303,29,300,36,295,42,289,47,280,139,84,147,66,155,49,162,34,167,21,169,12,169,13,167,2,163,-12,157,-30,149,-48,141,-62,134,-72,119,-87,112,-91,105,-93,103,-93,100,-92,92,-90,87,-88,88,-88,80,-85,73,-82,66,-80,58,-79,51,-79,41,-80,33,-85,27,-92,23,-101,21,-111,23,-124,30,-135,40,-144,53,-149,70,-151,100,-147,126,-133,149,-107,171,-69,192,-16,298,269,303,282,309,292,316,298,323,303,333,305,111,475,107,478,88,472,71,466,53,461,32,455,6,448,6,435,9,436,13,436,15,437,18,437,33,436,43,432,49,424,52,413,52,-89,51,
--107,47,-121,38,-130,24,-135,3,-138,3,-151,172,-151,172,-138,145,-136,127,-131,117,-122,112,-106,111,-83,111,23,125,11,139,3,152,-2,166,-5,182,-6,229,2,270,27,301,66,322,115,329,173,324,224,309,265,285,296,252,315,212,322,189,320,168,314,148,303,129,287,111,266,16383,16383,111,232,116,245,128,258,145,269,164,277,183,280,213,275,237,259,255,233,265,196,269,149,265,106,254,69,237,40,213,22,184,16,163,19,144,26,127,37,115,50,111,63,277,401,275,412,270,421,263,428,253,433,242,435,231,433,222,429,215,421,210,412,208,401,210,390,214,380,221,373,231,368,241,366,253,368,262,373,270,380,275,390,277,401,16383,16383,138,401,136,412,131,421,124,428,114,433,103,435,92,433,83,429,75,421,71,412,69,401,70,390,75,380,82,373,92,368,102,366,114,368,123,373,131,380,136,390,138,401,16383,16383,333,315,239,315,239,305,251,304,260,302,267,299,271,294,272,287,272,286,271,283,271,281,269,275,201,82,123,257,117,269,115,275,114,281,113,286,115,293,119,297,126,301,138,303,153,305,153,315,10,315,10,305,20,303,29,300,36,295,42,289,47,280,139,84,147,66,155,49,162,34,167,21,169,12,169,13,167,2,163,-12,157,-30,149,-48,141,-62,134,-72,119,-87,112,-91,105,-93,103,-93,100,-92,92,-90,87,-88,88,-88,80,-85,73,-82,66,-80,58,-79,51,-79,41,-80,33,-85,27,-92,23,-101,21,-111,23,-124,30,-135,40,-144,53,-149,70,-151,100,-147,126,-133,149,-107,171,-69,192,-16,298,269,303,282,309,292,316,298,323,303,333,305,233,355,131,459,125,465,119,469,113,472,107,474,102,474,93,473,86,471,81,466,78,460,77,452,77,445,80,439,84,433,90,427,98,422,205,355,77,355,105,355,212,422,219,427,225,433,229,439,232,446,233,452,232,460,229,466,223,471,216,473,208,474,202,474,196,472,191,469,185,465,178,459,284,355,196,472,152,472,66,355,90,355,174,427,259,355,270,447,263,433,257,423,250,416,242,412,233,411,225,411,217,413,207,417,195,422,169,435,159,439,149,441,140,442,130,443,111,440,93,431,79,417,68,397,59,373,80,373,85,384,91,393,98,399,106,403,116,405,123,404,129,403,137,400,147,395,160,389,175,382,188,377,198,374,207,373,217,
-373,238,375,255,383,269,398,281,419,291,447,284,383,284,420,66,420,66,383,350,539,350,574,0,574,0,539,252,465,239,439,226,419,212,406,194,399,173,397,149,400,130,408,114,422,103,441,95,465,75,465,79,427,90,397,109,374,137,360,172,355,204,359,230,372,250,394,264,425,272,465,209,401,208,412,203,421,196,429,186,433,174,435,163,433,153,428,146,421,141,412,140,401,142,390,147,380,154,373,163,368,174,366,185,368,195,373,202,380,208,389,209,401,280,401,278,412,273,421,265,428,255,433,245,435,234,433,224,429,217,421,212,412,210,401,212,390,217,380,224,373,233,368,244,366,255,368,265,373,273,380,278,390,280,401,16383,16383,140,401,138,412,133,421,125,428,116,433,105,435,94,433,84,429,77,421,72,412,70,401,72,390,77,380,84,373,94,368,105,366,116,368,126,373,133,380,138,390,140,401,153,407,153,345,177,345,178,369,184,369,205,373,224,384,239,401,249,424,253,450,251,472,244,493,231,510,211,522,180,526,162,524,153,521,145,518,138,513,132,508,127,502,124,496,122,490,121,484,122,478,125,473,129,469,134,466,141,465,152,469,158,481,163,494,170,505,184,509,195,506,204,498,210,486,214,471,215,455,212,440,205,426,194,416,179,409,162,407,245,427,242,449,232,469,217,484,198,494,177,498,154,494,135,484,119,469,109,450,105,428,109,406,119,387,133,372,152,362,174,359,197,362,216,372,232,387,242,405,245,427,16383,16383,221,428,219,413,212,401,202,391,189,384,174,382,160,384,148,391,138,401,132,413,130,428,132,443,139,455,148,465,161,472,174,474,189,472,202,465,212,455,219,443,221,428,165,355,192,355,300,422,308,428,313,433,317,440,320,446,320,454,319,461,316,467,311,471,305,473,297,474,291,474,286,473,281,470,274,466,266,459,16383,16383,55,355,84,355,191,422,199,428,205,433,209,440,211,446,212,454,211,461,207,467,202,471,195,473,187,474,182,474,177,473,172,470,165,466,158,459,284,472,259,472,175,400,91,472,66,472,152,355,198,355,199,350,199,490,161,490,161,350,243,350,243,490,205,490,205,350,16383,16383,145,350,145,490,108,490,108,350,320,355,219,459,211,466,205,470,199,473,194,474,188,474,180,473,174,471,169,467,166,461,165,454,166,
-446,168,440,172,433,177,428,185,422,293,355,16383,16383,212,355,109,459,102,466,95,470,90,473,84,474,79,474,71,473,65,471,60,467,57,461,55,454,56,446,58,440,62,433,68,428,76,422,184,355,209,502,208,513,203,523,196,530,186,535,174,537,163,535,153,530,146,522,141,513,140,502,142,491,147,482,154,474,163,470,174,468,185,470,195,474,202,481,208,490,209,502,16383,16383,252,465,239,439,226,419,212,406,194,399,173,397,149,400,130,408,114,422,103,441,95,465,75,465,79,427,90,397,109,374,137,360,172,355,204,359,230,372,250,394,264,425,272,465,272,355,264,395,250,426,230,447,204,461,172,465,137,460,109,446,90,423,79,392,75,355,95,355,103,379,114,398,130,412,149,420,173,423,194,420,212,413,226,400,239,381,252,355,205,522,189,513,169,497,148,474,133,448,127,419,131,389,142,370,156,358,171,353,184,352,194,353,205,357,215,365,222,376,224,392,221,407,214,417,204,423,192,426,180,427,176,427,172,426,169,425,167,425,164,424,158,426,156,428,154,431,154,434,155,444,161,458,171,473,188,490,212,508,145,352,162,360,182,377,203,399,218,425,224,455,220,484,209,503,194,515,179,520,167,522,156,520,145,516,136,508,129,497,127,481,129,467,137,457,147,450,159,447,170,446,175,446,178,447,182,448,190,448,193,447,195,445,197,439,195,429,190,416,179,400,163,382,139,365,212,365,188,382,171,400,161,416,155,429,154,439,154,442,156,445,158,447,161,448,169,448,172,447,176,446,180,446,192,447,204,450,214,457,221,467,224,481,222,497,215,508,205,516,194,521,184,522,171,520,156,515,142,503,131,484,127,455,133,425,148,399,169,376,189,360,205,352,295,352,312,360,332,377,352,399,367,425,373,455,369,484,358,503,344,515,329,520,317,522,306,520,295,516,286,508,279,497,277,481,279,467,287,457,297,450,308,447,320,446,324,446,328,447,331,448,340,448,342,447,345,445,347,439,345,429,340,416,329,400,313,382,289,365,233,-156,131,-52,125,-46,119,-41,113,-38,107,-36,102,-36,93,-37,86,-39,81,-44,78,-50,77,-58,77,-65,80,-71,84,-78,90,-83,98,-89,205,-156,77,-156,105,-156,212,-89,219,-83,225,-78,229,-71,232,-65,233,-58,232,-50,229,-44,223,-39,216,-37,208,
--36,202,-36,196,-38,191,-41,185,-46,178,-52,189,-197,189,-36,161,-36,161,-103,58,-103,58,-130,161,-130,161,-197,189,-130,189,-103,86,-103,86,-36,58,-36,58,-197,86,-197,86,-130,280,372,280,515,70,515,70,476,241,476,241,372,311,241,317,242,333,246,341,249,348,252,357,259,364,267,368,275,371,284,372,293,370,306,364,317,357,325,347,330,337,332,338,332,327,330,318,326,311,319,307,311,305,303,308,291,314,282,321,276,327,271,330,267,327,264,323,261,318,259,311,257,173,-185,173,-159,152,-159,139,-157,127,-151,118,-142,112,-130,110,-117,112,-103,118,-92,127,-83,139,-77,152,-75,173,-75,173,-49,152,-49,131,-52,112,-62,97,-77,88,-95,84,-117,88,-138,98,-157,112,-172,131,-181,152,-185,255,-167,255,-139,189,-139,189,-36,161,-36,161,-139,95,-139,95,-167,255,-64,255,-36,95,-36,95,-64,161,-64,161,-167,189,-167,189,-64,242,-117,242,-86,188,-86,188,-36,162,-36,162,-86,108,-86,108,-117,162,-117,162,-174,188,-174,188,-117,242,-117,242,-86,108,-86,108,-117,337,52,298,52,298,-123,297,-142,293,-159,286,-173,275,-183,259,-186,259,-187,250,-185,242,-182,234,-177,227,-171,221,-165,216,-158,211,-152,205,-147,199,-144,191,-143,185,-144,179,-146,175,-150,173,-155,172,-162,176,-174,189,-185,208,-193,233,-198,261,-200,285,-195,306,-181,322,-160,333,-134,337,-103,337,52,298,52,298,-103,302,-134,313,-160,329,-181,349,-195,373,-200,402,-198,426,-193,446,-185,459,-174,463,-161,463,-162,462,-155,460,-150,455,-146,450,-144,444,-143,436,-144,430,-147,424,-152,419,-158,414,-165,408,-171,401,-177,393,-182,385,-185,376,-187,360,-183,349,-173,342,-159,338,-141,337,-123,209,-117,208,-106,203,-96,196,-88,186,-84,174,-82,163,-84,153,-89,146,-96,141,-106,140,-117,142,-128,147,-137,154,-144,163,-149,174,-151,185,-149,195,-145,202,-138,208,-128,209,-117,280,-117,278,-106,273,-96,265,-89,255,-84,245,-83,234,-84,224,-89,217,-96,212,-106,210,-117,212,-128,217,-138,224,-145,233,-150,244,-151,255,-150,265,-145,273,-138,278,-128,280,-117,16383,16383,140,-117,138,-106,133,-96,125,-89,116,-84,105,-83,94,-84,84,-89,77,-96,72,-106,70,-117,72,-128,77,-138,84,-145,94,-150,105,-151,116,-150,126,-145,133,-138,138,-128,140,-117,245,-117,242,-95,232,-76,217,-61,198,-51,177,-47,154,-51,135,-61,119,
--76,109,-95,105,-117,109,-139,119,-158,133,-173,152,-183,174,-186,174,-187,197,-183,216,-173,232,-158,242,-139,245,-117,16383,16383,221,-117,219,-132,212,-144,202,-154,189,-161,174,-163,160,-161,148,-154,138,-144,132,-132,130,-117,132,-103,139,-90,148,-80,161,-73,174,-71,189,-73,202,-80,212,-90,219,-102,221,-117,145,-246,162,-237,182,-221,203,-199,218,-172,224,-144,220,-114,209,-95,194,-83,179,-78,167,-76,156,-78,145,-82,136,-90,129,-101,127,-117,129,-131,137,-141,147,-147,159,-150,170,-151,178,-151,182,-150,184,-149,190,-149,193,-151,195,-152,197,-158,195,-168,190,-182,179,-198,163,-215,139,-233,188,0,163,0,134,-69,139,-72,142,-71,150,-69,159,-69,173,-70,183,-73,191,-78,195,-85,196,-94,194,-105,189,-113,181,-119,171,-123,158,-125,149,-125,141,-124,123,-120,112,-117,102,-138,114,-143,125,-146,137,-148,148,-149,161,-150,191,-147,215,-139,233,-127,245,-111,248,-90,246,-74,238,-60,226,-51,209,-45,188,-43,178,-43,174,-44,170,-44,226,-50,214,-60,204,-67,194,-72,185,-75,177,-76,168,-75,160,-72,155,-66,151,-59,150,-48,151,-38,154,-29,160,-19,169,-9,180,0,148,0,134,-10,124,-22,116,-35,112,-48,111,-63,113,-81,120,-95,131,-106,145,-112,163,-115,180,-113,196,-107,211,-96,225,-81,240,-61,240,-62,189,-163,189,-70,161,-70,161,-163,285,-164,285,-68,66,-68,66,-164,105,-164,105,-106,246,-106,246,-164,284,-76,255,-76,255,-101,254,-111,250,-119,244,-125,234,-129,221,-130,211,-129,202,-125,195,-119,191,-111,189,-101,189,-76,161,-76,161,-101,160,-112,157,-120,151,-126,143,-129,131,-130,120,-129,111,-126,104,-120,99,-112,98,-101,98,-76,70,-76,70,-101,73,-120,81,-136,94,-148,111,-155,132,-158,145,-156,155,-153,164,-148,171,-141,175,-134,180,-141,188,-148,198,-153,210,-156,223,-158,243,-155,260,-148,273,-136,281,-120,284,-101,284,-50,259,-50,175,-122,91,-50,66,-50,152,-167,198,-167,284,-167,197,-50,153,-50,66,-167,91,-167,175,-95,260,-167,253,-47,241,-73,228,-92,213,-105,196,-112,176,-115,151,-112,132,-103,116,-89,105,-71,98,-47,77,-47,81,-84,93,-115,112,-138,139,-152,174,-157,206,-152,232,-139,252,-117,266,-87,273,-47,273,-151,266,-111,252,-80,232,-58,206,-45,174,-40,139,-45,112,-60,93,-82,81,-113,77,-151,98,-151,105,-126,116,-107,132,-94,151,-85,176,-83,196,
--85,213,-92,228,-105,241,-124,253,-151,270,-78,263,-92,257,-102,250,-109,242,-113,233,-114,225,-113,217,-111,207,-108,179,-94,159,-86,149,-84,140,-82,130,-82,111,-85,93,-94,79,-108,68,-127,59,-152,80,-152,85,-140,91,-131,98,-125,106,-121,116,-120,123,-121,129,-122,137,-125,147,-129,160,-136,175,-143,188,-148,198,-150,207,-152,217,-152,238,-150,255,-141,269,-127,281,-106,291,-78,284,-136,284,-97,66,-97,66,-136,350,-133,350,-97,0,-97,0,-133,350,-133,350,-97,0,-97,0,-133,16383,16383,350,-209,350,-174,0,-174,0,-209,266,224,259,211,252,200,246,194,238,190,229,188,221,189,213,191,203,194,175,208,155,216,135,220,126,220,106,217,89,209,74,194,63,175,55,150,76,150,81,162,87,171,94,177,102,181,111,182,118,182,125,180,133,177,143,173,156,166,172,159,184,155,194,152,203,150,213,150,234,153,251,161,265,175,277,196,286,224,281,161,281,192,67,192,67,161,350,161,350,192,0,192,0,161,307,406,270,406,70,-51,108,-51,358,463,320,463,70,-108,108,-108,84,-49,84,-75,105,-75,118,-77,130,-83,140,-92,146,-103,148,-117,146,-130,140,-142,130,-151,118,-157,105,-159,84,-159,84,-185,105,-185,127,-181,145,-172,160,-157,170,-138,173,-117,170,-95,160,-77,145,-62,127,-52,105,-49,285,-132,285,-36,246,-36,246,-94,105,-94,105,-36,66,-36,66,-132,233,-158,233,-36,117,-36,117,-158,16383,16383,205,-130,145,-130,145,-64,205,-64,280,-63,270,-56,261,-51,253,-47,245,-45,235,-44,223,-46,211,-49,199,-56,187,-67,175,-82,164,-67,153,-56,141,-49,129,-46,116,-44,108,-45,100,-47,91,-50,82,-56,70,-63,70,-98,82,-91,92,-87,101,-85,107,-84,111,-83,128,-86,141,-93,152,-103,160,-116,169,-131,183,-131,191,-115,200,-102,209,-92,220,-86,232,-83,238,-83,246,-84,267,-91,280,-98,241,481,223,501,175,454,128,501,108,481,155,434,111,388,129,369,175,414,222,367,240,388,195,434,212,580,187,572,167,561,153,546,144,529,141,509,143,491,149,471,162,445,167,432,171,423,173,415,173,407,172,398,168,390,162,383,152,376,138,370,138,349,166,359,187,370,201,385,209,402,212,423,211,433,210,442,207,452,202,464,195,480,189,493,184,503,182,511,180,517,180,524,181,534,185,542,191,549,200,555,212,560,350,615,350,649,0,649,0,
-615,16383,16383,350,539,350,574,0,574,0,539,198,377,198,477,0,477,0,377,38,377,38,439,159,439,159,377,277,544,270,530,263,520,256,514,248,510,239,509,233,509,226,510,210,516,202,520,185,528,165,536,155,538,146,540,137,541,117,538,100,529,85,514,74,494,66,470,86,470,91,481,97,490,104,497,113,500,122,502,127,501,133,500,138,499,144,497,151,495,166,487,182,480,194,475,204,472,213,470,223,470,244,472,262,480,276,495,287,516,297,544,16383,16383,277,447,270,433,263,423,256,416,248,413,239,412,233,412,226,413,218,415,210,418,202,422,185,430,175,435,165,439,155,441,137,443,117,440,100,431,85,417,74,397,66,373,86,373,91,384,97,393,104,399,113,403,122,405,127,404,133,403,138,402,144,399,151,397,166,389,182,382,194,377,204,374,213,373,223,373,244,375,262,383,276,398,287,419,297,447,275,-109,274,-103,272,-97,268,-93,263,-89,258,-88,256,-88,254,-89,252,-89,250,-90,247,-91,239,-98,218,-119,204,-131,185,-144,187,-124,190,-105,195,-88,198,-74,200,-63,199,-58,196,-52,192,-48,187,-45,182,-44,176,-45,171,-48,167,-52,164,-58,163,-63,165,-74,168,-89,172,-105,176,-124,177,-144,162,-134,148,-122,135,-110,124,-99,114,-91,112,-90,109,-89,107,-89,105,-88,104,-88,98,-89,93,-93,89,-97,87,-103,86,-109,86,-113,90,-119,92,-121,95,-123,106,-128,121,-133,138,-138,156,-144,172,-151,156,-159,139,-165,122,-170,108,-174,98,-178,94,-181,91,-185,89,-189,88,-193,88,-202,90,-206,94,-209,99,-211,105,-212,110,-212,116,-210,118,-208,126,-202,137,-192,149,-180,162,-168,177,-158,176,-177,172,-196,168,-212,165,-226,163,-237,164,-242,167,-247,171,-252,176,-255,182,-256,187,-255,192,-252,196,-247,199,-242,200,-237,198,-226,195,-212,190,-196,187,-177,185,-158,205,-171,221,-186,233,-199,244,-209,255,-212,261,-211,267,-209,270,-205,273,-200,273,-191,272,-187,270,-184,267,-181,263,-178,254,-174,241,-171,225,-166,208,-160,189,-151,210,-141,228,-135,243,-131,255,-128,263,-124,268,-122,271,-119,275,-113,275,-109,522,-52,500,-82,455,-101,401,-113,348,-119,309,-120,269,-119,216,-113,162,-101,118,-82,95,-52,75,-52,93,-101,137,-133,196,-152,257,-160,309,-162,360,-160,422,-152,480,-133,525,-101,542,-52,571,433,562,417,546,408,527,403,506,400,481,
-400,478,401,474,401,439,402,401,407,363,413,325,420,291,428,269,433,247,437,224,440,202,442,180,443,149,441,119,435,92,422,71,402,59,373,80,373,89,387,104,397,124,402,144,404,164,405,177,405,199,404,221,402,265,394,286,389,322,381,359,373,396,367,434,363,471,362,502,363,532,370,559,382,580,403,591,433,542,355,525,404,480,436,422,454,360,463,309,465,257,463,196,454,137,436,93,404,75,355,95,355,118,385,162,404,216,416,269,421,309,423,348,421,401,416,455,404,500,385,522,355,584,-111,566,-101,550,-89,534,-75,520,-60,506,-44,492,-58,511,-81,513,-83,514,-85,515,-86,515,-88,516,-90,515,-92,512,-95,508,-97,59,-97,59,-136,510,-136,514,-138,515,-140,515,-144,514,-145,514,-147,513,-149,511,-151,492,-175,505,-188,519,-173,534,-158,550,-144,566,-131,584,-122,134,282,132,294,126,305,118,313,107,319,95,321,83,319,72,314,63,306,58,295,56,282,58,270,64,259,72,251,83,246,95,244,107,246,118,251,126,259,132,270,134,282,16383,16383,75,-97,102,-82,124,-63,140,-40,150,-16,153,9,150,30,143,47,131,60,115,68,98,71,84,69,73,64,64,56,58,45,56,32,58,20,63,10,71,2,82,-1,97,-3,101,-3,109,-1,119,-1,122,-3,124,-5,125,-7,126,-10,123,-24,116,-39,105,-54,89,-69,68,-84,79,355,103,355,149,412,161,426,165,432,167,438,168,443,167,450,163,456,158,460,153,463,139,463,132,461,127,458,123,453,120,448,221,390,219,400,214,410,207,417,197,422,186,424,175,422,166,417,158,410,153,400,152,390,153,379,158,369,166,362,175,357,186,355,197,357,207,362,214,369,219,379,221,390,16383,16383,79,355,103,355,149,412,161,426,165,432,167,438,168,443,167,450,163,456,158,460,153,463,139,463,132,461,127,458,123,453,120,448,16383,16383,82,390,80,400,75,410,67,417,58,422,47,424,36,422,27,417,19,410,14,400,13,390,14,379,19,369,27,362,36,357,47,355,58,357,67,362,75,369,80,379,82,390,79,370,103,370,149,427,161,441,165,447,167,453,168,458,167,465,163,471,158,475,153,477,147,478,139,477,132,475,127,472,123,468,120,462,16383,16383,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,
-18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,364,31,362,25,358,21,353,18,348,16,316,13,316,0,16383,16383,313,180,152,180,232,373,134,282,132,294,127,305,119,313,108,319,96,321,83,319,73,314,64,306,59,295,57,282,59,270,65,259,73,251,84,246,96,244,108,246,119,251,127,259,132,270,134,282,516,118,496,118,477,80,453,53,420,37,374,28,309,26,282,26,262,29,249,35,241,44,239,59,239,229,345,229,375,227,396,222,409,210,418,191,423,161,440,161,440,325,423,325,418,297,409,277,396,265,375,259,345,258,239,258,239,412,240,423,242,430,246,434,253,436,263,437,349,435,405,429,438,416,454,395,463,363,480,363,477,463,106,463,106,450,133,447,150,441,161,430,166,411,167,385,167,80,166,52,161,34,151,23,133,17,106,13,106,0,484,0,16383,16383,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,585,0,585,13,559,17,541,23,530,35,524,52,523,77,523,384,524,411,530,429,541,440,559,447,585,450,585,463,389,463,389,450,416,447,434,441,445,430,450,411,452,384,452,252,239,252,239,384,241,411,246,429,258,441,276,447,302,450,302,463,105,463,105,450,133,447,151,441,161,429,167,411,168,384,168,85,167,55,162,35,151,23,133,16,105,13,105,0,301,0,300,13,274,16,256,23,246,35,240,53,239,79,239,220,452,220,452,87,450,57,446,37,435,24,417,17,390,13,390,0,16383,16383,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,16383,16383,314,0,314,13,285,16,265,22,253,33,247,52,245,78,245,386,247,413,253,431,265,442,284,448,314,450,314,463,106,463,106,450,136,447,156,442,167,431,173,413,174,386,174,78,173,51,167,32,155,21,136,16,106,13,106,0,481,232,471,310,440,
-377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,16383,16383,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,573,461,563,465,545,469,537,469,528,470,485,462,443,441,405,406,376,361,357,305,355,305,341,364,317,411,285,445,244,465,195,472,175,470,154,465,135,457,116,447,101,435,106,424,115,427,126,431,138,434,149,436,158,437,198,429,233,404,262,360,285,295,301,206,301,86,299,55,294,34,282,23,262,16,230,13,230,0,445,0,445,13,415,16,394,22,381,32,375,50,373,77,373,213,382,286,407,351,446,403,494,438,550,451,555,451,559,450,564,449,568,449,573,448,16383,16383,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,501,0,501,118,483,118,480,99,475,85,467,75,455,68,440,66,332,66,333,92,385,112,427,140,458,176,477,222,484,278,474,338,445,392,399,435,337,463,260,473,183,462,120,432,75,388,46,335,37,278,43,222,61,177,91,140,133,112,185,92,187,66,81,66,65,68,53,73,44,83,39,98,37,120,20,120,20,0,221,0,215,113,181,130,154,159,134,196,121,238,117,280,123,329,140,375,169,413,209,438,260,448,311,440,351,417,380,382,398,335,404,280,399,235,386,193,366,156,339,128,305,112,305,113,300,0,16383,16383,5,370,30,370,76,427,82,434,87,441,91,447,94,453,95,458,93,465,90,471,85,475,79,477,73,478,65,477,59,475,54,472,50,468,47,462,221,390,219,400,214,410,207,417,197,422,186,424,175,422,166,417,158,410,153,400,152,390,153,379,158,369,166,362,175,357,186,355,197,357,207,362,214,
-369,219,379,221,390,16383,16383,79,355,103,355,149,412,161,426,165,432,167,438,168,443,167,450,163,456,158,460,153,463,139,463,132,461,127,458,123,453,120,448,16383,16383,82,390,80,400,75,410,67,417,58,422,47,424,36,422,27,417,19,410,14,400,13,390,14,379,19,369,27,362,36,357,47,355,58,357,67,362,75,369,80,379,82,390,16383,16383,200,75,192,60,185,50,178,43,171,40,163,39,158,40,154,43,151,47,149,55,149,320,146,322,125,314,103,306,37,285,38,285,38,273,45,274,52,274,58,275,67,275,76,274,82,270,87,264,90,254,91,241,91,55,92,37,96,20,103,6,115,-3,131,-6,152,-1,170,10,186,28,200,49,211,70,495,0,495,13,476,17,462,24,450,36,440,54,429,77,257,472,243,472,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,364,31,362,25,358,21,353,18,348,16,316,13,316,0,16383,16383,313,180,152,180,232,373,295,245,328,254,355,268,375,287,387,313,391,347,384,387,362,420,325,443,273,458,208,463,12,463,12,450,41,447,60,442,72,431,77,413,79,385,79,79,77,52,71,33,59,22,40,16,12,13,12,0,248,0,304,5,350,21,385,47,407,82,415,124,409,162,393,193,368,216,335,233,295,244,16383,16383,151,256,151,424,153,430,156,434,161,437,167,438,226,434,269,423,298,405,314,378,320,343,315,312,300,287,275,270,240,260,195,256,16383,16383,151,228,196,228,240,226,278,217,308,199,327,169,334,125,327,83,308,54,277,37,239,28,194,26,177,27,165,30,157,36,152,45,151,57,404,346,401,463,9,463,9,450,36,447,53,440,64,429,68,412,70,386,70,87,68,56,63,35,52,23,35,16,8,13,8,0,205,0,205,13,177,16,159,22,147,33,142,51,141,79,141,420,144,428,148,433,156,436,166,437,288,437,325,434,352,425,370,408,381,382,387,346,473,0,257,472,243,472,34,0,16383,16383,367,64,95,64,232,373,418,118,398,118,379,80,355,53,322,37,276,28,212,26,184,26,164,29,151,35,143,44,141,59,141,229,246,229,277,227,298,222,311,210,320,191,326,
-161,341,161,341,325,326,325,320,297,311,277,298,265,277,259,246,258,141,258,141,423,144,430,148,434,155,436,165,437,251,435,307,429,340,416,356,395,365,363,382,363,380,463,9,463,9,450,35,447,53,441,63,430,68,411,70,385,70,80,68,52,64,34,53,23,36,17,9,13,9,0,386,0,419,123,402,123,395,101,389,83,382,68,372,56,360,46,349,39,335,34,319,30,301,27,102,27,405,453,405,463,37,463,23,344,41,344,45,364,49,379,54,391,60,402,70,413,81,421,95,428,113,433,136,436,163,437,313,437,7,10,7,0,401,0,492,0,492,13,466,17,448,23,437,35,431,52,430,77,430,384,431,411,437,429,448,440,466,447,492,450,492,463,296,463,296,450,323,447,341,441,352,430,357,411,359,384,359,252,146,252,146,384,148,411,153,429,165,441,183,447,209,450,209,463,13,463,13,450,40,447,58,441,69,429,74,411,75,384,75,85,74,55,69,35,58,23,40,16,12,13,13,13,13,0,208,0,207,13,181,16,163,23,153,35,147,53,146,79,146,220,359,220,359,87,357,57,353,37,342,24,324,17,297,13,297,0,351,165,348,180,346,199,344,219,343,238,343,264,344,275,348,297,351,309,333,309,329,295,324,284,316,276,306,270,293,268,219,268,205,269,194,274,186,282,180,293,174,309,157,309,160,293,162,276,164,240,165,226,165,214,164,201,158,165,175,165,181,180,187,193,195,202,205,207,219,209,293,209,306,207,316,201,323,192,329,180,333,165,16383,16383,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,171,442,191,448,220,450,220,463,13,463,13,450,42,447,62,442,74,431,79,413,80,386,80,78,79,
-51,73,32,62,21,42,16,12,13,13,13,13,0,506,0,506,13,488,15,471,22,451,35,427,57,397,90,233,269,363,394,389,417,409,433,428,442,448,447,473,450,473,463,291,463,291,450,309,449,320,448,329,445,334,441,337,435,338,427,335,417,328,405,317,391,301,376,283,359,158,244,158,384,159,411,163,429,174,440,192,447,221,450,221,463,23,463,23,450,51,447,70,440,80,429,85,411,87,384,87,88,85,57,80,36,69,23,51,16,23,13,23,0,220,0,220,13,194,16,176,22,165,33,159,50,158,77,158,207,177,222,246,150,277,117,304,89,324,64,338,45,342,30,341,25,338,21,332,17,324,15,313,14,294,13,294,0,481,0,481,13,462,17,448,24,436,36,426,54,415,77,250,472,236,472,98,130,78,81,62,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,224,373,226,373,338,85,342,72,346,61,349,51,350,43,351,37,348,25,341,18,331,15,318,14,302,13,302,0,605,0,605,13,579,17,561,24,550,35,545,53,543,78,543,385,545,412,550,430,561,442,578,448,604,450,604,463,465,463,310,112,148,463,10,463,10,450,39,447,58,441,70,430,75,411,77,384,77,105,75,66,69,40,57,25,38,17,9,13,9,0,172,0,172,13,144,17,126,25,114,41,109,67,107,105,107,384,284,0,293,0,472,401,472,86,471,57,466,37,455,24,436,17,409,13,409,0,495,463,329,463,329,450,346,448,359,446,369,443,377,439,384,432,390,424,393,413,396,400,397,383,398,363,398,125,127,463,9,463,9,450,27,449,41,445,52,438,64,428,77,413,77,105,75,67,69,42,57,27,38,18,9,13,9,0,172,0,172,13,144,19,126,28,114,44,109,68,107,105,107,377,416,-7,428,-7,428,355,429,383,431,404,436,419,441,430,448,438,454,442,461,445,470,447,480,449,495,450,413,345,413,463,37,463,37,344,55,344,60,369,67,387,78,398,92,404,111,406,339,406,358,404,373,398,383,386,390,369,395,345,16383,16383,352,152,352,316,336,316,334,295,329,280,320,270,307,264,290,263,159,263,143,264,131,270,121,280,116,295,114,316,98,316,98,152,114,152,117,170,122,185,130,197,141,
-204,158,206,288,206,305,204,318,198,328,187,334,172,336,152,16383,16383,430,0,430,120,413,120,410,97,402,80,389,69,371,62,348,59,98,59,78,62,61,68,49,80,40,97,38,120,20,120,20,0,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,492,0,492,13,466,17,448,23,437,35,431,52,430,77,430,384,431,411,437,429,448,440,466,447,492,450,492,463,13,463,13,450,40,447,58,441,69,429,74,411,75,384,75,85,74,55,69,35,58,23,40,16,12,13,13,13,13,0,208,0,207,13,181,16,163,23,153,35,147,53,146,79,146,414,147,424,150,430,155,434,162,436,172,437,333,437,344,436,351,433,356,429,358,422,359,412,359,87,357,57,353,37,342,24,324,17,297,13,297,0,11,463,11,450,37,447,54,441,64,430,69,412,70,386,70,85,69,55,65,35,55,23,38,16,11,13,11,0,207,0,207,13,179,16,160,22,148,33,143,51,141,78,141,204,152,203,161,202,190,202,230,203,263,206,291,214,316,226,340,245,354,259,365,276,373,294,378,315,380,336,378,356,374,375,367,392,357,407,345,420,323,434,298,446,267,456,232,461,192,463,16383,16383,141,413,142,422,144,429,148,434,155,437,166,438,217,434,255,423,282,403,298,373,303,333,298,298,283,269,259,248,226,234,184,230,168,230,160,231,151,231,141,232,420,143,404,143,396,115,386,93,370,78,349,69,320,66,104,66,270,257,121,437,266,437,300,435,327,427,348,412,363,387,372,351,389,351,389,463,21,463,21,453,208,227,21,10,21,0,401,0,415,345,410,463,17,463,12,345,30,345,39,383,52,409,71,425,98,432,136,434,178,434,178,86,177,55,172,35,160,23,141,16,112,13,112,0,316,0,316,13,288,16,268,22,256,33,251,
-51,249,77,249,434,291,434,329,432,356,425,375,409,388,383,398,345,492,461,483,465,465,469,456,469,448,470,404,462,362,441,325,406,295,361,277,305,275,305,260,364,237,411,204,445,163,465,114,472,94,470,74,465,54,457,36,447,20,435,26,424,35,427,46,431,57,434,68,436,77,437,118,429,153,404,182,360,204,295,220,206,220,86,219,55,214,34,202,23,181,16,150,13,150,0,364,0,364,13,334,16,313,22,301,32,294,50,292,77,292,213,301,286,327,351,365,403,414,438,470,451,474,451,479,450,483,449,488,449,492,448,302,406,304,422,310,434,323,443,343,448,374,450,374,463,160,463,160,450,191,448,211,444,224,435,230,423,231,406,231,392,171,387,115,369,68,338,36,292,24,231,32,179,55,135,94,101,148,80,219,72,231,72,231,59,228,41,219,28,205,19,185,15,160,13,160,0,374,0,374,13,348,16,328,20,313,28,305,41,302,60,302,72,320,72,369,78,420,96,465,127,497,172,509,231,497,292,465,338,417,369,361,387,302,392,16383,16383,301,366,349,358,387,335,413,303,428,264,434,223,426,179,406,145,376,119,340,103,301,98,16383,16383,232,98,186,104,149,123,123,150,106,184,101,223,107,264,125,303,152,336,189,358,232,366,493,0,493,13,473,16,457,22,443,31,430,45,415,65,280,257,380,380,404,408,424,428,443,440,463,447,488,450,488,463,321,463,321,450,341,449,354,446,363,442,367,436,369,427,368,421,365,414,359,406,351,395,341,380,263,283,232,327,212,357,195,381,183,400,176,416,173,429,175,437,179,443,186,446,195,448,205,449,226,450,226,463,16,463,16,450,40,446,61,437,83,418,109,387,144,338,218,230,109,93,81,59,60,37,43,23,26,17,7,13,7,0,170,0,170,13,148,16,133,19,123,23,118,29,116,36,118,43,122,53,129,65,139,80,153,98,237,202,303,104,316,84,326,67,333,54,338,43,339,35,338,28,333,23,326,19,316,16,304,15,286,13,286,0,507,483,464,477,433,460,413,433,402,398,398,356,397,316,390,278,374,245,347,223,305,215,297,215,297,394,300,419,310,435,325,445,344,449,369,450,369,463,155,463,155,450,179,449,198,444,213,434,223,418,226,394,226,215,218,215,176,223,148,245,133,278,126,316,124,
-356,121,398,110,433,89,460,58,477,16,483,16,470,30,462,39,448,45,431,48,413,48,384,47,372,46,359,46,346,45,334,55,279,82,238,122,210,171,194,226,189,226,87,224,56,218,35,206,23,185,16,155,13,155,0,369,0,369,13,341,15,321,20,307,31,299,49,297,77,297,189,351,194,400,210,440,238,467,279,477,334,476,346,476,359,475,372,474,384,474,397,475,413,478,431,484,448,493,462,507,470,501,0,501,118,483,118,480,99,475,85,467,75,455,68,440,66,332,66,333,92,385,112,427,140,458,176,477,222,484,278,474,338,445,392,399,435,337,463,260,473,183,462,120,432,75,388,46,335,37,278,43,222,61,177,91,140,133,112,185,92,187,66,81,66,65,68,53,73,44,83,39,98,37,120,20,120,20,0,221,0,215,113,181,130,154,159,134,196,121,238,117,280,123,329,140,375,169,413,209,438,260,448,311,440,351,417,380,382,398,335,404,280,399,235,386,193,366,156,339,128,305,112,305,113,300,0,221,576,219,587,214,597,207,604,197,609,186,611,175,609,166,604,158,597,153,587,152,577,153,565,158,556,165,549,174,544,185,542,197,544,207,549,214,556,219,565,221,576,16383,16383,82,576,80,587,75,597,67,604,58,609,47,611,36,609,27,604,19,597,14,587,13,577,14,565,19,556,26,549,35,544,46,542,57,544,67,549,75,556,80,565,82,576,16383,16383,220,0,220,13,191,16,171,22,159,33,153,52,152,78,152,386,153,413,159,431,171,442,191,448,220,450,220,463,13,463,13,450,42,447,62,442,74,431,79,413,80,386,80,78,79,51,73,32,62,21,42,16,12,13,13,13,13,0,360,576,358,587,353,597,346,604,337,609,326,611,315,609,305,604,298,597,293,587,291,577,293,565,298,556,305,549,314,544,325,542,336,544,346,549,353,556,358,565,360,576,16383,16383,221,576,219,587,214,597,207,604,197,609,186,611,175,609,166,604,158,597,153,587,152,577,153,565,158,556,165,549,174,544,185,542,197,544,207,549,214,556,219,565,221,576,16383,16383,492,461,483,465,465,469,456,469,448,470,404,462,362,441,325,406,295,361,277,305,275,305,260,364,237,411,204,445,163,465,114,472,94,470,74,465,54,457,36,447,20,435,26,424,35,427,46,431,57,434,68,
-436,77,437,118,429,153,404,182,360,204,295,220,206,220,86,219,55,214,34,202,23,181,16,150,13,150,0,364,0,364,13,334,16,313,22,301,32,294,50,292,77,292,213,301,286,327,351,365,403,414,438,470,451,474,451,479,450,483,449,488,449,492,448,152,355,176,355,222,412,228,419,233,426,237,432,240,438,241,443,239,450,236,456,231,460,225,463,212,463,206,461,201,458,196,453,193,448,16383,16383,360,91,357,70,352,54,348,44,343,38,337,37,324,43,313,61,302,84,294,109,288,131,365,315,297,315,266,220,255,250,239,277,218,300,191,316,158,322,111,313,72,289,44,253,26,208,20,156,27,103,45,58,73,23,109,1,152,-6,181,-2,206,7,226,24,244,45,259,70,266,45,275,23,286,7,299,-2,315,-6,334,-1,350,12,361,33,368,60,370,91,16383,16383,232,145,226,117,217,83,202,49,183,23,158,13,126,26,105,60,92,106,85,153,84,191,88,234,98,265,114,286,133,298,154,302,181,291,201,262,216,223,226,182,232,145,107,355,131,355,177,412,189,426,193,432,195,438,196,443,195,450,191,456,186,460,181,463,167,463,161,461,156,458,148,448,16383,16383,275,102,254,76,232,55,209,40,183,31,154,28,132,31,113,38,96,51,85,69,80,91,85,114,98,131,116,143,136,149,155,152,163,151,169,150,174,149,180,148,186,148,198,149,208,152,214,156,218,160,220,166,219,170,216,174,210,177,203,180,184,180,170,176,162,175,151,174,129,177,113,186,101,199,94,215,91,234,94,255,103,273,117,288,135,298,157,302,178,301,195,297,208,292,215,284,218,273,218,270,216,262,215,257,215,250,216,240,221,232,228,226,236,222,245,220,255,222,264,225,272,231,277,239,279,250,272,278,254,299,228,312,199,320,170,322,121,317,84,303,56,283,39,258,34,230,36,213,43,197,54,183,69,172,88,165,65,158,46,145,31,128,21,107,17,85,19,65,29,41,51,18,90,0,151,-6,182,-2,211,8,239,28,264,56,285,95,118,355,141,355,188,412,194,419,199,426,203,432,205,438,206,443,205,450,202,456,197,460,191,463,178,463,171,461,166,458,162,453,159,448,16383,16383,316,-151,312,-142,309,-132,307,-120,306,-107,305,-91,305,223,302,255,292,282,275,303,252,317,223,322,203,320,184,
-314,164,303,143,287,122,266,121,266,118,286,114,302,106,312,95,317,79,319,62,314,46,302,31,285,18,264,7,241,17,238,22,246,27,255,34,264,42,270,51,272,54,271,58,267,61,258,63,242,64,219,64,0,123,0,123,244,140,260,155,271,169,278,182,282,195,284,214,281,228,273,238,259,244,240,246,216,246,-90,247,-111,248,-126,251,-136,254,-144,257,-151,56,355,80,355,126,412,132,419,137,426,141,432,144,438,145,443,143,450,140,456,135,460,130,463,116,463,110,461,105,458,101,453,98,448,16383,16383,177,75,168,60,161,50,154,43,147,40,139,39,134,40,130,43,127,47,125,51,125,320,123,322,79,306,58,299,14,285,14,273,22,274,28,274,34,275,44,275,52,274,58,270,63,264,65,254,66,241,66,55,68,37,72,20,79,6,91,-3,108,-6,129,-1,147,10,163,28,176,49,187,70,283,390,281,400,276,410,268,417,259,422,248,424,237,422,228,417,220,410,215,400,213,390,215,379,220,369,228,362,237,357,248,355,259,357,268,362,276,369,281,379,283,390,16383,16383,141,355,165,355,211,412,217,419,222,426,226,432,229,438,230,443,228,450,225,456,220,460,214,463,201,463,194,461,189,458,185,453,182,448,16383,16383,144,390,142,400,137,410,129,417,119,422,109,424,98,422,89,417,81,410,76,400,74,390,76,379,81,369,89,362,98,357,109,355,119,357,129,362,137,369,142,379,144,390,16383,16383,178,322,178,308,194,305,209,300,223,292,236,281,248,267,261,246,271,222,278,197,282,171,283,146,280,105,271,69,254,39,231,20,198,13,169,20,149,40,136,66,129,95,127,122,127,270,126,287,120,301,111,311,99,317,84,319,66,314,50,302,36,285,23,264,11,241,21,238,26,246,32,255,39,264,46,270,55,272,61,269,65,262,67,251,68,238,69,223,69,138,72,93,84,53,106,21,142,1,195,-6,243,1,285,25,317,60,339,106,346,158,338,217,316,263,283,296,243,315,198,322,360,91,357,70,352,54,348,44,343,38,337,37,324,43,313,61,302,84,294,109,288,131,365,315,297,315,266,220,255,250,239,277,218,300,191,316,158,322,111,313,72,289,44,253,26,208,20,156,27,103,45,58,73,23,109,1,152,-6,181,-2,206,7,226,24,244,45,259,70,266,45,275,
-23,286,7,299,-2,315,-6,334,-1,350,12,361,33,368,60,370,91,16383,16383,232,145,226,117,217,83,202,49,183,23,158,13,126,26,105,60,92,106,85,153,84,191,88,234,98,265,114,286,133,298,154,302,181,291,201,262,216,223,226,182,232,145,241,280,254,286,265,293,275,302,282,311,288,321,296,341,298,351,299,360,299,370,293,405,276,435,250,458,220,473,187,478,143,472,106,450,76,411,57,349,50,261,50,-94,49,-107,48,-119,45,-131,42,-141,38,-151,98,-151,100,-144,103,-134,106,-122,108,-109,109,-94,109,22,123,10,137,2,151,-3,166,-5,184,-6,230,2,269,27,300,64,320,109,327,159,323,192,313,221,296,247,272,267,242,279,16383,16383,109,340,109,350,111,386,119,416,133,439,151,454,174,459,202,451,222,433,234,406,240,376,242,345,241,330,238,314,232,301,224,292,213,289,206,290,198,291,190,293,183,294,177,295,166,294,157,291,152,288,149,284,148,280,149,274,153,269,158,265,166,263,175,262,182,262,188,263,193,265,199,266,207,266,221,262,237,250,251,226,262,191,266,141,262,101,251,66,233,39,210,22,181,16,160,18,140,26,124,37,113,50,109,63,311,315,241,315,168,68,161,117,151,183,135,248,109,299,68,320,45,313,28,297,16,272,9,242,7,209,17,209,22,232,30,249,39,262,49,269,58,271,92,251,117,200,134,134,144,71,149,25,134,-11,130,-23,126,-36,121,-51,118,-66,115,-80,114,-93,113,-104,115,-119,119,-132,125,-142,135,-149,148,-151,166,-148,178,-137,186,-122,190,-103,191,-82,190,-63,186,-27,183,-12,180,0,155,298,108,285,70,261,43,230,26,192,20,152,27,104,47,61,79,26,121,2,172,-6,225,1,269,24,302,60,322,107,329,162,325,197,315,229,298,258,275,282,247,303,203,327,159,347,122,365,95,384,85,406,90,423,101,435,117,443,133,447,148,448,191,443,216,430,232,414,246,401,267,395,277,397,284,403,289,410,291,418,292,426,284,445,263,460,235,470,203,476,173,478,143,476,113,468,86,454,66,433,59,405,63,376,75,352,95,331,122,314,155,298,16383,16383,266,145,262,100,252,63,235,35,211,18,182,13,169,14,156,19,142,26,130,36,120,48,106,72,96,98,89,124,85,148,84,169,87,201,99,231,118,256,144,273,178,280,209,
-265,233,240,251,209,262,176,266,145,275,102,254,76,232,55,209,40,183,31,154,28,132,31,113,38,96,51,85,69,80,91,85,114,98,131,116,143,136,149,155,152,163,151,169,150,174,149,180,148,186,148,198,149,208,152,214,156,218,160,220,166,219,170,216,174,210,177,203,180,184,180,170,176,162,175,151,174,129,177,113,186,101,199,94,215,91,234,94,255,103,273,117,288,135,298,157,302,178,301,195,297,208,292,215,284,218,273,218,270,216,262,215,257,215,250,216,240,221,232,228,226,236,222,245,220,255,222,264,225,272,231,277,239,279,250,272,278,254,299,228,312,199,320,170,322,121,317,84,303,56,283,39,258,34,230,36,213,43,197,54,183,69,172,88,165,65,158,46,145,31,128,21,107,17,85,19,65,29,41,51,18,90,0,151,-6,182,-2,211,8,239,28,264,56,285,95,107,478,82,469,63,458,49,445,41,431,38,415,42,396,53,381,67,371,84,365,100,363,101,360,72,316,51,274,36,232,27,189,24,140,30,81,46,40,69,12,99,-2,133,-6,147,-5,163,-4,179,-2,192,0,200,0,221,-2,238,-8,252,-18,260,-31,263,-47,260,-66,251,-82,238,-94,223,-101,206,-104,196,-102,187,-97,179,-91,172,-85,164,-83,153,-85,145,-89,139,-95,136,-103,134,-112,137,-127,144,-138,155,-145,169,-150,185,-151,211,-146,238,-131,262,-107,279,-77,285,-41,281,-4,269,22,248,42,219,53,180,57,158,57,152,56,145,56,110,62,85,77,68,101,60,130,57,164,62,212,74,257,91,298,111,333,132,360,167,367,199,380,225,397,243,416,250,435,249,443,246,450,240,455,232,458,223,459,199,454,175,441,151,423,132,402,117,382,103,384,91,387,80,393,73,403,70,417,72,427,77,437,86,448,98,459,113,468,316,-151,312,-142,309,-132,307,-120,306,-107,305,-91,305,223,302,255,292,282,275,303,252,317,223,322,203,320,184,314,164,303,143,287,122,266,121,266,118,286,114,302,106,312,95,317,79,319,62,314,46,302,31,285,18,264,7,241,17,238,22,246,27,255,34,264,42,270,51,272,54,271,58,267,61,258,63,242,64,219,64,0,123,0,123,244,140,260,155,271,169,278,182,282,195,284,214,281,228,273,238,259,244,240,246,216,246,-90,247,-111,248,-126,251,-136,254,-144,257,-151,327,
-233,326,278,323,319,316,355,307,387,295,414,278,438,259,456,236,468,209,476,177,478,121,467,77,434,45,383,25,317,19,238,19,201,22,169,26,140,32,114,40,90,56,57,77,30,103,10,134,-2,170,-6,226,5,269,37,301,88,321,154,327,233,16383,16383,82,248,82,270,86,346,98,400,116,434,139,453,166,459,210,445,239,409,255,359,263,302,265,248,16383,16383,265,221,262,152,252,94,235,50,211,22,179,13,137,25,110,59,93,107,85,165,82,226,265,226,177,75,168,60,161,50,154,43,147,40,139,39,134,40,130,43,127,47,125,51,125,320,123,322,79,306,58,299,14,285,14,273,22,274,28,274,34,275,44,275,52,274,58,270,63,264,65,254,66,241,66,55,68,37,72,20,79,6,91,-3,108,-6,129,-1,147,10,163,28,176,49,187,70,352,0,352,10,335,13,320,19,306,27,293,38,279,54,158,195,184,221,206,240,225,253,244,260,263,262,272,261,299,255,308,254,317,255,327,258,335,265,341,275,343,288,341,299,336,308,328,315,316,320,302,322,283,320,258,310,224,287,178,246,116,180,116,320,113,322,98,317,83,313,67,308,48,303,26,297,5,291,5,280,10,280,15,281,27,281,39,280,48,276,53,268,56,256,57,239,57,0,116,0,116,159,208,48,211,42,217,34,218,31,219,27,218,22,214,17,209,13,202,11,192,10,186,10,186,0,334,96,329,75,320,59,310,49,301,43,292,41,281,44,270,53,261,65,253,81,247,99,169,373,158,409,146,438,132,460,116,473,95,478,72,472,55,455,44,431,39,403,37,375,48,375,53,398,60,414,68,423,79,428,90,429,103,425,116,414,129,396,140,374,150,347,159,315,9,0,78,0,179,248,230,63,237,40,246,21,257,6,271,-3,286,-7,306,-2,323,12,334,34,342,62,345,96,351,74,342,59,335,49,328,43,321,40,314,39,310,40,306,44,303,51,301,62,300,79,300,315,241,315,241,83,239,74,236,67,232,61,226,55,214,47,202,41,190,37,179,34,169,34,151,36,135,44,121,57,112,75,109,97,109,315,50,315,50,-91,48,-119,45,-131,42,-141,38,-151,96,-151,99,-143,102,-132,105,-120,106,-106,107,-90,107,13,109,13,114,5,122,0,131,-3,141,-5,152,-6,166,-5,183,0,201,10,221,26,240,
-50,241,50,243,32,247,16,255,4,268,-3,284,-6,304,-1,322,10,337,28,350,49,361,70,297,322,288,263,265,198,228,136,181,88,126,63,125,63,125,320,123,322,79,306,58,299,14,285,14,273,21,274,28,274,34,275,44,275,52,274,58,269,63,263,65,253,66,241,66,-9,83,-9,139,10,188,39,228,76,260,118,284,163,297,198,304,232,308,265,310,295,310,322,124,478,99,470,80,459,67,447,60,432,57,416,59,401,65,389,74,381,85,375,97,373,88,363,81,352,76,339,73,327,72,314,73,301,77,289,83,277,91,266,102,258,76,236,55,210,38,181,28,148,24,114,28,74,40,41,62,15,94,0,138,-6,150,-5,164,-4,179,-2,192,0,200,0,221,-2,238,-8,252,-18,260,-31,263,-47,260,-67,251,-82,238,-94,223,-101,206,-104,196,-102,187,-97,179,-91,172,-85,164,-83,153,-85,145,-89,139,-95,136,-103,134,-112,137,-127,144,-138,155,-145,169,-150,185,-151,212,-146,239,-131,262,-107,279,-75,285,-37,281,-5,269,21,248,41,219,53,180,57,155,57,146,56,138,56,110,59,88,67,71,83,60,106,56,137,60,165,70,191,86,212,107,230,132,244,143,241,154,240,164,238,199,238,220,242,239,249,254,260,259,276,257,286,251,293,241,299,229,303,214,304,196,303,178,298,159,292,141,283,124,271,116,278,109,286,104,295,101,305,100,315,102,328,107,341,117,351,131,358,148,361,176,363,202,370,224,380,239,393,245,407,243,415,240,422,233,427,224,430,212,430,194,429,175,424,155,416,135,406,116,394,106,396,98,401,93,408,89,416,88,427,89,434,93,443,100,451,112,459,130,467,331,159,325,211,306,256,275,291,233,314,181,322,128,312,84,284,52,243,31,194,24,141,32,94,54,53,87,21,129,0,177,-6,225,2,267,28,301,66,323,111,331,159,16383,16383,269,134,266,104,257,72,241,44,218,23,188,16,150,26,121,53,102,91,90,132,87,171,89,203,97,237,113,268,135,290,167,299,207,288,235,258,255,218,265,174,269,134,327,96,320,76,312,63,303,55,293,52,284,51,272,53,264,58,257,66,252,75,249,85,247,97,246,110,246,124,245,138,245,152,247,202,249,223,250,242,252,256,335,256,335,315,135,315,96,311,65,299,41,280,22,252,6,216,17,216,32,234,49,
-246,66,253,86,256,109,256,101,166,90,108,75,75,59,58,42,51,32,47,29,43,27,40,26,35,28,21,33,8,42,0,55,-7,73,-9,108,12,128,68,137,139,140,208,141,256,205,256,203,225,200,190,197,153,195,115,195,78,197,52,206,29,219,10,237,-2,259,-6,286,0,308,16,324,40,334,68,338,96,50,-91,48,-119,45,-131,42,-141,38,-151,98,-151,101,-143,104,-133,106,-120,108,-106,109,-90,109,21,123,9,137,1,151,-3,165,-5,182,-6,229,2,269,27,300,66,320,115,327,173,319,221,299,263,268,294,228,315,181,322,141,316,105,294,76,255,57,193,50,106,16383,16383,109,191,111,229,119,259,132,283,150,297,173,302,202,296,228,276,248,245,261,202,266,148,262,105,251,68,233,40,210,22,181,16,161,18,141,26,125,36,113,49,109,62,302,246,298,268,286,289,266,306,237,318,198,322,149,312,102,283,62,239,35,182,24,116,30,64,46,28,70,6,99,-3,133,-6,147,-5,163,-4,179,-2,192,0,200,0,221,-2,238,-8,252,-18,260,-31,263,-47,260,-66,251,-82,238,-94,223,-101,206,-104,196,-102,187,-97,179,-91,172,-85,164,-83,153,-85,145,-89,139,-95,136,-103,134,-112,137,-127,144,-138,155,-145,169,-150,185,-151,211,-146,238,-131,262,-107,279,-77,285,-41,281,-4,269,22,248,42,219,53,180,57,161,57,155,56,145,56,109,63,84,76,68,95,59,119,57,148,64,189,81,221,106,243,135,256,166,260,198,255,221,243,239,229,253,217,269,212,282,214,291,220,297,228,301,237,302,246,363,256,363,315,167,315,122,309,82,290,50,257,28,211,20,151,28,103,49,59,81,25,121,1,167,-6,218,1,262,22,296,53,319,90,327,131,321,169,305,194,284,212,261,231,239,256,16383,16383,264,120,261,88,251,59,235,35,213,19,183,13,154,21,127,43,104,76,89,117,84,164,91,204,110,230,136,246,165,254,191,256,214,241,234,217,250,187,260,154,264,120,309,256,309,315,113,315,77,307,47,285,25,256,10,224,2,193,13,193,22,214,35,232,51,245,70,253,92,256,150,256,143,230,135,199,128,166,124,132,122,99,124,68,131,39,144,15,165,0,194,-6,219,0,241,15,257,38,267,68,270,100,259,100,254,83,246,69,236,59,225,53,212,51,197,55,186,66,179,83,175,
-103,174,127,176,158,179,189,183,217,187,241,191,256,178,322,178,308,194,305,209,300,223,292,236,281,248,267,261,246,271,222,278,197,282,171,283,146,280,105,271,69,254,39,231,20,198,13,169,20,149,40,136,66,129,95,127,122,127,270,126,287,120,301,111,311,99,317,84,319,66,314,50,302,36,285,23,264,11,241,21,238,26,246,32,255,39,264,46,270,55,272,61,269,65,262,67,251,68,238,69,223,69,138,72,93,84,53,106,21,142,1,195,-6,243,1,285,25,317,60,339,106,346,158,338,217,316,263,283,296,243,315,198,322,188,13,174,14,159,18,145,25,132,35,120,48,106,73,96,101,89,132,85,163,84,191,88,232,102,264,124,288,153,303,188,309,188,320,185,320,177,322,170,322,118,313,76,289,46,254,27,210,20,160,27,109,46,64,77,28,119,4,172,-5,188,-6,188,-151,247,-151,247,-6,308,2,355,25,388,61,408,105,415,155,408,211,389,257,361,292,327,314,290,322,273,320,258,316,245,309,233,301,223,291,207,261,197,227,191,188,189,147,188,107,16383,16383,247,13,247,217,249,251,254,278,265,296,282,302,306,292,325,266,340,229,349,187,352,145,349,104,340,68,324,39,300,20,268,13,340,315,272,315,172,130,158,195,144,248,129,288,111,313,88,322,68,317,54,304,44,283,38,255,37,219,48,219,52,240,58,255,65,265,72,271,78,273,94,269,107,256,120,235,131,205,141,166,155,109,8,-147,77,-147,176,37,191,-47,198,-81,207,-110,220,-132,236,-147,255,-153,277,-145,292,-126,302,-100,307,-73,309,-48,298,-48,295,-70,289,-85,281,-96,272,-102,262,-104,263,-104,248,-100,235,-88,224,-68,215,-38,205,2,193,57,479,320,472,321,465,321,458,322,442,322,406,314,382,292,366,262,358,226,356,190,355,144,349,96,335,54,312,24,276,13,276,315,217,315,217,13,181,24,157,54,144,97,138,145,137,192,134,229,126,264,110,294,85,314,51,322,43,322,35,321,27,321,20,320,14,320,14,309,42,295,59,266,69,229,73,191,73,160,78,101,92,54,118,20,159,0,217,-6,217,-151,276,-151,276,-6,331,0,372,22,399,57,415,103,420,160,420,192,424,229,434,266,451,295,479,309,252,312,288,305,316,284,337,250,349,204,353,145,352,107,348,71,338,41,321,
-20,295,13,280,16,266,28,253,46,244,71,237,102,238,102,242,119,248,147,250,177,248,203,243,222,236,235,228,242,219,245,209,242,200,235,193,222,188,202,187,176,187,159,191,131,195,118,199,102,193,71,184,46,172,27,158,16,140,13,115,21,99,43,89,75,85,113,84,152,88,208,102,253,124,285,151,305,184,312,184,322,132,315,87,295,52,261,29,211,20,146,22,118,25,92,32,69,41,49,54,32,68,18,83,7,98,0,114,-4,130,-6,153,-3,173,4,190,17,206,36,219,60,230,36,245,17,262,4,282,-3,305,-6,322,-4,339,0,354,7,369,18,383,32,395,49,404,69,411,92,415,118,416,148,408,213,386,262,351,296,305,316,252,322,221,401,219,412,214,421,207,428,197,433,186,435,175,433,166,429,158,421,153,412,152,401,153,390,158,380,165,373,174,368,185,366,197,368,207,373,214,380,219,390,221,401,16383,16383,82,401,80,412,75,421,67,428,58,433,47,435,36,433,27,429,19,421,14,412,13,401,14,390,19,380,26,373,35,368,46,366,57,368,67,373,75,380,80,390,82,401,16383,16383,193,75,185,60,178,50,171,43,165,40,156,39,151,40,147,43,144,47,142,55,142,320,139,322,117,314,96,306,30,285,30,273,38,274,45,274,51,275,60,275,69,274,75,270,80,264,83,254,84,241,84,55,85,37,89,20,96,6,108,-3,124,-6,145,-1,163,10,179,28,193,49,204,70,283,401,281,412,276,421,268,428,259,433,248,435,237,433,227,429,220,421,215,412,213,401,215,390,220,380,227,373,236,368,247,366,258,368,268,373,276,380,281,390,283,401,16383,16383,144,401,142,412,137,421,129,428,119,433,109,435,98,433,88,429,81,421,76,412,74,401,76,390,81,380,88,373,97,368,108,366,119,368,129,373,137,380,142,390,144,401,16383,16383,178,322,178,308,194,305,209,300,223,292,236,281,248,267,261,246,271,222,278,197,282,171,283,146,280,105,271,69,254,39,231,20,198,13,169,20,149,40,136,66,129,95,127,122,127,270,126,287,120,301,111,311,99,317,84,319,66,314,50,302,36,285,23,264,11,241,21,238,26,246,32,255,39,264,46,270,55,272,61,269,65,262,67,251,68,238,69,223,69,138,72,93,84,53,106,21,142,1,195,-6,243,1,285,
-25,317,60,339,106,346,158,338,217,316,263,283,296,243,315,198,322,134,355,158,355,204,412,210,419,215,426,219,432,222,438,223,443,221,450,218,456,213,460,207,463,194,463,187,461,182,458,178,453,175,448,16383,16383,331,159,325,211,306,256,275,291,233,314,181,322,128,312,84,284,52,243,31,194,24,141,32,94,54,53,87,21,129,0,177,-6,225,2,267,28,301,66,323,111,331,159,16383,16383,269,134,266,104,257,72,241,44,218,23,188,16,150,26,121,53,102,91,90,132,87,171,89,203,97,237,113,268,135,290,167,299,207,288,235,258,255,218,265,174,269,134,134,355,158,355,205,412,211,419,216,426,220,432,223,438,223,443,222,450,219,456,214,460,208,463,194,463,188,461,183,458,179,453,176,448,16383,16383,178,322,178,308,194,305,209,300,223,292,236,281,248,267,261,246,271,222,278,197,282,171,283,146,280,105,271,69,254,39,231,20,198,13,169,20,149,40,136,66,129,95,127,122,127,270,126,287,120,301,111,311,99,317,84,319,66,314,50,302,36,285,23,264,11,241,21,238,26,246,32,255,39,264,46,270,55,272,61,269,65,262,67,251,68,238,69,223,69,138,72,93,84,53,106,21,142,1,195,-6,243,1,285,25,317,60,339,106,346,158,338,217,316,263,283,296,243,315,198,322,173,355,197,355,243,412,249,419,254,426,258,432,261,438,262,443,260,450,257,456,252,460,246,463,233,463,226,461,221,458,217,453,214,448,16383,16383,252,312,288,305,316,284,337,250,349,204,353,145,352,107,348,71,338,41,321,20,295,13,280,16,266,28,253,46,244,71,237,102,238,102,242,119,248,147,250,177,248,203,243,222,236,235,228,242,219,245,209,242,200,235,193,222,188,202,187,176,187,159,191,131,195,118,199,102,193,71,184,46,172,27,158,16,140,13,115,21,99,43,89,75,85,113,84,152,88,208,102,253,124,285,151,305,184,312,184,322,132,315,87,295,52,261,29,211,20,146,22,118,25,92,32,69,41,49,54,32,68,18,83,7,98,0,114,-4,130,-6,153,-3,173,4,190,17,206,36,219,60,230,36,245,17,262,4,282,-3,305,-6,322,-4,339,0,354,7,369,18,383,32,395,49,404,69,411,92,415,118,416,148,408,213,386,262,351,296,305,316,252,322,288,
-427,283,451,272,468,256,478,235,484,212,485,198,483,183,478,167,471,153,463,141,455,98,410,68,357,49,298,40,237,38,174,41,127,52,78,74,35,108,5,155,-6,198,1,232,24,258,58,273,98,279,140,275,175,263,210,243,240,216,262,180,270,146,264,116,249,91,227,69,201,51,172,54,209,63,245,76,280,92,314,111,346,120,345,129,345,138,344,157,344,191,346,226,354,257,370,279,393,287,427,16383,16383,116,355,132,383,153,415,178,443,206,464,238,472,245,471,251,467,257,462,260,455,262,448,257,432,246,413,231,394,215,378,201,368,189,363,165,357,152,355,140,355,16383,16383,250,191,243,153,223,108,194,63,161,30,127,16,109,20,96,29,87,43,82,59,80,76,88,112,107,156,135,199,168,232,201,245,217,242,231,234,241,222,248,207,250,191,380,203,369,204,333,207,323,209,320,246,316,284,308,322,297,359,282,394,267,420,250,443,228,461,202,474,169,478,140,474,112,463,88,442,71,411,64,370,74,316,103,271,146,235,199,208,259,192,260,186,260,162,258,119,252,78,240,45,220,21,191,13,161,20,141,39,128,65,121,93,120,118,120,154,118,183,114,203,106,216,94,222,77,224,60,221,44,212,28,196,13,174,0,147,10,141,20,160,28,172,35,180,41,183,47,184,51,183,55,180,58,173,60,162,61,145,61,130,65,86,77,48,100,19,136,0,187,-6,241,5,280,36,304,81,317,133,322,188,346,188,358,189,370,191,380,192,16383,16383,259,226,198,255,157,291,133,328,121,363,118,391,121,413,128,430,139,442,152,450,167,452,188,448,209,434,227,404,242,354,253,280,253,277,254,270,256,258,257,243,259,226,277,291,261,357,237,408,204,444,163,465,114,472,94,470,74,465,54,457,36,447,20,435,26,424,35,427,46,431,57,434,68,436,77,437,118,429,153,404,182,360,204,295,220,206,220,86,219,55,214,34,202,23,181,16,150,13,150,0,364,0,364,13,334,16,313,22,301,32,294,50,292,77,292,176,296,234,308,307,331,379,366,433,415,455,419,454,423,454,428,452,431,450,432,446,429,441,422,434,414,425,408,414,405,399,407,386,412,376,421,367,432,362,445,360,460,363,473,371,481,383,487,397,488,413,485,432,475,449,461,462,443,470,424,473,375,462,337,
-431,309,388,290,339,279,291,247,478,188,478,188,322,177,322,120,313,77,289,45,253,27,208,20,159,27,111,46,65,77,28,119,2,172,-6,188,-6,188,-151,247,-151,247,-6,313,3,360,29,392,68,409,114,415,162,411,200,400,235,381,266,355,292,323,311,295,319,280,321,264,322,247,322,16383,16383,246,13,246,302,285,294,315,270,336,235,348,191,352,143,349,102,340,67,323,38,300,19,268,13,16383,16383,189,13,174,14,160,18,145,25,132,35,121,48,107,71,97,98,89,127,85,159,84,192,87,229,98,260,115,283,138,297,168,302,189,302,508,256,508,315,108,315,74,307,46,286,26,257,11,224,4,192,15,192,25,212,37,230,51,244,67,253,86,256,117,256,106,237,97,215,90,191,86,167,84,145,90,89,106,47,129,17,157,0,188,-6,215,-3,237,4,255,17,270,36,282,60,294,35,309,16,327,3,346,-4,366,-6,401,0,432,17,458,47,474,89,480,143,479,166,476,190,470,214,461,237,448,256,16383,16383,391,256,400,239,407,217,413,193,416,168,417,145,416,107,411,71,401,41,385,20,361,13,345,16,330,28,317,46,307,72,301,103,305,114,308,127,311,139,313,150,313,161,312,177,309,193,304,208,295,219,283,223,270,219,261,209,255,195,252,178,251,162,251,150,253,138,256,126,260,114,263,103,256,71,246,46,234,27,218,16,200,13,176,21,161,42,152,73,148,106,147,139,148,166,152,191,157,215,165,237,175,256,217,-65,216,-96,211,-116,200,-128,181,-134,152,-137,152,-151,355,-151,355,-137,327,-135,307,-129,296,-118,290,-100,288,-73,288,-6,352,11,406,46,446,95,472,158,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,32,159,58,96,99,46,152,11,217,-6,16383,16383,402,236,399,188,392,144,381,107,364,75,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,73,126,105,114,142,106,185,104,232,106,272,112,311,122,346,135,376,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,360,391,378,360,391,324,399,282,402,236,145,-151,204,-151,204,-3,246,10,281,36,307,70,323,113,329,162,321,216,300,260,268,293,227,315,178,322,125,314,82,293,49,
-259,28,214,20,159,26,110,43,68,70,34,104,10,145,-3,16383,16383,266,143,262,98,252,62,235,35,212,18,184,13,169,14,155,18,142,25,130,35,120,48,107,72,96,98,89,128,85,159,84,191,87,230,98,260,115,283,138,297,165,302,182,301,196,296,209,289,221,279,231,267,243,248,253,225,260,199,264,171,266,143,159,-101,181,-121,205,-135,229,-144,254,-150,277,-151,326,-146,369,-128,403,-100,427,-61,435,-12,431,21,419,50,400,74,374,93,342,108,272,124,200,134,135,150,89,184,71,248,83,308,114,359,160,398,217,424,280,433,318,427,339,413,352,396,364,382,384,377,400,379,411,385,419,393,423,403,424,414,418,439,400,456,374,466,343,472,308,473,229,461,151,425,84,370,37,298,20,214,30,148,58,103,99,74,150,59,205,51,250,46,297,38,339,23,369,0,380,-34,379,-51,374,-66,367,-80,358,-91,347,-101,334,-109,320,-115,305,-118,289,-120,273,-121,252,-119,230,-115,210,-107,191,-97,174,-83,295,343,276,308,249,281,218,262,188,249,165,241,120,225,81,203,51,175,31,139,24,95,30,55,46,26,70,7,99,-3,133,-6,147,-5,163,-4,179,-2,192,0,200,0,221,-2,238,-8,252,-18,260,-31,263,-47,260,-66,251,-82,238,-94,223,-101,206,-104,196,-102,187,-97,179,-91,172,-85,164,-83,153,-85,145,-89,139,-95,136,-103,134,-112,137,-127,144,-138,155,-145,169,-150,185,-151,211,-146,238,-131,262,-107,279,-77,285,-41,281,-4,269,22,248,42,219,53,180,57,168,56,153,53,137,50,122,47,111,46,92,49,77,58,66,71,59,87,57,105,58,118,62,131,69,143,79,153,92,163,106,168,138,176,172,180,221,189,259,209,285,240,300,284,305,343,382,363,379,463,9,463,9,450,36,447,53,440,64,429,68,412,70,386,70,86,68,55,63,35,52,23,35,16,8,13,8,0,205,0,205,13,177,16,159,22,148,33,142,51,141,78,141,229,314,229,314,258,141,258,141,421,143,428,148,433,155,436,165,437,257,437,300,435,328,429,346,416,358,395,365,363,305,273,305,315,56,315,56,-132,112,-132,112,63,270,63,270,91,112,91,112,273,474,380,466,389,93,255,198,396,218,425,232,448,241,467,245,483,246,497,244,514,236,531,222,545,203,554,177,558,157,556,139,550,120,540,101,526,80,
-508,89,497,104,507,116,514,128,518,140,520,152,521,162,519,170,513,175,505,177,496,178,487,177,479,175,470,171,459,168,451,165,445,9,168,18,159,391,293,287,152,266,123,252,100,244,81,239,65,238,51,241,34,249,17,262,3,282,-6,308,-9,327,-7,346,-1,364,8,384,22,404,41,395,51,381,41,368,34,356,30,345,28,333,27,322,29,314,35,310,43,307,52,306,62,307,69,313,89,317,98,320,104,319,261,133,261,261,463,191,463,45,202,230,202,102,0,172,0,28,355,50,373,73,389,97,402,121,412,145,420,145,225,176,225,176,427,182,428,189,429,195,429,202,430,208,430,253,425,298,410,339,387,376,356,407,318,335,284,279,224,241,149,218,71,210,0,281,0,285,67,299,140,324,209,364,264,421,292,436,260,448,226,457,190,463,152,465,112,456,49,432,-10,396,-63,350,-104,297,-127,297,-151,372,-128,438,-81,490,-17,524,60,537,145,521,259,477,351,413,418,334,459,248,473,195,470,145,459,97,439,52,410,8,370,-3,380,41,358,84,330,124,297,162,260,196,219,77,151,89,131,209,200,219,186,223,179,228,172,232,165,240,149,244,142,248,134,252,127,131,58,142,38,261,107,277,67,290,29,298,-8,303,-45,305,-82,304,-94,304,-107,302,-133,300,-146,323,-151,330,-123,335,-95,338,-68,340,-41,341,-15,338,30,332,74,321,116,305,157,286,196,253,241,207,287,149,331,80,369,4,401,360,315,288,315,155,146,154,146,156,159,162,193,163,210,164,224,161,256,151,283,135,303,115,317,89,322,74,320,61,315,49,306,41,294,38,277,40,270,44,263,49,258,56,254,64,252,76,254,84,258,93,267,99,269,114,266,125,257,133,244,138,227,140,208,139,190,135,150,131,132,127,119,30,0,102,0,238,169,239,169,235,155,232,140,230,123,228,107,227,91,230,64,238,38,252,15,272,0,299,-6,316,-5,330,0,342,7,350,20,352,37,351,45,347,52,342,57,334,60,326,62,314,60,307,56,302,52,298,48,292,46,279,48,268,56,259,70,254,90,252,119,252,137,254,155,257,171,260,185,264,198,298,-150,300,-144,301,-137,303,-131,304,-125,304,-121,283,-76,232,-56,167,-42,105,-11,62,55,63,56,77,34,96,16,120,3,149,-3,183,-6,232,2,273,26,303,61,322,105,329,
-154,322,210,303,257,273,292,232,314,181,322,117,309,71,276,41,229,25,176,20,124,21,97,22,69,25,41,31,14,40,-9,91,-71,154,-99,216,-111,264,-123,287,-150,16383,16383,266,152,264,115,256,77,242,45,219,21,186,13,147,23,119,52,99,93,87,141,84,191,88,232,99,263,117,285,140,298,168,302,197,294,224,272,245,239,260,198,266,152,481,232,471,310,440,377,392,428,329,462,252,473,176,462,113,430,65,379,34,313,23,234,34,152,65,85,113,34,177,1,252,-9,328,1,391,33,439,84,470,151,481,232,16383,16383,104,252,107,287,114,321,124,352,136,379,152,401,169,418,188,431,208,440,230,446,252,448,271,446,290,442,307,436,323,426,338,415,359,393,375,365,388,331,397,293,401,252,16383,16383,402,220,398,176,391,137,379,102,363,73,344,49,328,37,312,27,293,21,274,17,253,16,234,17,216,20,198,26,182,35,166,47,144,72,127,102,115,137,107,176,104,220,274,79,256,57,237,41,217,30,195,24,172,22,140,29,114,49,96,79,84,115,80,156,217,156,217,178,80,178,85,212,97,245,115,274,139,294,167,302,199,297,222,285,237,268,248,248,256,227,267,227,258,322,246,322,244,314,242,311,239,309,234,308,223,309,213,313,201,317,186,320,166,322,115,313,74,287,43,249,24,203,17,152,23,104,41,61,70,26,109,2,157,-6,190,-2,220,7,246,24,268,46,285,73,33,236,51,257,70,274,90,285,112,291,135,293,167,286,193,266,211,236,223,200,227,159,91,159,91,137,227,137,222,103,210,70,192,41,168,21,140,13,108,18,86,30,70,47,59,67,51,88,40,88,50,-6,61,-6,62,-2,63,1,65,4,68,6,73,7,84,6,94,2,106,-1,121,-5,141,-6,192,2,233,28,264,66,283,112,290,163,284,211,266,254,237,289,198,313,151,322,117,318,87,308,61,291,40,269,23,241,442,111,411,80,380,55,347,37,310,25,265,21,243,23,217,27,192,35,168,44,149,56,149,408,170,420,193,429,217,436,242,441,266,442,310,438,347,427,380,408,410,383,441,352,463,373,429,409,393,437,354,457,311,469,262,473,263,473,184,462,120,428,72,377,42,310,31,232,42,155,73,89,121,36,185,2,262,-9,310,-5,354,6,394,26,430,54,464,90,16383,16383,118,
-83,114,86,111,89,109,93,106,97,104,102,89,126,78,151,69,177,64,204,63,232,65,267,73,300,84,331,100,362,118,391,556,119,551,160,534,195,510,220,478,237,441,242,400,236,367,220,341,194,325,159,320,118,325,76,342,41,367,14,399,-3,435,-9,476,-3,509,14,535,41,551,77,556,119,16383,16383,508,105,505,71,497,43,484,23,466,10,445,5,433,7,423,10,413,15,404,23,396,32,386,51,378,71,372,93,369,117,368,142,371,172,379,195,392,212,409,223,430,227,443,225,454,222,464,216,473,209,481,200,490,185,498,168,503,148,507,127,508,105,16383,16383,452,473,420,473,103,-9,138,-9,16383,16383,234,310,219,290,205,276,191,266,175,261,158,259,130,264,107,279,90,301,79,330,75,365,78,396,88,421,104,441,124,453,148,457,158,456,166,454,171,449,176,442,180,432,184,420,187,412,191,405,196,400,202,396,209,395,217,396,223,400,229,405,232,411,234,418,229,435,217,450,200,462,177,471,151,473,136,472,121,468,106,463,92,455,78,445,62,429,50,411,41,389,35,366,34,340,38,301,52,268,74,243,102,227,136,221,149,222,162,225,174,229,186,235,198,244,207,252,215,261,223,273,231,287,241,305,273,256,239,257,212,259,190,262,171,267,155,274,141,284,129,297,121,311,116,326,115,343,119,376,132,405,155,427,187,442,229,447,271,441,307,424,336,396,356,359,367,314,384,314,377,473,363,473,360,465,355,459,350,454,343,451,336,450,328,451,318,453,306,456,295,460,286,463,256,469,242,472,228,473,213,473,150,467,103,450,70,423,50,389,44,351,45,334,49,319,55,306,63,293,73,282,86,270,102,261,118,253,136,248,153,245,153,244,115,238,79,225,48,205,27,175,20,134,23,105,32,78,47,55,66,35,90,18,111,8,134,0,158,-5,184,-8,211,-9,225,-9,242,-7,260,-4,281,0,302,6,329,18,353,32,374,50,388,69,393,91,392,101,388,109,383,114,376,117,367,118,353,115,343,108,334,96,325,80,313,61,303,49,290,38,273,29,253,23,229,21,185,26,149,39,122,60,106,90,100,127,102,147,107,165,114,180,125,193,138,204,158,214,180,221,206,225,237,227,273,228,438,487,420,471,400,460,380,453,361,450,341,449,323,451,304,455,286,462,268,473,250,
-487,215,459,177,426,143,389,118,349,109,308,120,251,147,202,180,161,207,126,219,95,218,83,215,73,210,65,204,58,198,52,188,56,167,68,141,83,118,97,103,106,30,3,47,-6,54,2,62,12,70,21,76,28,79,30,91,25,108,16,129,5,147,-5,161,-15,210,27,246,62,269,91,281,116,285,141,285,151,278,172,271,184,260,198,230,238,255,254,276,264,296,271,313,275,330,276,374,267,410,244,437,210,454,167,459,120,456,84,444,44,421,1,385,-41,333,-81,314,-63,296,-50,278,-42,260,-37,242,-36,205,-41,174,-55,149,-76,128,-102,112,-131,113,-131,127,-137,140,-124,155,-113,171,-105,189,-100,206,-98,228,-100,248,-105,266,-114,283,-126,299,-142,308,-142,335,-113,368,-86,405,-58,443,-29,479,2,499,25,516,49,530,77,538,110,541,151,534,205,513,254,479,294,432,325,373,346,349,333,324,319,295,303,260,283,216,257,202,275,191,294,183,314,178,334,177,354,178,369,181,383,187,396,195,408,205,418,225,403,244,393,261,387,279,384,298,383,337,388,372,402,402,423,429,449,452,477,454,0,454,463,338,463,338,247,165,247,165,463,49,463,49,0,165,0,165,216,338,216,338,0,16383,16383,423,30,368,30,368,433,423,433,16383,16383,134,30,80,30,80,433,134,433,373,82,355,62,340,48,328,40,319,36,311,35,305,37,303,40,302,43,302,54,303,61,309,85,345,211,348,222,352,242,353,251,353,260,351,282,343,299,331,312,314,319,291,322,265,317,236,302,206,274,173,231,138,172,221,477,216,478,200,472,183,466,162,461,138,454,106,448,106,437,118,436,129,435,138,433,144,428,146,421,146,414,145,410,145,406,144,401,33,0,91,0,109,57,123,101,137,136,152,164,169,191,192,223,213,248,234,268,252,280,266,284,277,283,285,279,289,272,292,264,293,253,293,245,291,235,290,226,288,217,286,210,259,109,249,73,245,56,242,42,241,32,243,18,248,7,256,0,266,-4,279,-6,295,-4,314,4,335,19,357,42,381,74,373,82,354,62,339,48,328,40,319,36,311,35,305,37,303,40,302,43,302,54,303,61,309,85,345,211,348,222,352,242,353,251,353,260,351,282,343,299,331,312,314,319,291,322,265,317,236,302,206,274,173,231,138,172,186,353,287,389,295,420,195,383,204,415,208,
-428,211,441,215,453,218,465,222,477,216,478,200,472,183,466,163,461,138,454,106,448,106,437,118,436,129,435,138,433,144,428,146,421,146,410,145,406,144,401,130,359,63,334,56,305,122,328,33,0,91,0,109,57,123,101,137,136,152,164,169,191,192,223,213,248,234,268,252,280,266,284,277,283,285,279,289,272,292,264,293,253,293,245,291,235,290,226,288,217,286,210,259,109,254,93,250,75,245,58,243,43,241,32,243,18,248,7,256,0,266,-4,279,-6,296,-3,314,4,335,19,358,42,383,75,481,472,477,464,469,453,457,443,442,434,423,431,380,437,345,451,311,467,270,481,216,487,165,479,123,458,91,428,71,390,64,348,69,314,84,286,108,265,140,251,180,246,191,247,201,248,211,251,222,255,234,260,228,276,220,272,211,270,201,267,192,266,183,266,162,268,143,277,127,291,115,311,111,337,116,367,130,389,149,405,171,414,193,416,235,411,270,397,303,380,339,367,382,361,424,368,454,386,475,412,489,440,498,467,16383,16383,492,292,481,304,470,315,455,324,437,329,412,331,413,331,385,327,359,315,338,297,323,273,318,243,325,203,341,170,360,139,376,106,383,69,379,48,369,30,354,16,333,6,307,3,286,5,268,12,253,23,241,39,231,61,221,88,208,115,191,138,166,153,131,159,101,153,75,136,54,114,39,91,31,72,48,68,55,80,63,89,74,97,85,102,97,104,105,102,114,98,122,91,129,81,136,69,143,54,151,40,160,27,171,15,185,4,201,-5,219,-13,241,-18,268,-21,302,-22,354,-16,400,2,436,30,460,66,469,106,461,144,442,178,420,209,402,236,394,261,396,276,402,287,412,295,423,300,434,302,442,301,451,299,459,295,469,289,480,280,440,0,440,463,409,463,409,109,408,109,166,432,144,463,49,463,49,0,80,0,80,353,81,353,346,0,16383,16383,409,30,360,30,80,405,80,433,127,433,409,58,677,215,672,249,659,279,639,304,612,321,579,327,545,321,518,304,498,279,485,248,481,213,485,179,498,149,518,125,545,109,579,103,612,109,639,125,660,149,672,180,677,215,16383,16383,622,213,620,178,615,152,606,133,593,122,578,118,563,122,551,133,542,151,538,178,536,213,538,249,543,276,551,296,563,307,577,311,593,307,606,296,615,276,620,249,622,212,16383,
-16383,673,0,673,61,484,61,484,0,16383,16383,389,149,189,463,63,463,63,450,74,449,83,449,99,445,105,443,113,439,120,431,129,421,139,408,150,391,150,203,149,157,146,109,138,66,123,36,100,24,90,30,82,44,74,60,63,74,44,80,34,78,23,74,14,67,7,56,5,41,8,20,18,5,34,-3,53,-8,77,-9,127,3,158,38,174,85,180,136,180,345,407,-7,420,-7,420,260,421,307,424,355,432,397,446,427,470,439,480,433,487,420,496,403,507,389,526,384,536,385,547,389,556,397,562,407,565,422,561,443,552,458,536,467,517,472,494,473,443,460,412,426,396,379,390,328,389,280,172,364,172,353,186,352,196,348,201,343,204,333,205,319,205,156,204,140,202,129,197,122,187,119,172,117,172,106,285,106,285,117,269,118,259,122,253,128,250,138,249,152,249,220,254,220,258,219,293,219,311,221,326,226,340,233,353,243,361,251,367,261,371,271,373,282,374,293,374,305,371,315,368,324,363,333,355,340,344,348,330,354,313,360,294,363,273,364,16383,16383,249,335,250,340,251,344,253,347,257,348,263,348,289,347,308,341,319,330,326,314,327,292,325,273,318,257,307,245,290,237,267,234,263,234,260,235,254,235,249,236,16383,16383,505,230,493,307,460,374,409,427,344,461,270,473,192,461,125,427,73,375,39,309,27,232,39,155,72,88,124,36,190,2,266,-9,343,2,409,36,460,88,494,154,505,230,16383,16383,467,231,457,165,428,107,384,61,329,31,266,20,203,30,148,61,104,107,75,165,65,232,75,298,104,356,148,402,203,433,265,444,329,433,384,403,428,357,457,299,467,231,307,323,303,345,293,361,278,373,259,380,237,383,238,383,173,372,118,343,75,300,47,249,37,195,39,168,48,142,64,118,86,97,117,80,109,67,102,53,95,40,90,28,84,15,78,-1,73,-19,68,-38,65,-58,64,-78,66,-101,73,-121,86,-136,106,-147,133,-151,174,-143,210,-123,238,-91,257,-53,263,-8,259,19,249,41,232,57,212,68,188,77,231,136,283,195,338,246,393,282,441,295,464,291,480,280,489,264,494,246,495,228,489,174,473,117,448,65,415,27,376,13,363,13,353,16,345,21,340,29,338,38,341,46,353,60,359,69,362,81,360,92,355,101,349,107,340,111,331,112,317,109,306,102,297,91,292,
-78,291,63,294,44,303,25,318,8,341,-2,371,-6,394,-4,416,1,437,10,457,22,477,38,504,68,527,103,544,141,555,179,559,216,554,252,541,280,519,299,490,311,455,315,429,314,402,311,373,305,343,295,312,280,313,280,291,266,271,252,250,235,230,218,193,181,176,162,160,143,145,123,131,102,121,110,112,121,105,136,101,157,99,182,108,243,132,291,166,325,205,346,244,353,257,352,271,349,283,343,292,335,297,323,16383,16383,214,-7,211,-37,201,-69,186,-99,167,-121,145,-129,134,-128,127,-123,122,-115,120,-106,120,-94,125,-59,138,-21,153,14,167,41,174,53,188,45,199,34,207,20,212,6,214,-7,49,463,49,0,165,0,165,177,273,177,326,183,372,199,408,228,431,268,440,321,431,374,407,414,371,442,325,458,273,463,16383,16383,344,423,367,411,385,393,398,371,406,346,409,320,406,295,398,270,384,248,366,229,344,217,16383,16383,313,213,305,211,295,209,285,208,165,208,165,433,279,433,297,431,306,429,313,427,16383,16383,134,30,80,30,80,433,134,433,492,-8,481,-9,471,-11,438,-14,425,-12,412,-8,401,-1,390,7,380,17,421,46,455,83,480,127,495,177,501,232,490,310,460,377,412,428,348,462,270,473,189,462,123,430,73,379,42,312,31,232,43,155,74,89,124,36,189,2,266,-9,283,-9,300,-7,316,-4,331,-1,346,3,359,-11,375,-24,392,-34,413,-42,438,-44,450,-44,461,-43,473,-42,484,-40,496,-38,16383,16383,414,384,435,357,451,329,461,298,468,265,470,232,467,200,461,168,450,137,435,109,414,84,16383,16383,383,55,363,43,357,41,343,54,328,66,311,76,291,83,269,85,247,83,228,77,210,67,194,55,180,39,166,45,160,49,155,52,149,55,149,409,168,420,192,430,218,437,244,441,266,442,290,441,315,438,340,431,363,422,383,409,16383,16383,118,84,98,109,83,137,71,168,65,200,63,232,64,265,71,298,81,329,97,357,118,384,16383,16383,322,29,310,26,288,22,277,21,257,21,247,22,225,26,213,29,222,37,232,44,242,50,254,53,266,55,280,53,292,50,303,44,313,37,322,29,569,80,554,65,545,57,537,51,531,48,505,66,494,110,486,166,469,223,432,266,432,268,464,284,488,305,505,330,515,358,519,388,513,420,497,449,469,472,431,487,381,493,288,425,270,444,249,
-461,224,475,196,484,165,487,124,482,89,469,61,446,42,416,35,378,43,345,63,321,87,299,107,276,115,245,111,228,102,214,89,202,75,194,62,188,63,188,69,173,104,185,136,203,162,226,179,252,185,280,177,318,157,343,133,362,113,385,105,418,107,432,113,445,122,455,135,462,152,465,186,451,208,416,220,370,226,323,227,284,226,231,224,172,219,118,209,78,191,63,180,66,140,86,120,97,107,105,41,3,57,-5,64,4,71,12,78,19,84,24,88,28,98,24,116,15,136,4,155,-6,170,-15,209,27,242,74,271,123,293,175,308,226,360,238,376,227,387,209,393,185,395,159,396,131,398,98,405,62,418,29,438,2,466,-15,475,-15,497,-1,520,15,544,33,565,51,580,66,16383,16383,311,250,312,265,313,281,313,339,311,355,308,371,304,387,299,401,315,415,329,426,342,433,356,438,372,439,396,435,414,423,427,407,434,389,437,372,434,344,424,317,405,291,376,269,334,255,498,0,348,199,380,214,406,234,424,260,436,291,440,327,431,379,407,418,370,444,325,459,273,463,49,463,49,0,165,0,165,190,217,190,353,0,16383,16383,344,423,367,410,385,394,398,375,406,352,409,325,406,299,397,276,384,255,366,237,344,225,16383,16383,313,224,297,222,290,221,282,221,274,220,165,220,165,433,278,433,299,430,306,428,313,427,16383,16383,438,30,370,30,254,190,261,190,264,189,289,189,316,192,16383,16383,134,30,80,30,80,433,134,433,534,0,534,16,510,19,490,26,472,36,456,50,439,66,534,159,515,178,420,86,376,140,355,167,335,195,313,222,349,233,384,250,413,274,433,304,441,342,428,393,395,429,350,452,298,464,248,467,48,467,48,450,79,448,103,442,119,429,128,409,131,377,131,91,128,58,119,37,103,25,79,19,48,17,48,0,276,0,276,17,245,19,222,25,205,37,196,58,193,91,193,213,198,213,203,212,232,212,236,213,241,213,377,44,280,-50,298,-69,395,23,413,0,16383,16383,193,397,196,417,205,431,218,439,235,443,255,445,297,441,329,430,352,410,365,379,370,336,362,290,341,260,310,243,272,235,228,233,207,233,200,234,193,234,670,463,598,463,486,247,378,463,293,463,293,449,305,447,317,443,327,435,335,426,341,414,341,240,340,223,337,211,331,202,320,198,305,195,305,
-180,397,180,397,195,382,198,371,202,365,211,361,223,360,240,360,396,466,179,473,179,581,398,581,221,580,212,579,207,578,203,576,201,573,200,570,198,565,197,558,196,547,195,547,180,666,180,666,195,648,197,638,200,633,206,631,216,630,233,630,411,632,425,636,436,643,443,654,447,670,449,16383,16383,263,402,263,463,21,463,21,402,35,402,41,420,48,433,57,442,69,448,83,449,117,449,117,217,115,206,110,200,99,197,82,195,82,180,202,180,202,195,184,197,174,200,169,206,167,217,166,234,166,449,202,449,215,448,226,442,235,433,242,420,248,402,474,433,474,463,70,463,70,433,328,433,35,30,35,0,468,0,468,30,177,30,16383,16383,432,433,140,30,72,30,366,433,153,185,264,305,264,315,127,315,127,316,264,453,264,463,32,463,30,380,43,380,47,407,54,424,65,435,81,441,104,442,186,442,186,441,47,305,47,294,185,294,185,293,73,173,73,163,111,163,150,157,178,140,196,113,206,76,209,31,204,-19,190,-62,171,-96,147,-118,123,-126,117,-126,109,-124,102,-121,94,-116,87,-108,79,-100,73,-93,66,-89,60,-86,53,-86,44,-87,36,-91,30,-97,26,-104,24,-113,28,-126,37,-136,52,-144,70,-150,91,-151,153,-141,203,-114,241,-71,265,-16,273,47,269,87,255,121,232,149,198,171,153,184,501,0,501,111,488,111,486,92,483,77,477,67,467,61,453,59,333,59,334,84,386,104,428,132,458,169,477,215,484,271,474,332,445,387,399,432,337,462,260,473,183,462,120,431,75,385,46,330,37,271,43,215,61,169,90,133,132,105,184,84,185,59,81,59,65,60,52,65,42,75,36,90,34,112,20,112,20,0,221,0,215,105,181,122,154,152,134,189,121,231,117,273,123,323,140,370,169,410,209,437,260,448,311,439,351,415,380,377,398,329,404,273,399,228,386,185,366,149,339,121,305,105,300,0,501,353,501,463,300,463,305,359,339,343,366,315,386,278,399,236,404,191,398,135,380,86,351,49,311,24,260,16,209,26,169,53,140,93,123,141,117,191,121,233,134,274,154,312,181,341,215,359,221,463,20,463,20,352,34,352,36,373,42,388,52,398,65,403,81,405,185,405,184,379,132,359,90,331,61,294,43,248,37,192,46,133,75,78,120,32,183,1,260,-9,337,1,399,31,445,
-76,474,131,484,192,477,248,458,294,428,331,386,359,334,379,333,405,453,405,467,403,477,396,483,386,486,372,488,353,339,188,380,206,413,231,436,262,451,298,455,336,446,389,419,432,378,462,328,480,272,487,213,480,165,459,127,427,98,384,79,333,97,327,118,374,144,409,175,434,211,448,251,453,286,449,320,437,347,414,366,380,373,333,368,292,353,258,331,233,303,217,271,212,252,214,233,220,214,230,197,246,181,266,163,253,171,238,183,223,198,210,218,198,243,191,243,190,216,181,194,169,177,154,162,137,149,118,166,109,184,130,201,146,221,158,245,165,276,167,312,161,342,141,366,111,381,70,386,20,384,-19,376,-56,361,-87,336,-108,298,-115,270,-112,249,-101,233,-85,222,-64,212,-40,213,-40,204,-19,193,1,178,18,157,29,127,34,96,27,72,11,54,-9,42,-32,35,-51,51,-56,58,-44,67,-35,77,-27,89,-22,100,-20,113,-24,121,-35,126,-51,132,-70,145,-90,168,-112,194,-127,220,-136,249,-141,280,-142,346,-133,400,-108,440,-70,465,-22,473,30,467,79,449,119,421,151,384,173,339,186,193,0,193,239,189,270,177,294,159,311,133,321,102,324,76,320,55,308,39,291,28,269,23,244,44,244,46,256,49,269,55,280,64,288,77,291,90,288,98,279,103,267,106,253,106,0,98,130,77,81,61,48,47,28,31,18,10,13,10,0,150,0,150,13,132,14,118,17,108,23,103,31,101,42,101,48,103,60,105,66,107,71,139,152,323,152,352,85,360,63,363,53,364,44,365,37,363,29,361,25,358,22,355,20,350,17,345,15,338,14,329,13,316,13,316,0,495,0,495,13,476,17,462,24,450,36,440,54,429,77,258,470,278,476,295,486,309,501,318,519,321,540,318,561,308,581,293,596,274,606,252,609,230,606,211,596,196,581,186,562,182,541,185,520,193,501,206,486,223,476,242,471,16383,16383,298,541,295,526,289,513,279,503,266,497,251,495,236,497,224,503,214,513,208,526,205,541,208,555,214,567,224,577,237,584,251,586,266,584,278,577,289,567,295,555,298,541,16383,16383,313,180,152,180,232,373,461,474,450,465,440,457,430,452,420,449,410,448,399,450,387,455,375,462,361,473,346,487,314,460,280,431,248,399,225,365,216,331,224,291,244,257,268,225,288,192,297,152,294,137,288,
-126,278,117,266,113,252,111,247,111,242,112,230,116,224,119,216,104,225,100,235,97,245,95,254,93,263,93,296,98,326,112,351,133,367,159,373,188,363,230,339,268,309,302,285,335,274,367,275,377,278,386,284,397,291,407,302,419,314,406,327,397,342,391,358,388,377,387,402,392,425,407,444,426,460,446,473,463,16383,16383,437,121,409,94,381,73,351,58,320,48,287,45,221,59,172,96,139,150,121,213,115,280,119,327,131,373,152,413,182,441,220,452,231,451,240,450,249,448,258,445,266,441,277,454,268,462,258,469,245,474,229,478,210,480,142,464,92,423,58,367,39,306,33,249,42,174,68,102,113,41,177,0,259,-16,312,-9,357,10,396,39,427,74,451,113,566,231,547,318,506,385,446,434,374,464,297,473,207,461,132,426,74,373,37,307,24,231,38,154,76,87,134,35,209,0,297,-11,353,-7,402,4,444,25,483,53,520,90,470,90,441,61,410,38,375,22,338,13,297,10,256,13,220,22,187,36,159,55,136,77,130,84,127,89,125,93,124,99,124,231,16383,16383,466,271,466,264,464,260,461,257,456,255,133,255,129,256,126,259,125,263,124,269,124,361,125,368,127,374,131,378,136,384,160,405,189,423,223,437,259,447,297,450,334,447,370,439,403,426,431,409,452,389,457,383,461,377,464,372,466,365,466,355,323,0,323,463,263,463,263,245,55,245,55,193,263,193,263,52,9,52,16,0,345,185,379,327,391,313,403,301,407,295,411,285,412,281,413,276,413,270,430,270,434,278,438,288,441,299,443,309,444,319,443,332,439,346,433,361,422,377,407,394,372,427,355,444,349,452,345,459,344,467,344,471,345,473,345,474,328,474,323,466,319,456,316,447,314,437,313,427,315,410,320,394,328,378,340,362,356,347,320,205,111,403,98,415,86,427,76,439,69,450,66,462,67,464,67,469,68,472,70,474,52,474,46,466,40,455,35,444,32,431,30,417,32,403,36,390,41,377,49,365,58,355,116,298,94,282,73,262,57,239,46,213,42,181,49,138,67,109,87,90,104,72,112,52,106,38,93,28,75,22,57,18,42,17,42,0,95,0,128,3,154,11,173,23,184,40,188,59,186,75,180,88,171,100,160,111,148,124,135,140,126,155,119,170,115,186,113,204,114,219,117,235,121,
-250,127,265,134,280,347,84,372,59,388,42,402,25,411,8,412,5,412,2,413,-1,413,-8,430,-8,436,6,440,19,442,32,443,44,444,55,442,70,437,84,430,97,421,109,411,120,388,84,380,79,370,75,358,73,348,71,340,71,350,112,361,157,370,203,376,247,379,288,374,342,358,383,332,411,295,427,248,432,225,431,203,427,161,419,138,418,124,420,112,426,103,435,97,446,95,460,95,468,97,474,80,474,70,465,63,454,58,441,54,427,53,410,56,392,67,374,84,360,111,350,146,347,168,348,188,350,207,352,225,355,243,355,272,352,297,338,315,310,327,267,331,203,330,176,328,146,325,117,321,91,316,71,152,71,126,69,102,62,79,48,58,27,40,-3,54,-12,66,-6,79,-2,94,0,321,0,347,3,368,13,385,29,396,50,401,76,117,474,108,466,101,456,95,445,92,431,91,412,91,413,94,394,104,376,123,361,149,350,184,346,197,342,208,332,216,317,222,297,223,276,223,241,221,222,219,201,216,177,201,142,183,112,163,90,141,76,118,70,97,67,78,58,59,43,43,23,28,-3,42,-12,54,-6,67,-2,81,0,109,0,122,1,134,2,145,6,156,11,165,19,180,37,193,58,204,81,213,105,220,128,222,128,235,86,252,57,270,35,284,15,289,-8,306,-8,312,0,317,11,321,23,323,37,324,55,316,85,297,114,275,143,256,174,248,205,250,235,254,264,259,293,264,321,266,349,264,372,258,391,246,407,227,417,201,420,174,422,154,428,141,437,134,448,132,461,132,466,133,469,133,471,134,474,63,474,54,465,46,454,41,441,38,427,37,410,38,398,41,387,47,377,55,368,66,360,76,355,88,351,102,349,117,347,134,347,159,348,185,350,210,352,234,355,268,355,279,354,289,353,297,351,305,348,290,328,273,302,257,272,245,238,241,198,242,176,244,149,250,87,252,59,251,48,249,36,247,23,243,8,239,-4,254,-12,278,0,297,16,313,37,322,60,326,84,323,120,318,152,311,184,305,219,302,263,304,281,308,299,314,316,322,330,330,340,336,346,344,360,346,367,347,375,344,392,335,408,318,420,293,429,259,432,233,431,175,423,147,419,121,418,107,420,95,426,86,435,79,446,77,460,77,463,78,465,78,468,80,474,452,64,422,76,410,59,399,44,387,33,371,
-25,348,23,344,32,341,44,340,56,339,69,339,284,427,284,427,315,17,315,17,284,83,284,83,0,186,0,186,284,235,284,235,95,239,61,251,32,271,10,298,-3,332,-8,359,-6,383,-2,404,6,422,21,439,44,16383,16383,310,26,292,34,279,48,271,65,267,84,266,104,266,284,308,284,308,49,309,38,311,27,16383,16383,155,30,113,30,113,284,155,284,342,321,340,317,335,312,312,281,268,217,247,184,227,152,206,185,183,218,158,250,133,281,105,311,104,313,101,315,99,318,95,322,0,277,36,232,74,189,110,146,144,100,172,48,160,27,150,4,142,-19,137,-44,135,-68,139,-93,148,-115,164,-134,185,-147,209,-151,241,-145,265,-128,282,-104,292,-74,295,-43,293,-10,286,23,275,56,261,88,246,118,266,153,287,187,309,221,332,253,355,286,368,304,16383,16383,239,-114,241,-102,241,-84,230,-11,200,60,158,128,110,192,62,249,63,249,59,253,57,256,54,259,52,262,49,266,85,286,87,284,88,282,93,277,139,225,185,163,225,94,254,24,265,-43,264,-59,262,-74,257,-88,250,-101,241,-115,16383,16383,191,8,198,-6,203,-25,207,-45,210,-65,211,-82,211,-90,209,-106,208,-113,205,-121,191,-117,180,-107,172,-93,167,-78,166,-63,167,-47,170,-33,175,-18,182,-5,190,8,397,433,397,463,49,463,49,0,165,0,165,433,16383,16383,134,30,80,30,80,433,134,433,454,0,454,463,49,463,49,0,165,0,165,433,338,433,338,0,16383,16383,423,30,368,30,368,433,423,433,16383,16383,134,30,80,30,80,433,134,433,617,-180,617,-140,232,-140,431,177,236,494,537,494,537,534,43,534,43,494,241,177,43,-140,43,-180,16383,16383,385,177,185,-140,91,-140,286,177,91,494,191,494,48,213,184,213,169,266,109,266,109,377,112,389,124,401,145,411,177,418,221,420,286,409,338,380,375,337,398,285,405,228,398,173,376,123,340,82,290,54,226,44,189,47,154,56,122,74,93,101,70,140,56,140,56,68,84,37,116,15,151,0,189,-7,226,-9,305,2,371,35,423,87,456,153,468,230,457,310,425,377,374,428,307,462,224,473,170,471,129,463,97,451,71,437,48,422,340,0,340,463,22,463,9,412,279,412,279,0,340,0,340,463,279,463,279,52,9,52,22,0,427,0,252,262,252,463,190,463,190,262,15,0,81,0,220,
-210,360,0,49,463,49,0,244,0,320,11,384,43,432,92,463,156,474,232,464,310,433,374,385,422,321,453,244,463,16383,16383,387,379,408,355,424,329,435,301,441,271,443,239,441,209,435,175,424,141,408,111,387,88,16383,16383,356,70,338,56,314,45,288,37,262,32,239,30,165,30,165,433,240,433,263,431,287,427,313,420,336,411,356,400,16383,16383,134,30,80,30,80,433,134,433,363,0,363,478,259,478,259,280,243,298,225,310,206,317,185,321,165,322,117,313,79,288,53,251,37,207,31,159,37,112,53,67,79,29,116,3,164,-6,186,-5,206,0,226,6,243,18,259,34,259,0,16383,16383,333,30,291,30,291,448,333,448,16383,16383,259,109,255,83,243,60,225,41,203,28,177,23,169,24,160,25,151,27,142,30,135,34,135,280,142,285,150,289,157,290,165,291,173,291,199,287,222,275,242,257,255,234,259,209,16383,16383,105,49,88,67,76,88,68,111,64,136,63,159,64,183,68,207,75,231,87,252,105,268,334,139,334,191,327,234,305,270,274,298,235,316,192,322,138,314,93,292,60,258,39,213,31,159,38,104,59,58,92,23,137,1,192,-6,225,-3,256,4,283,18,307,39,327,66,302,83,284,60,265,43,243,32,218,25,189,23,179,24,167,25,145,31,135,36,135,139,16383,16383,304,170,262,170,262,270,276,259,287,245,296,228,302,211,304,193,16383,16383,231,170,135,170,135,277,145,281,156,285,167,288,179,291,198,291,207,289,215,286,224,283,231,278,16383,16383,105,50,88,68,76,88,68,111,64,135,63,159,64,182,69,206,77,228,89,248,105,266,142,376,142,478,38,478,38,376,16383,16383,111,407,70,407,70,448,111,448,16383,16383,142,0,142,315,38,315,38,0,16383,16383,111,30,70,30,70,284,111,284,175,376,175,478,75,478,75,376,16383,16383,145,407,105,407,105,448,145,448,16383,16383,175,315,75,315,75,-113,68,-116,62,-118,55,-119,32,-119,24,-118,15,-116,7,-113,0,-110,-9,-140,1,-144,13,-147,24,-149,48,-151,90,-145,125,-129,152,-104,169,-70,175,-28,16383,16383,145,-40,143,-56,138,-71,130,-85,119,-97,105,-106,105,284,145,284,204,387,204,484,158,484,158,387,31,387,31,214,77,214,77,340,158,340,158,0,391,0,391,46,204,46,204,138,276,138,324,143,364,157,395,181,414,
-216,421,263,414,307,395,341,364,366,323,382,274,387,16383,16383,204,185,204,340,274,340,306,337,334,329,356,315,370,293,375,262,375,263,370,232,355,210,333,196,306,188,273,185,30,387,43,401,55,411,66,418,79,422,95,423,119,421,141,413,162,400,181,382,201,359,180,330,162,303,130,251,112,222,113,222,102,207,92,195,80,187,65,182,47,180,47,166,198,166,198,180,180,183,167,188,158,194,154,202,152,213,155,233,162,254,175,279,193,307,217,340,239,314,258,288,276,260,292,230,309,195,267,174,236,153,215,131,204,106,201,77,205,47,219,23,239,5,266,-5,297,-8,331,-3,360,10,383,32,398,61,403,96,402,114,400,132,396,152,389,174,379,200,405,216,444,242,474,271,497,302,510,335,515,368,510,406,494,435,470,457,437,469,395,473,363,471,333,464,304,452,275,434,245,409,219,433,195,452,172,464,149,471,125,473,98,470,73,460,52,444,34,422,20,394,16383,16383,451,342,448,315,439,291,423,269,400,247,368,224,346,267,326,303,306,335,285,363,262,391,286,409,307,421,327,430,346,434,364,436,392,432,416,420,435,401,447,375,451,342,16383,16383,348,71,345,52,338,36,326,24,311,16,293,13,275,16,260,25,248,38,241,55,238,75,241,98,250,119,265,138,288,156,320,173,331,149,340,129,345,110,347,91,348,71,447,169,464,179,476,190,483,202,487,214,488,226,485,245,474,261,458,273,437,282,413,284,389,282,369,274,350,262,334,243,319,218,336,205,347,221,358,232,370,240,382,244,396,245,409,244,420,240,428,233,433,223,435,212,433,198,426,185,413,174,395,163,369,153,369,133,377,134,383,135,388,135,410,133,427,125,440,114,448,97,451,77,449,61,442,48,432,37,419,31,403,28,396,28,390,30,383,32,376,36,367,42,360,47,353,51,348,53,344,55,331,55,324,52,318,48,315,42,313,34,316,21,325,10,338,2,356,-3,377,-4,420,0,457,12,484,33,502,59,508,91,505,111,498,129,486,146,469,159,447,167,16383,16383,416,473,384,473,66,-9,101,-9,16383,16383,152,189,152,205,136,207,124,210,116,215,112,223,111,233,111,470,102,473,27,434,27,418,36,422,43,425,49,427,58,427,60,425,61,421,62,415,63,407,63,229,62,220,58,214,51,210,41,207,25,
-205,25,189,451,169,468,179,480,190,488,202,492,214,493,226,489,245,479,261,462,273,442,282,417,284,393,282,373,274,354,262,338,243,323,218,340,205,351,221,362,232,374,240,386,244,401,245,414,244,425,240,433,233,438,223,440,212,438,198,430,185,418,174,399,163,373,153,373,133,382,134,387,135,393,135,414,133,431,125,444,114,452,97,455,77,453,61,446,48,436,37,423,31,407,28,400,28,394,30,387,32,380,36,372,42,364,47,358,51,352,53,348,55,335,55,328,52,322,48,319,42,317,34,320,21,329,10,342,2,360,-3,380,-4,424,0,460,12,488,33,506,59,512,91,509,111,502,129,490,146,473,159,451,167,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,216,248,204,253,197,245,190,240,183,237,174,235,163,234,84,234,143,291,167,316,184,338,195,358,201,377,203,397,199,422,188,443,170,459,145,470,115,473,83,470,58,461,38,444,23,421,10,390,27,380,38,398,50,412,64,423,79,429,95,431,112,429,126,423,137,413,143,398,145,379,142,362,134,344,121,324,104,303,84,281,13,205,13,189,189,189,501,283,488,291,484,287,480,284,477,281,472,280,375,280,316,172,316,161,317,159,320,158,323,158,346,157,367,155,386,151,402,145,415,138,427,129,436,120,442,109,446,98,448,85,445,65,437,50,426,38,411,31,394,28,388,28,383,30,377,32,370,35,363,40,354,46,347,50,341,53,335,54,328,54,320,53,314,50,310,45,307,39,306,31,308,21,315,11,326,2,343,-2,366,-4,410,0,445,14,471,36,487,66,493,102,492,123,487,140,480,154,471,166,459,178,447,187,433,194,416,201,392,206,362,212,373,230,468,230,471,231,474,233,476,235,477,238,16383,16383,416,473,384,473,67,-9,102,-9,16383,16383,152,189,152,205,136,207,125,210,117,215,113,223,112,233,112,470,102,473,27,434,27,418,37,422,44,425,49,427,59,427,61,425,62,421,63,415,63,229,62,220,59,214,52,210,41,207,26,205,26,189,504,283,491,291,484,284,480,281,475,280,379,280,320,172,320,161,321,159,323,158,327,158,350,157,371,155,389,151,405,145,419,138,430,129,439,119,446,109,449,98,451,85,448,65,441,50,429,38,415,31,398,28,392,28,380,32,374,35,367,40,358,46,344,
-53,338,54,332,54,324,53,318,50,313,45,310,39,309,31,311,21,318,11,329,2,346,-2,370,-4,413,0,449,14,474,36,491,66,496,102,495,123,491,140,484,154,474,166,462,178,450,187,437,194,419,201,396,206,366,212,376,230,472,230,475,231,478,233,480,235,481,238,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,216,248,204,253,197,245,190,240,183,237,174,235,163,234,84,234,143,291,167,316,184,338,195,358,201,377,203,397,199,422,188,443,170,459,145,470,115,473,83,470,58,461,38,444,23,421,10,390,27,380,37,398,48,412,61,423,74,429,89,431,105,428,119,421,129,409,136,395,138,378,136,364,129,346,119,326,103,304,84,281,13,205,13,189,189,189,504,283,491,291,484,284,480,281,475,280,379,280,320,172,320,161,321,159,323,158,327,158,350,157,371,155,389,151,405,145,419,138,430,129,439,119,446,109,449,98,451,85,448,65,441,50,429,38,415,31,398,28,392,28,380,32,374,35,367,40,358,46,344,53,338,54,332,54,324,53,318,50,313,45,310,39,309,31,311,21,318,11,329,2,346,-2,370,-4,413,0,449,14,474,36,491,66,496,102,495,123,491,140,484,154,474,166,462,178,450,187,437,194,419,201,396,206,366,212,376,230,472,230,475,231,478,233,480,235,481,238,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,143,358,160,368,172,379,180,391,184,403,185,415,181,434,171,450,154,462,133,470,109,473,85,471,65,464,47,451,30,432,15,407,32,394,43,410,54,421,66,429,78,433,92,434,106,433,117,429,125,422,130,412,131,401,129,387,122,374,109,363,91,352,65,342,65,322,73,323,79,324,84,324,106,322,123,314,136,303,144,287,147,266,145,250,138,237,128,226,115,220,99,217,92,218,86,219,79,221,72,225,64,231,56,236,50,240,40,244,35,245,27,244,20,241,14,237,11,231,9,223,12,210,21,199,35,191,52,185,73,184,116,188,153,201,180,222,198,248,204,280,202,300,195,318,183,335,166,348,143,356,504,283,491,291,484,284,480,281,475,280,379,280,320,172,320,161,321,159,323,158,327,158,350,157,371,155,389,151,405,145,419,138,430,129,439,119,446,109,449,98,451,85,448,65,441,50,429,38,415,31,398,28,392,28,380,
-32,374,35,367,40,358,46,344,53,338,54,332,54,324,53,318,50,313,45,310,39,309,31,311,21,318,11,329,2,346,-2,370,-4,413,0,449,14,474,36,491,66,496,102,495,123,491,140,484,154,474,166,462,178,450,187,437,194,419,201,396,206,366,212,376,230,472,230,475,231,478,233,480,235,481,238,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,223,252,223,293,185,293,185,473,152,473,10,287,10,252,136,252,136,190,185,190,185,252,16383,16383,136,293,41,293,136,418,491,291,431,283,376,260,333,223,304,173,293,112,293,113,297,75,310,41,332,14,361,-3,399,-9,432,-4,460,8,482,30,496,58,502,91,498,123,486,150,467,170,441,183,409,187,409,188,398,187,386,184,376,181,366,177,357,173,369,209,393,236,424,255,459,267,494,274,16383,16383,446,77,444,59,439,44,430,33,417,25,402,22,383,27,369,42,359,62,353,87,351,114,353,129,359,142,368,152,380,159,393,161,412,156,427,142,437,122,444,99,446,77,16383,16383,416,473,384,473,67,-9,102,-9,16383,16383,152,189,152,205,136,207,125,210,117,215,113,223,112,233,112,470,102,473,27,434,27,418,37,422,44,425,49,427,59,427,61,425,62,421,63,415,63,229,62,220,59,214,52,210,41,207,26,205,26,189,495,291,434,282,380,259,336,221,307,172,297,111,301,73,314,40,335,14,365,-3,402,-9,435,-4,464,8,486,29,500,57,505,90,501,122,490,149,471,169,445,182,413,187,402,186,390,183,379,180,369,175,360,171,373,208,396,235,427,254,462,266,497,273,16383,16383,449,76,447,59,442,44,433,32,421,24,406,21,387,26,372,39,362,59,356,83,354,110,356,125,362,139,371,150,383,157,396,160,415,155,430,141,441,121,447,99,449,76,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,215,465,202,473,195,466,191,463,186,462,90,462,30,353,30,348,31,345,31,343,32,341,34,340,37,340,61,339,82,337,100,333,116,327,130,320,141,311,150,301,157,291,160,280,162,267,159,247,152,232,140,220,126,213,109,210,103,210,91,214,85,217,77,222,68,228,61,232,55,235,49,236,43,236,35,235,29,232,24,227,21,221,20,213,22,203,29,193,40,184,57,179,80,177,124,181,159,196,185,218,202,248,207,284,206,
-305,201,322,195,336,185,348,173,360,161,369,147,376,130,383,107,388,77,394,87,412,182,412,186,413,188,415,191,417,192,420,505,69,503,88,496,105,484,121,464,138,437,155,438,155,459,167,475,179,486,192,493,207,495,225,491,244,480,260,462,273,440,281,413,284,383,281,357,272,337,258,324,238,320,215,321,199,326,185,335,172,350,157,373,140,349,123,333,107,323,92,318,76,316,59,321,36,333,18,353,5,378,-2,409,-4,441,-1,468,7,488,23,501,43,505,69,16383,16383,451,211,449,200,444,191,436,182,425,175,412,167,413,167,394,177,380,186,372,195,367,205,366,216,367,227,372,236,381,242,392,246,405,247,419,245,431,241,441,233,448,223,451,211,16383,16383,419,113,432,104,443,94,451,84,456,74,458,64,456,53,450,44,441,37,429,33,415,32,399,34,385,39,375,47,368,59,366,75,367,86,370,97,376,107,385,117,397,127,16383,16383,416,473,384,473,67,-9,102,-9,16383,16383,152,189,152,205,136,207,125,210,117,215,113,223,112,233,112,470,102,473,27,434,27,418,37,422,44,425,49,427,59,427,61,425,62,421,63,415,63,229,62,220,59,214,52,210,41,207,26,205,26,189,509,69,507,88,500,105,487,121,468,138,441,155,462,167,479,179,490,192,496,207,498,225,494,244,483,260,466,273,443,281,416,284,386,281,360,272,340,258,328,238,323,215,325,199,329,185,339,172,354,157,376,140,353,123,336,107,326,92,321,76,320,59,324,36,337,18,356,5,382,-2,413,-4,445,-1,471,7,491,23,504,43,509,69,16383,16383,455,211,453,200,448,191,440,182,429,175,416,167,397,177,384,186,375,195,370,205,369,216,371,227,376,236,384,242,395,246,409,247,422,245,435,241,445,233,452,223,455,211,16383,16383,422,113,436,104,446,94,454,84,459,74,461,64,459,53,453,44,444,37,432,33,419,32,402,34,388,39,378,47,371,59,369,75,370,86,373,97,379,107,388,117,401,127,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,143,358,160,368,172,379,180,391,184,403,185,415,181,434,171,450,154,462,133,470,109,473,85,471,65,464,47,451,30,432,15,407,32,394,43,410,54,421,66,429,78,433,92,434,106,433,117,429,125,422,130,412,131,401,129,387,122,374,109,363,91,352,65,
-342,65,322,73,323,79,324,84,324,106,322,123,314,136,303,144,287,147,266,145,250,138,237,128,226,115,220,99,217,92,218,86,219,79,221,72,225,64,231,56,236,50,240,40,244,35,245,27,244,20,241,14,237,11,231,9,223,12,210,21,199,35,191,52,185,73,184,116,188,153,201,180,222,198,248,204,280,202,300,195,318,183,335,166,348,143,356,509,69,507,88,500,105,487,121,468,138,441,155,462,167,479,179,490,192,496,207,498,225,494,244,483,260,466,273,443,281,416,284,386,281,360,272,340,258,328,238,323,215,325,199,329,185,339,172,354,157,376,140,353,123,336,107,326,92,321,76,320,59,324,36,337,18,356,5,382,-2,413,-4,445,-1,471,7,491,23,504,43,509,69,16383,16383,455,211,453,200,448,191,440,182,429,175,416,167,397,177,384,186,375,195,370,205,369,216,371,227,376,236,384,242,395,246,409,247,422,245,435,241,445,233,452,223,455,211,16383,16383,422,113,436,104,446,94,454,84,459,74,461,64,459,53,453,44,444,37,432,33,419,32,402,34,388,39,378,47,371,59,369,75,370,86,373,97,379,107,388,117,401,127,16383,16383,446,473,414,473,97,-9,131,-9,16383,16383,215,465,202,473,195,466,191,463,186,462,90,462,30,353,30,348,31,345,31,343,32,341,34,340,37,340,61,339,82,337,100,333,116,327,130,320,141,311,150,301,157,291,160,280,162,267,159,247,152,232,140,220,126,213,109,210,103,210,91,214,85,217,77,222,68,228,61,232,55,235,49,236,43,236,35,235,29,232,24,227,21,221,20,213,22,203,29,193,40,184,57,179,80,177,124,181,159,196,185,218,202,248,207,284,206,305,201,322,195,336,185,348,173,360,161,369,147,376,130,383,107,388,77,394,87,412,182,412,186,413,188,415,191,417,192,420,509,69,507,88,500,105,487,121,468,138,441,155,462,167,479,179,490,192,496,207,498,225,494,244,483,260,466,273,443,281,416,284,386,281,360,272,340,258,328,238,323,215,325,199,329,185,339,172,354,157,376,140,353,123,336,107,326,92,321,76,320,59,324,36,337,18,356,5,382,-2,413,-4,445,-1,471,7,491,23,504,43,509,69,16383,16383,455,211,453,200,448,191,440,182,429,175,416,167,397,177,384,186,375,195,370,205,369,216,371,
-227,376,236,384,242,395,246,409,247,422,245,435,241,445,233,452,223,455,211,16383,16383,422,113,436,104,446,94,454,84,459,74,461,64,459,53,453,44,444,37,432,33,419,32,402,34,388,39,378,47,371,59,369,75,370,86,373,97,379,107,388,117,401,127,16383,16383,420,473,388,473,70,-9,105,-9,16383,16383,225,449,225,462,51,462,20,398,37,391,46,402,54,409,62,414,72,416,174,416,84,178,124,178,600,154,600,200,181,200,175,201,170,203,166,206,164,210,163,214,165,222,169,230,173,234,197,260,209,274,220,287,230,301,216,314,188,283,157,252,124,225,89,200,50,180,50,173,89,154,124,130,157,102,187,72,216,41,230,54,220,68,196,96,184,109,168,125,166,128,164,132,163,135,163,138,164,143,167,147,171,150,176,153,180,154,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,144,350,152,342,155,337,155,-108,202,-108,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,599,180,561,200,525,224,492,252,462,282,434,313,420,300,429,286,440,272,452,258,464,245,477,233,480,229,483,226,485,222,487,216,485,211,482,207,478,203,473,201,468,200,49,200,49,154,468,154,475,153,480,151,483,148,485,144,486,140,484,132,482,128,476,120,463,107,439,81,419,53,433,40,461,71,492,101,525,129,561,154,599,173,302,70,289,61,275,50,247,26,235,13,231,10,228,7,225,5,221,4,218,3,214,4,209,8,206,12,203,17,202,22,202,463,156,463,156,23,155,16,153,11,150,7,146,5,142,4,139,4,131,8,123,14,109,27,96,39,83,50,69,61,55,71,42,57,74,28,104,-1,132,-34,156,-70,176,-108,183,-108,202,-70,227,-34,254,-1,284,28,316,57,622,180,583,200,548,224,515,252,484,282,455,313,441,300,451,286,475,258,487,245,506,226,507,222,509,216,507,211,504,207,500,203,495,201,491,200,158,200,151,201,146,203,143,206,141,210,140,214,140,218,144,226,150,234,163,247,175,260,186,274,197,287,207,301,193,314,164,283,134,252,101,225,65,200,27,180,27,173,65,154,101,130,134,
-102,164,72,192,41,206,54,197,68,186,82,174,96,162,109,149,121,145,125,143,128,141,132,139,135,139,138,140,143,144,147,148,150,153,153,158,154,490,154,497,153,502,151,505,148,507,144,508,140,506,132,502,124,498,120,462,81,451,67,441,53,455,40,484,71,514,101,548,129,583,154,622,173,316,345,284,373,254,404,227,437,203,472,183,511,176,511,156,472,132,437,104,404,74,373,43,345,56,331,70,341,84,352,98,364,111,376,127,392,131,395,134,397,137,398,141,398,145,397,149,394,153,389,155,385,156,380,156,-23,155,-30,153,-35,150,-39,146,-41,142,-42,139,-42,131,-38,123,-32,109,-19,96,-7,83,3,69,14,55,24,42,10,74,-17,104,-48,132,-81,156,-117,176,-156,183,-156,202,-117,226,-81,254,-48,284,-17,315,10,302,23,288,14,260,-8,247,-20,235,-33,231,-36,228,-39,225,-41,221,-42,218,-43,214,-41,209,-38,206,-34,203,-29,202,-24,202,380,203,386,205,391,208,395,212,397,216,398,224,396,228,394,232,391,236,387,236,388,249,375,262,363,275,352,289,341,302,330,599,-76,165,380,161,384,158,388,156,392,154,395,154,400,156,404,157,405,158,407,164,411,169,413,173,414,197,414,233,416,250,418,266,420,266,441,255,440,231,438,175,438,145,441,114,446,84,453,54,463,49,459,60,429,67,399,72,368,74,337,75,306,75,294,74,282,74,270,73,258,72,247,91,246,95,263,97,281,98,299,98,334,99,340,99,344,100,348,102,351,107,356,109,357,116,357,119,356,123,355,126,354,128,352,566,-108,595,463,565,453,534,446,504,441,473,438,417,438,381,441,381,420,415,416,451,414,475,414,479,413,484,411,490,407,491,405,493,404,494,402,494,400,495,398,493,392,491,388,483,380,49,-76,83,-108,520,352,522,354,528,356,532,357,539,357,543,355,544,354,548,348,549,344,549,317,551,281,553,263,556,246,576,247,575,258,575,270,574,282,574,294,573,306,574,337,577,368,581,399,589,429,599,459,599,-104,589,-74,581,-44,577,-13,574,17,573,48,574,60,574,72,575,84,575,96,576,107,556,108,553,91,551,73,549,37,549,10,548,6,544,0,543,0,539,-2,532,-2,528,-1,522,1,520,2,83,463,49,430,483,-24,487,-29,491,-33,493,-37,495,-43,494,-45,494,-47,493,-49,491,
--50,487,-54,484,-56,479,-57,475,-58,470,-58,451,-59,415,-61,381,-65,381,-85,405,-83,473,-83,504,-86,534,-91,565,-98,595,-108,599,430,566,463,128,2,126,1,123,0,119,-1,116,-2,109,-2,107,-1,106,0,105,0,102,3,100,6,99,10,99,14,98,20,98,55,97,73,95,91,91,108,72,107,73,96,74,84,74,72,75,60,75,48,74,17,72,-13,67,-44,60,-74,49,-104,54,-108,84,-98,114,-91,145,-86,175,-83,243,-83,255,-84,266,-85,266,-65,250,-63,233,-61,215,-59,197,-59,178,-58,173,-58,169,-57,164,-56,161,-54,156,-49,154,-45,154,-40,156,-37,158,-33,161,-29,165,-24,606,154,606,200,420,200,488,315,448,315,380,200,173,200,167,201,162,203,158,206,156,210,155,214,157,222,161,230,165,234,177,247,190,260,223,302,209,315,180,283,149,253,117,225,81,200,42,180,42,173,81,154,116,130,149,102,180,72,208,41,222,54,212,68,201,82,189,96,177,109,158,128,156,132,155,135,155,138,156,143,159,147,163,150,168,153,173,154,353,154,286,41,327,41,394,154,606,180,568,200,532,225,499,253,468,283,440,315,426,302,436,288,458,260,470,247,483,234,489,226,491,221,493,218,493,214,492,210,490,206,487,203,481,201,474,200,290,200,357,315,316,315,249,200,42,200,42,154,222,154,155,41,196,41,263,154,475,154,480,153,485,150,489,147,492,143,494,138,492,132,490,128,487,125,484,121,471,109,459,96,447,82,436,68,427,54,441,41,469,72,499,102,532,130,568,154,606,173,599,166,571,189,543,206,515,217,486,223,455,225,417,220,383,208,350,194,314,182,274,177,238,181,207,191,181,204,165,219,159,234,161,239,167,242,175,245,184,247,192,248,210,251,226,255,243,259,275,269,271,288,244,282,216,277,189,273,161,271,133,270,118,271,101,273,85,275,68,278,53,281,49,275,69,237,84,197,95,155,102,113,107,71,126,74,125,94,124,112,122,130,121,147,120,165,121,171,123,179,126,181,133,181,134,180,135,180,147,173,168,161,196,147,233,136,276,131,323,136,362,148,395,162,427,173,461,178,480,177,502,172,525,164,549,151,573,131,595,281,580,278,564,275,530,271,515,270,487,271,459,273,432,277,405,282,377,288,373,269,390,264,406,259,422,255,439,251,456,248,464,
-247,473,245,481,242,487,239,489,234,483,219,466,204,441,191,409,181,373,177,333,182,298,194,265,208,231,220,194,225,162,223,133,217,105,206,78,189,49,166,76,131,99,151,123,164,146,172,168,177,188,178,221,173,253,162,287,148,325,136,373,131,415,136,452,147,480,161,501,173,513,180,514,180,515,181,523,181,525,179,527,175,528,171,528,165,527,147,526,130,524,112,523,94,522,74,541,71,546,113,554,155,564,197,579,237,599,275,599,154,599,200,326,200,319,201,314,203,310,206,308,210,307,214,307,218,311,226,317,234,330,247,342,260,353,274,364,287,374,301,360,314,338,289,314,264,288,241,261,220,232,200,180,200,174,201,169,203,165,206,163,210,163,218,164,222,166,226,172,234,184,247,197,260,208,274,219,287,230,301,216,314,187,283,156,252,124,225,88,200,49,180,49,173,88,154,123,130,156,102,187,72,215,41,229,54,219,68,208,82,196,96,184,109,165,128,163,132,162,135,162,138,163,143,166,147,170,150,175,153,180,154,233,154,261,135,288,113,314,90,338,66,360,41,373,54,364,68,353,82,341,96,329,109,316,121,313,125,310,128,308,132,306,138,308,143,311,147,315,150,320,153,325,154,316,152,290,175,266,199,242,224,221,251,202,280,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,144,350,152,342,155,337,155,280,136,251,115,224,92,199,67,175,42,152,55,138,69,148,83,160,97,171,110,184,123,196,127,200,133,204,136,205,140,205,144,204,148,201,152,197,155,192,155,-107,202,-107,202,193,204,199,208,202,211,205,219,205,223,204,227,202,231,199,235,195,248,183,262,171,275,159,289,148,302,138,599,180,561,200,525,225,492,252,461,283,433,314,419,301,429,287,440,274,451,260,463,247,476,234,482,226,484,221,485,218,486,214,485,210,483,206,480,203,475,201,468,200,416,200,387,220,360,241,335,264,310,289,287,314,288,314,273,301,284,287,295,274,307,260,331,234,335,230,337,226,339,221,340,218,341,214,340,210,338,
-206,334,203,329,201,323,200,49,200,49,154,323,154,328,153,333,150,337,147,340,143,341,138,341,135,340,132,338,128,336,125,307,96,295,82,284,68,274,54,288,41,311,66,335,90,360,113,387,135,415,154,468,154,473,153,478,150,482,147,485,143,487,138,485,132,483,128,480,125,477,121,464,109,452,96,440,82,429,68,420,54,434,41,462,72,492,102,525,130,561,154,599,173,302,73,289,63,275,52,262,40,248,28,235,16,231,12,227,9,223,7,219,6,216,5,211,6,208,8,204,12,202,17,202,76,221,104,243,131,266,157,290,181,316,204,302,218,289,208,275,197,262,185,248,173,235,160,227,154,223,152,219,151,211,151,208,154,204,157,202,162,202,463,155,463,155,160,152,155,148,152,144,150,136,150,133,151,130,153,127,156,123,159,110,172,97,184,83,196,69,207,55,217,42,203,67,181,92,157,115,131,136,105,155,77,155,16,152,11,148,7,144,5,136,5,133,6,130,8,123,15,97,39,83,51,69,62,55,72,42,58,73,30,103,0,131,-33,155,-68,175,-107,182,-107,202,-68,226,-32,254,0,284,30,316,59,585,314,563,289,539,264,513,241,486,220,457,200,180,200,174,201,169,203,165,206,163,210,163,218,164,222,166,226,172,234,184,247,197,260,208,274,219,287,230,301,216,314,187,283,156,252,124,225,88,200,49,180,49,173,88,154,123,130,156,102,187,72,215,41,229,54,219,68,208,82,196,96,184,109,165,128,163,132,162,135,162,138,163,143,166,147,170,150,175,153,180,154,458,154,486,135,513,113,538,90,562,66,584,41,598,54,588,68,577,82,541,121,531,136,527,147,523,160,522,177,523,190,526,203,531,215,536,225,542,234,554,248,566,261,577,274,589,287,599,301,599,180,561,200,525,225,492,252,461,283,433,314,419,301,429,287,440,274,451,260,463,247,476,234,482,226,484,221,485,218,486,214,485,210,483,206,480,203,475,201,468,200,191,200,162,220,135,241,110,264,86,289,63,314,49,301,59,287,95,248,106,234,112,225,117,215,122,203,125,190,127,177,125,160,122,147,117,136,112,127,107,121,71,82,60,68,50,54,64,41,86,66,110,90,135,113,162,135,191,154,468,154,473,153,478,150,482,147,485,143,487,138,485,132,483,128,480,125,477,
-121,464,109,452,96,440,82,429,68,420,54,434,41,462,72,492,102,525,130,561,154,599,173,600,40,600,315,565,315,565,200,180,200,174,201,169,203,165,206,163,210,163,218,164,222,166,226,172,234,184,247,197,260,230,302,216,315,187,283,156,253,124,225,88,200,49,180,49,173,88,154,123,129,156,101,187,71,215,40,229,53,219,67,208,82,196,95,184,109,165,128,163,132,162,135,162,143,164,147,168,150,173,153,180,154,565,154,565,40,316,-107,316,-72,202,-72,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,144,350,152,342,155,337,155,-72,42,-72,42,-107,600,180,561,200,526,225,493,253,463,283,434,315,420,302,430,288,441,273,465,245,484,226,486,222,488,216,487,211,481,203,475,201,469,200,84,200,84,315,49,315,49,40,84,40,84,154,468,154,475,153,480,151,484,148,486,144,487,140,485,132,483,128,477,120,464,107,440,81,429,67,420,53,434,40,462,71,493,101,526,129,561,154,600,173,316,428,316,463,42,463,42,428,155,428,155,17,153,12,149,8,146,6,141,5,138,6,134,7,130,9,126,12,122,16,109,28,95,40,82,52,68,63,55,73,41,59,73,30,103,0,131,-32,155,-68,175,-107,182,-107,202,-68,226,-33,254,0,284,30,315,58,302,72,288,62,274,51,260,39,234,15,227,8,224,6,221,5,217,5,213,6,209,9,205,14,203,19,202,23,202,428,316,-107,316,-72,182,-72,202,-33,226,2,254,34,284,65,315,93,302,107,288,97,274,86,260,74,234,50,227,43,224,41,221,40,217,40,213,41,209,43,205,47,203,52,202,58,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,148,349,152,345,155,340,155,52,153,47,149,43,146,41,138,41,134,42,130,44,126,47,122,
-51,109,63,95,75,82,87,68,98,55,108,41,94,73,65,103,35,131,2,155,-33,175,-72,42,-72,42,-107,420,387,420,341,486,341,509,337,527,328,541,313,550,293,553,270,549,245,537,225,519,211,498,203,473,200,178,200,173,201,168,204,165,207,163,212,162,216,162,219,163,222,165,226,184,245,196,258,208,272,219,286,229,300,215,313,187,282,156,252,123,224,88,200,49,180,49,173,88,154,124,129,156,101,187,71,216,40,230,53,208,81,197,94,184,107,172,120,168,124,164,132,163,136,163,144,164,147,167,151,171,153,178,154,476,154,510,158,543,172,572,195,592,228,599,270,593,311,575,343,550,367,520,382,488,387,599,180,561,200,525,224,492,252,462,282,434,313,420,300,429,286,440,272,452,258,464,245,477,233,480,229,483,226,485,222,487,216,486,212,484,207,481,204,476,201,470,200,175,200,151,203,129,211,111,225,100,245,95,270,98,293,107,313,121,328,140,337,163,341,229,341,229,387,160,387,128,382,98,367,73,343,56,311,49,270,57,228,77,195,105,172,138,158,172,154,470,154,476,153,481,151,484,147,485,144,486,140,484,132,482,128,476,120,463,107,439,81,419,53,433,40,461,71,492,101,525,129,561,154,599,173,370,200,178,200,174,201,170,204,166,208,163,212,162,216,162,219,163,222,165,226,184,245,196,258,208,272,219,286,229,300,215,313,187,282,156,252,123,224,88,200,49,180,49,173,88,154,124,129,156,101,187,71,216,40,230,53,208,81,197,94,184,107,172,120,168,124,164,132,163,136,163,144,165,147,168,150,172,152,178,154,370,154,370,0,416,0,416,154,476,154,510,158,543,172,572,195,592,228,599,270,593,311,575,343,550,367,520,382,488,387,453,381,420,366,394,340,377,305,370,260,16383,16383,416,200,416,262,420,290,430,312,445,328,464,337,486,341,509,337,527,328,541,313,550,293,553,270,549,245,537,225,519,211,498,203,473,200,599,180,561,200,525,224,492,252,462,282,434,313,420,300,429,286,440,272,452,258,464,245,477,233,480,229,483,226,485,222,487,216,486,212,483,208,479,204,474,201,470,200,278,200,278,260,272,305,254,340,228,366,196,381,160,387,128,382,98,367,73,343,56,311,49,270,57,228,77,195,105,172,138,158,172,154,232,
-154,232,0,278,0,278,154,470,154,476,152,481,150,484,147,485,144,486,140,484,132,482,128,476,120,463,107,439,81,419,53,433,40,461,71,492,101,525,129,561,154,599,173,16383,16383,232,200,175,200,151,203,129,211,111,225,100,245,95,270,98,293,107,313,121,328,140,337,163,341,184,337,203,328,218,312,228,290,232,262,805,180,767,200,731,225,698,252,668,283,639,314,625,301,635,287,646,274,658,260,670,247,683,234,689,226,691,221,692,218,692,210,689,206,686,203,681,201,674,200,632,200,604,192,583,174,566,152,551,133,534,126,513,141,496,179,478,223,454,260,420,276,386,260,362,223,344,179,327,141,307,126,290,134,274,152,257,174,236,192,208,200,166,200,159,201,154,203,150,206,148,210,148,218,149,222,152,226,154,230,158,234,182,260,194,274,205,287,215,301,201,314,172,283,142,252,109,225,73,200,34,180,34,173,73,154,109,130,141,102,172,72,200,41,214,54,204,68,193,82,181,96,169,109,150,128,148,132,147,135,147,138,148,142,151,146,155,150,160,153,164,154,208,154,229,146,247,128,265,106,284,87,307,80,338,95,362,132,381,177,399,214,420,230,441,214,459,177,478,132,502,95,534,80,556,87,575,106,593,128,611,146,632,154,677,154,680,153,685,150,689,146,692,142,693,138,693,135,691,132,689,128,687,125,671,109,659,96,647,82,636,68,626,54,640,41,668,72,698,102,731,130,767,154,805,173,622,180,583,200,548,225,515,253,484,283,455,315,441,302,451,288,463,273,487,245,506,226,507,222,509,216,507,211,504,207,500,203,495,201,491,200,353,200,402,315,364,315,316,200,158,200,151,201,146,203,143,206,141,210,140,214,140,218,144,226,150,234,163,247,175,260,197,288,207,302,193,315,164,283,134,253,101,225,65,200,27,180,27,173,65,154,101,130,134,102,164,72,192,41,206,54,197,68,186,82,174,96,162,109,149,121,145,125,143,128,141,132,139,135,139,138,140,143,144,147,148,150,153,153,158,154,296,154,248,41,286,41,334,154,490,154,497,153,502,151,505,148,507,144,508,140,506,132,502,124,498,120,462,81,451,68,441,54,455,41,484,72,514,102,548,130,583,154,622,173,316,224,145,224,315,436,273,463,42,178,225,178,115,16,109,10,106,
-8,100,6,95,7,91,11,87,16,85,21,84,27,76,63,72,80,67,97,62,113,42,109,49,82,54,54,59,25,61,-3,62,-32,63,-32,60,-74,58,-88,55,-102,61,-107,99,-86,139,-70,181,-60,223,-52,265,-47,263,-29,237,-29,221,-30,189,-34,173,-37,161,-37,156,-35,153,-32,150,-27,149,-22,149,-19,150,-16,150,-14,151,-12,152,-11,297,-108,297,355,159,355,153,356,148,358,144,362,142,365,141,370,142,373,143,378,145,384,148,389,152,393,163,405,173,416,183,426,192,437,202,450,188,463,159,432,128,404,95,378,60,355,21,336,21,329,60,310,95,287,128,261,159,233,187,202,201,216,192,229,182,242,173,253,151,277,147,280,144,284,142,287,141,290,141,298,143,302,147,306,152,308,159,309,251,309,251,-108,303,336,264,355,229,378,196,404,165,432,137,463,123,450,132,437,141,426,150,416,173,393,176,389,179,384,181,378,182,373,183,370,182,365,180,362,177,358,172,356,165,355,27,355,27,-108,73,-108,73,309,165,309,172,308,177,306,181,302,183,298,184,294,183,290,182,287,180,284,177,280,173,277,151,253,142,242,132,229,123,216,138,202,166,233,196,261,229,287,264,310,303,329,293,0,293,463,247,463,247,46,155,46,149,47,144,50,140,53,138,57,138,65,139,68,141,72,143,75,147,79,158,91,169,102,179,114,188,127,198,140,184,153,155,123,125,94,92,68,56,45,17,27,17,20,56,0,92,-21,125,-47,156,-76,184,-107,198,-94,189,-81,180,-69,159,-48,148,-36,144,-31,142,-27,140,-22,139,-17,138,-13,139,-9,141,-5,145,-2,150,0,156,0,303,27,264,46,229,68,196,94,166,123,137,153,138,153,123,140,132,127,142,114,151,102,162,91,173,79,180,72,182,68,184,62,183,57,181,53,177,50,172,47,165,46,73,46,73,463,27,463,27,0,172,0,177,-2,180,-5,182,-9,183,-13,182,-17,181,-22,179,-27,176,-31,173,-36,150,-59,141,-69,132,-81,123,-94,137,-107,165,-76,196,-47,229,-21,264,0,303,20,586,73,572,63,558,52,519,16,515,12,511,9,507,7,499,5,495,6,491,8,488,11,486,16,485,23,485,463,49,463,49,417,439,417,439,23,438,16,436,11,432,7,428,5,420,5,417,6,414,8,410,11,394,27,381,39,367,51,353,62,339,72,326,
-58,357,30,387,0,415,-33,439,-68,459,-107,466,-107,486,-68,510,-32,538,0,568,30,599,59,599,0,599,463,553,463,553,46,180,46,173,47,168,50,164,53,162,57,162,65,163,68,165,72,208,115,219,128,229,141,215,155,187,124,156,95,123,69,88,46,49,27,49,20,88,0,124,-22,156,-48,187,-77,216,-108,230,-95,208,-69,197,-57,184,-45,168,-29,166,-25,164,-20,163,-17,163,-9,165,-5,168,-2,174,0,180,0,617,134,605,210,571,275,519,327,454,361,380,373,303,361,236,327,184,275,150,210,138,134,136,122,134,117,131,114,127,113,124,113,121,114,118,116,99,135,86,147,72,159,58,170,44,180,30,166,61,137,90,107,116,74,138,39,157,0,164,0,183,39,205,74,231,107,260,138,291,166,277,180,263,171,250,160,237,148,223,136,204,117,201,115,198,114,196,113,192,114,189,116,186,120,184,127,184,135,193,196,221,249,263,290,316,318,377,327,439,318,492,290,534,249,561,196,571,134,604,180,590,170,576,159,562,147,549,135,530,116,527,114,525,113,522,113,517,114,514,117,512,122,511,128,511,134,499,210,464,275,412,327,345,361,269,373,194,361,129,327,77,275,43,210,30,134,77,134,87,196,115,249,157,290,210,318,271,327,332,318,386,290,427,249,455,196,465,135,464,127,462,120,460,116,456,114,452,113,450,114,447,115,442,120,438,123,425,136,412,148,398,160,385,171,371,180,358,166,389,138,417,107,443,74,465,39,484,0,491,0,510,39,533,74,558,107,587,137,617,166,599,466,599,513,44,513,44,466,16383,16383,610,-76,149,385,145,391,144,394,144,401,146,405,148,406,151,409,154,411,159,413,168,413,186,414,203,415,221,416,239,418,256,420,256,441,244,439,232,439,220,438,164,438,133,441,103,446,73,453,44,463,38,459,48,430,55,400,60,370,63,339,64,309,64,284,63,272,63,259,62,247,82,245,85,263,87,281,88,298,89,316,89,343,90,347,91,350,94,354,102,358,105,358,107,357,110,357,112,355,115,353,117,352,577,-108,606,266,606,313,206,313,196,317,193,322,191,327,192,331,193,334,194,338,201,345,212,357,222,368,232,380,240,392,249,405,235,419,208,388,179,360,149,334,115,312,77,293,77,419,42,419,42,159,77,159,77,286,115,267,149,
-244,179,218,207,190,235,159,249,173,241,185,232,197,223,208,201,232,197,236,195,240,193,245,192,249,191,252,192,256,194,260,198,263,203,265,209,266,16383,16383,606,-63,606,195,571,195,571,69,533,88,500,111,469,137,441,165,413,195,399,181,408,169,417,158,426,146,436,134,448,122,454,114,456,110,457,106,457,102,456,98,454,94,451,91,446,89,439,88,42,88,42,42,443,42,448,40,452,37,456,32,457,27,457,23,456,20,454,17,448,9,436,-1,426,-13,417,-24,399,-50,413,-63,441,-33,469,-4,500,20,533,43,571,62,571,-63,572,480,534,464,495,449,455,437,415,429,373,427,365,427,362,420,389,387,411,350,430,312,446,272,459,230,477,237,474,254,464,288,459,304,453,321,451,327,450,329,449,332,449,334,450,339,452,344,455,347,459,349,463,350,467,350,468,349,470,348,471,348,500,322,523,290,540,254,551,216,555,178,544,111,513,53,466,7,407,-23,340,-33,273,-23,215,6,168,52,138,110,127,177,134,230,154,280,186,324,228,359,277,383,261,426,201,398,151,356,114,304,90,243,81,178,95,96,131,25,188,-30,259,-67,341,-80,423,-67,494,-30,551,25,588,96,601,178,598,215,590,250,577,285,560,318,538,348,529,358,519,368,508,377,498,386,487,395,485,396,483,398,481,402,481,405,482,407,482,410,483,412,489,418,492,419,494,421,500,423,516,431,532,438,564,454,580,463,405,383,454,359,496,324,528,280,548,230,555,177,544,110,514,52,467,6,408,-23,341,-33,274,-23,215,7,169,53,138,111,127,178,131,216,142,254,159,290,182,322,211,348,212,349,213,349,215,350,219,350,223,349,227,347,230,344,232,334,232,332,231,329,231,327,229,321,223,304,218,288,208,254,205,237,223,230,236,272,252,312,271,350,293,387,320,420,317,427,309,427,267,429,226,437,187,449,148,464,110,480,102,463,118,454,150,438,166,431,182,423,188,421,190,419,193,418,199,412,200,410,201,407,201,402,199,398,197,396,195,395,173,377,163,368,153,358,144,348,122,318,105,285,92,250,84,215,81,178,95,96,131,25,188,-30,259,-67,341,-80,423,-67,494,-30,551,25,588,96,601,178,592,243,568,304,530,356,480,398,420,426,630,154,630,200,207,200,193,201,185,205,180,210,178,216,177,223,182,237,196,
-255,215,278,238,303,263,330,246,346,169,269,130,232,87,195,37,157,38,157,38,154,630,154,630,200,38,200,38,198,87,159,130,122,169,85,207,48,246,9,263,23,238,51,215,76,196,99,182,117,177,131,178,138,180,144,185,149,193,153,207,154,309,297,276,324,243,354,210,388,182,424,159,463,155,463,155,-108,202,-108,202,332,203,337,205,340,208,342,212,343,215,343,221,339,225,337,228,333,241,321,255,311,268,302,282,292,295,283,202,-108,202,463,198,463,175,424,147,388,114,354,81,324,48,297,62,283,75,292,89,302,102,311,116,321,129,333,132,337,136,339,142,343,145,343,149,342,152,340,154,337,155,332,155,-108,630,154,630,157,582,195,539,232,500,269,462,307,422,346,406,330,431,303,454,278,473,255,486,237,491,223,491,216,489,210,483,205,475,201,461,200,38,200,38,154,630,200,38,200,38,154,461,154,475,153,483,149,489,144,491,138,491,131,486,117,473,99,454,76,431,51,406,23,422,9,462,48,500,85,539,122,582,159,630,198,295,71,282,62,268,53,255,43,241,33,228,21,225,18,221,15,215,11,212,11,208,12,205,14,203,18,202,23,202,463,155,463,155,-108,159,-108,182,-69,210,-33,243,0,276,30,309,57,202,-108,202,463,155,463,155,21,154,16,152,13,149,11,145,10,139,12,136,14,132,16,129,20,116,31,102,42,89,51,75,61,62,70,48,56,81,29,114,0,147,-33,175,-69,198,-108,599,293,561,312,525,334,493,360,462,388,434,419,420,405,430,392,450,368,462,357,473,345,480,338,482,334,483,331,483,327,482,322,478,317,474,315,469,313,56,313,56,266,465,266,472,265,477,263,480,260,482,256,483,252,482,249,481,245,479,240,477,236,461,220,450,208,440,197,420,173,434,159,463,190,493,218,525,244,561,267,599,286,16383,16383,593,42,593,88,184,88,178,89,172,91,169,94,166,98,166,106,167,110,170,114,172,118,188,134,199,146,209,158,219,169,229,181,215,195,186,165,156,137,124,111,89,88,50,69,50,62,89,43,124,20,157,-4,187,-33,215,-63,229,-50,209,-24,199,-13,188,-1,176,9,172,13,169,17,167,20,166,23,166,27,167,32,170,37,175,40,180,42,185,42,506,71,492,61,479,50,465,39,452,27,439,14,431,8,423,4,420,
-4,415,5,412,7,408,11,406,16,405,23,405,456,359,456,359,22,358,15,356,10,352,6,348,4,344,3,340,4,337,5,334,7,330,10,314,26,301,38,287,50,273,61,259,70,245,57,277,28,307,-1,335,-34,359,-70,379,-108,386,-108,406,-70,430,-34,458,-1,488,28,520,57,16383,16383,295,297,264,325,234,356,206,389,182,425,162,463,155,463,135,425,111,389,83,356,53,326,22,298,35,284,49,294,77,316,90,328,102,341,110,347,113,349,116,350,120,351,124,350,128,348,132,345,134,340,135,333,135,-101,181,-101,181,332,182,339,184,344,187,348,195,350,199,350,211,344,215,340,241,316,255,304,268,293,282,283,593,266,593,313,180,313,170,317,167,322,166,327,166,331,167,334,169,338,199,368,219,392,229,405,215,419,187,388,157,360,124,334,89,312,50,293,50,286,89,267,124,244,156,218,186,190,215,159,229,173,209,197,199,208,188,220,172,236,170,240,167,245,166,249,166,256,169,260,172,263,178,265,184,266,16383,16383,599,69,561,88,525,111,493,137,463,165,434,195,420,181,430,169,440,158,450,146,461,134,477,118,481,110,483,102,482,98,480,94,477,91,472,89,465,88,56,88,56,42,469,42,474,40,478,37,482,32,483,27,483,23,482,20,480,17,477,13,473,9,462,-1,450,-13,440,-24,420,-50,434,-63,462,-33,493,-4,525,20,561,43,599,62,599,42,599,88,184,88,178,89,172,91,169,94,166,98,166,106,167,110,170,114,172,118,176,122,184,131,203,150,214,163,227,177,214,194,202,207,192,217,183,225,171,237,169,240,167,244,166,247,166,251,167,255,170,259,174,262,179,265,184,266,599,266,599,313,178,313,172,315,169,319,166,322,166,330,167,334,170,338,172,342,188,358,199,370,210,381,220,393,230,406,216,420,187,389,156,360,124,334,88,312,49,293,49,286,84,269,115,250,145,228,173,204,198,177,173,151,145,127,115,105,83,85,49,69,49,62,88,43,123,20,156,-4,187,-33,215,-63,229,-50,209,-24,199,-13,188,-1,176,9,172,13,169,17,167,20,166,23,166,31,168,35,172,39,177,41,184,42,513,297,482,325,453,356,427,389,405,425,386,463,379,463,362,429,343,397,321,367,297,339,270,313,244,339,220,367,198,397,178,429,162,463,155,463,136,425,113,
-389,88,356,59,326,29,298,42,284,55,293,68,303,79,314,91,325,102,337,110,343,113,345,116,346,120,347,124,346,128,344,132,341,134,336,135,329,135,-108,181,-108,181,328,182,335,184,340,187,344,191,346,195,347,203,345,207,343,215,337,243,309,255,298,270,285,287,299,300,310,319,329,327,338,330,341,334,344,337,346,340,347,344,347,348,346,352,343,356,338,358,333,359,329,359,-108,405,-108,405,328,406,335,408,340,412,344,415,346,420,347,423,346,427,345,431,343,439,337,463,313,474,303,486,293,499,283,599,69,565,85,533,105,503,127,475,151,449,177,475,204,503,228,533,250,565,269,599,286,599,293,561,312,525,334,492,360,461,389,433,420,419,406,428,393,438,381,449,370,460,358,473,346,479,338,481,334,482,330,482,327,481,322,479,319,476,315,471,313,49,313,49,266,465,266,469,265,474,262,478,259,481,255,482,251,482,247,481,244,479,240,477,237,465,225,456,217,446,207,434,194,420,177,434,162,445,150,473,122,479,114,481,110,482,106,482,102,481,98,479,94,476,91,471,89,464,88,49,88,49,42,465,42,471,41,476,39,480,35,482,27,482,23,481,20,479,17,473,9,461,-1,449,-13,439,-24,429,-37,420,-50,434,-63,462,-33,492,-4,525,20,561,43,599,62,499,71,486,62,474,51,463,41,439,17,431,11,427,9,423,8,415,8,412,11,408,14,406,19,405,26,405,463,359,463,359,25,358,21,356,16,352,12,348,9,344,8,340,8,337,9,334,11,330,14,300,44,287,55,270,70,255,56,243,45,215,17,207,11,203,9,199,8,191,8,187,11,184,14,182,19,181,26,181,463,135,463,135,25,134,18,132,14,128,10,124,8,116,8,113,9,110,11,102,17,91,29,79,40,68,51,55,61,42,70,29,57,59,28,88,-1,113,-34,136,-70,155,-108,162,-108,178,-74,198,-42,220,-13,244,14,270,41,297,15,321,-12,343,-42,362,-74,379,-108,386,-108,405,-70,427,-34,453,-1,482,28,513,57,599,224,599,270,188,270,181,271,176,272,172,273,170,276,170,283,171,287,173,290,176,293,179,297,191,310,201,323,211,337,220,350,230,364,216,377,189,345,158,311,125,279,88,250,49,227,49,224,16383,16383,599,130,49,130,49,84,468,84,473,83,476,81,478,78,479,74,477,
-68,475,65,469,57,457,44,437,18,428,4,419,-9,433,-22,460,9,490,43,524,75,560,104,599,127,599,224,599,227,560,250,524,279,490,311,460,345,433,377,419,364,428,350,437,337,447,323,457,310,469,297,472,293,475,290,477,287,478,283,479,280,478,276,476,273,473,272,468,271,461,270,49,270,49,224,16383,16383,599,84,599,130,49,130,49,127,88,104,125,75,158,43,189,9,216,-22,230,-9,220,4,211,18,191,44,179,57,173,65,171,68,170,71,170,78,172,81,176,83,181,84,188,84,606,84,606,130,459,130,502,224,606,224,606,270,522,270,576,386,537,386,484,270,263,270,257,271,252,274,248,278,246,282,245,286,246,293,248,299,251,304,255,309,271,325,282,337,292,348,303,360,313,372,298,386,248,340,197,297,145,257,93,219,42,180,42,173,146,97,198,57,249,15,298,-30,313,-16,302,-4,278,22,261,39,255,46,250,51,247,57,246,62,245,69,246,72,248,77,252,80,257,83,263,84,399,84,347,-29,386,-29,438,84,16383,16383,463,224,420,130,162,130,149,139,138,148,129,158,123,167,121,177,123,187,129,197,138,207,149,216,163,224,634,180,607,200,568,231,520,270,467,315,414,362,395,345,406,334,418,323,430,311,438,299,441,285,441,281,439,277,435,274,429,271,422,270,359,270,376,362,340,362,323,270,226,270,219,271,213,272,207,274,204,278,202,284,206,294,215,306,228,320,241,333,252,346,237,362,184,315,130,271,82,232,41,201,14,180,14,173,41,155,82,124,131,85,184,40,237,-6,252,9,237,26,224,40,213,51,206,61,204,71,205,77,207,81,212,83,219,84,291,84,275,-6,311,-6,327,84,432,84,438,82,441,80,443,77,443,73,439,60,430,46,418,32,405,19,395,8,414,-6,465,41,518,86,567,124,607,154,634,173,16383,16383,334,130,352,224,515,224,539,206,547,196,553,187,555,177,553,167,547,157,538,148,527,139,514,130,16383,16383,316,224,299,130,133,130,120,139,109,149,100,158,94,168,92,177,95,187,101,197,109,207,121,216,134,224,606,180,555,219,503,257,451,297,400,340,350,386,335,372,346,360,356,348,367,337,377,325,393,309,401,299,402,293,403,286,402,282,400,278,397,274,392,271,385,270,248,270,301,386,263,386,209,270,42,270,42,224,188,
-224,145,130,42,130,42,84,124,84,73,-30,111,-30,163,84,385,84,392,83,397,80,400,77,402,72,403,69,403,62,401,57,398,51,393,46,387,39,370,22,359,9,346,-4,335,-16,350,-30,400,15,451,57,503,97,554,135,606,173,16383,16383,184,130,227,224,486,224,499,216,510,207,519,197,525,187,527,177,525,167,519,158,510,148,499,139,487,130,606,84,606,130,162,130,149,139,138,148,129,158,123,167,121,177,123,187,129,197,138,207,149,216,163,224,606,224,606,270,263,270,257,271,252,274,248,278,246,282,245,286,246,293,248,299,251,304,255,309,271,325,282,337,292,348,303,360,313,372,298,386,248,340,197,297,145,257,93,219,42,180,42,173,146,97,198,57,249,15,298,-30,313,-16,302,-4,278,22,261,39,255,46,250,51,247,57,246,62,245,69,246,72,248,77,252,80,257,83,263,84,448,207,402,257,360,308,320,360,282,412,244,463,237,463,198,412,160,360,120,308,78,257,31,207,45,192,58,203,72,216,85,228,102,245,109,251,114,255,120,258,125,260,131,260,135,259,139,257,143,254,146,249,147,242,147,-108,193,-108,193,344,202,357,211,368,220,377,230,382,240,384,250,382,260,377,269,368,278,356,287,343,287,-108,333,-108,333,242,334,249,337,254,341,257,345,259,348,260,355,260,361,258,366,256,377,245,388,235,399,224,411,213,423,203,434,192,606,180,555,219,503,257,451,297,400,340,350,386,335,372,346,360,356,348,367,337,377,325,393,309,401,299,402,293,403,286,402,282,400,278,397,274,392,271,385,270,42,270,42,224,486,224,499,216,510,207,519,197,525,187,527,177,525,167,519,158,510,148,499,139,487,130,42,130,42,84,385,84,392,83,397,80,400,77,402,72,403,69,403,62,401,57,398,51,393,46,387,39,370,22,359,9,346,-4,335,-16,350,-30,400,15,451,57,503,97,554,135,606,173,434,162,423,151,411,141,399,130,388,120,371,103,366,99,361,96,355,94,345,94,341,96,337,100,334,105,333,112,333,463,287,463,287,11,278,-1,269,-12,260,-21,250,-27,240,-29,230,-27,220,-21,211,-13,202,-1,193,10,193,463,147,463,147,112,146,105,143,100,139,96,135,94,125,94,120,96,114,99,109,104,102,110,85,127,72,138,58,151,45,162,31,147,78,97,120,
-46,160,-5,198,-57,237,-108,244,-108,282,-57,320,-5,360,46,402,97,448,147,634,180,607,200,568,231,520,270,467,315,414,362,395,345,406,334,418,323,430,311,438,299,441,285,441,281,439,277,435,274,429,271,422,270,226,270,219,271,213,272,207,274,204,278,202,284,206,294,215,306,228,320,241,333,252,346,237,362,184,315,130,271,82,232,41,201,14,180,14,173,41,155,82,124,131,85,184,40,237,-6,252,9,237,26,224,40,213,51,206,61,204,71,205,77,207,81,212,83,219,84,432,84,438,82,441,80,443,77,443,73,439,60,430,46,418,32,405,19,395,8,414,-6,465,41,518,86,567,124,607,154,634,173,16383,16383,133,130,120,139,109,149,100,158,94,168,92,177,95,187,101,197,109,207,121,216,134,224,515,224,539,206,547,196,553,187,555,177,553,167,547,157,538,148,527,139,514,130,434,114,423,104,411,93,399,83,388,72,377,62,366,51,361,48,355,47,348,46,345,47,341,49,337,52,334,57,333,64,333,290,334,297,337,302,341,305,345,307,348,308,355,307,361,306,366,303,371,299,399,271,411,261,423,250,434,240,448,255,402,305,360,356,320,408,282,460,244,511,237,511,198,459,160,407,120,356,78,305,31,255,45,240,58,251,72,263,85,275,102,292,109,298,114,303,120,306,125,307,131,308,135,307,139,305,143,302,146,297,147,290,147,64,146,57,143,52,139,49,135,47,131,46,125,47,120,48,114,52,109,56,102,63,95,69,85,79,72,91,58,103,45,114,31,99,78,49,120,0,160,-52,198,-104,237,-156,244,-156,282,-105,320,-53,360,-1,402,49,448,99,16383,16383,287,-36,278,-49,269,-60,260,-69,250,-74,240,-76,230,-74,220,-69,211,-60,202,-49,193,-36,193,391,202,404,211,415,220,424,230,430,240,432,250,430,260,424,269,415,278,404,287,391,612,23,263,370,261,373,260,376,259,378,258,381,258,388,259,391,260,392,261,394,266,398,270,401,276,403,308,403,338,405,370,407,370,427,302,430,236,436,171,444,107,454,44,463,38,459,58,331,66,266,72,200,75,132,95,132,97,149,97,167,98,184,98,209,100,229,104,237,109,242,118,245,121,244,123,244,126,242,129,241,131,239,480,-108,513,-76,92,343,89,364,89,371,88,377,89,384,91,396,94,400,98,405,102,
-408,107,411,113,413,119,414,132,414,139,413,145,412,152,411,159,409,580,-9,607,463,544,454,480,444,415,436,348,430,280,427,280,407,312,405,327,404,343,403,374,403,380,401,384,398,389,394,390,392,391,391,392,388,393,386,393,381,392,378,391,376,387,370,38,23,70,-9,491,409,498,411,512,413,518,414,531,414,538,413,544,411,549,408,553,405,557,400,559,396,561,390,562,384,562,371,558,343,138,-76,170,-108,519,239,521,241,524,242,527,244,530,244,532,245,541,242,546,237,550,229,552,209,552,184,553,167,554,149,555,132,576,132,578,200,584,266,592,331,612,459,612,-104,602,-40,592,23,584,88,578,154,576,222,555,222,554,205,553,187,552,170,552,145,551,135,550,126,546,118,541,112,532,110,530,110,521,113,519,116,170,463,138,431,558,11,559,4,560,-2,562,-16,562,-22,561,-29,561,-35,557,-45,553,-50,549,-53,544,-56,538,-57,531,-58,512,-58,505,-57,498,-55,491,-54,70,365,38,332,387,-15,389,-18,391,-20,393,-26,393,-31,389,-39,384,-43,380,-46,374,-48,343,-48,327,-49,312,-50,296,-50,280,-51,280,-72,348,-74,415,-81,480,-89,544,-99,607,-108,612,332,580,365,159,-54,152,-55,145,-57,139,-58,119,-58,107,-56,102,-53,98,-50,94,-45,91,-40,90,-35,89,-29,88,-22,89,-16,89,-9,90,-2,91,4,92,11,513,431,480,463,131,116,129,113,123,111,121,110,118,110,109,112,104,118,100,126,99,135,98,145,98,170,97,187,97,205,95,222,75,222,72,154,66,88,58,23,48,-40,38,-104,44,-108,107,-99,171,-89,236,-81,302,-74,370,-72,370,-51,354,-50,338,-50,308,-48,276,-48,270,-46,266,-43,261,-39,258,-33,258,-26,260,-20,261,-18,263,-15,596,14,596,60,200,60,191,72,179,86,166,100,154,112,144,121,140,125,137,130,135,133,134,136,134,142,137,146,141,149,146,152,152,154,596,154,596,200,152,200,145,201,140,203,137,206,135,210,134,214,136,222,138,226,141,230,155,244,166,256,178,269,190,281,201,294,596,294,596,340,234,340,234,342,250,364,266,385,281,406,293,425,303,441,287,451,248,395,202,338,150,281,94,228,32,180,32,173,101,118,161,61,211,4,253,-49,286,-97,302,-85,293,-69,280,-51,266,-30,250,-8,233,13,233,14,616,180,547,236,487,293,437,350,395,
-403,362,452,346,441,356,425,368,406,382,385,398,363,415,341,415,340,52,340,52,294,448,294,457,282,469,269,482,255,495,242,505,233,509,229,512,225,514,221,515,218,515,216,514,212,511,208,508,205,503,202,497,200,52,200,52,154,495,154,502,153,508,151,511,148,513,144,514,140,514,136,510,128,504,120,482,98,458,72,448,60,52,60,52,14,414,14,414,12,382,-30,368,-51,355,-69,345,-85,361,-96,400,-40,446,16,497,72,554,126,616,173,606,154,606,200,506,200,464,154,380,276,294,154,252,200,173,200,167,201,162,203,158,206,156,210,155,214,157,222,161,230,165,234,177,247,190,260,201,274,212,287,223,301,209,314,180,283,149,252,117,225,81,200,42,180,42,173,81,154,116,130,149,102,180,72,208,41,222,54,212,68,201,82,189,96,177,109,158,128,156,132,155,135,155,138,156,142,159,146,163,150,168,153,172,154,230,154,294,80,380,200,464,80,527,154,606,180,568,200,532,225,499,252,468,283,440,314,426,301,436,287,447,274,458,260,470,247,483,234,489,226,491,221,493,218,493,214,492,210,490,206,487,203,481,201,474,200,396,200,354,154,267,276,184,154,142,200,42,200,42,154,122,154,184,80,267,200,354,80,419,154,477,154,480,153,485,150,489,146,492,142,494,138,492,132,490,128,487,125,484,121,471,109,459,96,447,82,436,68,427,54,441,41,469,72,499,102,532,130,568,154,606,173,316,53,316,88,202,88,202,144,316,144,316,178,202,178,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,144,350,152,342,155,337,155,178,42,178,42,144,155,144,155,88,42,88,42,53,155,53,155,-108,202,-108,202,53,302,71,289,61,275,50,262,39,248,27,235,14,227,8,219,4,216,4,211,5,208,7,204,11,202,16,202,176,316,176,316,211,202,211,202,266,316,266,316,301,202,301,202,463,155,463,155,301,42,301,42,266,155,266,155,211,42,211,42,176,155,176,155,17,152,12,144,4,140,3,136,4,133,5,130,7,127,10,123,
-13,110,26,97,38,83,50,69,61,55,70,42,57,73,28,103,-1,131,-34,155,-70,175,-108,182,-108,202,-70,226,-34,254,-1,284,28,316,57,606,154,606,200,531,200,531,154,16383,16383,488,154,488,200,414,200,414,154,16383,16383,371,154,371,200,296,200,296,154,16383,16383,253,154,253,200,173,200,167,201,162,203,158,206,156,210,155,214,157,222,161,230,165,234,177,247,190,260,201,274,212,287,223,301,209,314,180,283,149,252,117,225,81,200,42,180,42,173,81,154,116,130,149,102,180,72,208,41,222,54,212,68,201,82,189,96,177,109,158,128,156,132,155,135,155,138,156,143,159,147,163,150,168,153,173,154,316,297,284,325,254,356,226,389,202,425,182,463,175,463,155,425,131,389,103,356,73,326,42,298,55,284,69,294,97,316,110,328,123,341,127,344,130,347,133,349,136,350,140,351,144,350,152,342,155,337,155,254,202,254,202,339,204,344,208,347,211,349,216,350,219,350,231,344,235,340,248,328,262,316,275,304,289,293,302,283,16383,16383,202,133,202,208,155,208,155,133,16383,16383,202,12,202,87,155,87,155,12,16383,16383,202,-108,202,-33,155,-33,155,-108,606,180,568,200,532,225,499,252,468,283,440,314,426,301,436,287,447,274,458,260,470,247,483,234,489,226,491,221,493,218,493,214,492,210,490,206,487,203,481,201,474,200,395,200,395,154,475,154,482,153,487,150,491,147,493,143,494,138,492,132,490,128,487,125,484,121,471,109,459,96,447,82,436,68,427,54,441,41,469,72,499,102,532,130,568,154,606,173,16383,16383,352,154,352,200,277,200,277,154,16383,16383,234,154,234,200,159,200,159,154,16383,16383,117,154,117,200,42,200,42,154,202,388,202,463,155,463,155,388,16383,16383,202,267,202,342,155,342,155,267,16383,16383,202,146,202,221,155,221,155,146,16383,16383,302,71,289,61,275,50,262,39,248,27,235,14,227,8,219,4,216,4,211,5,208,7,204,11,202,16,202,100,155,100,155,15,152,10,148,6,144,4,140,3,136,4,133,5,130,7,127,10,123,13,110,26,97,38,83,50,69,61,55,70,42,57,73,28,103,-1,131,-34,155,-70,175,-108,182,-108,202,-70,226,-34,254,-1,284,28,316,57,606,154,606,200,209,200,202,201,197,203,193,206,191,210,191,218,192,222,194,226,200,
-234,213,247,225,260,236,274,248,288,258,302,244,315,215,283,185,253,152,225,116,200,77,180,77,315,42,315,42,41,77,41,77,173,116,154,152,130,184,102,215,72,243,41,257,54,247,68,236,82,224,96,212,109,199,121,196,125,193,128,191,132,190,135,190,138,191,143,194,147,198,150,203,153,208,154,606,41,606,315,571,315,571,180,532,200,497,225,464,253,433,283,405,315,391,302,401,288,412,274,424,260,448,234,454,226,456,221,457,218,458,214,457,210,455,206,452,203,447,201,440,200,42,200,42,154,441,154,445,153,450,150,454,147,457,143,459,138,457,132,455,128,436,109,424,96,412,82,401,68,391,54,405,41,434,72,464,102,497,130,532,154,571,173,571,41,606,84,606,270,313,270,313,379,298,386,248,340,197,297,145,257,93,219,42,180,42,173,146,97,198,57,249,15,298,-30,313,-23,313,84,16383,16383,571,119,277,119,277,37,162,127,149,137,138,146,129,156,123,167,121,177,123,188,130,198,139,208,150,218,162,228,277,316,277,235,571,235,448,207,402,257,360,308,320,360,282,412,244,463,237,463,198,412,160,360,120,308,78,257,31,207,38,193,147,193,147,-108,333,-108,333,193,441,193,16383,16383,380,228,298,228,298,-73,182,-73,182,228,100,228,190,344,200,356,209,367,219,376,229,382,240,384,251,382,261,376,272,366,282,355,291,344,606,180,555,219,503,257,451,297,400,340,350,386,336,379,336,270,42,270,42,84,336,84,336,-23,350,-30,400,15,451,57,503,97,554,135,606,173,16383,16383,371,37,371,119,77,119,77,235,371,235,371,316,487,228,509,208,519,198,525,188,527,177,525,167,519,156,510,146,499,137,487,127,441,161,333,161,333,463,147,463,147,161,38,161,31,147,78,97,120,46,160,-5,198,-57,237,-108,244,-108,282,-57,320,-5,360,46,402,97,448,147,16383,16383,380,126,291,10,282,-1,272,-12,261,-21,251,-27,240,-29,229,-27,219,-21,209,-12,200,-1,190,10,100,126,182,126,182,428,298,428,298,126,448,227,402,277,360,328,320,380,282,432,244,483,237,483,198,431,160,379,120,327,78,276,31,227,38,213,147,213,147,30,333,30,333,213,441,213,16383,16383,380,248,298,248,298,64,182,64,182,248,100,248,190,363,200,376,209,387,219,396,229,402,240,404,251,
-402,261,395,272,386,282,375,291,363,16383,16383,333,-128,333,-15,147,-15,147,-128,16383,16383,298,-93,182,-93,182,-50,298,-50,599,180,561,200,525,224,492,252,462,282,434,313,420,300,429,286,440,272,452,258,464,245,477,233,480,229,483,226,485,222,487,216,485,211,482,207,478,203,473,201,468,200,380,200,370,228,353,252,331,270,304,282,273,286,244,282,217,270,195,252,178,228,168,200,49,200,49,154,168,154,178,127,195,104,217,86,244,74,273,70,303,74,330,86,352,104,369,127,379,154,468,154,475,153,480,151,483,148,485,144,486,140,484,132,482,128,476,120,463,107,439,81,419,53,433,40,461,71,492,101,525,129,561,154,599,173,16383,16383,205,200,212,216,223,230,238,241,255,248,273,251,292,248,309,241,324,230,335,216,343,200,16383,16383,342,154,335,138,323,124,309,114,292,107,273,105,255,107,238,114,224,124,212,138,205,154,520,297,488,325,458,356,430,389,406,425,386,463,379,463,359,425,335,389,307,356,277,326,245,298,259,284,273,294,301,316,314,328,330,344,334,347,337,349,340,350,344,351,348,350,352,348,356,344,358,339,359,333,359,-101,405,-101,405,332,406,339,408,344,412,347,415,349,420,350,423,350,435,344,439,340,465,316,479,304,492,293,506,283,16383,16383,282,71,268,61,255,50,241,39,228,27,215,14,207,8,199,4,195,4,187,6,184,10,182,15,181,23,181,456,135,456,135,22,134,15,132,10,128,6,124,4,120,3,116,4,113,5,110,7,102,13,90,26,76,38,63,50,49,61,35,70,22,57,53,28,83,-1,111,-34,135,-70,155,-108,162,-108,182,-70,206,-34,234,-1,264,28,295,57,606,-29,572,-12,541,6,511,26,483,48,457,72,483,95,511,118,540,138,572,157,606,173,606,180,572,197,541,216,511,236,483,259,457,282,483,305,511,328,540,349,572,367,606,384,606,391,568,410,532,432,499,458,468,486,440,517,426,504,435,491,445,479,456,468,467,456,480,444,486,436,488,432,489,428,489,424,488,420,486,416,483,413,478,411,471,410,42,410,42,364,472,364,476,363,481,361,485,357,488,353,489,348,489,345,488,342,487,340,480,333,426,282,440,268,452,257,462,248,471,240,483,228,486,224,488,221,489,217,489,214,488,210,486,206,482,203,477,201,471,200,42,
-200,42,154,472,154,477,153,482,150,485,147,488,143,489,138,489,135,487,129,484,126,480,123,426,72,440,58,452,47,462,38,471,30,483,18,486,14,488,11,489,7,489,4,488,0,486,-3,483,-6,478,-8,471,-9,42,-9,42,-55,472,-55,478,-56,483,-58,487,-62,489,-70,489,-74,488,-77,486,-81,483,-84,480,-88,468,-100,456,-111,436,-135,427,-148,441,-162,469,-131,499,-102,532,-77,568,-54,606,-36,606,154,606,200,391,200,391,315,356,315,356,200,173,200,167,201,162,203,158,206,156,210,155,214,157,222,161,230,165,234,177,247,190,260,223,302,209,315,180,283,149,253,117,225,81,200,42,180,42,173,81,154,116,130,149,102,180,72,208,41,222,54,212,68,201,82,189,96,177,109,158,128,156,132,155,135,155,138,156,143,159,147,163,150,168,153,173,154,356,154,356,41,391,41,391,154,602,180,564,200,528,225,495,253,464,283,436,315,422,302,432,288,443,274,455,260,467,247,480,234,486,226,488,221,489,218,489,214,488,210,486,206,483,203,478,201,471,200,292,200,292,315,257,315,257,200,38,200,38,154,257,154,257,41,292,41,292,154,472,154,476,153,486,147,489,143,490,138,490,135,489,132,487,128,468,109,456,96,444,82,433,68,423,54,437,41,465,72,495,102,528,130,564,154,602,173,615,180,576,200,541,225,508,253,477,283,448,315,434,302,444,288,456,273,480,245,499,226,500,222,502,216,500,211,497,207,493,203,488,201,484,200,341,200,341,315,306,315,306,200,165,200,158,201,153,203,150,206,148,210,147,214,147,218,151,226,157,234,170,247,182,260,204,288,214,302,200,315,171,283,141,253,108,225,72,200,34,180,34,173,72,154,108,130,141,102,171,72,199,41,213,54,204,68,193,82,181,96,169,109,156,121,152,125,150,128,148,132,146,135,146,138,147,143,151,147,155,150,160,153,165,154,306,154,306,41,341,41,341,154,483,154,490,153,495,151,499,148,501,144,502,140,500,132,498,128,495,124,491,120,455,81,444,68,434,54,448,41,477,72,507,102,540,130,576,154,615,173,606,154,606,200,448,200,448,315,414,315,414,200,359,200,359,315,323,315,323,200,173,200,167,201,162,203,158,206,156,210,155,214,157,222,161,230,165,234,177,247,190,260,223,302,209,315,180,
-283,149,253,117,225,81,200,42,180,42,173,81,154,116,130,149,102,180,72,208,41,222,54,212,68,201,82,189,96,177,109,158,128,156,132,155,135,155,138,156,143,159,147,163,150,168,153,173,154,323,154,323,41,359,41,359,154,414,154,414,41,448,41,448,154,606,180,568,200,532,225,499,253,468,283,440,315,426,302,436,288,458,260,470,247,483,234,489,226,491,221,493,218,493,214,492,210,490,206,487,203,481,201,474,200,325,200,325,315,290,315,290,200,234,200,234,315,199,315,199,200,42,200,42,154,199,154,199,41,234,41,234,154,290,154,290,41,325,41,325,154,475,154,480,153,485,150,489,147,492,143,494,138,492,132,490,128,487,125,484,121,471,109,459,96,447,82,436,68,427,54,441,41,469,72,499,102,532,130,568,154,606,173,622,180,583,200,548,225,515,253,484,283,455,315,441,302,451,288,463,273,487,245,506,226,507,222,509,216,507,211,504,207,500,203,495,201,491,200,387,200,387,315,352,315,352,200,297,200,297,315,262,315,262,200,158,200,151,201,146,203,143,206,141,210,140,214,140,218,144,226,150,234,163,247,175,260,197,288,207,302,193,315,164,283,134,253,101,225,65,200,27,180,27,173,65,154,101,130,134,102,164,72,192,41,206,54,197,68,186,82,174,96,162,109,149,121,145,125,143,128,141,132,139,135,139,138,140,143,144,147,148,150,153,153,158,154,262,154,262,41,297,41,297,154,352,154,352,41,387,41,387,154,490,154,497,153,502,151,505,148,507,144,508,140,506,132,502,124,498,120,462,81,451,68,441,54,455,41,484,72,514,102,548,130,583,154,622,173,606,154,606,200,230,200,230,311,223,314,193,283,159,252,121,225,82,200,42,180,42,173,82,154,122,129,159,101,193,71,223,40,230,44,230,154,16383,16383,195,116,182,130,164,144,144,158,126,169,110,178,126,186,144,198,164,211,182,225,195,238,606,180,566,200,527,225,490,253,455,283,426,314,419,311,419,200,42,200,42,154,419,154,419,44,426,40,456,71,490,101,527,129,566,154,606,173,16383,16383,454,238,466,225,484,211,504,197,523,185,538,177,523,168,504,157,484,144,466,130,454,117,634,180,594,200,555,225,518,253,484,283,454,314,447,311,447,200,202,200,202,311,195,314,165,
-283,130,252,93,225,54,200,14,180,14,173,54,154,94,129,131,101,165,71,195,40,202,44,202,154,447,154,447,44,454,40,484,71,518,101,555,129,594,154,634,173,16383,16383,481,238,494,225,512,211,532,197,551,185,566,177,551,168,532,157,512,144,494,130,481,117,16383,16383,166,116,154,130,136,144,117,158,97,169,82,178,97,186,117,198,136,211,154,225,166,238,150,61,150,1,158,52,158,52,150,1,158,8,158,52,158,8,163,42,163,42,158,8,163,18,163,42,163,18,165,30,91,30,92,19,92,42,92,42,92,19,97,8,92,42,97,8,98,52,98,52,97,8,105,1,98,52,105,1,106,61,106,61,105,1,115,-3,106,61,115,-3,116,66,116,66,115,-3,127,-5,116,66,127,-5,128,68,128,68,127,-5,140,-3,128,68,140,-3,140,66,140,66,140,-3,150,1,140,66,150,1,150,61,165,416,163,436,164,390,165,416,164,390,164,395,165,416,164,395,165,400,165,416,165,400,165,406,165,416,165,406,165,411,164,390,163,436,159,451,164,390,159,451,151,463,164,390,151,463,141,471,164,390,141,471,132,123,128,473,114,471,123,123,128,473,123,123,132,123,128,473,132,123,141,471,92,398,93,390,96,452,96,452,93,390,123,123,96,452,123,123,103,463,103,463,123,123,114,471,92,437,91,420,91,415,92,437,91,415,91,410,92,437,91,410,91,404,92,437,91,404,92,398,92,437,92,398,96,452,172,443,173,430,173,453,173,453,173,430,176,408,173,453,176,408,178,461,178,461,176,408,181,378,178,461,181,378,184,468,184,468,181,378,187,342,184,468,187,342,193,472,193,472,187,342,195,302,193,472,195,302,202,473,202,473,195,302,209,302,202,473,209,302,212,472,212,472,209,302,216,341,212,472,216,341,220,468,220,468,216,341,222,376,220,468,222,376,226,462,226,462,222,376,227,405,226,462,227,405,231,454,231,454,227,405,231,428,231,454,231,428,232,445,54,443,55,430,55,453,55,453,55,430,58,408,55,453,58,408,59,461,59,461,58,408,63,378,59,461,63,378,66,468,66,468,63,378,69,342,66,468,69,342,74,472,74,472,69,342,77,302,74,472,77,302,84,473,84,473,77,302,91,302,84,473,91,302,94,472,94,472,91,302,98,340,94,472,98,
-340,102,468,102,468,98,340,105,375,102,468,105,375,108,462,108,462,105,375,109,404,108,462,109,404,112,454,112,454,109,404,112,428,112,454,112,428,113,445,127,463,105,322,119,152,119,152,105,322,99,284,119,152,99,284,96,0,96,0,99,284,84,190,96,0,84,190,78,152,78,152,84,190,4,190,78,152,4,190,4,152,23,322,23,284,99,284,23,322,99,284,105,322,127,463,119,152,125,190,127,463,125,190,140,284,127,463,140,284,145,322,127,463,145,322,167,463,259,463,239,322,253,152,253,152,239,322,233,284,253,152,233,284,232,0,232,0,233,284,219,190,232,0,219,190,213,152,213,152,219,190,125,190,213,152,125,190,119,152,145,322,140,284,233,284,145,322,233,284,239,322,280,322,300,463,273,284,273,284,300,463,259,463,273,284,259,463,259,190,259,190,259,463,253,152,259,190,253,152,329,152,280,322,273,284,347,284,280,322,347,284,347,322,259,190,329,152,329,190,232,0,213,152,191,0,96,0,78,152,55,0,185,446,216,439,216,462,216,462,216,439,241,426,216,462,241,426,243,456,243,456,241,426,261,407,243,456,261,407,265,449,265,449,261,407,276,382,265,449,276,382,283,439,283,439,276,382,287,350,283,439,287,350,298,427,298,427,287,350,298,350,320,134,318,148,320,119,320,119,318,148,315,160,320,119,315,160,314,76,314,76,315,160,311,172,314,76,311,172,306,182,296,45,314,76,306,182,296,45,306,182,294,198,296,45,294,198,279,213,296,45,279,213,267,23,267,23,279,213,265,103,267,23,265,103,262,76,267,23,262,76,253,55,267,23,253,55,238,40,267,23,238,40,230,9,263,126,265,103,279,213,263,126,279,213,258,230,263,126,258,230,255,146,185,205,218,184,228,249,228,249,218,184,241,165,228,249,241,165,258,230,258,230,241,165,255,146,185,20,185,205,185,273,185,20,185,273,161,217,185,20,161,217,185,-60,185,465,185,509,161,217,185,465,161,217,185,273,185,465,185,273,185,446,185,465,185,446,216,462,161,0,161,217,161,20,161,0,161,20,128,1,128,1,161,20,126,24,128,1,126,24,100,5,100,5,126,24,96,37,100,5,96,37,76,12,76,12,96,37,72,59,76,12,72,59,54,89,53,22,76,12,54,
-89,53,22,54,89,41,127,53,22,41,127,30,127,53,22,30,127,30,36,185,509,161,509,161,446,161,446,161,509,161,465,161,446,161,217,185,509,99,411,114,426,123,459,123,459,114,426,134,438,123,459,134,438,161,465,161,465,134,438,161,446,89,446,62,425,75,274,89,446,75,274,88,373,89,446,88,373,91,393,89,446,91,393,99,411,89,446,99,411,123,459,88,373,75,274,90,355,90,355,75,274,111,247,90,355,111,247,97,340,97,340,111,247,110,324,37,359,40,327,43,397,43,397,40,327,53,299,43,397,53,299,62,425,62,425,53,299,75,274,110,324,111,247,131,307,131,307,111,247,161,217,131,307,161,217,161,285,161,285,161,217,161,446,230,9,238,40,215,28,230,9,215,28,185,20,230,9,185,20,185,0,185,-60,161,217,161,0,185,-60,161,0,161,-60,185,273,185,205,228,249,456,188,462,171,469,200,469,200,462,171,464,151,474,100,464,151,459,107,474,100,459,107,457,55,457,55,459,107,445,68,457,55,445,68,432,19,432,19,445,68,424,35,432,19,424,35,401,-4,401,-4,424,35,399,13,401,-4,399,13,370,5,370,5,358,8,366,-12,366,-12,358,8,347,14,366,-12,347,14,338,25,338,-7,366,-12,338,25,338,-7,338,25,333,38,338,-7,333,38,331,53,338,-7,331,53,315,5,342,114,353,145,374,223,374,223,353,145,368,173,374,223,368,173,386,195,386,195,391,201,413,231,413,231,391,201,398,205,413,231,398,205,405,209,338,201,308,168,315,5,338,201,315,5,331,53,338,201,331,53,334,83,338,201,334,83,342,114,338,201,342,114,374,223,280,84,285,53,288,127,288,127,285,53,297,26,288,127,297,26,308,168,308,168,297,26,315,5,456,188,455,217,447,201,447,201,455,217,436,228,447,201,436,228,435,209,435,209,436,228,420,212,413,211,420,212,413,231,413,211,413,231,405,209,413,231,374,223,386,195,436,228,413,231,420,212,474,100,480,149,478,178,474,100,478,178,469,200,474,100,469,200,464,151,370,5,366,-12,401,-4,94,319,98,343,99,444,99,444,98,343,105,366,99,444,105,366,136,465,136,465,105,366,114,389,136,465,114,389,126,410,126,410,134,422,136,465,136,465,134,422,141,432,136,465,141,432,178,473,178,
-473,141,432,150,440,178,473,150,440,162,447,108,256,125,228,119,249,119,249,125,228,132,247,161,255,132,247,138,229,161,255,138,229,151,232,99,266,94,280,98,233,99,266,98,233,125,228,99,266,125,228,108,256,94,280,92,296,98,233,98,233,92,296,76,246,76,246,92,296,99,444,99,444,92,296,94,319,207,430,215,426,209,462,207,430,209,462,201,434,201,434,209,462,201,467,201,434,201,467,196,437,196,437,201,467,193,471,196,437,193,471,190,442,190,442,193,471,186,473,190,442,186,473,183,448,183,448,186,473,178,473,183,448,178,473,177,455,346,421,348,444,330,413,330,413,348,444,328,432,330,413,328,432,313,409,313,409,328,432,310,428,313,409,310,428,292,408,292,408,310,428,287,427,272,427,259,430,262,411,272,427,262,411,272,409,272,427,272,409,282,408,272,427,282,408,287,427,247,436,239,418,251,414,247,436,251,414,259,430,259,430,251,414,262,411,234,443,220,454,220,422,234,443,220,422,223,416,234,443,223,416,225,409,234,443,225,409,225,398,234,443,225,398,231,328,234,443,231,328,239,357,234,443,239,357,239,418,234,443,239,418,247,436,174,244,185,254,186,277,186,277,185,254,204,275,186,277,204,275,207,310,207,310,204,275,219,301,207,310,219,301,220,352,220,352,219,301,231,328,220,352,231,328,225,398,434,495,404,495,377,448,377,448,404,495,371,463,377,448,371,463,361,432,361,432,371,463,348,444,361,432,348,444,346,421,377,448,101,-12,134,-12,377,448,134,-12,434,495,241,387,241,393,241,399,241,387,241,399,241,405,241,387,241,405,240,411,241,387,240,411,239,418,241,387,239,418,239,357,163,237,174,244,186,277,163,237,186,277,161,255,163,237,161,255,151,232,220,454,209,462,215,426,220,454,215,426,220,422,43,324,47,293,50,370,50,370,47,293,58,267,50,370,58,267,70,411,70,411,58,267,76,246,70,411,76,246,99,444,132,247,125,228,138,229,178,473,162,447,177,455,292,408,287,427,282,408,455,217,456,188,469,200,214,469,185,455,199,412,199,412,185,455,197,393,198,197,197,393,185,455,198,197,185,455,177,240,166,264,145,217,177,240,166,264,177,240,185,455,166,264,185,455,162,432,166,264,162,432,156,290,139,248,100,
-222,105,173,139,248,105,173,121,195,139,248,121,195,145,217,139,248,145,217,166,264,100,222,70,193,75,7,100,222,75,7,94,122,100,222,94,122,97,149,100,222,97,149,105,173,110,63,98,89,108,-4,108,-4,98,89,94,122,75,7,70,193,50,29,50,29,70,193,48,162,50,29,48,162,35,58,35,58,48,162,34,129,35,58,34,129,30,96,142,350,144,332,147,403,147,403,144,332,149,312,147,403,149,312,162,432,162,432,149,312,156,290,259,55,237,43,241,12,241,12,237,43,218,34,241,12,218,34,212,0,212,0,218,34,199,30,212,0,199,30,181,-6,181,-6,199,30,180,28,153,32,129,44,149,-8,153,32,149,-8,181,-6,153,32,181,-6,180,28,110,63,108,-4,149,-8,110,63,149,-8,129,44,344,105,352,158,327,124,344,105,327,124,350,13,350,13,327,124,326,31,326,31,327,124,306,150,326,31,306,150,300,55,300,55,306,150,286,177,300,55,286,177,283,73,283,73,286,177,269,204,283,73,269,204,260,101,260,101,269,204,252,234,260,101,252,234,239,129,239,129,252,234,235,269,239,129,235,269,225,291,218,161,239,129,225,291,218,161,225,291,213,315,218,161,213,315,205,335,218,161,205,335,200,354,218,161,200,354,198,197,198,373,197,393,198,197,198,373,198,197,200,354,199,412,207,428,214,469,214,469,207,428,218,440,214,469,218,440,248,473,248,473,218,440,234,448,248,473,234,448,252,451,252,451,270,448,279,470,279,470,270,448,285,439,279,470,285,439,305,459,305,459,285,439,297,426,305,459,297,426,304,409,304,366,309,311,306,389,306,389,309,311,326,441,326,441,309,311,329,333,326,441,329,333,339,417,339,417,329,333,340,358,339,417,340,358,344,387,305,459,304,409,306,389,305,459,306,389,326,441,279,470,248,473,252,451,257,308,235,269,278,290,257,308,278,290,280,326,280,326,278,290,309,311,280,326,309,311,295,345,295,345,309,311,304,366,257,308,225,291,235,269,270,30,300,55,283,73,270,30,283,73,259,55,270,30,259,55,241,12,344,105,350,13,363,82,363,82,350,13,373,0,363,82,373,0,383,64,383,64,373,0,396,-6,383,64,396,-6,403,51,403,51,396,-6,420,-8,403,51,420,-8,426,43,426,43,420,-8,447,
--5,426,43,447,-5,450,41,450,41,447,-5,471,4,450,41,471,4,465,42,378,276,386,270,498,298,498,298,386,270,391,262,498,298,391,262,392,251,392,251,398,187,414,213,392,251,414,213,432,242,432,242,442,257,392,251,392,251,442,257,452,269,392,251,452,269,464,277,479,282,498,284,498,298,479,282,498,298,464,277,464,277,498,298,392,251,365,281,378,276,498,298,365,281,498,298,347,298,365,281,347,298,347,284,392,251,390,231,398,187,398,187,390,231,383,210,398,187,383,210,382,161,382,161,383,210,370,186,382,161,370,186,364,134,364,134,370,186,352,158,364,134,352,158,344,105,525,70,515,77,511,42,511,42,515,77,502,63,511,42,502,63,493,20,493,20,502,63,490,53,493,20,490,53,478,46,478,46,465,42,471,4,478,46,471,4,493,20,108,-4,94,122,75,7,142,350,147,403,141,368,34,444,35,428,35,453,35,453,35,428,38,405,35,453,38,405,39,462,39,462,38,405,43,376,39,462,43,376,46,468,46,468,43,376,49,341,46,468,49,341,54,472,54,472,49,341,56,302,54,472,56,302,64,473,64,473,56,302,70,302,64,473,70,302,74,472,74,472,70,302,78,341,74,472,78,341,82,468,82,468,78,341,84,376,82,468,84,376,88,462,88,462,84,376,89,406,88,462,89,406,92,454,92,454,89,406,92,429,92,454,92,429,93,445,34,177,41,105,41,251,41,251,41,105,62,37,41,251,62,37,62,318,62,318,62,37,97,-24,62,318,97,-24,94,178,94,178,97,378,62,318,163,413,213,462,206,473,163,413,206,473,145,430,163,413,145,430,129,365,94,178,97,252,97,378,97,378,97,252,108,312,97,378,108,312,145,430,145,430,108,312,129,365,163,-62,129,-11,144,-79,163,-62,144,-79,205,-123,163,-62,205,-123,213,-112,107,43,97,106,97,-24,107,43,97,-24,144,-79,107,43,144,-79,129,-11,94,178,97,-24,97,106,136,244,139,171,139,171,171,32,139,171,136,97,171,32,136,97,136,-26,136,-26,136,97,126,36,136,-26,126,36,105,-15,136,244,139,171,170,311,170,311,139,171,171,32,170,311,171,32,192,244,192,244,171,32,192,99,192,244,192,99,199,173,135,374,88,429,106,363,135,374,106,363,127,307,135,374,127,307,136,244,135,
-374,136,244,170,311,72,413,106,363,88,429,72,413,88,429,29,473,72,413,29,473,20,462,20,-112,27,-123,71,-64,71,-64,27,-123,87,-79,71,-64,87,-79,105,-15,105,-15,87,-79,136,-26,96,355,96,355,110,353,96,355,110,353,98,400,96,355,98,400,91,406,96,355,91,406,85,411,96,355,85,411,78,413,96,355,78,413,78,360,72,414,64,413,65,365,72,414,65,365,78,360,72,414,78,360,78,413,50,396,51,378,53,403,53,403,51,378,56,371,53,403,56,371,58,409,58,409,56,371,65,365,58,409,65,365,64,413,114,274,121,281,123,309,123,309,121,281,125,286,123,309,125,286,135,314,135,314,125,286,128,290,135,314,128,290,132,294,132,294,136,297,135,314,135,314,136,297,149,321,109,305,91,302,97,256,109,305,97,256,104,263,109,305,104,263,114,274,109,305,114,274,123,309,154,196,160,190,155,236,155,236,160,190,158,244,162,256,158,244,160,190,162,256,160,190,167,187,201,220,200,225,201,204,201,220,201,204,202,213,201,220,202,213,202,216,198,230,196,236,196,197,198,230,196,197,201,204,198,230,201,204,200,225,191,251,187,266,190,191,191,251,190,191,196,197,191,251,196,197,196,236,187,266,184,281,190,191,190,191,184,281,183,297,190,191,183,297,183,187,183,187,183,297,182,313,176,473,168,472,168,361,176,473,168,361,169,349,176,473,169,349,169,320,176,473,169,320,174,185,176,473,174,185,183,187,176,473,183,187,182,313,176,473,182,313,182,340,176,473,182,340,182,357,176,473,182,357,184,472,169,340,169,320,169,349,168,472,161,469,162,399,168,472,162,399,165,386,168,472,165,386,167,373,168,472,167,373,168,361,158,413,162,399,161,469,158,413,161,469,156,463,158,413,156,463,155,422,285,414,277,415,280,361,280,361,277,415,267,412,280,361,267,412,266,359,266,359,267,412,256,404,266,359,256,404,249,355,249,355,256,404,244,393,249,355,244,393,235,352,235,352,244,393,233,381,235,352,233,381,223,370,223,370,215,363,221,347,221,347,215,363,208,357,221,347,208,357,206,340,206,340,208,357,201,352,206,340,201,352,192,346,182,340,182,320,188,316,182,340,188,316,188,330,182,340,188,330,192,346,192,346,188,330,206,340,246,305,232,
-309,236,275,246,305,236,275,246,263,246,305,246,263,254,255,246,305,254,255,261,302,278,245,286,246,289,294,289,294,286,246,293,250,289,294,293,250,297,289,297,289,293,250,299,256,297,289,299,256,302,281,302,281,299,256,302,263,302,281,302,263,303,272,277,298,261,302,262,249,277,298,262,249,270,246,277,298,270,246,278,245,277,298,278,245,289,294,302,388,301,397,301,379,301,379,301,397,298,405,301,379,298,405,297,371,297,371,298,405,292,410,297,371,292,410,290,366,290,366,292,410,285,414,290,366,285,414,280,361,223,370,221,347,235,352,225,287,236,275,232,309,225,287,232,309,218,313,225,287,218,313,215,297,205,319,194,326,196,310,205,319,196,310,205,304,205,319,205,304,215,297,205,319,215,297,218,313,200,456,197,463,199,430,200,456,199,430,200,437,200,456,200,437,201,443,200,456,201,443,202,448,186,390,189,402,191,468,191,468,189,402,194,415,191,468,194,415,197,463,197,463,194,415,196,423,197,463,196,423,199,430,184,472,182,357,182,367,184,472,182,367,184,378,184,472,184,378,186,390,184,472,186,390,191,468,188,330,188,316,196,310,188,330,196,310,194,326,174,185,169,320,169,313,174,185,169,313,168,296,174,185,168,296,167,282,174,185,167,282,167,187,165,269,162,256,167,187,165,269,167,187,167,282,141,301,147,306,149,321,149,321,147,306,156,311,149,321,156,311,164,330,164,330,156,311,169,320,164,330,169,320,169,340,106,391,110,353,119,378,119,378,110,353,122,349,119,378,122,349,130,367,130,367,122,349,135,344,130,367,135,344,142,357,142,357,135,344,149,338,142,357,149,338,154,349,154,349,149,338,164,330,154,349,164,330,169,340,151,444,152,437,152,457,152,457,152,437,153,430,152,457,153,430,156,463,156,463,153,430,155,422,155,236,152,229,154,196,154,196,152,229,151,222,154,196,151,222,151,203,151,203,151,222,150,216,151,203,150,216,149,211,91,302,75,298,80,246,91,302,80,246,85,248,91,302,85,248,91,251,91,302,91,251,97,256,48,270,49,262,49,280,49,280,49,262,52,255,49,280,52,255,54,287,54,287,52,255,57,250,54,287,57,250,63,293,63,293,57,250,64,246,63,293,64,246,75,298,75,298,64,246,73,
-245,75,298,73,245,80,246,98,400,110,353,106,391,149,321,136,297,141,301,151,444,152,457,151,449,262,249,261,302,254,255,51,378,50,396,49,388,263,383,216,383,263,-28,263,-28,216,383,216,200,263,-28,216,200,216,154,216,154,216,200,34,200,216,154,34,200,34,154,263,154,445,154,263,200,263,200,445,154,445,200,263,-28,216,154,216,-28,88,-2,92,-1,98,68,98,68,92,-1,96,-1,98,68,96,-1,99,-1,99,-1,102,-1,114,60,114,60,102,-1,105,-2,114,60,105,-2,107,-4,38,31,40,19,40,45,40,45,40,19,45,9,40,45,45,9,46,56,46,56,45,9,53,2,46,56,53,2,55,64,55,64,53,2,65,-2,55,64,65,-2,66,69,66,69,65,-2,79,-3,66,69,79,-3,80,71,80,71,79,-3,83,-3,80,71,83,-3,98,68,98,68,83,-3,88,-2,137,10,134,31,133,-14,133,-14,134,31,126,47,133,-14,126,47,123,-38,123,-38,126,47,114,60,123,-38,114,60,109,-9,109,-9,107,-23,123,-38,123,-38,107,-23,107,-61,114,60,107,-4,109,-6,114,60,109,-6,109,-9,114,60,98,68,99,-1,51,-84,58,-97,72,-69,72,-69,58,-97,85,-81,72,-69,85,-81,88,-53,88,-53,85,-81,107,-61,88,-53,107,-61,100,-38,100,-38,107,-61,107,-23,199,136,199,180,27,180,199,136,27,180,27,136,49,30,51,18,51,43,51,43,51,18,56,8,51,43,56,8,57,54,57,54,56,8,65,0,57,54,65,0,65,63,65,63,65,0,75,-5,65,63,75,-5,76,68,76,68,75,-5,87,-7,76,68,87,-7,88,70,88,70,87,-7,100,-5,88,70,100,-5,100,68,100,68,100,-5,110,0,100,68,110,0,111,62,111,62,110,0,119,8,111,62,119,8,119,53,119,53,119,8,125,19,119,53,125,19,125,42,125,42,125,19,127,30,201,473,154,473,-5,-9,201,473,-5,-9,41,-9,142,445,173,455,173,455,178,473,173,455,207,445,178,473,207,445,229,462,229,462,207,445,233,417,229,462,233,417,272,429,272,429,233,417,251,370,272,429,251,370,262,307,233,46,235,3,251,91,251,91,235,3,280,40,251,91,280,40,262,151,262,151,280,40,266,227,272,429,266,227,280,40,272,429,280,40,305,378,305,378,280,40,310,94,305,378,310,94,325,311,325,
-311,310,94,327,160,325,311,327,160,333,231,175,9,175,-9,207,18,207,18,175,-9,235,3,207,18,235,3,233,46,99,371,117,417,118,461,118,461,117,417,142,445,118,461,142,445,178,473,178,473,142,445,173,455,17,235,22,166,23,308,23,308,22,166,38,99,23,308,38,99,41,373,41,373,38,99,68,43,41,373,68,43,73,425,73,425,68,43,88,153,73,425,88,153,84,230,84,230,88,308,73,425,73,425,88,308,99,371,73,425,99,371,118,461,142,18,117,46,113,4,142,18,113,4,175,-9,142,18,175,-9,175,9,113,4,117,46,99,91,113,4,99,91,88,153,113,4,88,153,68,43,272,429,262,307,266,227,141,31,128,20,276,0,276,0,128,20,110,14,276,0,110,14,83,10,111,412,118,413,203,473,203,473,118,413,123,414,203,473,123,414,128,415,128,415,136,414,203,473,203,473,136,414,142,410,203,473,142,410,146,403,230,17,218,25,149,66,149,66,218,25,211,37,149,66,211,37,149,380,148,393,149,380,203,473,148,393,203,473,146,403,203,473,77,409,97,407,203,473,97,407,104,410,203,473,104,410,111,412,209,53,209,471,203,473,209,53,203,473,149,380,209,53,149,380,211,37,276,0,276,10,249,12,276,0,249,12,230,17,276,0,230,17,147,46,276,0,147,46,141,31,276,0,83,10,83,0,147,46,230,17,149,66,97,407,77,409,77,400,36,330,53,366,54,418,54,418,53,366,70,392,54,418,70,392,82,448,82,448,70,392,89,409,82,448,89,409,120,467,120,467,89,409,111,418,120,467,111,418,138,421,138,421,172,417,166,473,166,473,172,417,210,467,34,380,21,334,36,330,34,380,36,330,54,418,233,288,239,214,236,323,236,323,239,214,246,450,246,450,239,214,265,250,246,450,265,250,273,423,273,423,265,250,282,284,273,423,282,284,290,390,290,390,282,284,293,317,290,390,293,317,296,350,246,450,210,467,219,385,246,450,219,385,232,357,246,450,232,357,236,323,210,467,172,417,199,405,210,467,199,405,219,385,223,253,205,218,206,177,223,253,206,177,239,214,223,253,239,214,233,288,20,0,294,0,20,9,20,9,294,0,91,53,20,9,91,53,145,141,145,141,91,53,206,177,145,141,206,177,179,181,179,181,206,
-177,205,218,166,473,120,467,138,421,297,67,285,58,294,0,294,0,285,58,271,54,294,0,271,54,255,53,294,0,255,53,91,53,332,96,322,100,309,80,332,96,309,80,297,67,332,96,297,67,294,0,31,360,43,357,46,397,46,397,43,357,60,385,46,397,60,385,67,429,67,429,60,385,79,405,67,429,79,405,95,453,95,453,79,405,100,420,95,453,100,420,128,468,128,468,100,420,122,428,128,468,122,428,147,431,147,431,172,428,169,473,169,473,172,428,205,469,172,428,193,420,205,469,205,469,193,420,209,405,205,469,209,405,235,456,235,456,209,405,219,386,235,456,219,386,223,360,223,360,220,336,237,298,237,298,220,336,213,280,237,298,256,317,258,436,258,436,256,317,269,337,258,436,269,337,273,409,273,409,269,337,276,357,273,409,276,357,278,377,237,298,258,436,235,456,237,298,235,456,223,360,212,280,213,280,220,336,212,280,220,336,212,314,212,280,212,314,204,213,212,280,204,213,225,198,212,280,225,198,229,273,229,273,240,177,242,266,242,266,240,177,249,152,242,266,249,152,253,260,253,260,249,152,252,123,270,55,252,123,247,89,270,55,247,89,245,31,245,31,247,89,234,59,245,31,234,59,215,13,215,13,234,59,215,36,215,13,215,36,189,21,185,279,178,224,204,213,185,279,204,213,201,295,201,295,204,213,212,314,302,153,300,175,300,131,300,131,300,175,296,195,300,131,296,195,296,111,296,111,296,195,290,213,296,111,290,213,289,91,289,91,290,213,282,229,289,91,282,229,280,72,280,72,282,229,271,244,280,72,271,244,270,55,270,55,271,244,262,252,270,55,262,252,253,260,145,-7,181,0,149,16,149,16,181,0,160,16,189,21,160,16,181,0,189,21,181,0,215,13,122,246,107,241,128,231,122,246,128,231,135,251,135,251,128,231,145,230,135,251,145,230,147,256,147,256,145,230,158,229,147,256,158,229,157,261,157,261,158,229,166,266,185,279,166,266,169,227,185,279,169,227,178,224,169,473,128,468,147,431,166,266,158,229,169,227,145,-7,149,16,138,18,145,-7,138,18,127,22,145,-7,127,22,114,28,145,-7,114,28,107,-9,107,-9,114,28,100,37,107,-9,100,37,89,44,107,-9,89,44,80,49,107,-9,80,49,79,
--7,80,49,72,53,79,-7,79,-7,72,53,64,55,79,-7,64,55,58,-2,58,-2,64,55,57,55,58,-2,57,55,48,54,42,5,58,-2,48,54,42,5,48,54,40,51,42,5,40,51,34,45,42,5,34,45,32,16,30,38,29,30,32,16,30,38,32,16,34,45,128,231,107,241,107,231,252,123,270,55,253,260,229,273,225,198,240,177,9,117,205,117,9,162,9,162,205,117,37,162,9,162,37,162,228,473,228,473,37,162,205,402,228,473,205,402,259,0,259,0,205,402,205,162,259,0,205,162,205,117,205,117,205,162,37,162,228,473,259,0,259,473,259,162,259,117,331,117,259,162,331,117,331,162,259,0,205,117,205,0,296,133,298,170,298,191,296,133,298,191,295,210,296,133,295,210,290,227,296,133,290,227,288,100,249,288,249,134,255,46,249,288,255,46,273,259,273,259,255,46,274,71,273,259,274,71,283,243,283,243,274,71,288,100,283,243,288,100,290,227,209,12,230,24,230,67,230,67,230,24,255,46,230,67,255,46,244,99,244,99,255,46,249,134,155,16,164,-4,183,23,183,23,164,-4,187,2,183,23,187,2,209,41,209,41,187,2,209,12,209,41,209,12,230,67,282,466,275,464,277,412,282,466,277,412,280,414,282,466,280,414,281,417,282,466,281,417,306,477,282,466,306,477,288,469,266,463,269,408,275,464,275,464,269,408,273,410,275,464,273,410,277,412,294,474,288,469,306,477,294,474,306,477,300,481,122,463,98,348,127,408,122,463,127,408,266,463,266,463,127,408,263,408,266,463,263,408,269,408,53,288,91,286,98,348,98,348,91,286,125,279,98,348,125,279,151,337,151,337,125,279,155,268,151,337,155,268,192,325,192,325,155,268,180,254,192,325,180,254,202,239,202,239,219,223,223,309,223,309,219,223,232,204,223,309,232,204,249,288,249,288,232,204,241,183,249,288,241,183,247,160,122,463,45,298,46,290,122,463,46,290,47,289,122,463,47,289,50,288,122,463,50,288,53,288,122,463,53,288,98,348,45,298,45,297,46,290,46,290,45,297,45,292,45,292,45,297,45,296,45,292,45,296,45,295,111,-9,138,-8,116,30,111,-9,116,30,105,38,111,-9,105,38,92,48,111,-9,92,48,82,54,111,-9,82,54,81,-7,82,
-54,72,58,81,-7,81,-7,72,58,63,60,81,-7,63,60,57,-1,57,-1,63,60,53,60,57,-1,53,60,42,59,38,7,57,-1,42,59,38,7,42,59,34,56,38,7,34,56,27,50,38,7,27,50,26,19,23,43,22,34,26,19,23,43,26,19,27,50,146,17,137,20,138,-8,146,17,138,-8,164,-4,146,17,164,-4,155,16,223,309,192,325,202,239,127,24,116,30,138,-8,127,24,138,-8,137,20,249,288,247,160,249,134,45,292,45,295,45,294,195,299,178,299,205,262,205,262,178,299,170,267,147,265,170,267,161,296,147,265,161,296,144,290,89,186,94,219,100,388,100,388,94,219,106,243,100,388,106,243,106,268,106,268,106,243,125,257,106,268,125,257,126,281,126,281,125,257,147,265,126,281,147,265,144,290,178,299,161,296,170,267,262,91,253,58,255,9,255,9,253,58,237,32,255,9,237,32,232,0,232,0,237,32,216,16,232,0,216,16,207,-7,207,-7,216,16,188,10,207,-7,188,10,180,-9,180,-9,188,10,153,18,180,-9,153,18,149,-6,149,-6,153,18,125,41,149,-6,125,41,120,2,120,2,125,41,105,78,120,2,105,78,95,17,95,17,105,78,93,127,95,17,93,127,89,186,74,36,95,17,89,186,89,186,100,388,74,36,74,36,100,388,73,356,74,36,73,356,57,61,57,61,73,356,52,320,57,61,52,320,46,84,46,84,52,320,36,110,305,60,314,80,321,203,321,203,314,80,321,103,321,203,321,103,327,153,327,153,321,103,326,127,265,131,275,24,277,274,277,274,275,24,292,41,277,274,292,41,304,244,304,244,292,41,305,60,304,244,305,60,321,203,205,262,232,245,241,293,241,293,232,245,250,218,241,293,250,218,277,274,277,274,250,218,261,180,277,274,261,180,265,131,262,91,255,9,275,24,262,91,275,24,265,131,106,268,124,327,136,421,136,421,124,327,156,379,136,421,156,379,173,444,173,444,156,379,199,420,173,444,199,420,213,460,213,460,199,420,252,450,213,460,252,450,259,471,259,471,252,450,313,468,259,471,313,468,313,479,136,421,100,388,106,268,23,195,25,166,27,240,27,240,25,166,29,137,27,240,29,137,36,281,36,281,29,137,36,110,36,281,36,110,52,320,195,299,205,262,241,293,166,-4,314,
-452,259,412,259,412,314,452,314,463,259,412,314,463,109,412,87,410,109,412,314,463,87,410,314,463,56,463,56,463,14,360,27,354,56,463,27,354,43,378,56,463,43,378,57,395,56,463,57,395,71,405,56,463,71,405,87,410,166,-4,259,412,120,-4,234,152,247,227,215,171,215,171,247,227,203,259,215,171,203,259,190,191,190,191,203,259,208,289,190,191,208,289,183,273,183,273,150,294,190,191,190,191,150,294,148,219,127,199,148,219,130,232,92,11,96,76,92,111,92,111,94,136,92,203,92,203,94,136,100,159,92,203,100,159,130,232,130,232,100,159,111,179,130,232,111,179,127,199,41,131,45,67,50,155,50,155,45,67,64,36,50,155,64,36,66,178,66,178,64,36,92,11,66,178,92,11,92,203,92,203,92,11,92,111,150,294,125,315,130,232,150,294,130,232,148,219,125,315,108,337,130,232,130,232,108,337,98,359,130,232,98,359,94,265,94,265,98,359,95,384,98,454,95,384,99,408,98,454,99,408,109,427,179,473,172,454,198,450,179,473,198,450,218,468,218,468,198,450,219,439,218,468,219,439,250,454,250,454,219,439,235,422,250,454,235,422,245,400,255,61,244,40,259,11,259,11,244,40,228,24,259,11,228,24,220,-4,220,-4,228,24,207,14,220,-4,207,14,181,10,181,10,152,14,173,-9,173,-9,152,14,129,-4,129,-4,152,14,127,27,129,-4,127,27,108,47,129,-4,108,47,96,76,129,-4,96,76,92,11,109,427,125,442,135,469,135,469,125,442,146,451,135,469,146,451,179,473,179,473,146,451,172,454,69,432,50,401,53,315,69,432,53,315,69,291,69,432,69,291,94,265,69,432,94,265,95,384,69,432,95,384,98,454,50,401,44,364,46,339,50,401,46,339,53,315,240,281,266,300,246,349,246,349,266,300,248,373,250,454,248,373,266,300,250,454,266,300,275,432,275,432,266,300,284,321,275,432,284,321,291,405,291,405,284,321,294,345,291,405,294,345,297,373,240,281,246,349,239,327,240,281,239,327,226,307,240,281,226,307,208,289,240,281,208,289,203,259,312,109,309,140,305,69,305,69,309,140,298,170,305,69,298,170,287,36,287,36,298,170,278,198,287,36,278,198,259,87,259,87,278,198,256,111,248,133,256,111,278,
-198,248,133,278,198,247,227,248,133,247,227,234,152,259,87,259,11,287,36,181,10,173,-9,220,-4,255,61,259,11,259,87,250,454,245,400,248,373,98,454,109,427,135,469,45,67,41,131,39,105,86,355,90,377,79,442,79,442,90,377,95,398,79,442,95,398,119,465,119,465,95,398,102,416,119,465,102,416,110,430,110,430,118,438,119,465,119,465,118,438,127,445,119,465,127,445,166,473,166,473,127,445,137,450,166,473,137,450,149,453,166,473,149,453,161,454,161,454,194,447,166,473,166,473,194,447,193,471,172,196,147,166,171,167,172,196,171,167,193,171,172,196,142,202,147,166,118,220,100,248,105,172,118,220,105,172,147,166,118,220,147,166,142,202,85,332,86,355,79,442,85,332,79,442,70,191,85,332,70,191,89,286,89,286,70,191,105,172,89,286,105,172,100,248,21,308,27,260,28,361,28,361,27,260,44,221,28,361,44,221,48,407,48,407,44,221,70,191,48,407,70,191,79,442,192,198,172,196,193,171,192,198,193,171,214,204,214,204,193,171,214,179,214,204,214,179,233,214,233,214,214,179,234,190,233,214,234,190,248,229,248,229,234,190,252,205,248,229,252,205,253,248,253,248,252,205,267,101,253,248,267,101,253,276,249,340,253,276,259,439,249,340,259,439,239,454,193,471,194,447,217,464,217,464,194,447,220,425,217,464,220,425,239,454,239,454,220,425,238,389,239,454,238,389,249,340,321,276,319,310,318,228,318,228,319,310,314,342,318,228,314,342,308,182,308,182,314,342,304,371,308,182,304,371,292,397,308,182,292,397,291,140,291,140,292,397,277,420,291,140,277,420,267,101,267,101,277,420,259,439,267,101,259,439,253,276,41,-15,91,-6,99,16,99,16,91,-6,132,4,99,16,132,4,152,46,152,46,132,4,169,19,152,46,169,19,196,88,196,88,169,19,203,40,196,88,203,40,230,142,230,142,203,40,238,68,230,142,238,68,252,205,252,205,238,68,267,101,99,16,39,-1,41,-15,59,295,59,270,64,306,64,306,59,270,65,259,64,306,65,259,73,314,73,314,65,259,73,251,73,314,73,251,83,319,83,319,73,251,84,246,83,319,84,246,96,321,96,321,84,246,96,244,96,321,96,244,108,319,108,319,96,244,108,246,108,
-319,108,246,119,313,119,313,108,246,119,251,119,313,119,251,127,305,127,305,119,251,127,259,127,305,127,259,132,294,132,294,127,259,132,270,132,294,132,270,134,282,59,43,59,19,64,54,64,54,59,19,65,8,64,54,65,8,73,63,73,63,65,8,73,0,73,63,73,0,83,68,83,68,73,0,84,-5,83,68,84,-5,96,70,96,70,84,-5,96,-7,96,70,96,-7,108,68,108,68,96,-7,108,-5,108,68,108,-5,119,62,119,62,108,-5,119,0,119,62,119,0,127,54,127,54,119,0,127,8,127,54,127,8,132,43,132,43,127,8,132,19,132,43,132,19,134,30,59,19,59,43,57,30,59,270,59,295,57,282,58,295,58,270,63,306,63,306,58,270,64,259,63,306,64,259,72,314,72,314,64,259,72,251,72,314,72,251,83,319,83,319,72,251,83,246,83,319,83,246,95,321,95,321,83,246,95,244,95,321,95,244,107,319,107,319,95,244,107,246,107,319,107,246,118,313,118,313,107,246,118,251,118,313,118,251,126,305,126,305,118,251,126,259,126,305,126,259,132,294,132,294,126,259,132,270,132,294,132,270,134,282,105,-2,109,-1,115,68,115,68,109,-1,113,-1,115,68,113,-1,116,-1,116,-1,119,-1,131,60,131,60,119,-1,122,-3,131,60,122,-3,124,-5,56,32,58,20,58,45,58,45,58,20,63,10,58,45,63,10,64,56,64,56,63,10,71,2,64,56,71,2,73,64,73,64,71,2,82,-1,73,64,82,-1,84,69,84,69,82,-1,97,-3,84,69,97,-3,98,71,98,71,97,-3,101,-3,98,71,101,-3,115,68,115,68,101,-3,105,-2,153,9,150,30,150,-16,150,-16,150,30,143,47,150,-16,143,47,140,-40,140,-40,143,47,131,60,140,-40,131,60,126,-10,126,-10,124,-63,140,-40,131,60,124,-5,125,-7,131,60,125,-7,126,-10,131,60,115,68,116,-1,124,-63,126,-10,123,-24,124,-63,123,-24,116,-39,124,-63,116,-39,105,-54,124,-63,105,-54,102,-82,89,-69,68,-84,75,-97,89,-69,75,-97,102,-82,89,-69,102,-82,105,-54,58,270,58,295,56,282,132,178,434,328,434,373,132,178,434,373,39,181,132,178,39,181,434,-16,132,178,434,-16,434,27,434,-16,39,181,39,174,34,270,34,224,446,224,34,270,446,224,446,270,34,130,34,
-84,446,84,34,130,446,84,446,130,434,174,434,181,39,373,434,174,39,373,39,328,434,174,39,328,341,178,434,174,341,178,39,27,434,174,39,27,39,-16,84,409,84,409,84,409,84,409,93,455,69,434,84,409,69,434,70,329,84,409,70,329,81,327,202,468,162,473,174,448,174,448,162,473,149,452,129,450,149,452,162,473,129,450,162,473,125,469,84,409,87,422,93,455,93,455,87,422,97,434,93,455,97,434,125,469,125,469,97,434,112,443,125,469,112,443,129,450,48,373,49,357,53,406,53,406,49,357,54,344,53,406,54,344,69,434,69,434,54,344,61,335,69,434,61,335,70,329,86,396,91,328,93,386,93,386,91,328,99,332,93,386,99,332,101,378,101,378,99,332,105,339,101,378,105,339,107,369,107,369,105,339,109,347,107,369,109,347,110,357,91,328,86,396,84,409,91,328,84,409,81,327,166,69,166,-4,178,67,178,67,166,-4,178,-3,178,67,178,-3,188,61,188,61,178,-3,188,2,188,61,188,2,196,53,196,53,188,2,196,10,196,53,196,10,201,43,201,43,196,10,201,20,201,43,201,20,203,31,129,31,131,20,131,43,131,43,131,20,135,10,131,43,135,10,136,54,136,54,135,10,143,2,136,54,143,2,144,62,144,62,143,2,154,-3,144,62,154,-3,154,67,154,67,154,-3,166,-4,154,67,166,-4,166,69,174,448,195,437,202,468,202,468,195,437,211,420,202,468,211,420,237,454,237,454,211,420,222,397,237,454,222,397,226,370,226,370,224,344,247,262,247,262,224,344,218,318,247,262,218,318,216,225,216,225,218,318,210,292,216,225,210,292,203,206,203,206,210,292,200,266,203,206,200,266,192,187,192,187,200,266,190,239,192,187,190,239,183,165,183,165,190,239,177,205,183,165,177,205,176,142,176,142,177,205,171,115,283,400,265,431,268,292,283,400,268,292,281,316,283,400,281,316,288,339,283,400,288,339,290,363,247,262,268,292,265,431,247,262,265,431,237,454,247,262,237,454,226,370,171,115,177,205,168,177,171,115,168,177,163,153,171,115,163,153,160,133,171,115,160,133,159,115,218,56,176,100,185,34,185,34,176,100,149,157,185,34,149,157,130,85,130,85,149,157,140,226,147,395,140,226,142,257,147,395,142,257,147,
-288,147,288,156,318,180,425,180,425,156,318,169,346,180,425,169,346,184,371,184,371,207,399,207,442,207,442,207,399,234,421,207,442,234,421,237,456,237,456,234,421,265,438,237,456,265,438,268,466,268,466,265,438,299,448,268,466,299,448,301,471,301,471,299,448,338,452,301,471,338,452,337,473,337,473,338,452,410,463,130,85,140,226,147,395,130,85,147,395,120,360,130,85,120,360,99,320,130,85,99,320,94,151,86,276,81,229,94,151,86,276,94,151,99,320,538,261,541,170,555,334,538,261,555,334,528,321,528,321,555,334,523,390,528,321,523,390,499,373,499,373,523,390,474,434,499,373,474,434,456,415,456,415,474,434,410,463,456,415,410,463,401,442,401,442,410,463,338,452,401,442,338,452,337,452,337,452,338,452,299,448,207,442,180,425,184,371,481,51,452,38,454,14,454,14,452,38,424,28,454,14,424,28,422,3,422,3,424,28,396,22,422,3,396,22,394,-4,394,-4,396,22,368,18,394,-4,368,18,366,-8,366,-8,368,18,341,17,366,-8,341,17,338,-9,338,-9,341,17,274,27,338,-9,274,27,255,1,255,1,274,27,218,56,255,1,218,56,185,34,387,350,375,354,379,323,379,323,375,354,368,325,355,323,368,325,360,355,355,323,360,355,341,317,341,317,360,355,339,353,341,317,339,353,327,307,327,307,339,353,320,347,327,307,320,347,313,293,313,293,320,347,303,337,313,293,303,337,299,276,279,228,284,245,286,324,286,324,284,245,291,261,286,324,291,261,303,337,303,337,291,261,299,276,271,306,274,192,275,210,271,306,275,210,286,324,286,324,275,210,279,228,282,154,286,101,290,142,290,142,286,101,306,103,290,142,306,103,302,134,302,134,306,103,316,131,328,133,316,131,325,109,328,133,325,109,343,120,276,171,274,192,267,104,276,171,267,104,286,101,276,171,286,101,282,154,274,192,271,306,267,104,267,104,271,306,256,284,267,104,256,284,250,115,250,115,256,284,243,259,250,115,243,259,237,131,237,131,243,259,233,233,237,131,233,233,228,152,228,152,233,233,227,206,228,152,227,206,225,179,375,354,360,355,368,325,373,152,375,152,380,193,373,152,380,193,370,172,370,172,360,158,373,152,373,152,360,158,359,134,431,128,425,135,437,100,437,
-100,425,135,421,144,437,100,421,144,420,102,420,102,421,144,420,156,421,162,421,164,420,346,420,346,421,164,421,166,420,346,421,166,422,168,422,168,468,346,420,346,420,346,413,320,420,102,420,346,420,102,420,156,420,346,420,156,420,159,420,346,420,159,421,162,413,320,412,320,420,102,420,102,412,320,405,333,420,102,405,333,403,109,403,109,405,333,401,283,403,109,401,283,399,262,403,109,399,262,395,240,399,298,401,283,405,333,399,298,405,333,397,343,399,298,397,343,395,309,388,318,395,309,397,343,388,318,397,343,387,350,388,318,387,350,379,323,538,261,534,220,541,170,541,170,534,220,520,182,541,170,520,182,513,133,513,133,520,182,501,152,513,133,501,152,478,109,478,109,501,152,477,131,478,109,477,131,450,123,450,123,439,125,478,109,478,109,439,125,437,100,555,334,541,170,560,216,555,334,560,216,566,268,403,109,395,240,390,120,390,120,395,240,388,216,390,120,388,216,380,134,380,134,388,216,380,193,380,134,380,193,375,152,350,146,339,138,343,120,350,146,343,120,359,134,350,146,359,134,360,158,316,131,306,103,325,109,328,133,343,120,339,138,431,128,437,100,439,125,481,51,454,14,490,30,147,395,147,288,180,425,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,
-0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,71,33,59,22,248,0,248,0,59,22,40,16,248,0,40,16,12,13,77,413,79,385,156,434,77,413,156,434,208,463,208,463,156,434,161,437,208,463,161,437,167,438,208,463,167,438,196,438,208,463,196,438,241,433,290,43,271,34,304,5,304,5,271,34,250,29,304,5,250,29,248,0,248,0,250,29,225,26,248,0,225,26,194,26,194,26,177,27,248,0,248,0,177,27,165,30,248,0,165,30,77,52,77,52,165,30,79,79,362,420,325,443,330,254,330,254,325,443,320,343,330,254,320,343,315,312,330,254,315,312,315,249,315,249,315,312,303,287,315,249,303,287,295,245,295,245,303,287,282,270,295,245,282,270,295,244,295,244,282,270,302,200,295,244,302,200,320,238,320,238,302,200,314,190,215,256,227,225,253,260,253,260,227,225,254,221,253,260,254,221,282,270,282,270,254,221,278,213,282,270,278,213,302,200,330,92,325,78,350,21,350,21,325,78,317,66,350,21,317,66,308,56,308,56,290,43,304,5,227,225,215,256,194,227,194,227,215,256,151,256,194,227,151,256,151,228,152,45,151,57,79,385,152,45,79,385,79,79,79,79,165,30,157,36,79,79,157,36,152,45,380,205,368,216,385,47,385,47,368,216,355,224,385,47,355,224,350,21,350,21,355,224,339,232,350,21,339,232,334,125,334,125,333,108,350,21,350,21,333,108,330,92,339,232,320,238,323,177,339,232,323,177,330,162,339,232,330,162,333,144,339,232,333,144,334,125,325,443,273,458,276,421,325,443,276,421,300,402,325,443,300,402,315,375,325,443,315,375,320,343,273,458,208,463,241,433,273,458,241,433,276,421,79,385,151,57,151,415,79,385,151,415,151,424,79,385,151,424,153,430,79,385,153,430,156,434,208,463,12,463,41,447,208,463,41,447,60,442,208,463,60,442,72,431,208,463,72,431,77,413,372,284,380,298,384,387,384,387,380,298,386,313,384,387,386,313,391,347,391,347,386,313,390,
-330,342,260,353,266,362,420,362,420,353,266,362,273,362,420,362,273,384,387,384,387,362,273,372,284,409,160,402,177,407,82,409,160,407,82,415,124,409,160,415,124,413,143,393,192,380,205,385,47,393,192,385,47,407,82,393,192,407,82,402,177,308,56,304,5,350,21,362,420,330,254,342,260,41,447,12,463,12,450,320,238,314,190,323,177,248,0,12,13,12,0,71,33,248,0,77,52,87,52,103,195,101,239,101,239,111,427,87,52,87,52,111,427,83,401,87,52,83,401,63,80,63,80,83,401,61,372,63,80,61,372,45,112,45,112,61,372,43,340,45,112,43,340,31,148,31,148,43,340,30,306,31,148,30,306,22,186,22,186,30,306,22,268,22,186,22,268,20,227,109,157,113,31,119,123,119,123,113,31,144,13,119,123,144,13,133,95,133,95,144,13,152,71,172,53,152,71,178,0,172,53,178,0,194,39,194,39,178,0,214,-6,194,39,214,-6,220,29,220,29,214,-6,252,-9,220,29,252,-9,247,23,247,23,252,-9,276,21,311,24,276,21,300,-5,311,24,300,-5,343,5,103,195,87,52,113,31,103,195,113,31,109,157,152,71,144,13,178,0,356,456,362,410,367,453,367,453,362,410,381,392,367,453,381,392,376,451,376,451,381,392,384,450,392,451,384,450,391,381,392,451,391,381,399,368,384,450,381,392,391,381,319,466,319,436,336,462,336,462,319,436,342,425,336,462,342,425,346,460,346,460,342,425,362,410,346,460,362,410,356,456,302,469,285,472,295,443,302,469,295,443,319,436,302,469,319,436,319,466,285,472,269,473,295,443,295,443,269,473,269,445,211,435,269,445,214,471,211,435,214,471,177,462,434,314,427,473,418,314,418,314,427,473,414,473,418,314,414,473,413,335,413,335,414,473,410,465,413,335,410,465,407,353,407,353,410,465,405,459,407,353,405,459,399,368,399,368,405,459,399,454,399,368,399,454,392,451,443,79,430,91,415,47,415,47,430,91,400,65,415,47,400,65,382,23,382,23,400,65,371,45,382,23,371,45,343,5,343,5,371,45,342,32,343,5,342,32,311,24,276,21,252,-9,300,-5,269,445,269,473,252,473,269,445,252,473,214,471,101,239,108,307,111,427,111,427,108,307,130,364,111,427,130,364,143,448,143,
-448,130,364,164,408,143,448,164,408,177,462,177,462,164,408,211,435,67,34,56,23,208,0,208,0,56,23,38,17,208,0,38,17,11,13,73,80,71,53,154,30,154,30,71,53,208,0,154,30,208,0,164,27,164,27,208,0,178,26,218,27,178,26,208,0,218,27,208,0,249,2,146,420,150,428,73,385,73,385,150,428,157,434,73,385,157,434,200,463,200,463,157,434,167,437,200,463,167,437,181,438,181,438,167,437,181,437,181,438,181,437,220,436,181,438,220,436,200,463,200,463,220,436,252,461,288,8,323,17,305,48,305,48,323,17,330,62,330,62,330,63,357,85,357,85,330,63,356,29,357,85,356,29,384,45,218,27,249,2,251,31,251,31,249,2,288,8,251,31,288,8,279,37,279,37,288,8,305,48,341,440,337,389,360,364,341,440,360,364,378,422,378,422,360,364,379,337,378,422,379,337,410,400,410,400,379,337,392,306,410,400,392,306,400,270,254,431,284,422,299,453,299,453,284,422,311,408,299,453,311,408,341,440,341,440,311,408,337,389,252,461,220,436,254,431,252,461,254,431,299,453,480,234,477,275,476,186,476,186,477,275,468,312,476,186,468,312,464,143,464,143,468,312,454,345,464,143,454,345,445,104,445,104,454,345,434,374,445,104,434,374,418,72,418,72,434,374,410,400,418,72,410,400,403,230,403,230,400,185,418,72,418,72,400,185,392,146,418,72,392,146,384,45,384,45,392,146,377,113,384,45,377,113,357,85,330,62,323,17,356,29,330,62,356,29,330,63,154,30,148,37,73,80,73,80,148,37,145,46,73,80,145,46,73,385,73,385,145,46,145,59,73,385,145,59,145,408,56,442,66,431,200,463,200,463,66,431,71,413,200,463,71,413,73,385,38,447,56,442,200,463,38,447,200,463,11,463,38,447,11,463,11,450,208,0,11,13,11,0,67,34,208,0,71,53,146,420,73,385,145,408,410,400,400,270,403,230,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,68,411,70,385,148,434,68,411,148,434,63,430,63,430,148,434,155,436,63,430,155,436,380,463,380,463,155,436,165,437,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,
-44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,380,463,165,437,257,437,380,463,257,437,298,435,380,463,298,435,327,429,380,463,327,429,346,416,380,463,346,416,357,395,380,463,357,395,365,363,380,463,365,363,382,363,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,380,463,9,463,35,447,380,463,35,447,53,441,380,463,53,441,63,430,357,53,328,37,386,0,386,0,328,37,289,28,386,0,289,28,237,26,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,357,53,386,0,237,26,212,26,386,0,212,26,184,26,386,0,184,26,164,29,386,0,164,29,64,34,386,0,9,13,9,0,35,447,9,463,9,450,246,258,246,229,277,227,326,325,341,161,341,325,53,440,64,429,379,463,379,463,64,429,155,436,379,463,155,436,165,437,379,463,165,437,257,437,379,463,257,437,300,435,70,386,142,51,141,78,141,258,141,229,240,229,141,258,240,229,240,258,270,259,240,258,271,227,270,259,271,227,292,265,292,265,271,227,292,222,292,265,292,222,306,277,306,277,292,222,306,210,306,277,306,210,315,296,315,296,306,210,315,190,315,296,315,190,320,324,320,324,315,190,320,161,320,324,320,161,335,161,379,463,300,435,328,429,379,463,328,429,346,416,379,463,346,416,358,395,379,463,358,395,365,363,379,463,365,363,382,363,70,386,141,78,141,409,70,386,141,409,141,421,70,386,141,421,143,428,70,386,143,428,148,433,70,386,148,433,68,412,155,436,64,429,68,412,155,436,68,412,148,433,36,447,53,440,379,463,36,447,379,463,9,463,36,447,9,463,9,450,205,0,205,13,177,16,205,0,177,16,159,22,205,0,159,22,68,55,205,0,68,55,63,35,205,0,63,35,52,23,205,0,52,23,35,16,205,0,35,16,8,13,205,0,8,13,8,0,70,86,68,55,159,22,70,86,159,22,148,33,70,86,148,33,142,
-51,70,86,142,51,70,386,240,258,240,229,271,227,320,324,335,161,335,324,23,229,25,189,26,274,26,274,25,189,32,153,26,274,32,153,36,315,36,315,32,153,43,121,36,315,43,121,51,352,51,352,43,121,59,91,51,352,59,91,72,385,72,385,59,91,80,65,72,385,80,65,98,413,98,413,80,65,102,227,220,437,225,471,196,427,196,427,225,471,189,463,196,427,189,463,175,414,175,414,189,463,156,397,136,372,156,397,155,451,136,372,155,451,124,434,124,434,98,413,104,267,124,434,104,267,111,306,124,434,111,306,121,341,124,434,121,341,136,372,270,-9,286,18,227,-6,227,-6,286,18,225,27,227,-6,225,27,186,3,186,3,225,27,174,54,186,3,174,54,146,18,146,18,174,54,135,97,146,18,135,97,111,39,111,39,135,97,111,155,111,39,111,155,102,227,362,36,342,26,352,-1,352,-1,342,26,316,20,352,-1,316,20,312,-7,312,-7,316,20,286,18,102,227,80,65,111,39,375,407,372,453,365,455,375,407,365,455,358,421,375,407,378,451,372,453,286,473,273,445,296,444,286,473,296,444,305,471,305,471,296,444,318,439,305,471,318,439,322,468,322,468,318,439,339,431,322,468,339,431,340,463,340,463,339,431,358,421,340,463,358,421,358,457,358,457,358,421,365,455,378,451,387,395,384,450,384,450,387,395,388,450,397,451,388,450,397,382,397,451,397,382,406,367,375,407,387,395,378,451,425,326,441,326,435,473,425,326,435,473,420,473,425,326,420,473,417,466,425,326,417,466,415,348,411,459,405,454,406,367,411,459,406,367,415,348,411,459,415,348,417,466,388,450,387,395,397,382,475,233,496,235,496,248,475,233,496,248,461,227,461,227,496,248,379,198,461,227,379,198,380,171,389,8,380,171,380,61,389,8,380,61,375,47,461,227,380,171,453,218,453,218,380,171,389,8,453,218,389,8,449,202,449,202,389,8,421,22,449,202,421,22,448,179,448,179,421,22,448,39,496,248,317,248,345,232,496,248,345,232,363,227,496,248,363,227,374,216,496,248,374,216,379,198,362,36,352,-1,389,8,362,36,389,8,375,47,265,473,225,471,245,443,265,473,245,443,273,445,265,473,273,445,286,473,189,463,155,451,156,397,225,471,220,437,245,443,312,
--7,286,18,270,-9,345,232,317,248,317,235,397,451,406,367,405,454,104,267,98,413,102,227,69,35,58,23,208,0,208,0,58,23,40,16,208,0,40,16,13,13,13,13,40,16,12,13,209,463,13,463,40,447,209,463,40,447,58,441,209,463,58,441,69,429,209,463,69,429,74,411,209,463,74,411,165,441,209,463,165,441,183,447,209,463,183,447,209,450,75,384,147,53,146,79,146,252,146,220,359,220,146,252,359,220,359,252,359,252,359,220,437,35,359,252,437,35,431,52,75,384,146,79,146,384,75,384,146,384,148,411,75,384,148,411,153,429,75,384,153,429,165,441,75,384,165,441,74,411,353,37,342,24,492,0,492,0,342,24,324,17,492,0,324,17,297,13,466,447,492,450,492,463,466,447,492,463,448,440,448,440,492,463,357,411,448,440,357,411,359,384,431,52,359,384,359,252,430,77,430,384,359,384,359,384,430,384,431,411,359,384,431,411,437,429,492,463,296,463,323,447,492,463,323,447,341,441,492,463,341,441,352,430,492,463,352,430,357,411,492,0,492,13,466,17,492,0,466,17,448,23,492,0,448,23,357,57,492,0,357,57,353,37,359,87,357,57,448,23,359,87,448,23,437,35,359,87,437,35,359,220,208,0,207,13,181,16,208,0,181,16,163,23,208,0,163,23,74,55,208,0,74,55,69,35,75,85,74,55,163,23,75,85,163,23,153,35,75,85,153,35,147,53,75,85,147,53,75,384,208,0,13,13,13,0,492,0,297,13,297,0,359,384,431,52,430,77,323,447,296,463,296,450,448,440,359,384,437,429,40,447,13,463,13,450,73,32,62,21,220,0,220,0,62,21,42,16,220,0,42,16,13,13,13,13,42,16,12,13,220,463,13,463,42,447,220,463,42,447,62,442,220,463,62,442,74,431,220,463,74,431,79,413,220,463,79,413,171,442,220,463,171,442,191,448,220,463,191,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,171,442,80,386,171,442,79,413,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,79,51,220,0,79,51,73,32,220,0,13,
-13,13,0,79,51,171,22,80,78,42,447,13,463,13,450,109,33,104,24,107,-4,107,-4,104,24,97,19,107,-4,97,19,86,17,86,17,79,19,107,-4,107,-4,79,19,66,-9,219,447,248,450,248,463,219,447,248,463,201,441,201,441,248,463,110,413,201,441,110,413,112,385,140,11,112,385,112,66,140,11,112,66,111,47,184,384,185,412,164,39,184,384,164,39,179,78,184,384,179,78,184,130,185,412,190,430,112,385,185,412,112,385,140,11,185,412,140,11,164,39,248,463,47,463,76,447,248,463,76,447,94,441,248,463,94,441,105,431,248,463,105,431,110,413,109,33,107,-4,140,11,109,33,140,11,111,47,66,-9,79,19,74,23,66,-9,74,23,71,30,66,-9,71,30,68,38,66,-9,68,38,64,48,66,-9,64,48,59,58,66,-9,59,58,53,66,66,-9,53,66,47,72,66,-9,47,72,43,-7,47,72,39,76,43,-7,43,-7,39,76,30,77,43,-7,30,77,23,-1,23,-1,30,77,19,75,23,-1,19,75,10,70,23,-1,10,70,9,9,9,9,10,70,3,61,9,9,3,61,0,23,0,23,3,61,-1,51,0,23,-1,51,-3,41,76,447,47,463,47,450,201,441,112,385,190,430,221,450,221,450,192,447,192,447,221,450,221,463,192,447,221,463,174,440,174,440,221,463,85,411,174,440,85,411,87,384,159,50,87,384,87,88,159,50,87,88,165,33,165,33,87,88,176,22,87,384,159,50,158,77,158,244,158,207,177,222,158,244,177,222,283,359,283,359,177,222,233,269,283,359,233,269,363,394,87,384,158,77,158,384,87,384,158,384,159,411,87,384,159,411,163,429,87,384,163,429,174,440,221,463,23,463,51,447,221,463,51,447,70,440,221,463,70,440,80,429,221,463,80,429,85,411,328,405,317,391,363,394,363,394,317,391,301,376,363,394,301,376,283,359,473,463,291,463,309,449,473,463,309,449,320,448,473,463,320,448,329,445,473,463,329,445,334,441,473,463,334,441,337,435,473,463,337,435,338,427,473,463,338,427,428,442,473,463,428,442,448,447,473,463,448,447,473,450,338,427,363,394,389,417,338,427,389,417,409,433,338,427,409,433,428,442,335,417,328,405,363,394,335,417,363,394,338,427,338,21,332,17,506,0,506,0,332,17,324,
-15,506,0,324,15,313,14,342,30,506,0,471,22,342,30,471,22,451,35,342,30,451,35,427,57,342,30,427,57,397,90,342,30,397,90,338,45,397,90,233,269,246,150,397,90,246,150,277,117,397,90,277,117,304,89,397,90,304,89,324,64,397,90,324,64,338,45,488,15,471,22,506,0,488,15,506,0,506,13,341,25,338,21,506,0,341,25,506,0,342,30,294,13,294,0,506,0,294,13,506,0,313,14,220,0,220,13,194,16,220,0,194,16,176,22,220,0,176,22,85,57,220,0,85,57,80,36,220,0,80,36,69,23,220,0,69,23,51,16,220,0,51,16,23,13,220,0,23,13,23,0,85,57,176,22,87,88,246,150,233,269,177,222,309,449,291,463,291,450,51,447,23,463,23,450,206,450,206,450,178,447,178,447,206,450,206,463,178,447,206,463,159,441,159,441,206,463,68,409,159,441,68,409,70,382,142,45,70,382,70,80,142,45,70,80,148,36,148,36,70,80,68,53,148,36,68,53,159,31,159,31,68,53,63,35,159,31,63,35,178,28,178,28,63,35,385,0,178,28,385,0,204,27,204,27,385,0,252,27,141,59,141,384,70,382,70,382,141,384,142,411,70,382,142,411,147,429,206,463,9,463,36,447,206,463,36,447,54,440,206,463,54,440,64,428,206,463,64,428,68,409,388,97,382,87,385,0,385,0,382,87,377,78,385,0,377,78,371,70,371,70,355,54,385,0,385,0,355,54,335,42,385,0,335,42,312,34,419,122,401,122,394,108,419,122,394,108,388,97,419,122,388,97,385,0,284,29,252,27,385,0,284,29,385,0,312,34,385,0,63,35,52,23,385,0,52,23,35,16,385,0,35,16,9,13,385,0,9,13,9,0,70,382,142,45,141,59,36,447,9,463,9,450,159,441,70,382,147,429,69,40,57,25,172,0,172,0,57,25,38,17,172,0,38,17,9,13,466,37,455,24,605,0,605,0,455,24,436,17,605,0,436,17,409,13,578,448,604,450,604,463,578,448,604,463,561,442,561,442,604,463,472,401,561,442,472,401,550,430,550,430,472,401,545,412,561,24,550,35,472,86,472,86,550,35,545,53,472,86,545,53,472,401,472,401,545,53,543,78,472,401,543,78,543,385,284,0,293,0,310,112,310,
-112,293,0,472,401,310,112,472,401,465,463,465,463,472,401,604,463,148,463,10,463,39,447,148,463,39,447,58,441,148,463,58,441,70,430,148,463,70,430,75,411,148,463,75,411,77,384,148,463,77,384,107,384,148,463,107,384,284,0,148,463,284,0,310,112,107,105,107,384,77,384,107,105,77,384,109,67,109,67,77,384,77,105,109,67,77,105,114,41,114,41,77,105,75,66,114,41,75,66,126,25,126,25,75,66,69,40,126,25,69,40,172,0,605,0,605,13,579,17,605,0,579,17,561,24,605,0,561,24,471,57,605,0,471,57,466,37,144,17,126,25,172,0,144,17,172,0,172,13,172,0,9,13,9,0,605,0,409,13,409,0,471,57,561,24,472,86,39,447,10,463,10,450,545,412,472,401,543,385,69,42,57,27,172,0,172,0,57,27,38,18,172,0,38,18,9,13,359,446,369,443,495,463,495,463,369,443,377,439,495,463,377,439,384,432,384,432,390,424,495,463,495,463,390,424,393,413,495,463,393,413,454,442,454,442,393,413,448,438,454,442,448,438,448,437,448,437,448,438,441,430,441,430,448,438,397,383,441,430,397,383,398,363,416,-7,398,363,398,125,416,-7,398,125,127,463,495,463,454,442,461,445,495,463,461,445,470,447,495,463,470,447,480,449,495,463,480,449,495,450,428,-7,428,355,416,-7,416,-7,428,355,429,383,416,-7,429,383,398,363,398,363,429,383,431,404,398,363,431,404,436,419,396,400,397,383,448,438,396,400,448,438,393,413,346,448,359,446,495,463,346,448,495,463,329,463,346,448,329,463,329,450,127,463,9,463,27,449,127,463,27,449,41,445,127,463,41,445,52,438,127,463,52,438,64,428,127,463,64,428,77,413,127,463,77,413,107,377,127,463,107,377,416,-7,77,413,109,68,107,105,75,67,69,42,126,28,126,28,69,42,172,0,126,28,172,0,144,19,144,19,172,0,172,13,77,105,75,67,114,44,77,105,114,44,109,68,77,105,109,68,77,413,172,0,9,13,9,0,75,67,126,28,114,44,27,449,9,463,9,450,107,377,77,413,107,105,441,430,398,363,436,419,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,
-462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,155,437,166,437,166,438,192,463,166,438,217,434,192,463,217,434,232,461,232,461,217,434,255,423,232,461,255,423,267,456,267,456,255,423,282,403,267,456,282,403,298,446,298,446,282,403,298,373,298,446,298,373,323,434,323,434,298,373,303,333,323,434,303,333,316,226,316,226,298,298,291,214,291,214,298,298,283,269,291,214,283,269,263,206,263,206,283,269,259,248,263,206,259,248,230,203,230,203,259,248,226,234,230,203,226,234,190,202,190,202,226,234,184,230,190,202,184,230,180,202,180,202,184,230,176,230,180,202,176,230,170,202,170,202,176,230,168,230,170,202,168,230,161,202,161,202,168,230,160,231,161,202,160,231,152,203,152,203,160,231,151,231,152,203,151,231,141,232,141,78,141,232,70,386,141,78,70,386,143,51,143,51,70,386,70,
-85,141,232,141,204,152,203,380,336,378,356,378,315,378,315,378,356,374,375,378,315,374,375,373,294,373,294,374,375,367,392,373,294,367,392,365,276,365,276,367,392,357,407,365,276,357,407,354,259,354,259,357,407,345,420,354,259,345,420,340,245,340,245,345,420,323,434,340,245,323,434,316,226,192,463,11,463,37,447,192,463,37,447,54,441,192,463,54,441,64,430,192,463,64,430,69,412,192,463,69,412,70,386,192,463,70,386,148,434,192,463,148,434,155,437,192,463,155,437,166,438,141,413,142,422,70,386,141,413,70,386,141,232,144,429,148,434,70,386,144,429,70,386,142,422,207,0,207,13,179,16,207,0,179,16,160,22,207,0,160,22,69,55,207,0,69,55,65,35,207,0,65,35,55,23,207,0,55,23,38,16,207,0,38,16,11,13,207,0,11,13,11,0,70,85,69,55,160,22,70,85,160,22,148,33,70,85,148,33,143,51,37,447,11,463,11,450,298,298,316,226,303,333,217,434,166,438,166,437,111,158,111,35,119,125,119,125,111,35,132,22,119,125,132,22,130,95,130,95,132,22,145,70,161,52,145,70,156,10,161,52,156,10,185,0,111,158,106,195,111,35,111,35,106,195,104,234,94,51,104,234,106,274,94,51,106,274,77,70,77,70,106,274,115,431,77,70,115,431,66,381,206,439,252,473,186,429,186,429,252,473,178,463,186,429,178,463,167,416,167,416,178,463,150,398,134,375,150,398,178,463,134,375,178,463,115,431,181,37,185,0,204,25,204,25,185,0,214,-36,204,25,214,-36,228,18,228,18,214,-36,247,-68,228,18,247,-68,252,16,252,16,247,-68,289,-93,252,16,289,-93,277,18,328,462,252,473,270,446,270,446,252,473,251,448,228,446,251,448,252,473,228,446,252,473,206,439,289,443,306,437,328,462,328,462,306,437,323,428,328,462,323,428,338,416,338,416,360,393,391,431,391,431,360,393,378,362,391,431,378,362,391,325,325,1,348,8,340,49,340,49,348,8,357,66,372,89,357,66,368,17,372,89,368,17,387,29,330,-42,298,-4,338,-110,300,25,298,-4,325,1,300,25,325,1,321,35,321,35,325,1,340,49,289,-93,338,-110,298,-4,289,-93,298,-4,300,25,289,-93,300,25,277,18,470,314,439,380,454,108,470,
-314,454,108,469,145,470,314,469,145,478,186,470,314,478,186,481,233,400,195,406,45,402,237,402,237,406,45,439,380,439,380,406,45,433,75,439,380,433,75,454,108,399,283,402,237,439,380,399,283,439,380,391,431,399,283,391,431,391,325,391,431,328,462,338,416,394,155,385,119,387,29,394,155,387,29,406,45,394,155,406,45,400,195,357,66,348,8,368,17,457,-123,491,-123,491,-110,457,-123,491,-110,445,-104,457,-123,445,-104,403,-91,457,-123,403,-91,394,-120,365,-71,330,-42,338,-110,365,-71,338,-110,394,-120,365,-71,394,-120,403,-91,115,431,106,274,112,311,115,431,112,311,122,346,115,431,122,346,134,375,26,195,33,161,35,314,35,314,33,161,44,128,35,314,44,128,66,381,66,381,44,128,59,98,66,381,59,98,77,70,145,70,132,22,156,10,26,195,35,314,23,232,372,89,387,29,385,119,328,462,270,446,289,443,161,52,185,0,181,37,111,35,104,234,94,51,165,437,178,437,178,438,202,463,178,438,225,434,202,463,225,434,240,461,240,461,225,434,261,423,240,461,261,423,274,456,274,456,261,423,286,404,274,456,286,404,303,447,303,447,286,404,301,378,303,447,301,378,306,344,300,305,292,288,303,235,303,235,292,288,280,274,303,235,280,274,266,264,266,264,248,255,256,223,256,223,248,255,228,248,256,223,228,248,348,0,348,0,228,248,206,244,348,0,206,244,182,216,182,216,206,244,179,241,182,216,179,241,143,240,371,393,361,409,363,275,363,275,361,409,348,422,363,275,348,422,339,252,339,252,348,422,328,436,339,252,328,436,306,344,306,344,328,436,303,447,300,305,303,235,305,323,305,323,303,235,339,252,305,323,339,252,306,344,378,304,383,338,381,357,378,304,381,357,377,375,378,304,377,375,371,393,378,304,371,393,363,275,266,264,256,223,303,235,445,15,431,19,462,0,462,0,431,19,419,24,462,0,419,24,348,0,348,0,419,24,408,33,348,0,408,33,396,46,143,78,143,240,71,386,143,78,71,386,144,51,144,51,71,386,71,87,143,240,143,214,182,216,202,463,12,463,39,447,202,463,39,447,56,441,202,463,56,441,66,430,202,463,66,430,70,412,202,463,70,412,71,386,202,463,71,386,156,434,202,463,156,434,165,437,202,463,165,
-437,178,438,143,408,144,421,71,386,143,408,71,386,143,240,149,429,156,434,71,386,149,429,71,386,144,421,205,0,205,13,178,16,205,0,178,16,160,22,205,0,160,22,70,56,205,0,70,56,65,35,205,0,65,35,55,23,205,0,55,23,38,16,205,0,38,16,12,13,205,0,12,13,12,0,71,87,70,56,160,22,71,87,160,22,149,33,71,87,149,33,144,51,39,447,12,463,12,450,256,223,348,0,396,46,445,15,462,0,462,13,225,434,178,438,178,437,70,5,74,10,91,59,91,59,74,10,79,13,91,59,79,13,85,14,85,14,90,14,91,59,91,59,90,14,96,13,91,59,96,13,120,35,120,35,96,13,103,11,120,35,103,11,110,9,133,328,116,351,135,230,135,230,116,351,110,378,102,252,110,378,99,452,102,252,99,452,78,275,78,275,99,452,73,427,78,275,73,427,62,299,62,299,73,427,56,393,62,299,56,393,53,325,53,325,56,393,50,351,113,400,123,418,132,468,132,468,123,418,137,432,132,468,137,432,172,473,172,473,137,432,157,441,172,473,157,441,180,445,180,445,205,442,188,473,188,473,205,442,202,471,113,400,132,468,99,452,113,400,99,452,110,378,188,473,172,473,180,445,202,471,205,442,216,468,216,468,205,442,227,434,216,468,227,434,230,464,230,464,227,434,248,423,230,464,248,423,245,458,245,458,248,423,253,455,133,328,135,230,159,305,159,305,135,230,162,215,159,305,162,215,194,283,194,283,162,215,188,199,194,283,188,199,213,182,190,16,167,-7,184,-9,190,16,184,-9,201,-9,190,16,152,20,167,-7,110,9,118,6,120,35,120,35,118,6,134,0,120,35,134,0,152,20,152,20,134,0,150,-3,152,20,150,-3,167,-7,51,-8,66,-8,66,94,66,94,66,-8,67,0,66,94,67,0,91,59,91,59,67,0,70,5,45,139,30,139,51,-8,45,139,51,-8,66,94,194,283,213,182,235,259,235,259,213,182,235,165,235,259,235,165,252,149,252,149,260,140,275,233,275,233,260,140,265,130,275,233,265,130,269,119,344,121,340,152,337,77,337,77,340,152,327,180,337,77,327,180,317,41,317,41,327,180,305,207,317,41,305,207,286,14,286,14,305,207,275,233,286,14,275,233,273,94,273,94,269,68,286,
-14,286,14,269,68,258,46,286,14,258,46,247,-3,247,-3,258,46,240,30,247,-3,240,30,217,19,275,233,269,119,272,107,275,233,272,107,273,94,275,233,235,259,252,149,217,19,190,16,201,-9,217,19,201,-9,247,-3,266,408,282,390,271,450,271,450,282,390,276,449,282,450,276,449,282,390,266,408,271,450,266,451,266,408,266,451,259,452,266,408,259,452,253,455,266,408,253,455,248,423,313,473,298,473,301,356,313,473,301,356,306,341,313,473,306,341,311,324,313,473,311,324,328,324,288,453,289,380,292,458,292,458,289,380,295,368,292,458,295,368,296,465,296,465,295,368,301,356,296,465,301,356,298,473,282,450,282,390,289,380,282,450,289,380,288,453,135,230,110,378,102,252,410,463,17,463,98,432,410,463,98,432,136,434,410,463,136,434,178,434,410,463,178,434,249,434,410,463,249,434,291,434,410,463,291,434,329,432,410,463,329,432,356,425,410,463,356,425,375,409,410,463,375,409,388,383,410,463,388,383,398,345,410,463,398,345,415,345,268,22,256,33,178,86,178,86,256,33,251,51,178,86,251,51,178,434,178,434,251,51,249,77,178,434,249,77,249,434,17,463,12,345,29,345,17,463,29,345,38,383,17,463,38,383,51,409,17,463,51,409,70,425,17,463,70,425,98,432,316,0,316,13,288,16,316,0,288,16,268,22,316,0,268,22,177,55,316,0,177,55,172,35,316,0,172,35,160,23,316,0,160,23,141,16,316,0,141,16,112,13,316,0,112,13,112,0,177,55,268,22,178,86,147,110,148,11,152,88,152,88,148,11,169,2,152,88,169,2,161,69,161,69,169,2,175,52,188,42,175,52,193,-4,188,42,193,-4,204,33,204,33,193,-4,219,-8,204,33,219,-8,222,26,222,26,219,-8,248,-9,222,26,248,-9,242,22,242,22,248,-9,265,21,291,23,265,21,285,-7,291,23,285,-7,318,-1,145,166,145,384,130,23,145,166,130,23,145,135,145,135,130,23,148,11,145,135,148,11,147,110,175,52,169,2,193,-4,396,144,394,119,405,63,405,63,394,119,390,98,405,63,390,98,390,41,390,41,390,98,382,80,390,41,382,80,371,63,371,62,371,63,356,48,371,62,356,48,370,23,370,23,356,48,346,9,337,37,315,28,318,-1,337,
-37,318,-1,346,9,337,37,346,9,356,48,494,463,331,463,360,446,494,463,360,446,379,437,494,463,379,437,390,421,494,463,390,421,445,435,494,463,445,435,464,445,494,463,464,445,494,450,427,361,429,395,416,87,427,361,416,87,423,114,427,361,423,114,426,145,427,361,426,145,427,183,405,63,416,87,429,395,405,63,429,395,397,359,405,63,397,359,397,175,405,63,397,175,396,144,434,419,445,435,395,396,434,419,395,396,397,359,434,419,397,359,429,395,371,62,370,23,390,41,371,62,390,41,371,63,265,21,248,-9,285,-7,180,446,208,450,208,463,180,446,208,463,161,440,161,440,208,463,71,415,161,440,71,415,73,391,75,133,73,391,73,174,81,97,93,67,146,411,146,411,93,67,109,42,146,411,109,42,145,384,145,384,109,42,130,23,146,411,151,429,73,391,146,411,73,391,75,133,146,411,75,133,81,97,208,463,10,463,38,447,208,463,38,447,56,441,208,463,56,441,66,431,208,463,66,431,71,415,38,447,10,463,10,450,161,440,73,391,151,429,360,446,331,463,331,450,445,435,390,421,395,396,291,23,318,-1,315,28,87,373,258,-7,87,373,87,373,258,-7,146,420,87,373,146,420,145,427,145,427,146,434,87,373,87,373,146,434,150,440,87,373,150,440,71,407,197,463,11,463,29,448,197,463,29,448,44,442,197,463,44,442,57,429,197,463,57,429,71,407,197,463,71,407,156,444,197,463,156,444,165,447,197,463,165,447,177,448,197,463,177,448,197,450,393,405,390,394,423,387,423,387,390,394,386,383,423,387,386,383,382,371,382,371,280,113,423,387,423,387,280,113,268,-7,488,463,345,463,361,449,488,463,361,449,375,447,488,463,375,447,386,442,488,463,386,442,393,434,488,463,393,434,395,421,488,463,395,421,459,442,488,463,459,442,473,448,488,463,473,448,488,450,395,421,423,387,435,413,395,421,435,413,447,431,395,421,447,431,459,442,395,413,393,405,423,387,395,413,423,387,395,421,258,-7,268,-7,280,113,258,-7,280,113,173,352,258,-7,173,352,162,377,258,-7,162,377,154,396,258,-7,154,396,149,409,258,-7,149,409,146,420,361,449,345,463,345,450,29,448,11,463,11,450,156,444,71,407,150,440,22,447,38,439,174,463,174,463,38,
-439,51,424,174,463,51,424,135,442,135,442,51,424,63,400,135,442,63,400,77,366,77,366,102,294,131,436,131,436,102,294,130,428,130,423,130,428,129,220,130,423,129,220,157,144,156,449,174,450,174,463,156,449,174,463,143,446,143,446,174,463,135,442,130,428,102,294,129,220,135,442,77,366,131,436,3,463,3,450,22,447,3,463,22,447,174,463,351,231,374,172,352,426,352,426,354,434,311,330,311,330,354,434,291,383,279,413,291,383,360,440,279,413,360,440,405,463,405,463,360,440,371,445,405,463,371,445,386,449,386,449,405,450,405,463,352,426,311,330,329,288,352,426,329,288,351,231,360,440,291,383,354,434,405,463,220,463,240,449,405,463,240,449,255,444,405,463,255,444,267,433,405,463,267,433,279,413,552,367,505,156,528,221,552,367,528,221,556,297,552,367,463,130,482,85,552,367,482,85,505,156,463,130,363,385,374,172,463,130,374,172,397,112,463,130,397,112,419,52,463,130,419,52,441,-7,463,130,441,-7,452,-7,463,130,452,-7,482,85,374,172,363,385,360,395,374,172,360,395,356,404,374,172,356,404,354,413,374,172,354,413,352,420,374,172,352,420,352,426,563,412,561,402,595,401,595,401,561,402,559,392,595,401,559,392,556,297,556,297,559,392,556,380,556,297,556,380,552,367,563,421,595,401,602,419,563,421,602,419,610,432,563,421,610,432,620,440,563,421,620,440,652,463,563,421,652,463,562,432,563,412,595,401,563,421,634,446,652,450,652,463,634,446,652,463,620,440,652,463,515,463,533,449,652,463,533,449,547,445,652,463,547,445,556,439,652,463,556,439,562,432,238,132,138,395,157,144,238,132,157,144,184,68,238,132,184,68,211,-7,238,132,211,-7,221,-7,238,132,221,-7,329,288,238,132,329,288,311,330,157,144,138,395,135,403,157,144,135,403,132,410,157,144,132,410,131,417,157,144,131,417,130,423,533,449,515,463,515,450,240,449,220,463,220,450,43,23,170,0,60,37,60,37,170,0,123,23,60,37,123,23,81,59,81,59,123,23,118,29,81,59,118,29,116,36,116,36,118,43,109,93,109,93,118,43,122,53,109,93,122,53,218,230,218,230,122,53,129,65,218,230,129,65,139,80,144,338,218,230,176,416,144,338,176,416,173,
-429,173,429,175,437,144,338,218,230,139,80,153,98,153,98,237,202,218,230,218,230,237,202,232,327,218,230,232,327,212,357,109,93,81,59,116,36,144,338,175,437,109,387,109,387,175,437,179,443,109,387,179,443,83,418,83,418,179,443,186,446,83,418,186,446,226,463,226,463,186,446,195,448,226,463,195,448,205,449,205,449,226,450,226,463,226,463,16,463,40,446,226,463,40,446,61,437,226,463,61,437,83,418,365,414,359,406,380,380,380,380,359,406,351,395,380,380,351,395,341,380,341,380,263,283,280,257,280,257,263,283,303,104,280,257,303,104,415,65,415,65,303,104,316,84,415,65,316,84,326,67,488,463,321,463,341,449,488,463,341,449,354,446,488,463,354,446,363,442,488,463,363,442,367,436,488,463,367,436,369,427,488,463,369,427,443,440,488,463,443,440,463,447,488,463,463,447,488,450,369,427,380,380,404,408,369,427,404,408,424,428,369,427,424,428,443,440,368,421,365,414,380,380,368,421,380,380,369,427,341,380,280,257,380,380,333,23,326,19,493,0,493,0,326,19,316,16,493,0,316,16,304,15,339,35,493,0,457,22,339,35,457,22,443,31,339,35,443,31,430,45,339,35,430,45,415,65,339,35,415,65,338,43,415,65,326,67,333,54,415,65,333,54,338,43,263,283,232,327,237,202,263,283,237,202,303,104,473,16,457,22,493,0,473,16,493,0,493,13,338,28,333,23,493,0,338,28,493,0,339,35,286,13,286,0,493,0,286,13,493,0,304,15,218,230,212,357,195,381,218,230,195,381,183,400,218,230,183,400,176,416,170,0,170,13,148,16,170,0,148,16,133,19,170,0,133,19,123,23,26,17,7,13,170,0,26,17,170,0,43,23,170,0,7,13,7,0,341,449,321,463,321,450,40,446,16,463,16,450,169,405,166,412,220,205,220,205,166,412,163,419,220,205,163,419,129,340,129,340,163,419,161,425,129,340,161,425,161,431,161,431,162,437,129,340,211,463,16,463,34,447,211,463,34,447,51,438,211,463,51,438,71,419,211,463,71,419,173,446,211,463,173,446,182,448,211,463,182,448,194,449,211,463,194,449,211,450,173,446,71,419,166,442,166,442,71,419,95,387,166,442,95,387,162,437,162,437,95,387,129,340,292,
-77,292,212,276,244,292,77,276,244,294,50,294,50,276,244,220,205,294,50,220,205,301,32,301,32,220,205,220,86,301,32,220,86,313,22,313,22,220,86,219,55,313,22,219,55,364,0,364,0,219,55,213,34,364,0,213,34,201,23,385,417,383,412,395,372,395,372,383,412,381,405,395,372,381,405,377,399,377,399,276,244,292,212,492,463,340,463,359,449,492,463,359,449,372,446,492,463,372,446,381,442,492,463,381,442,385,436,492,463,385,436,387,428,492,463,387,428,451,438,492,463,451,438,470,446,492,463,470,446,492,450,387,428,395,372,416,403,387,428,416,403,434,424,387,428,434,424,451,438,395,372,387,428,386,423,395,372,386,423,385,417,377,399,292,212,395,372,334,16,313,22,364,0,334,16,364,0,364,13,181,16,150,13,364,0,181,16,364,0,201,23,173,398,169,405,220,205,173,398,220,205,276,244,364,0,150,13,150,0,359,449,340,463,340,450,34,447,16,463,16,450,49,379,54,391,37,463,37,463,54,391,60,402,37,463,60,402,70,413,70,413,81,421,37,463,37,463,81,421,95,428,37,463,95,428,113,433,102,27,405,453,313,437,313,437,405,453,405,463,313,437,405,463,163,437,136,436,163,437,405,463,136,436,405,463,37,463,37,463,23,344,41,344,37,463,41,344,45,364,37,463,45,364,49,379,313,437,7,10,102,27,102,27,7,10,401,0,102,27,401,0,279,27,279,27,401,0,301,27,389,83,382,68,401,0,401,0,382,68,372,56,401,0,372,56,360,46,360,46,349,39,401,0,401,0,349,39,335,34,401,0,335,34,319,30,401,0,419,123,402,123,401,0,402,123,395,101,401,0,395,101,389,83,401,0,7,10,7,0,301,27,401,0,319,30,37,463,113,433,136,436,121,435,128,441,62,463,62,463,128,441,138,445,62,463,138,445,209,463,209,463,138,445,152,446,115,-53,115,413,62,463,115,-53,62,463,62,-108,115,-53,62,-108,116,-68,116,426,121,435,62,463,116,426,62,463,115,413,209,-90,152,-90,209,-108,209,-108,152,-90,139,-89,209,-108,139,-89,62,-108,62,-108,139,-89,129,-85,62,-108,129,-85,121,-78,116,-68,62,-108,121,-78,209,463,152,446,209,446,201,-9,41,473,-5,473,201,-9,-5,473,153,-9,172,-108,172,
-463,118,408,172,-108,118,408,118,-58,172,-108,118,-58,117,-70,172,-108,117,-70,114,-79,172,-108,114,-79,108,-85,172,-108,108,-85,98,-89,172,-108,98,-89,85,-90,172,-108,85,-90,23,-90,172,-108,23,-90,23,-108,107,440,113,432,172,463,172,463,113,432,117,421,172,463,117,421,118,408,172,463,23,463,83,446,172,463,83,446,97,445,172,463,97,445,107,440,83,446,23,463,23,446,17,208,64,208,144,463,144,463,64,208,165,410,144,463,165,410,185,463,185,463,165,410,265,208,185,463,265,208,313,208,350,-87,350,-51,0,-51,350,-87,0,-51,0,-87,141,355,170,355,68,459,141,355,68,459,61,465,141,355,61,465,55,469,141,355,55,469,50,472,141,355,50,472,44,474,141,355,44,474,38,474,141,355,38,474,34,422,13,452,13,445,14,460,14,460,13,445,16,439,14,460,16,439,17,466,17,466,16,439,20,433,17,466,20,433,22,471,22,471,20,433,26,427,22,471,26,427,29,473,29,473,26,427,34,422,29,473,34,422,38,474,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,291,238,291,232,-4,246,-6,238,291,246,-6,247,
-279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,258,79,260,-5,259,62,41,234,40,257,39,245,6,436,9,436,23,454,23,454,9,436,11,437,23,454,11,437,14,437,14,437,29,436,23,454,23,454,29,436,41,459,135,22,120,29,130,-3,130,-3,120,29,111,39,130,-3,111,39,99,2,99,2,111,39,107,52,99,2,107,52,104,478,104,478,107,52,107,263,104,478,107,263,107,477,87,473,72,468,73,13,73,13,72,468,57,464,73,13,57,464,55,25,55,25,57,464,48,396,55,25,48,396,48,39,4,
-436,6,436,23,454,4,436,23,454,2,448,4,436,2,448,2,435,218,26,205,20,216,1,216,1,205,20,191,17,216,1,191,17,175,16,175,16,154,17,164,-6,164,-6,154,17,135,22,164,-6,135,22,130,-3,87,473,73,13,99,2,87,473,99,2,104,478,29,436,39,433,41,459,41,459,39,433,45,426,41,459,45,426,57,464,57,464,45,426,48,414,57,464,48,414,48,396,177,319,177,278,191,277,177,319,191,277,202,322,202,322,191,277,205,272,202,322,205,272,243,314,243,314,205,272,218,266,243,314,218,266,229,257,107,223,111,240,118,283,118,283,111,240,121,255,118,283,121,255,134,299,134,299,121,255,136,267,134,299,136,267,154,312,154,312,136,267,155,275,154,312,155,275,177,319,177,319,155,275,177,278,107,223,118,283,107,263,107,223,107,263,107,52,243,314,239,245,248,228,243,314,248,228,278,293,278,293,248,228,256,208,278,293,256,208,261,186,261,94,256,75,261,25,261,25,256,75,249,59,261,25,249,59,240,45,240,45,230,35,261,25,261,25,230,35,218,26,261,25,218,26,216,1,327,168,321,217,319,110,319,110,321,217,305,260,319,110,305,260,296,61,296,61,305,260,278,293,296,61,278,293,266,138,266,138,278,293,264,163,261,94,261,25,265,115,265,115,261,25,296,61,265,115,296,61,266,138,175,16,164,-6,216,1,278,293,261,186,264,163,243,314,229,257,239,245,114,68,91,97,107,0,107,0,91,97,76,135,107,0,76,135,70,22,70,22,76,135,71,180,77,286,71,180,76,220,77,286,76,220,88,254,180,44,151,-6,168,-5,180,44,168,-5,185,-1,180,44,144,50,151,-6,114,68,107,0,151,-6,114,68,151,-6,144,50,190,297,197,291,205,318,205,318,197,291,203,281,205,318,203,281,208,268,208,268,212,252,234,308,234,308,212,252,216,241,234,308,216,241,222,232,171,322,166,302,180,300,171,322,180,300,205,318,205,318,180,300,190,297,273,272,258,292,265,226,273,272,265,226,272,232,273,272,272,232,277,241,273,272,277,241,279,250,258,292,234,308,237,222,258,292,237,222,245,220,258,292,245,220,256,222,258,292,256,222,265,226,234,308,222,232,229,226,234,308,229,226,237,222,234,308,205,318,208,268,243,33,254,
-45,260,84,260,84,254,45,264,61,260,84,264,61,279,109,279,109,264,61,276,80,279,109,276,80,288,103,185,-1,201,4,202,46,202,46,201,4,216,12,202,46,216,12,222,53,222,53,216,12,231,23,222,53,231,23,241,65,241,65,231,23,243,33,241,65,243,33,260,84,202,46,180,44,185,-1,135,296,166,302,151,320,135,296,151,320,132,316,135,296,132,316,113,309,135,296,113,309,109,280,94,299,77,286,88,254,94,299,88,254,109,280,94,299,109,280,113,309,56,265,39,241,42,55,56,265,42,55,70,22,56,265,70,22,71,180,56,265,71,180,77,286,27,213,20,182,24,97,27,213,24,97,42,55,27,213,42,55,39,241,166,302,171,322,151,320,24,97,20,182,17,148,238,292,223,304,224,273,224,273,223,304,209,312,224,273,209,312,208,288,208,288,209,312,195,318,208,288,195,318,189,299,189,299,195,318,180,321,189,299,180,321,166,302,94,252,113,279,119,313,119,313,113,279,137,296,119,313,137,296,165,322,165,322,137,296,166,302,165,322,166,302,180,321,19,144,25,94,26,200,26,200,25,94,42,52,26,200,42,52,47,249,47,249,42,52,69,20,47,249,69,20,79,288,79,288,69,20,79,172,79,288,79,172,83,216,79,288,83,216,94,252,79,288,94,252,119,313,176,30,148,-6,170,-4,176,30,170,-4,190,0,176,30,143,36,148,-6,116,55,96,84,105,0,116,55,105,0,148,-6,116,55,148,-6,143,36,83,124,79,172,69,20,83,124,69,20,105,0,83,124,105,0,96,84,236,64,234,60,238,40,238,40,234,60,231,56,238,40,231,56,227,52,227,52,219,44,223,22,223,22,219,44,210,37,223,22,210,37,207,9,207,9,210,37,200,33,207,9,200,33,190,0,190,0,200,33,188,31,190,0,188,31,176,30,197,437,199,437,215,454,215,454,199,437,202,437,215,454,202,437,205,437,205,437,219,436,215,454,215,454,219,436,236,460,215,454,191,448,194,436,215,454,194,436,197,437,238,292,238,232,238,40,238,292,238,40,238,401,237,416,238,401,255,466,237,416,255,466,236,460,238,292,224,273,234,254,238,292,234,254,238,232,241,-6,344,30,315,41,241,-6,315,41,306,45,241,-6,306,45,300,52,241,-6,300,52,298,
-63,241,-6,298,63,255,466,241,-6,255,466,238,40,241,-6,238,40,238,-4,238,40,238,232,238,71,238,40,238,71,238,68,238,40,238,68,236,64,227,52,223,22,238,40,297,80,297,477,293,478,297,80,293,478,274,472,297,80,274,472,298,63,334,40,331,40,344,30,344,30,331,40,329,40,344,30,329,40,327,40,327,40,315,41,344,30,338,40,334,40,344,30,338,40,344,30,344,41,236,460,219,436,228,432,236,460,228,432,234,426,236,460,234,426,237,416,194,436,191,448,191,436,255,466,238,401,238,40,255,466,298,63,274,472,73,140,70,165,68,21,68,21,70,165,68,194,68,21,68,194,43,254,68,21,43,254,40,54,40,54,43,254,24,207,40,54,24,207,23,98,23,98,24,207,17,152,187,320,163,322,168,294,168,294,163,322,144,297,122,294,144,297,163,322,122,294,163,322,113,314,266,87,247,67,254,36,254,36,247,67,226,52,254,36,226,52,224,12,224,12,226,52,204,44,224,12,204,44,190,-1,190,-1,204,44,178,41,284,194,281,215,278,232,284,194,278,232,273,248,284,194,273,248,267,261,284,194,267,261,259,273,284,194,259,273,245,290,284,194,245,290,228,304,284,194,228,304,212,216,284,194,212,216,70,216,284,194,70,216,68,194,198,269,206,246,209,314,209,314,206,246,212,216,209,314,212,216,228,304,278,69,297,110,286,115,278,69,286,115,266,87,278,69,266,87,254,36,159,43,142,47,151,-6,159,43,151,-6,190,-1,159,43,190,-1,178,41,142,47,126,55,151,-6,151,-6,126,55,112,66,151,-6,112,66,105,0,105,0,112,66,100,80,187,320,168,294,186,285,187,320,186,285,198,269,187,320,198,269,209,314,70,216,77,245,73,290,73,290,77,245,88,267,73,290,88,267,113,314,113,314,88,267,103,284,113,314,103,284,122,294,73,290,43,254,68,194,73,290,68,194,70,216,105,0,100,80,87,99,105,0,87,99,79,119,105,0,79,119,73,140,105,0,73,140,68,21,80,390,76,370,132,46,132,46,76,370,73,345,132,46,73,345,72,293,72,293,73,345,72,315,72,293,72,315,15,315,110,445,132,46,131,73,131,315,131,293,216,293,131,315,216,293,216,315,186,455,195,478,179,458,179,458,195,478,170,459,156,
-456,170,459,170,476,156,456,170,476,147,469,131,396,133,418,127,459,127,459,133,418,137,436,127,459,137,436,147,469,147,469,137,436,145,449,147,469,145,449,156,456,127,459,110,445,131,73,127,459,131,73,131,396,264,449,255,461,256,412,264,449,256,412,263,418,264,449,263,418,267,425,264,449,267,425,268,434,232,407,239,406,239,470,239,470,239,406,248,408,239,470,248,408,255,461,255,461,248,408,256,412,207,431,214,421,219,476,219,476,214,421,220,414,219,476,220,414,239,470,239,470,220,414,226,410,239,470,226,410,232,407,200,442,207,431,219,476,200,442,219,476,195,478,200,442,195,478,193,450,195,478,170,476,170,459,196,0,196,10,167,13,196,0,167,13,148,18,196,0,148,18,71,47,196,0,71,47,66,30,196,0,66,30,56,19,196,0,56,19,39,13,196,0,39,13,14,10,196,0,14,10,14,0,132,46,110,445,97,427,132,46,97,427,87,409,132,46,87,409,80,390,72,73,71,47,148,18,72,73,148,18,137,29,72,73,137,29,132,46,72,73,132,46,72,293,72,293,15,315,15,293,195,478,186,455,193,450,119,166,113,114,124,102,124,102,113,114,112,94,112,94,113,114,107,108,112,94,107,108,102,84,102,84,107,108,101,103,102,84,101,103,96,73,96,73,101,103,95,97,96,73,95,97,93,64,93,64,89,92,89,-18,89,-18,89,92,88,1,162,105,178,122,156,105,156,105,178,122,154,127,156,105,154,127,148,106,148,106,154,127,135,108,124,102,135,108,134,142,124,102,134,142,119,166,165,322,158,302,170,301,165,322,170,301,176,321,176,321,170,301,182,297,176,321,182,297,187,320,187,320,182,297,192,290,187,320,192,290,198,318,198,318,192,290,202,281,198,318,202,281,210,315,210,315,202,281,209,270,178,122,162,105,168,105,178,122,168,105,172,105,178,122,172,105,175,105,178,122,175,105,190,106,154,127,134,142,135,108,237,306,221,312,222,237,237,306,222,237,227,220,237,306,227,220,229,202,237,306,229,202,230,185,237,306,230,185,234,122,237,306,234,122,248,131,237,306,248,131,245,303,234,122,230,185,228,164,234,122,228,164,221,146,234,122,221,146,220,115,178,122,190,106,196,125,196,125,190,106,205,109,196,125,205,
-109,210,133,210,133,205,109,220,115,210,133,220,115,221,146,115,278,126,291,128,316,128,316,126,291,140,299,128,316,140,299,165,322,165,322,140,299,158,302,106,234,106,237,96,300,96,300,106,237,109,259,96,300,109,259,128,316,128,316,109,259,115,278,113,114,119,166,110,197,113,114,110,197,106,234,113,114,106,234,96,300,113,114,96,300,89,129,71,276,54,244,58,163,71,276,58,163,70,145,71,276,70,145,89,129,71,276,89,129,96,300,54,244,48,208,51,184,54,244,51,184,58,163,71,74,62,64,62,16,71,74,62,16,73,9,71,74,73,9,84,86,51,37,52,29,52,46,52,46,52,29,55,22,52,46,55,22,56,55,56,55,55,22,62,16,56,55,62,16,62,64,42,-37,43,-124,62,-19,62,-19,43,-124,69,-138,62,-19,69,-138,69,-61,69,-61,70,-51,62,-19,62,-19,70,-51,73,-42,62,-19,73,-42,88,1,88,1,73,-42,79,-32,88,1,79,-32,89,-18,103,-1,101,53,95,58,103,-1,95,58,93,64,103,-1,93,64,89,-18,103,-1,112,49,101,53,84,86,73,9,88,1,84,86,88,1,89,92,87,-92,102,-148,108,-102,108,-102,102,-148,141,-151,108,-102,141,-151,136,-109,136,-109,141,-151,170,-111,170,-111,170,-112,215,-108,215,-108,170,-112,171,-149,215,-108,171,-149,201,-144,73,-78,69,-61,69,-138,73,-78,69,-138,102,-148,73,-78,102,-148,87,-92,29,-53,22,-68,26,-105,29,-53,26,-105,43,-124,29,-53,43,-124,42,-37,275,299,267,299,271,272,275,299,271,272,329,272,275,299,329,272,329,299,283,192,284,213,284,224,283,192,284,224,282,236,283,192,282,236,280,247,283,192,280,247,279,174,276,259,271,272,271,158,276,259,271,158,279,174,276,259,279,174,280,247,267,299,259,300,261,144,267,299,261,144,271,158,267,299,271,158,271,272,252,301,245,303,248,131,252,301,248,131,261,144,252,301,261,144,259,300,216,254,222,237,221,312,216,254,221,312,210,315,216,254,210,315,209,270,291,-20,300,-30,308,10,308,10,300,-30,303,-44,308,-79,303,-44,297,-66,194,-9,216,-9,238,41,238,41,216,-9,250,-10,238,41,250,-10,267,36,267,36,250,-10,274,-14,267,36,274,-14,290,25,290,25,274,-14,291,-20,290,25,291,-20,308,10,319,-9,308,10,308,
--79,319,-9,308,-79,316,-65,319,-9,316,-65,321,-50,319,-9,321,-50,323,-33,215,-108,230,-135,251,-99,251,-99,230,-135,257,-122,251,-99,257,-122,279,-85,279,-85,257,-122,280,-107,279,-85,280,-107,297,-66,297,-66,280,-107,296,-93,297,-66,296,-93,308,-79,194,-9,238,41,168,-7,168,-7,238,41,148,45,168,-7,148,45,143,-6,143,-6,148,45,128,46,143,-6,128,46,121,-3,121,-3,128,46,112,49,121,-3,112,49,103,-1,170,-111,141,-151,171,-149,170,-111,171,-149,170,-112,215,-108,201,-144,230,-135,303,-44,308,-79,308,10,26,-105,22,-68,20,-83,89,92,93,64,95,97,47,31,39,20,158,0,158,0,39,20,26,14,158,0,26,14,6,10,10,437,12,437,26,453,26,453,12,437,14,437,26,453,14,437,16,437,16,437,31,436,26,453,26,453,31,436,47,459,26,453,7,448,9,436,26,453,9,436,10,437,123,20,115,30,51,71,51,71,115,30,111,47,51,71,111,47,51,401,50,416,51,401,64,465,50,416,64,465,47,459,47,459,31,436,41,433,47,459,41,433,47,427,47,459,47,427,50,416,110,263,110,476,106,478,110,263,106,478,110,71,110,71,106,478,92,473,110,71,92,473,111,47,111,47,92,473,79,469,111,47,79,469,64,465,189,320,188,284,207,281,189,320,207,281,212,322,212,322,207,281,221,272,212,322,221,272,244,317,244,317,221,272,232,258,244,317,232,258,238,237,110,240,127,257,129,286,129,286,127,257,142,270,129,286,142,270,148,302,148,302,142,270,157,278,148,302,157,278,168,313,168,313,157,278,172,283,168,313,172,283,189,320,189,320,172,283,188,284,110,71,110,240,110,263,110,263,110,240,129,286,235,30,227,20,341,0,341,0,227,20,213,14,341,0,213,14,192,10,244,317,238,237,240,210,303,31,240,210,240,71,303,31,240,71,310,21,310,21,240,71,239,47,310,21,239,47,341,0,341,0,239,47,235,30,299,71,299,211,296,251,299,71,296,251,285,282,299,71,285,282,300,47,322,15,310,21,341,0,322,15,341,0,341,10,240,210,303,31,244,317,244,317,303,31,300,47,244,317,300,47,268,304,268,304,300,47,285,282,158,0,158,10,137,14,158,0,137,14,123,20,158,0,123,20,50,47,158,0,50,47,47,31,158,
-0,6,10,6,0,50,47,123,20,51,71,51,401,111,47,64,465,341,0,192,10,192,0,9,436,7,448,7,436,55,442,56,431,56,453,56,453,56,431,61,421,56,453,61,421,61,463,61,463,61,421,69,414,61,463,69,414,69,471,69,471,69,414,79,409,69,471,79,409,79,476,79,476,79,409,90,407,79,476,90,407,91,478,91,478,90,407,102,409,91,478,102,409,102,476,102,476,102,409,112,414,102,476,112,414,112,471,112,471,112,414,119,421,112,471,119,421,119,463,119,463,119,421,124,431,119,463,124,431,124,453,124,453,124,431,126,442,61,29,51,18,177,0,177,0,51,18,35,13,177,0,35,13,11,10,28,275,34,276,123,322,123,322,34,276,39,276,123,322,39,276,44,276,44,276,53,274,123,322,123,322,53,274,59,270,123,322,59,270,63,262,61,29,177,0,65,46,65,46,177,0,139,19,65,46,139,19,66,73,66,73,139,19,130,30,66,73,130,30,66,232,66,249,66,232,123,322,66,249,123,322,63,262,21,274,28,275,123,322,21,274,123,322,14,284,21,274,14,284,14,273,125,73,125,320,123,322,125,73,123,322,66,232,125,73,66,232,126,47,154,13,139,19,177,0,154,13,177,0,177,10,177,0,11,10,11,0,66,232,130,30,126,47,121,471,121,414,129,463,129,463,121,414,129,421,129,463,129,421,134,453,134,453,129,421,134,431,134,453,134,431,136,442,64,442,66,431,66,453,66,453,66,431,71,421,66,453,71,421,71,463,71,463,71,421,78,414,71,463,78,414,79,471,79,471,78,414,88,409,79,471,88,409,89,476,89,476,88,409,99,407,89,476,99,407,100,478,100,478,99,407,111,409,100,478,111,409,111,476,111,476,111,409,121,414,111,476,121,414,121,471,26,273,32,275,46,292,26,273,46,292,23,284,26,273,23,284,23,273,59,-123,54,-126,58,-145,58,-145,54,-126,49,-127,58,-145,49,-127,43,-128,43,-128,37,-127,58,-145,58,-145,37,-127,31,-125,58,-145,31,-125,26,-122,73,262,87,306,69,270,69,270,87,306,67,298,69,270,67,298,63,274,63,274,67,298,54,276,49,276,54,276,67,298,49,276,67,298,46,292,75,-79,73,-95,92,-126,92,-126,73,-95,70,-106,92,-126,70,-106,66,-115,66,-115,63,
--119,92,-126,92,-126,63,-119,59,-123,92,-126,59,-123,58,-145,130,-53,131,322,116,-95,116,-95,131,322,108,313,116,-95,108,313,92,-126,92,-126,108,313,87,306,92,-126,87,306,77,234,77,234,87,306,76,250,46,292,32,275,38,275,46,292,38,275,44,276,46,292,44,276,49,276,135,0,135,320,131,322,135,0,131,322,130,-53,92,-126,77,234,77,-30,92,-126,77,-30,76,-58,92,-126,76,-58,75,-79,16,-151,58,-145,26,-122,16,-151,26,-122,20,-116,16,-151,20,-116,13,-108,16,-151,13,-108,6,-100,16,-151,6,-100,0,-93,16,-151,0,-93,-4,-150,-4,-150,0,-93,-6,-89,-4,-150,-6,-89,-13,-86,-4,-150,-13,-86,-19,-86,-4,-150,-19,-86,-22,-144,-29,-87,-37,-91,-36,-136,-29,-87,-36,-136,-22,-144,-29,-87,-22,-144,-19,-86,-43,-97,-47,-104,-45,-126,-43,-97,-45,-126,-36,-136,-43,-97,-36,-136,-37,-91,-45,-126,-47,-104,-48,-113,87,306,73,262,76,250,53,27,45,20,169,0,169,0,45,20,30,15,169,0,30,15,5,10,15,437,19,437,26,453,26,453,19,437,23,437,26,453,23,437,27,438,27,438,39,436,48,459,48,459,39,436,48,432,48,459,48,432,53,424,10,436,15,437,26,453,10,436,26,453,5,448,10,436,5,448,5,436,272,62,165,198,221,37,221,37,165,198,116,183,221,37,116,183,116,176,118,34,116,47,67,464,118,34,67,464,57,395,57,395,67,464,56,412,67,464,48,459,53,424,67,464,53,424,56,412,48,459,26,453,27,438,116,47,116,477,113,478,116,47,113,478,98,473,116,47,98,473,83,469,116,47,83,469,67,464,212,268,165,198,185,216,212,268,185,216,230,256,212,268,116,183,165,198,225,284,222,279,230,256,230,256,222,279,217,273,230,256,217,273,212,268,336,315,193,315,207,305,336,315,207,305,217,303,336,315,217,303,224,301,336,315,224,301,227,297,336,315,227,297,228,293,336,315,228,293,288,297,336,315,288,297,311,303,336,315,311,303,336,305,228,293,230,256,263,282,228,293,263,282,288,297,230,256,228,293,227,289,230,256,227,289,225,284,226,15,223,12,353,0,353,0,223,12,219,11,353,0,219,11,214,10,229,21,353,0,319,19,229,21,319,19,304,28,229,21,304,28,288,42,229,21,288,42,272,62,229,21,272,62,229,
-23,272,62,221,37,224,33,272,62,224,33,226,29,272,62,226,29,228,26,272,62,228,26,229,23,336,13,319,19,353,0,336,13,353,0,353,10,228,18,226,15,353,0,228,18,353,0,229,21,201,10,201,0,353,0,201,10,353,0,214,10,169,0,169,10,155,11,169,0,155,11,140,13,169,0,140,13,129,17,169,0,129,17,56,39,169,0,56,39,53,27,129,17,122,24,57,57,57,57,122,24,118,34,57,57,118,34,57,395,169,0,5,10,5,0,56,39,129,17,57,57,207,305,193,315,193,305,62,30,53,20,180,0,180,0,53,20,37,14,180,0,37,14,15,10,26,437,31,437,40,454,40,454,31,437,35,437,40,454,35,437,39,438,39,438,51,436,40,454,40,454,51,436,63,460,40,454,13,448,20,437,40,454,20,437,26,437,51,436,59,431,63,460,63,460,59,431,65,423,63,460,65,423,83,466,83,466,65,423,68,410,83,466,68,410,69,393,129,41,69,393,69,64,129,41,69,64,133,27,133,27,69,64,142,18,127,61,127,475,124,478,127,61,124,478,103,472,127,61,103,472,83,466,127,61,83,466,129,41,180,0,180,10,157,13,180,0,157,13,142,18,180,0,142,18,67,44,180,0,67,44,62,30,20,437,13,448,13,436,180,0,15,10,15,0,67,44,142,18,69,64,69,393,129,41,83,466,23,280,27,281,35,296,35,296,27,281,31,281,35,296,31,281,36,281,36,281,45,280,54,302,54,302,45,280,52,275,54,302,52,275,57,266,35,296,13,291,18,280,35,296,18,280,23,280,54,302,57,266,72,308,72,308,57,266,59,253,72,308,59,253,60,235,120,34,60,235,60,62,120,34,60,62,125,23,125,23,60,62,134,16,54,302,35,296,36,281,116,320,111,322,116,268,116,268,111,322,119,49,116,268,119,49,118,268,118,268,119,49,119,244,118,268,119,244,119,245,242,25,234,17,357,0,357,0,234,17,220,12,357,0,220,12,200,10,225,322,206,321,218,282,218,282,206,321,202,286,186,284,202,286,187,317,186,284,187,317,169,280,169,280,187,317,166,308,169,280,166,308,153,274,153,274,166,308,144,292,153,274,144,292,139,265,139,265,144,292,128,255,144,292,118,268,119,245,144,292,119,245,121,247,144,
-292,121,247,123,249,144,292,123,249,125,252,144,292,125,252,128,255,119,49,111,322,91,314,119,49,91,314,120,34,206,321,187,317,202,286,242,25,357,0,247,39,247,39,357,0,322,17,247,39,322,17,248,60,248,60,322,17,313,27,248,60,313,27,248,208,246,320,248,208,263,313,246,320,225,322,231,272,246,320,231,272,240,256,246,320,240,256,246,235,246,320,246,235,248,208,290,285,278,301,308,43,290,285,308,43,306,66,290,285,306,66,299,263,306,243,319,259,322,285,322,285,319,259,332,271,322,285,332,271,344,301,344,301,332,271,347,279,344,301,347,279,366,313,366,313,347,279,363,284,366,313,363,284,381,286,381,286,402,283,389,320,389,320,402,283,413,322,306,66,306,243,299,263,299,263,306,243,322,285,389,320,366,313,381,286,430,28,423,19,542,0,542,0,423,19,410,14,542,0,410,14,390,10,417,274,428,259,443,317,443,317,428,259,433,237,443,317,433,237,435,207,499,26,435,207,435,63,499,26,435,63,505,18,505,18,435,63,434,43,505,18,434,43,513,14,513,14,434,43,542,0,513,14,542,0,524,12,524,12,542,0,542,10,413,322,402,283,417,274,413,322,417,274,443,317,495,54,495,196,491,241,495,54,491,241,482,276,495,54,482,276,466,301,495,54,466,301,496,38,496,38,466,301,443,317,496,38,443,317,435,207,496,38,435,207,499,26,336,12,322,17,357,0,336,12,357,0,357,10,308,43,278,301,263,313,308,43,263,313,248,208,308,43,248,208,313,27,166,0,166,10,147,12,166,0,147,12,134,16,166,0,134,16,59,41,166,0,59,41,54,26,166,0,54,26,45,17,166,0,45,17,31,12,166,0,31,12,11,10,166,0,11,10,11,0,72,308,60,235,120,34,72,308,120,34,91,314,18,280,13,291,13,279,59,41,134,16,60,62,357,0,200,10,200,0,542,0,390,10,390,0,430,28,542,0,434,43,225,322,218,282,231,272,51,29,43,19,160,0,160,0,43,19,31,13,160,0,31,13,13,10,13,10,31,13,12,10,18,280,22,281,33,297,33,297,22,281,27,281,33,297,27,281,31,281,31,281,41,280,33,297,33,297,41,280,52,303,33,297,11,291,14,280,33,297,14,280,18,280,41,280,48,
-275,52,303,52,303,48,275,53,267,52,303,53,267,70,309,70,309,53,267,56,254,70,309,56,254,56,236,116,36,56,236,56,66,116,36,56,66,120,26,120,26,56,66,129,18,113,320,107,322,113,266,113,266,107,322,115,51,113,266,115,51,115,244,113,266,115,244,135,287,135,287,115,244,132,260,135,287,132,260,147,271,135,287,147,271,155,303,155,303,147,271,161,279,155,303,161,279,175,314,175,314,161,279,174,282,175,314,174,282,187,284,187,284,205,281,195,320,195,320,205,281,214,322,115,51,107,322,88,315,115,51,88,315,116,36,195,320,175,314,187,284,233,32,225,21,340,0,340,0,225,21,213,14,340,0,213,14,195,10,220,273,230,259,243,317,243,317,230,259,236,239,243,317,236,239,238,213,238,213,236,239,238,212,238,213,238,212,302,27,302,27,238,212,238,73,302,27,238,73,310,18,310,18,238,73,237,49,310,18,237,49,340,0,340,0,237,49,233,32,214,322,205,281,220,273,214,322,220,273,243,317,297,59,297,214,293,252,297,59,293,252,283,282,297,59,283,282,298,40,322,13,310,18,340,0,322,13,340,0,340,10,298,40,283,282,266,304,298,40,266,304,243,317,298,40,243,317,238,213,298,40,238,213,302,27,160,0,160,10,142,13,160,0,142,13,129,18,160,0,129,18,55,44,160,0,55,44,51,29,70,309,56,236,116,36,70,309,116,36,88,315,14,280,11,291,11,279,160,0,13,10,13,0,55,44,129,18,56,66,340,0,195,10,194,0,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,
-143,266,143,268,24,268,293,268,293,268,24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,25,47,-122,38,-131,173,-151,173,-151,38,-131,24,-136,173,-151,24,-136,3,-139,13,276,16,276,28,293,28,293,16,276,20,276,28,293,20,276,23,276,23,276,36,275,28,293,28,293,36,275,48,300,28,293,6,286,10,275,28,293,10,275,13,276,115,49,111,62,125,11,125,11,111,62,111,23,112,-108,111,-86,67,306,112,-108,67,306,52,236,52,236,67,306,52,253,36,275,44,271,48,300,48,300,44,271,49,264,48,300,49,264,67,306,67,306,49,264,52,253,111,266,111,320,107,322,111,266,107,322,111,-86,111,266,111,-86,111,234,111,266,111,234,115,246,111,266,115,246,130,287,329,173,323,221,322,115,322,115,323,221,307,263,322,115,307,263,301,66,301,66,307,263,282,294,301,66,282,294,270,27,270,27,282,294,269,145,270,27,269,145,265,102,270,27,265,102,253,66,282,294,250,315,253,228,282,294,253,228,265,190,282,294,265,190,269,145,189,320,183,280,212,274,189,320,212,274,212,322,212,322,212,274,235,256,212,322,235,256,250,315,250,315,235,256,253,228,152,-2,166,-5,164,18,164,18,166,-5,184,16,212,22,184,16,229,2,212,22,229,2,236,39,236,39,229,2,270,27,236,39,270,27,253,66,184,16,166,-5,182,-6,184,16,182,-6,229,2,173,-151,173,-138,146,-137,173,-151,146,-137,128,-132,173,-151,128,-132,51,-109,173,-151,51,-109,47,-122,86,314,67,306,111,-86,86,314,111,-86,107,322,128,-132,118,-123,52,-90,52,-90,118,-123,112,-108,52,-90,112,-108,52,236,115,246,127,259,130,287,130,287,127,259,144,270,130,287,144,270,149,303,149,303,144,270,163,277,149,303,163,277,168,314,168,314,163,277,183,280,168,
-314,183,280,189,320,115,49,125,11,127,36,127,36,125,11,139,3,127,36,139,3,144,26,144,26,139,3,152,-2,144,26,152,-2,164,18,10,275,6,286,6,275,173,-151,3,-139,3,-151,51,-109,128,-132,52,-90,157,37,146,39,153,-4,153,-4,146,39,135,43,153,-4,135,43,129,-6,129,-6,135,43,125,48,129,-6,125,48,116,55,116,55,103,70,129,-6,129,-6,103,70,92,90,129,-6,92,90,92,0,92,0,92,90,84,114,92,0,84,114,79,140,153,-4,176,1,157,37,157,37,176,1,169,36,182,37,169,36,176,1,182,37,176,1,198,12,187,321,173,302,197,299,187,321,197,299,202,319,202,319,197,299,215,291,202,319,215,291,217,314,217,314,215,291,229,277,217,314,229,277,234,307,234,307,229,277,236,258,234,307,236,258,252,298,252,298,236,258,239,233,252,298,239,233,239,45,239,45,239,233,239,89,94,251,114,279,122,313,122,313,114,279,141,296,122,313,141,296,171,322,171,322,141,296,173,302,171,322,173,302,187,321,79,288,46,250,61,21,79,288,61,21,77,169,79,288,77,169,82,214,79,288,82,214,94,251,79,288,94,251,122,313,77,169,61,21,79,140,17,144,23,94,25,201,25,201,23,94,38,53,25,201,38,53,46,250,46,250,38,53,61,21,231,-120,220,-130,341,-151,341,-151,220,-130,202,-136,341,-151,202,-136,177,-139,238,73,236,66,239,45,239,45,236,66,233,62,239,45,233,62,230,58,230,58,220,50,239,45,239,45,220,50,220,26,239,80,238,73,239,45,239,80,239,45,239,89,209,44,196,40,198,12,209,44,198,12,220,26,209,44,220,26,220,50,298,-97,298,320,290,320,298,-97,290,320,252,298,298,-97,252,298,299,-113,341,-151,341,-139,323,-136,341,-151,323,-136,310,-131,341,-151,310,-131,237,-106,341,-151,237,-106,231,-120,239,45,302,-124,299,-113,239,45,299,-113,252,298,239,-86,237,-106,310,-131,239,-86,310,-131,302,-124,239,-86,302,-124,239,45,341,-151,177,-139,177,-151,79,140,61,21,92,0,182,37,198,12,196,40,15,275,20,275,28,292,28,292,20,275,25,276,28,292,25,276,30,276,30,276,39,274,48,299,48,299,39,274,45,270,48,299,45,270,50,262,28,292,5,284,10,274,28,292,10,274,15,275,112,256,112,
-320,109,322,112,256,109,322,112,63,112,63,109,322,87,314,112,63,87,314,113,43,113,43,87,314,68,306,113,43,68,306,53,234,53,234,68,306,52,250,68,306,48,299,50,262,68,306,50,262,52,250,48,299,28,292,30,276,171,274,179,320,167,276,167,276,179,320,164,313,167,276,164,313,164,278,164,278,164,313,161,278,148,274,161,278,164,313,148,274,164,313,148,301,191,258,196,322,186,262,186,262,196,322,179,320,186,262,179,320,179,267,179,267,179,320,175,271,202,254,207,253,209,320,209,320,207,253,216,255,209,320,216,255,220,315,220,315,216,255,224,259,220,315,224,259,228,308,228,308,224,259,230,265,228,308,230,265,233,298,233,298,230,265,233,274,233,298,233,274,234,285,197,255,202,254,209,320,197,255,209,320,196,322,197,255,196,322,191,258,115,235,123,250,131,282,131,282,123,250,135,264,131,282,135,264,148,301,148,301,135,264,148,274,112,63,112,220,112,256,112,256,112,220,115,235,112,256,115,235,131,282,172,0,172,10,147,13,172,0,147,13,130,18,172,0,130,18,52,41,172,0,52,41,49,29,172,0,49,29,40,21,172,0,40,21,26,15,172,0,26,15,3,10,172,0,3,10,3,0,130,18,119,28,53,59,53,59,119,28,113,43,53,59,113,43,53,234,10,274,5,284,5,273,52,41,130,18,53,59,179,320,171,274,175,271,51,3,54,4,58,71,58,71,54,4,58,5,58,71,58,5,63,5,63,5,58,5,62,5,63,5,62,5,67,5,63,5,67,5,71,43,71,43,67,5,72,5,71,43,72,5,89,24,89,24,72,5,78,4,89,24,78,4,85,2,51,3,58,71,48,0,48,0,58,71,48,107,48,0,48,107,45,-2,45,-2,48,107,37,107,45,-2,37,107,37,-2,100,317,74,307,82,276,82,276,74,307,79,259,89,153,79,259,74,307,89,153,74,307,65,173,65,173,74,307,53,289,65,173,53,289,49,193,49,193,53,289,40,265,49,193,40,265,39,214,39,214,40,265,36,235,142,321,132,321,154,303,154,303,132,321,131,306,114,304,131,306,132,321,114,304,132,321,100,317,192,309,188,310,188,277,188,277,188,310,183,312,188,277,183,312,179,313,179,313,170,317,173,294,173,294,170,317,161,
-319,173,294,161,319,154,303,154,303,161,319,152,320,154,303,152,320,142,321,207,312,205,310,211,220,211,220,205,310,202,308,211,220,202,308,200,253,200,253,202,308,200,308,200,253,200,308,198,308,198,308,195,308,200,253,200,253,195,308,192,309,200,253,192,309,188,277,211,220,221,220,218,315,211,220,218,315,210,315,211,220,210,315,207,312,179,313,173,294,188,277,244,80,242,102,239,53,239,53,242,102,235,120,239,53,235,120,224,29,224,29,235,120,223,136,224,29,223,136,206,151,172,18,176,-1,184,30,184,30,176,-1,203,10,184,30,203,10,192,44,192,44,203,10,195,60,206,151,195,60,203,10,206,151,203,10,224,29,170,104,180,95,182,166,182,166,180,95,188,84,182,166,188,84,206,151,206,151,188,84,193,73,206,151,193,73,195,60,182,166,109,211,120,134,182,166,120,134,158,113,182,166,158,113,170,104,109,211,99,219,120,134,120,134,99,219,90,228,120,134,90,228,89,153,89,153,90,228,84,238,89,153,84,238,80,249,137,9,145,-6,156,11,156,11,145,-6,176,-1,156,11,176,-1,172,18,100,317,82,276,89,290,100,317,89,290,100,299,100,317,100,299,114,304,137,9,110,12,115,-4,137,9,115,-4,126,-5,137,9,126,-5,136,-6,137,9,136,-6,145,-6,110,12,89,24,95,0,110,12,95,0,105,-3,110,12,105,-3,115,-4,95,0,89,24,85,2,71,43,58,71,63,5,79,259,89,153,80,249,59,346,45,330,49,293,49,293,45,330,33,319,49,293,33,319,21,311,74,364,59,346,59,25,74,364,59,25,72,7,74,364,72,7,89,-2,74,364,89,-2,89,386,52,50,59,25,59,346,52,50,59,346,49,293,52,50,49,293,49,82,10,294,11,294,11,303,11,303,11,294,12,293,11,303,12,293,14,305,14,305,12,293,49,293,14,305,49,293,17,308,17,308,49,293,21,311,10,300,9,298,9,296,10,300,9,296,10,295,10,300,10,295,10,294,10,300,10,294,11,303,97,397,111,-6,108,92,108,315,108,293,178,293,108,315,178,293,178,315,108,92,108,396,108,400,108,92,108,400,107,402,108,92,107,402,106,404,108,92,106,404,105,405,108,92,105,405,103,405,108,92,103,405,100,401,108,92,100,401,97,397,120,
-39,131,-4,131,32,131,32,131,-4,145,30,153,30,145,30,149,1,153,30,149,1,165,12,113,51,109,69,111,-6,113,51,111,-6,131,-4,113,51,131,-4,120,39,111,-6,97,397,94,393,111,-6,94,393,92,390,111,-6,92,390,89,386,111,-6,89,386,89,-2,181,27,195,46,186,54,181,27,186,54,177,44,181,27,177,44,169,38,181,27,169,38,165,12,161,33,153,30,165,12,161,33,165,12,169,38,145,30,131,-4,149,1,108,92,111,-6,109,69,109,315,6,315,24,303,109,315,24,303,36,298,109,315,36,298,44,289,109,315,44,289,49,276,109,315,49,276,50,259,109,315,50,259,54,53,109,315,54,53,64,28,109,315,64,28,82,9,109,315,82,9,106,-2,109,315,106,-2,109,89,230,74,227,67,235,53,235,53,227,67,223,61,235,53,223,61,217,55,217,55,206,47,214,29,214,29,206,47,194,41,214,29,194,41,193,12,193,12,194,41,182,37,193,12,182,37,172,1,172,1,182,37,170,34,172,1,170,34,158,34,158,34,142,36,152,-4,152,-4,142,36,135,-6,135,-6,142,36,129,44,135,-6,129,44,118,56,135,-6,118,56,111,71,135,-6,111,71,106,-2,109,89,106,-2,111,71,158,34,152,-4,172,1,233,258,235,53,292,315,292,315,235,53,237,53,292,315,237,53,240,-5,240,-5,237,53,237,-3,235,53,233,258,233,96,235,53,233,96,232,83,235,53,232,83,230,74,217,55,214,29,235,53,315,36,304,40,316,20,316,20,304,40,297,47,316,20,297,47,297,14,297,14,297,47,293,59,297,14,293,59,279,8,279,8,293,59,292,75,279,8,292,75,292,315,292,315,240,-5,260,2,292,315,260,2,279,8,292,315,181,315,203,301,292,315,203,301,218,296,292,315,218,296,227,289,292,315,227,289,232,276,292,315,232,276,233,258,332,35,315,36,316,20,332,35,316,20,336,25,332,35,336,25,336,35,54,53,50,259,50,83,203,301,181,315,181,303,24,303,6,315,6,305,122,265,120,271,161,23,161,23,120,271,119,276,161,23,119,276,77,224,77,224,119,276,118,281,77,224,118,281,118,286,118,286,119,292,77,224,151,315,13,315,27,303,151,315,27,303,38,296,151,315,38,296,49,283,151,315,49,283,61,260,151,315,61,
-260,123,297,151,315,123,297,129,300,151,315,129,300,138,303,151,315,138,303,151,305,119,292,123,297,61,260,119,292,61,260,77,224,196,80,124,259,161,23,196,80,161,23,163,20,196,80,163,20,164,16,196,80,164,16,165,13,196,80,165,13,166,11,196,80,166,11,166,9,196,80,166,9,169,2,196,80,169,2,172,-2,196,80,172,-2,174,-6,196,80,174,-6,177,-8,196,80,177,-8,179,-9,196,80,179,-9,182,-8,196,80,182,-8,185,-4,196,80,185,-4,189,1,196,80,189,1,193,11,196,80,193,11,198,25,196,80,198,25,266,261,288,250,266,261,198,25,334,315,237,315,249,303,334,315,249,303,258,300,334,315,258,300,265,295,334,315,265,295,268,289,334,315,268,289,270,282,334,315,270,282,314,298,334,315,314,298,323,303,334,315,323,303,334,305,288,250,298,273,270,282,288,250,270,282,269,278,288,250,269,278,269,274,288,250,269,274,268,269,288,250,268,269,267,265,288,250,267,265,266,261,306,289,314,298,270,282,306,289,270,282,298,273,249,303,237,315,237,305,122,265,161,23,124,259,27,303,13,315,13,305,30,299,37,292,141,315,141,315,37,292,44,279,141,315,44,279,52,260,52,260,146,21,109,273,109,273,146,21,110,269,52,260,109,277,109,281,109,281,110,289,52,260,52,260,110,289,113,295,52,260,113,295,119,299,141,315,52,260,119,299,141,315,119,299,128,302,141,315,128,302,141,305,23,303,30,299,141,315,23,303,141,315,15,315,23,303,15,315,15,305,260,185,285,280,286,287,260,185,286,287,245,217,245,217,286,287,232,256,224,275,232,256,290,293,224,275,290,293,297,298,326,315,184,315,197,302,326,315,197,302,208,297,326,315,208,297,216,288,326,315,216,288,224,275,326,315,224,275,297,298,326,315,297,298,309,301,326,315,309,301,326,305,290,293,232,256,286,287,355,81,297,238,324,20,355,81,324,20,329,7,355,81,329,7,333,-1,355,81,333,-1,336,-6,355,81,336,-6,338,-9,355,81,338,-9,341,-9,355,81,341,-9,344,-8,355,81,344,-8,347,-5,355,81,347,-5,350,0,355,81,350,0,354,10,355,81,354,10,360,24,355,81,360,24,419,237,324,20,297,238,292,250,324,20,292,250,289,259,324,20,289,259,287,
-266,324,20,287,266,286,273,324,20,286,273,260,185,457,266,419,237,360,24,486,315,400,315,412,301,486,315,412,301,421,298,486,315,421,298,426,294,486,315,426,294,430,289,486,315,430,289,430,284,486,315,430,284,468,290,486,315,468,290,473,297,486,315,473,297,479,301,486,315,479,301,486,305,457,266,463,281,430,284,457,266,430,284,430,276,457,266,430,276,428,268,457,266,428,268,426,258,457,266,426,258,423,248,457,266,423,248,419,237,173,0,177,7,182,77,182,77,177,7,182,17,182,77,182,17,245,217,245,217,182,17,260,185,182,77,113,260,146,21,182,77,146,21,151,9,182,77,151,9,155,1,182,77,155,1,159,-4,182,77,159,-4,162,-8,182,77,162,-8,165,-9,182,77,165,-9,167,-8,182,77,167,-8,170,-5,182,77,170,-5,173,0,111,264,110,269,146,21,111,264,146,21,113,260,52,260,109,273,109,277,412,301,400,315,400,305,468,290,430,284,463,281,260,185,286,273,285,280,197,302,184,315,184,305,43,22,34,15,113,0,113,0,34,15,24,12,113,0,24,12,12,10,45,299,55,292,162,315,162,315,55,292,65,279,162,315,65,279,77,263,77,262,77,263,143,162,77,262,143,162,131,289,131,289,132,295,77,262,77,262,132,295,136,299,77,262,136,299,162,315,162,315,136,299,142,302,162,315,142,302,150,304,43,22,113,0,52,31,52,31,113,0,89,15,52,31,89,15,63,46,63,46,89,15,86,18,63,46,86,18,85,23,85,23,86,27,63,46,63,46,86,27,87,31,63,46,87,31,143,162,143,162,87,31,90,37,143,162,90,37,94,43,143,162,94,43,99,52,99,52,155,138,143,162,143,162,155,138,144,259,143,162,144,259,137,272,150,304,162,305,162,315,162,315,17,315,23,305,162,315,23,305,35,303,162,315,35,303,45,299,133,282,131,289,143,162,133,282,143,162,137,272,170,218,168,221,219,40,219,40,168,221,166,224,219,40,166,224,164,227,164,227,153,244,155,138,155,138,153,244,144,259,311,16,300,25,223,27,223,27,300,25,289,37,223,27,289,37,278,52,278,52,188,190,219,40,219,40,188,190,178,218,219,40,178,218,173,213,173,212,173,213,172,216,173,212,172,216,219,40,219,40,172,216,170,218,303,
-315,192,315,203,303,303,315,203,303,211,301,303,315,211,301,216,298,303,315,216,298,219,294,303,315,219,294,220,289,303,315,220,289,265,293,303,315,265,293,277,299,303,315,277,299,290,303,303,315,290,303,303,305,246,273,255,284,220,289,246,273,220,289,219,283,246,273,219,283,216,276,246,273,216,276,210,268,246,273,210,268,203,257,246,273,203,257,195,244,246,273,195,244,190,237,246,273,190,237,188,190,188,190,190,237,186,231,188,190,186,231,182,224,188,190,182,224,178,218,220,16,215,13,335,0,335,0,215,13,206,11,335,0,206,11,195,10,221,35,222,33,278,52,278,52,222,33,222,30,278,52,222,30,223,27,223,27,222,21,335,0,335,0,222,21,220,16,278,52,219,40,220,37,278,52,220,37,221,35,164,227,155,138,219,40,335,0,335,10,323,12,335,0,323,12,311,16,335,0,311,16,223,27,113,0,113,10,103,11,113,0,103,11,95,12,113,0,95,12,89,15,113,0,12,10,12,0,335,0,195,10,195,0,173,212,219,40,173,213,203,303,192,315,192,305,265,293,220,289,255,284,23,305,17,315,17,305,162,315,77,263,77,262,126,-80,119,-87,126,-133,126,-133,119,-87,112,-91,126,-133,112,-91,105,-93,105,-93,103,-93,126,-133,126,-133,103,-93,100,-147,126,-80,149,-107,134,-72,134,-72,149,-107,141,-62,149,-48,141,-62,149,-107,149,-48,149,-107,171,-69,201,82,123,257,139,84,201,82,139,84,147,66,201,82,147,66,155,49,201,82,155,49,162,34,201,82,162,34,167,21,201,82,167,21,169,13,201,82,169,13,171,-69,201,82,171,-69,192,-16,201,82,192,-16,298,269,201,82,298,269,269,275,169,13,169,12,171,-69,171,-69,169,12,169,13,171,-69,169,13,167,2,139,84,123,257,120,263,139,84,120,263,117,269,139,84,117,269,115,275,139,84,115,275,114,281,139,84,114,281,47,280,47,280,114,281,113,286,113,286,115,293,47,280,47,280,115,293,119,297,47,280,119,297,153,315,153,315,119,297,126,301,153,315,126,301,138,303,271,283,271,281,298,269,298,269,271,281,270,278,298,269,270,278,269,275,333,315,239,315,251,304,333,315,251,304,260,302,333,315,260,302,267,299,333,315,267,299,271,294,333,315,271,294,272,288,333,315,272,
-288,316,298,333,315,316,298,323,303,333,315,323,303,333,305,272,288,272,287,298,269,272,288,298,269,303,282,272,288,303,282,309,292,272,288,309,292,316,298,272,286,271,283,298,269,272,286,298,269,272,287,272,286,272,287,272,288,171,-69,167,2,163,-12,171,-69,163,-12,157,-30,171,-69,157,-30,149,-48,100,-147,103,-93,100,-92,100,-147,100,-92,96,-91,100,-147,96,-91,92,-90,100,-147,92,-90,88,-88,100,-147,88,-88,80,-85,100,-147,80,-85,73,-82,100,-147,73,-82,70,-151,73,-82,66,-80,70,-151,70,-151,66,-80,58,-79,70,-151,58,-79,53,-149,53,-149,58,-79,51,-79,53,-149,51,-79,41,-80,53,-149,41,-80,40,-144,40,-144,41,-80,33,-85,40,-144,33,-85,30,-135,30,-135,33,-85,27,-92,30,-135,27,-92,23,-124,23,-124,27,-92,23,-101,23,-124,23,-101,21,-111,138,303,153,305,153,315,153,315,10,315,20,303,153,315,20,303,29,300,153,315,29,300,36,295,153,315,36,295,42,289,153,315,42,289,47,280,92,-90,87,-88,88,-88,20,303,10,315,10,305,126,-80,126,-133,149,-107,251,304,239,315,239,305,94,21,282,305,205,294,205,294,282,305,282,315,205,294,282,315,111,294,88,292,111,294,282,315,88,292,282,315,40,315,40,315,37,232,50,232,40,315,50,232,54,258,40,315,54,258,61,276,40,315,61,276,72,287,40,315,72,287,88,292,205,294,19,10,94,21,94,21,19,10,282,0,94,21,282,0,187,21,187,21,282,0,209,22,273,66,270,55,282,0,282,0,270,55,266,47,282,0,266,47,261,40,261,40,254,33,282,0,282,0,254,33,242,28,282,0,242,28,228,24,282,0,293,95,280,98,282,0,280,98,276,80,282,0,276,80,273,66,282,0,19,10,19,0,209,22,282,0,228,24,149,-99,160,-108,161,154,161,154,160,-108,172,-115,161,154,172,-115,173,137,173,137,172,-115,185,-120,173,137,185,-120,181,-32,181,-32,181,84,179,115,181,-32,179,115,173,137,220,-125,245,-126,245,-118,220,-125,245,-118,220,-109,220,-125,220,-109,202,-97,220,-125,202,-97,201,-123,190,-81,183,-60,185,-120,190,-81,185,-120,201,-123,190,-81,201,-123,202,-97,143,165,116,174,122,140,143,165,122,140,128,121,143,165,128,121,130,95,143,165,130,95,131,-50,143,165,131,-50,135,
--70,143,165,135,-70,141,-86,143,165,141,-86,149,-99,143,165,149,-99,161,154,130,95,130,-28,131,-50,111,154,122,140,116,174,111,154,116,174,122,209,111,154,122,209,111,195,111,154,111,195,94,166,220,475,201,473,202,447,220,475,202,447,220,459,220,475,220,459,245,468,220,475,245,468,245,476,181,382,183,410,185,470,185,470,183,410,190,431,185,470,190,431,201,473,201,473,190,431,202,447,160,459,161,195,172,465,172,465,161,195,173,212,172,465,173,212,181,382,181,382,173,212,179,234,181,382,179,234,181,265,149,449,141,437,143,183,149,449,143,183,161,195,149,449,161,195,160,459,143,183,141,437,135,421,143,183,135,421,131,401,143,183,131,401,130,379,143,183,130,379,130,254,143,183,130,254,128,228,143,183,128,228,122,209,143,183,122,209,116,174,94,184,70,175,94,166,94,184,94,166,111,195,172,465,181,382,185,470,181,-32,185,-120,183,-60,93,-9,93,473,47,473,93,-9,47,473,47,-9,155,382,156,234,155,382,155,382,156,234,164,465,155,382,164,465,153,410,153,410,164,465,151,470,153,410,151,470,146,431,146,431,151,470,136,473,146,431,136,473,134,447,134,447,136,473,116,475,134,447,116,475,116,459,116,459,116,475,91,476,116,459,91,476,91,468,206,254,206,378,205,400,206,254,205,400,201,420,206,254,201,420,195,436,206,254,195,436,193,184,206,254,193,184,208,228,241,166,266,175,241,184,241,166,241,184,224,155,224,155,241,184,224,195,224,155,224,195,220,175,220,175,224,195,214,209,220,175,214,209,208,228,156,234,163,211,164,465,164,465,163,211,175,195,164,465,175,195,176,459,176,459,175,195,193,184,176,459,193,184,186,449,186,449,193,184,195,436,220,175,193,166,208,121,220,175,208,121,214,140,220,175,214,140,224,155,206,95,208,121,193,166,206,95,193,166,195,-86,206,95,195,-86,201,-70,206,95,201,-70,205,-51,206,95,205,-51,206,-29,163,138,164,-115,175,154,175,154,164,-115,176,-108,175,154,176,-108,193,166,193,166,176,-108,187,-99,193,166,187,-99,195,-86,164,-115,163,138,156,115,164,-115,156,115,155,84,164,-115,155,84,155,-32,164,-115,155,-32,153,-60,164,-115,153,-60,151,-120,146,-81,134,-97,135,-123,146,-81,135,-123,151,-120,146,
--81,151,-120,153,-60,116,-109,91,-118,116,-125,116,-109,116,-125,135,-123,116,-109,135,-123,134,-97,116,-125,91,-118,91,-126,208,228,193,184,220,175,156,234,155,382,155,265,128,224,116,224,129,178,129,178,116,224,112,179,97,177,112,179,116,224,97,177,116,224,96,222,198,200,180,162,201,150,198,200,201,150,207,195,207,195,201,150,217,142,207,195,217,142,220,189,220,189,217,142,232,136,220,189,232,136,235,183,235,183,232,136,247,132,235,183,247,132,250,178,250,178,247,132,264,131,250,178,264,131,265,177,265,177,264,131,283,133,265,177,283,133,282,179,128,224,129,178,141,221,141,221,129,178,145,175,141,221,145,175,155,217,155,217,145,175,159,170,155,217,159,170,173,210,173,210,159,170,171,166,173,210,171,166,180,162,282,179,283,133,296,186,296,186,283,133,300,140,296,186,300,140,307,197,307,197,300,140,317,151,307,197,317,151,317,211,317,211,317,151,334,168,317,211,334,168,327,227,327,227,334,168,352,192,61,146,72,160,78,216,78,216,72,160,84,170,78,216,84,170,96,222,96,222,84,170,97,177,60,205,43,188,53,128,60,205,53,128,61,146,60,205,61,146,78,216,53,128,43,188,28,163,180,162,198,200,173,210,67,292,69,280,69,304,69,304,69,280,74,269,69,304,74,269,74,314,74,314,74,269,82,261,74,314,82,261,82,321,82,321,82,261,92,255,82,321,92,255,92,326,92,326,92,255,104,253,92,326,104,253,105,327,105,327,104,253,116,255,105,327,116,255,116,326,116,326,116,255,126,261,116,326,126,261,126,321,126,321,126,261,134,269,126,321,134,269,134,313,134,313,134,269,139,280,134,313,139,280,140,304,140,304,139,280,141,292,140,-69,109,198,117,-149,140,-69,117,-149,127,-141,140,-69,127,-141,135,-129,140,-69,135,-129,140,-114,140,-69,140,-114,141,-96,140,-69,141,-96,141,-75,81,-142,91,-149,100,198,100,198,91,-149,105,-151,100,198,105,-151,109,198,109,198,105,-151,117,-149,100,198,69,-69,69,-116,100,198,69,-116,73,-131,100,198,73,-131,81,-142,69,-116,69,-69,68,-75,69,-116,68,-75,68,-80,69,-116,68,-80,68,-85,69,-116,68,-85,67,-91,69,-116,67,-91,67,-97,141,-96,141,-90,141,-85,141,-96,141,-85,141,-81,141,-96,141,
--81,141,-75,219,295,138,69,141,0,141,0,138,69,120,88,141,0,120,88,118,9,118,9,120,88,107,108,118,9,107,108,103,17,103,17,107,108,98,129,103,17,98,129,92,154,74,42,82,33,91,182,91,182,92,25,92,154,92,154,92,25,103,17,158,-3,166,-4,160,53,160,53,166,-4,169,50,169,50,166,-4,173,-5,169,50,173,-5,178,47,178,47,173,-5,180,-5,178,47,180,-5,186,46,186,46,180,-5,196,-4,186,46,196,-4,193,45,193,45,196,-4,202,45,225,47,202,45,211,-1,225,47,211,-1,226,4,160,53,231,257,219,295,219,295,227,319,218,320,219,295,218,320,212,297,212,297,218,320,210,321,212,297,210,321,205,299,205,299,210,321,203,321,205,299,203,321,199,300,199,300,203,321,197,322,199,300,197,322,193,301,193,301,197,322,191,322,193,301,191,322,186,301,258,405,227,319,231,257,258,405,231,257,239,243,258,405,239,243,249,311,258,405,249,311,282,405,239,243,246,232,249,311,249,311,246,232,253,225,249,311,253,225,268,302,268,302,253,225,262,222,268,302,262,222,272,220,160,53,219,295,141,0,160,53,141,0,150,-1,160,53,150,-1,158,-3,106,-96,141,0,118,9,106,-96,118,9,83,-96,272,220,282,222,282,292,282,292,282,222,290,226,282,292,290,226,293,280,293,280,290,226,296,233,293,280,296,233,299,266,299,266,296,233,300,242,299,266,300,242,302,252,108,255,128,279,142,313,142,313,128,279,154,295,142,313,154,295,191,322,191,322,154,295,186,301,99,290,66,253,66,53,99,290,66,53,74,42,99,290,74,42,91,182,99,290,91,182,95,222,99,290,95,222,108,255,99,290,108,255,142,313,38,132,42,110,44,207,44,207,42,110,48,90,44,207,48,90,66,253,66,253,48,90,56,71,66,253,56,71,66,53,266,33,278,47,284,87,284,87,278,47,289,63,284,87,289,63,305,115,305,115,289,63,300,83,305,115,300,83,313,109,226,4,240,11,245,54,245,54,240,11,252,20,245,54,252,20,264,67,264,67,252,20,266,33,264,67,266,33,284,87,202,45,196,-4,211,-1,225,47,226,4,245,54,38,132,44,207,37,153,268,302,272,220,282,292,219,295,231,257,227,319,92,25,91,182,82,33,83,25,77,20,83,
-0,83,0,77,20,71,17,83,0,71,17,70,-3,70,-3,71,17,64,15,70,-3,64,15,56,-4,56,-4,64,15,56,14,97,89,90,90,91,60,91,60,90,90,84,90,91,60,84,90,82,63,82,63,84,90,78,91,82,63,78,91,72,65,72,65,78,91,72,91,72,65,72,91,62,66,28,49,32,56,33,81,33,81,32,56,40,62,33,81,40,62,51,88,51,88,40,62,49,65,51,88,49,65,62,66,28,31,27,40,27,2,27,2,27,40,20,70,20,70,27,40,33,81,33,81,27,40,28,49,99,50,98,46,109,20,109,20,98,46,96,41,109,20,96,41,95,8,95,8,96,41,93,36,95,8,93,36,89,31,89,31,83,25,95,8,95,8,83,25,83,0,106,94,105,91,109,20,109,20,105,91,105,87,109,20,105,87,99,53,99,53,105,87,105,88,99,53,105,88,97,57,97,57,105,88,97,89,97,57,97,89,91,60,109,20,99,53,99,50,124,38,150,21,139,77,139,77,150,21,164,68,164,68,150,21,172,8,164,68,172,8,186,61,186,61,172,8,191,1,186,61,191,1,205,56,205,56,191,1,208,-2,205,56,208,-2,224,54,224,54,208,-2,226,-4,224,54,226,-4,244,53,244,53,226,-4,245,-2,244,53,245,-2,262,54,139,77,148,119,145,359,145,359,148,392,138,444,138,444,148,392,157,418,138,444,157,418,176,466,176,466,157,418,170,438,176,466,170,438,189,450,252,470,223,473,226,453,226,453,223,473,212,455,189,450,212,455,223,473,189,450,223,473,176,466,309,429,296,447,300,378,309,429,300,378,307,386,309,429,307,386,312,396,309,429,312,396,313,408,260,377,268,372,277,461,277,461,268,372,279,371,277,461,279,371,296,447,296,447,279,371,290,373,296,447,290,373,300,378,250,431,252,418,252,470,252,470,252,418,253,399,252,470,253,399,277,461,277,461,253,399,255,385,277,461,255,385,260,377,252,470,226,453,237,449,252,470,237,449,245,441,252,470,245,441,250,431,106,100,109,20,106,102,106,102,109,20,110,410,110,410,109,20,124,38,110,410,124,38,138,444,138,444,124,38,139,77,138,444,139,77,145,359,153,146,156,164,153,261,153,261,156,164,156,230,153,261,156,230,241,261,241,261,156,230,241,230,153,
-261,150,287,153,146,153,146,150,287,148,308,153,146,148,308,148,119,148,119,148,308,146,326,148,119,146,326,146,343,157,195,157,204,157,187,157,187,157,204,157,213,157,187,157,213,157,176,157,176,157,213,157,221,157,176,157,221,156,230,321,45,323,87,312,34,312,34,323,87,309,75,312,34,309,75,297,20,297,20,309,75,294,65,297,20,294,65,281,10,281,10,294,65,279,58,281,10,279,58,263,2,263,2,279,58,262,54,263,2,262,54,245,-2,343,97,342,97,343,95,343,95,342,97,341,98,343,95,341,98,341,86,341,86,341,98,340,98,341,86,340,98,339,98,336,73,341,86,339,98,336,73,339,98,336,98,336,73,336,98,333,97,336,73,333,97,330,94,336,73,330,94,329,59,329,59,330,94,327,91,329,59,327,91,323,87,329,59,323,87,321,45,110,410,92,365,95,206,110,410,95,206,99,178,110,410,99,178,102,152,110,410,102,152,104,130,110,410,104,130,106,114,110,410,106,114,106,102,92,365,86,309,86,300,92,365,86,300,87,291,92,365,87,291,88,281,92,365,88,281,89,272,92,365,89,272,91,261,92,365,91,261,91,230,92,365,91,230,95,206,106,97,106,94,109,20,106,97,109,20,106,100,91,230,91,261,16,261,91,230,16,261,16,230,46,15,38,19,40,-3,46,15,40,-3,56,-4,46,15,56,-4,56,14,40,-3,38,19,32,24,40,-3,32,24,28,31,40,-3,28,31,27,2,9,37,11,23,11,56,11,56,11,23,17,11,11,56,17,11,20,70,20,70,17,11,27,2,309,75,323,87,323,88,157,176,156,230,156,164,145,359,148,119,146,343,62,66,72,91,51,88,139,37,157,34,143,83,143,83,157,34,176,77,208,83,176,77,176,33,208,83,176,33,195,34,87,306,20,373,53,272,87,306,53,272,53,95,87,306,53,95,72,184,87,306,72,184,77,217,87,306,77,217,92,246,87,306,92,246,105,317,92,121,77,150,87,62,87,62,77,150,72,184,195,333,176,334,207,284,207,284,176,334,174,289,142,284,174,289,157,333,142,284,157,333,139,330,122,325,105,317,114,269,122,325,114,269,142,284,122,325,142,284,139,330,366,28,298,95,332,-6,332,-6,298,95,273,151,332,-6,273,151,263,62,263,62,273,
-151,259,121,263,62,259,121,247,51,247,51,259,121,236,98,247,51,236,98,230,43,230,43,236,98,213,37,208,83,195,34,213,37,208,83,213,37,236,98,273,218,278,185,298,272,273,218,298,272,332,373,332,373,298,272,366,340,231,324,236,269,247,317,247,317,236,269,258,247,247,317,258,247,263,306,263,306,258,247,273,218,263,306,273,218,332,373,214,330,195,333,207,284,214,330,207,284,236,269,214,330,236,269,231,324,298,272,298,95,309,254,309,254,298,95,309,113,309,254,309,113,317,238,317,238,309,113,317,130,317,238,317,130,322,221,322,221,317,130,322,148,322,221,322,148,325,204,325,204,322,148,325,165,325,204,325,165,326,184,298,95,298,272,278,185,298,95,278,185,273,151,176,77,157,34,176,33,176,334,157,333,174,289,139,37,143,83,121,43,121,43,143,83,114,98,121,43,114,98,104,51,104,51,114,98,92,121,104,51,92,121,87,62,53,95,20,-6,87,62,53,95,87,62,72,184,53,95,53,272,42,112,42,112,53,272,42,255,42,112,42,255,34,129,34,129,42,255,34,238,34,129,34,238,29,146,29,146,34,238,29,221,29,146,29,221,25,164,25,164,29,221,25,203,25,164,25,203,24,184,20,-6,53,95,-15,28,105,317,92,246,114,269,53,272,20,373,-15,340,45,367,112,246,45,367,45,367,112,246,88,424,45,367,88,424,88,430,88,430,89,438,45,367,127,35,117,22,248,0,248,0,117,22,101,16,248,0,101,16,77,13,133,463,-36,463,-19,447,133,463,-19,447,-4,440,133,463,-4,440,9,426,133,463,9,426,94,443,133,463,94,443,103,447,133,463,103,447,116,449,133,463,116,449,133,450,25,402,45,367,89,438,25,402,89,438,94,443,25,402,94,443,9,426,258,398,179,244,192,209,258,398,192,209,198,219,258,398,198,219,212,246,258,398,212,246,276,375,258,398,276,375,261,405,359,463,222,463,232,450,359,463,232,450,243,449,359,463,243,449,253,446,359,463,253,446,261,441,359,463,261,441,265,436,359,463,265,436,267,429,359,463,267,429,321,434,359,463,321,434,339,444,359,463,339,444,359,450,276,375,290,401,267,429,276,375,267,429,267,424,276,375,267,424,266,418,276,375,266,418,264,411,276,375,264,411,261,
-405,305,420,321,434,267,429,305,420,267,429,290,401,128,219,133,209,179,244,179,244,133,209,194,51,179,244,194,51,192,77,192,155,192,127,313,127,192,155,313,127,313,155,212,246,198,219,313,219,212,246,313,219,313,246,248,0,248,13,225,16,248,0,225,16,209,22,248,0,209,22,132,55,248,0,132,55,127,35,199,33,194,51,133,209,199,33,133,209,133,155,199,33,133,155,133,127,199,33,133,127,133,84,199,33,133,84,209,22,11,155,11,127,133,127,11,155,133,127,133,155,112,246,11,246,128,219,112,246,128,219,179,244,112,246,179,244,97,398,112,246,97,398,93,405,112,246,93,405,91,412,112,246,91,412,89,418,112,246,89,418,88,424,128,219,11,246,11,219,248,0,77,13,77,0,132,55,209,22,133,84,192,209,179,244,192,77,232,450,222,463,222,450,-19,447,-36,463,-36,450,47,473,47,280,93,280,47,473,93,280,93,473,47,184,47,-9,93,-9,47,184,93,-9,93,184,142,469,115,458,119,425,119,425,115,458,116,409,118,308,116,409,115,458,118,308,115,458,98,329,98,329,115,458,95,440,98,329,95,440,86,348,86,348,95,440,82,416,86,348,82,416,79,367,79,367,82,416,77,388,97,186,124,79,106,174,106,174,124,79,118,160,142,138,118,160,124,79,142,138,124,79,169,45,133,268,132,284,129,284,133,268,129,284,118,266,133,268,135,284,132,284,88,237,95,250,103,279,103,279,95,250,105,259,103,279,105,259,129,284,129,284,105,259,118,266,103,279,81,268,88,237,88,237,81,268,86,222,90,111,86,222,81,268,90,111,81,268,67,140,67,140,81,268,64,250,67,140,64,250,53,170,53,170,64,250,53,227,53,170,53,227,49,200,232,63,205,88,210,11,210,11,205,88,197,104,210,11,197,104,192,28,192,28,197,104,181,111,192,28,181,111,169,45,169,45,181,111,162,122,169,45,162,122,142,138,228,-52,220,-67,231,-87,231,-87,220,-67,208,-79,231,-87,208,-79,203,-99,203,-99,208,-79,191,-86,203,-99,191,-86,170,-88,170,-88,155,-87,170,-103,170,-103,155,-87,142,-83,170,-103,142,-83,138,-99,138,-99,142,-83,130,-78,138,-99,130,-78,123,-71,111,4,112,-89,122,2,122,2,112,-89,120,-63,123,-71,120,-63,112,-89,123,
--71,112,-89,138,-99,201,454,203,470,190,457,190,457,203,470,176,459,156,456,176,459,174,473,156,456,174,473,142,469,142,469,119,425,127,439,142,469,127,439,139,450,142,469,139,450,156,456,213,102,205,88,213,88,213,102,213,88,242,91,213,102,197,104,205,88,252,122,241,112,242,91,242,91,241,112,228,105,242,91,228,105,213,102,165,258,185,247,236,280,236,280,185,247,205,232,236,280,205,232,225,213,225,213,238,199,236,280,236,280,238,199,258,259,298,172,296,194,295,143,295,143,296,194,288,216,295,143,288,216,283,120,283,120,288,216,275,238,283,120,275,238,265,102,265,102,275,238,262,148,265,102,262,148,259,134,265,102,259,134,252,122,248,185,256,172,258,259,258,259,256,172,260,159,258,259,260,159,275,238,275,238,260,159,262,148,148,265,165,258,236,280,148,265,236,280,147,283,148,265,147,283,143,283,148,265,143,283,139,283,148,265,139,283,135,284,148,265,135,284,133,268,140,359,132,367,147,283,140,359,147,283,236,280,132,367,126,377,147,283,147,283,126,377,121,387,147,283,121,387,118,308,118,308,121,387,117,398,118,308,117,398,116,409,270,-14,269,6,266,-44,266,-44,269,6,262,24,266,-44,262,24,252,-68,252,-68,262,24,250,42,252,-68,250,42,232,63,232,63,210,11,222,-3,232,63,222,-3,229,-18,232,63,229,-18,231,-34,232,63,231,-34,231,-87,232,63,231,-87,252,-68,228,-52,231,-87,231,-34,170,-88,170,-103,203,-99,219,435,218,434,228,367,228,367,218,434,217,432,228,367,217,432,217,369,217,369,217,432,216,430,217,369,216,430,213,428,228,460,219,436,228,367,217,443,219,436,228,460,217,443,228,460,211,449,211,449,228,460,203,470,211,449,203,470,201,454,203,470,174,473,176,459,260,427,247,446,251,374,260,427,251,374,258,381,260,427,258,381,263,392,260,427,263,392,264,405,247,446,228,460,228,367,247,446,228,367,241,369,247,446,241,369,251,374,208,373,217,369,213,428,208,373,213,428,207,423,208,373,207,423,202,417,208,373,202,417,201,380,198,411,196,404,197,388,198,411,197,388,201,380,198,411,201,380,202,417,143,-15,138,-7,139,-42,143,-15,139,-42,142,-36,143,-15,142,-36,144,-30,143,-15,144,-30,145,-24,139,-42,138,
--7,134,-47,134,-47,138,-7,131,-1,134,-47,131,-1,128,-53,128,-53,131,-1,126,-55,120,-63,121,-61,122,2,122,2,121,-61,122,-60,122,2,122,-60,131,-1,131,-1,122,-60,123,-57,131,-1,123,-57,126,-55,99,2,88,-2,91,-74,99,2,91,-74,112,-89,99,2,112,-89,111,4,80,-10,75,-20,77,-55,80,-10,77,-55,91,-74,80,-10,91,-74,88,-2,90,197,87,209,90,111,90,197,90,111,124,79,90,197,124,79,97,186,86,222,90,111,87,209,77,-55,75,-20,73,-33,197,388,196,404,195,398,219,435,228,367,219,436,252,122,242,91,265,102,258,259,238,199,248,185,152,401,153,390,153,412,153,412,153,390,158,380,153,412,158,380,158,421,158,421,158,380,165,373,158,421,165,373,166,429,166,429,165,373,174,368,166,429,174,368,175,433,175,433,174,368,185,366,175,433,185,366,186,435,186,435,185,366,197,368,186,435,197,368,197,433,197,433,197,368,207,373,197,433,207,373,207,428,207,428,207,373,214,380,207,428,214,380,214,421,214,421,214,380,219,390,214,421,219,390,219,412,219,412,219,390,221,401,13,401,14,390,14,412,14,412,14,390,19,380,14,412,19,380,19,421,19,421,19,380,26,373,19,421,26,373,27,429,27,429,26,373,35,368,27,429,35,368,36,433,36,433,35,368,46,366,36,433,46,366,47,435,47,435,46,366,57,368,47,435,57,368,58,433,58,433,57,368,67,373,58,433,67,373,67,428,67,428,67,373,75,380,67,428,75,380,75,421,75,421,75,380,80,390,75,421,80,390,80,412,80,412,80,390,82,401,227,133,206,159,222,105,222,105,206,159,192,193,222,105,192,193,184,122,184,122,192,193,187,236,193,347,187,236,191,276,193,347,191,276,204,310,302,372,288,373,309,356,309,356,288,373,287,359,253,353,287,359,288,373,253,353,288,373,236,366,368,353,366,355,372,295,372,295,366,355,363,357,372,295,363,357,360,295,360,295,363,357,354,318,236,366,193,347,204,310,236,366,204,310,225,336,236,366,225,336,253,353,161,318,140,278,156,150,161,318,156,150,184,122,161,318,184,122,187,236,161,318,187,236,193,347,140,278,133,230,139,186,140,278,139,186,156,150,372,173,360,151,363,114,363,114,360,151,346,133,363,114,346,133,346,
-109,346,109,346,133,330,122,346,109,330,122,321,103,321,103,330,122,312,115,321,103,312,115,294,100,294,100,312,115,291,113,267,98,294,100,291,113,267,98,291,113,256,118,267,98,256,118,227,133,267,98,227,133,222,105,372,295,372,345,371,348,372,295,371,348,370,351,372,295,370,351,368,353,302,372,309,356,318,370,318,370,309,356,328,348,318,370,328,348,333,367,333,367,328,348,343,336,333,367,343,336,349,362,349,362,343,336,354,318,349,362,354,318,363,357,372,173,363,114,371,120,372,173,371,120,383,173,270,473,264,444,328,433,270,473,328,433,345,461,345,461,328,433,383,403,345,461,383,403,409,427,409,427,383,403,428,358,409,427,428,358,460,374,460,374,428,358,457,300,460,374,457,300,467,234,467,234,493,308,460,374,467,234,494,154,493,308,460,88,494,154,467,234,460,88,467,234,457,166,460,88,457,166,428,108,460,88,428,108,409,36,266,20,266,-9,330,31,330,31,266,-9,343,2,330,31,343,2,385,61,385,61,343,2,409,36,385,61,409,36,428,108,75,298,104,356,125,427,125,427,104,356,148,402,125,427,148,402,192,461,192,461,148,402,202,433,192,461,202,433,270,473,270,473,202,433,264,444,39,155,72,88,39,309,39,309,72,88,65,232,73,375,65,232,75,298,73,375,75,298,125,427,203,30,148,61,190,2,203,30,190,2,266,-9,203,30,266,-9,266,20,124,36,190,2,148,61,124,36,148,61,104,107,124,36,104,107,75,165,124,36,75,165,72,88,65,232,72,88,75,165,39,155,39,309,27,231,39,309,65,232,73,375,493,308,494,154,505,231,54,432,53,434,54,417,54,417,53,434,53,436,54,417,53,436,51,412,51,412,53,436,53,438,62,471,53,438,55,443,62,471,55,443,60,447,55,427,54,430,54,417,55,427,54,417,55,422,55,427,55,422,55,426,55,422,55,423,55,424,55,422,55,424,55,425,55,422,55,425,55,426,65,277,77,280,65,310,65,310,77,280,73,309,79,309,73,309,77,280,79,309,77,280,90,286,113,471,87,473,93,453,93,453,87,473,84,454,75,453,84,454,87,473,75,453,87,473,67,451,67,451,87,473,62,471,67,451,62,471,60,447,110,326,108,322,116,306,116,306,108,322,106,319,116,
-306,106,319,103,316,103,316,96,313,103,295,103,295,96,313,90,311,103,295,90,311,90,286,90,286,90,311,84,310,90,286,84,310,79,309,34,405,40,406,41,465,41,465,40,406,46,408,41,465,46,408,53,438,53,438,46,408,51,412,15,413,20,409,25,455,25,455,20,409,26,406,25,455,26,406,41,465,41,465,26,406,34,405,15,442,11,427,12,419,15,442,12,419,15,413,15,442,15,413,25,455,113,471,111,386,116,306,113,471,116,306,134,463,134,463,116,306,119,295,134,463,119,295,124,286,113,471,93,453,101,449,113,471,101,449,106,443,113,471,106,443,109,435,113,471,109,435,110,424,113,471,110,424,111,386,138,277,148,276,148,449,148,449,148,276,157,276,148,449,157,276,157,430,157,430,157,276,160,316,157,430,160,316,160,326,164,278,172,282,166,302,166,302,172,282,170,301,174,301,170,301,172,282,174,301,172,282,180,288,189,309,185,306,189,297,189,297,185,306,181,304,189,297,181,304,180,288,180,288,181,304,177,302,180,288,177,302,174,301,164,278,166,302,163,304,164,278,163,304,161,309,164,278,161,309,160,316,164,278,160,316,157,276,134,463,124,286,130,280,134,463,130,280,138,277,134,463,138,277,148,449,116,306,111,386,111,332,116,306,111,332,111,329,116,306,111,329,110,326,103,316,103,295,116,306,49,350,55,359,55,382,55,382,55,359,67,367,55,382,67,367,78,391,78,391,67,367,85,376,78,391,85,376,110,403,110,403,85,376,111,386,110,403,111,386,110,424,55,382,40,375,49,350,49,350,40,375,47,340,52,276,47,340,40,375,52,276,40,375,36,278,36,278,40,375,29,368,36,278,29,368,23,284,23,284,29,368,18,359,23,284,18,359,13,354,58,315,52,321,52,276,58,315,52,276,65,277,58,315,65,277,65,310,48,330,47,340,52,276,48,330,52,276,52,321,12,295,23,284,13,354,12,295,13,354,9,347,12,295,9,347,6,340,12,295,6,340,5,308,4,332,3,323,5,308,4,332,5,308,6,340,160,326,160,406,157,430,41,465,53,438,62,471,54,432,54,417,54,430,284,84,274,97,284,84,284,84,274,97,285,46,284,84,285,46,296,69,296,69,285,46,302,30,296,69,302,30,306,55,306,55,302,
-30,311,23,306,55,311,23,313,44,313,44,311,23,313,24,313,44,313,24,316,25,318,36,313,44,316,25,318,36,316,25,318,26,318,36,318,26,319,28,318,36,319,28,320,30,239,143,240,89,251,127,251,127,240,89,263,67,251,127,263,67,263,112,263,112,263,67,285,46,263,112,285,46,274,97,226,159,241,229,220,210,226,159,220,210,220,108,226,159,220,108,240,89,226,159,240,89,239,143,319,288,317,290,318,279,319,288,318,279,320,284,319,288,320,284,319,286,264,250,284,233,285,270,285,270,284,233,296,249,285,270,296,249,303,285,303,285,296,249,306,261,303,285,306,261,312,291,312,291,306,261,313,271,312,291,313,271,315,291,315,291,313,271,318,279,315,291,318,279,317,290,241,229,226,159,284,233,241,229,284,233,264,250,150,84,140,97,150,46,150,84,150,46,162,69,162,69,150,46,168,30,162,69,168,30,172,55,172,55,168,30,177,23,172,55,177,23,179,44,179,44,177,23,179,24,179,44,179,24,181,25,184,36,179,44,181,25,184,36,181,25,183,26,184,36,183,26,185,28,184,36,185,28,185,30,104,143,106,89,117,127,117,127,106,89,129,67,117,127,129,67,129,112,129,112,129,67,150,46,129,112,150,46,140,97,91,159,106,229,86,210,91,159,86,210,86,108,91,159,86,108,106,89,91,159,106,89,104,143,184,288,183,290,184,279,184,288,184,279,185,284,184,288,185,284,185,286,129,250,150,233,151,270,151,270,150,233,162,249,151,270,162,249,168,285,168,285,162,249,172,261,168,285,172,261,177,291,177,291,172,261,179,271,177,291,179,271,181,291,181,291,179,271,184,279,181,291,184,279,183,290,106,229,91,159,150,233,106,229,150,233,129,250,86,108,86,210,30,159,220,108,220,210,164,159,340,229,340,80,387,80,340,229,387,80,387,275,340,229,387,275,34,275,340,229,34,275,34,229,199,136,199,180,27,180,199,136,27,180,27,136,311,293,311,293,311,293,311,293,323,236,327,352,327,352,323,236,338,248,327,352,338,248,344,338,344,338,338,248,349,263,344,338,349,263,354,319,354,319,349,263,356,279,354,319,356,279,358,295,309,311,311,293,327,352,309,311,327,352,304,361,309,311,304,361,304,327,232,351,259,351,275,
-364,275,364,259,351,279,348,275,364,279,348,304,361,304,361,279,348,294,340,304,361,294,340,304,327,188,316,235,129,232,140,188,316,232,140,232,155,232,233,232,220,266,220,232,233,266,220,262,233,262,233,266,220,263,233,262,233,263,233,279,236,279,236,263,233,266,220,279,236,266,220,279,200,232,351,275,364,185,341,232,351,185,341,187,331,232,351,187,331,188,316,232,351,188,316,232,155,275,364,155,364,170,351,275,364,170,351,180,348,275,364,180,348,185,341,298,170,302,227,303,257,303,257,302,227,323,236,303,257,323,236,309,274,309,274,323,236,311,293,298,170,303,257,294,177,294,177,303,257,293,244,294,177,293,244,288,186,288,186,293,244,279,236,288,186,279,236,279,200,325,126,335,115,342,172,342,172,335,115,344,108,342,172,344,108,353,157,353,157,344,108,352,106,353,157,352,106,364,144,364,144,352,106,397,106,364,144,397,106,376,132,376,132,397,106,387,121,342,172,302,227,302,162,342,172,302,162,314,142,342,172,314,142,325,126,266,106,266,117,250,119,266,106,250,119,240,122,266,106,240,122,188,152,266,106,188,152,187,137,266,106,187,137,185,127,266,106,185,127,180,122,266,106,180,122,170,119,266,106,170,119,154,117,266,106,154,117,153,106,188,155,188,152,240,122,188,155,240,122,235,129,188,155,235,129,188,316,270,473,265,444,329,433,270,473,329,433,344,461,344,461,329,433,384,403,344,461,384,403,409,427,409,427,384,403,428,357,409,427,428,357,460,374,460,374,428,357,457,299,460,374,457,299,467,231,467,231,493,307,460,374,467,231,494,154,493,307,460,88,494,154,467,231,460,88,467,231,457,165,460,88,457,165,428,107,460,88,428,107,409,36,266,20,266,-9,329,31,329,31,266,-9,343,2,329,31,343,2,384,61,384,61,343,2,409,36,384,61,409,36,428,107,75,298,104,356,125,427,125,427,104,356,148,402,125,427,148,402,192,461,192,461,148,402,203,433,192,461,203,433,270,473,270,473,203,433,265,444,39,155,72,88,39,309,39,309,72,88,65,232,73,375,65,232,75,298,73,375,75,298,125,427,203,30,148,61,190,2,203,30,190,2,266,-9,203,30,266,-9,266,20,124,36,190,2,148,61,124,36,148,61,104,107,124,
-36,104,107,75,165,124,36,75,165,72,88,65,232,72,88,75,165,39,155,39,309,27,232,39,309,65,232,73,375,493,307,494,154,505,230,302,162,302,227,298,170,387,121,397,106,397,112,170,351,155,364,155,353,226,383,226,420,8,420,226,383,8,420,8,383,116,445,138,449,138,449,141,473,138,449,162,445,141,473,162,445,173,468,173,468,162,445,182,434,173,468,182,434,200,454,200,454,182,434,198,418,200,454,198,418,209,397,240,373,235,405,235,341,235,341,235,405,221,432,235,341,221,432,221,314,221,314,221,432,213,373,221,314,213,373,212,373,221,314,212,373,209,350,221,314,209,350,199,292,199,292,209,350,198,329,199,292,198,329,183,312,221,432,200,454,209,397,221,432,209,397,212,373,221,432,212,373,213,373,199,292,183,312,172,278,172,278,183,312,163,301,172,278,163,301,140,273,140,273,163,301,140,297,81,418,97,434,109,468,109,468,97,434,116,445,109,468,116,445,141,473,141,473,116,445,138,449,59,433,67,373,71,397,59,433,71,397,81,454,81,454,71,397,81,418,81,454,81,418,109,468,117,301,97,312,108,278,117,301,108,278,140,273,117,301,140,273,140,297,67,373,59,314,71,349,71,349,59,314,80,292,71,349,80,292,81,328,81,328,80,292,108,278,81,328,108,278,97,312,40,373,45,341,45,405,45,405,45,341,59,314,45,405,59,314,59,433,59,433,59,314,67,373,263,352,216,352,263,23,263,23,216,352,216,216,263,23,216,216,216,170,216,170,216,216,34,216,216,170,34,216,34,170,263,170,446,170,263,216,34,-14,34,-60,446,-60,34,-14,446,-60,446,-14,263,216,446,170,446,216,263,23,216,170,216,23,75,281,4,205,75,234,75,281,75,234,134,291,75,281,134,291,94,304,18,380,28,398,29,444,29,444,28,398,39,412,29,444,39,412,49,461,49,461,39,412,51,423,49,461,51,423,74,470,74,470,51,423,65,429,74,470,65,429,80,431,80,431,96,428,105,473,105,473,96,428,109,421,105,473,109,421,136,470,136,470,109,421,120,409,136,470,120,409,127,395,13,421,1,390,18,380,13,421,18,380,29,444,127,364,134,291,130,378,130,378,134,291,136,470,136,470,134,291,157,316,136,470,157,316,160,459,160,459,157,
-316,174,338,160,459,174,338,178,443,178,443,174,338,186,358,178,443,186,358,190,422,190,422,186,358,192,377,190,422,192,377,194,397,136,470,127,395,130,378,105,473,74,470,80,431,134,291,127,364,121,346,134,291,121,346,110,326,134,291,110,326,94,304,181,240,173,237,180,189,180,189,173,237,164,235,180,189,164,235,154,234,180,189,154,234,75,234,180,189,75,234,4,205,207,248,195,253,188,245,207,248,188,245,181,240,207,248,181,240,180,189,180,189,4,205,4,189,92,218,86,219,116,188,116,188,86,219,79,221,116,188,79,221,73,184,73,184,79,221,72,225,73,184,72,225,64,231,79,324,82,324,91,352,91,352,82,324,84,324,84,324,106,322,91,352,91,352,106,322,109,363,91,352,65,342,73,323,91,352,73,323,79,324,32,394,43,410,47,451,47,451,43,410,54,421,47,451,54,421,65,464,65,464,54,421,66,429,65,464,66,429,85,471,85,471,66,429,78,433,85,471,78,433,92,434,92,434,106,433,109,473,109,473,106,433,117,429,109,473,117,429,133,470,133,470,117,429,125,422,133,470,125,422,130,412,30,432,15,407,32,394,30,432,32,394,47,451,145,250,138,237,153,201,153,201,138,237,128,226,153,201,128,226,116,188,116,188,128,226,115,220,116,188,115,220,99,217,99,217,92,218,116,188,133,470,131,401,136,303,133,470,136,303,154,462,154,462,136,303,143,358,154,462,143,358,160,368,109,473,85,471,92,434,181,434,171,450,172,379,181,434,172,379,180,391,181,434,180,391,184,403,181,434,184,403,185,415,171,450,154,462,160,368,171,450,160,368,172,379,143,356,143,358,136,303,143,356,136,303,144,287,143,356,144,287,166,348,129,387,122,374,123,314,129,387,123,314,136,303,129,387,136,303,131,401,109,363,106,322,123,314,109,363,123,314,122,374,198,248,204,280,202,300,198,248,202,300,195,318,198,248,195,318,183,335,198,248,183,335,180,222,145,250,153,201,147,266,147,266,153,201,166,348,166,348,153,201,180,222,166,348,180,222,183,335,147,266,166,348,144,287,56,236,50,240,52,185,56,236,52,185,73,184,56,236,73,184,64,231,52,185,50,240,45,242,52,185,45,242,40,244,52,185,40,244,35,245,52,185,35,245,35,
-191,27,244,20,241,21,199,27,244,21,199,35,191,27,244,35,191,35,245,14,237,11,231,12,210,14,237,12,210,21,199,14,237,21,199,20,241,73,323,65,342,65,322,12,210,11,231,9,223,133,470,130,412,131,401,198,474,201,423,206,473,206,473,201,423,208,428,206,473,208,428,213,471,213,471,208,428,214,434,213,471,214,434,218,466,218,466,214,434,219,440,218,466,219,440,221,460,221,460,219,440,221,446,221,460,221,446,222,452,201,423,198,474,192,474,201,423,192,474,186,472,201,423,186,472,181,469,201,423,181,469,175,465,201,423,175,465,168,459,201,423,168,459,93,355,93,355,168,459,65,355,64,45,64,45,64,45,64,45,104,315,42,315,64,45,42,315,45,-149,64,45,45,-149,56,-151,64,45,56,-151,68,-149,106,83,104,109,108,1,108,1,104,109,92,11,92,11,104,109,104,315,92,11,104,315,77,26,77,26,104,315,64,45,42,315,42,38,45,-149,45,-149,42,38,40,20,45,-149,40,20,36,-141,36,-141,40,20,36,-7,36,-141,36,-7,31,-40,25,-97,26,-115,27,-72,27,-72,26,-115,30,-130,27,-72,30,-130,31,-40,31,-40,30,-130,36,-141,239,315,239,80,241,56,241,56,239,80,229,65,241,56,229,65,227,33,227,33,229,65,217,53,227,33,217,53,210,15,210,15,217,53,201,44,210,15,201,44,192,3,192,3,201,44,183,38,192,3,183,38,172,-4,172,-4,183,38,163,37,172,-4,163,37,162,37,172,-4,162,37,150,-6,150,-6,162,37,142,40,150,-6,142,40,127,-4,127,-4,142,40,126,48,127,-4,126,48,114,62,114,62,106,83,108,1,114,62,108,1,127,-4,301,315,239,315,241,56,301,315,241,56,243,56,301,315,243,56,247,34,301,315,247,34,255,16,301,315,255,16,267,3,301,315,267,3,281,-3,301,315,281,-3,296,-6,301,315,296,-6,301,67,349,31,341,25,346,17,346,17,341,25,335,21,346,17,335,21,334,6,334,6,335,21,329,19,334,6,329,19,323,-1,323,-1,329,19,323,19,349,31,346,17,359,33,349,31,359,33,359,39,314,21,308,27,311,-5,314,21,311,-5,323,-1,314,21,323,-1,323,19,301,67,296,-6,301,50,301,50,296,-6,311,-5,301,50,311,-5,304,36,304,36,311,-5,308,27,67,
-20,68,-149,73,-9,73,-9,68,-149,77,-143,73,-9,77,-143,81,-41,81,-41,77,-143,84,-132,81,-41,84,-132,87,-72,87,-72,84,-132,88,-117,87,-72,88,-117,90,-97,64,45,68,-149,67,20,163,37,183,38,162,37,172,-69,161,-81,224,-107,224,-107,161,-81,143,-88,224,-107,143,-88,116,-91,188,463,133,458,144,441,188,463,144,441,178,448,188,463,178,448,178,191,188,463,178,191,224,-107,188,463,224,-107,224,448,188,463,224,448,373,463,178,448,178,206,178,191,146,214,123,230,130,199,130,199,123,230,107,254,130,199,107,254,92,215,92,215,107,254,98,288,92,215,98,288,95,331,95,331,97,373,92,442,92,442,97,373,105,404,92,442,105,404,133,458,133,458,105,404,120,426,133,458,120,426,144,441,92,442,64,416,65,241,92,442,65,241,92,215,92,442,92,215,95,331,346,446,373,450,373,463,346,446,373,463,328,438,328,438,373,463,265,448,328,438,265,448,317,425,317,425,265,448,312,406,328,-81,317,-70,265,-107,265,-107,317,-70,312,-53,265,-107,312,-53,265,448,265,448,312,-53,311,-28,265,448,311,-28,311,380,224,-107,178,191,178,-19,224,-107,178,-19,177,-49,224,-107,177,-49,172,-69,373,-107,373,-91,346,-88,373,-107,346,-88,328,-81,373,-107,328,-81,265,-107,146,214,130,199,178,191,146,214,178,191,178,206,48,278,65,241,64,416,48,278,64,416,47,378,48,278,47,378,42,330,224,-107,116,-91,116,-107,373,463,224,448,265,448,312,406,265,448,311,380,49,178,51,166,51,190,51,190,51,166,56,155,51,190,56,155,57,201,57,201,56,155,65,147,57,201,65,147,65,210,65,210,65,147,75,141,65,210,75,141,76,215,76,215,75,141,87,139,76,215,87,139,88,217,88,217,87,139,100,141,88,217,100,141,100,215,100,215,100,141,110,147,100,215,110,147,111,209,111,209,110,147,119,155,111,209,119,155,119,200,119,200,119,155,125,166,119,200,125,166,125,190,125,190,125,166,127,177,83,-149,95,-150,83,-125,83,-125,95,-150,91,-125,105,-123,91,-125,95,-150,105,-123,95,-150,125,-147,80,-70,84,-69,98,0,98,0,84,-69,88,-69,98,0,88,-69,93,-69,93,-69,107,-70,98,0,98,0,107,-70,105,-44,98,0,105,-44,122,0,98,0,69,-69,73,-72,98,0,73,
--72,77,-71,98,0,77,-71,80,-70,183,-90,180,-74,179,-111,179,-111,180,-74,172,-60,179,-111,172,-60,168,-127,168,-127,172,-60,160,-51,168,-127,160,-51,149,-139,149,-139,160,-51,143,-45,149,-139,143,-45,130,-94,130,-94,143,-45,129,-85,125,-78,129,-85,143,-45,125,-78,143,-45,123,-43,125,-78,123,-43,119,-43,125,-78,119,-43,118,-73,118,-73,119,-43,115,-43,118,-73,115,-43,112,-43,118,-73,112,-43,108,-44,118,-73,108,-44,107,-70,149,-139,130,-94,129,-105,149,-139,129,-105,125,-147,125,-147,129,-105,124,-113,125,-147,124,-113,116,-119,46,-117,49,-143,57,-120,57,-120,49,-143,60,-146,57,-120,60,-146,66,-122,66,-122,60,-146,71,-148,66,-122,71,-148,75,-124,75,-124,71,-148,83,-149,75,-124,83,-149,83,-125,49,-143,46,-117,37,-138,105,-123,125,-147,116,-119,105,-44,107,-70,108,-44,73,214,66,210,173,189,173,189,66,210,55,207,173,189,55,207,40,205,58,425,63,427,124,473,124,473,63,427,67,427,124,473,67,427,70,427,70,427,73,427,124,473,124,473,73,427,75,425,124,473,75,425,76,421,158,207,147,210,173,189,173,189,147,210,139,215,173,189,139,215,77,229,77,229,139,215,135,223,77,229,135,223,77,407,77,415,77,407,124,473,77,415,124,473,76,421,51,422,58,425,124,473,51,422,124,473,41,434,51,422,41,434,41,418,134,233,134,470,124,473,134,233,124,473,77,407,134,233,77,407,135,223,76,220,73,214,173,189,76,220,173,189,77,229,173,189,40,205,40,189,158,207,173,189,173,205,62,350,72,280,67,336,67,336,72,280,73,323,78,314,73,323,72,280,78,314,72,280,105,276,58,366,56,382,46,456,58,366,46,456,44,294,58,366,44,294,72,280,58,366,72,280,62,350,46,456,55,398,58,416,46,456,58,416,75,469,75,469,58,416,64,430,75,469,64,430,74,441,4,373,9,341,9,407,9,407,9,341,23,314,9,407,23,314,23,435,23,435,23,314,44,294,23,435,44,294,46,456,145,469,111,473,123,446,123,446,111,473,104,450,88,448,104,450,111,473,88,448,111,473,75,469,160,339,154,322,170,295,170,295,154,322,143,309,170,295,143,309,140,281,140,281,143,309,130,302,140,281,130,302,112,299,112,299,102,300,105,276,105,276,102,300,93,
-303,105,276,93,303,85,308,212,380,208,410,207,346,207,346,208,410,194,436,207,346,194,436,193,317,193,317,194,436,173,456,193,317,173,456,170,295,170,295,173,456,162,361,123,446,139,434,145,469,145,469,139,434,151,415,145,469,151,415,173,456,173,456,151,415,159,391,173,456,159,391,162,361,112,299,105,276,140,281,75,469,74,441,88,448,160,339,170,295,162,361,78,314,105,276,85,308,46,456,56,382,55,398,129,105,185,155,129,206,129,105,129,206,124,155,129,105,124,155,108,86,75,217,86,203,86,247,86,247,86,203,98,187,86,247,98,187,109,225,109,225,98,187,111,171,109,225,111,171,129,206,129,206,111,171,124,155,75,217,86,247,65,230,65,230,86,247,65,269,65,230,65,269,53,246,53,246,65,269,47,285,53,246,47,285,44,260,44,260,47,285,38,291,44,260,38,291,36,270,36,270,38,291,36,291,36,270,36,291,34,290,32,288,31,286,32,278,32,288,32,278,36,270,32,288,36,270,34,290,264,105,320,155,264,206,264,105,264,206,259,155,264,105,259,155,243,86,210,217,221,203,221,247,221,247,221,203,233,187,221,247,233,187,244,225,244,225,233,187,246,171,244,225,246,171,264,206,264,206,246,171,259,155,210,217,221,247,200,230,200,230,221,247,200,269,200,230,200,269,188,246,188,246,200,269,182,285,188,246,182,285,178,260,178,260,182,285,173,291,178,260,173,291,171,291,171,270,178,260,171,291,171,270,171,291,169,290,171,270,169,290,167,288,171,270,167,288,166,278,165,286,165,284,166,278,165,286,166,278,167,288,167,25,169,24,171,43,171,43,169,24,173,23,171,43,173,23,178,53,178,53,173,23,182,29,178,53,182,29,188,65,188,65,182,29,199,44,188,65,199,44,200,81,200,81,199,44,221,64,200,81,221,64,259,155,259,155,221,64,243,86,166,35,165,30,165,29,166,35,165,29,166,27,166,35,166,27,167,25,166,35,167,25,171,43,32,25,34,24,36,43,36,43,34,24,38,23,36,43,38,23,44,53,44,53,38,23,46,29,44,53,46,29,53,65,53,65,46,29,64,44,53,65,64,44,65,81,65,81,64,44,85,64,65,81,85,64,124,155,124,155,85,64,108,86,32,35,30,30,31,29,32,
-35,31,29,31,27,32,35,31,27,32,25,32,35,32,25,36,43,32,278,31,286,30,284,286,63,412,63,286,98,286,98,412,63,317,103,286,98,317,103,427,284,427,284,317,103,412,228,427,284,412,228,461,0,461,0,412,228,412,103,461,0,412,103,412,63,412,63,412,103,317,103,427,284,461,0,461,284,461,103,461,63,499,63,461,103,499,63,499,103,410,473,93,-9,127,-9,410,473,127,-9,442,473,62,214,55,210,156,189,156,189,55,210,45,207,156,189,45,207,30,205,48,425,53,427,106,473,106,473,53,427,57,427,106,473,57,427,60,427,60,427,62,427,106,473,106,473,62,427,64,425,106,473,64,425,65,421,140,207,129,210,156,189,156,189,129,210,122,215,156,189,122,215,66,229,66,229,122,215,118,223,66,229,118,223,66,407,66,415,66,407,106,473,66,415,106,473,65,421,40,422,48,425,106,473,40,422,106,473,30,434,40,422,30,434,30,418,116,233,116,470,106,473,116,233,106,473,66,407,116,233,66,407,118,223,65,220,62,214,156,189,65,220,156,189,66,229,156,189,30,205,30,189,140,207,156,189,156,205,461,0,412,63,412,0,432,157,421,137,445,102,445,102,421,137,406,115,445,102,406,115,387,92,387,92,316,17,387,45,387,45,316,17,491,0,387,45,491,0,466,45,476,46,466,45,491,0,476,46,491,0,485,48,485,48,491,0,493,51,330,191,340,209,341,255,341,255,340,209,351,223,341,255,351,223,360,272,360,272,351,223,363,234,360,272,363,234,385,281,385,281,363,234,377,240,385,281,377,240,391,242,391,242,407,240,417,284,417,284,407,240,421,232,417,284,421,232,447,281,447,281,421,232,431,221,447,281,431,221,438,206,325,232,313,201,330,191,325,232,330,191,341,255,519,59,506,64,500,56,519,59,500,56,493,51,519,59,493,51,491,0,384,473,67,-9,102,-9,384,473,102,-9,416,473,58,214,51,210,152,189,152,189,51,210,41,207,152,189,41,207,25,205,43,425,49,427,102,473,102,473,49,427,53,427,102,473,53,427,56,427,56,427,58,427,102,473,102,473,58,427,60,425,102,473,60,425,61,421,136,207,125,210,152,189,152,189,125,210,117,215,152,189,117,215,63,229,63,229,117,215,113,223,63,229,113,
-223,63,407,62,415,63,407,102,473,62,415,102,473,61,421,36,422,43,425,102,473,36,422,102,473,27,434,36,422,27,434,27,418,112,233,112,470,102,473,112,233,102,473,63,407,112,233,63,407,113,223,438,175,445,102,441,189,441,189,445,102,447,281,447,281,445,102,469,127,447,281,469,127,472,270,472,270,469,127,486,148,472,270,486,148,490,254,490,254,486,148,497,168,490,254,497,168,502,233,502,233,497,168,504,188,502,233,504,188,505,208,447,281,438,206,441,189,417,284,385,281,391,242,387,92,387,45,445,102,62,220,58,214,152,189,62,220,152,189,63,229,152,189,25,205,25,189,136,207,152,189,152,205,432,157,445,102,438,175,491,0,316,17,316,0,289,63,415,63,289,98,289,98,415,63,320,103,289,98,320,103,431,284,431,284,320,103,415,228,431,284,415,228,464,0,464,0,415,228,415,103,464,0,415,103,415,63,415,63,415,103,320,103,431,284,464,0,464,284,464,103,464,63,502,63,464,103,502,63,502,103,414,473,97,-9,131,-9,414,473,131,-9,446,473,92,218,86,219,116,188,116,188,86,219,79,221,116,188,79,221,73,184,73,184,79,221,72,225,73,184,72,225,64,231,79,324,82,324,91,352,91,352,82,324,84,324,84,324,106,322,91,352,91,352,106,322,109,363,91,352,65,342,73,323,91,352,73,323,79,324,32,394,43,410,47,451,47,451,43,410,54,421,47,451,54,421,65,464,65,464,54,421,66,429,65,464,66,429,85,471,85,471,66,429,78,433,85,471,78,433,92,434,92,434,106,433,109,473,109,473,106,433,117,429,109,473,117,429,133,470,133,470,117,429,125,422,133,470,125,422,130,412,30,432,15,407,32,394,30,432,32,394,47,451,145,250,138,237,153,201,153,201,138,237,128,226,153,201,128,226,116,188,116,188,128,226,115,220,116,188,115,220,99,217,99,217,92,218,116,188,133,470,131,401,136,303,133,470,136,303,154,462,154,462,136,303,143,358,154,462,143,358,160,368,109,473,85,471,92,434,181,434,171,450,172,379,181,434,172,379,180,391,181,434,180,391,184,403,181,434,184,403,185,415,171,450,154,462,160,368,171,450,160,368,172,379,143,356,143,358,136,303,143,356,136,303,144,287,143,356,144,287,166,
-348,129,387,122,374,123,314,129,387,123,314,136,303,129,387,136,303,131,401,109,363,106,322,123,314,109,363,123,314,122,374,198,248,204,280,202,300,198,248,202,300,195,318,198,248,195,318,183,335,198,248,183,335,180,222,145,250,153,201,147,266,147,266,153,201,166,348,166,348,153,201,180,222,166,348,180,222,183,335,147,266,166,348,144,287,56,236,50,240,52,185,56,236,52,185,73,184,56,236,73,184,64,231,52,185,50,240,45,242,52,185,45,242,40,244,52,185,40,244,35,245,52,185,35,245,35,191,27,244,20,241,21,199,27,244,21,199,35,191,27,244,35,191,35,245,14,237,11,231,12,210,14,237,12,210,21,199,14,237,21,199,20,241,73,323,65,342,65,322,12,210,11,231,9,223,133,470,130,412,131,401,464,0,415,63,415,0,145,252,156,254,157,325,157,325,156,254,167,260,157,325,167,260,167,320,167,320,167,260,175,268,167,320,175,268,175,313,175,313,175,268,180,279,175,313,180,279,180,303,180,303,180,279,182,291,110,303,110,279,115,313,115,313,110,279,115,268,115,313,115,268,122,320,122,320,115,268,122,260,122,320,122,260,133,325,133,325,122,260,133,254,133,325,133,254,145,327,145,327,133,254,145,252,145,327,145,252,157,325,101,38,111,62,108,117,101,38,108,117,95,98,95,98,65,59,86,-27,86,-27,65,59,85,-47,89,-74,85,-47,82,-136,89,-74,82,-136,104,-144,95,98,86,-27,89,-6,95,98,89,-6,94,15,95,98,94,15,101,38,46,-111,62,-125,65,59,65,59,62,-125,82,-136,65,59,82,-136,85,-47,44,28,30,3,31,-88,44,28,31,-88,37,-100,44,28,37,-100,46,-111,44,28,46,-111,65,59,21,-43,22,-59,23,-19,23,-19,22,-59,25,-74,23,-19,25,-74,30,3,30,3,25,-74,31,-88,152,205,140,205,141,138,152,205,141,138,148,165,152,205,148,165,151,187,134,179,128,157,130,105,134,179,130,105,141,138,134,179,141,138,140,205,119,136,108,117,111,62,119,136,111,62,130,105,119,136,130,105,128,157,224,-100,214,-112,218,-132,218,-132,214,-112,199,-122,218,-132,199,-122,186,-146,186,-146,199,-122,181,-128,186,-146,181,-128,162,-130,162,-130,137,-126,150,-151,150,-151,137,-126,127,-150,116,-114,100,-96,104,-144,116,
--114,104,-144,127,-150,116,-114,127,-150,137,-126,206,-53,210,-59,212,-12,212,-12,210,-59,216,-65,212,-12,216,-65,220,-8,220,-8,216,-65,220,-71,220,-8,220,-71,230,-7,230,-7,220,-71,223,-76,230,-7,223,-76,226,-80,201,-36,201,-42,202,-26,202,-26,201,-42,203,-47,202,-26,203,-47,206,-18,206,-18,203,-47,206,-53,206,-18,206,-53,212,-12,242,-9,242,-111,251,-14,251,-14,242,-111,258,-83,251,-14,258,-83,258,-23,258,-23,258,-83,263,-50,258,-23,263,-50,262,-35,218,-132,242,-111,224,-100,224,-100,242,-111,227,-87,230,-7,227,-87,242,-111,230,-7,242,-111,242,-9,162,-130,150,-151,186,-146,230,-7,226,-80,227,-84,230,-7,227,-84,227,-87,89,-74,104,-144,100,-96,110,279,110,303,108,291,288,530,316,530,214,634,288,530,214,634,207,640,288,530,207,640,201,644,288,530,201,644,196,647,288,530,196,647,190,649,288,530,190,649,184,649,288,530,184,649,180,597,159,627,160,620,160,635,160,635,160,620,162,614,160,635,162,614,163,641,163,641,162,614,167,608,163,641,167,608,169,646,169,646,167,608,172,602,169,646,172,602,176,648,176,648,172,602,180,597,176,648,180,597,184,649,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,
-17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,326,649,329,598,334,648,334,648,329,598,337,603,334,648,337,603,341,646,341,646,337,603,342,609,341,646,342,609,346,641,346,641,342,609,347,615,346,641,347,615,349,635,349,635,347,615,349,621,349,635,349,621,350,627,329,598,326,649,320,649,329,598,320,649,314,647,329,598,314,647,309,644,329,598,309,644,303,640,329,598,303,640,296,634,329,598,296,634,221,530,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,221,530,296,634,193,530,141,530,165,530,228,647,228,647,165,530,250,602,228,647,250,602,272,647,272,647,250,602,335,530,272,647,335,530,359,530,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,
-180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,161,559,168,568,170,606,170,606,168,568,175,574,170,606,175,574,187,615,187,615,175,574,183,578,187,615,183,578,192,580,192,580,197,579,206,618,206,618,197,579,203,578,206,618,203,578,208,577,156,548,161,559,170,606,156,548,170,606,155,592,156,548,155,592,144,572,156,548,144,572,136,548,206,618,208,577,216,617,216,617,208,577,214,574,216,617,214,574,220,572,220,572,237,564,226,616,226,616,237,564,236,614,206,618,187,615,192,580,226,616,216,617,220,572,236,614,237,564,246,610,246,610,237,564,252,557,246,610,252,557,255,605,255,605,252,557,264,552,255,605,264,552,273,597,273,597,264,552,274,549,273,597,274,549,281,593,281,593,274,549,283,548,281,593,283,548,288,590,288,590,283,548,293,548,288,590,293,548,296,588,296,588,293,548,314,550,296,588,314,550,303,587,303,587,314,550,309,587,318,588,309,587,314,550,318,588,314,550,332,558,347,622,340,608,346,573,347,622,346,573,358,594,347,622,358,594,367,622,333,598,326,591,332,558,333,598,332,558,346,573,333,598,346,573,340,608,77,
-81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,318,588,332,558,326,591,286,576,288,565,288,587,288,587,288,565,292,555,288,587,292,555,293,596,293,596,292,555,300,548,293,596,300,548,300,604,300,604,300,548,309,543,300,604,309,543,310,608,310,608,309,543,320,541,310,608,320,541,320,610,320,610,320,541,331,543,320,610,331,543,331,608,331,608,331,543,341,548,331,608,341,548,341,603,341,603,341,548,349,555,341,603,349,555,349,596,349,596,349,555,354,565,349,596,354,565,354,587,354,587,354,565,355,576,147,576,149,565,149,587,149,587,149,565,153,555,149,587,153,555,154,596,154,596,153,555,161,548,154,596,161,548,161,604,161,604,161,548,170,543,161,604,170,543,170,608,170,608,170,543,180,541,170,608,180,541,181,610,181,610,180,541,192,543,181,610,192,543,192,608,192,608,192,543,202,548,192,608,202,548,202,603,202,603,202,548,209,555,202,603,209,555,209,596,209,596,209,555,215,565,209,596,215,
-565,215,587,215,587,215,565,216,576,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,295,588,289,576,292,547,292,547,289,576,279,566,292,547,279,566,273,537,273,537,279,566,266,559,273,537,266,559,251,534,251,534,266,559,251,557,252,673,251,649,266,647,252,673,266,647,274,669,274,669,266,647,278,640,274,669,278,640,293,659,293,659,278,640,289,630,293,659,289,630,295,618,321,602,318,624,318,580,318,580,318,624,308,644,318,580,308,644,308,562,308,562,308,644,298,603,295,618,298,603,308,644,295,618,308,644,293,659,295,588,292,547,308,562,295,588,308,562,298,603,214,630,224,640,230,669,230,669,224,640,237,647,230,669,237,647,252,673,252,673,237,647,251,649,211,659,196,644,205,603,211,659,205,603,208,618,211,659,208,618,214,630,211,659,214,630,230,669,214,576,208,588,210,547,210,547,208,588,205,603,236,559,224,566,229,537,236,559,229,537,251,534,236,559,251,534,251,557,214,576,210,547,229,
-537,214,576,229,537,224,566,182,603,185,581,186,625,186,625,185,581,195,562,186,625,195,562,196,644,196,644,195,562,210,547,196,644,210,547,205,603,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,345,15,338,14,495,0,495,0,338,14,329,13,495,0,329,13,316,13,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,495,0,316,13,316,0,122,16,108,19,138,0,138,0,108,19,99,23,138,0,99,23,50,47,50,47,99,23,93,28,50,47,93,28,62,68,62,68,93,28,91,34,100,67,112,95,233,407,233,407,112,95,130,133,233,407,130,133,155,182,155,182,279,182,168,209,168,209,279,182,279,209,274,37,265,26,573,0,573,0,265,26,251,19,573,0,251,19,229,15,233,407,155,182,168,209,233,407,168,209,279,433,233,407,279,433,235,411,367,438,571,463,279,433,279,433,571,463,237,435,279,433,237,435,239,427,239,427,239,423,279,433,279,433,239,423,238,420,279,433,238,420,237,416,504,209,513,189,514,296,514,296,513,189,518,160,514,296,518,160,518,325,518,325,518,160,533,160,518,325,533,160,533,325,420,256,447,230,457,258,457,
-258,447,230,472,228,457,258,472,228,484,264,484,264,472,228,491,222,484,264,491,222,503,276,503,276,491,222,504,209,503,276,504,209,514,296,279,433,348,48,348,66,348,256,348,230,447,230,348,256,447,230,420,256,571,463,367,438,427,438,571,463,427,438,478,437,571,463,478,437,513,431,571,463,513,431,535,418,571,463,535,418,548,397,571,463,548,397,555,365,571,463,555,365,571,365,279,433,348,66,348,413,279,433,348,413,348,421,279,433,348,421,351,428,279,433,351,428,355,433,279,433,355,433,360,437,279,433,360,437,367,438,571,463,177,463,200,448,571,463,200,448,217,446,571,463,217,446,229,441,571,463,229,441,237,435,545,52,520,36,573,0,573,0,520,36,489,29,573,0,489,29,448,27,573,0,604,118,588,118,573,0,588,118,566,79,573,0,566,79,545,52,279,78,278,54,360,30,360,30,278,54,274,37,360,30,274,37,375,27,375,27,274,37,573,0,375,27,573,0,397,27,397,27,573,0,448,27,279,209,279,182,352,37,279,209,352,37,348,48,279,209,348,48,279,433,279,78,360,30,352,37,279,78,352,37,279,182,217,13,217,0,573,0,217,13,573,0,229,15,62,68,91,34,93,47,62,68,93,47,100,67,62,68,100,67,233,407,138,0,50,47,40,32,138,0,40,32,29,22,138,0,29,22,16,16,138,0,16,16,0,13,138,0,0,13,0,0,122,16,138,0,138,13,235,411,279,433,237,416,200,448,177,463,177,449,118,131,108,166,126,22,126,22,108,166,103,203,126,22,103,203,102,38,102,38,103,203,101,242,83,402,101,242,117,431,221,-44,245,23,217,30,221,-44,217,30,212,-6,212,-6,217,30,191,41,212,-6,191,41,181,0,181,0,191,41,168,56,181,0,168,56,152,9,152,9,168,56,148,76,199,-149,212,-150,200,-125,200,-125,212,-150,209,-125,222,-123,209,-125,212,-150,222,-123,212,-150,242,-147,197,-70,201,-69,212,-6,212,-6,201,-69,205,-69,212,-6,205,-69,210,-69,210,-69,224,-70,212,-6,212,-6,185,-69,191,-72,212,-6,191,-72,194,-71,212,-6,194,-71,197,-70,274,21,249,-9,252,-9,274,21,252,-9,299,-5,274,21,245,23,245,-9,274,21,245,-9,249,-9,245,23,221,-44,235,-8,245,23,235,-8,239,-9,245,23,239,
--9,242,-9,245,23,242,-9,245,-9,443,79,430,91,415,47,415,47,430,91,399,65,415,47,399,65,381,23,381,23,399,65,370,45,381,23,370,45,342,5,342,5,370,45,339,32,342,5,339,32,308,24,308,24,274,21,299,-5,308,24,299,-5,342,5,267,445,253,473,225,472,267,445,225,472,211,436,267,445,274,473,253,473,101,242,108,310,117,431,117,431,108,310,130,366,117,431,130,366,142,446,142,446,130,366,165,409,142,446,165,409,169,458,169,458,165,409,211,436,169,458,211,436,196,467,196,467,211,436,225,472,294,471,310,439,315,467,315,467,310,439,349,421,315,467,349,421,336,463,336,463,349,421,356,456,310,439,294,471,274,473,310,439,274,473,267,445,405,459,399,454,405,357,405,357,399,454,392,451,405,357,392,451,384,450,384,450,380,450,381,392,381,392,380,450,375,451,381,392,375,451,369,453,381,392,369,453,363,454,381,392,363,454,356,456,381,392,356,456,349,421,418,315,434,315,427,473,418,315,427,473,413,473,418,315,413,473,410,465,418,315,410,465,405,357,384,450,381,392,405,357,299,-90,297,-74,295,-111,295,-111,297,-74,289,-60,295,-111,289,-60,284,-127,284,-127,289,-60,277,-51,284,-127,277,-51,266,-139,266,-139,277,-51,260,-45,266,-139,260,-45,247,-94,247,-94,260,-45,246,-85,242,-78,246,-85,260,-45,242,-78,260,-45,239,-43,242,-78,239,-43,235,-43,242,-78,235,-43,235,-73,235,-73,235,-43,232,-43,235,-73,232,-43,228,-43,235,-73,228,-43,225,-44,235,-73,225,-44,224,-70,221,-44,212,-6,224,-70,221,-44,224,-70,225,-44,266,-139,247,-94,245,-105,266,-139,245,-105,242,-147,242,-147,245,-105,240,-113,242,-147,240,-113,232,-119,163,-117,165,-143,174,-120,174,-120,165,-143,176,-146,174,-120,176,-146,183,-122,183,-122,176,-146,188,-148,183,-122,188,-148,192,-124,192,-124,188,-148,199,-149,192,-124,199,-149,200,-125,131,101,118,131,126,22,131,101,126,22,152,9,131,101,152,9,148,76,83,402,55,367,60,84,83,402,60,84,81,57,83,402,81,57,102,38,83,402,102,38,101,242,20,230,22,188,24,281,24,281,22,188,30,150,24,281,30,150,36,326,36,326,30,150,43,115,36,326,43,115,55,367,55,367,43,115,60,84,165,-143,163,-117,153,-138,222,-123,242,-147,232,
--119,405,459,405,357,410,465,253,530,281,530,180,634,253,530,180,634,173,640,253,530,173,640,167,644,253,530,167,644,161,647,253,530,161,647,156,649,253,530,156,649,150,649,253,530,150,649,145,597,124,627,125,620,125,635,125,635,125,620,128,614,125,635,128,614,129,641,129,641,128,614,132,608,129,641,132,608,134,646,134,646,132,608,138,602,134,646,138,602,141,648,141,648,138,602,145,597,141,648,145,597,150,649,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,68,411,70,385,148,434,68,411,148,434,63,430,63,430,148,434,155,436,63,430,155,436,380,463,380,463,155,436,165,437,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,380,463,165,437,257,437,380,463,257,437,298,435,380,463,298,435,327,429,380,463,327,429,346,416,380,463,346,416,357,395,380,463,357,395,365,363,380,463,365,363,382,363,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,380,463,9,463,35,447,380,463,35,447,53,441,380,463,53,441,63,430,357,53,328,37,386,0,386,0,328,37,289,28,386,0,289,28,237,26,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,357,53,386,0,237,26,212,26,386,0,212,26,184,26,386,0,184,26,164,29,386,0,164,29,64,34,386,0,9,13,9,0,35,447,9,463,9,450,246,258,246,229,277,227,326,325,341,161,341,325,304,649,307,598,312,648,312,648,307,598,315,603,312,648,315,603,319,646,319,646,315,603,321,609,319,646,321,609,324,641,324,641,321,609,325,615,324,641,325,615,327,635,327,635,325,615,327,621,327,635,327,621,328,627,307,598,304,649,298,649,307,598,298,649,292,647,307,598,292,647,287,644,307,598,287,644,281,640,307,598,281,640,274,634,307,
-598,274,634,199,530,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,68,411,70,385,148,434,68,411,148,434,63,430,63,430,148,434,155,436,63,430,155,436,380,463,380,463,155,436,165,437,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,380,463,165,437,257,437,380,463,257,437,298,435,380,463,298,435,327,429,380,463,327,429,346,416,380,463,346,416,357,395,380,463,357,395,365,363,380,463,365,363,382,363,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,380,463,9,463,35,447,380,463,35,447,53,441,380,463,53,441,63,430,357,53,328,37,386,0,386,0,328,37,289,28,386,0,289,28,237,26,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,357,53,386,0,237,26,212,26,386,0,212,26,184,26,386,0,184,26,164,29,386,0,164,29,64,34,386,0,9,13,9,0,35,447,9,463,9,450,246,258,246,229,277,227,326,325,341,161,341,325,199,530,274,634,172,530,120,530,145,530,207,647,207,647,145,530,229,602,207,647,229,602,251,647,251,647,229,602,314,530,251,647,314,530,338,530,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,68,411,70,385,148,434,68,411,148,434,63,430,63,430,148,434,155,436,63,430,155,436,380,463,380,463,155,436,165,437,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,
-191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,380,463,165,437,257,437,380,463,257,437,298,435,380,463,298,435,327,429,380,463,327,429,346,416,380,463,346,416,357,395,380,463,357,395,365,363,380,463,365,363,382,363,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,380,463,9,463,35,447,380,463,35,447,53,441,380,463,53,441,63,430,357,53,328,37,386,0,386,0,328,37,289,28,386,0,289,28,237,26,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,357,53,386,0,237,26,212,26,386,0,212,26,184,26,386,0,184,26,164,29,386,0,164,29,64,34,386,0,9,13,9,0,35,447,9,463,9,450,246,258,246,229,277,227,326,325,341,161,341,325,158,610,158,541,169,608,169,608,158,541,169,543,169,608,169,543,179,603,179,603,169,543,179,548,179,603,179,548,186,596,186,596,179,548,186,555,186,596,186,555,191,587,191,587,186,555,191,565,191,587,191,565,193,576,124,576,126,565,126,587,126,587,126,565,130,555,126,587,130,555,131,596,131,596,130,555,138,548,131,596,138,548,138,604,138,604,138,548,147,543,138,604,147,543,147,608,147,608,147,543,158,541,147,608,158,541,158,610,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,68,411,70,385,148,434,68,411,148,434,63,430,63,430,148,434,155,436,63,430,155,436,380,463,380,463,155,436,165,437,263,576,265,565,265,587,265,587,265,565,270,555,265,587,270,555,270,596,270,596,270,555,277,548,270,596,277,548,277,604,277,604,277,548,286,543,277,604,286,543,287,608,287,608,286,543,297,541,287,608,297,541,298,610,298,610,297,541,308,543,298,610,308,543,309,608,309,608,308,543,318,548,309,608,318,548,318,603,318,603,318,548,326,555,318,603,326,555,326,596,326,596,326,555,331,565,326,596,331,565,331,587,331,587,331,565,333,576,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,
-222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,380,463,165,437,257,437,380,463,257,437,298,435,380,463,298,435,327,429,380,463,327,429,346,416,380,463,346,416,357,395,380,463,357,395,365,363,380,463,365,363,382,363,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,380,463,9,463,35,447,380,463,35,447,53,441,380,463,53,441,63,430,357,53,328,37,386,0,386,0,328,37,289,28,386,0,289,28,237,26,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,357,53,386,0,237,26,212,26,386,0,212,26,184,26,386,0,184,26,164,29,386,0,164,29,64,34,386,0,9,13,9,0,35,447,9,463,9,450,246,258,246,229,277,227,326,325,341,161,341,325,160,530,188,530,87,634,160,530,87,634,80,640,160,530,80,640,74,644,160,530,74,644,68,647,160,530,68,647,63,649,160,530,63,649,57,649,160,530,57,649,52,597,31,627,32,620,32,635,32,635,32,620,35,614,32,635,35,614,36,641,36,641,35,614,39,608,36,641,39,608,41,646,41,646,39,608,45,602,41,646,45,602,48,648,48,648,45,602,52,597,48,648,52,597,57,649,73,32,62,21,220,0,220,0,62,21,42,16,220,0,42,16,13,13,13,13,42,16,12,13,220,463,13,463,42,447,220,463,42,447,62,442,220,463,62,442,74,431,220,463,74,431,79,413,220,463,79,413,171,442,220,463,171,442,191,448,220,463,191,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,171,442,80,386,171,442,79,413,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,79,51,220,0,79,51,73,32,220,0,13,13,13,0,79,51,171,22,80,78,42,447,13,463,13,450,177,649,180,598,186,648,186,648,180,598,188,603,186,648,188,603,192,646,192,646,188,603,194,609,192,646,194,609,197,641,197,641,194,609,198,615,197,641,198,615,200,635,200,635,198,615,201,621,200,
-635,201,621,202,627,180,598,177,649,171,649,180,598,171,649,166,647,180,598,166,647,160,644,180,598,160,644,154,640,180,598,154,640,148,634,180,598,148,634,73,530,73,32,62,21,220,0,220,0,62,21,42,16,220,0,42,16,13,13,13,13,42,16,12,13,220,463,13,463,42,447,220,463,42,447,62,442,220,463,62,442,74,431,220,463,74,431,79,413,220,463,79,413,171,442,220,463,171,442,191,448,220,463,191,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,171,442,80,386,171,442,79,413,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,79,51,220,0,79,51,73,32,220,0,13,13,13,0,79,51,171,22,80,78,42,447,13,463,13,450,73,530,148,634,45,530,7,530,30,530,94,647,94,647,30,530,116,602,94,647,116,602,138,647,138,647,116,602,201,530,138,647,201,530,225,530,68,32,56,21,215,0,215,0,56,21,37,16,215,0,37,16,7,13,215,463,7,463,37,447,215,463,37,447,57,442,215,463,57,442,68,431,215,463,68,431,74,413,215,463,74,413,165,442,215,463,165,442,185,448,215,463,185,448,215,450,166,22,154,33,75,78,75,78,154,33,148,52,75,78,148,52,75,386,75,386,148,52,146,78,75,386,146,78,146,386,75,386,146,386,148,413,75,386,148,413,153,431,75,386,153,431,165,442,75,386,165,442,74,413,215,0,215,13,186,16,215,0,186,16,166,22,215,0,166,22,74,51,215,0,74,51,68,32,215,0,7,13,7,0,74,51,166,22,75,78,37,447,7,463,7,450,12,576,13,565,13,587,13,587,13,565,18,555,13,587,18,555,18,596,18,596,18,555,25,548,18,596,25,548,26,604,26,604,25,548,35,543,26,604,35,543,35,608,35,608,35,543,45,541,35,608,45,541,46,610,46,610,45,541,57,543,46,610,57,543,57,608,57,608,57,543,66,548,57,608,66,548,67,603,67,603,66,548,74,555,67,603,74,555,74,596,74,596,74,555,79,565,74,596,79,565,79,587,79,587,79,565,81,576,73,32,61,21,220,0,220,0,61,
-21,41,16,220,0,41,16,12,13,220,463,12,463,42,447,220,463,42,447,61,442,220,463,61,442,73,431,220,463,73,431,78,413,220,463,78,413,170,442,220,463,170,442,190,448,220,463,190,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,170,442,80,386,170,442,78,413,185,610,185,541,196,608,196,608,185,541,196,543,196,608,196,543,206,603,206,603,196,543,206,548,206,603,206,548,214,596,214,596,206,548,214,555,214,596,214,555,219,587,219,587,214,555,219,565,219,587,219,565,220,576,152,576,153,565,153,587,153,587,153,565,158,555,153,587,158,555,158,596,158,596,158,555,165,548,158,596,165,548,165,604,165,604,165,548,174,543,165,604,174,543,174,608,174,608,174,543,185,541,174,608,185,541,185,610,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,78,51,220,0,78,51,73,32,220,0,12,13,12,0,78,51,171,22,80,78,42,447,12,463,12,450,66,33,56,23,210,0,210,0,56,23,38,16,210,0,38,16,11,13,57,441,67,430,200,463,200,463,67,430,72,413,200,463,72,413,73,387,146,43,73,387,73,252,146,43,73,252,73,220,73,220,73,252,15,252,73,220,15,252,15,220,145,421,149,429,73,387,73,387,149,429,155,434,73,387,155,434,200,463,200,463,155,434,164,437,200,463,164,437,178,438,178,438,164,437,178,437,178,438,178,437,213,436,178,438,213,436,200,463,200,463,213,436,297,453,245,30,256,3,272,36,272,36,256,3,299,10,272,36,299,10,296,44,296,44,299,10,318,55,348,77,318,55,338,22,348,77,338,22,373,38,180,26,210,0,214,27,214,27,210,0,256,3,214,27,256,3,245,30,245,432,272,426,297,453,297,453,272,426,297,416,297,453,297,416,318,404,318,404,348,379,374,424,374,424,348,379,372,348,374,424,372,348,389,313,467,313,432,377,451,116,467,313,451,116,467,153,467,313,467,153,476,192,467,313,476,192,480,234,451,116,432,377,429,84,429,84,432,377,403,229,402,57,403,229,400,182,402,57,400,182,389,141,374,424,389,313,432,
-377,432,377,389,313,400,273,432,377,400,273,403,229,374,424,297,453,318,404,373,38,402,57,389,141,373,38,389,141,372,106,373,38,372,106,348,77,318,55,299,10,338,22,73,387,146,43,145,55,145,252,145,220,246,220,145,252,246,220,246,252,145,410,145,421,73,387,145,410,73,387,145,55,200,463,11,463,39,447,200,463,39,447,57,441,73,77,71,51,155,29,155,29,71,51,210,0,155,29,210,0,166,27,166,27,210,0,180,26,73,77,155,29,149,35,73,77,149,35,146,43,73,77,146,43,73,220,210,0,11,13,11,0,66,33,210,0,71,51,39,447,11,463,11,450,403,229,402,57,429,84,297,453,213,436,245,432,157,559,163,568,165,606,165,606,163,568,170,574,165,606,170,574,182,615,182,615,170,574,179,578,182,615,179,578,188,580,188,580,193,579,202,618,202,618,193,579,198,578,202,618,198,578,204,577,152,548,157,559,165,606,152,548,165,606,151,592,152,548,151,592,139,572,152,548,139,572,131,548,202,618,204,577,212,617,212,617,204,577,210,574,212,617,210,574,216,572,216,572,232,564,221,616,221,616,232,564,231,614,202,618,182,615,188,580,221,616,212,617,216,572,231,614,232,564,241,610,241,610,232,564,247,557,241,610,247,557,252,605,252,605,247,557,260,552,252,605,260,552,268,597,268,597,260,552,270,549,268,597,270,549,276,593,276,593,270,549,279,548,276,593,279,548,284,590,284,590,279,548,289,548,284,590,289,548,291,588,291,588,289,548,310,550,291,588,310,550,299,587,299,587,310,550,305,587,314,588,305,587,310,550,314,588,310,550,327,558,342,622,335,608,341,573,342,622,341,573,353,594,342,622,353,594,363,622,329,598,322,591,327,558,329,598,327,558,341,573,329,598,341,573,335,608,69,42,57,27,172,0,172,0,57,27,38,18,172,0,38,18,9,13,359,446,369,443,495,463,495,463,369,443,377,439,495,463,377,439,384,432,384,432,390,424,495,463,495,463,390,424,393,413,495,463,393,413,454,442,454,442,393,413,448,438,454,442,448,438,448,437,448,437,448,438,441,430,441,430,448,438,397,383,441,430,397,383,398,363,416,-7,398,363,398,125,416,-7,398,125,127,463,495,463,454,442,461,445,495,463,461,445,470,447,495,
-463,470,447,480,449,495,463,480,449,495,450,428,-7,428,355,416,-7,416,-7,428,355,429,383,416,-7,429,383,398,363,398,363,429,383,431,404,398,363,431,404,436,419,396,400,397,383,448,438,396,400,448,438,393,413,346,448,359,446,495,463,346,448,495,463,329,463,346,448,329,463,329,450,127,463,9,463,27,449,127,463,27,449,41,445,127,463,41,445,52,438,127,463,52,438,64,428,127,463,64,428,77,413,127,463,77,413,107,377,127,463,107,377,416,-7,77,413,109,68,107,105,75,67,69,42,126,28,126,28,69,42,172,0,126,28,172,0,144,19,144,19,172,0,172,13,77,105,75,67,114,44,77,105,114,44,109,68,77,105,109,68,77,413,172,0,9,13,9,0,75,67,126,28,114,44,27,449,9,463,9,450,107,377,77,413,107,105,441,430,398,363,436,419,314,588,327,558,322,591,287,530,315,530,213,634,287,530,213,634,207,640,287,530,207,640,201,644,287,530,201,644,195,647,287,530,195,647,189,649,287,530,189,649,184,649,287,530,184,649,179,597,158,627,159,620,159,635,159,635,159,620,161,614,159,635,161,614,162,641,162,641,161,614,166,608,162,641,166,608,168,646,168,646,166,608,172,602,168,646,172,602,175,648,175,648,172,602,179,597,175,648,179,597,184,649,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,
-391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,313,649,317,598,322,648,322,648,317,598,325,603,322,648,325,603,329,646,329,646,325,603,331,609,329,646,331,609,334,
-641,334,641,331,609,335,615,334,641,335,615,337,635,337,635,335,615,337,621,337,635,337,621,338,627,317,598,313,649,308,649,317,598,308,649,302,647,317,598,302,647,297,644,317,598,297,644,291,640,317,598,291,640,284,634,317,598,284,634,209,530,113,34,104,232,65,85,209,530,284,634,181,530,312,27,328,1,328,37,182,35,252,-9,198,26,139,530,163,530,226,647,226,647,163,530,248,602,226,647,248,602,270,647,270,647,248,602,333,530,270,647,333,530,357,530,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,157,559,163,568,165,606,165,606,163,568,170,574,165,606,170,574,182,615,182,615,170,574,179,578,182,615,179,578,188,580,188,580,193,579,202,618,202,
-618,193,579,198,578,202,618,198,578,204,577,152,548,157,559,165,606,152,548,165,606,151,592,152,548,151,592,139,572,152,548,139,572,131,548,202,618,204,577,212,617,212,617,204,577,210,574,212,617,210,574,216,572,216,572,232,564,221,616,221,616,232,564,231,614,202,618,182,615,188,580,221,616,212,617,216,572,231,614,232,564,241,610,241,610,232,564,247,557,241,610,247,557,252,605,252,605,247,557,260,552,252,605,260,552,268,597,268,597,260,552,270,549,268,597,270,549,276,593,276,593,270,549,279,548,276,593,279,548,284,590,284,590,279,548,289,548,284,590,289,548,291,588,291,588,289,548,310,550,291,588,310,550,299,587,299,587,310,550,305,587,314,588,305,587,310,550,314,588,310,550,327,558,342,622,335,608,341,573,342,622,341,573,353,594,342,622,353,594,363,622,329,598,322,591,327,558,329,598,327,558,341,573,329,598,341,573,335,608,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,
-377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,314,588,327,558,322,591,144,576,145,565,145,587,145,587,145,565,150,555,145,587,150,555,150,596,150,596,150,555,157,548,150,596,157,548,158,604,158,604,157,548,166,543,158,604,166,543,167,608,167,608,166,543,177,541,167,608,177,541,178,610,178,610,177,541,189,543,178,610,189,543,189,608,189,608,189,543,198,548,189,608,198,548,198,603,198,603,198,548,206,555,198,603,206,555,206,596,206,596,206,555,211,565,206,596,211,565,211,587,211,587,211,565,212,576,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,
-1,283,576,285,565,285,587,285,587,285,565,289,555,285,587,289,555,290,596,290,596,289,555,296,548,290,596,296,548,297,604,297,604,296,548,306,543,297,604,306,543,306,608,306,608,306,543,316,541,306,608,316,541,317,610,317,610,316,541,328,543,317,610,328,543,328,608,328,608,328,543,337,548,328,608,337,548,338,603,338,603,337,548,345,555,338,603,345,555,345,596,345,596,345,555,350,565,345,596,350,565,350,587,350,587,350,565,352,576,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,257,177,418,339,386,370,257,177,386,370,224,209,257,177,224,209,386,-16,257,177,386,-16,418,16,30,15,63,-16,191,177,191,177,63,-16,224,144,191,177,224,144,224,209,224,209,224,144,386,-16,63,370,30,338,191,177,63,370,191,177,224,209,67,83,77,70,114,429,114,429,77,70,89,57,114,429,89,57,104,231,104,231,105,41,105,197,105,197,105,41,108,166,395,158,376,98,391,34,391,34,376,98,345,53,391,34,345,53,328,1,328,1,345,53,304,25,328,1,304,25,252,16,252,16,229,17,252,-9,252,-9,229,17,225,-8,123,113,129,25,136,86,136,86,129,25,154,11,136,86,154,11,153,62,153,62,154,11,171,44,171,44,154,11,177,1,171,44,177,1,190,31,190,31,177,1,201,-4,190,31,201,-4,209,22,209,22,201,-4,225,-8,209,22,225,-8,229,17,129,25,123,113,114,139,129,25,114,139,108,166,129,25,108,166,105,41,129,25,105,41,73,-55,105,41,39,-55,73,-55,153,62,369,378,352,402,352,402,376,439,350,452,352,402,350,452,333,419,333,419,350,452,327,462,333,419,327,462,315,432,315,432,327,462,303,469,315,432,303,469,295,441,295,441,303,469,279,472,295,441,279,472,275,446,275,446,279,472,253,473,275,446,253,473,252,448,480,258,476,284,481,232,481,232,476,284,470,308,481,232,470,308,470,152,470,152,470,308,463,332,470,152,463,332,455,353,446,368,438,381,440,85,446,368,440,85,470,152,446,368,470,152,455,353,391,34,440,85,395,158,395,158,440,85,402,231,415,407,402,231,440,85,415,407,440,85,428,394,428,394,440,85,438,381,252,16,252,-9,328,1,369,378,381,351,376,439,376,439,381,351,399,423,376,
-439,399,423,427,514,427,514,399,423,461,514,399,423,381,351,391,325,399,423,391,325,397,297,399,423,397,297,400,266,399,423,400,266,415,407,352,402,136,86,153,62,130,365,161,410,177,462,177,462,161,410,202,438,177,462,202,438,253,473,253,473,202,438,252,448,114,429,104,231,111,305,114,429,111,305,130,365,114,429,130,365,177,462,65,378,34,311,41,132,65,378,41,132,51,111,65,378,51,111,58,96,65,378,58,96,67,83,65,378,67,83,114,429,34,311,23,231,25,205,34,311,25,205,28,180,34,311,28,180,34,155,34,311,34,155,41,132,415,407,400,266,402,231,376,439,352,402,369,378,105,41,104,231,89,57,289,530,317,530,216,634,289,530,216,634,209,640,289,530,209,640,203,644,289,530,203,644,197,647,289,530,197,647,191,649,289,530,191,649,185,649,289,530,185,649,181,597,160,627,161,620,161,635,161,635,161,620,164,614,161,635,164,614,165,641,165,641,164,614,168,608,165,641,168,608,170,646,170,646,168,608,174,602,170,646,174,602,177,648,177,648,174,602,181,597,177,648,181,597,185,649,147,110,148,11,152,88,152,88,148,11,169,2,152,88,169,2,161,69,161,69,169,2,175,52,188,42,175,52,193,-4,188,42,193,-4,204,33,204,33,193,-4,219,-8,204,33,219,-8,222,26,222,26,219,-8,248,-9,222,26,248,-9,242,22,242,22,248,-9,265,21,291,23,265,21,285,-7,291,23,285,-7,318,-1,145,166,145,384,130,23,145,166,130,23,145,135,145,135,130,23,148,11,145,135,148,11,147,110,175,52,169,2,193,-4,396,144,394,119,405,63,405,63,394,119,390,98,405,63,390,98,390,41,390,41,390,98,382,80,390,41,382,80,371,63,371,62,371,63,356,48,371,62,356,48,370,23,370,23,356,48,346,9,337,37,315,28,318,-1,337,37,318,-1,346,9,337,37,346,9,356,48,494,463,331,463,360,446,494,463,360,446,379,437,494,463,379,437,390,421,494,463,390,421,445,435,494,463,445,435,464,445,494,463,464,445,494,450,427,361,429,395,416,87,427,361,416,87,423,114,427,361,423,114,426,145,427,361,426,145,427,183,405,63,416,87,429,395,405,63,429,395,397,359,405,63,397,359,397,175,405,63,397,175,396,144,434,419,445,
-435,395,396,434,419,395,396,397,359,434,419,397,359,429,395,371,62,370,23,390,41,371,62,390,41,371,63,265,21,248,-9,285,-7,180,446,208,450,208,463,180,446,208,463,161,440,161,440,208,463,71,415,161,440,71,415,73,391,75,133,73,391,73,174,81,97,93,67,146,411,146,411,93,67,109,42,146,411,109,42,145,384,145,384,109,42,130,23,146,411,151,429,73,391,146,411,73,391,75,133,146,411,75,133,81,97,208,463,10,463,38,447,208,463,38,447,56,441,208,463,56,441,66,431,208,463,66,431,71,415,38,447,10,463,10,450,161,440,73,391,151,429,360,446,331,463,331,450,445,435,390,421,395,396,291,23,318,-1,315,28,147,110,148,11,152,88,152,88,148,11,169,2,152,88,169,2,161,69,161,69,169,2,175,52,188,42,175,52,193,-4,188,42,193,-4,204,33,204,33,193,-4,219,-8,204,33,219,-8,222,26,222,26,219,-8,248,-9,222,26,248,-9,242,22,242,22,248,-9,265,21,291,23,265,21,285,-7,291,23,285,-7,318,-1,145,166,145,384,130,23,145,166,130,23,145,135,145,135,130,23,148,11,145,135,148,11,147,110,175,52,169,2,193,-4,317,649,320,598,326,648,326,648,320,598,328,603,326,648,328,603,332,646,332,646,328,603,334,609,332,646,334,609,337,641,337,641,334,609,338,615,337,641,338,615,340,635,340,635,338,615,341,621,340,635,341,621,341,627,320,598,317,649,311,649,320,598,311,649,306,647,320,598,306,647,300,644,320,598,300,644,294,640,320,598,294,640,288,634,320,598,288,634,213,530,396,144,394,119,405,63,405,63,394,119,390,98,405,63,390,98,390,41,390,41,390,98,382,80,390,41,382,80,371,63,371,62,371,63,356,48,371,62,356,48,370,23,370,23,356,48,346,9,337,37,315,28,318,-1,337,37,318,-1,346,9,337,37,346,9,356,48,494,463,331,463,360,446,494,463,360,446,379,437,494,463,379,437,390,421,494,463,390,421,445,435,494,463,445,435,464,445,494,463,464,445,494,450,427,361,429,395,416,87,427,361,416,87,423,114,427,361,423,114,426,145,427,361,426,145,427,183,405,63,416,87,429,395,405,63,429,395,397,359,405,63,397,359,397,175,405,63,397,175,396,144,434,419,445,435,395,
-396,434,419,395,396,397,359,434,419,397,359,429,395,371,62,370,23,390,41,371,62,390,41,371,63,265,21,248,-9,285,-7,180,446,208,450,208,463,180,446,208,463,161,440,161,440,208,463,71,415,161,440,71,415,73,391,75,133,73,391,73,174,81,97,93,67,146,411,146,411,93,67,109,42,146,411,109,42,145,384,145,384,109,42,130,23,146,411,151,429,73,391,146,411,73,391,75,133,146,411,75,133,81,97,208,463,10,463,38,447,208,463,38,447,56,441,208,463,56,441,66,431,208,463,66,431,71,415,38,447,10,463,10,450,161,440,73,391,151,429,360,446,331,463,331,450,445,435,390,421,395,396,291,23,318,-1,315,28,213,530,288,634,185,530,140,530,164,530,227,647,227,647,164,530,248,602,227,647,248,602,270,647,270,647,248,602,334,530,270,647,334,530,358,530,147,110,148,11,152,88,152,88,148,11,169,2,152,88,169,2,161,69,161,69,169,2,175,52,188,42,175,52,193,-4,188,42,193,-4,204,33,204,33,193,-4,219,-8,204,33,219,-8,222,26,222,26,219,-8,248,-9,222,26,248,-9,242,22,242,22,248,-9,265,21,291,23,265,21,285,-7,291,23,285,-7,318,-1,145,166,145,384,130,23,145,166,130,23,145,135,145,135,130,23,148,11,145,135,148,11,147,110,175,52,169,2,193,-4,396,144,394,119,405,63,405,63,394,119,390,98,405,63,390,98,390,41,390,41,390,98,382,80,390,41,382,80,371,63,371,62,371,63,356,48,371,62,356,48,370,23,370,23,356,48,346,9,337,37,315,28,318,-1,337,37,318,-1,346,9,337,37,346,9,356,48,494,463,331,463,360,446,494,463,360,446,379,437,494,463,379,437,390,421,494,463,390,421,445,435,494,463,445,435,464,445,494,463,464,445,494,450,427,361,429,395,416,87,427,361,416,87,423,114,427,361,423,114,426,145,427,361,426,145,427,183,405,63,416,87,429,395,405,63,429,395,397,359,405,63,397,359,397,175,405,63,397,175,396,144,434,419,445,435,395,396,434,419,395,396,397,359,434,419,397,359,429,395,371,62,370,23,390,41,371,62,390,41,371,63,265,21,248,-9,285,-7,180,446,208,450,208,463,180,446,208,463,161,440,161,440,208,463,71,415,161,440,71,415,73,391,75,
-133,73,391,73,174,81,97,93,67,146,411,146,411,93,67,109,42,146,411,109,42,145,384,145,384,109,42,130,23,146,411,151,429,73,391,146,411,73,391,75,133,146,411,75,133,81,97,208,463,10,463,38,447,208,463,38,447,56,441,208,463,56,441,66,431,208,463,66,431,71,415,38,447,10,463,10,450,161,440,73,391,151,429,360,446,331,463,331,450,445,435,390,421,395,396,291,23,318,-1,315,28,283,576,285,565,285,587,285,587,285,565,289,555,285,587,289,555,290,596,290,596,289,555,296,548,290,596,296,548,297,604,297,604,296,548,306,543,297,604,306,543,306,608,306,608,306,543,316,541,306,608,316,541,317,610,317,610,316,541,328,543,317,610,328,543,328,608,328,608,328,543,337,548,328,608,337,548,338,603,338,603,337,548,345,555,338,603,345,555,345,596,345,596,345,555,350,565,345,596,350,565,350,587,350,587,350,565,352,576,144,576,145,565,145,587,145,587,145,565,150,555,145,587,150,555,150,596,150,596,150,555,157,548,150,596,157,548,158,604,158,604,157,548,166,543,158,604,166,543,167,608,167,608,166,543,177,541,167,608,177,541,178,610,178,610,177,541,189,543,178,610,189,543,189,608,189,608,189,543,198,548,189,608,198,548,198,603,198,603,198,548,206,555,198,603,206,555,206,596,206,596,206,555,211,565,206,596,211,565,211,587,211,587,211,565,212,576,147,110,148,11,152,88,152,88,148,11,169,2,152,88,169,2,161,69,161,69,169,2,175,52,188,42,175,52,193,-4,188,42,193,-4,204,33,204,33,193,-4,219,-8,204,33,219,-8,222,26,222,26,219,-8,248,-9,222,26,248,-9,242,22,242,22,248,-9,265,21,291,23,265,21,285,-7,291,23,285,-7,318,-1,145,166,145,384,130,23,145,166,130,23,145,135,145,135,130,23,148,11,145,135,148,11,147,110,175,52,169,2,193,-4,396,144,394,119,405,63,405,63,394,119,390,98,405,63,390,98,390,41,390,41,390,98,382,80,390,41,382,80,371,63,371,62,371,63,356,48,371,62,356,48,370,23,370,23,356,48,346,9,337,37,315,28,318,-1,337,37,318,-1,346,9,337,37,346,9,356,48,494,463,331,463,360,446,494,463,360,446,379,437,494,463,379,437,390,421,494,463,390,
-421,445,435,494,463,445,435,464,445,494,463,464,445,494,450,427,361,429,395,416,87,427,361,416,87,423,114,427,361,423,114,426,145,427,361,426,145,427,183,405,63,416,87,429,395,405,63,429,395,397,359,405,63,397,359,397,175,405,63,397,175,396,144,434,419,445,435,395,396,434,419,395,396,397,359,434,419,397,359,429,395,371,62,370,23,390,41,371,62,390,41,371,63,265,21,248,-9,285,-7,180,446,208,450,208,463,180,446,208,463,161,440,161,440,208,463,71,415,161,440,71,415,73,391,75,133,73,391,73,174,81,97,93,67,146,411,146,411,93,67,109,42,146,411,109,42,145,384,145,384,109,42,130,23,146,411,151,429,73,391,146,411,73,391,75,133,146,411,75,133,81,97,208,463,10,463,38,447,208,463,38,447,56,441,208,463,56,441,66,431,208,463,66,431,71,415,38,447,10,463,10,450,161,440,73,391,151,429,360,446,331,463,331,450,445,435,390,421,395,396,291,23,318,-1,315,28,169,405,166,412,220,205,220,205,166,412,163,419,220,205,163,419,129,340,129,340,163,419,161,425,129,340,161,425,161,431,161,431,162,437,129,340,211,463,16,463,34,447,211,463,34,447,51,438,211,463,51,438,71,419,211,463,71,419,173,446,211,463,173,446,182,448,211,463,182,448,194,449,211,463,194,449,211,450,173,446,71,419,166,442,166,442,71,419,95,387,166,442,95,387,162,437,162,437,95,387,129,340,292,77,292,212,276,244,292,77,276,244,294,50,294,50,276,244,220,205,294,50,220,205,301,32,301,32,220,205,220,86,301,32,220,86,313,22,313,22,220,86,219,55,313,22,219,55,364,0,364,0,219,55,213,34,364,0,213,34,201,23,385,417,383,412,395,372,395,372,383,412,381,405,395,372,381,405,377,399,377,399,276,244,292,212,492,463,340,463,359,449,492,463,359,449,372,446,492,463,372,446,381,442,492,463,381,442,385,436,492,463,385,436,387,428,492,463,387,428,451,438,492,463,451,438,470,446,492,463,470,446,492,450,387,428,395,372,416,403,387,428,416,403,434,424,387,428,434,424,451,438,395,372,387,428,386,423,395,372,386,423,385,417,377,399,292,212,395,372,319,649,322,598,327,648,327,648,322,598,329,603,327,648,329,603,334,
-646,334,646,329,603,335,609,334,646,335,609,339,641,339,641,335,609,340,615,339,641,340,615,342,635,342,635,340,615,342,621,342,635,342,621,343,627,322,598,319,649,313,649,322,598,313,649,307,647,322,598,307,647,302,644,322,598,302,644,296,640,322,598,296,640,289,634,322,598,289,634,214,530,334,16,313,22,364,0,334,16,364,0,364,13,181,16,150,13,364,0,181,16,364,0,201,23,173,398,169,405,220,205,173,398,220,205,276,244,364,0,150,13,150,0,214,530,289,634,186,530,359,449,340,463,340,450,34,447,16,463,16,450,70,387,143,50,70,387,70,387,143,50,141,77,70,387,141,77,141,380,141,380,142,408,70,387,70,387,142,408,147,428,70,387,147,428,159,440,205,463,11,463,37,446,205,463,37,446,54,440,205,463,54,440,64,429,205,463,64,429,69,412,205,463,69,412,159,440,205,463,159,440,177,446,205,463,177,446,205,450,70,387,159,440,69,412,142,332,144,339,141,373,141,373,144,339,148,343,141,373,148,343,198,373,198,373,148,343,155,345,198,373,155,345,164,346,164,346,215,342,198,373,198,373,215,342,259,367,282,310,298,280,310,350,310,350,298,280,303,241,312,134,303,241,298,205,259,367,215,342,255,330,259,367,255,330,282,310,259,367,282,310,310,350,371,289,348,324,354,170,371,289,354,170,368,193,371,289,368,193,377,218,371,289,377,218,380,245,348,324,310,350,312,134,348,324,312,134,335,150,348,324,335,150,354,170,190,111,221,112,225,142,225,142,221,112,248,114,225,142,248,114,259,155,259,155,248,114,272,119,259,155,272,119,283,176,283,176,272,119,293,126,283,176,293,126,298,205,298,205,293,126,312,134,225,142,181,138,190,111,190,111,181,138,180,111,180,111,181,138,173,138,180,111,173,138,170,111,170,111,173,138,165,139,170,111,165,139,161,111,161,111,165,139,158,139,161,111,158,139,152,112,152,112,158,139,150,140,152,112,150,140,141,141,141,373,141,141,141,323,141,373,141,323,142,332,141,374,141,375,141,77,141,374,141,77,141,141,141,374,141,141,141,373,141,141,141,113,152,112,207,0,207,13,179,16,207,0,179,16,160,22,207,0,160,22,69,55,207,0,69,55,65,35,207,0,65,35,55,23,207,
-0,55,23,38,17,207,0,38,17,11,13,207,0,11,13,11,0,141,77,141,375,141,377,141,77,141,377,141,378,141,77,141,378,141,380,70,84,69,55,160,22,70,84,160,22,149,33,70,84,149,33,143,50,70,84,143,50,70,387,303,241,312,134,310,350,37,446,11,463,11,450,46,27,39,18,110,0,110,0,39,18,26,13,110,0,26,13,9,10,222,259,198,264,203,243,203,243,198,264,191,278,203,243,191,278,170,250,170,250,191,278,167,273,170,250,167,273,161,251,161,251,167,273,159,272,161,251,159,272,154,252,154,252,159,272,154,270,154,252,154,270,150,254,150,254,154,270,150,268,150,254,150,268,148,258,148,258,150,268,148,265,148,258,148,265,147,262,113,410,121,431,130,472,130,472,121,431,133,446,130,472,133,446,176,478,176,478,133,446,150,456,176,478,150,456,170,459,170,459,192,455,176,478,176,478,192,455,216,473,231,331,237,284,234,361,234,361,237,284,249,459,249,459,237,284,265,302,249,459,265,302,274,437,274,437,265,302,282,322,274,437,282,322,289,408,289,408,282,322,292,344,289,408,292,344,295,372,192,455,210,442,216,473,216,473,210,442,223,422,216,473,223,422,249,459,249,459,223,422,231,395,249,459,231,395,234,361,210,290,198,264,237,284,210,290,237,284,223,308,223,308,237,284,231,331,321,87,327,130,326,154,321,87,326,154,320,175,321,87,320,175,312,195,321,87,312,195,304,49,312,195,300,213,304,49,304,49,300,213,284,228,304,49,284,228,277,20,277,20,284,228,271,239,277,20,271,239,262,105,262,105,271,239,258,156,277,20,262,105,261,86,277,20,261,86,258,67,277,20,258,67,255,50,277,20,255,50,250,36,277,20,250,36,245,27,277,20,245,27,242,1,197,35,195,51,193,59,197,35,193,59,202,-5,197,35,202,-5,198,27,95,453,70,421,110,0,95,453,110,0,110,384,95,453,110,384,113,410,95,453,113,410,130,472,110,0,70,421,56,376,110,0,56,376,51,318,110,0,51,318,51,59,110,0,51,59,50,40,110,0,50,40,46,27,236,18,230,16,242,1,242,1,230,16,224,14,242,1,224,14,217,14,217,14,210,15,242,1,242,1,210,15,205,17,242,1,205,17,202,-5,202,-5,205,
-17,201,21,202,-5,201,21,198,27,236,18,242,1,241,22,241,22,242,1,245,27,193,59,188,67,202,-5,202,-5,188,67,182,73,202,-5,182,73,180,-3,180,-3,182,73,174,77,180,-3,174,77,166,78,161,3,180,-3,166,78,161,3,166,78,155,77,161,3,155,77,147,72,161,3,147,72,147,14,140,65,136,56,138,28,140,65,138,28,147,14,140,65,147,14,147,72,222,259,228,225,241,253,241,253,228,225,247,196,241,253,247,196,257,247,257,247,247,196,258,156,257,247,258,156,271,239,222,259,203,243,228,225,138,28,136,56,134,45,110,0,9,10,9,0,198,264,210,290,191,278,194,355,222,355,120,459,194,355,120,459,114,465,194,355,114,465,108,469,194,355,108,469,102,472,194,355,102,472,96,474,194,355,96,474,91,474,194,355,91,474,86,422,65,452,66,445,66,460,66,460,66,445,68,439,66,460,68,439,69,466,69,466,68,439,73,433,69,466,73,433,75,471,75,471,73,433,79,427,75,471,79,427,82,473,82,473,79,427,86,422,82,473,86,422,91,474,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,
-291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,258,79,260,-5,259,62,41,234,40,257,39,245,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,107,
-291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,216,474,219,423,224,473,224,473,219,423,226,428,224,473,226,428,231,471,231,471,226,428,232,434,231,471,232,434,236,466,236,466,232,434,236,440,236,466,236,440,239,460,239,460,236,440,239,446,239,460,239,446,240,452,219,423,216,474,210,474,219,423,210,474,204,472,219,423,204,472,199,469,219,423,199,469,193,465,219,423,193,465,186,459,219,423,186,459,111,355,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,
-260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,111,355,186,459,84,355,258,79,260,-5,259,62,41,234,40,257,39,245,49,355,73,355,136,472,136,472,73,355,158,427,136,472,158,427,179,472,179,472,158,427,243,355,179,472,243,355,266,355,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,
-266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,258,79,260,-5,259,62,41,234,40,257,39,245,67,384,73,393,75,431,75,431,73,393,80,399,75,431,80,399,92,440,92,440,80,399,88,403,92,440,88,403,98,405,98,405,103,404,112,443,112,443,103,404,108,403,112,443,108,403,114,402,62,373,67,384,75,431,62,373,75,431,61,417,62,373,61,417,49,397,62,373,49,397,41,373,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,
-233,98,271,95,225,112,443,114,402,121,442,121,442,114,402,120,399,121,442,120,399,126,397,126,397,142,389,131,441,131,441,142,389,141,439,112,443,92,440,98,405,131,441,121,442,126,397,141,439,142,389,151,435,151,435,142,389,157,382,151,435,157,382,161,430,161,430,157,382,170,377,161,430,170,377,178,422,178,422,170,377,180,374,178,422,180,374,186,418,186,418,180,374,189,373,186,418,189,373,194,415,194,415,189,373,198,373,194,415,198,373,201,413,201,413,198,373,220,375,201,413,220,375,208,412,208,412,220,375,215,412,224,413,215,412,220,375,224,413,220,375,237,383,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,252,447,245,433,251,398,252,447,251,398,263,419,252,447,263,419,273,447,238,423,232,416,237,383,238,423,237,383,251,398,238,423,251,398,245,433,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,
-78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,41,234,40,257,39,245,224,413,237,383,232,416,258,79,260,-5,259,62,226,435,226,366,237,433,237,433,226,366,237,368,237,433,237,368,247,428,247,428,237,368,247,373,247,428,247,373,254,421,254,421,247,373,254,380,254,421,254,380,259,412,259,412,254,380,259,390,259,412,259,390,261,401,192,401,194,390,194,412,194,412,194,390,198,380,194,412,198,380,199,421,199,421,198,380,206,373,199,421,206,373,206,429,206,429,206,373,215,368,206,429,215,368,215,433,215,433,215,368,226,366,215,433,226,366,226,435,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,
-291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,52,401,54,390,54,412,54,412,54,390,59,380,54,412,59,380,59,421,59,421,59,380,66,373,59,421,66,373,67,429,67,429,66,373,75,368,67,429,75,368,76,433,76,433,75,368,86,366,76,433,86,366,87,435,87,435,86,366,97,368,87,435,97,368,98,433,98,433,97,368,107,373,98,433,107,373,107,428,107,428,107,373,115,380,107,428,115,380,115,421,115,421,115,380,120,390,115,421,120,390,120,412,120,412,120,390,122,401,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,
-176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,41,234,40,257,39,245,258,79,260,-5,259,62,201,415,194,402,198,373,198,373,194,402,184,392,198,373,184,392,179,364,179,364,184,392,171,386,179,364,171,386,156,360,156,360,171,386,156,384,88,430,91,407,91,452,91,452,91,407,101,388,91,452,101,388,101,471,101,471,101,388,116,373,101,471,116,373,111,430,111,430,116,486,101,471,52,218,61,214,62,291,62,291,61,214,70,212,62,291,70,212,75,301,75,301,70,212,80,214,75,301,80,214,88,308,88,308,80,214,89,219,88,308,89,219,103,314,103,314,89,219,98,271,100,233,98,271,95,225,155,322,146,305,164,303,155,322,164,303,177,321,177,321,164,303,179,296,177,321,179,296,197,317,197,317,179,296,191,283,197,317,191,283,198,266,107,291,117,299,119,318,119,318,117,299,130,304,119,318,130,304,137,321,137,321,130,304,146,305,137,321,146,305,155,322,103,314,98,271,100,282,103,314,100,282,107,291,103,314,107,291,119,318,98,271,89,219,95,225,40,257,41,234,45,268,45,268,41,234,46,225,45,268,46,225,52,280,52,280,46,225,52,218,52,280,52,218,62,291,158,499,156,475,171,473,158,499,171,473,179,496,179,496,171,473,184,466,179,496,184,466,198,485,198,485,184,466,194,456,198,485,194,456,201,444,258,79,258,213,257,235,258,79,257,235,256,253,258,79,256,253,252,267,258,79,252,267,260,-5,266,40,273,-2,272,35,272,35,273,-2,280,33,286,33,280,
-33,285,3,286,33,285,3,297,13,262,49,259,62,260,-5,262,49,260,-5,273,-2,262,49,273,-2,266,40,205,24,212,10,213,310,213,310,212,10,220,0,213,310,220,0,227,302,227,302,220,0,232,-4,227,302,232,-4,238,291,238,291,232,-4,246,-6,238,291,246,-6,247,279,247,279,246,-6,260,-5,247,279,260,-5,252,267,213,310,197,317,198,266,213,310,198,266,201,242,213,310,201,242,201,188,213,310,201,188,202,44,213,310,202,44,205,24,201,44,202,44,201,188,201,205,201,188,201,242,303,41,297,37,297,13,303,41,297,13,309,27,303,41,309,27,309,46,291,35,286,33,297,13,291,35,297,13,297,37,280,33,273,-2,285,3,227,429,223,451,223,407,223,407,223,451,213,470,223,407,213,470,213,388,213,388,213,470,203,430,201,444,203,430,213,470,201,444,213,470,198,485,201,415,198,373,213,388,201,415,213,388,203,430,120,456,130,466,135,496,135,496,130,466,142,473,135,496,142,473,158,499,158,499,142,473,156,475,116,486,111,430,113,444,116,486,113,444,120,456,116,486,120,456,135,496,142,386,129,392,134,364,142,386,134,364,156,360,142,386,156,360,156,384,120,402,113,415,116,373,120,402,116,373,134,364,120,402,134,364,129,392,201,44,201,188,201,89,201,44,201,89,200,78,201,44,200,78,198,69,201,44,198,69,194,60,201,44,194,60,187,53,201,44,187,53,179,23,179,23,187,53,177,45,177,45,169,40,179,23,179,23,169,40,161,37,179,23,161,37,158,8,158,8,161,37,153,35,158,8,153,35,144,34,138,160,156,169,159,189,159,189,156,169,177,178,159,189,177,178,201,205,201,205,177,178,201,188,91,111,96,122,106,165,106,165,96,122,102,132,106,165,102,132,111,141,111,141,123,151,128,176,128,176,123,151,138,160,128,176,138,160,159,189,128,176,106,165,111,141,100,255,99,260,100,233,100,255,100,233,102,241,100,255,102,241,101,249,98,265,98,271,100,233,98,265,100,233,99,260,89,156,75,148,75,-3,89,156,75,-3,88,88,89,156,88,88,88,100,89,156,88,100,91,111,89,156,91,111,106,165,88,88,75,-3,90,68,90,68,75,-3,99,-6,90,68,99,-6,97,53,97,53,99,-6,107,42,28,87,29,40,35,
-105,35,105,29,40,39,20,35,105,39,20,46,122,46,122,39,20,55,5,46,122,55,5,59,136,59,136,55,5,75,-3,59,136,75,-3,75,148,118,-5,138,0,120,36,120,36,138,0,136,34,144,34,136,34,138,0,144,34,138,0,158,8,107,42,99,-6,118,-5,107,42,118,-5,120,36,29,40,28,87,26,66,111,430,116,373,113,415,258,79,260,-5,259,62,41,234,40,257,39,245,102,274,102,274,102,274,102,274,104,284,87,308,102,274,87,308,92,218,102,274,92,218,98,225,200,53,188,44,188,23,188,23,188,44,170,35,188,23,170,35,166,9,166,9,170,35,151,29,166,9,151,29,147,1,147,1,151,29,134,27,147,1,134,27,128,-2,128,-2,134,27,116,30,128,-2,116,30,108,-4,108,-4,116,30,104,39,108,-4,104,39,94,52,88,88,81,0,89,69,89,69,81,0,108,-4,89,69,108,-4,94,52,104,284,111,292,118,318,118,318,111,292,121,298,118,318,121,298,153,322,153,322,121,298,134,302,153,322,134,302,149,304,149,304,166,302,153,322,153,322,166,302,173,321,245,11,248,194,236,289,245,11,236,289,229,25,229,25,236,289,220,302,229,25,220,302,214,44,214,44,220,302,205,62,205,63,205,62,205,311,205,311,205,62,220,302,205,311,190,317,191,265,205,311,191,265,192,241,205,311,192,241,192,177,205,311,192,177,193,126,205,311,193,126,194,111,205,311,194,111,197,96,205,311,197,96,200,80,205,311,200,80,205,64,205,311,205,64,205,63,192,197,192,177,192,241,190,317,173,321,178,295,190,317,178,295,186,282,190,317,186,282,191,265,320,322,309,300,329,297,320,322,329,297,358,317,358,317,329,297,345,288,358,317,345,288,355,271,248,215,252,247,253,302,253,302,252,247,260,271,253,302,260,271,269,311,269,311,260,271,272,288,269,311,272,288,285,317,285,317,272,288,288,297,285,317,288,297,301,321,301,321,288,297,309,300,301,321,309,300,320,322,387,303,365,215,431,194,431,194,365,215,248,215,431,194,248,215,248,194,236,289,248,194,248,215,236,289,248,215,253,302,362,247,365,215,387,303,362,247,387,303,358,317,362,247,358,317,355,271,409,278,387,303,431,194,409,278,431,194,423,242,316,41,301,46,305,-4,305,
--4,301,46,287,54,305,-4,287,54,282,-2,282,-2,287,54,275,63,282,-2,275,63,266,75,266,75,259,91,263,2,263,2,259,91,254,109,263,2,254,109,251,130,245,11,263,2,251,130,245,11,251,130,249,157,245,11,249,157,248,194,305,-4,323,-3,316,41,316,41,323,-3,333,40,356,42,333,40,340,0,356,42,340,0,356,5,266,75,263,2,282,-2,399,34,410,47,415,82,415,82,410,47,420,62,415,82,420,62,434,108,434,108,420,62,431,81,434,108,431,81,442,105,356,5,372,13,376,49,376,49,372,13,387,23,376,49,387,23,396,62,396,62,387,23,399,34,396,62,399,34,415,82,333,40,323,-3,340,0,200,53,188,23,214,44,200,53,214,44,205,62,90,110,100,128,102,172,102,172,100,128,119,144,102,172,119,144,192,197,192,197,119,144,149,160,192,197,149,160,192,177,59,8,81,0,67,157,67,157,81,0,88,88,67,157,88,88,90,110,28,95,30,45,33,118,33,118,30,45,41,24,33,118,41,24,45,139,45,139,41,24,59,8,45,139,59,8,67,157,54,218,62,214,63,291,63,291,62,214,73,212,63,291,73,212,87,308,87,308,73,212,83,214,87,308,83,214,92,218,48,270,42,246,44,235,48,270,44,235,48,225,48,270,48,225,54,218,48,270,54,218,63,291,103,258,102,263,102,234,103,258,102,234,104,245,103,258,104,245,104,252,102,234,102,263,102,269,102,234,102,269,102,274,102,234,102,274,98,225,87,308,104,284,118,318,30,45,28,95,27,70,67,157,90,110,102,172,193,126,192,177,192,141,356,42,356,5,376,49,173,321,166,302,178,295,114,68,91,97,95,6,95,6,91,97,76,135,95,6,76,135,63,28,63,28,76,135,71,180,77,286,71,180,76,220,77,286,76,220,88,254,122,-149,134,-150,123,-125,123,-125,134,-150,131,-125,144,-123,131,-125,134,-150,144,-123,134,-150,164,-147,134,-4,132,-69,146,-70,134,-4,146,-70,144,-44,134,-4,144,-44,144,50,144,50,144,-44,158,-6,134,-4,108,-69,113,-72,134,-4,113,-72,116,-71,134,-4,116,-71,119,-70,134,-4,119,-70,123,-69,134,-4,123,-69,128,-69,134,-4,128,-69,132,-69,260,84,241,65,243,34,243,34,241,65,222,53,243,34,222,53,218,13,218,13,222,
-53,202,46,218,13,202,46,190,0,190,0,202,46,180,44,158,-6,190,0,180,44,158,-6,180,44,144,50,114,68,95,6,134,-4,114,68,134,-4,144,50,190,297,197,291,205,318,205,318,197,291,203,281,205,318,203,281,208,268,208,268,212,252,234,308,234,308,212,252,216,241,234,308,216,241,222,232,171,322,166,302,180,300,171,322,180,300,205,318,205,318,180,300,190,297,273,272,258,292,265,226,273,272,265,226,272,232,273,272,272,232,277,241,273,272,277,241,279,250,258,292,234,308,237,222,258,292,237,222,245,220,258,292,245,220,256,222,258,292,256,222,265,226,234,308,222,232,229,226,234,308,229,226,237,222,234,308,205,318,208,268,266,64,288,103,279,109,266,64,279,109,260,84,266,64,260,84,243,34,135,296,166,302,151,320,135,296,151,320,132,316,135,296,132,316,113,308,135,296,113,308,109,280,94,298,77,286,88,254,94,298,88,254,109,280,94,298,109,280,113,308,63,28,71,180,77,286,63,28,77,286,55,265,63,28,55,265,39,240,63,28,39,240,38,61,27,213,20,182,23,101,27,213,23,101,38,61,27,213,38,61,39,240,222,-90,219,-74,218,-111,218,-111,219,-74,211,-60,218,-111,211,-60,207,-127,207,-127,211,-60,199,-51,207,-127,199,-51,188,-139,188,-139,199,-51,182,-45,188,-139,182,-45,170,-94,170,-94,182,-45,168,-85,164,-78,168,-85,182,-45,164,-78,182,-45,162,-43,164,-78,162,-43,158,-43,164,-78,158,-43,157,-73,157,-73,158,-43,154,-43,157,-73,154,-43,151,-43,157,-73,151,-43,148,-44,157,-73,148,-44,146,-70,188,-139,170,-94,168,-105,188,-139,168,-105,164,-147,164,-147,168,-105,163,-113,164,-147,163,-113,155,-119,85,-117,88,-143,96,-120,96,-120,88,-143,99,-146,96,-120,99,-146,106,-122,106,-122,99,-146,110,-148,106,-122,110,-148,114,-124,114,-124,110,-148,122,-149,114,-124,122,-149,123,-125,88,-143,85,-117,76,-138,144,-123,164,-147,155,-119,144,-44,146,-70,148,-44,166,302,171,322,151,320,23,101,20,182,17,148,79,119,105,0,87,99,87,99,105,0,100,80,112,66,100,80,105,0,112,66,105,0,151,-6,73,140,70,165,68,21,73,140,68,21,105,0,73,140,105,0,79,119,17,152,23,98,24,207,24,207,23,98,40,54,24,207,40,54,43,
-254,43,254,40,54,68,21,43,254,68,21,68,194,68,194,68,21,70,165,189,355,217,355,116,459,189,355,116,459,109,465,189,355,109,465,103,469,189,355,103,469,97,472,189,355,97,472,91,474,189,355,91,474,85,474,189,355,85,474,81,422,60,452,61,445,61,460,61,460,61,445,64,439,61,460,64,439,65,466,65,466,64,439,68,433,65,466,68,433,70,471,70,471,68,433,74,427,70,471,74,427,77,473,77,473,74,427,81,422,77,473,81,422,85,474,187,320,163,322,168,294,168,294,163,322,144,297,122,294,144,297,163,322,122,294,163,322,113,314,266,87,247,67,254,36,254,36,247,67,226,52,254,36,226,52,224,12,224,12,226,52,204,44,224,12,204,44,190,-1,190,-1,204,44,178,41,284,194,281,215,278,232,284,194,278,232,273,248,284,194,273,248,267,261,284,194,267,261,259,273,284,194,259,273,245,290,284,194,245,290,228,304,284,194,228,304,212,216,284,194,212,216,70,216,284,194,70,216,68,194,198,269,206,246,209,314,209,314,206,246,212,216,209,314,212,216,228,304,278,69,297,110,286,115,278,69,286,115,266,87,278,69,266,87,254,36,159,43,142,47,151,-6,159,43,151,-6,190,-1,159,43,190,-1,178,41,126,55,112,66,151,-6,126,55,151,-6,142,47,187,320,168,294,186,285,187,320,186,285,198,269,187,320,198,269,209,314,70,216,77,245,73,290,73,290,77,245,88,267,73,290,88,267,113,314,113,314,88,267,103,284,113,314,103,284,122,294,73,290,43,254,68,194,73,290,68,194,70,216,284,194,281,215,278,232,284,194,278,232,273,248,284,194,273,248,267,261,284,194,267,261,259,273,284,194,259,273,245,290,284,194,245,290,228,304,284,194,228,304,212,216,284,194,212,216,70,216,284,194,70,216,68,194,198,269,206,246,209,314,209,314,206,246,212,216,209,314,212,216,228,304,213,474,217,423,222,473,222,473,217,423,225,428,222,473,225,428,229,471,229,471,225,428,231,434,229,471,231,434,234,466,234,466,231,434,235,440,234,466,235,440,237,460,237,460,235,440,237,446,237,460,237,446,238,452,217,423,213,474,208,474,217,423,208,474,202,472,217,423,202,472,197,469,217,423,197,469,191,465,217,423,191,465,184,459,217,
-423,184,459,109,355,73,140,70,165,68,21,68,21,70,165,68,194,68,21,68,194,43,254,68,21,43,254,40,54,40,54,43,254,24,207,40,54,24,207,23,98,23,98,24,207,17,152,187,320,163,322,168,294,168,294,163,322,144,297,122,294,144,297,163,322,122,294,163,322,113,314,266,87,247,67,254,36,254,36,247,67,226,52,254,36,226,52,224,12,224,12,226,52,204,44,224,12,204,44,190,-1,190,-1,204,44,178,41,278,69,297,110,286,115,278,69,286,115,266,87,278,69,266,87,254,36,159,43,142,47,151,-6,159,43,151,-6,190,-1,159,43,190,-1,178,41,142,47,126,55,151,-6,151,-6,126,55,112,66,151,-6,112,66,105,0,105,0,112,66,100,80,187,320,168,294,186,285,187,320,186,285,198,269,187,320,198,269,209,314,70,216,77,245,73,290,73,290,77,245,88,267,73,290,88,267,113,314,113,314,88,267,103,284,113,314,103,284,122,294,73,290,43,254,68,194,73,290,68,194,70,216,105,0,100,80,87,99,105,0,87,99,79,119,105,0,79,119,73,140,105,0,73,140,68,21,109,355,184,459,81,355,48,355,72,355,135,472,135,472,72,355,157,427,135,472,157,427,178,472,178,472,157,427,242,355,178,472,242,355,266,355,73,140,70,165,68,21,68,21,70,165,68,194,68,21,68,194,43,254,68,21,43,254,40,54,40,54,43,254,24,207,40,54,24,207,23,98,23,98,24,207,17,152,187,320,163,322,168,294,168,294,163,322,144,297,122,294,144,297,163,322,122,294,163,322,113,314,266,87,247,67,254,36,254,36,247,67,226,52,254,36,226,52,224,12,224,12,226,52,204,44,224,12,204,44,190,-1,190,-1,204,44,178,41,284,194,281,215,278,232,284,194,278,232,273,248,284,194,273,248,267,261,284,194,267,261,259,273,284,194,259,273,245,290,284,194,245,290,228,304,284,194,228,304,212,216,284,194,212,216,70,216,284,194,70,216,68,194,198,269,206,246,209,314,209,314,206,246,212,216,209,314,212,216,228,304,278,69,297,110,286,115,278,69,286,115,266,87,278,69,266,87,254,36,159,43,142,47,151,-6,159,43,151,-6,190,-1,159,43,190,-1,178,41,142,47,126,55,151,-6,151,-6,126,55,112,66,151,-6,112,
-66,105,0,105,0,112,66,100,80,187,320,168,294,186,285,187,320,186,285,198,269,187,320,198,269,209,314,70,216,77,245,73,290,73,290,77,245,88,267,73,290,88,267,113,314,113,314,88,267,103,284,113,314,103,284,122,294,73,290,43,254,68,194,73,290,68,194,70,216,105,0,100,80,87,99,105,0,87,99,79,119,105,0,79,119,73,140,105,0,73,140,68,21,284,194,281,215,278,232,284,194,278,232,273,248,284,194,273,248,267,261,284,194,267,261,259,273,284,194,259,273,245,290,284,194,245,290,228,304,284,194,228,304,212,216,284,194,212,216,70,216,284,194,70,216,68,194,198,269,206,246,209,314,209,314,206,246,212,216,209,314,212,216,228,304,191,401,193,390,193,412,193,412,193,390,198,380,193,412,198,380,198,421,198,421,198,380,205,373,198,421,205,373,205,429,205,429,205,373,214,368,205,429,214,368,215,433,215,433,214,368,225,366,215,433,225,366,226,435,226,435,225,366,236,368,226,435,236,368,237,433,237,433,236,368,246,373,237,433,246,373,246,428,246,428,246,373,253,380,246,428,253,380,253,421,253,421,253,380,258,390,253,421,258,390,258,412,258,412,258,390,260,401,52,401,53,390,53,412,53,412,53,390,58,380,53,412,58,380,58,421,58,421,58,380,65,373,58,421,65,373,66,429,66,429,65,373,74,368,66,429,74,368,75,433,75,433,74,368,85,366,75,433,85,366,86,435,86,435,85,366,96,368,86,435,96,368,97,433,97,433,96,368,106,373,97,433,106,373,106,428,106,428,106,373,114,380,106,428,114,380,114,421,114,421,114,380,119,390,114,421,119,390,119,412,119,412,119,390,121,401,73,140,70,165,68,21,68,21,70,165,68,194,68,21,68,194,43,254,68,21,43,254,40,54,40,54,43,254,24,207,40,54,24,207,23,98,23,98,24,207,17,152,187,320,163,322,168,294,168,294,163,322,144,297,122,294,144,297,163,322,122,294,163,322,113,314,266,87,247,67,254,36,254,36,247,67,226,52,254,36,226,52,224,12,224,12,226,52,204,44,224,12,204,44,190,-1,190,-1,204,44,178,41,278,69,297,110,286,115,278,69,286,115,266,87,278,69,266,87,254,36,159,43,142,47,151,-6,159,43,151,-6,190,
--1,159,43,190,-1,178,41,142,47,126,55,151,-6,151,-6,126,55,112,66,151,-6,112,66,105,0,105,0,112,66,100,80,187,320,168,294,186,285,187,320,186,285,198,269,187,320,198,269,209,314,70,216,77,245,73,290,73,290,77,245,88,267,73,290,88,267,113,314,113,314,88,267,103,284,113,314,103,284,122,294,73,290,43,254,68,194,73,290,68,194,70,216,105,0,100,80,87,99,105,0,87,99,79,119,105,0,79,119,73,140,105,0,73,140,68,21,133,355,161,355,59,459,133,355,59,459,53,465,133,355,53,465,47,469,133,355,47,469,41,472,133,355,41,472,36,474,133,355,36,474,30,474,133,355,30,474,25,422,4,452,5,445,5,460,5,460,5,445,8,439,5,460,8,439,8,466,8,466,8,439,12,433,8,466,12,433,14,471,14,471,12,433,18,427,14,471,18,427,21,473,21,473,18,427,25,422,21,473,25,422,30,474,54,29,44,18,170,0,170,0,44,18,28,13,170,0,28,13,4,10,21,275,27,276,115,322,115,322,27,276,32,276,115,322,32,276,37,276,37,276,46,274,115,322,115,322,46,274,52,270,115,322,52,270,56,262,54,29,170,0,58,46,58,46,170,0,132,19,58,46,132,19,59,73,59,73,132,19,123,30,59,73,123,30,59,232,59,249,59,232,115,322,59,249,115,322,56,262,14,274,21,275,115,322,14,274,115,322,7,284,14,274,7,284,7,273,118,73,118,320,115,322,118,73,115,322,59,232,118,73,59,232,119,47,147,13,132,19,170,0,147,13,170,0,170,10,170,0,4,10,4,0,59,232,123,30,119,47,166,474,170,423,175,473,175,473,170,423,178,428,175,473,178,428,182,471,182,471,178,428,184,434,182,471,184,434,187,466,187,466,184,434,188,440,187,466,188,440,190,460,190,460,188,440,191,446,190,460,191,446,191,452,170,423,166,474,161,474,170,423,161,474,155,472,170,423,155,472,150,469,170,423,150,469,144,465,170,423,144,465,137,459,170,423,137,459,63,355,61,29,51,18,177,0,177,0,51,18,35,13,177,0,35,13,11,10,28,275,34,276,122,322,122,322,34,276,39,276,122,322,39,276,44,276,44,276,53,274,122,322,122,322,53,274,59,270,122,322,59,270,63,262,61,
-29,177,0,65,46,65,46,177,0,139,19,65,46,139,19,66,73,66,73,139,19,130,30,66,73,130,30,66,232,66,249,66,232,122,322,66,249,122,322,63,262,21,274,28,275,122,322,21,274,122,322,14,284,21,274,14,284,14,273,125,73,125,320,122,322,125,73,122,322,66,232,125,73,66,232,126,47,154,13,139,19,177,0,154,13,177,0,177,10,177,0,11,10,11,0,66,232,130,30,126,47,63,355,137,459,34,355,-11,355,12,355,75,472,75,472,12,355,97,427,75,472,97,427,118,472,118,472,97,427,182,355,118,472,182,355,205,355,38,29,29,18,154,0,154,0,29,18,13,13,154,0,13,13,-11,10,5,275,11,276,98,322,98,322,11,276,16,276,98,322,16,276,20,276,20,276,29,274,98,322,98,322,29,274,36,270,98,322,36,270,40,262,44,232,44,73,107,30,44,232,107,30,103,47,44,232,103,47,102,73,44,232,102,73,98,322,44,232,98,322,43,249,-1,274,5,275,98,322,-1,274,98,322,-8,284,-1,274,-8,284,-8,273,102,73,102,320,98,322,154,0,154,10,131,13,154,0,131,13,116,19,154,0,116,19,43,46,154,0,43,46,38,29,44,73,43,46,116,19,44,73,116,19,107,30,154,0,-11,10,-11,0,98,322,40,262,43,249,43,29,159,0,47,46,47,46,159,0,121,19,47,46,121,19,48,73,48,73,121,19,112,30,48,73,112,30,48,232,48,232,112,30,108,47,48,232,108,47,107,73,104,322,-3,284,3,274,104,322,3,274,10,275,104,322,10,275,16,276,104,322,16,276,21,276,104,322,21,276,25,276,104,322,25,276,34,274,104,322,34,274,41,270,104,322,41,270,45,262,104,322,45,262,48,249,104,322,48,249,48,232,104,322,48,232,107,73,104,322,107,73,107,320,132,401,134,390,134,412,134,412,134,390,138,380,134,412,138,380,139,421,139,421,138,380,146,373,139,421,146,373,146,429,146,429,146,373,155,368,146,429,155,368,156,433,156,433,155,368,166,366,156,433,166,366,166,435,166,435,166,366,177,368,166,435,177,368,177,433,177,433,177,368,187,373,177,433,187,373,187,428,187,428,187,373,195,380,187,428,195,380,195,421,195,421,195,380,200,390,195,421,200,390,200,412,200,412,200,
-390,202,401,136,13,121,19,159,0,136,13,159,0,159,10,159,0,43,29,33,18,159,0,33,18,17,13,159,0,17,13,-6,10,159,0,-6,10,-6,0,-6,401,-4,390,-4,412,-4,412,-4,390,0,380,-4,412,0,380,0,421,0,421,0,380,7,373,0,421,7,373,7,429,7,429,7,373,16,368,7,429,16,368,17,433,17,433,16,368,27,366,17,433,27,366,27,435,27,435,27,366,38,368,27,435,38,368,38,433,38,433,38,368,48,373,38,433,48,373,48,428,48,428,48,373,55,380,48,428,55,380,56,421,56,421,55,380,61,390,56,421,61,390,61,412,61,412,61,390,62,401,3,274,-3,284,-3,273,190,321,172,322,199,295,199,295,172,322,165,302,138,297,165,302,172,322,138,297,172,322,124,314,170,465,165,423,189,402,170,465,189,402,189,457,189,457,189,402,211,380,189,457,211,380,207,445,207,445,211,380,233,426,207,445,233,426,273,480,273,480,233,426,297,459,149,471,126,476,130,445,149,471,130,445,147,436,149,471,147,436,165,423,149,471,165,423,170,465,70,461,92,457,100,478,100,478,92,457,112,452,100,478,112,452,126,476,126,476,112,452,130,445,262,97,251,61,254,18,254,18,251,61,234,35,254,18,234,35,230,4,230,4,234,35,211,18,230,4,211,18,203,-3,203,-3,211,18,184,13,203,-3,184,13,172,-6,172,-6,184,13,145,25,172,-6,145,25,123,0,123,0,145,25,116,57,123,0,116,57,97,102,123,0,97,102,81,21,81,21,97,102,87,151,81,21,87,151,84,197,84,197,87,230,82,291,82,291,87,230,98,259,82,291,98,259,124,314,124,314,98,259,116,282,124,314,116,282,138,297,20,152,28,98,28,208,28,208,28,98,48,54,28,208,48,54,50,255,50,255,48,54,81,21,50,255,81,21,82,291,82,291,81,21,84,197,211,380,228,358,233,426,233,426,228,358,240,334,233,426,240,334,269,389,269,389,240,334,250,309,269,389,250,309,257,280,165,423,80,378,103,357,165,423,103,357,189,402,257,280,262,195,269,389,269,389,262,195,266,141,275,37,266,141,262,97,326,251,315,301,316,111,326,251,316,111,323,139,326,251,323,139,328,169,326,251,328,169,330,199,275,37,293,61,296,347,296,347,293,61,305,
-84,296,347,305,84,315,301,315,301,305,84,316,111,269,389,266,141,275,37,269,389,275,37,296,347,262,195,257,280,248,240,248,240,257,280,238,297,248,240,238,297,227,273,227,273,238,297,222,309,227,273,222,309,207,317,207,317,190,321,199,295,207,317,199,295,227,273,262,97,254,18,275,37,51,29,43,19,160,0,160,0,43,19,31,13,160,0,31,13,13,10,13,10,31,13,12,10,18,280,22,281,33,297,33,297,22,281,27,281,33,297,27,281,31,281,31,281,41,280,33,297,33,297,41,280,52,303,33,297,11,291,14,280,33,297,14,280,18,280,41,280,48,275,52,303,52,303,48,275,53,267,52,303,53,267,70,309,70,309,53,267,56,254,70,309,56,254,56,236,116,36,56,236,56,66,116,36,56,66,120,26,120,26,56,66,129,18,113,320,107,322,113,266,113,266,107,322,115,51,113,266,115,51,115,244,113,266,115,244,135,287,135,287,115,244,132,260,135,287,132,260,147,271,89,384,95,393,97,431,97,431,95,393,102,399,97,431,102,399,115,440,115,440,102,399,111,403,115,440,111,403,120,405,120,405,125,404,134,443,134,443,125,404,130,403,134,443,130,403,136,402,84,373,89,384,97,431,84,373,97,431,83,417,84,373,83,417,72,397,84,373,72,397,64,373,134,443,136,402,144,442,144,442,136,402,142,399,144,442,142,399,148,397,148,397,165,389,153,441,153,441,165,389,163,439,134,443,115,440,120,405,153,441,144,442,148,397,163,439,165,389,173,435,173,435,165,389,180,382,173,435,180,382,184,430,184,430,180,382,192,377,184,430,192,377,200,422,200,422,192,377,202,374,200,422,202,374,208,418,208,418,202,374,211,373,208,418,211,373,216,415,216,415,211,373,221,373,216,415,221,373,223,413,223,413,221,373,242,375,223,413,242,375,231,412,231,412,242,375,237,412,231,412,237,412,238,412,246,413,238,412,242,375,246,413,242,375,259,383,135,287,147,271,155,303,155,303,147,271,161,279,155,303,161,279,175,314,175,314,161,279,174,282,175,314,174,282,187,284,187,284,205,281,195,320,195,320,205,281,214,322,115,51,107,322,88,315,115,51,88,315,116,36,195,320,175,314,187,284,233,32,225,21,340,0,340,0,225,21,213,14,340,
-0,213,14,195,10,220,273,230,259,243,317,243,317,230,259,236,239,243,317,236,239,238,213,238,213,236,239,238,212,238,213,238,212,302,27,302,27,238,212,238,73,302,27,238,73,310,18,310,18,238,73,237,49,310,18,237,49,340,0,340,0,237,49,233,32,214,322,205,281,220,273,214,322,220,273,243,317,297,59,297,214,293,252,297,59,293,252,283,282,297,59,283,282,298,40,322,13,310,18,340,0,322,13,340,0,340,10,298,40,283,282,266,304,298,40,266,304,243,317,298,40,243,317,238,213,298,40,238,213,302,27,274,447,267,433,273,398,274,447,273,398,285,419,274,447,285,419,295,447,261,423,254,416,259,383,261,423,259,383,273,398,261,423,273,398,267,433,160,0,160,10,142,13,160,0,142,13,129,18,160,0,129,18,55,44,160,0,55,44,51,29,70,309,56,236,116,36,70,309,116,36,88,315,14,280,11,291,11,279,160,0,13,10,13,0,55,44,129,18,56,66,237,412,242,375,238,412,246,413,259,383,254,416,340,0,195,10,194,0,205,355,232,355,131,459,205,355,131,459,124,465,205,355,124,465,118,469,205,355,118,469,112,472,205,355,112,472,107,474,205,355,107,474,101,474,205,355,101,474,97,422,76,452,77,445,77,460,77,460,77,445,79,439,77,460,79,439,80,466,80,466,79,439,84,433,80,466,84,433,85,471,85,471,84,433,90,427,85,471,90,427,92,473,92,473,90,427,97,422,92,473,97,422,101,474,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,143,266,143,268,24,268,293,268,293,268,
-24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,25,240,474,244,423,248,473,248,473,244,423,251,428,248,473,251,428,255,471,255,471,251,428,257,434,255,471,257,434,261,466,261,466,257,434,261,440,261,466,261,440,264,460,264,460,261,440,264,446,264,460,264,446,265,452,244,423,240,474,234,474,244,423,234,474,229,472,244,423,229,472,224,469,244,423,224,469,218,465,244,423,218,465,211,459,244,423,211,459,136,355,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,143,266,143,268,24,268,293,268,293,268,24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,
-25,136,355,211,459,108,355,63,355,87,355,150,472,150,472,87,355,172,427,150,472,172,427,193,472,193,472,172,427,257,355,193,472,257,355,280,355,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,143,266,143,268,24,268,293,268,293,268,24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,25,82,384,88,393,90,431,90,431,88,393,95,399,90,431,95,399,107,440,107,440,95,399,103,403,107,440,103,403,112,405,112,405,117,404,127,443,127,443,117,404,123,403,127,443,123,403,129,402,77,373,82,384,90,431,77,373,90,431,75,417,77,373,75,417,64,397,77,373,64,397,56,373,127,443,129,402,136,442,136,442,129,402,135,399,136,442,135,399,141,397,141,397,157,389,146,441,146,441,157,389,156,439,127,443,107,440,112,405,146,441,136,442,141,397,156,439,157,389,166,435,166,435,157,389,172,382,166,435,172,382,176,430,176,430,172,382,184,377,176,430,184,377,192,422,192,422,184,377,194,374,192,422,194,374,200,418,200,418,194,374,204,373,200,418,204,373,208,415,208,415,204,373,213,373,208,
-415,213,373,216,413,216,413,213,373,235,375,216,413,235,375,223,412,223,412,235,375,230,412,238,413,230,412,235,375,238,413,235,375,252,383,266,447,260,433,266,398,266,447,266,398,277,419,266,447,277,419,287,447,253,423,246,416,252,383,253,423,252,383,266,398,253,423,266,398,260,433,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,143,266,143,268,24,268,293,268,293,268,24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,25,238,413,252,383,246,416,67,401,69,390,69,412,69,412,69,390,74,380,69,412,74,380,74,421,74,421,74,380,81,373,74,421,81,373,81,429,81,429,81,373,90,368,81,429,90,368,91,433,91,433,90,368,101,366,91,433,101,366,102,435,102,435,101,366,112,368,102,435,112,368,112,433,112,433,112,368,122,373,112,433,122,373,122,428,122,428,122,373,130,380,122,428,130,380,130,421,130,421,130,380,135,390,130,421,135,390,135,412,135,412,135,390,137,401,89,128,82,24,96,98,96,98,82,24,123,1,96,98,123,1,107,72,107,72,123,1,120,48,130,35,120,
-48,123,1,130,35,123,1,172,-6,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,206,401,208,390,208,412,208,412,208,390,213,380,208,412,213,380,213,421,213,421,213,380,220,373,213,421,220,373,220,429,220,429,220,373,229,368,220,429,229,368,230,433,230,433,229,368,240,366,230,433,240,366,241,435,241,435,240,366,251,368,241,435,251,368,251,433,251,433,251,368,261,373,251,433,261,373,261,428,261,428,261,373,269,380,261,428,269,380,269,421,269,421,269,380,274,390,269,421,274,390,274,412,274,412,274,390,276,401,262,98,252,62,268,24,268,24,252,62,235,35,268,24,235,35,224,1,224,1,235,35,212,18,224,1,212,18,184,13,184,13,169,14,172,-6,172,-6,169,14,155,18,172,-6,155,18,142,25,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,321,216,300,260,301,60,321,216,301,60,322,107,321,216,322,107,329,162,262,98,268,24,266,143,266,143,268,24,268,293,268,293,268,24,301,60,268,293,301,60,300,260,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,184,13,172,-6,224,1,82,24,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,82,24,84,191,82,293,82,24,82,293,49,59,49,59,82,293,49,259,49,59,49,259,28,105,28,105,49,259,28,214,28,105,28,214,20,159,85,159,82,24,89,128,227,315,182,301,196,296,130,35,172,-6,142,25,159,322,161,309,161,334,161,334,161,309,166,299,161,334,166,299,166,345,166,345,166,299,174,291,166,345,174,291,175,353,175,353,174,291,185,285,175,353,185,285,186,359,186,359,185,285,198,284,186,359,198,284,198,361,198,361,198,284,210,286,198,361,210,286,210,359,210,359,210,286,221,291,210,359,221,291,221,353,221,353,221,291,229,299,221,353,229,299,229,344,229,344,229,299,235,309,229,344,235,309,235,333,235,333,235,309,237,321,21,200,21,154,373,154,21,200,373,154,373,200,159,31,161,19,161,44,161,44,161,19,166,
-9,161,44,166,9,166,54,166,54,166,9,174,0,166,54,174,0,175,63,175,63,174,0,185,-4,175,63,185,-4,186,68,186,68,185,-4,198,-6,186,68,198,-6,198,70,198,70,198,-6,210,-4,198,70,210,-4,210,68,210,68,210,-4,221,0,210,68,221,0,221,62,221,62,221,0,229,8,221,62,229,8,229,54,229,54,229,8,235,19,229,54,235,19,235,43,235,43,235,19,237,30,88,20,88,20,63,-77,88,20,63,-77,108,8,88,20,108,8,88,139,88,20,88,139,85,165,88,20,85,165,84,194,88,20,84,194,81,292,88,20,81,292,74,31,81,292,49,257,49,59,81,292,49,59,56,50,81,292,56,50,64,41,81,292,64,41,74,31,49,257,28,212,28,104,49,257,28,104,35,87,49,257,35,87,42,70,49,257,42,70,49,59,28,212,20,159,21,140,28,212,21,140,24,122,28,212,24,122,28,104,174,322,166,302,178,301,174,322,178,301,188,321,188,321,178,301,189,299,188,321,189,299,200,320,200,320,189,299,200,294,200,320,200,294,212,318,212,318,200,294,211,287,212,318,211,287,222,277,262,97,252,61,266,25,266,25,252,61,235,35,266,25,235,35,223,1,223,1,235,35,212,18,223,1,212,18,183,13,183,13,169,14,173,-6,173,-6,169,14,159,-6,157,17,146,23,146,-4,157,17,146,-4,159,-6,157,17,159,-6,169,14,122,2,134,-1,125,42,125,42,134,-1,136,31,136,31,134,-1,146,-4,136,31,146,-4,146,23,225,314,222,277,238,256,225,314,238,256,239,309,239,309,238,256,249,234,239,309,249,234,260,298,260,298,249,234,257,212,260,298,257,212,262,191,279,386,239,309,260,298,279,386,260,298,306,386,222,277,111,64,125,42,222,277,125,42,238,256,111,64,101,88,108,8,111,64,108,8,122,2,111,64,122,2,125,42,93,113,88,139,108,8,93,113,108,8,101,88,321,109,329,164,326,197,321,109,326,197,318,227,321,109,318,227,305,254,321,109,305,254,300,62,262,97,266,25,266,142,266,142,266,25,285,277,285,277,266,25,300,62,285,277,300,62,305,254,260,298,262,191,285,277,285,277,262,191,265,167,285,277,265,167,266,142,183,13,173,-6,223,1,98,260,115,283,124,314,124,314,115,283,138,297,124,
-314,138,297,174,322,174,322,138,297,166,302,84,194,87,230,81,292,81,292,87,230,98,260,81,292,98,260,124,314,63,-77,88,20,37,-77,212,318,222,277,225,314,209,355,238,355,136,459,209,355,136,459,129,465,209,355,129,465,123,469,209,355,123,469,118,472,209,355,118,472,112,474,209,355,112,474,105,474,209,355,105,474,102,422,80,452,81,445,82,460,82,460,81,445,84,439,82,460,84,439,85,466,85,466,84,439,88,433,85,466,88,433,90,471,90,471,88,433,94,427,90,471,94,427,97,473,97,473,94,427,102,422,97,473,102,422,105,474,109,315,6,315,24,303,109,315,24,303,36,298,109,315,36,298,44,289,109,315,44,289,49,276,109,315,49,276,50,259,109,315,50,259,54,53,109,315,54,53,64,28,109,315,64,28,82,9,109,315,82,9,106,-2,109,315,106,-2,109,89,230,74,227,67,235,53,235,53,227,67,223,61,235,53,223,61,217,55,217,55,206,47,214,29,214,29,206,47,194,41,214,29,194,41,193,12,193,12,194,41,182,37,193,12,182,37,172,1,172,1,182,37,170,34,172,1,170,34,158,34,158,34,142,36,152,-4,152,-4,142,36,135,-6,135,-6,142,36,129,44,135,-6,129,44,118,56,135,-6,118,56,111,71,135,-6,111,71,106,-2,109,89,106,-2,111,71,158,34,152,-4,172,1,233,258,235,53,292,315,292,315,235,53,237,53,292,315,237,53,240,-5,240,-5,237,53,237,-3,235,53,233,258,233,96,235,53,233,96,232,83,235,53,232,83,230,74,217,55,214,29,235,53,315,36,304,40,316,20,316,20,304,40,297,47,316,20,297,47,297,14,297,14,297,47,293,59,297,14,293,59,279,8,279,8,293,59,292,75,279,8,292,75,292,315,292,315,240,-5,260,2,292,315,260,2,279,8,292,315,181,315,203,301,292,315,203,301,218,296,292,315,218,296,227,289,292,315,227,289,232,276,292,315,232,276,233,258,332,35,315,36,316,20,332,35,316,20,336,25,332,35,336,25,336,35,54,53,50,259,50,83,203,301,181,315,181,303,24,303,6,315,6,305,292,315,181,315,203,301,292,315,203,301,218,296,292,315,218,296,227,289,292,315,227,289,232,276,292,315,232,276,233,258,292,315,233,258,235,53,292,315,235,
-53,237,53,292,315,237,53,240,-5,292,315,240,-5,260,2,292,315,260,2,279,8,292,315,279,8,292,75,233,258,233,96,235,53,332,35,315,36,316,20,332,35,316,20,336,25,332,35,336,25,336,35,292,75,279,8,293,59,293,59,279,8,297,14,293,59,297,14,297,47,297,47,297,14,316,20,297,47,316,20,304,40,304,40,316,20,315,36,241,474,245,423,250,473,250,473,245,423,253,428,250,473,253,428,257,471,257,471,253,428,259,434,257,471,259,434,262,466,262,466,259,434,263,440,262,466,263,440,265,460,265,460,263,440,265,446,265,460,265,446,266,452,245,423,241,474,236,474,245,423,236,474,230,472,245,423,230,472,225,469,245,423,225,469,219,465,245,423,219,465,212,459,245,423,212,459,138,355,109,315,6,315,24,303,109,315,24,303,36,298,109,315,36,298,44,289,109,315,44,289,49,276,109,315,49,276,50,259,109,315,50,259,54,53,109,315,54,53,64,28,109,315,64,28,82,9,109,315,82,9,106,-2,109,315,106,-2,109,89,230,74,227,67,235,53,235,53,227,67,223,61,235,53,223,61,217,55,217,55,206,47,214,29,214,29,206,47,194,41,214,29,194,41,193,12,193,12,194,41,182,37,193,12,182,37,172,1,172,1,182,37,170,34,172,1,170,34,158,34,158,34,142,36,152,-4,152,-4,142,36,135,-6,135,-6,142,36,129,44,135,-6,129,44,118,56,135,-6,118,56,111,71,135,-6,111,71,106,-2,109,89,106,-2,111,71,158,34,152,-4,172,1,232,83,230,74,235,53,232,83,235,53,233,96,217,55,214,29,235,53,54,53,50,259,50,83,240,-5,237,53,237,-3,24,303,6,315,6,305,138,355,212,459,109,355,203,301,181,315,181,303,292,315,181,315,203,301,292,315,203,301,218,296,292,315,218,296,227,289,292,315,227,289,232,276,292,315,232,276,233,258,292,315,233,258,235,53,292,315,235,53,237,53,292,315,237,53,240,-5,292,315,240,-5,260,2,292,315,260,2,279,8,292,315,279,8,292,75,233,258,233,96,235,53,332,35,315,36,316,20,332,35,316,20,336,25,332,35,336,25,336,35,292,75,279,8,293,59,293,59,279,8,297,14,293,59,297,14,297,47,297,47,297,14,316,20,297,47,316,20,304,
-40,304,40,316,20,315,36,63,355,87,355,150,472,150,472,87,355,172,427,150,472,172,427,193,472,193,472,172,427,257,355,193,472,257,355,280,355,109,315,6,315,24,303,109,315,24,303,36,298,109,315,36,298,44,289,109,315,44,289,49,276,109,315,49,276,50,259,109,315,50,259,54,53,109,315,54,53,64,28,109,315,64,28,82,9,109,315,82,9,106,-2,109,315,106,-2,109,89,230,74,227,67,235,53,235,53,227,67,223,61,235,53,223,61,217,55,217,55,206,47,214,29,214,29,206,47,194,41,214,29,194,41,193,12,193,12,194,41,182,37,193,12,182,37,172,1,172,1,182,37,170,34,172,1,170,34,158,34,158,34,142,36,152,-4,152,-4,142,36,135,-6,135,-6,142,36,129,44,135,-6,129,44,118,56,135,-6,118,56,111,71,135,-6,111,71,106,-2,109,89,106,-2,111,71,158,34,152,-4,172,1,232,83,230,74,235,53,232,83,235,53,233,96,217,55,214,29,235,53,54,53,50,259,50,83,240,-5,237,53,237,-3,24,303,6,315,6,305,203,301,181,315,181,303,292,315,181,315,203,301,292,315,203,301,218,296,292,315,218,296,227,289,292,315,227,289,232,276,292,315,232,276,233,258,292,315,233,258,235,53,292,315,235,53,237,53,292,315,237,53,240,-5,292,315,240,-5,260,2,292,315,260,2,279,8,292,315,279,8,292,75,233,258,233,96,235,53,332,35,315,36,316,20,332,35,316,20,336,25,332,35,336,25,336,35,292,75,279,8,293,59,293,59,279,8,297,14,293,59,297,14,297,47,297,47,297,14,316,20,297,47,316,20,304,40,304,40,316,20,315,36,205,401,207,390,207,412,207,412,207,390,212,380,207,412,212,380,212,421,212,421,212,380,219,373,212,421,219,373,220,429,220,429,219,373,228,368,220,429,228,368,229,433,229,433,228,368,239,366,229,433,239,366,240,435,240,435,239,366,251,368,240,435,251,368,251,433,251,433,251,368,260,373,251,433,260,373,261,428,261,428,260,373,268,380,261,428,268,380,268,421,268,421,268,380,273,390,268,421,273,390,273,412,273,412,273,390,275,401,66,401,68,390,68,412,68,412,68,390,73,380,68,412,73,380,73,421,73,421,73,380,80,373,73,421,80,373,81,429,81,
-429,80,373,89,368,81,429,89,368,90,433,90,433,89,368,100,366,90,433,100,366,101,435,101,435,100,366,111,368,101,435,111,368,112,433,112,433,111,368,121,373,112,433,121,373,121,428,121,428,121,373,129,380,121,428,129,380,129,421,129,421,129,380,134,390,129,421,134,390,134,412,134,412,134,390,136,401,109,315,6,315,24,303,109,315,24,303,36,298,109,315,36,298,44,289,109,315,44,289,49,276,109,315,49,276,50,259,109,315,50,259,54,53,109,315,54,53,64,28,109,315,64,28,82,9,109,315,82,9,106,-2,109,315,106,-2,109,89,230,74,227,67,235,53,235,53,227,67,223,61,235,53,223,61,217,55,217,55,206,47,214,29,214,29,206,47,194,41,214,29,194,41,193,12,193,12,194,41,182,37,193,12,182,37,172,1,172,1,182,37,170,34,172,1,170,34,158,34,158,34,142,36,152,-4,152,-4,142,36,135,-6,135,-6,142,36,129,44,135,-6,129,44,118,56,135,-6,118,56,111,71,135,-6,111,71,106,-2,109,89,106,-2,111,71,158,34,152,-4,172,1,232,83,230,74,235,53,232,83,235,53,233,96,217,55,214,29,235,53,54,53,50,259,50,83,240,-5,237,53,237,-3,24,303,6,315,6,305,203,301,181,315,181,303,232,474,236,423,241,473,241,473,236,423,244,428,241,473,244,428,248,471,248,471,244,428,249,434,248,471,249,434,253,466,253,466,249,434,254,440,253,466,254,440,256,460,256,460,254,440,256,446,256,460,256,446,257,452,236,423,232,474,226,474,236,423,226,474,221,472,236,423,221,472,216,469,236,423,216,469,210,465,236,423,210,465,203,459,236,423,203,459,128,355,126,-80,119,-87,126,-133,126,-133,119,-87,112,-91,126,-133,112,-91,105,-93,105,-93,103,-93,126,-133,126,-133,103,-93,100,-147,126,-80,149,-107,134,-72,134,-72,149,-107,141,-62,149,-48,141,-62,149,-107,149,-48,149,-107,171,-69,201,82,123,257,139,84,201,82,139,84,147,66,201,82,147,66,155,49,201,82,155,49,162,34,201,82,162,34,167,21,201,82,167,21,169,13,201,82,169,13,171,-69,201,82,171,-69,192,-16,201,82,192,-16,298,269,201,82,298,269,269,275,169,13,169,12,171,-69,171,-69,169,12,169,13,171,-69,169,13,167,2,139,84,123,
-257,120,263,139,84,120,263,117,269,139,84,117,269,115,275,139,84,115,275,114,281,139,84,114,281,47,280,47,280,114,281,113,286,113,286,115,293,47,280,47,280,115,293,119,297,47,280,119,297,153,315,153,315,119,297,126,301,153,315,126,301,138,303,271,283,271,281,298,269,298,269,271,281,270,278,298,269,270,278,269,275,333,315,239,315,251,304,333,315,251,304,260,302,333,315,260,302,267,299,333,315,267,299,271,294,333,315,271,294,272,288,333,315,272,288,316,298,333,315,316,298,323,303,333,315,323,303,333,305,272,288,272,287,298,269,272,288,298,269,303,282,272,288,303,282,309,292,272,288,309,292,316,298,272,286,271,283,298,269,272,286,298,269,272,287,272,286,272,287,272,288,171,-69,167,2,163,-12,171,-69,163,-12,157,-30,171,-69,157,-30,149,-48,100,-147,103,-93,100,-92,100,-147,100,-92,96,-91,100,-147,96,-91,92,-90,100,-147,92,-90,88,-88,100,-147,88,-88,80,-85,100,-147,80,-85,73,-82,100,-147,73,-82,70,-151,73,-82,66,-80,70,-151,70,-151,66,-80,58,-79,70,-151,58,-79,53,-149,53,-149,58,-79,51,-79,53,-149,51,-79,41,-80,53,-149,41,-80,40,-144,40,-144,41,-80,33,-85,40,-144,33,-85,30,-135,30,-135,33,-85,27,-92,30,-135,27,-92,23,-124,23,-124,27,-92,23,-101,23,-124,23,-101,21,-111,138,303,153,305,153,315,153,315,10,315,20,303,153,315,20,303,29,300,153,315,29,300,36,295,153,315,36,295,42,289,153,315,42,289,47,280,92,-90,87,-88,88,-88,20,303,10,315,10,305,126,-80,126,-133,149,-107,251,304,239,315,239,305,128,355,203,459,100,355,47,-121,38,-130,172,-151,172,-151,38,-130,24,-135,172,-151,24,-135,3,-138,11,436,13,436,32,455,32,455,13,436,15,437,32,455,15,437,18,437,18,437,33,436,32,455,32,455,33,436,53,461,32,455,6,448,9,436,32,455,9,436,11,436,43,432,49,424,53,461,53,461,49,424,52,413,53,461,52,413,52,398,112,-106,52,398,52,-89,112,-106,52,-89,117,-122,117,-122,52,-89,127,-131,111,266,111,475,107,478,111,266,107,478,111,-83,111,266,111,-83,111,232,111,266,111,232,129,287,329,173,324,224,322,115,322,115,324,224,309,265,322,115,309,265,301,66,301,66,309,265,285,
-296,301,66,285,296,270,27,270,27,285,296,269,149,270,27,269,149,265,106,270,27,265,106,254,69,213,275,237,259,252,315,252,315,237,259,255,233,252,315,255,233,285,296,285,296,255,233,265,196,285,296,265,196,269,149,189,320,183,280,213,275,189,320,213,275,212,322,212,322,213,275,252,315,152,-2,166,-5,163,19,163,19,166,-5,184,16,213,22,184,16,229,2,213,22,229,2,237,40,237,40,229,2,270,27,237,40,270,27,254,69,184,16,166,-5,182,-6,184,16,182,-6,229,2,172,-151,172,-138,145,-136,172,-151,145,-136,127,-131,172,-151,127,-131,51,-107,172,-151,51,-107,47,-121,115,50,111,63,125,11,125,11,111,63,111,23,112,-106,111,-83,71,466,112,-106,71,466,53,461,88,472,71,466,111,-83,88,472,111,-83,107,478,116,245,128,258,129,287,129,287,128,258,145,269,129,287,145,269,148,303,148,303,145,269,164,277,148,303,164,277,168,314,168,314,164,277,183,280,168,314,183,280,189,320,115,50,125,11,127,37,127,37,125,11,139,3,127,37,139,3,144,26,144,26,139,3,152,-2,144,26,152,-2,163,19,129,287,111,232,116,245,9,436,6,448,6,435,172,-151,3,-138,3,-151,51,-107,127,-131,52,-89,52,398,112,-106,53,461,53,461,33,436,43,432,208,401,210,390,210,412,210,412,210,390,214,380,210,412,214,380,215,421,215,421,214,380,221,373,215,421,221,373,222,429,222,429,221,373,231,368,222,429,231,368,231,433,231,433,231,368,241,366,231,433,241,366,242,435,242,435,241,366,253,368,242,435,253,368,253,433,253,433,253,368,262,373,253,433,262,373,263,428,263,428,262,373,270,380,263,428,270,380,270,421,270,421,270,380,275,390,270,421,275,390,275,412,275,412,275,390,277,401,69,401,70,390,71,412,71,412,70,390,75,380,71,412,75,380,75,421,75,421,75,380,82,373,75,421,82,373,83,429,83,429,82,373,92,368,83,429,92,368,92,433,92,433,92,368,102,366,92,433,102,366,103,435,103,435,102,366,114,368,103,435,114,368,114,433,114,433,114,368,123,373,114,433,123,373,124,428,124,428,123,373,131,380,124,428,131,380,131,421,131,421,131,380,136,390,131,421,136,390,136,412,136,412,136,390,138,401,126,-80,119,-87,126,-133,126,
--133,119,-87,112,-91,126,-133,112,-91,105,-93,105,-93,103,-93,126,-133,126,-133,103,-93,100,-147,126,-80,149,-107,134,-72,134,-72,149,-107,141,-62,149,-48,141,-62,149,-107,149,-48,149,-107,171,-69,201,82,123,257,139,84,201,82,139,84,147,66,201,82,147,66,155,49,201,82,155,49,162,34,201,82,162,34,167,21,201,82,167,21,169,13,201,82,169,13,171,-69,201,82,171,-69,192,-16,201,82,192,-16,298,269,201,82,298,269,269,275,169,13,169,12,171,-69,171,-69,169,12,169,13,171,-69,169,13,167,2,139,84,123,257,120,263,139,84,120,263,117,269,139,84,117,269,115,275,139,84,115,275,114,281,139,84,114,281,47,280,47,280,114,281,113,286,113,286,115,293,47,280,47,280,115,293,119,297,47,280,119,297,153,315,153,315,119,297,126,301,153,315,126,301,138,303,271,283,271,281,298,269,298,269,271,281,270,278,298,269,270,278,269,275,333,315,239,315,251,304,333,315,251,304,260,302,333,315,260,302,267,299,333,315,267,299,271,294,333,315,271,294,272,288,333,315,272,288,316,298,333,315,316,298,323,303,333,315,323,303,333,305,272,288,272,287,298,269,272,288,298,269,303,282,272,288,303,282,309,292,272,288,309,292,316,298,272,286,271,283,298,269,272,286,298,269,272,287,272,286,272,287,272,288,171,-69,167,2,163,-12,171,-69,163,-12,157,-30,171,-69,157,-30,149,-48,100,-147,103,-93,100,-92,100,-147,100,-92,96,-91,100,-147,96,-91,92,-90,100,-147,92,-90,88,-88,100,-147,88,-88,80,-85,100,-147,80,-85,73,-82,100,-147,73,-82,70,-151,73,-82,66,-80,70,-151,70,-151,66,-80,58,-79,70,-151,58,-79,53,-149,53,-149,58,-79,51,-79,53,-149,51,-79,41,-80,53,-149,41,-80,40,-144,40,-144,41,-80,33,-85,40,-144,33,-85,30,-135,30,-135,33,-85,27,-92,30,-135,27,-92,23,-124,23,-124,27,-92,23,-101,23,-124,23,-101,21,-111,138,303,153,305,153,315,153,315,10,315,20,303,153,315,20,303,29,300,153,315,29,300,36,295,153,315,36,295,42,289,153,315,42,289,47,280,92,-90,87,-88,88,-88,20,303,10,315,10,305,126,-80,126,-133,149,-107,251,304,239,315,239,305,205,355,233,355,131,459,205,355,131,459,125,465,205,355,125,465,119,469,205,355,119,
-469,113,472,205,355,113,472,107,474,205,355,107,474,102,474,205,355,102,474,98,422,77,452,77,445,78,460,78,460,77,445,80,439,78,460,80,439,81,466,81,466,80,439,84,433,81,466,84,433,86,471,86,471,84,433,90,427,86,471,90,427,93,473,93,473,90,427,98,422,93,473,98,422,102,474,208,474,212,422,216,473,216,473,212,422,219,427,216,473,219,427,223,471,223,471,219,427,225,433,223,471,225,433,229,466,229,466,225,433,229,439,229,466,229,439,232,460,232,460,229,439,232,446,232,460,232,446,233,452,212,422,208,474,202,474,212,422,202,474,196,472,212,422,196,472,191,469,212,422,191,469,185,465,212,422,185,465,178,459,212,422,178,459,105,355,178,459,77,355,105,355,66,355,90,355,152,472,152,472,90,355,174,427,152,472,174,427,196,472,196,472,174,427,259,355,196,472,259,355,284,355,85,384,91,393,93,431,93,431,91,393,98,399,93,431,98,399,111,440,111,440,98,399,106,403,111,440,106,403,116,405,116,405,123,404,130,443,130,443,123,404,129,403,130,443,129,403,137,400,80,373,85,384,93,431,80,373,93,431,79,417,80,373,79,417,68,397,80,373,68,397,59,373,217,373,238,375,225,411,225,411,238,375,233,411,242,412,233,411,238,375,242,412,238,375,255,383,270,447,263,433,269,398,270,447,269,398,281,419,270,447,281,419,291,447,257,423,250,416,255,383,257,423,255,383,269,398,257,423,269,398,263,433,159,439,160,389,169,435,169,435,160,389,175,382,169,435,175,382,179,430,179,430,175,382,188,377,179,430,188,377,195,422,195,422,188,377,198,374,195,422,198,374,207,417,207,417,198,374,207,373,207,417,207,373,217,413,217,413,207,373,217,373,217,413,217,373,225,411,130,443,137,400,140,442,140,442,137,400,147,395,140,442,147,395,149,441,149,441,147,395,160,389,149,441,160,389,159,439,130,443,111,440,116,405,242,412,255,383,250,416,284,383,284,420,66,420,284,383,66,420,66,383,350,539,350,574,0,574,350,539,0,574,0,539,149,400,130,408,137,360,137,360,130,408,114,422,137,360,114,422,109,374,109,374,114,422,103,441,109,374,103,441,95,465,239,439,226,419,230,372,230,372,226,419,212,406,230,372,212,406,204,
-359,204,359,212,406,194,399,204,359,194,399,173,397,173,397,149,400,172,355,172,355,149,400,137,360,95,465,75,465,79,427,95,465,79,427,90,397,95,465,90,397,109,374,252,465,239,439,250,394,252,465,250,394,264,425,252,465,264,425,272,465,173,397,172,355,204,359,239,439,230,372,250,394,174,366,185,368,186,433,186,433,185,368,195,373,186,433,195,373,196,429,196,429,195,373,202,380,196,429,202,380,203,421,203,421,202,380,208,389,203,421,208,389,208,412,208,412,208,389,209,401,141,412,142,390,146,421,146,421,142,390,147,380,146,421,147,380,153,428,153,428,147,380,154,373,153,428,154,373,163,433,163,433,154,373,163,368,163,433,163,368,174,435,174,435,163,368,174,366,174,435,174,366,186,433,142,390,141,412,140,401,105,435,105,366,116,433,116,433,105,366,116,368,116,433,116,368,125,428,125,428,116,368,126,373,125,428,126,373,133,421,133,421,126,373,133,380,133,421,133,380,138,412,138,412,133,380,138,390,138,412,138,390,140,401,70,401,72,390,72,412,72,412,72,390,77,380,72,412,77,380,77,421,77,421,77,380,84,373,77,421,84,373,84,429,84,429,84,373,94,368,84,429,94,368,94,433,94,433,94,368,105,366,94,433,105,366,105,435,210,401,212,390,212,412,212,412,212,390,217,380,212,412,217,380,217,421,217,421,217,380,224,373,217,421,224,373,224,429,224,429,224,373,233,368,224,429,233,368,234,433,234,433,233,368,244,366,234,433,244,366,245,435,245,435,244,366,255,368,245,435,255,368,255,433,255,433,255,368,265,373,255,433,265,373,265,428,265,428,265,373,273,380,265,428,273,380,273,421,273,421,273,380,278,390,273,421,278,390,278,412,278,412,278,390,280,401,184,509,180,526,171,525,184,509,171,525,170,505,184,509,211,522,180,526,170,505,171,525,163,494,163,494,171,525,162,524,163,494,162,524,158,481,158,481,162,524,153,521,158,481,153,521,152,469,152,469,153,521,145,518,152,469,145,518,141,465,141,465,145,518,138,513,141,465,138,513,134,466,134,466,138,513,132,508,134,466,132,508,129,469,129,469,132,508,127,502,129,469,127,502,125,473,125,473,127,502,124,496,125,473,124,496,122,478,122,478,124,496,122,490,122,
-478,122,490,121,484,253,450,251,472,249,424,249,424,251,472,244,493,249,424,244,493,239,401,239,401,244,493,231,510,239,401,231,510,224,384,224,384,231,510,215,455,214,471,215,455,231,510,214,471,231,510,211,522,214,471,211,522,210,486,211,522,184,509,195,506,211,522,195,506,204,498,211,522,204,498,210,486,212,440,205,426,205,373,212,440,205,373,224,384,212,440,224,384,215,455,177,345,178,369,179,409,179,409,178,369,184,369,179,409,184,369,194,416,194,416,184,369,205,373,194,416,205,373,205,426,177,345,179,409,162,407,177,345,162,407,153,407,177,345,153,407,153,345,219,413,212,401,216,372,216,372,212,401,202,391,216,372,202,391,197,362,197,362,202,391,189,384,197,362,189,384,174,359,174,359,189,384,174,382,177,498,174,474,189,472,177,498,189,472,198,494,198,494,189,472,202,465,198,494,202,465,217,484,217,484,202,465,212,455,217,484,212,455,219,443,245,427,242,449,242,405,242,405,242,449,232,469,242,405,232,469,232,387,232,387,232,469,221,428,219,443,221,428,232,469,219,443,232,469,217,484,219,413,216,372,232,387,219,413,232,387,221,428,139,455,148,465,154,494,154,494,148,465,161,472,154,494,161,472,177,498,177,498,161,472,174,474,135,484,119,469,130,428,135,484,130,428,132,443,135,484,132,443,139,455,135,484,139,455,154,494,138,401,132,413,133,372,133,372,132,413,130,428,160,384,148,391,152,362,160,384,152,362,174,359,160,384,174,359,174,382,138,401,133,372,152,362,138,401,152,362,148,391,105,428,109,406,109,450,109,450,109,406,119,387,109,450,119,387,119,469,119,469,119,387,133,372,119,469,133,372,130,428,297,474,300,422,305,473,305,473,300,422,308,428,305,473,308,428,311,471,311,471,308,428,313,433,311,471,313,433,316,467,316,467,313,433,317,440,316,467,317,440,319,461,319,461,317,440,320,446,319,461,320,446,320,454,300,422,297,474,291,474,300,422,291,474,286,473,300,422,286,473,281,470,300,422,281,470,274,466,300,422,274,466,266,459,300,422,266,459,192,355,188,474,191,422,195,473,195,473,191,422,199,428,195,473,199,428,202,471,202,471,199,428,205,433,202,471,205,433,207,467,207,467,205,433,209,440,207,467,209,
-440,211,461,211,461,209,440,211,446,211,461,211,446,212,454,191,422,188,474,182,474,191,422,182,474,177,473,191,422,177,473,172,470,191,422,172,470,165,466,191,422,165,466,158,459,191,422,158,459,84,355,84,355,158,459,55,355,192,355,266,459,165,355,284,472,259,472,198,355,198,355,259,472,175,400,198,355,175,400,152,355,152,355,175,400,91,472,152,355,91,472,66,472,199,350,199,490,161,490,199,350,161,490,161,350,205,490,205,350,243,350,205,490,243,350,243,490,108,490,108,350,145,350,108,490,145,350,145,490,293,355,320,355,219,459,293,355,219,459,211,466,293,355,211,466,205,470,293,355,205,470,199,473,293,355,199,473,194,474,293,355,194,474,188,474,293,355,188,474,185,422,165,454,166,446,166,461,166,461,166,446,168,440,166,461,168,440,169,467,169,467,168,440,172,433,169,467,172,433,174,471,174,471,172,433,177,428,174,471,177,428,180,473,180,473,177,428,185,422,180,473,185,422,188,474,184,355,212,355,109,459,184,355,109,459,102,466,184,355,102,466,95,470,184,355,95,470,90,473,184,355,90,473,84,474,184,355,84,474,79,474,184,355,79,474,76,422,55,454,56,446,57,461,57,461,56,446,58,440,57,461,58,440,60,467,60,467,58,440,62,433,60,467,62,433,65,471,65,471,62,433,68,428,65,471,68,428,71,473,71,473,68,428,76,422,71,473,76,422,79,474,174,468,185,470,186,535,186,535,185,470,195,474,186,535,195,474,196,530,196,530,195,474,202,481,196,530,202,481,203,523,203,523,202,481,208,490,203,523,208,490,208,513,208,513,208,490,209,502,141,513,142,491,146,522,146,522,142,491,147,482,146,522,147,482,153,530,153,530,147,482,154,474,153,530,154,474,163,535,163,535,154,474,163,470,163,535,163,470,174,537,174,537,163,470,174,468,174,537,174,468,186,535,149,400,130,408,137,360,137,360,130,408,114,422,137,360,114,422,109,374,109,374,114,422,103,441,109,374,103,441,95,465,239,439,226,419,230,372,230,372,226,419,212,406,230,372,212,406,204,359,204,359,212,406,194,399,204,359,194,399,173,397,173,397,149,400,172,355,172,355,149,400,137,360,95,465,75,465,79,427,95,465,79,427,90,397,95,465,90,397,109,
-374,252,465,239,439,250,394,252,465,250,394,264,425,252,465,264,425,272,465,173,397,172,355,204,359,239,439,230,372,250,394,142,491,141,513,140,502,226,400,230,447,212,413,212,413,230,447,204,461,212,413,204,461,194,420,194,420,204,461,173,423,149,420,173,423,172,465,149,420,172,465,137,460,95,355,103,379,109,446,109,446,103,379,114,398,109,446,114,398,137,460,137,460,114,398,130,412,137,460,130,412,149,420,95,355,109,446,90,423,95,355,90,423,79,392,95,355,79,392,75,355,272,355,264,395,252,355,252,355,264,395,250,426,252,355,250,426,239,381,239,381,250,426,230,447,239,381,230,447,226,400,204,461,172,465,173,423,169,497,148,474,155,444,155,444,148,474,154,434,156,358,154,434,148,474,156,358,148,474,142,370,142,370,148,474,133,448,142,370,133,448,131,389,131,389,133,448,127,419,189,513,169,497,171,473,189,513,171,473,188,490,189,513,188,490,212,508,189,513,212,508,205,522,169,497,155,444,161,458,169,497,161,458,171,473,172,426,169,425,171,353,171,353,169,425,167,425,171,353,167,425,164,424,164,424,161,425,171,353,171,353,161,425,158,426,171,353,158,426,156,358,156,358,158,426,156,428,156,358,156,428,154,431,180,427,184,352,192,426,192,426,184,352,194,353,192,426,194,353,204,423,204,423,194,353,205,357,204,423,205,357,214,417,214,417,205,357,215,365,214,417,215,365,221,407,221,407,215,365,222,376,221,407,222,376,224,392,184,352,180,427,176,427,184,352,176,427,172,426,184,352,172,426,171,353,154,434,156,358,154,431,175,446,178,447,179,520,179,520,178,447,182,448,179,520,182,448,194,515,194,515,182,448,184,448,194,515,184,448,187,448,187,448,190,448,194,515,194,515,190,448,193,447,194,515,193,447,195,445,224,455,220,484,218,425,218,425,220,484,209,503,218,425,209,503,203,399,203,399,209,503,197,439,203,399,197,439,195,429,203,399,195,429,190,416,194,515,195,445,209,503,209,503,195,445,196,442,209,503,196,442,197,439,175,446,179,520,170,446,170,446,179,520,167,522,170,446,167,522,159,447,159,447,167,522,156,520,159,447,156,520,147,450,147,450,156,520,145,516,147,450,145,516,137,457,137,457,145,516,136,508,137,
-457,136,508,129,467,129,467,136,508,129,497,129,467,129,497,127,481,182,377,203,399,190,416,182,377,190,416,179,400,182,377,179,400,163,382,182,377,163,382,162,360,163,382,139,365,145,352,163,382,145,352,162,360,171,400,161,416,169,376,169,376,161,416,155,429,169,376,155,429,148,399,148,399,155,429,154,439,156,515,154,439,154,442,156,515,154,442,156,445,169,448,171,520,167,448,167,448,171,520,164,448,161,448,164,448,171,520,161,448,171,520,158,447,158,447,171,520,156,515,158,447,156,515,156,445,176,446,180,446,184,522,184,522,180,446,192,447,184,522,192,447,194,521,194,521,192,447,204,450,194,521,204,450,205,516,205,516,204,450,214,457,205,516,214,457,215,508,215,508,214,457,221,467,215,508,221,467,222,497,222,497,221,467,224,481,172,447,176,446,184,522,172,447,184,522,171,520,172,447,171,520,169,448,154,439,156,515,148,399,148,399,156,515,142,503,148,399,142,503,133,425,133,425,142,503,131,484,133,425,131,484,127,455,189,360,205,352,212,365,189,360,212,365,188,382,189,360,188,382,171,400,189,360,171,400,169,376,324,446,328,447,329,520,329,520,328,447,331,448,329,520,331,448,344,515,344,515,331,448,334,448,344,515,334,448,337,448,337,448,340,448,344,515,344,515,340,448,342,447,344,515,342,447,345,445,373,455,369,484,367,425,367,425,369,484,358,503,367,425,358,503,352,399,352,399,358,503,347,439,352,399,347,439,345,429,352,399,345,429,340,416,344,515,345,445,358,503,358,503,345,445,346,442,358,503,346,442,347,439,324,446,329,520,320,446,320,446,329,520,317,522,320,446,317,522,308,447,308,447,317,522,306,520,308,447,306,520,297,450,297,450,306,520,295,516,297,450,295,516,287,457,287,457,295,516,286,508,287,457,286,508,279,467,279,467,286,508,279,497,279,467,279,497,277,481,332,377,352,399,340,416,332,377,340,416,329,400,332,377,329,400,313,382,332,377,313,382,312,360,313,382,289,365,295,352,313,382,295,352,312,360,205,-156,233,-156,131,-52,205,-156,131,-52,125,-46,205,-156,125,-46,119,-41,205,-156,119,-41,113,-38,205,-156,113,-38,107,-36,205,-156,107,-36,102,-36,205,-156,102,-36,98,-89,77,-58,77,-65,78,-50,78,-50,77,
--65,80,-71,78,-50,80,-71,81,-44,81,-44,80,-71,84,-78,81,-44,84,-78,86,-39,86,-39,84,-78,90,-83,86,-39,90,-83,93,-37,93,-37,90,-83,98,-89,93,-37,98,-89,102,-36,208,-36,212,-89,216,-37,216,-37,212,-89,219,-83,216,-37,219,-83,223,-39,223,-39,219,-83,225,-78,223,-39,225,-78,229,-44,229,-44,225,-78,229,-71,229,-44,229,-71,232,-50,232,-50,229,-71,232,-65,232,-50,232,-65,233,-58,212,-89,208,-36,202,-36,212,-89,202,-36,196,-38,212,-89,196,-38,191,-41,212,-89,191,-41,185,-46,212,-89,185,-46,178,-52,212,-89,178,-52,105,-156,178,-52,77,-156,105,-156,189,-36,161,-36,189,-197,189,-197,161,-36,161,-103,189,-197,161,-103,161,-130,161,-130,161,-103,58,-103,161,-130,58,-103,58,-130,189,-197,161,-130,161,-197,58,-36,86,-197,86,-36,86,-103,86,-130,189,-130,86,-103,189,-130,189,-103,86,-197,58,-36,58,-197,241,476,241,372,280,372,241,476,280,372,280,515,241,476,280,515,70,515,241,476,70,515,70,476,357,259,364,267,364,317,364,317,364,267,368,275,364,317,368,275,370,306,370,306,368,275,371,284,370,306,371,284,372,293,329,266,333,246,330,267,330,267,333,246,337,332,337,332,333,246,341,249,337,332,341,249,347,330,347,330,341,249,348,252,347,330,348,252,357,325,357,325,348,252,357,259,357,325,357,259,364,317,307,311,308,291,311,319,311,319,308,291,314,282,311,319,314,282,318,326,318,326,314,282,321,276,318,326,321,276,327,330,327,330,321,276,327,271,327,330,327,271,337,332,337,332,327,271,330,267,327,264,323,261,325,244,327,264,325,244,333,246,327,264,333,246,329,266,318,259,311,257,317,242,318,259,317,242,325,244,318,259,325,244,323,261,317,242,311,257,311,241,308,291,307,311,305,303,127,-151,118,-142,131,-181,131,-181,118,-142,112,-130,131,-181,112,-130,112,-172,112,-172,112,-130,110,-117,98,-157,110,-117,112,-62,98,-157,112,-62,97,-77,152,-49,131,-52,139,-77,152,-49,139,-77,152,-75,152,-49,152,-75,173,-75,152,-49,173,-75,173,-49,131,-52,112,-62,112,-103,131,-52,112,-103,118,-92,131,-52,118,-92,127,-83,131,-52,127,-83,139,-77,112,-62,110,-117,112,-103,88,-138,98,-157,97,-77,88,-138,97,-77,88,-95,88,-138,88,-95,84,-117,152,-185,173,-185,173,
--159,152,-185,173,-159,152,-159,152,-185,152,-159,139,-157,152,-185,139,-157,131,-181,112,-172,110,-117,98,-157,127,-151,131,-181,139,-157,189,-36,161,-36,189,-139,189,-139,161,-36,161,-139,189,-139,161,-139,255,-167,255,-167,161,-139,95,-139,255,-167,95,-139,95,-167,189,-139,255,-167,255,-139,161,-167,189,-167,161,-64,161,-64,189,-167,189,-64,161,-64,189,-64,255,-36,255,-36,189,-64,255,-64,95,-36,95,-64,161,-64,95,-36,161,-64,255,-36,188,-36,162,-36,188,-174,188,-174,162,-36,162,-86,188,-174,162,-86,162,-117,162,-117,162,-86,108,-86,162,-117,108,-86,108,-117,188,-117,242,-117,188,-86,188,-86,242,-117,242,-86,188,-174,162,-117,162,-174,242,-117,242,-86,108,-86,242,-117,108,-86,108,-117,250,-185,242,-182,261,-200,261,-200,242,-182,234,-177,261,-200,234,-177,233,-198,233,-198,234,-177,227,-171,233,-198,227,-171,221,-165,221,-165,216,-158,233,-198,233,-198,216,-158,211,-152,233,-198,211,-152,208,-193,208,-193,211,-152,205,-147,208,-193,205,-147,199,-144,297,-142,293,-159,306,-181,306,-181,293,-159,286,-173,306,-181,286,-173,285,-195,285,-195,286,-173,275,-183,285,-195,275,-183,261,-200,261,-200,275,-183,259,-187,261,-200,259,-187,259,-186,337,52,298,52,306,-181,337,52,306,-181,322,-160,337,52,322,-160,333,-134,337,52,333,-134,337,-103,298,-123,297,-142,306,-181,298,-123,306,-181,298,52,191,-143,185,-144,189,-185,191,-143,189,-185,208,-193,191,-143,208,-193,199,-144,179,-146,175,-150,176,-174,179,-146,176,-174,189,-185,179,-146,189,-185,185,-144,173,-155,172,-162,176,-174,173,-155,176,-174,175,-150,250,-185,261,-200,259,-186,259,-187,275,-183,259,-186,349,-173,342,-159,349,-195,349,-195,342,-159,338,-141,349,-195,338,-141,329,-181,329,-181,338,-141,337,-123,329,-181,337,-123,337,52,337,52,298,52,302,-134,337,52,302,-134,313,-160,337,52,313,-160,329,-181,401,-177,393,-182,402,-198,402,-198,393,-182,385,-185,402,-198,385,-185,376,-187,376,-187,360,-183,373,-200,373,-200,360,-183,349,-195,430,-147,424,-152,426,-193,426,-193,424,-152,419,-158,426,-193,419,-158,414,-165,414,-165,408,-171,426,-193,426,-193,408,-171,402,-198,460,-150,455,-146,459,-174,460,-150,459,-174,463,-162,460,-150,463,-162,462,-155,450,-144,444,-143,446,-185,450,-144,446,-185,459,-174,450,-144,459,-174,455,-146,446,-185,444,-143,436,-144,446,
--185,436,-144,430,-147,446,-185,430,-147,426,-193,376,-187,373,-200,402,-198,401,-177,402,-198,408,-171,349,-173,349,-195,360,-183,302,-134,298,52,298,-103,174,-151,185,-149,186,-84,186,-84,185,-149,195,-145,186,-84,195,-145,196,-88,196,-88,195,-145,202,-138,196,-88,202,-138,203,-96,203,-96,202,-138,208,-128,203,-96,208,-128,208,-106,208,-106,208,-128,209,-117,141,-106,142,-128,146,-96,146,-96,142,-128,147,-137,146,-96,147,-137,153,-89,153,-89,147,-137,154,-144,153,-89,154,-144,163,-84,163,-84,154,-144,163,-149,163,-84,163,-149,174,-82,174,-82,163,-149,174,-151,174,-82,174,-151,186,-84,142,-128,141,-106,140,-117,105,-83,105,-151,116,-84,116,-84,105,-151,116,-150,116,-84,116,-150,125,-89,125,-89,116,-150,126,-145,125,-89,126,-145,133,-96,133,-96,126,-145,133,-138,133,-96,133,-138,138,-106,138,-106,133,-138,138,-128,138,-106,138,-128,140,-117,70,-117,72,-128,72,-106,72,-106,72,-128,77,-138,72,-106,77,-138,77,-96,77,-96,77,-138,84,-145,77,-96,84,-145,84,-89,84,-89,84,-145,94,-150,84,-89,94,-150,94,-84,94,-84,94,-150,105,-151,94,-84,105,-151,105,-83,210,-117,212,-128,212,-106,212,-106,212,-128,217,-138,212,-106,217,-138,217,-96,217,-96,217,-138,224,-145,217,-96,224,-145,224,-89,224,-89,224,-145,233,-150,224,-89,233,-150,234,-84,234,-84,233,-150,244,-151,234,-84,244,-151,245,-83,245,-83,244,-151,255,-150,245,-83,255,-150,255,-84,255,-84,255,-150,265,-145,255,-84,265,-145,265,-89,265,-89,265,-145,273,-138,265,-89,273,-138,273,-96,273,-96,273,-138,278,-128,273,-96,278,-128,278,-106,278,-106,278,-128,280,-117,219,-132,212,-144,216,-173,216,-173,212,-144,202,-154,216,-173,202,-154,197,-183,197,-183,202,-154,189,-161,197,-183,189,-161,174,-186,174,-186,189,-161,174,-163,177,-47,174,-71,189,-73,177,-47,189,-73,198,-51,198,-51,189,-73,202,-80,198,-51,202,-80,217,-61,217,-61,202,-80,212,-90,217,-61,212,-90,219,-102,245,-117,242,-95,242,-139,242,-139,242,-95,232,-76,242,-139,232,-76,232,-158,232,-158,232,-76,221,-117,219,-102,221,-117,232,-76,219,-102,232,-76,217,-61,219,-132,216,-173,232,-158,219,-132,232,-158,221,-117,139,-90,148,-80,154,-51,154,-51,148,-80,161,-73,154,-51,161,-73,177,-47,177,-47,161,-73,174,-71,135,-61,119,-76,130,-117,135,-61,130,
--117,132,-103,135,-61,132,-103,139,-90,135,-61,139,-90,154,-51,138,-144,132,-132,133,-173,133,-173,132,-132,130,-117,160,-161,148,-154,152,-183,160,-161,152,-183,174,-186,160,-161,174,-186,174,-163,138,-144,133,-173,152,-183,138,-144,152,-183,148,-154,105,-117,109,-139,109,-95,109,-95,109,-139,119,-158,109,-95,119,-158,119,-76,119,-76,119,-158,133,-173,119,-76,133,-173,130,-117,175,-151,178,-151,179,-78,179,-78,178,-151,182,-150,179,-78,182,-150,194,-83,194,-83,182,-150,184,-149,194,-83,184,-149,187,-149,187,-149,190,-149,194,-83,194,-83,190,-149,193,-151,194,-83,193,-151,195,-152,224,-144,220,-114,218,-172,218,-172,220,-114,209,-95,218,-172,209,-95,203,-199,203,-199,209,-95,197,-158,203,-199,197,-158,195,-168,203,-199,195,-168,190,-182,194,-83,195,-152,209,-95,209,-95,195,-152,196,-155,209,-95,196,-155,197,-158,175,-151,179,-78,170,-151,170,-151,179,-78,167,-76,170,-151,167,-76,159,-150,159,-150,167,-76,156,-78,159,-150,156,-78,147,-147,147,-147,156,-78,145,-82,147,-147,145,-82,137,-141,137,-141,145,-82,136,-90,137,-141,136,-90,129,-131,129,-131,136,-90,129,-101,129,-131,129,-101,127,-117,182,-221,203,-199,190,-182,182,-221,190,-182,179,-198,182,-221,179,-198,163,-215,182,-221,163,-215,162,-237,163,-215,139,-233,145,-246,163,-215,145,-246,162,-237,148,-149,161,-150,149,-125,149,-125,161,-150,158,-125,171,-123,158,-125,161,-150,171,-123,161,-150,191,-147,146,-70,150,-69,163,0,163,0,150,-69,154,-69,163,0,154,-69,159,-69,159,-69,173,-70,163,0,163,0,173,-70,170,-44,163,0,170,-44,188,0,163,0,134,-69,139,-72,163,0,139,-72,142,-71,163,0,142,-71,146,-70,248,-90,246,-74,245,-111,245,-111,246,-74,238,-60,245,-111,238,-60,233,-127,233,-127,238,-60,226,-51,233,-127,226,-51,215,-139,215,-139,226,-51,209,-45,215,-139,209,-45,196,-94,196,-94,209,-45,195,-85,191,-78,195,-85,209,-45,191,-78,209,-45,188,-43,191,-78,188,-43,184,-43,191,-78,184,-43,183,-73,183,-73,184,-43,181,-43,183,-73,181,-43,178,-43,183,-73,178,-43,174,-44,183,-73,174,-44,173,-70,215,-139,196,-94,194,-105,215,-139,194,-105,191,-147,191,-147,194,-105,189,-113,191,-147,189,-113,181,-119,112,-117,114,-143,123,-120,123,-120,114,-143,125,-146,123,-120,125,-146,132,-122,132,-122,125,-146,137,
--148,132,-122,137,-148,141,-124,141,-124,137,-148,148,-149,141,-124,148,-149,149,-125,114,-143,112,-117,102,-138,171,-123,191,-147,181,-119,170,-44,173,-70,174,-44,150,-48,150,-48,150,-48,150,-48,148,0,145,-112,145,-112,148,0,134,-10,145,-112,134,-10,131,-106,131,-106,134,-10,124,-22,131,-106,124,-22,120,-95,120,-95,124,-22,116,-35,120,-95,116,-35,113,-81,113,-81,116,-35,112,-48,113,-81,112,-48,111,-63,154,-29,160,-19,148,0,148,0,160,-19,169,-9,148,0,169,-9,180,0,151,-38,154,-29,148,0,151,-38,148,0,150,-48,162,-115,180,-113,168,-75,168,-75,180,-113,177,-76,185,-75,177,-76,180,-113,185,-75,180,-113,196,-107,240,-62,226,-50,225,-81,225,-81,226,-50,214,-60,225,-81,214,-60,211,-96,211,-96,214,-60,204,-67,211,-96,204,-67,196,-107,196,-107,204,-67,194,-72,196,-107,194,-72,185,-75,162,-115,168,-75,160,-72,162,-115,160,-72,155,-66,162,-115,155,-66,151,-59,162,-115,151,-59,145,-112,150,-48,145,-112,151,-59,189,-163,189,-70,161,-70,189,-163,161,-70,161,-163,246,-164,285,-164,246,-106,246,-106,285,-164,285,-68,246,-106,285,-68,105,-106,105,-106,285,-68,66,-68,105,-106,66,-68,105,-164,105,-164,66,-68,66,-164,161,-101,160,-112,164,-148,164,-148,160,-112,157,-120,164,-148,157,-120,155,-153,155,-153,157,-120,151,-126,155,-153,151,-126,145,-156,145,-156,151,-126,143,-129,145,-156,143,-129,132,-158,132,-158,143,-129,131,-130,191,-111,189,-101,188,-148,188,-148,189,-101,189,-76,188,-148,189,-76,180,-141,180,-141,189,-76,175,-134,189,-76,161,-76,164,-148,189,-76,164,-148,171,-141,189,-76,171,-141,175,-134,254,-111,250,-119,260,-148,260,-148,250,-119,244,-125,260,-148,244,-125,243,-155,243,-155,244,-125,234,-129,243,-155,234,-129,223,-158,223,-158,234,-129,221,-130,284,-76,255,-76,260,-148,284,-76,260,-148,273,-136,284,-76,273,-136,281,-120,284,-76,281,-120,284,-101,255,-101,254,-111,260,-148,255,-101,260,-148,255,-76,195,-119,198,-153,202,-125,202,-125,198,-153,210,-156,202,-125,210,-156,211,-129,211,-129,210,-156,223,-158,211,-129,223,-158,221,-130,191,-111,188,-148,198,-153,191,-111,198,-153,195,-119,120,-129,111,-126,111,-155,120,-129,111,-155,132,-158,120,-129,132,-158,131,-130,111,-126,104,-120,111,-155,111,-155,104,-120,99,-112,111,-155,99,-112,94,-148,94,
--148,99,-112,98,-101,94,-148,98,-101,98,-76,98,-76,70,-76,73,-120,98,-76,73,-120,81,-136,98,-76,81,-136,94,-148,73,-120,70,-76,70,-101,161,-101,164,-148,161,-76,284,-50,259,-50,198,-167,198,-167,259,-50,175,-122,198,-167,175,-122,152,-167,152,-167,175,-122,91,-50,152,-167,91,-50,66,-50,66,-167,91,-167,153,-50,153,-50,91,-167,175,-95,153,-50,175,-95,197,-50,197,-50,175,-95,260,-167,197,-50,260,-167,284,-167,151,-112,132,-103,139,-152,139,-152,132,-103,116,-89,139,-152,116,-89,112,-138,112,-138,116,-89,105,-71,112,-138,105,-71,98,-47,241,-73,228,-92,232,-139,232,-139,228,-92,213,-105,232,-139,213,-105,206,-152,206,-152,213,-105,196,-112,206,-152,196,-112,176,-115,176,-115,151,-112,174,-157,174,-157,151,-112,139,-152,98,-47,77,-47,81,-84,98,-47,81,-84,93,-115,98,-47,93,-115,112,-138,253,-47,241,-73,252,-117,253,-47,252,-117,266,-87,253,-47,266,-87,273,-47,176,-115,174,-157,206,-152,241,-73,232,-139,252,-117,228,-105,232,-58,213,-92,213,-92,232,-58,206,-45,213,-92,206,-45,196,-85,196,-85,206,-45,176,-83,151,-85,176,-83,174,-40,151,-85,174,-40,139,-45,98,-151,105,-126,112,-60,112,-60,105,-126,116,-107,112,-60,116,-107,139,-45,139,-45,116,-107,132,-94,139,-45,132,-94,151,-85,98,-151,112,-60,93,-82,98,-151,93,-82,81,-113,98,-151,81,-113,77,-151,273,-151,266,-111,253,-151,253,-151,266,-111,252,-80,253,-151,252,-80,241,-124,241,-124,252,-80,232,-58,241,-124,232,-58,228,-105,206,-45,174,-40,176,-83,85,-140,91,-131,93,-94,93,-94,91,-131,98,-125,93,-94,98,-125,111,-85,111,-85,98,-125,106,-121,111,-85,106,-121,116,-120,116,-120,123,-121,130,-82,130,-82,123,-121,129,-122,130,-82,129,-122,137,-125,80,-152,85,-140,93,-94,80,-152,93,-94,79,-108,80,-152,79,-108,68,-127,80,-152,68,-127,59,-152,217,-152,238,-150,225,-113,225,-113,238,-150,233,-114,242,-113,233,-114,238,-150,242,-113,238,-150,255,-141,270,-78,263,-92,269,-127,270,-78,269,-127,281,-106,270,-78,281,-106,291,-78,257,-102,250,-109,255,-141,257,-102,255,-141,269,-127,257,-102,269,-127,263,-92,159,-86,160,-136,169,-90,169,-90,160,-136,175,-143,169,-90,175,-143,179,-94,179,-94,175,-143,188,-148,179,-94,188,-148,195,-102,195,-102,188,-148,198,-150,195,-102,198,
--150,207,-108,207,-108,198,-150,207,-152,207,-108,207,-152,217,-111,217,-111,207,-152,217,-152,217,-111,217,-152,225,-113,130,-82,137,-125,140,-82,140,-82,137,-125,147,-129,140,-82,147,-129,149,-84,149,-84,147,-129,160,-136,149,-84,160,-136,159,-86,130,-82,111,-85,116,-120,242,-113,255,-141,250,-109,284,-136,284,-97,66,-97,284,-136,66,-97,66,-136,350,-133,350,-97,0,-97,350,-133,0,-97,0,-133,0,-97,0,-133,350,-133,0,-97,350,-133,350,-97,0,-174,0,-209,350,-209,0,-174,350,-209,350,-174,81,162,87,171,89,209,89,209,87,171,94,177,89,209,94,177,106,217,106,217,94,177,102,181,106,217,102,181,111,182,111,182,118,182,126,220,126,220,118,182,125,180,126,220,125,180,133,177,76,150,81,162,89,209,76,150,89,209,74,194,76,150,74,194,63,175,76,150,63,175,55,150,194,152,203,150,203,194,203,194,203,150,213,150,203,194,213,150,213,191,213,191,213,150,234,153,213,191,234,153,221,189,221,189,234,153,229,188,238,190,229,188,234,153,238,190,234,153,251,161,266,224,259,211,265,175,266,224,265,175,277,196,266,224,277,196,286,224,252,200,246,194,251,161,252,200,251,161,265,175,252,200,265,175,259,211,155,216,156,166,165,212,165,212,156,166,172,159,165,212,172,159,175,208,175,208,172,159,184,155,175,208,184,155,191,200,191,200,184,155,194,152,191,200,194,152,203,194,126,220,133,177,135,220,135,220,133,177,143,173,135,220,143,173,145,218,145,218,143,173,156,166,145,218,156,166,155,216,126,220,106,217,111,182,238,190,251,161,246,194,281,161,281,192,67,192,281,161,67,192,67,161,350,161,350,192,0,192,350,161,0,192,0,161,307,406,270,406,70,-51,307,406,70,-51,108,-51,358,463,320,463,70,-108,358,463,70,-108,108,-108,105,-49,84,-49,105,-49,105,-49,84,-49,105,-75,105,-49,105,-75,127,-52,127,-52,105,-75,118,-77,127,-52,118,-77,130,-83,146,-130,140,-142,145,-172,145,-172,140,-142,130,-151,145,-172,130,-151,127,-181,127,-181,130,-151,118,-157,127,-181,118,-157,105,-159,145,-172,160,-157,146,-130,146,-130,160,-157,148,-117,146,-103,148,-117,160,-77,146,-103,160,-77,145,-62,145,-62,127,-52,130,-83,145,-62,130,-83,140,-92,145,-62,140,-92,146,-103,170,-95,160,-77,160,
--157,170,-95,160,-157,170,-138,170,-95,170,-138,173,-117,148,-117,160,-157,160,-77,105,-185,127,-181,105,-159,105,-185,105,-159,84,-159,105,-185,84,-159,84,-185,105,-75,84,-49,84,-75,105,-94,105,-36,66,-36,105,-94,66,-36,66,-132,105,-94,66,-132,285,-132,105,-94,285,-132,246,-94,246,-36,246,-94,285,-132,246,-36,285,-132,285,-36,117,-158,145,-130,117,-36,117,-36,145,-130,145,-64,117,-36,145,-64,233,-36,233,-36,145,-64,205,-64,233,-36,205,-64,233,-158,233,-158,205,-64,205,-130,233,-158,205,-130,145,-130,145,-130,117,-158,233,-158,129,-46,116,-44,128,-86,128,-86,116,-44,111,-83,107,-84,111,-83,108,-45,107,-84,108,-45,101,-85,101,-85,108,-45,100,-47,101,-85,100,-47,92,-87,92,-87,100,-47,91,-50,92,-87,91,-50,82,-91,82,-91,91,-50,82,-56,82,-91,82,-56,70,-63,141,-93,152,-103,153,-56,153,-56,152,-103,160,-116,153,-56,160,-116,164,-67,164,-67,160,-116,169,-131,164,-67,169,-131,175,-82,175,-82,169,-131,183,-131,175,-82,183,-131,187,-67,187,-67,183,-131,191,-115,187,-67,191,-115,199,-56,199,-56,191,-115,200,-102,199,-56,200,-102,211,-49,211,-49,200,-102,209,-92,211,-49,209,-92,220,-86,235,-44,232,-83,238,-83,235,-44,238,-83,245,-45,245,-45,238,-83,246,-84,245,-45,246,-84,253,-47,253,-47,246,-84,255,-87,253,-47,255,-87,261,-51,261,-51,255,-87,267,-91,261,-51,267,-91,270,-56,270,-56,267,-91,280,-98,270,-56,280,-98,280,-63,223,-46,211,-49,220,-86,223,-46,220,-86,232,-83,223,-46,232,-83,235,-44,141,-93,153,-56,141,-49,141,-93,141,-49,129,-46,141,-93,129,-46,128,-86,116,-44,108,-45,111,-83,82,-91,70,-63,70,-98,195,434,241,481,223,501,195,434,223,501,175,454,195,434,175,454,222,367,195,434,222,367,240,388,111,388,129,369,155,434,155,434,129,369,175,414,155,434,175,414,175,454,175,454,175,414,222,367,128,501,108,481,155,434,128,501,155,434,175,454,168,390,162,383,166,359,166,359,162,383,152,376,166,359,152,376,138,370,182,511,180,517,187,370,187,370,180,517,180,524,173,407,172,398,187,370,187,370,172,398,168,390,187,370,168,390,166,359,200,555,212,560,212,580,200,555,212,580,191,549,191,549,212,580,187,572,191,549,187,572,185,542,185,542,187,572,181,534,180,
-524,181,534,167,561,180,524,167,561,171,423,180,524,171,423,173,415,180,524,173,415,173,407,167,561,153,546,154,461,167,561,154,461,162,445,167,561,162,445,167,432,167,561,167,432,171,423,142,500,143,491,144,529,144,529,143,491,146,481,144,529,146,481,153,546,153,546,146,481,149,471,153,546,149,471,154,461,210,442,207,452,209,402,209,402,207,452,202,464,209,402,202,464,201,385,201,385,202,464,195,480,201,385,195,480,189,493,210,442,209,402,212,423,210,442,212,423,211,433,187,370,201,385,189,493,187,370,189,493,184,503,187,370,184,503,182,511,173,407,187,370,180,524,166,359,138,370,138,349,142,500,144,529,141,509,167,561,181,534,187,572,0,649,0,615,350,615,0,649,350,615,350,649,0,574,0,539,350,539,0,574,350,539,350,574,159,377,198,377,159,439,159,439,198,377,198,477,159,439,198,477,38,439,38,439,198,477,0,477,38,439,0,477,38,377,38,377,0,477,0,377,91,481,97,490,100,529,100,529,97,490,104,497,100,529,104,497,117,538,117,538,104,497,113,500,117,538,113,500,122,502,122,502,127,501,137,541,137,541,127,501,133,500,137,541,133,500,138,499,86,470,91,481,100,529,86,470,100,529,85,514,86,470,85,514,74,494,86,470,74,494,66,470,91,384,97,393,100,431,100,431,97,393,104,399,100,431,104,399,117,440,117,440,104,399,113,403,117,440,113,403,122,405,122,405,127,404,137,443,137,443,127,404,133,403,137,443,133,403,138,402,86,373,91,384,100,431,86,373,100,431,85,417,86,373,85,417,74,397,86,373,74,397,66,373,137,443,138,402,146,442,146,442,138,402,144,399,146,442,144,399,151,397,151,397,166,389,155,441,155,441,166,389,165,439,137,443,117,440,122,405,137,541,138,499,146,540,146,540,138,499,144,497,146,540,144,497,151,495,151,495,166,487,155,538,155,538,166,487,165,536,137,541,117,538,122,502,155,441,146,442,151,397,165,439,166,389,175,435,175,435,166,389,182,382,175,435,182,382,185,430,185,430,182,382,194,377,185,430,194,377,202,422,202,422,194,377,204,374,202,422,204,374,210,418,210,418,204,374,213,373,210,418,213,373,218,415,218,415,213,373,223,373,218,415,223,373,226,413,226,413,223,
-373,244,375,226,413,244,375,233,412,233,412,244,375,239,412,248,413,239,412,244,375,248,413,244,375,262,383,155,538,146,540,151,495,165,536,166,487,175,532,175,532,166,487,182,480,175,532,182,480,185,528,185,528,182,480,194,475,185,528,194,475,202,520,202,520,194,475,204,472,202,520,204,472,210,516,210,516,204,472,213,470,210,516,213,470,218,513,218,513,213,470,223,470,218,513,223,470,226,510,226,510,223,470,244,472,226,510,244,472,233,509,233,509,244,472,239,509,248,510,239,509,244,472,248,510,244,472,262,480,277,544,270,530,276,495,277,544,276,495,287,516,277,544,287,516,297,544,263,520,256,514,262,480,263,520,262,480,276,495,263,520,276,495,270,530,277,447,270,433,276,398,277,447,276,398,287,419,277,447,287,419,297,447,263,423,256,416,262,383,263,423,262,383,276,398,263,423,276,398,270,433,248,413,262,383,256,416,248,510,262,480,256,514,190,-196,187,-177,187,-255,187,-255,187,-177,185,-158,185,-144,185,-158,189,-151,185,-144,189,-151,204,-131,204,-131,189,-151,210,-141,172,-151,177,-158,177,-144,177,-144,177,-158,182,-44,182,-44,177,-158,182,-256,182,-44,182,-256,187,-45,187,-45,182,-256,185,-144,185,-144,187,-124,187,-45,187,-45,187,-124,190,-105,187,-45,190,-105,192,-48,192,-48,190,-105,195,-88,192,-48,195,-88,196,-52,196,-52,195,-88,198,-74,196,-52,198,-74,199,-58,199,-58,198,-74,200,-63,177,-158,176,-177,176,-255,177,-158,176,-255,182,-256,163,-237,164,-242,165,-226,165,-226,164,-242,167,-247,165,-226,167,-247,168,-212,168,-212,167,-247,171,-252,168,-212,171,-252,172,-196,172,-196,171,-252,176,-255,172,-196,176,-255,176,-177,185,-158,205,-171,189,-151,189,-151,205,-171,208,-160,208,-160,205,-171,221,-186,208,-160,221,-186,225,-166,225,-166,221,-186,233,-199,225,-166,233,-199,241,-171,241,-171,233,-199,244,-209,241,-171,244,-209,254,-174,254,-174,244,-209,255,-212,254,-174,255,-212,263,-178,263,-178,255,-212,261,-211,263,-178,261,-211,267,-209,247,-91,239,-98,243,-131,247,-91,243,-131,255,-128,247,-91,255,-128,250,-90,258,-88,263,-124,263,-89,263,-89,263,-124,268,-122,263,-89,268,-122,268,-93,268,-93,268,-122,271,-119,268,-93,271,-119,272,-97,272,-97,271,-119,273,-116,272,-97,273,-116,274,-103,274,-103,273,-116,275,
--113,274,-103,275,-113,275,-109,256,-88,254,-89,255,-128,256,-88,255,-128,263,-124,256,-88,263,-124,258,-88,252,-89,250,-90,255,-128,252,-89,255,-128,254,-89,204,-131,210,-141,218,-119,218,-119,210,-141,228,-135,218,-119,228,-135,229,-108,229,-108,228,-135,243,-131,229,-108,243,-131,239,-98,185,-158,185,-144,182,-256,185,-158,182,-256,187,-255,273,-194,273,-191,273,-200,273,-200,273,-191,272,-187,273,-200,272,-187,270,-205,270,-205,272,-187,270,-184,270,-205,270,-184,267,-181,267,-181,263,-178,267,-209,267,-181,267,-209,270,-205,190,-196,192,-252,195,-212,195,-212,192,-252,196,-247,195,-212,196,-247,198,-226,198,-226,196,-247,199,-242,198,-226,199,-242,200,-237,172,-105,176,-124,176,-45,176,-45,176,-124,177,-144,176,-45,177,-144,182,-44,164,-58,165,-74,167,-52,167,-52,165,-74,168,-89,167,-52,168,-89,171,-48,171,-48,168,-89,172,-105,171,-48,172,-105,176,-45,126,-202,137,-192,139,-165,139,-165,137,-192,149,-180,139,-165,149,-180,156,-159,156,-159,149,-180,162,-168,156,-159,162,-168,172,-151,172,-151,162,-168,177,-158,122,-170,108,-174,110,-212,122,-170,110,-212,113,-211,122,-170,113,-211,116,-210,122,-170,116,-210,118,-208,122,-170,118,-208,126,-202,122,-170,126,-202,139,-165,108,-174,98,-178,99,-211,108,-174,99,-211,105,-212,108,-174,105,-212,108,-212,108,-174,108,-212,110,-212,94,-209,99,-211,98,-178,94,-209,98,-178,94,-181,94,-209,94,-181,91,-185,94,-209,91,-185,90,-206,89,-189,88,-193,88,-202,89,-189,88,-202,90,-206,89,-189,90,-206,91,-185,135,-110,138,-138,148,-122,148,-122,138,-138,156,-144,148,-122,156,-144,162,-134,162,-134,156,-144,172,-151,162,-134,172,-151,177,-144,124,-99,114,-91,121,-133,124,-99,121,-133,138,-138,124,-99,138,-138,135,-110,121,-133,114,-91,112,-90,121,-133,112,-90,109,-89,121,-133,109,-89,107,-89,121,-133,107,-89,106,-128,106,-128,107,-89,105,-88,106,-128,105,-88,104,-88,106,-128,104,-88,98,-89,106,-128,98,-89,95,-123,93,-93,89,-97,90,-119,93,-93,90,-119,92,-121,93,-93,92,-121,95,-123,93,-93,95,-123,98,-89,86,-109,86,-113,87,-103,87,-103,86,-113,88,-116,87,-103,88,-116,89,-97,89,-97,88,-116,90,-119,88,-202,88,-193,88,-197,165,-74,164,-58,163,-63,190,-196,187,-255,192,-252,542,-52,522,-52,525,-101,525,-101,522,-52,500,-82,525,
--101,500,-82,480,-133,480,-133,500,-82,455,-101,480,-133,455,-101,422,-152,422,-152,455,-101,401,-113,422,-152,401,-113,360,-160,360,-160,401,-113,348,-119,360,-160,348,-119,309,-162,309,-162,348,-119,309,-120,118,-82,95,-52,137,-133,118,-82,137,-133,162,-101,162,-101,137,-133,196,-152,162,-101,196,-152,216,-113,216,-113,196,-152,257,-160,216,-113,257,-160,269,-119,269,-119,257,-160,309,-162,269,-119,309,-162,309,-120,95,-52,75,-52,93,-101,95,-52,93,-101,137,-133,80,373,89,387,92,422,92,422,89,387,104,397,92,422,104,397,119,435,119,435,104,397,124,402,119,435,124,402,149,441,149,441,124,402,144,404,149,441,144,404,164,405,180,443,164,405,167,405,180,443,167,405,169,405,71,402,59,373,80,373,71,402,80,373,92,422,439,402,401,407,434,363,439,402,434,363,471,362,439,402,471,362,474,401,434,363,401,407,396,367,396,367,401,407,363,413,396,367,363,413,359,373,359,373,363,413,325,420,359,373,325,420,322,381,322,381,325,420,291,428,322,381,291,428,286,389,286,389,291,428,269,433,286,389,269,433,265,394,265,394,269,433,247,437,265,394,247,437,243,398,243,398,247,437,224,440,243,398,224,440,221,402,221,402,224,440,202,442,221,402,202,442,199,404,199,404,202,442,180,443,199,404,180,443,177,405,481,400,502,363,484,400,484,400,502,363,487,400,506,400,487,400,502,363,506,400,502,363,532,370,591,433,571,433,580,403,580,403,571,433,562,417,580,403,562,417,559,382,559,382,562,417,546,408,559,382,546,408,532,370,532,370,546,408,527,403,532,370,527,403,506,400,502,363,481,400,478,401,502,363,478,401,476,401,502,363,476,401,474,401,502,363,474,401,471,362,180,443,169,405,172,405,180,443,172,405,175,405,180,443,175,405,177,405,164,405,180,443,149,441,522,355,525,404,500,385,500,385,525,404,480,436,500,385,480,436,455,404,455,404,480,436,422,454,455,404,422,454,401,416,401,416,422,454,360,463,401,416,360,463,348,421,348,421,360,463,309,423,269,421,309,423,309,465,269,421,309,465,257,463,95,355,118,385,137,436,137,436,118,385,162,404,137,436,162,404,196,454,196,454,162,404,216,416,196,454,216,416,257,463,257,463,216,416,269,421,93,404,75,355,95,355,93,404,95,
-355,137,436,360,463,309,465,309,423,525,404,522,355,542,355,514,-145,519,-173,515,-144,515,-144,519,-173,515,-142,515,-92,515,-142,519,-173,515,-92,519,-173,516,-90,516,-90,519,-173,520,-60,520,-60,519,-173,534,-158,520,-60,534,-158,534,-75,534,-75,534,-158,550,-144,534,-75,550,-144,550,-89,550,-89,550,-144,566,-131,550,-89,566,-131,566,-101,566,-101,566,-131,584,-122,566,-101,584,-122,584,-111,520,-60,506,-44,511,-81,520,-60,511,-81,513,-83,520,-60,513,-83,514,-85,520,-60,514,-85,515,-86,520,-60,515,-86,515,-88,520,-60,515,-88,516,-90,507,-136,510,-136,508,-97,510,-96,508,-97,510,-136,510,-96,510,-136,512,-95,512,-95,510,-136,512,-137,512,-95,512,-137,514,-93,514,-93,512,-137,514,-138,514,-93,514,-138,515,-92,515,-92,514,-138,515,-140,515,-92,515,-140,515,-142,511,-151,492,-175,505,-188,511,-151,505,-188,519,-173,511,-151,519,-173,513,-149,59,-97,59,-136,507,-136,59,-97,507,-136,508,-97,514,-147,513,-149,519,-173,514,-147,519,-173,514,-145,511,-81,506,-44,492,-58,58,295,58,270,63,306,63,306,58,270,64,259,63,306,64,259,72,314,72,314,64,259,72,251,72,314,72,251,83,319,83,319,72,251,83,246,83,319,83,246,95,321,95,321,83,246,95,244,95,321,95,244,107,319,107,319,95,244,107,246,107,319,107,246,118,313,118,313,107,246,118,251,118,313,118,251,126,305,126,305,118,251,126,259,126,305,126,259,132,294,132,294,126,259,132,270,132,294,132,270,134,282,105,-2,109,-1,115,68,115,68,109,-1,113,-1,115,68,113,-1,116,-1,116,-1,119,-1,131,60,131,60,119,-1,122,-3,131,60,122,-3,124,-5,56,32,58,20,58,45,58,45,58,20,63,10,58,45,63,10,64,56,64,56,63,10,71,2,64,56,71,2,73,64,73,64,71,2,82,-1,73,64,82,-1,84,69,84,69,82,-1,97,-3,84,69,97,-3,98,71,98,71,97,-3,101,-3,98,71,101,-3,115,68,115,68,101,-3,105,-2,153,9,150,30,150,-16,150,-16,150,30,143,47,150,-16,143,47,140,-40,140,-40,143,47,131,60,140,-40,131,60,126,-10,126,-10,124,-63,140,-40,131,60,124,-5,125,-7,131,60,125,-7,126,-10,131,60,115,68,116,-1,124,-63,126,-10,123,-24,124,-63,123,-24,116,-39,124,-63,116,-39,105,
--54,124,-63,105,-54,102,-82,89,-69,68,-84,75,-97,89,-69,75,-97,102,-82,89,-69,102,-82,105,-54,58,270,58,295,56,282,147,463,149,412,153,463,153,463,149,412,155,419,153,463,155,419,158,460,158,460,155,419,161,426,158,460,161,426,163,456,163,456,161,426,165,432,163,456,165,432,167,450,167,450,165,432,167,438,167,450,167,438,168,443,149,412,147,463,139,463,149,412,139,463,132,461,149,412,132,461,127,458,149,412,127,458,123,453,149,412,123,453,120,448,149,412,120,448,103,355,103,355,120,448,79,355,14,400,14,379,19,410,19,410,14,379,19,369,19,410,19,369,27,417,27,417,19,369,27,362,27,417,27,362,36,422,36,422,27,362,36,357,36,422,36,357,47,424,47,424,36,357,47,355,47,424,47,355,58,422,58,422,47,355,58,357,58,422,58,357,67,417,67,417,58,357,67,362,67,417,67,362,75,410,75,410,67,362,75,369,75,410,75,369,80,400,80,400,75,369,80,379,80,400,80,379,82,390,153,400,153,379,158,410,158,410,153,379,158,369,158,410,158,369,166,417,166,417,158,369,166,362,166,417,166,362,175,422,175,422,166,362,175,357,175,422,175,357,186,424,186,424,175,357,186,355,186,424,186,355,197,422,197,422,186,355,197,357,197,422,197,357,207,417,207,417,197,357,207,362,207,417,207,362,214,410,214,410,207,362,214,369,214,410,214,369,219,400,219,400,214,369,219,379,219,400,219,379,221,390,147,463,149,412,153,463,153,463,149,412,155,419,153,463,155,419,158,460,158,460,155,419,161,426,158,460,161,426,163,456,163,456,161,426,165,432,163,456,165,432,167,450,167,450,165,432,167,438,167,450,167,438,168,443,149,412,147,463,139,463,149,412,139,463,132,461,149,412,132,461,127,458,149,412,127,458,123,453,149,412,123,453,120,448,149,412,120,448,103,355,103,355,120,448,79,355,153,379,153,400,152,390,14,379,14,400,13,390,147,478,149,427,153,477,153,477,149,427,155,434,153,477,155,434,158,475,158,475,155,434,161,441,158,475,161,441,163,471,163,471,161,441,165,447,163,471,165,447,167,465,167,465,165,447,167,453,167,465,167,453,168,458,149,427,147,478,139,477,149,427,139,477,132,475,149,427,132,475,127,472,149,
-427,127,472,123,468,149,427,123,468,120,462,149,427,120,462,103,370,120,462,79,370,103,370,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,362,25,358,21,495,0,495,0,358,21,353,18,495,0,353,18,348,16,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,31,362,25,495,0,364,31,495,0,365,37,316,13,316,0,495,0,316,13,495,0,348,16,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,59,295,59,270,64,306,64,306,59,270,65,259,64,306,65,259,73,314,73,314,65,259,73,251,73,314,73,251,83,319,83,319,73,251,84,246,83,319,84,246,96,321,96,321,84,246,96,244,96,321,96,244,108,319,108,319,96,244,108,246,108,319,108,246,119,313,119,313,108,246,119,251,119,313,119,251,127,305,127,305,119,251,127,259,127,305,127,259,132,294,132,294,127,259,132,270,132,294,132,270,134,282,59,270,59,295,57,282,150,441,161,430,477,463,477,463,161,430,253,436,477,463,253,436,263,437,263,437,349,435,477,463,477,463,349,435,405,429,477,463,405,429,438,416,477,463,438,416,454,395,477,463,454,395,463,363,477,463,463,363,480,363,167,385,241,44,239,59,239,258,239,229,345,229,239,258,345,229,345,258,375,259,345,258,375,227,375,259,375,227,396,265,396,265,375,227,396,222,396,265,396,222,409,277,409,277,396,222,409,210,409,277,409,
-210,418,297,418,297,409,210,418,191,418,297,418,191,423,325,423,325,418,191,423,161,423,325,423,161,440,161,167,385,239,59,239,412,167,385,239,412,240,423,167,385,240,423,242,430,167,385,242,430,246,434,167,385,246,434,166,411,246,434,253,436,161,430,246,434,161,430,166,411,133,447,150,441,477,463,133,447,477,463,106,463,133,447,106,463,106,450,453,53,420,37,484,0,484,0,420,37,374,28,484,0,374,28,309,26,309,26,282,26,484,0,484,0,282,26,262,29,484,0,262,29,161,34,161,34,262,29,166,52,484,0,516,118,496,118,484,0,496,118,477,80,484,0,477,80,453,53,167,80,166,52,249,35,167,80,249,35,241,44,167,80,241,44,167,385,484,0,161,34,151,23,484,0,151,23,133,17,484,0,133,17,106,13,484,0,106,13,106,0,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,345,258,345,229,375,227,423,325,440,161,440,325,166,52,262,29,249,35,302,450,302,450,276,447,276,447,302,450,302,463,276,447,302,463,258,441,258,441,302,463,167,411,258,441,167,411,168,384,240,53,168,384,168,85,240,53,168,85,246,35,246,35,168,85,256,23,168,384,240,53,239,79,239,252,239,220,452,220,239,252,452,220,452,252,452,252,452,220,530,35,452,252,530,35,524,52,168,384,239,79,239,384,168,384,239,384,241,411,168,384,241,411,246,429,168,384,246,429,258,441,302,463,105,463,133,447,302,463,133,447,151,441,302,463,151,441,161,429,302,463,161,429,167,411,446,37,435,24,585,0,585,0,435,24,417,17,585,0,417,17,390,13,559,447,585,450,585,463,559,447,585,463,541,440,541,440,585,463,450,411,541,440,450,411,452,384,524,52,452,384,452,252,523,77,523,384,452,384,452,384,523,384,524,411,452,384,524,411,530,429,585,463,389,463,416,447,585,463,416,447,434,441,585,463,434,441,445,
-430,585,463,445,430,450,411,585,0,585,13,559,17,585,0,559,17,541,23,585,0,541,23,450,57,585,0,450,57,446,37,452,87,450,57,541,23,452,87,541,23,530,35,452,87,530,35,452,220,301,0,300,13,274,16,301,0,274,16,256,23,301,0,256,23,167,55,301,0,167,55,162,35,301,0,162,35,151,23,301,0,151,23,133,16,301,0,133,16,105,13,301,0,105,13,105,0,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,167,55,256,23,168,85,585,0,390,13,390,0,452,384,524,52,523,77,416,447,389,463,389,450,541,440,452,384,530,429,133,447,105,463,105,450,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,284,448,314,450,314,463,284,448,314,463,265,442,265,442,314,463,173,413,265,442,173,413,174,386,247,52,174,386,174,78,247,52,174,78,253,33,253,33,174,78,265,22,245,78,245,386,174,386,174,386,245,386,247,413,174,386,247,413,253,431,314,463,106,463,136,447,314,463,136,447,156,442,314,463,156,442,167,431,314,463,167,431,173,413,314,0,314,13,285,16,314,0,285,16,265,22,314,0,265,22,173,51,314,0,173,51,167,32,314,0,167,32,155,21,314,0,155,21,136,16,314,0,136,16,106,13,314,0,106,13,106,0,173,51,265,22,174,78,174,386,247,52,245,78,136,447,106,463,106,450,265,442,174,386,253,431,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,
-376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,106,424,115,427,116,447,116,447,115,427,126,431,116,447,126,431,135,457,135,457,126,431,138,434,135,457,138,434,154,465,154,465,138,434,149,436,154,465,149,436,158,437,158,437,198,429,175,470,175,470,198,429,195,472,175,470,154,465,158,437,357,305,355,305,375,50,357,305,375,50,373,77,357,305,373,77,373,213,357,305,373,213,376,361,545,469,537,
-469,550,451,550,451,537,469,528,470,550,451,528,470,494,438,494,438,528,470,485,462,494,438,485,462,446,403,446,403,485,462,443,441,446,403,443,441,407,351,407,351,443,441,405,406,407,351,405,406,382,286,382,286,405,406,376,361,382,286,376,361,373,213,554,467,550,451,555,451,554,467,555,451,563,465,563,465,555,451,559,450,563,465,559,450,564,449,568,449,573,448,573,461,568,449,573,461,564,449,564,449,573,461,563,465,445,0,445,13,415,16,445,0,415,16,394,22,445,0,394,22,299,55,445,0,299,55,294,34,445,0,294,34,282,23,445,0,282,23,262,16,445,0,262,16,230,13,445,0,230,13,230,0,317,411,301,206,375,50,317,411,375,50,341,364,341,364,375,50,355,305,299,55,394,22,301,86,301,86,394,22,381,32,301,86,381,32,301,206,301,206,381,32,375,50,198,429,233,404,244,465,244,465,233,404,262,360,244,465,262,360,285,445,285,445,262,360,285,295,285,445,285,295,317,411,317,411,285,295,301,206,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,195,472,198,429,244,465,550,451,554,467,545,469,106,424,116,447,101,435,81,66,65,68,221,0,221,0,65,68,53,73,221,0,53,73,20,0,20,0,53,73,44,83,20,0,44,83,20,120,20,120,44,83,39,98,20,120,39,98,38,120,38,120,39,98,37,120,37,278,43,222,46,335,46,335,43,222,61,177,46,335,61,177,75,388,75,388,61,177,91,140,75,388,91,140,120,432,120,432,91,140,117,280,133,112,117,280,91,140,260,473,209,438,260,448,260,448,311,440,337,463,337,463,311,440,351,417,337,463,351,417,399,435,399,435,351,417,380,382,399,435,380,382,398,335,404,280,427,140,445,392,445,392,427,140,458,176,445,392,458,176,474,338,474,338,458,176,477,222,474,338,477,222,484,278,399,435,398,335,404,280,399,435,404,280,445,
-392,337,463,260,473,260,448,366,156,385,112,386,193,386,193,385,112,427,140,386,193,427,140,399,235,399,235,427,140,404,280,300,0,332,66,305,113,305,113,332,66,333,92,305,113,333,92,339,128,339,128,333,92,385,112,339,128,385,112,366,156,475,85,467,75,501,0,501,0,467,75,455,68,501,0,455,68,440,66,501,0,501,118,483,118,501,0,483,118,480,99,501,0,480,99,475,85,332,66,300,0,501,0,332,66,501,0,440,66,183,462,120,432,140,375,183,462,140,375,169,413,183,462,169,413,209,438,183,462,209,438,260,473,120,432,117,280,123,329,120,432,123,329,140,375,185,92,187,66,215,113,185,92,215,113,181,130,185,92,181,130,154,159,185,92,154,159,134,196,185,92,134,196,133,112,121,238,117,280,133,112,121,238,133,112,134,196,187,66,81,66,221,0,187,66,221,0,215,113,73,478,76,427,79,477,79,477,76,427,82,434,79,477,82,434,85,475,85,475,82,434,87,441,85,475,87,441,90,471,90,471,87,441,91,447,90,471,91,447,93,465,93,465,91,447,94,453,93,465,94,453,95,458,76,427,73,478,65,477,76,427,65,477,59,475,76,427,59,475,54,472,76,427,54,472,50,468,76,427,50,468,47,462,76,427,47,462,30,370,47,462,5,370,30,370,305,113,339,128,305,112,14,400,14,379,19,410,19,410,14,379,19,369,19,410,19,369,27,417,27,417,19,369,27,362,27,417,27,362,36,422,36,422,27,362,36,357,36,422,36,357,47,424,47,424,36,357,47,355,47,424,47,355,58,422,58,422,47,355,58,357,58,422,58,357,67,417,67,417,58,357,67,362,67,417,67,362,75,410,75,410,67,362,75,369,75,410,75,369,80,400,80,400,75,369,80,379,80,400,80,379,82,390,147,463,149,412,153,463,153,463,149,412,155,419,153,463,155,419,158,460,158,460,155,419,161,426,158,460,161,426,163,456,163,456,161,426,165,432,163,456,165,432,167,450,167,450,165,432,167,438,167,450,167,438,168,443,149,412,147,463,139,463,149,412,139,463,132,461,149,412,132,461,127,458,149,412,127,458,123,453,149,412,123,453,120,448,149,412,120,448,103,355,87,264,103,306,82,270,82,270,103,306,81,299,82,270,81,299,76,274,76,
-274,81,299,67,275,63,275,67,275,81,299,63,275,81,299,59,292,103,6,115,-3,125,314,125,314,115,-3,131,-6,125,314,131,-6,146,322,146,322,131,-6,149,55,146,322,149,55,149,320,151,47,152,-1,154,43,154,43,152,-1,170,10,154,43,170,10,158,40,158,40,170,10,163,39,171,40,163,39,170,10,171,40,170,10,186,28,153,400,153,379,158,410,158,410,153,379,158,369,158,410,158,369,166,417,166,417,158,369,166,362,166,417,166,362,175,422,175,422,166,362,175,357,175,422,175,357,186,424,186,424,175,357,186,355,186,424,186,355,197,422,197,422,186,355,197,357,197,422,197,357,207,417,207,417,197,357,207,362,207,417,207,362,214,410,214,410,207,362,214,369,214,410,214,369,219,400,219,400,214,369,219,379,219,400,219,379,221,390,211,70,200,75,200,49,200,49,200,75,192,60,200,49,192,60,186,28,186,28,192,60,185,50,186,28,185,50,178,43,152,-1,151,47,150,51,152,-1,150,51,149,55,152,-1,149,55,131,-6,103,306,87,264,90,254,103,306,90,254,91,241,103,306,91,241,92,37,103,306,92,37,96,20,103,306,96,20,103,6,103,306,103,6,125,314,91,241,91,55,92,37,59,292,37,285,38,285,59,292,38,285,45,274,59,292,45,274,52,274,59,292,52,274,58,275,59,292,58,275,63,275,45,274,38,285,38,273,171,40,186,28,178,43,153,379,153,400,152,390,103,355,120,448,79,355,14,379,14,400,13,390,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,243,472,107,71,139,152,243,472,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,257,472,362,25,358,21,495,0,495,0,358,21,353,18,495,0,353,18,348,16,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,243,472,152,180,232,373,243,472,232,373,313,180,243,472,313,180,257,472,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,
-71,243,472,476,17,462,24,495,0,476,17,495,0,495,13,364,31,362,25,495,0,364,31,495,0,365,37,316,13,316,0,495,0,316,13,495,0,348,16,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,71,33,59,22,248,0,248,0,59,22,40,16,248,0,40,16,12,13,77,413,79,385,156,434,77,413,156,434,208,463,208,463,156,434,161,437,208,463,161,437,167,438,167,438,226,434,208,463,208,463,226,434,273,458,334,125,327,83,350,21,350,21,327,83,308,54,350,21,308,54,304,5,304,5,308,54,277,37,304,5,277,37,248,0,248,0,277,37,239,28,248,0,239,28,194,26,194,26,177,27,248,0,248,0,177,27,165,30,248,0,165,30,77,52,77,52,165,30,79,79,298,405,314,378,325,443,325,443,314,378,320,343,328,254,320,343,315,312,273,458,226,434,269,423,273,458,269,423,298,405,273,458,298,405,325,443,328,254,355,268,362,420,362,420,355,268,375,287,362,420,375,287,384,387,384,387,375,287,387,313,384,387,387,313,391,347,325,443,320,343,328,254,325,443,328,254,362,420,327,169,335,233,308,199,308,199,335,233,295,244,308,199,295,244,278,217,278,217,295,244,295,245,278,217,295,245,300,287,300,287,295,245,328,254,300,287,328,254,315,312,196,228,240,226,240,260,240,260,240,226,278,217,240,260,278,217,275,270,275,270,278,217,300,287,196,228,240,260,195,256,196,228,195,256,151,256,196,228,151,256,151,228,152,45,151,57,79,385,152,45,79,385,79,79,415,124,409,162,407,82,407,82,409,162,393,193,407,82,393,193,385,47,385,47,393,193,368,216,385,47,368,216,350,21,350,21,368,216,335,233,350,21,335,233,334,125,79,79,165,30,157,36,79,79,157,36,152,45,79,385,151,57,151,415,79,385,151,415,151,424,79,385,151,424,153,430,79,385,153,430,156,434,208,463,12,463,41,447,208,463,41,447,60,442,208,463,60,442,72,431,208,463,72,431,77,413,41,447,12,463,12,450,248,0,12,13,12,0,71,33,248,0,77,
-52,335,233,327,169,334,125,53,440,64,429,401,463,401,463,64,429,156,436,401,463,156,436,166,437,401,463,166,437,288,437,401,463,288,437,325,434,401,463,325,434,352,425,401,463,352,425,370,408,401,463,370,408,381,382,401,463,381,382,387,346,401,463,387,346,404,346,141,79,141,409,70,386,70,386,141,409,141,420,70,386,141,420,144,428,70,386,144,428,148,433,70,386,148,433,68,412,70,386,142,51,141,79,156,436,64,429,68,412,156,436,68,412,148,433,36,447,53,440,401,463,36,447,401,463,9,463,36,447,9,463,9,450,205,0,205,13,177,16,205,0,177,16,159,22,205,0,159,22,68,56,205,0,68,56,63,35,205,0,63,35,52,23,205,0,52,23,35,16,205,0,35,16,8,13,205,0,8,13,8,0,70,87,68,56,159,22,70,87,159,22,147,33,70,87,147,33,142,51,70,87,142,51,70,386,243,472,34,0,95,64,95,64,34,0,473,0,95,64,473,0,367,64,367,64,473,0,257,472,367,64,257,472,243,472,243,472,95,64,232,373,243,472,232,373,367,64,64,34,53,23,386,0,386,0,53,23,36,17,386,0,36,17,9,13,53,441,63,430,380,463,380,463,63,430,155,436,380,463,155,436,165,437,165,437,251,435,380,463,380,463,251,435,307,429,380,463,307,429,340,416,380,463,340,416,356,395,380,463,356,395,365,363,380,463,365,363,382,363,64,34,164,29,68,52,68,52,164,29,151,35,68,52,151,35,70,80,70,80,151,35,143,44,70,80,143,44,70,385,70,385,143,44,141,59,70,385,141,59,141,412,141,258,141,229,246,229,141,258,246,229,246,258,277,259,246,258,277,227,277,259,277,227,298,265,298,265,277,227,298,222,298,265,298,222,311,277,311,277,298,222,311,210,311,277,311,210,320,297,320,297,311,210,320,191,320,297,320,191,326,325,326,325,320,191,326,161,326,325,326,161,341,161,70,385,141,412,141,423,70,385,141,423,144,430,70,385,144,430,148,434,70,385,148,434,68,411,148,434,155,436,63,430,148,434,63,430,68,411,35,447,53,441,380,463,35,447,380,463,9,463,35,447,9,463,9,450,355,53,322,37,386,0,386,0,322,37,276,28,386,0,276,28,212,26,212,26,184,26,386,0,386,
-0,184,26,164,29,386,0,164,29,64,34,386,0,418,118,398,118,386,0,398,118,379,80,386,0,379,80,355,53,246,258,246,229,277,227,326,325,341,161,341,325,386,0,9,13,9,0,49,379,54,391,37,463,37,463,54,391,60,402,37,463,60,402,70,413,70,413,81,421,37,463,37,463,81,421,95,428,37,463,95,428,113,433,102,27,405,453,313,437,313,437,405,453,405,463,313,437,405,463,163,437,136,436,163,437,405,463,136,436,405,463,37,463,37,463,23,344,41,344,37,463,41,344,45,364,37,463,45,364,49,379,313,437,7,10,102,27,102,27,7,10,401,0,102,27,401,0,279,27,279,27,401,0,301,27,389,83,382,68,401,0,401,0,382,68,372,56,401,0,372,56,360,46,360,46,349,39,401,0,401,0,349,39,335,34,401,0,335,34,319,30,401,0,419,123,402,123,401,0,402,123,395,101,401,0,395,101,389,83,401,0,7,10,7,0,301,27,401,0,319,30,37,463,113,433,136,436,69,35,58,23,208,0,208,0,58,23,40,16,208,0,40,16,13,13,13,13,40,16,12,13,209,463,13,463,40,447,209,463,40,447,58,441,209,463,58,441,69,429,209,463,69,429,74,411,209,463,74,411,165,441,209,463,165,441,183,447,209,463,183,447,209,450,75,384,147,53,146,79,146,252,146,220,359,220,146,252,359,220,359,252,359,252,359,220,437,35,359,252,437,35,431,52,75,384,146,79,146,384,75,384,146,384,148,411,75,384,148,411,153,429,75,384,153,429,165,441,75,384,165,441,74,411,353,37,342,24,492,0,492,0,342,24,324,17,492,0,324,17,297,13,466,447,492,450,492,463,466,447,492,463,448,440,448,440,492,463,357,411,448,440,357,411,359,384,431,52,359,384,359,252,430,77,430,384,359,384,359,384,430,384,431,411,359,384,431,411,437,429,492,463,296,463,323,447,492,463,323,447,341,441,492,463,341,441,352,430,492,463,352,430,357,411,492,0,492,13,466,17,492,0,466,17,448,23,492,0,448,23,357,57,492,0,357,57,353,37,359,87,357,57,448,23,359,87,448,23,437,35,359,87,437,35,359,220,208,0,207,13,181,16,208,0,181,16,163,23,208,0,163,23,74,55,208,0,74,55,69,35,75,85,74,
-55,163,23,75,85,163,23,153,35,75,85,153,35,147,53,75,85,147,53,75,384,208,0,13,13,13,0,492,0,297,13,297,0,359,384,431,52,430,77,323,447,296,463,296,450,448,440,359,384,437,429,40,447,13,463,13,450,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,188,431,208,440,252,473,252,473,208,440,230,446,252,473,230,446,252,448,252,448,271,446,329,462,329,462,271,446,290,442,329,462,252,473,252,448,346,199,344,219,333,309,333,309,344,219,343,238,333,309,343,238,343,252,343,252,343,264,333,309,333,309,343,264,344,275,333,309,344,275,346,286,348,297,351,309,333,309,348,297,333,309,346,286,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,328,1,328,37,312,27,328,1,312,27,293,21,328,1,293,21,274,17,328,1,274,17,253,16,328,1,253,16,252,-9,316,201,323,192,324,284,324,284,323,192,329,180,324,284,329,180,329,295,329,295,329,180,333,165,329,295,333,165,333,309,333,309,333,165,348,180,333,309,348,180,346,199,219,209,293,209,293,268,306,270,293,268,306,207,306,270,306,207,316,276,316,276,306,207,316,201,316,276,316,201,324,284,293,268,219,268,219,209,205,207,219,209,219,268,205,207,219,268,205,269,205,207,205,269,195,202,195,202,205,269,194,274,195,202,194,274,187,193,187,193,194,274,186,282,187,193,186,282,181,180,181,180,186,282,180,293,181,180,180,293,175,165,175,165,180,293,174,309,175,165,174,309,165,226,165,226,174,309,164,240,174,309,157,309,160,293,174,309,160,293,162,276,174,309,162,276,163,258,174,309,163,258,164,240,175,165,165,226,165,214,175,165,165,214,164,201,175,165,164,201,162,189,175,165,162,189,160,177,175,165,160,177,158,165,188,431,176,462,169,
-418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,216,20,252,-9,234,17,234,17,252,-9,253,16,198,26,182,35,252,-9,198,26,252,-9,216,20,113,34,104,232,65,85,176,462,188,431,252,473,293,268,293,209,306,207,348,180,333,165,351,165,73,32,62,21,220,0,220,0,62,21,42,16,220,0,42,16,13,13,13,13,42,16,12,13,220,463,13,463,42,447,220,463,42,447,62,442,220,463,62,442,74,431,220,463,74,431,79,413,220,463,79,413,171,442,220,463,171,442,191,448,220,463,191,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,171,442,80,386,171,442,79,413,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,79,51,220,0,79,51,73,32,220,0,13,13,13,0,79,51,171,22,80,78,42,447,13,463,13,450,221,450,221,450,192,447,192,447,221,450,221,463,192,447,221,463,174,440,174,440,221,463,85,411,174,440,85,411,87,384,159,50,87,384,87,88,159,50,87,88,165,33,165,33,87,88,176,22,87,384,159,50,158,77,158,244,158,207,177,222,158,244,177,222,283,359,283,359,177,222,233,269,283,359,233,269,363,394,87,384,158,77,158,384,87,384,158,384,159,411,87,384,159,411,163,429,87,384,163,429,174,440,221,463,23,463,51,447,221,463,51,447,70,440,221,463,70,440,80,429,221,463,80,429,85,411,328,405,317,391,363,394,363,394,317,391,301,376,363,394,301,376,283,359,473,463,291,463,309,449,473,463,309,449,320,448,473,463,320,448,329,445,473,463,329,445,334,441,473,463,334,441,337,435,473,463,337,435,338,427,473,
-463,338,427,428,442,473,463,428,442,448,447,473,463,448,447,473,450,338,427,363,394,389,417,338,427,389,417,409,433,338,427,409,433,428,442,335,417,328,405,363,394,335,417,363,394,338,427,338,21,332,17,506,0,506,0,332,17,324,15,506,0,324,15,313,14,342,30,506,0,471,22,342,30,471,22,451,35,342,30,451,35,427,57,342,30,427,57,397,90,342,30,397,90,338,45,397,90,233,269,246,150,397,90,246,150,277,117,397,90,277,117,304,89,397,90,304,89,324,64,397,90,324,64,338,45,488,15,471,22,506,0,488,15,506,0,506,13,341,25,338,21,506,0,341,25,506,0,342,30,294,13,294,0,506,0,294,13,506,0,313,14,220,0,220,13,194,16,220,0,194,16,176,22,220,0,176,22,85,57,220,0,85,57,80,36,220,0,80,36,69,23,220,0,69,23,51,16,220,0,51,16,23,13,220,0,23,13,23,0,85,57,176,22,87,88,246,150,233,269,177,222,309,449,291,463,291,450,51,447,23,463,23,450,78,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,226,373,236,472,224,373,224,373,236,472,107,71,105,66,107,71,236,472,105,66,236,472,98,130,351,37,481,0,448,24,351,37,448,24,436,36,351,37,436,36,426,54,351,37,426,54,415,77,351,37,415,77,350,43,415,77,250,472,338,85,415,77,338,85,342,72,415,77,342,72,346,61,415,77,346,61,349,51,415,77,349,51,350,43,236,472,226,373,338,85,236,472,338,85,250,472,98,130,78,81,101,42,462,17,448,24,481,0,462,17,481,0,481,13,348,25,341,18,481,0,348,25,481,0,351,37,481,0,341,18,331,15,481,0,331,15,318,14,481,0,318,14,302,13,481,0,302,13,302,0,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,62,48,47,28,118,17,62,48,118,17,108,23,62,48,108,23,103,31,62,48,103,31,78,81,105,66,98,130,103,60,69,40,57,25,172,0,172,0,57,25,38,17,172,0,38,17,9,13,466,37,455,24,605,0,605,0,455,24,436,17,605,0,436,17,409,13,578,448,604,
-450,604,463,578,448,604,463,561,442,561,442,604,463,472,401,561,442,472,401,550,430,550,430,472,401,545,412,561,24,550,35,472,86,472,86,550,35,545,53,472,86,545,53,472,401,472,401,545,53,543,78,472,401,543,78,543,385,284,0,293,0,310,112,310,112,293,0,472,401,310,112,472,401,465,463,465,463,472,401,604,463,148,463,10,463,39,447,148,463,39,447,58,441,148,463,58,441,70,430,148,463,70,430,75,411,148,463,75,411,77,384,148,463,77,384,107,384,148,463,107,384,284,0,148,463,284,0,310,112,107,105,107,384,77,384,107,105,77,384,109,67,109,67,77,384,77,105,109,67,77,105,114,41,114,41,77,105,75,66,114,41,75,66,126,25,126,25,75,66,69,40,126,25,69,40,172,0,605,0,605,13,579,17,605,0,579,17,561,24,605,0,561,24,471,57,605,0,471,57,466,37,144,17,126,25,172,0,144,17,172,0,172,13,172,0,9,13,9,0,605,0,409,13,409,0,471,57,561,24,472,86,39,447,10,463,10,450,545,412,472,401,543,385,69,42,57,27,172,0,172,0,57,27,38,18,172,0,38,18,9,13,359,446,369,443,495,463,495,463,369,443,377,439,495,463,377,439,384,432,384,432,390,424,495,463,495,463,390,424,393,413,495,463,393,413,454,442,454,442,393,413,448,438,454,442,448,438,448,437,448,437,448,438,441,430,441,430,448,438,397,383,441,430,397,383,398,363,416,-7,398,363,398,125,416,-7,398,125,127,463,495,463,454,442,461,445,495,463,461,445,470,447,495,463,470,447,480,449,495,463,480,449,495,450,428,-7,428,355,416,-7,416,-7,428,355,429,383,416,-7,429,383,398,363,398,363,429,383,431,404,398,363,431,404,436,419,396,400,397,383,448,438,396,400,448,438,393,413,346,448,359,446,495,463,346,448,495,463,329,463,346,448,329,463,329,450,127,463,9,463,27,449,127,463,27,449,41,445,127,463,41,445,52,438,127,463,52,438,64,428,127,463,64,428,77,413,127,463,77,413,107,377,127,463,107,377,416,-7,77,413,109,68,107,105,75,67,69,42,126,28,126,28,69,42,172,0,126,28,172,0,144,19,144,19,172,0,172,13,77,105,75,67,114,44,77,105,114,44,109,68,77,105,109,68,77,
-413,172,0,9,13,9,0,75,67,126,28,114,44,27,449,9,463,9,450,107,377,77,413,107,105,441,430,398,363,436,419,413,463,37,463,92,404,413,463,92,404,111,406,413,463,111,406,339,406,413,463,339,406,358,404,413,463,358,404,373,398,413,463,373,398,383,386,413,463,383,386,390,369,413,463,390,369,395,345,413,463,395,345,413,345,37,463,37,344,55,344,37,463,55,344,60,369,37,463,60,369,67,387,37,463,67,387,78,398,37,463,78,398,92,404,307,264,290,263,305,204,305,204,290,263,288,206,288,206,290,263,159,263,288,206,159,263,158,206,141,204,158,206,143,264,141,204,143,264,131,270,116,295,117,170,121,280,121,280,117,170,122,185,121,280,122,185,131,270,131,270,122,185,130,197,131,270,130,197,141,204,116,295,114,316,117,170,117,170,114,316,114,152,114,152,114,316,98,316,114,152,98,316,98,152,336,316,334,295,336,152,336,316,336,152,352,152,336,316,352,152,352,316,336,152,334,295,334,172,334,172,334,295,329,280,334,172,329,280,328,187,328,187,329,280,320,270,328,187,320,270,318,198,318,198,320,270,307,264,318,198,307,264,305,204,402,80,389,69,430,0,430,0,389,69,371,62,430,0,371,62,348,59,430,0,430,120,413,120,430,0,413,120,410,97,430,0,410,97,402,80,348,59,98,59,430,0,430,0,98,59,78,62,430,0,78,62,20,0,20,0,78,62,61,68,20,0,61,68,49,80,20,0,49,80,20,120,20,120,49,80,40,97,20,120,40,97,38,120,158,206,159,263,143,264,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,114,142,113,34,126,105,126,105,113,34,177,1,126,105,177,1,144,73,144,73,177,1,166,47,182,35,166,47,177,1,182,35,177,1,252,-9,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,232,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,114,142,106,185,113,34,113,34,106,185,104,232,34,152,65,85,65,379,34,152,65,379,34,313,34,
-152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,392,144,381,107,391,33,391,33,381,107,364,75,391,33,364,75,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,236,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,439,84,402,236,399,188,439,84,399,188,392,144,439,84,392,144,391,33,253,16,252,-9,328,1,113,34,104,232,65,85,312,27,328,1,328,37,182,35,252,-9,198,26,69,35,58,23,208,0,208,0,58,23,40,16,208,0,40,16,13,13,13,13,40,16,12,13,74,411,75,384,155,434,74,411,155,434,69,429,69,429,155,434,162,436,69,429,162,436,492,463,492,463,162,436,172,437,353,37,342,24,492,0,492,0,342,24,324,17,492,0,324,17,297,13,492,463,172,437,333,437,492,463,333,437,344,436,492,463,344,436,351,433,492,463,351,433,356,429,492,463,356,429,358,422,492,463,358,422,359,412,492,463,359,412,448,440,492,463,448,440,466,447,492,463,466,447,492,450,430,77,430,384,359,412,359,412,430,384,431,411,359,412,431,411,437,429,448,23,437,35,359,87,359,87,437,35,431,52,359,87,431,52,359,412,163,23,153,35,75,85,75,85,153,35,147,53,75,85,147,53,75,384,75,384,147,53,146,79,75,384,146,79,146,414,75,384,146,414,147,424,75,384,147,424,150,430,75,384,150,430,155,434,492,463,13,463,40,447,492,463,40,447,58,441,492,463,58,441,69,429,492,0,492,13,466,17,492,0,466,17,448,23,492,0,448,23,357,57,492,0,357,57,353,37,208,0,207,13,181,16,208,0,181,16,163,23,208,0,163,23,74,55,208,0,74,55,69,35,208,0,13,13,13,0,74,55,163,23,75,85,492,0,297,13,297,0,357,57,448,23,359,87,359,412,431,52,430,77,40,447,13,
-463,13,450,448,440,359,412,437,429,155,437,166,437,166,438,192,463,166,438,217,434,192,463,217,434,232,461,232,461,217,434,255,423,232,461,255,423,267,456,267,456,255,423,282,403,267,456,282,403,298,446,298,446,282,403,298,373,298,446,298,373,323,434,323,434,298,373,303,333,323,434,303,333,316,226,316,226,298,298,291,214,291,214,298,298,283,269,291,214,283,269,263,206,263,206,283,269,259,248,263,206,259,248,230,203,230,203,259,248,226,234,230,203,226,234,190,202,190,202,226,234,184,230,190,202,184,230,180,202,180,202,184,230,176,230,180,202,176,230,170,202,170,202,176,230,168,230,170,202,168,230,161,202,161,202,168,230,160,231,161,202,160,231,152,203,152,203,160,231,151,231,152,203,151,231,141,232,141,78,141,232,70,386,141,78,70,386,143,51,143,51,70,386,70,85,141,232,141,204,152,203,380,336,378,356,378,315,378,315,378,356,374,375,378,315,374,375,373,294,373,294,374,375,367,392,373,294,367,392,365,276,365,276,367,392,357,407,365,276,357,407,354,259,354,259,357,407,345,420,354,259,345,420,340,245,340,245,345,420,323,434,340,245,323,434,316,226,192,463,11,463,37,447,192,463,37,447,54,441,192,463,54,441,64,430,192,463,64,430,69,412,192,463,69,412,70,386,192,463,70,386,148,434,192,463,148,434,155,437,192,463,155,437,166,438,141,413,142,422,70,386,141,413,70,386,141,232,144,429,148,434,70,386,144,429,70,386,142,422,207,0,207,13,179,16,207,0,179,16,160,22,207,0,160,22,69,55,207,0,69,55,65,35,207,0,65,35,55,23,207,0,55,23,38,16,207,0,38,16,11,13,207,0,11,13,11,0,70,85,69,55,160,22,70,85,160,22,148,33,70,85,148,33,143,51,37,447,11,463,11,450,298,298,316,226,303,333,217,434,166,438,166,437,389,463,21,463,121,437,389,463,121,437,266,437,389,463,266,437,300,435,389,463,300,435,327,427,389,463,327,427,348,412,389,463,348,412,363,387,389,463,363,387,372,351,389,463,372,351,389,351,208,227,21,10,104,66,208,227,104,66,270,257,208,227,270,257,121,437,208,227,121,437,21,463,208,227,21,463,21,453,386,93,370,78,401,0,401,0,370,78,349,
-69,401,0,349,69,320,66,401,0,420,143,404,143,401,0,404,143,396,115,401,0,396,115,386,93,401,0,320,66,104,66,401,0,104,66,21,10,401,0,21,10,21,0,410,463,17,463,98,432,410,463,98,432,136,434,410,463,136,434,178,434,410,463,178,434,249,434,410,463,249,434,291,434,410,463,291,434,329,432,410,463,329,432,356,425,410,463,356,425,375,409,410,463,375,409,388,383,410,463,388,383,398,345,410,463,398,345,415,345,268,22,256,33,178,86,178,86,256,33,251,51,178,86,251,51,178,434,178,434,251,51,249,77,178,434,249,77,249,434,17,463,12,345,30,345,17,463,30,345,39,383,17,463,39,383,52,409,17,463,52,409,71,425,17,463,71,425,98,432,316,0,316,13,288,16,316,0,288,16,268,22,316,0,268,22,177,55,316,0,177,55,172,35,316,0,172,35,160,23,316,0,160,23,141,16,316,0,141,16,112,13,316,0,112,13,112,0,177,55,268,22,178,86,26,424,35,427,36,447,36,447,35,427,46,431,36,447,46,431,54,457,54,457,46,431,57,434,54,457,57,434,74,465,74,465,57,434,68,436,74,465,68,436,77,437,77,437,118,429,94,470,94,470,118,429,114,472,94,470,74,465,77,437,277,305,275,305,294,50,277,305,294,50,292,77,277,305,292,77,292,213,277,305,292,213,295,361,465,469,456,469,470,451,470,451,456,469,448,470,470,451,448,470,414,438,414,438,448,470,404,462,414,438,404,462,365,403,365,403,404,462,362,441,365,403,362,441,327,351,327,351,362,441,325,406,327,351,325,406,301,286,301,286,325,406,295,361,301,286,295,361,292,213,474,467,470,451,474,451,474,467,474,451,483,465,483,465,474,451,479,450,483,465,479,450,483,449,488,449,492,448,492,461,488,449,492,461,483,449,483,449,492,461,483,465,364,0,364,13,334,16,364,0,334,16,313,22,364,0,313,22,219,55,364,0,219,55,214,34,364,0,214,34,202,23,364,0,202,23,181,16,364,0,181,16,150,13,364,0,150,13,150,0,237,411,220,206,294,50,237,411,294,50,260,364,260,364,294,50,275,305,219,55,313,22,220,86,220,86,313,22,301,32,220,86,301,32,220,206,220,206,301,32,294,50,118,429,153,404,163,465,163,
-465,153,404,182,360,163,465,182,360,204,445,204,445,182,360,204,295,204,445,204,295,237,411,237,411,204,295,220,206,114,472,118,429,163,465,470,451,474,467,465,469,26,424,36,447,20,435,374,450,374,450,343,448,343,448,374,450,374,463,343,448,374,463,323,443,323,443,374,463,230,423,323,443,230,423,231,406,232,366,231,406,231,392,232,366,231,392,189,358,189,358,231,392,171,387,189,358,171,387,152,336,152,336,171,387,125,303,302,60,301,98,232,366,232,366,301,98,301,366,232,366,301,366,302,406,302,406,301,366,302,392,232,366,302,406,304,422,232,366,304,422,310,434,232,366,305,41,302,60,231,406,232,366,310,434,231,406,310,434,323,443,374,463,160,463,191,448,374,463,191,448,211,444,374,463,211,444,224,435,374,463,224,435,230,423,115,369,68,338,101,223,115,369,101,223,107,264,115,369,107,264,125,303,115,369,125,303,171,387,24,231,32,179,36,292,36,292,32,179,55,135,36,292,55,135,68,338,68,338,55,135,94,101,68,338,94,101,101,223,465,127,434,223,426,179,465,127,426,179,420,96,420,96,426,179,406,145,420,96,406,145,376,119,428,264,434,223,465,338,465,338,434,223,465,127,465,338,465,127,497,292,497,292,465,127,497,172,497,292,497,172,509,231,417,369,361,387,387,335,417,369,387,335,413,303,417,369,413,303,428,264,417,369,428,264,465,338,349,358,387,335,361,387,349,358,361,387,302,392,349,358,302,392,301,366,302,72,320,72,340,103,340,103,320,72,369,78,340,103,369,78,376,119,376,119,369,78,420,96,302,60,302,72,301,98,301,98,302,72,340,103,374,0,374,13,348,16,374,0,348,16,328,20,374,0,328,20,231,59,374,0,231,59,228,41,374,0,228,41,219,28,374,0,219,28,205,19,374,0,205,19,185,15,374,0,185,15,160,13,374,0,160,13,160,0,232,98,186,104,219,72,232,98,219,72,231,72,232,98,231,72,313,28,232,98,313,28,305,41,232,98,305,41,232,366,231,72,231,59,328,20,231,72,328,20,313,28,149,123,123,150,148,80,149,123,148,80,219,72,149,123,219,72,186,104,106,184,101,223,94,101,106,184,94,101,148,80,106,184,148,80,123,150,191,448,160,463,160,450,43,23,170,
-0,60,37,60,37,170,0,123,23,60,37,123,23,81,59,81,59,123,23,118,29,81,59,118,29,116,36,116,36,118,43,109,93,109,93,118,43,122,53,109,93,122,53,218,230,218,230,122,53,129,65,218,230,129,65,139,80,144,338,218,230,176,416,144,338,176,416,173,429,173,429,175,437,144,338,218,230,139,80,153,98,153,98,237,202,218,230,218,230,237,202,232,327,218,230,232,327,212,357,109,93,81,59,116,36,144,338,175,437,109,387,109,387,175,437,179,443,109,387,179,443,83,418,83,418,179,443,186,446,83,418,186,446,226,463,226,463,186,446,195,448,226,463,195,448,205,449,205,449,226,450,226,463,226,463,16,463,40,446,226,463,40,446,61,437,226,463,61,437,83,418,365,414,359,406,380,380,380,380,359,406,351,395,380,380,351,395,341,380,341,380,263,283,280,257,280,257,263,283,303,104,280,257,303,104,415,65,415,65,303,104,316,84,415,65,316,84,326,67,488,463,321,463,341,449,488,463,341,449,354,446,488,463,354,446,363,442,488,463,363,442,367,436,488,463,367,436,369,427,488,463,369,427,443,440,488,463,443,440,463,447,488,463,463,447,488,450,369,427,380,380,404,408,369,427,404,408,424,428,369,427,424,428,443,440,368,421,365,414,380,380,368,421,380,380,369,427,341,380,280,257,380,380,333,23,326,19,493,0,493,0,326,19,316,16,493,0,316,16,304,15,339,35,493,0,457,22,339,35,457,22,443,31,339,35,443,31,430,45,339,35,430,45,415,65,339,35,415,65,338,43,415,65,326,67,333,54,415,65,333,54,338,43,263,283,232,327,237,202,263,283,237,202,303,104,473,16,457,22,493,0,473,16,493,0,493,13,338,28,333,23,493,0,338,28,493,0,339,35,286,13,286,0,493,0,286,13,493,0,304,15,218,230,212,357,195,381,218,230,195,381,183,400,218,230,183,400,176,416,170,0,170,13,148,16,170,0,148,16,133,19,170,0,133,19,123,23,26,17,7,13,170,0,26,17,170,0,43,23,170,0,7,13,7,0,341,449,321,463,321,450,40,446,16,463,16,450,369,450,369,450,344,449,344,449,369,450,369,463,344,449,369,463,325,445,325,445,369,463,223,418,325,445,223,418,226,394,226,189,226,394,226,
-215,226,189,226,215,218,215,226,189,307,31,299,49,226,189,299,49,297,77,297,215,297,189,351,194,297,215,351,194,305,215,305,215,351,194,347,223,297,77,297,394,226,189,226,189,297,394,300,419,226,189,300,419,226,394,226,394,300,419,310,435,226,394,310,435,325,445,369,463,155,463,179,449,369,463,179,449,198,444,369,463,198,444,213,434,369,463,213,434,223,418,433,460,413,433,440,238,440,238,413,433,402,398,440,238,402,398,400,210,400,210,402,398,398,356,400,210,398,356,397,316,433,460,440,238,464,477,464,477,440,238,467,279,464,477,467,279,475,413,475,413,467,279,474,397,474,384,474,397,467,279,474,384,467,279,477,334,493,462,507,470,507,483,493,462,507,483,484,448,484,448,507,483,464,477,484,448,464,477,478,431,478,431,464,477,475,413,347,223,351,194,374,245,374,245,351,194,400,210,374,245,400,210,390,278,390,278,400,210,397,316,477,334,476,346,476,359,477,334,476,359,475,372,477,334,475,372,474,384,369,0,369,13,341,15,369,0,341,15,321,20,369,0,321,20,224,56,369,0,224,56,218,35,369,0,218,35,206,23,369,0,206,23,185,16,369,0,185,16,155,13,369,0,155,13,155,0,226,87,224,56,321,20,226,87,321,20,307,31,226,87,307,31,226,189,176,223,148,245,171,194,176,223,171,194,226,189,176,223,226,189,218,215,126,316,124,356,122,210,126,316,122,210,133,278,133,278,122,210,171,194,133,278,171,194,148,245,122,210,124,356,121,398,122,210,121,398,110,433,122,210,110,433,89,460,122,210,89,460,82,238,58,477,16,483,30,462,58,477,30,462,39,448,58,477,39,448,45,431,58,477,45,431,48,413,58,477,48,413,48,397,58,477,48,397,55,279,58,477,55,279,82,238,58,477,82,238,89,460,55,279,48,397,48,384,55,279,48,384,47,372,55,279,47,372,46,359,55,279,46,359,46,346,55,279,46,346,45,334,30,462,16,483,16,470,179,449,155,463,155,450,81,66,65,68,221,0,221,0,65,68,53,73,221,0,53,73,20,0,20,0,53,73,44,83,20,0,44,83,20,120,20,120,44,83,39,98,20,120,39,98,38,120,38,120,39,98,37,120,37,278,43,222,46,335,46,335,43,222,61,177,46,
-335,61,177,75,388,75,388,61,177,91,140,75,388,91,140,120,432,120,432,91,140,117,280,133,112,117,280,91,140,260,473,209,438,260,448,260,448,311,440,337,463,337,463,311,440,351,417,337,463,351,417,399,435,399,435,351,417,380,382,399,435,380,382,398,335,404,280,427,140,445,392,445,392,427,140,458,176,445,392,458,176,474,338,474,338,458,176,477,222,474,338,477,222,484,278,399,435,398,335,404,280,399,435,404,280,445,392,337,463,260,473,260,448,366,156,385,112,386,193,386,193,385,112,427,140,386,193,427,140,399,235,399,235,427,140,404,280,300,0,332,66,305,113,305,113,332,66,333,92,305,113,333,92,339,128,339,128,333,92,385,112,339,128,385,112,366,156,475,85,467,75,501,0,501,0,467,75,455,68,501,0,455,68,440,66,501,0,501,118,483,118,501,0,483,118,480,99,501,0,480,99,475,85,332,66,300,0,501,0,332,66,501,0,440,66,183,462,120,432,140,375,183,462,140,375,169,413,183,462,169,413,209,438,183,462,209,438,260,473,120,432,117,280,123,329,120,432,123,329,140,375,185,92,187,66,215,113,185,92,215,113,181,130,185,92,181,130,154,159,185,92,154,159,134,196,185,92,134,196,133,112,121,238,117,280,133,112,121,238,133,112,134,196,187,66,81,66,221,0,187,66,221,0,215,113,305,113,339,128,305,112,13,577,14,565,14,587,14,587,14,565,19,556,14,587,19,556,19,597,19,597,19,556,26,549,19,597,26,549,27,604,27,604,26,549,35,544,27,604,35,544,36,609,36,609,35,544,46,542,36,609,46,542,47,611,47,611,46,542,57,544,47,611,57,544,58,609,58,609,57,544,67,549,58,609,67,549,67,604,67,604,67,549,75,556,67,604,75,556,75,597,75,597,75,556,80,565,75,597,80,565,80,587,80,587,80,565,82,576,73,32,62,21,220,0,220,0,62,21,42,16,220,0,42,16,13,13,13,13,42,16,12,13,220,463,13,463,42,447,220,463,42,447,62,442,220,463,62,442,74,431,220,463,74,431,79,413,220,463,79,413,171,442,220,463,171,442,191,448,220,463,191,448,220,450,171,22,159,33,80,78,80,78,159,33,153,52,80,78,153,52,80,386,80,386,153,52,152,78,80,386,152,
-78,152,386,80,386,152,386,153,413,80,386,153,413,159,431,80,386,159,431,171,442,80,386,171,442,79,413,152,577,153,565,153,587,153,587,153,565,158,556,153,587,158,556,158,597,158,597,158,556,165,549,158,597,165,549,166,604,166,604,165,549,174,544,166,604,174,544,175,609,175,609,174,544,185,542,175,609,185,542,186,611,186,611,185,542,197,544,186,611,197,544,197,609,197,609,197,544,207,549,197,609,207,549,207,604,207,604,207,549,214,556,207,604,214,556,214,597,214,597,214,556,219,565,214,597,219,565,219,587,219,587,219,565,221,576,220,0,220,13,191,16,220,0,191,16,171,22,220,0,171,22,79,51,220,0,79,51,73,32,220,0,13,13,13,0,79,51,171,22,80,78,42,447,13,463,13,450,26,424,35,427,36,447,36,447,35,427,46,431,36,447,46,431,54,457,54,457,46,431,57,434,54,457,57,434,74,465,74,465,57,434,68,436,74,465,68,436,77,437,77,437,118,429,94,470,94,470,118,429,114,472,94,470,74,465,77,437,277,305,275,305,294,50,277,305,294,50,292,77,277,305,292,77,292,213,277,305,292,213,295,361,364,0,364,13,334,16,364,0,334,16,313,22,364,0,313,22,219,55,364,0,219,55,214,34,364,0,214,34,202,23,364,0,202,23,181,16,364,0,181,16,150,13,364,0,150,13,150,0,237,411,220,206,294,50,237,411,294,50,260,364,260,364,294,50,275,305,219,55,313,22,220,86,220,86,313,22,301,32,220,86,301,32,220,206,220,206,301,32,294,50,465,469,456,469,470,451,470,451,456,469,448,470,470,451,448,470,414,438,414,438,448,470,404,462,414,438,404,462,365,403,365,403,404,462,362,441,365,403,362,441,327,351,327,351,362,441,325,406,327,351,325,406,301,286,301,286,325,406,295,361,301,286,295,361,292,213,474,467,470,451,474,451,474,467,474,451,483,465,483,465,474,451,479,450,483,465,479,450,483,449,488,449,492,448,492,461,488,449,492,461,483,449,483,449,492,461,483,465,291,577,293,565,293,587,293,587,293,565,298,556,293,587,298,556,298,597,298,597,298,556,305,549,298,597,305,549,305,604,305,604,305,549,314,544,305,604,314,544,315,609,315,609,314,544,325,542,315,609,325,542,326,
-611,326,611,325,542,336,544,326,611,336,544,337,609,337,609,336,544,346,549,337,609,346,549,346,604,346,604,346,549,353,556,346,604,353,556,353,597,353,597,353,556,358,565,353,597,358,565,358,587,358,587,358,565,360,576,152,577,153,565,153,587,153,587,153,565,158,556,153,587,158,556,158,597,158,597,158,556,165,549,158,597,165,549,166,604,166,604,165,549,174,544,166,604,174,544,175,609,175,609,174,544,185,542,175,609,185,542,186,611,186,611,185,542,197,544,186,611,197,544,197,609,197,609,197,544,207,549,197,609,207,549,207,604,207,604,207,549,214,556,207,604,214,556,214,597,214,597,214,556,219,565,214,597,219,565,219,587,219,587,219,565,221,576,118,429,153,404,163,465,163,465,153,404,182,360,163,465,182,360,204,445,204,445,182,360,204,295,204,445,204,295,237,411,237,411,204,295,220,206,114,472,118,429,163,465,470,451,474,467,465,469,26,424,36,447,20,435,88,234,98,265,111,313,111,313,98,265,114,286,111,313,114,286,158,322,158,322,114,286,133,298,158,322,133,298,154,302,154,302,181,291,158,322,158,322,181,291,191,316,220,463,222,412,225,463,225,463,222,412,228,419,225,463,228,419,231,460,231,460,228,419,233,426,231,460,233,426,236,456,236,456,233,426,237,432,236,456,237,432,239,450,239,450,237,432,240,438,239,450,240,438,241,443,222,412,220,463,212,463,222,412,212,463,206,461,222,412,206,461,201,458,222,412,201,458,196,453,222,412,196,453,193,448,222,412,193,448,176,355,201,262,216,223,218,300,218,300,216,223,226,182,218,300,226,182,239,277,239,277,226,182,232,145,239,277,232,145,244,45,239,277,244,45,255,250,255,250,244,45,259,70,255,250,259,70,266,220,266,220,259,70,266,45,266,220,266,45,297,315,297,315,266,45,275,23,297,315,275,23,288,131,288,131,275,23,286,7,288,131,286,7,299,-2,191,316,181,291,201,262,191,316,201,262,218,300,244,45,232,145,226,117,244,45,226,117,226,24,226,24,226,117,217,83,226,24,217,83,206,7,206,7,217,83,202,49,206,7,202,49,183,23,109,1,152,-6,126,26,126,26,152,-6,158,13,183,23,158,13,181,-2,183,23,181,-2,206,7,294,109,288,131,299,-2,297,
-315,288,131,365,315,352,54,348,44,350,12,350,12,348,44,343,38,350,12,343,38,337,37,337,37,324,43,334,-1,334,-1,324,43,315,-6,294,109,299,-2,302,84,302,84,299,-2,315,-6,302,84,315,-6,313,61,313,61,315,-6,324,43,361,33,368,60,370,91,361,33,370,91,360,91,361,33,360,91,357,70,361,33,357,70,352,54,361,33,352,54,350,12,337,37,334,-1,350,12,158,13,152,-6,181,-2,126,26,105,60,109,1,109,1,105,60,92,106,109,1,92,106,73,23,73,23,92,106,85,153,73,23,85,153,84,191,84,191,88,234,72,289,72,289,88,234,111,313,73,23,84,191,72,289,73,23,72,289,45,58,45,58,72,289,44,253,45,58,44,253,27,103,27,103,44,253,26,208,27,103,26,208,20,156,176,355,193,448,152,355,51,18,90,0,65,158,65,158,90,0,80,91,88,165,80,91,85,114,88,165,85,114,98,131,101,199,94,215,98,131,98,131,94,215,91,234,88,165,91,234,84,303,88,165,84,303,69,172,69,172,84,303,56,283,69,172,56,283,54,183,54,183,56,283,43,197,199,320,170,322,178,301,178,301,170,322,157,302,135,298,157,302,170,322,135,298,170,322,121,317,175,463,177,412,181,463,181,463,177,412,183,419,181,463,183,419,186,460,186,460,183,419,189,426,186,460,189,426,191,456,191,456,189,426,193,432,191,456,193,432,195,450,195,450,193,432,195,438,195,450,195,438,196,443,177,412,175,463,167,463,177,412,167,463,161,461,177,412,161,461,156,458,177,412,156,458,152,453,177,412,152,453,148,448,177,412,148,448,131,355,272,278,254,299,255,222,272,278,255,222,264,225,272,278,264,225,272,231,272,278,272,231,277,239,272,278,277,239,279,250,221,232,228,226,228,312,228,312,228,226,236,222,228,312,236,222,254,299,254,299,236,222,245,220,254,299,245,220,255,222,178,301,195,297,199,320,199,320,195,297,208,292,199,320,208,292,228,312,228,312,208,292,215,284,228,312,215,284,218,273,218,273,221,232,228,312,218,273,218,270,221,232,221,232,218,270,217,266,221,232,217,266,216,240,216,240,217,266,216,262,216,240,216,262,215,257,121,317,84,303,94,255,121,317,94,255,103,273,121,317,103,273,117,288,121,317,117,
-288,135,298,94,255,84,303,91,234,39,258,34,230,36,213,39,258,36,213,43,197,39,258,43,197,56,283,116,143,136,149,129,177,129,177,136,149,151,174,162,175,151,174,155,152,116,143,129,177,113,186,116,143,113,186,101,199,116,143,101,199,98,131,88,165,98,131,91,234,155,152,151,174,136,149,163,151,169,150,170,176,170,176,169,150,174,149,170,176,174,149,177,178,177,178,174,149,180,148,177,178,180,148,184,180,184,180,180,148,186,148,184,180,186,148,193,180,193,180,186,148,198,149,193,180,198,149,203,180,203,180,198,149,208,152,203,180,208,152,210,177,210,177,208,152,214,156,210,177,214,156,216,174,216,174,214,156,218,160,216,174,218,160,219,170,219,170,218,160,220,166,162,175,155,152,163,151,162,175,163,151,170,176,113,38,151,-6,132,31,132,31,151,-6,154,28,183,31,154,28,182,-2,183,31,182,-2,211,8,96,51,85,69,90,0,96,51,90,0,151,-6,96,51,151,-6,113,38,80,91,90,0,85,69,17,85,19,65,21,107,21,107,19,65,29,41,21,107,29,41,31,128,31,128,29,41,51,18,31,128,51,18,46,145,46,145,51,18,65,158,285,95,275,102,264,56,264,56,275,102,254,76,264,56,254,76,239,28,239,28,254,76,232,55,239,28,232,55,211,8,211,8,232,55,209,40,211,8,209,40,183,31,154,28,151,-6,182,-2,65,158,80,91,88,165,216,240,215,257,215,250,131,355,148,448,107,355,22,246,27,255,31,285,31,285,27,255,34,264,31,285,34,264,46,302,46,302,34,264,42,270,46,302,42,270,51,272,51,272,54,271,62,314,62,314,54,271,58,267,62,314,58,267,61,258,18,264,7,241,17,238,18,264,17,238,22,246,18,264,22,246,31,285,122,266,121,266,123,0,122,266,123,0,123,244,122,266,123,244,143,287,123,244,140,260,143,287,143,287,140,260,155,271,143,287,155,271,164,303,164,303,155,271,169,278,164,303,169,278,184,314,184,314,169,278,182,282,184,314,182,282,195,284,195,284,214,281,203,320,203,320,214,281,223,322,123,0,121,266,118,286,123,0,118,286,114,302,123,0,114,302,106,312,123,0,106,312,95,317,123,0,95,317,79,319,123,0,79,319,64,219,123,0,64,219,64,
-0,203,320,184,314,195,284,305,-91,305,223,302,255,305,-91,302,255,292,282,305,-91,292,282,306,-107,275,303,252,317,254,-144,275,303,254,-144,257,-151,275,303,257,-151,306,-107,275,303,306,-107,292,282,257,-151,316,-151,312,-142,257,-151,312,-142,309,-132,257,-151,309,-132,307,-120,257,-151,307,-120,306,-107,252,317,223,322,228,273,252,317,228,273,238,259,252,317,238,259,244,240,252,317,244,240,246,216,252,317,246,216,247,-111,252,317,247,-111,248,-126,252,317,248,-126,251,-136,252,317,251,-136,254,-144,246,216,246,-90,247,-111,185,463,188,412,191,463,191,463,188,412,194,419,191,463,194,419,197,460,197,460,194,419,199,426,197,460,199,426,202,456,202,456,199,426,203,432,202,456,203,432,205,450,205,450,203,432,205,438,205,450,205,438,206,443,188,412,185,463,178,463,188,412,178,463,171,461,188,412,171,461,166,458,188,412,166,458,162,453,188,412,162,453,159,448,188,412,159,448,141,355,63,242,64,219,79,319,63,242,79,319,62,314,63,242,62,314,61,258,62,314,46,302,51,272,141,355,159,448,118,355,223,322,214,281,228,273,124,463,126,412,130,463,130,463,126,412,132,419,130,463,132,419,135,460,135,460,132,419,137,426,135,460,137,426,140,456,140,456,137,426,141,432,140,456,141,432,143,450,143,450,141,432,144,438,143,450,144,438,145,443,126,412,124,463,116,463,126,412,116,463,110,461,126,412,110,461,105,458,126,412,105,458,101,453,126,412,101,453,98,448,126,412,98,448,80,355,63,264,79,306,58,270,58,270,79,306,58,299,58,270,58,299,52,274,52,274,58,299,44,275,39,275,44,275,58,299,39,275,58,299,36,292,79,6,91,-3,101,314,101,314,91,-3,108,-6,101,314,108,-6,123,322,123,322,108,-6,125,55,123,322,125,55,125,320,127,47,129,-1,130,43,130,43,129,-1,147,10,130,43,147,10,134,40,134,40,147,10,139,39,147,40,139,39,147,10,147,40,147,10,163,28,187,70,177,75,176,49,176,49,177,75,168,60,176,49,168,60,163,28,163,28,168,60,161,50,163,28,161,50,154,43,129,-1,127,47,125,51,129,-1,125,51,125,55,129,-1,125,55,108,-6,79,306,63,264,65,254,79,306,65,254,66,241,79,306,66,241,68,37,79,
-306,68,37,72,20,79,306,72,20,79,6,79,306,79,6,101,314,66,241,66,55,68,37,36,292,14,285,22,274,36,292,22,274,28,274,36,292,28,274,34,275,36,292,34,275,39,275,22,274,14,285,14,273,147,40,163,28,154,43,80,355,98,448,56,355,26,246,32,255,36,285,36,285,32,255,39,264,36,285,39,264,50,302,50,302,39,264,46,270,50,302,46,270,55,272,55,272,61,269,66,314,66,314,61,269,65,262,66,314,65,262,67,251,23,264,11,241,21,238,23,264,21,238,26,246,23,264,26,246,36,285,69,138,72,93,69,223,68,238,69,223,84,319,68,238,84,319,67,251,67,251,84,319,66,314,76,400,76,379,81,410,81,410,76,379,81,369,81,410,81,369,89,417,89,417,81,369,89,362,89,417,89,362,98,422,98,422,89,362,98,357,98,422,98,357,109,424,109,424,98,357,109,355,109,424,109,355,119,422,119,422,109,355,119,357,119,422,119,357,129,417,129,417,119,357,129,362,129,417,129,362,137,410,137,410,129,362,137,369,137,410,137,369,142,400,142,400,137,369,142,379,142,400,142,379,144,390,127,122,127,270,126,287,127,122,126,287,120,301,127,122,120,301,111,311,127,122,111,311,129,95,198,322,178,322,194,305,198,322,194,305,209,300,198,322,209,300,243,315,280,105,271,69,285,25,285,25,271,69,254,39,285,25,254,39,243,1,243,1,254,39,231,20,243,1,231,20,198,13,198,13,169,20,195,-6,195,-6,169,20,149,40,195,-6,149,40,142,1,142,1,149,40,136,66,142,1,136,66,129,95,106,21,142,1,129,95,106,21,129,95,111,311,106,21,111,311,99,317,106,21,99,317,84,319,106,21,84,319,84,53,84,319,69,223,72,93,84,319,72,93,84,53,66,314,50,302,55,272,209,300,223,292,243,315,243,315,223,292,236,281,243,315,236,281,248,267,248,267,261,246,283,296,283,296,261,246,271,222,283,296,271,222,278,197,283,296,283,146,285,25,283,296,285,25,316,263,316,263,285,25,317,60,316,263,317,60,338,217,338,217,317,60,339,106,338,217,339,106,346,158,283,296,278,197,282,171,283,296,282,171,283,146,283,296,243,315,248,267,198,13,195,-6,243,1,215,400,215,379,220,410,220,410,215,
-379,220,369,220,410,220,369,228,417,228,417,220,369,228,362,228,417,228,362,237,422,237,422,228,362,237,357,237,422,237,357,248,424,248,424,237,357,248,355,248,424,248,355,259,422,259,422,248,355,259,357,259,422,259,357,268,417,268,417,259,357,268,362,268,417,268,362,276,410,276,410,268,362,276,369,276,410,276,369,281,400,281,400,276,369,281,379,281,400,281,379,283,390,209,463,211,412,214,463,214,463,211,412,217,419,214,463,217,419,220,460,220,460,217,419,222,426,220,460,222,426,225,456,225,456,222,426,226,432,225,456,226,432,228,450,228,450,226,432,229,438,228,450,229,438,230,443,211,412,209,463,201,463,211,412,201,463,194,461,211,412,194,461,189,458,211,412,189,458,185,453,211,412,185,453,182,448,211,412,182,448,165,355,165,355,182,448,141,355,215,379,215,400,213,390,280,105,285,25,283,146,194,305,178,322,178,308,76,379,76,400,74,390,88,234,98,265,111,313,111,313,98,265,114,286,111,313,114,286,158,322,158,322,114,286,133,298,158,322,133,298,154,302,154,302,181,291,158,322,158,322,181,291,191,316,201,262,216,223,218,300,218,300,216,223,226,182,218,300,226,182,239,277,239,277,226,182,232,145,239,277,232,145,244,45,239,277,244,45,255,250,255,250,244,45,259,70,255,250,259,70,266,220,266,220,259,70,266,45,266,220,266,45,297,315,297,315,266,45,275,23,297,315,275,23,288,131,288,131,275,23,286,7,288,131,286,7,299,-2,191,316,181,291,201,262,191,316,201,262,218,300,244,45,232,145,226,117,244,45,226,117,226,24,226,24,226,117,217,83,226,24,217,83,206,7,206,7,217,83,202,49,206,7,202,49,183,23,109,1,152,-6,126,26,126,26,152,-6,158,13,183,23,158,13,181,-2,183,23,181,-2,206,7,294,109,288,131,299,-2,297,315,288,131,365,315,352,54,348,44,350,12,350,12,348,44,343,38,350,12,343,38,337,37,337,37,324,43,334,-1,334,-1,324,43,315,-6,294,109,299,-2,302,84,302,84,299,-2,315,-6,302,84,315,-6,313,61,313,61,315,-6,324,43,361,33,368,60,370,91,361,33,370,91,360,91,361,33,360,91,357,70,361,33,357,70,352,54,361,33,352,54,350,12,337,37,334,-1,350,
-12,158,13,152,-6,181,-2,126,26,105,60,109,1,109,1,105,60,92,106,109,1,92,106,73,23,73,23,92,106,85,153,73,23,85,153,84,191,84,191,88,234,72,289,72,289,88,234,111,313,73,23,84,191,72,289,73,23,72,289,45,58,45,58,72,289,44,253,45,58,44,253,27,103,27,103,44,253,26,208,27,103,26,208,20,156,151,454,174,459,174,459,187,478,174,459,202,451,187,478,202,451,220,473,220,473,202,451,222,433,220,473,222,433,250,458,250,458,222,433,234,406,250,458,234,406,240,376,241,280,254,286,241,330,241,280,241,330,238,314,241,280,238,314,237,250,241,280,237,250,251,226,241,280,251,226,242,279,327,159,323,192,320,109,320,109,323,192,313,221,320,109,313,221,300,64,300,64,313,221,296,247,300,64,296,247,272,267,269,27,300,64,272,267,269,27,272,267,266,141,269,27,266,141,262,101,269,27,262,101,251,66,269,27,251,66,233,39,269,27,233,39,230,2,272,267,242,279,251,226,272,267,251,226,262,191,272,267,262,191,266,141,238,314,232,301,237,250,237,250,232,301,224,292,237,250,224,292,221,262,221,262,224,292,213,289,181,16,184,-6,210,22,210,22,184,-6,230,2,210,22,230,2,233,39,119,416,133,439,143,472,143,472,133,439,151,454,143,472,151,454,187,478,187,478,151,454,174,459,109,350,111,386,106,450,109,350,106,450,106,-122,109,350,106,-122,108,-109,109,350,108,-109,109,-94,106,450,111,386,119,416,106,450,119,416,143,472,106,450,76,411,98,-151,106,450,98,-151,100,-144,106,450,100,-144,103,-134,106,450,103,-134,106,-122,98,-151,76,411,57,349,98,-151,57,349,50,261,98,-151,50,261,50,-94,98,-151,50,-94,49,-107,98,-151,49,-107,48,-119,98,-151,48,-119,45,-131,98,-151,45,-131,42,-141,98,-151,42,-141,38,-151,160,18,140,26,151,-3,160,18,151,-3,166,-5,160,18,166,-5,181,16,151,-3,140,26,137,2,137,2,140,26,124,37,137,2,124,37,123,10,123,10,124,37,113,50,123,10,113,50,109,63,109,63,109,22,123,10,207,266,213,289,206,290,207,266,206,290,199,266,166,263,175,262,177,295,177,295,175,262,182,262,177,295,182,262,183,294,183,294,182,262,188,263,183,294,188,263,190,293,190,
-293,188,263,193,265,190,293,193,265,198,291,198,291,193,265,199,266,198,291,199,266,206,290,149,284,149,274,152,288,152,288,149,274,153,269,152,288,153,269,157,291,157,291,153,269,158,265,157,291,158,265,166,294,166,294,158,265,166,263,166,294,166,263,177,295,242,345,254,286,250,458,242,345,250,458,240,376,288,321,292,331,293,405,293,405,292,331,296,341,293,405,296,341,299,370,299,370,296,341,298,351,299,370,298,351,299,360,265,293,275,302,276,435,276,435,275,302,282,311,276,435,282,311,293,405,293,405,282,311,288,321,276,435,250,458,254,286,276,435,254,286,265,293,241,330,254,286,242,345,207,266,221,262,213,289,184,-6,181,16,166,-5,149,274,149,284,148,280,49,269,58,271,58,271,68,320,58,271,92,251,68,320,92,251,109,299,109,299,92,251,117,200,109,299,117,200,135,248,135,248,117,200,134,134,135,248,134,134,144,71,168,68,161,117,166,-148,166,-148,161,117,151,183,166,-148,151,183,149,25,149,25,151,183,144,71,144,71,151,183,135,248,166,-148,178,-137,168,68,168,68,178,-137,180,0,168,68,180,0,241,315,241,315,180,0,311,315,149,25,144,13,148,-151,149,25,148,-151,166,-148,139,1,134,-11,135,-149,139,1,135,-149,148,-151,139,1,148,-151,144,13,134,-11,130,-23,135,-149,135,-149,130,-23,126,-36,135,-149,126,-36,125,-142,125,-142,126,-36,121,-51,125,-142,121,-51,119,-132,119,-132,121,-51,118,-66,119,-132,118,-66,115,-80,115,-119,119,-132,115,-80,115,-119,115,-80,114,-93,115,-119,114,-93,113,-104,190,-103,191,-82,190,-63,190,-103,190,-63,188,-45,190,-103,188,-45,186,-27,190,-103,186,-27,186,-122,186,-122,186,-27,183,-12,186,-122,183,-12,180,0,186,-122,180,0,178,-137,30,249,39,262,45,313,45,313,39,262,49,269,45,313,49,269,68,320,68,320,49,269,58,271,28,297,16,272,17,209,28,297,17,209,22,232,28,297,22,232,30,249,28,297,30,249,45,313,9,242,7,209,17,209,9,242,17,209,16,272,59,405,63,376,66,433,66,433,63,376,75,352,66,433,75,352,86,454,86,454,75,352,85,406,95,331,85,406,75,352,90,423,101,435,113,468,113,468,101,435,117,443,113,468,117,443,143,476,143,476,117,443,133,447,143,476,133,
-447,148,448,148,448,191,443,173,478,173,478,191,443,203,476,86,454,85,406,90,423,86,454,90,423,113,468,277,397,284,403,284,445,284,445,284,403,289,410,284,445,289,410,292,426,292,426,289,410,291,418,216,430,232,414,235,470,235,470,232,414,246,401,235,470,246,401,263,460,263,460,246,401,267,395,263,460,267,395,284,445,284,445,267,395,277,397,203,476,191,443,216,430,203,476,216,430,235,470,329,162,325,197,322,107,322,107,325,197,315,229,322,107,315,229,302,60,302,60,315,229,298,258,302,60,298,258,275,282,269,24,302,60,275,282,269,24,275,282,266,145,269,24,266,145,262,100,269,24,262,100,252,63,269,24,252,63,235,35,269,24,235,35,225,1,275,282,247,303,251,209,275,282,251,209,262,176,275,282,262,176,266,145,203,327,178,280,209,265,203,327,209,265,247,303,247,303,209,265,233,240,247,303,233,240,251,209,156,19,172,-6,169,14,169,14,172,-6,182,13,169,14,182,13,182,12,182,12,182,13,211,18,211,18,182,13,225,1,211,18,225,1,235,35,182,13,172,-6,225,1,173,478,143,476,148,448,96,98,121,2,106,72,106,72,121,2,120,48,130,36,120,48,121,2,130,36,121,2,172,-6,95,384,95,331,122,365,122,365,95,331,122,314,122,365,122,314,159,347,159,347,122,314,155,298,159,347,155,298,178,280,87,201,99,231,108,285,108,285,99,231,118,256,108,285,118,256,155,298,155,298,118,256,144,273,155,298,144,273,178,280,108,285,70,261,87,201,87,201,70,261,84,169,85,148,84,169,79,26,85,148,79,26,89,124,89,124,79,26,121,2,89,124,121,2,96,98,79,26,84,169,70,261,79,26,70,261,47,61,47,61,70,261,43,230,47,61,43,230,27,104,27,104,43,230,26,192,27,104,26,192,20,152,142,26,130,36,172,-6,142,26,172,-6,156,19,85,406,95,331,95,384,178,280,203,327,159,347,51,18,90,0,65,158,65,158,90,0,80,91,88,165,80,91,85,114,88,165,85,114,98,131,101,199,94,215,98,131,98,131,94,215,91,234,88,165,91,234,84,303,88,165,84,303,69,172,69,172,84,303,56,283,69,172,56,283,54,183,54,183,56,283,43,197,199,320,170,322,178,301,178,301,170,322,157,
-302,135,298,157,302,170,322,135,298,170,322,121,317,272,278,254,299,255,222,272,278,255,222,264,225,272,278,264,225,272,231,272,278,272,231,277,239,272,278,277,239,279,250,221,232,228,226,228,312,228,312,228,226,236,222,228,312,236,222,254,299,254,299,236,222,245,220,254,299,245,220,255,222,178,301,195,297,199,320,199,320,195,297,208,292,199,320,208,292,228,312,228,312,208,292,215,284,228,312,215,284,218,273,218,273,221,232,228,312,218,273,218,270,221,232,221,232,218,270,217,266,221,232,217,266,216,240,216,240,217,266,216,262,216,240,216,262,215,257,121,317,84,303,94,255,121,317,94,255,103,273,121,317,103,273,117,288,121,317,117,288,135,298,94,255,84,303,91,234,39,258,34,230,36,213,39,258,36,213,43,197,39,258,43,197,56,283,116,143,136,149,129,177,129,177,136,149,151,174,162,175,151,174,155,152,116,143,129,177,113,186,116,143,113,186,101,199,116,143,101,199,98,131,88,165,98,131,91,234,155,152,151,174,136,149,163,151,169,150,170,176,170,176,169,150,174,149,170,176,174,149,177,178,177,178,174,149,180,148,177,178,180,148,184,180,184,180,180,148,186,148,184,180,186,148,193,180,193,180,186,148,198,149,193,180,198,149,203,180,203,180,198,149,208,152,203,180,208,152,210,177,210,177,208,152,214,156,210,177,214,156,216,174,216,174,214,156,218,160,216,174,218,160,219,170,219,170,218,160,220,166,162,175,155,152,163,151,162,175,163,151,170,176,113,38,151,-6,132,31,132,31,151,-6,154,28,183,31,154,28,182,-2,183,31,182,-2,211,8,96,51,85,69,90,0,96,51,90,0,151,-6,96,51,151,-6,113,38,80,91,90,0,85,69,17,85,19,65,21,107,21,107,19,65,29,41,21,107,29,41,31,128,31,128,29,41,51,18,31,128,51,18,46,145,46,145,51,18,65,158,285,95,275,102,264,56,264,56,275,102,254,76,264,56,254,76,239,28,239,28,254,76,232,55,239,28,232,55,211,8,211,8,232,55,209,40,211,8,209,40,183,31,154,28,151,-6,182,-2,65,158,80,91,88,165,216,240,215,257,215,250,60,130,57,164,57,164,51,274,57,164,62,212,51,274,62,212,72,316,72,316,62,212,74,257,72,
-316,74,257,101,360,101,360,74,257,91,298,101,360,91,298,111,333,67,371,70,417,63,458,67,371,63,458,53,381,53,381,63,458,49,445,53,381,49,445,42,396,42,396,49,445,41,431,42,396,41,431,38,415,72,427,77,437,82,469,82,469,77,437,86,448,82,469,86,448,107,478,107,478,86,448,98,459,107,478,98,459,113,468,72,427,82,469,63,458,72,427,63,458,70,417,151,423,132,402,132,360,132,360,132,402,117,382,132,360,117,382,111,333,111,333,117,382,103,384,111,333,103,384,101,360,101,360,103,384,100,363,232,458,223,459,225,397,225,397,223,459,199,454,225,397,199,454,199,380,199,380,199,454,175,441,199,380,175,441,167,367,167,367,175,441,151,423,167,367,151,423,132,360,91,387,80,393,84,365,91,387,84,365,100,363,91,387,100,363,103,384,73,403,70,417,67,371,73,403,67,371,84,365,73,403,84,365,80,393,99,-2,133,-6,110,62,110,62,133,-6,145,56,152,56,145,56,147,-5,152,56,147,-5,163,-4,85,77,68,101,69,12,85,77,69,12,99,-2,85,77,99,-2,110,62,60,130,57,164,46,40,60,130,46,40,69,12,60,130,69,12,68,101,57,164,51,274,46,40,46,40,51,274,36,232,46,40,36,232,30,81,30,81,36,232,27,189,30,81,27,189,24,140,248,42,219,53,221,-2,221,-2,219,53,200,0,192,0,200,0,219,53,192,0,219,53,180,57,179,-2,192,0,180,57,179,-2,180,57,172,57,179,-2,172,57,164,57,179,-2,164,57,163,-4,158,57,152,56,163,-4,158,57,163,-4,164,57,179,-91,185,-151,187,-97,187,-97,185,-151,211,-146,187,-97,211,-146,196,-102,196,-102,211,-146,206,-104,223,-101,206,-104,211,-146,223,-101,211,-146,238,-131,285,-41,281,-4,279,-77,279,-77,281,-4,269,22,279,-77,269,22,263,-47,263,-47,262,-107,279,-77,221,-2,238,-8,248,42,248,42,238,-8,252,-18,248,42,252,-18,269,22,269,22,252,-18,260,-31,269,22,260,-31,263,-47,262,-107,263,-47,260,-66,262,-107,260,-66,251,-82,262,-107,251,-82,238,-94,262,-107,238,-94,238,-131,153,-85,155,-145,164,-83,164,-83,155,-145,169,-150,164,-83,169,-150,172,-85,172,-85,169,-150,185,-151,172,-85,185,-151,179,-91,136,-103,137,-127,139,-95,139,-95,137,
--127,144,-138,139,-95,144,-138,145,-89,145,-89,144,-138,155,-145,145,-89,155,-145,153,-85,246,450,240,455,243,416,246,450,243,416,250,435,246,450,250,435,249,443,232,458,225,397,243,416,232,458,243,416,240,455,145,56,133,-6,147,-5,137,-127,136,-103,134,-112,223,-101,238,-131,238,-94,22,246,27,255,31,285,31,285,27,255,34,264,31,285,34,264,46,302,46,302,34,264,42,270,46,302,42,270,51,272,51,272,54,271,62,314,62,314,54,271,58,267,62,314,58,267,61,258,18,264,7,241,17,238,18,264,17,238,22,246,18,264,22,246,31,285,122,266,121,266,123,0,122,266,123,0,123,244,122,266,123,244,143,287,123,244,140,260,143,287,143,287,140,260,155,271,143,287,155,271,164,303,164,303,155,271,169,278,164,303,169,278,184,314,184,314,169,278,182,282,184,314,182,282,195,284,195,284,214,281,203,320,203,320,214,281,223,322,123,0,121,266,118,286,123,0,118,286,114,302,123,0,114,302,106,312,123,0,106,312,95,317,123,0,95,317,79,319,123,0,79,319,64,219,123,0,64,219,64,0,203,320,184,314,195,284,305,-91,305,223,302,255,305,-91,302,255,292,282,305,-91,292,282,306,-107,275,303,252,317,254,-144,275,303,254,-144,257,-151,275,303,257,-151,306,-107,275,303,306,-107,292,282,257,-151,316,-151,312,-142,257,-151,312,-142,309,-132,257,-151,309,-132,307,-120,257,-151,307,-120,306,-107,252,317,223,322,228,273,252,317,228,273,238,259,252,317,238,259,244,240,252,317,244,240,246,216,252,317,246,216,247,-111,252,317,247,-111,248,-126,252,317,248,-126,251,-136,252,317,251,-136,254,-144,246,216,246,-90,247,-111,63,242,64,219,79,319,63,242,79,319,62,314,63,242,62,314,61,258,62,314,46,302,51,272,223,322,214,281,228,273,209,476,177,478,210,445,210,445,177,478,166,459,139,453,166,459,177,478,139,453,177,478,121,467,323,319,316,355,321,154,323,319,321,154,327,233,323,319,327,233,326,278,307,387,295,414,301,88,307,387,301,88,321,154,307,387,321,154,316,355,32,114,40,90,45,383,45,383,40,90,56,57,45,383,56,57,77,434,77,434,56,57,77,30,77,434,77,30,82,270,82,270,77,30,82,226,82,270,82,226,82,248,82,248,82,226,265,
-248,265,248,82,226,265,226,265,248,265,226,269,37,265,248,269,37,278,438,278,438,269,37,301,88,278,438,301,88,295,414,239,409,255,359,259,456,259,456,255,359,263,302,259,456,263,302,278,438,278,438,263,302,265,248,236,468,209,476,210,445,236,468,210,445,239,409,236,468,239,409,259,456,262,152,252,94,269,37,269,37,252,94,235,50,269,37,235,50,226,5,226,5,235,50,211,22,226,5,211,22,179,13,179,13,137,25,170,-6,170,-6,137,25,134,-2,110,59,93,107,103,10,110,59,103,10,134,-2,110,59,134,-2,137,25,82,226,77,30,85,165,85,165,77,30,103,10,85,165,103,10,93,107,265,221,262,152,269,37,265,221,269,37,265,226,179,13,170,-6,226,5,82,270,86,346,77,434,77,434,86,346,98,400,77,434,98,400,121,467,121,467,98,400,116,434,121,467,116,434,139,453,19,201,22,169,25,317,25,317,22,169,26,140,25,317,26,140,45,383,45,383,26,140,32,114,19,201,25,317,19,238,63,264,79,306,58,270,58,270,79,306,58,299,58,270,58,299,52,274,52,274,58,299,44,275,39,275,44,275,58,299,39,275,58,299,36,292,79,6,91,-3,101,314,101,314,91,-3,108,-6,101,314,108,-6,123,322,123,322,108,-6,125,55,123,322,125,55,125,320,127,47,129,-1,130,43,130,43,129,-1,147,10,130,43,147,10,134,40,134,40,147,10,139,39,147,40,139,39,147,10,147,40,147,10,163,28,187,70,177,75,176,49,176,49,177,75,168,60,176,49,168,60,163,28,163,28,168,60,161,50,163,28,161,50,154,43,129,-1,127,47,125,51,129,-1,125,51,125,55,129,-1,125,55,108,-6,79,306,63,264,65,254,79,306,65,254,66,241,79,306,66,241,68,37,79,306,68,37,72,20,79,306,72,20,79,6,79,306,79,6,101,314,66,241,66,55,68,37,36,292,14,285,22,274,36,292,22,274,28,274,36,292,28,274,34,275,36,292,34,275,39,275,22,274,14,285,14,273,147,40,163,28,154,43,15,281,19,281,26,297,26,297,19,281,23,281,26,297,23,281,27,281,27,281,39,280,48,303,48,303,39,280,48,276,48,303,48,276,53,268,10,280,15,281,26,297,10,280,26,297,5,291,10,280,5,291,5,280,48,
-303,53,268,67,308,67,308,53,268,56,256,67,308,56,256,57,239,116,0,57,239,57,0,48,303,26,297,27,281,116,180,116,320,113,322,116,180,113,322,116,0,116,180,116,0,116,159,116,180,116,159,178,246,184,221,206,240,224,287,224,287,206,240,225,253,224,287,225,253,258,310,258,310,225,253,244,260,258,310,244,260,263,262,263,262,272,261,283,320,283,320,272,261,281,259,283,320,281,259,290,257,178,246,116,159,158,195,178,246,158,195,184,221,178,246,184,221,224,287,116,0,113,322,98,317,116,0,98,317,83,313,116,0,83,313,67,308,116,0,67,308,57,239,317,255,327,258,328,315,328,315,327,258,335,265,328,315,335,265,336,308,336,308,335,265,341,275,336,308,341,275,341,299,341,299,341,275,343,288,290,257,299,255,302,322,302,322,299,255,308,254,302,322,308,254,316,320,316,320,308,254,317,255,316,320,317,255,328,315,283,320,258,310,263,262,214,17,209,13,352,0,352,0,209,13,202,11,352,0,202,11,192,10,219,27,352,0,320,19,219,27,320,19,306,27,219,27,306,27,293,38,219,27,293,38,279,54,219,27,279,54,218,31,279,54,158,195,208,48,279,54,208,48,211,42,279,54,211,42,214,38,279,54,214,38,217,34,279,54,217,34,218,31,335,13,320,19,352,0,335,13,352,0,352,10,218,22,214,17,352,0,218,22,352,0,219,27,186,10,186,0,352,0,186,10,352,0,192,10,208,48,158,195,116,159,283,320,290,257,302,322,79,428,90,429,90,429,95,478,90,429,103,425,95,478,103,425,116,473,116,473,103,425,116,414,116,473,116,414,132,460,132,460,116,414,129,396,132,460,129,396,140,374,158,409,150,347,159,315,158,409,159,315,169,373,169,373,159,315,179,248,169,373,179,248,247,99,247,99,179,248,230,63,247,99,230,63,237,40,146,438,132,460,140,374,146,438,140,374,150,347,146,438,150,347,158,409,247,99,237,40,246,21,247,99,246,21,257,6,159,315,9,0,78,0,159,315,78,0,179,248,281,44,270,53,271,-3,271,-3,270,53,261,65,271,-3,261,65,257,6,257,6,261,65,253,81,257,6,253,81,247,99,329,75,320,59,323,12,323,12,320,59,310,49,323,12,310,49,306,-2,306,-2,310,
-49,301,43,306,-2,301,43,292,41,292,41,281,44,286,-7,286,-7,281,44,271,-3,334,34,342,62,345,96,334,34,345,96,334,96,334,34,334,96,329,75,334,34,329,75,323,12,292,41,286,-7,306,-2,60,414,68,423,72,472,72,472,68,423,79,428,72,472,79,428,95,478,95,478,79,428,90,429,55,455,44,431,48,375,55,455,48,375,53,398,55,455,53,398,60,414,55,455,60,414,72,472,39,403,37,375,48,375,39,403,48,375,44,431,109,315,50,315,96,-151,109,315,96,-151,99,-143,109,315,99,-143,102,-132,109,315,102,-132,105,-120,109,315,105,-120,106,-106,109,315,106,-106,107,13,109,315,107,13,109,13,96,-151,50,315,50,-91,96,-151,50,-91,49,-105,96,-151,49,-105,48,-119,96,-151,48,-119,45,-131,96,-151,45,-131,42,-141,96,-151,42,-141,38,-151,122,0,131,-3,135,44,135,44,131,-3,141,-5,135,44,141,-5,151,36,151,36,141,-5,152,-6,151,36,152,-6,169,34,169,34,152,-6,166,-5,169,34,166,-5,183,0,239,74,236,67,240,50,240,50,236,67,232,61,240,50,232,61,226,55,226,55,214,47,221,26,221,26,214,47,202,41,221,26,202,41,201,10,201,10,202,41,190,37,201,10,190,37,183,0,183,0,190,37,179,34,183,0,179,34,169,34,121,57,112,75,114,5,121,57,114,5,122,0,121,57,122,0,135,44,114,5,112,75,109,97,114,5,109,97,109,13,300,315,241,315,243,32,243,32,241,315,241,95,243,32,241,95,241,50,241,50,241,95,241,83,241,50,241,83,240,50,240,50,241,83,239,74,226,55,221,26,240,50,300,315,243,32,247,16,300,315,247,16,255,4,300,315,255,4,268,-3,300,315,268,-3,284,-6,300,315,284,-6,300,79,342,59,335,49,337,28,337,28,335,49,328,43,337,28,328,43,322,10,322,10,328,43,321,40,322,10,321,40,314,39,314,39,310,40,322,10,322,10,310,40,306,44,322,10,306,44,304,-1,304,-1,306,44,303,51,304,-1,303,51,301,62,350,49,361,70,351,74,350,49,351,74,342,59,350,49,342,59,337,28,301,62,300,79,284,-6,301,62,284,-6,304,-1,107,13,106,-106,107,-90,63,263,79,306,58,269,58,269,79,306,58,299,58,269,58,299,52,274,52,274,58,299,44,
-275,40,275,44,275,58,299,40,275,58,299,36,292,125,320,123,322,125,63,125,63,123,322,101,314,125,63,101,314,83,-9,83,-9,101,314,79,306,83,-9,79,306,66,241,66,241,79,306,65,253,36,292,14,285,21,274,36,292,21,274,28,274,36,292,28,274,34,275,36,292,34,275,40,275,260,118,265,198,228,76,228,76,265,198,228,136,228,76,228,136,188,39,188,39,228,136,181,88,188,39,181,88,139,10,139,10,181,88,126,63,265,198,284,162,288,263,288,263,284,162,297,198,288,263,297,198,297,322,297,322,297,198,304,232,297,322,304,232,310,322,310,322,304,232,308,265,310,322,308,265,310,295,125,63,83,-9,139,10,125,63,139,10,126,63,66,241,66,-9,83,-9,21,274,14,285,14,273,265,198,260,118,284,162,79,306,63,263,65,253,71,83,60,106,62,15,62,15,60,106,56,137,55,210,56,137,60,165,55,210,60,165,76,236,76,236,60,165,70,191,76,236,70,191,86,212,85,375,88,427,80,459,85,375,80,459,74,381,74,381,80,459,67,447,74,381,67,447,65,389,65,389,67,447,60,432,65,389,60,432,59,401,59,401,60,432,57,416,89,434,93,443,99,470,99,470,93,443,100,451,99,470,100,451,124,478,124,478,100,451,112,459,124,478,112,459,130,467,89,434,99,470,80,459,89,434,80,459,88,427,102,328,106,396,100,315,100,315,98,401,97,373,97,373,98,401,93,408,97,373,93,408,89,416,116,394,106,396,107,341,116,394,107,341,117,351,116,394,117,351,135,406,101,305,102,258,104,295,104,295,102,258,107,230,104,295,107,230,109,286,109,286,107,230,132,244,109,286,132,244,116,278,116,278,132,244,124,271,141,283,132,244,143,241,141,283,143,241,159,292,159,292,143,241,154,240,159,292,154,240,164,238,102,258,76,236,86,212,102,258,86,212,107,230,102,258,101,305,100,315,102,258,100,315,97,373,102,258,97,373,91,266,73,327,73,301,76,339,76,339,73,301,77,289,76,339,77,289,81,352,81,352,77,289,83,277,81,352,83,277,88,363,88,363,83,277,91,266,88,363,91,266,97,373,89,416,88,427,85,375,89,416,85,375,97,373,180,57,173,57,179,-2,179,-2,173,57,165,57,179,-2,165,57,164,-4,164,
--4,165,57,155,57,164,-4,155,57,150,-5,150,-5,155,57,146,56,150,-5,146,56,138,-6,138,-6,146,56,138,56,138,-6,138,56,137,56,137,56,138,56,110,59,248,41,219,53,221,-2,221,-2,219,53,200,0,192,0,200,0,219,53,192,0,219,53,180,57,179,-91,185,-151,187,-97,187,-97,185,-151,212,-146,187,-97,212,-146,196,-102,196,-102,212,-146,206,-104,223,-101,206,-104,212,-146,223,-101,212,-146,239,-131,285,-37,281,-5,279,-75,279,-75,281,-5,269,21,279,-75,269,21,263,-47,263,-47,262,-107,279,-75,221,-2,238,-8,248,41,248,41,238,-8,252,-18,248,41,252,-18,269,21,269,21,252,-18,260,-31,269,21,260,-31,263,-47,263,-47,260,-67,262,-107,262,-107,260,-67,251,-82,262,-107,251,-82,239,-131,239,-131,251,-82,238,-94,239,-131,238,-94,223,-101,153,-85,155,-145,164,-83,164,-83,155,-145,169,-150,164,-83,169,-150,172,-85,172,-85,169,-150,185,-151,172,-85,185,-151,179,-91,136,-103,137,-127,139,-95,139,-95,137,-127,144,-138,139,-95,144,-138,145,-89,145,-89,144,-138,155,-145,145,-89,155,-145,153,-85,254,260,259,276,257,286,254,260,257,286,251,293,254,260,251,293,241,299,254,260,241,299,239,249,164,238,173,238,178,298,178,298,173,238,183,238,178,298,183,238,196,303,196,303,183,238,199,238,196,303,199,238,214,304,214,304,199,238,220,242,214,304,220,242,229,303,229,303,220,242,239,249,229,303,239,249,241,299,224,430,224,380,233,427,233,427,224,380,239,393,233,427,239,393,240,422,240,422,239,393,245,407,240,422,245,407,243,415,175,424,176,363,194,429,194,429,176,363,202,370,194,429,202,370,212,430,212,430,202,370,224,380,212,430,224,380,224,430,117,351,131,358,135,406,135,406,131,358,148,361,135,406,148,361,155,416,155,416,148,361,176,363,155,416,176,363,175,424,110,59,88,67,94,0,110,59,94,0,138,-6,110,59,138,-6,137,56,71,83,62,15,94,0,71,83,94,0,88,67,40,41,62,15,56,137,40,41,56,137,55,210,40,41,55,210,38,181,40,41,38,181,28,74,28,148,24,114,28,74,28,148,28,74,38,181,159,292,164,238,178,298,137,-127,136,-103,134,-112,180,57,179,-2,192,0,73,301,73,327,72,314,132,244,141,283,124,271,98,401,100,
-315,106,396,106,396,102,328,107,341,135,290,167,299,167,299,181,322,167,299,207,288,181,322,207,288,233,314,233,314,207,288,235,258,233,314,235,258,275,291,275,291,235,258,255,218,275,291,255,218,265,174,266,104,257,72,267,28,267,28,257,72,241,44,267,28,241,44,225,2,225,2,241,44,218,23,225,2,218,23,188,16,188,16,150,26,177,-6,177,-6,150,26,129,0,150,26,121,53,129,0,129,0,121,53,102,91,129,0,102,91,87,21,87,21,102,91,90,132,87,21,90,132,87,171,113,268,128,312,97,237,97,237,128,312,84,284,97,237,84,284,89,203,89,203,84,284,87,171,87,21,87,171,84,284,87,21,84,284,54,53,54,53,84,284,52,243,54,53,52,243,32,94,32,94,52,243,31,194,32,94,31,194,24,141,331,159,325,211,323,111,323,111,325,211,306,256,323,111,306,256,301,66,301,66,306,256,275,291,301,66,275,291,269,134,269,134,267,28,301,66,188,16,177,-6,225,2,135,290,167,299,181,322,135,290,181,322,128,312,135,290,128,312,113,268,266,104,267,28,269,134,275,291,265,174,269,134,101,166,90,108,108,12,108,12,90,108,75,75,108,12,75,75,73,-9,73,-9,75,75,59,58,73,-9,59,58,55,-7,55,-7,59,58,42,51,55,-7,42,51,42,0,42,0,42,51,37,49,42,0,37,49,33,8,33,8,37,49,32,47,33,8,32,47,29,43,28,21,33,8,29,43,28,21,29,43,27,40,28,21,27,40,26,35,135,315,96,311,109,256,109,256,128,68,135,315,135,315,128,68,137,139,135,315,137,139,141,256,141,256,137,139,140,208,252,256,335,256,335,315,252,256,335,315,205,256,205,256,335,315,141,256,246,110,246,124,237,-2,237,-2,246,124,245,138,237,-2,245,138,245,152,245,152,246,177,237,-2,237,-2,246,177,247,202,237,-2,247,202,219,10,219,10,247,202,249,223,219,10,249,223,250,242,206,29,252,256,205,256,206,29,205,256,203,225,250,242,252,256,206,29,250,242,206,29,219,10,135,315,141,256,335,315,6,216,17,216,22,252,22,252,17,216,32,234,22,252,32,234,41,280,41,280,32,234,49,246,41,280,49,246,65,299,65,299,49,246,66,253,65,299,66,253,96,311,96,311,66,253,86,
-256,96,311,86,256,109,256,264,58,257,66,259,-6,259,-6,257,66,252,75,259,-6,252,75,249,85,249,85,247,97,259,-6,259,-6,247,97,237,-2,264,58,286,0,272,53,272,53,286,0,284,51,293,52,284,51,286,0,293,52,286,0,308,16,327,96,320,76,324,40,327,96,324,40,334,68,327,96,334,68,338,96,312,63,303,55,308,16,312,63,308,16,324,40,312,63,324,40,320,76,200,190,197,153,197,52,200,190,197,52,206,29,200,190,206,29,203,225,195,115,195,78,197,52,195,115,197,52,197,153,109,256,101,166,108,12,109,256,108,12,128,68,246,110,237,-2,247,97,264,58,259,-6,286,0,293,52,308,16,303,55,150,297,173,302,173,302,181,322,173,302,202,296,181,322,202,296,228,315,228,315,202,296,228,276,228,315,228,276,268,294,268,294,228,276,248,245,268,294,248,245,261,202,268,294,266,148,269,27,268,294,269,27,299,263,299,263,269,27,300,66,299,263,300,66,319,221,319,221,300,66,320,115,319,221,320,115,327,173,269,27,266,148,262,105,269,27,262,105,251,68,269,27,251,68,233,40,269,27,233,40,229,2,181,16,182,-6,210,22,210,22,182,-6,229,2,210,22,229,2,233,40,182,-6,181,16,165,-5,165,-5,181,16,161,18,165,-5,161,18,151,-3,151,-3,161,18,141,26,151,-3,141,26,137,1,137,1,141,26,125,36,137,1,125,36,123,9,123,9,125,36,113,49,123,9,113,49,109,62,119,259,132,283,141,316,141,316,132,283,150,297,141,316,150,297,181,322,181,322,150,297,173,302,109,191,111,229,105,294,109,191,105,294,106,-120,109,191,106,-120,108,-106,109,191,108,-106,109,-90,105,294,111,229,119,259,105,294,119,259,141,316,105,294,76,255,98,-151,105,294,98,-151,101,-143,105,294,101,-143,104,-133,105,294,104,-133,106,-120,98,-151,76,255,57,193,98,-151,57,193,50,106,98,-151,50,106,50,-91,98,-151,50,-91,49,-105,98,-151,49,-105,48,-119,98,-151,48,-119,45,-131,98,-151,45,-131,42,-141,98,-151,42,-141,38,-151,109,62,109,21,123,9,268,294,261,202,266,148,84,76,68,95,70,6,70,6,68,95,59,119,70,6,59,119,46,28,46,28,59,119,57,148,62,239,57,148,64,189,62,239,64,189,102,283,102,
-283,64,189,81,221,102,283,81,221,106,243,102,283,106,243,149,312,149,312,106,243,135,256,149,312,135,256,166,260,166,260,198,255,198,322,198,322,198,255,221,243,198,322,221,243,237,318,237,318,221,243,239,229,237,318,239,229,266,306,266,306,239,229,253,217,266,306,253,217,269,212,24,116,30,64,35,182,35,182,30,64,46,28,35,182,46,28,62,239,62,239,46,28,57,148,248,42,219,53,221,-2,221,-2,219,53,200,0,192,0,200,0,219,53,192,0,219,53,180,57,179,-2,192,0,180,57,179,-2,180,57,173,57,179,-2,173,57,166,57,179,-2,166,57,163,-4,147,-5,163,-4,149,56,155,56,149,56,163,-4,155,56,163,-4,161,57,161,57,163,-4,166,57,84,76,99,-3,109,63,109,63,99,-3,133,-6,109,63,133,-6,145,56,145,56,133,-6,147,-5,145,56,147,-5,149,56,179,-91,185,-151,187,-97,187,-97,185,-151,211,-146,187,-97,211,-146,196,-102,196,-102,211,-146,206,-104,223,-101,206,-104,211,-146,223,-101,211,-146,238,-131,285,-41,281,-4,279,-77,279,-77,281,-4,269,22,279,-77,269,22,263,-47,263,-47,262,-107,279,-77,221,-2,238,-8,248,42,248,42,238,-8,252,-18,248,42,252,-18,269,22,269,22,252,-18,260,-31,269,22,260,-31,263,-47,262,-107,263,-47,260,-66,262,-107,260,-66,251,-82,262,-107,251,-82,238,-94,262,-107,238,-94,238,-131,153,-85,155,-145,164,-83,164,-83,155,-145,169,-150,164,-83,169,-150,172,-85,172,-85,169,-150,185,-151,172,-85,185,-151,179,-91,136,-103,137,-127,139,-95,139,-95,137,-127,144,-138,139,-95,144,-138,145,-89,145,-89,144,-138,155,-145,145,-89,155,-145,153,-85,298,268,286,289,291,220,298,268,291,220,297,228,298,268,297,228,301,237,298,268,301,237,302,246,286,289,266,306,269,212,286,289,269,212,282,214,286,289,282,214,291,220,198,322,149,312,166,260,137,-127,136,-103,134,-112,223,-101,238,-131,238,-94,84,76,70,6,99,-3,261,88,251,59,262,22,262,22,251,59,235,35,262,22,235,35,218,1,218,1,235,35,213,19,218,1,213,19,183,13,183,13,154,21,167,-6,167,-6,154,21,127,43,167,-6,127,43,121,1,121,1,127,43,104,76,121,1,104,76,89,117,82,290,84,164,91,204,82,290,91,204,122,309,122,309,91,
-204,110,230,122,309,110,230,136,246,81,25,121,1,89,117,81,25,89,117,84,164,81,25,84,164,82,290,81,25,82,290,50,257,81,25,50,257,49,59,28,211,20,151,28,103,28,211,28,103,49,59,28,211,49,59,50,257,214,241,234,217,239,256,239,256,234,217,250,187,239,256,363,315,191,256,167,315,122,309,136,246,167,315,136,246,165,254,167,315,165,254,191,256,167,315,191,256,363,315,191,256,214,241,239,256,327,131,321,169,319,90,319,90,321,169,305,194,319,90,305,194,296,53,296,53,305,194,284,212,296,53,284,212,264,120,264,120,284,212,261,231,264,120,261,231,260,154,261,231,239,256,250,187,261,231,250,187,260,154,264,120,262,22,296,53,183,13,167,-6,218,1,261,88,262,22,264,120,363,315,239,256,363,256,13,193,22,214,25,256,25,256,22,214,35,232,25,256,35,232,47,285,47,285,35,232,51,245,47,285,51,245,77,307,77,307,51,245,70,253,77,307,70,253,92,256,113,315,92,256,150,256,113,315,150,256,309,315,309,315,150,256,191,256,309,315,191,256,309,256,10,224,2,193,13,193,10,224,13,193,25,256,165,0,175,103,174,127,174,127,176,158,165,0,165,0,176,158,150,256,165,0,150,256,144,15,144,15,150,256,143,230,144,15,143,230,135,199,179,189,183,217,150,256,150,256,183,217,187,241,150,256,187,241,191,256,194,-6,219,0,197,55,197,55,219,0,212,51,225,53,212,51,219,0,225,53,219,0,241,15,259,100,254,83,257,38,259,100,257,38,267,68,259,100,267,68,270,100,246,69,236,59,241,15,246,69,241,15,257,38,246,69,257,38,254,83,194,-6,197,55,186,66,194,-6,186,66,179,83,194,-6,179,83,175,103,194,-6,175,103,165,0,144,15,135,199,131,39,131,39,135,199,128,166,131,39,128,166,124,68,124,68,128,166,124,132,124,68,124,132,122,99,225,53,241,15,236,59,92,256,113,315,77,307,179,189,150,256,176,158,26,246,32,255,36,285,36,285,32,255,39,264,36,285,39,264,50,302,50,302,39,264,46,270,50,302,46,270,55,272,55,272,61,269,66,314,66,314,61,269,65,262,66,314,65,262,67,251,23,264,11,241,21,238,23,264,21,238,26,246,23,264,26,246,36,
-285,69,138,72,93,69,223,68,238,69,223,84,319,68,238,84,319,67,251,67,251,84,319,66,314,127,122,127,270,126,287,127,122,126,287,120,301,127,122,120,301,111,311,127,122,111,311,129,95,198,322,178,322,194,305,198,322,194,305,209,300,198,322,209,300,243,315,280,105,271,69,285,25,285,25,271,69,254,39,285,25,254,39,243,1,243,1,254,39,231,20,243,1,231,20,198,13,198,13,169,20,195,-6,195,-6,169,20,149,40,195,-6,149,40,142,1,142,1,149,40,136,66,142,1,136,66,129,95,106,21,142,1,129,95,106,21,129,95,111,311,106,21,111,311,99,317,106,21,99,317,84,319,106,21,84,319,84,53,84,319,69,223,72,93,84,319,72,93,84,53,66,314,50,302,55,272,209,300,223,292,243,315,243,315,223,292,236,281,243,315,236,281,248,267,248,267,261,246,283,296,283,296,261,246,271,222,283,296,271,222,278,197,283,296,283,146,285,25,283,296,285,25,316,263,316,263,285,25,317,60,316,263,317,60,338,217,338,217,317,60,339,106,338,217,339,106,346,158,283,296,278,197,282,171,283,296,282,171,283,146,283,296,243,315,248,267,198,13,195,-6,243,1,280,105,285,25,283,146,194,305,178,322,178,308,85,163,84,191,84,191,77,28,84,191,76,289,77,28,76,289,46,64,46,64,76,289,46,254,46,64,46,254,27,109,27,109,46,254,27,210,27,109,27,210,20,160,89,132,77,28,96,101,96,101,77,28,119,4,96,101,119,4,106,73,106,73,119,4,120,48,132,35,120,48,119,4,132,35,119,4,172,-5,85,163,84,191,77,28,85,163,77,28,89,132,189,147,188,107,247,-151,247,-151,188,107,188,13,247,-151,188,13,188,-6,188,-6,188,13,174,14,188,-6,174,14,172,-5,172,-5,174,14,159,18,172,-5,159,18,145,25,188,309,188,320,185,320,188,309,185,320,181,321,188,309,181,321,177,322,188,309,177,322,173,322,188,309,173,322,170,322,188,309,170,322,153,303,245,309,247,-151,247,180,247,13,247,-6,308,2,247,13,308,2,268,13,268,13,308,2,300,20,290,322,282,302,306,292,290,322,306,292,327,314,327,314,306,292,325,266,327,314,325,266,340,229,249,251,254,278,258,316,258,316,254,278,265,296,258,
-316,265,296,273,320,273,320,265,296,282,302,273,320,282,302,290,322,245,309,247,180,247,217,245,309,247,217,249,251,245,309,249,251,258,316,247,-151,245,309,233,301,247,-151,233,301,223,291,247,-151,223,291,207,261,247,-151,207,261,197,227,247,-151,197,227,191,188,247,-151,191,188,189,147,415,155,408,211,408,105,408,105,408,211,389,257,408,105,389,257,388,61,388,61,389,257,361,292,388,61,361,292,355,25,355,25,361,292,352,145,355,25,352,145,349,104,355,25,349,104,340,68,361,292,327,314,340,229,361,292,340,229,349,187,361,292,349,187,352,145,324,39,300,20,308,2,324,39,308,2,355,25,324,39,355,25,340,68,88,232,102,264,118,313,118,313,102,264,124,288,118,313,124,288,170,322,170,322,124,288,153,303,88,232,118,313,76,289,88,232,76,289,84,191,247,-151,188,-6,188,-151,132,35,172,-5,145,25,111,313,88,322,94,269,94,269,88,322,78,273,72,271,78,273,88,322,72,271,88,322,68,317,272,315,172,130,176,37,176,37,172,130,158,195,176,37,158,195,155,109,155,109,158,195,144,248,155,109,144,248,141,166,94,269,107,256,111,313,111,313,107,256,120,235,111,313,120,235,129,288,129,288,120,235,131,205,129,288,131,205,144,248,144,248,131,205,141,166,193,57,340,315,272,315,193,57,272,315,176,37,193,57,176,37,191,-47,193,57,191,-47,198,-81,193,57,198,-81,205,2,155,109,8,-147,77,-147,155,109,77,-147,176,37,295,-70,289,-85,292,-126,292,-126,289,-85,281,-96,292,-126,281,-96,277,-145,277,-145,281,-96,272,-102,277,-145,272,-102,263,-104,262,-104,263,-104,248,-100,262,-104,248,-100,255,-153,255,-153,248,-100,236,-147,248,-100,235,-88,236,-147,236,-147,235,-88,224,-68,236,-147,224,-68,220,-132,220,-132,224,-68,215,-38,220,-132,215,-38,207,-110,207,-110,215,-38,205,2,207,-110,205,2,198,-81,302,-100,307,-73,309,-48,302,-100,309,-48,298,-48,302,-100,298,-48,295,-70,302,-100,295,-70,292,-126,262,-104,255,-153,277,-145,262,-104,277,-145,263,-104,48,219,52,240,54,304,54,304,52,240,58,255,54,304,58,255,68,317,68,317,58,255,65,265,68,317,65,265,72,271,48,219,54,304,44,283,48,219,44,283,38,255,48,219,38,255,37,219,335,54,312,
-24,331,0,331,0,312,24,276,13,276,-151,276,13,217,-6,276,315,217,315,217,-6,276,315,217,-6,276,13,217,315,217,13,217,-6,217,-6,217,13,181,24,217,-6,181,24,159,0,159,0,181,24,157,54,159,0,157,54,144,97,138,145,137,192,134,229,138,145,134,229,126,264,138,145,126,264,118,20,138,145,118,20,144,97,73,160,78,101,85,314,85,314,78,101,92,54,85,314,92,54,110,294,110,294,92,54,118,20,110,294,118,20,126,264,59,266,69,229,85,314,85,314,69,229,73,191,85,314,73,191,73,160,85,314,51,322,59,266,59,266,51,322,43,322,59,266,43,322,42,295,42,295,43,322,35,321,42,295,35,321,27,321,20,320,14,320,42,295,20,320,42,295,27,321,366,262,358,226,372,22,372,22,358,226,356,190,372,22,356,190,355,144,479,309,479,320,472,321,479,309,472,321,465,321,479,309,465,321,458,322,479,309,458,322,451,295,424,229,434,266,442,322,442,322,434,266,451,295,442,322,451,295,450,322,450,322,451,295,458,322,366,262,372,22,382,292,382,292,372,22,399,57,382,292,399,57,406,314,406,314,399,57,415,103,406,314,415,103,420,192,420,192,415,103,420,160,406,314,420,192,424,229,406,314,424,229,442,322,372,22,355,144,349,96,372,22,349,96,335,54,372,22,335,54,331,0,276,13,276,-6,331,0,276,-151,217,-6,217,-151,42,295,14,320,14,309,144,97,118,20,159,0,99,43,89,75,98,0,98,0,89,75,85,113,98,0,85,113,83,7,83,7,85,113,84,152,87,295,84,152,88,208,87,295,88,208,102,253,151,305,184,312,184,322,151,305,184,322,132,315,151,305,132,315,124,285,132,315,87,295,102,253,132,315,102,253,124,285,32,69,41,49,52,261,52,261,41,49,54,32,52,261,54,32,87,295,87,295,54,32,68,18,87,295,68,18,84,152,84,152,68,18,83,7,29,211,20,146,22,118,29,211,22,118,25,92,29,211,25,92,32,69,29,211,32,69,52,261,114,-4,130,-6,115,21,115,21,130,-6,140,13,158,16,140,13,153,-3,158,16,153,-3,173,4,99,43,98,0,114,-4,99,43,114,-4,115,21,244,71,238,102,245,17,245,17,238,102,237,102,237,102,238,102,243,222,243,222,238,102,242,
-119,243,222,242,119,245,133,248,203,243,222,245,133,248,203,245,133,248,147,248,203,248,147,249,162,248,203,249,162,250,177,219,245,219,60,228,242,228,242,219,60,230,36,228,242,230,36,236,235,236,235,230,36,237,102,236,235,237,102,243,222,244,71,245,17,253,46,253,46,245,17,262,4,253,46,262,4,266,28,266,28,262,4,282,-3,266,28,282,-3,280,16,280,16,282,-3,295,13,321,20,295,13,305,-6,321,20,305,-6,322,-4,395,49,404,69,408,213,408,213,404,69,411,92,408,213,411,92,416,148,416,148,411,92,415,118,386,262,351,296,353,145,386,262,353,145,354,7,386,262,354,7,369,18,386,262,369,18,383,32,386,262,383,32,395,49,386,262,395,49,408,213,337,250,349,204,351,296,351,296,349,204,353,145,354,7,353,145,352,107,337,250,351,296,316,284,316,284,351,296,305,316,316,284,305,316,288,305,288,305,305,316,252,322,288,305,252,322,252,312,321,20,322,-4,338,41,338,41,322,-4,339,0,338,41,339,0,348,71,348,71,339,0,354,7,348,71,354,7,352,107,295,13,282,-3,305,-6,195,118,199,102,200,235,200,235,199,102,206,36,200,235,206,36,209,242,209,242,206,36,219,60,209,242,219,60,219,245,206,36,199,102,193,71,206,36,193,71,190,17,190,17,193,71,184,46,190,17,184,46,173,4,173,4,184,46,172,27,173,4,172,27,158,16,193,222,188,202,189,145,193,222,189,145,191,131,193,222,191,131,195,118,193,222,195,118,200,235,188,202,187,176,187,159,188,202,187,159,189,145,140,13,130,-6,153,-3,237,102,230,36,245,17,152,401,153,390,153,412,153,412,153,390,158,380,153,412,158,380,158,421,158,421,158,380,165,373,158,421,165,373,166,429,166,429,165,373,174,368,166,429,174,368,175,433,175,433,174,368,185,366,175,433,185,366,186,435,186,435,185,366,197,368,186,435,197,368,197,433,197,433,197,368,207,373,197,433,207,373,207,428,207,428,207,373,214,380,207,428,214,380,214,421,214,421,214,380,219,390,214,421,219,390,219,412,219,412,219,390,221,401,13,401,14,390,14,412,14,412,14,390,19,380,14,412,19,380,19,421,19,421,19,380,26,373,19,421,26,373,27,429,27,429,26,373,35,368,27,
-429,35,368,36,433,36,433,35,368,46,366,36,433,46,366,47,435,47,435,46,366,57,368,47,435,57,368,58,433,58,433,57,368,67,373,58,433,67,373,67,428,67,428,67,373,75,380,67,428,75,380,75,421,75,421,75,380,80,390,75,421,80,390,80,412,80,412,80,390,82,401,80,264,96,306,75,270,75,270,96,306,74,299,75,270,74,299,69,274,69,274,74,299,60,275,56,275,60,275,74,299,56,275,74,299,52,292,96,6,108,-3,117,314,117,314,108,-3,124,-6,117,314,124,-6,139,322,139,322,124,-6,142,55,139,322,142,55,142,320,144,47,145,-1,147,43,147,43,145,-1,163,10,147,43,163,10,151,40,151,40,163,10,156,39,165,40,156,39,163,10,165,40,163,10,179,28,204,70,193,75,193,49,193,49,193,75,185,60,193,49,185,60,179,28,179,28,185,60,178,50,179,28,178,50,171,43,145,-1,144,47,143,51,145,-1,143,51,142,55,145,-1,142,55,124,-6,96,306,80,264,83,254,96,306,83,254,84,241,96,306,84,241,85,37,96,306,85,37,89,20,96,306,89,20,96,6,96,306,96,6,117,314,84,241,84,55,85,37,52,292,30,285,38,274,52,292,38,274,45,274,52,292,45,274,51,275,52,292,51,275,56,275,38,274,30,285,30,273,165,40,179,28,171,43,127,122,127,270,126,287,127,122,126,287,120,301,127,122,120,301,111,311,127,122,111,311,129,95,198,322,178,322,194,305,198,322,194,305,209,300,198,322,209,300,243,315,280,105,271,69,285,25,285,25,271,69,254,39,285,25,254,39,243,1,243,1,254,39,231,20,243,1,231,20,198,13,198,13,169,20,195,-6,195,-6,169,20,149,40,195,-6,149,40,142,1,142,1,149,40,136,66,142,1,136,66,129,95,106,21,142,1,129,95,106,21,129,95,111,311,106,21,111,311,99,317,106,21,99,317,84,319,106,21,84,319,84,53,84,319,66,314,67,251,84,319,67,251,68,238,84,319,68,238,69,223,84,319,69,223,72,93,84,319,72,93,84,53,69,223,69,138,72,93,26,246,32,255,36,285,36,285,32,255,39,264,36,285,39,264,50,302,50,302,39,264,46,270,50,302,46,270,55,272,55,272,61,269,66,314,66,314,61,269,65,262,66,314,65,
-262,67,251,66,314,50,302,55,272,209,300,223,292,243,315,243,315,223,292,236,281,243,315,236,281,248,267,248,267,261,246,283,296,283,296,261,246,271,222,283,296,271,222,278,197,283,296,283,146,285,25,283,296,285,25,316,263,316,263,285,25,317,60,316,263,317,60,338,217,338,217,317,60,339,106,338,217,339,106,346,158,283,296,278,197,282,171,283,296,282,171,283,146,283,296,243,315,248,267,198,13,195,-6,243,1,213,401,215,390,215,412,215,412,215,390,220,380,215,412,220,380,220,421,220,421,220,380,227,373,220,421,227,373,227,429,227,429,227,373,236,368,227,429,236,368,237,433,237,433,236,368,247,366,237,433,247,366,248,435,248,435,247,366,258,368,248,435,258,368,259,433,259,433,258,368,268,373,259,433,268,373,268,428,268,428,268,373,276,380,268,428,276,380,276,421,276,421,276,380,281,390,276,421,281,390,281,412,281,412,281,390,283,401,74,401,76,390,76,412,76,412,76,390,81,380,76,412,81,380,81,421,81,421,81,380,88,373,81,421,88,373,88,429,88,429,88,373,97,368,88,429,97,368,98,433,98,433,97,368,108,366,98,433,108,366,109,435,109,435,108,366,119,368,109,435,119,368,119,433,119,433,119,368,129,373,119,433,129,373,129,428,129,428,129,373,137,380,129,428,137,380,137,421,137,421,137,380,142,390,137,421,142,390,142,412,142,412,142,390,144,401,23,264,11,241,21,238,23,264,21,238,26,246,23,264,26,246,36,285,280,105,285,25,283,146,194,305,178,322,178,308,135,290,167,299,167,299,181,322,167,299,207,288,181,322,207,288,233,314,233,314,207,288,235,258,233,314,235,258,275,291,275,291,235,258,255,218,275,291,255,218,265,174,202,463,204,412,207,463,207,463,204,412,210,419,207,463,210,419,213,460,213,460,210,419,215,426,213,460,215,426,218,456,218,456,215,426,219,432,218,456,219,432,221,450,221,450,219,432,222,438,221,450,222,438,223,443,204,412,202,463,194,463,204,412,194,463,187,461,204,412,187,461,182,458,204,412,182,458,178,453,204,412,178,453,175,448,204,412,175,448,158,355,266,104,257,72,267,28,267,28,257,72,241,44,267,28,241,44,225,2,225,2,241,44,218,23,225,2,218,23,188,
-16,188,16,150,26,177,-6,177,-6,150,26,129,0,150,26,121,53,129,0,129,0,121,53,102,91,129,0,102,91,87,21,87,21,102,91,90,132,87,21,90,132,87,171,113,268,128,312,97,237,97,237,128,312,84,284,97,237,84,284,89,203,89,203,84,284,87,171,87,21,87,171,84,284,87,21,84,284,54,53,54,53,84,284,52,243,54,53,52,243,32,94,32,94,52,243,31,194,32,94,31,194,24,141,331,159,325,211,323,111,323,111,325,211,306,256,323,111,306,256,301,66,301,66,306,256,275,291,301,66,275,291,269,134,269,134,267,28,301,66,188,16,177,-6,225,2,135,290,167,299,181,322,135,290,181,322,128,312,135,290,128,312,113,268,266,104,267,28,269,134,275,291,265,174,269,134,158,355,175,448,134,355,26,246,32,255,36,285,36,285,32,255,39,264,36,285,39,264,50,302,50,302,39,264,46,270,50,302,46,270,55,272,55,272,61,269,66,314,66,314,61,269,65,262,66,314,65,262,67,251,23,264,11,241,21,238,23,264,21,238,26,246,23,264,26,246,36,285,69,138,72,93,69,223,68,238,69,223,84,319,68,238,84,319,67,251,67,251,84,319,66,314,127,122,127,270,126,287,127,122,126,287,120,301,127,122,120,301,111,311,127,122,111,311,129,95,198,322,178,322,194,305,198,322,194,305,209,300,198,322,209,300,243,315,280,105,271,69,285,25,285,25,271,69,254,39,285,25,254,39,243,1,243,1,254,39,231,20,243,1,231,20,198,13,198,13,169,20,195,-6,195,-6,169,20,149,40,195,-6,149,40,142,1,142,1,149,40,136,66,142,1,136,66,129,95,106,21,142,1,129,95,106,21,129,95,111,311,106,21,111,311,99,317,106,21,99,317,84,319,106,21,84,319,84,53,84,319,69,223,72,93,84,319,72,93,84,53,66,314,50,302,55,272,209,300,223,292,243,315,243,315,223,292,236,281,243,315,236,281,248,267,248,267,261,246,283,296,283,296,261,246,271,222,283,296,271,222,278,197,283,296,283,146,285,25,283,296,285,25,316,263,316,263,285,25,317,60,316,263,317,60,338,217,338,217,317,60,339,106,338,217,339,106,346,158,283,296,278,197,282,171,283,296,282,171,283,146,283,296,243,315,248,267,198,
-13,195,-6,243,1,202,463,205,412,208,463,208,463,205,412,211,419,208,463,211,419,214,460,214,460,211,419,216,426,214,460,216,426,219,456,219,456,216,426,220,432,219,456,220,432,222,450,222,450,220,432,223,438,222,450,223,438,223,443,205,412,202,463,194,463,205,412,194,463,188,461,205,412,188,461,183,458,205,412,183,458,179,453,205,412,179,453,176,448,205,412,176,448,158,355,158,355,176,448,134,355,280,105,285,25,283,146,194,305,178,322,178,308,241,463,243,412,246,463,246,463,243,412,249,419,246,463,249,419,252,460,252,460,249,419,254,426,252,460,254,426,257,456,257,456,254,426,258,432,257,456,258,432,260,450,260,450,258,432,261,438,260,450,261,438,262,443,243,412,241,463,233,463,243,412,233,463,226,461,243,412,226,461,221,458,243,412,221,458,217,453,243,412,217,453,214,448,243,412,214,448,197,355,99,43,89,75,98,0,98,0,89,75,85,113,98,0,85,113,83,7,83,7,85,113,84,152,87,295,84,152,88,208,87,295,88,208,102,253,151,305,184,312,184,322,151,305,184,322,132,315,151,305,132,315,124,285,132,315,87,295,102,253,132,315,102,253,124,285,32,69,41,49,52,261,52,261,41,49,54,32,52,261,54,32,87,295,87,295,54,32,68,18,87,295,68,18,84,152,84,152,68,18,83,7,29,211,20,146,22,118,29,211,22,118,25,92,29,211,25,92,32,69,29,211,32,69,52,261,114,-4,130,-6,115,21,115,21,130,-6,140,13,158,16,140,13,153,-3,158,16,153,-3,173,4,99,43,98,0,114,-4,99,43,114,-4,115,21,244,71,238,102,245,17,245,17,238,102,237,102,237,102,238,102,243,222,243,222,238,102,242,119,243,222,242,119,245,133,248,203,243,222,245,133,248,203,245,133,248,147,248,203,248,147,249,162,248,203,249,162,250,177,219,245,219,60,228,242,228,242,219,60,230,36,228,242,230,36,236,235,236,235,230,36,237,102,236,235,237,102,243,222,244,71,245,17,253,46,253,46,245,17,262,4,253,46,262,4,266,28,266,28,262,4,282,-3,266,28,282,-3,280,16,280,16,282,-3,295,13,321,20,295,13,305,-6,321,20,305,-6,322,-4,395,49,404,69,408,213,408,213,404,69,411,92,408,213,411,
-92,416,148,416,148,411,92,415,118,386,262,351,296,353,145,386,262,353,145,354,7,386,262,354,7,369,18,386,262,369,18,383,32,386,262,383,32,395,49,386,262,395,49,408,213,337,250,349,204,351,296,351,296,349,204,353,145,354,7,353,145,352,107,337,250,351,296,316,284,316,284,351,296,305,316,316,284,305,316,288,305,288,305,305,316,252,322,288,305,252,322,252,312,321,20,322,-4,338,41,338,41,322,-4,339,0,338,41,339,0,348,71,348,71,339,0,354,7,348,71,354,7,352,107,295,13,282,-3,305,-6,195,118,199,102,200,235,200,235,199,102,206,36,200,235,206,36,209,242,209,242,206,36,219,60,209,242,219,60,219,245,206,36,199,102,193,71,206,36,193,71,190,17,190,17,193,71,184,46,190,17,184,46,173,4,173,4,184,46,172,27,173,4,172,27,158,16,193,222,188,202,189,145,193,222,189,145,191,131,193,222,191,131,195,118,193,222,195,118,200,235,188,202,187,176,187,159,188,202,187,159,189,145,140,13,130,-6,153,-3,237,102,230,36,245,17,197,355,214,448,173,355,54,209,63,245,68,357,68,357,63,245,76,280,68,357,76,280,98,410,98,410,76,280,92,314,98,410,92,314,111,346,111,346,120,345,116,355,116,355,120,345,140,355,40,237,41,127,49,298,49,298,41,127,51,172,49,298,51,172,68,357,68,357,51,172,54,209,140,355,148,344,152,355,152,355,148,344,157,344,152,355,157,344,165,357,165,357,157,344,191,346,165,357,191,346,177,360,177,360,191,346,189,363,140,355,120,345,129,345,140,355,129,345,138,344,140,355,138,344,148,344,257,432,246,413,257,370,257,370,246,413,231,394,257,370,231,394,226,354,226,354,231,394,215,378,226,354,215,378,201,368,201,368,189,363,191,346,238,472,235,484,212,485,238,472,212,485,206,464,238,472,206,464,237,472,238,472,256,478,235,484,212,485,198,483,206,464,206,464,198,483,183,478,206,464,183,478,178,443,178,443,183,478,167,471,178,443,167,471,153,463,116,355,132,383,141,455,141,455,132,383,153,415,141,455,153,415,153,463,153,463,153,415,178,443,141,455,98,410,111,346,141,455,111,346,116,355,245,471,251,467,256,478,256,478,251,467,257,462,256,478,257,462,272,
-468,272,468,257,462,260,455,272,468,260,455,262,448,262,448,257,432,279,393,279,393,257,432,257,370,238,472,237,472,245,471,238,472,245,471,256,478,279,393,287,427,283,451,279,393,283,451,272,468,279,393,272,468,262,448,201,368,191,346,226,354,108,5,155,-6,109,20,109,20,155,-6,127,16,161,30,127,16,155,-6,161,30,155,-6,198,1,216,262,201,245,217,242,216,262,217,242,243,240,243,240,217,242,231,234,243,240,231,234,241,222,80,76,88,112,91,227,91,227,88,112,107,156,91,227,107,156,116,249,116,249,107,156,135,199,116,249,135,199,146,264,146,264,135,199,168,232,146,264,168,232,180,270,180,270,168,232,201,245,180,270,201,245,216,262,109,20,96,29,108,5,108,5,96,29,87,43,108,5,87,43,74,35,74,35,87,43,82,59,74,35,82,59,80,76,80,76,91,227,74,35,74,35,91,227,69,201,74,35,69,201,52,78,52,78,69,201,51,172,52,78,51,172,41,127,279,140,275,175,273,98,273,98,275,175,263,210,273,98,263,210,258,58,258,58,263,210,250,191,258,58,250,191,243,153,258,58,243,153,232,24,232,24,243,153,223,108,232,24,223,108,198,1,198,1,223,108,194,63,198,1,194,63,161,30,248,207,250,191,263,210,248,207,263,210,243,240,248,207,243,240,241,222,41,127,40,237,38,174,28,172,35,180,44,212,44,212,35,180,41,183,44,212,41,183,47,184,47,184,51,183,60,221,60,221,51,183,55,180,60,221,55,180,58,173,0,147,10,141,13,174,13,174,10,141,20,160,13,174,20,160,28,196,28,196,20,160,28,172,28,196,28,172,44,212,61,145,65,86,77,224,77,224,65,86,77,48,77,224,77,48,94,222,94,222,77,48,100,19,94,222,100,19,106,216,106,216,100,19,121,93,106,216,121,93,120,118,120,118,120,154,118,183,120,118,118,183,114,203,120,118,114,203,106,216,169,478,167,452,188,448,169,478,188,448,202,474,202,474,188,448,209,434,202,474,209,434,228,461,228,461,209,434,227,404,228,461,227,404,242,354,252,78,240,45,241,5,241,5,240,45,220,21,241,5,220,21,191,13,191,13,161,20,187,-6,187,-6,161,20,141,39,187,-6,141,39,136,0,136,0,141,39,128,65,136,
-0,128,65,121,93,60,162,61,145,77,224,60,162,77,224,60,221,60,162,60,221,58,173,60,221,44,212,47,184,380,192,380,203,370,191,370,191,380,203,369,204,370,191,369,204,358,189,358,189,369,204,357,205,358,189,357,205,346,188,346,188,357,205,345,206,346,188,345,206,333,188,333,188,345,206,333,207,333,188,333,207,323,209,323,209,320,246,322,188,322,188,320,246,317,133,320,246,316,284,317,133,317,133,316,284,308,322,317,133,308,322,304,81,304,81,308,322,297,359,304,81,297,359,282,394,304,81,282,394,280,36,280,36,282,394,267,420,280,36,267,420,260,162,260,162,258,119,280,36,280,36,258,119,252,78,280,36,252,78,241,5,191,13,187,-6,241,5,333,188,323,209,322,188,128,430,139,442,140,474,140,474,139,442,152,450,140,474,152,450,169,478,169,478,152,450,167,452,112,463,118,391,121,413,112,463,121,413,140,474,140,474,121,413,128,430,267,420,250,443,253,280,267,420,253,280,253,277,267,420,253,277,254,270,267,420,254,270,256,258,267,420,256,258,257,243,267,420,257,243,259,226,267,420,259,226,259,192,267,420,259,192,260,186,267,420,260,186,260,180,267,420,260,180,260,174,267,420,260,174,260,168,267,420,260,168,260,162,259,226,198,255,199,208,259,226,199,208,259,192,157,291,133,328,146,235,157,291,146,235,199,208,157,291,199,208,198,255,121,363,118,391,103,271,121,363,103,271,146,235,121,363,146,235,133,328,118,391,112,463,103,271,103,271,112,463,88,442,103,271,88,442,74,316,74,316,88,442,71,411,74,316,71,411,64,370,242,354,253,280,250,443,242,354,250,443,228,461,65,86,61,145,61,130,121,93,100,19,136,0,26,424,35,427,36,447,36,447,35,427,46,431,36,447,46,431,54,457,54,457,46,431,57,434,54,457,57,434,74,465,74,465,57,434,68,436,74,465,68,436,77,437,77,437,118,429,94,470,94,470,118,429,114,472,94,470,74,465,77,437,279,291,277,291,292,77,279,291,292,77,290,339,290,339,292,77,292,176,290,339,292,176,296,234,423,454,424,473,419,454,419,454,424,473,415,455,366,433,415,455,375,462,366,433,375,462,337,431,296,234,308,307,309,388,309,388,308,307,331,379,309,388,331,
-379,337,431,337,431,331,379,366,433,292,77,277,291,294,50,428,452,431,450,443,470,443,470,431,450,432,446,445,360,432,446,432,362,432,362,432,446,429,441,432,362,429,441,422,434,424,473,423,454,428,452,424,473,428,452,443,470,424,473,375,462,415,455,445,360,460,363,461,462,461,462,460,363,473,371,461,462,473,371,475,449,475,449,473,371,481,383,475,449,481,383,485,432,485,432,481,383,487,397,485,432,487,397,488,413,443,470,432,446,445,360,443,470,445,360,461,462,405,399,407,386,408,414,408,414,407,386,412,376,408,414,412,376,414,425,414,425,412,376,421,367,414,425,421,367,422,434,422,434,421,367,432,362,364,0,364,13,334,16,364,0,334,16,313,22,364,0,313,22,219,55,364,0,219,55,214,34,364,0,214,34,202,23,364,0,202,23,181,16,364,0,181,16,150,13,364,0,150,13,150,0,182,360,204,295,204,444,204,444,204,295,220,206,237,408,220,206,294,50,237,408,294,50,261,357,261,357,294,50,277,291,219,55,313,22,220,86,220,86,313,22,301,32,220,86,301,32,220,206,220,206,301,32,294,50,163,465,114,472,118,429,163,465,118,429,153,404,163,465,153,404,182,360,163,465,182,360,204,444,204,444,220,206,237,408,290,339,296,234,309,388,26,424,36,447,20,435,415,162,411,200,409,114,409,114,411,200,400,235,409,114,400,235,392,68,392,68,400,235,381,266,392,68,381,266,360,29,360,29,381,266,355,292,360,29,355,292,352,143,309,315,315,270,323,311,323,311,315,270,336,235,323,311,336,235,355,292,355,292,336,235,348,191,355,292,348,191,352,143,295,319,280,321,285,294,295,319,285,294,315,270,295,319,315,270,309,315,280,321,264,322,285,294,285,294,264,322,247,322,285,294,247,322,246,302,246,302,247,322,247,478,246,302,247,478,189,302,189,302,247,478,188,478,189,302,188,478,188,322,360,29,352,143,349,102,360,29,349,102,340,67,360,29,340,67,323,38,360,29,323,38,313,3,323,38,300,19,313,3,313,3,300,19,268,13,313,3,268,13,247,-6,247,-6,268,13,246,13,247,-6,246,13,247,-151,247,-151,246,13,189,302,247,-151,189,302,189,13,188,-6,188,-151,247,-151,188,-6,247,-151,189,13,188,-6,189,13,174,
-14,188,-6,174,14,172,-6,97,98,119,2,107,71,107,71,119,2,121,48,132,35,121,48,119,2,132,35,119,2,172,-6,115,283,120,313,98,260,98,260,120,313,77,289,98,260,77,289,87,229,87,229,77,289,84,192,85,159,84,192,77,28,85,159,77,28,89,127,89,127,77,28,119,2,89,127,119,2,97,98,172,-6,174,14,160,18,172,-6,160,18,145,25,172,-6,145,25,132,35,177,322,120,313,138,297,177,322,138,297,168,302,177,322,168,302,189,302,177,322,189,302,188,322,77,28,84,192,77,289,77,28,77,289,46,65,46,65,77,289,45,253,46,65,45,253,27,111,27,111,45,253,27,208,27,111,27,208,20,159,120,313,115,283,138,297,246,302,189,302,246,13,15,192,25,212,26,257,26,257,25,212,37,230,26,257,37,230,46,286,46,286,37,230,51,244,46,286,51,244,74,307,74,307,51,244,67,253,74,307,67,253,86,256,108,315,86,256,117,256,108,315,117,256,508,315,508,315,117,256,175,256,508,315,175,256,391,256,11,224,4,192,15,192,11,224,15,192,26,257,152,191,157,215,117,256,117,256,157,215,165,237,117,256,165,237,175,256,152,73,157,0,161,42,161,42,157,0,188,-6,161,42,188,-6,176,21,176,21,188,-6,200,13,218,16,200,13,215,-3,218,16,215,-3,237,4,147,139,129,17,148,106,148,106,129,17,157,0,148,106,157,0,152,73,307,72,301,103,309,16,304,208,301,103,305,114,304,208,305,114,309,193,309,193,305,114,308,127,309,193,308,127,311,139,312,177,309,193,311,139,312,177,311,139,313,150,312,177,313,150,313,161,263,103,270,36,270,219,270,219,270,36,282,60,270,219,282,60,283,223,283,223,282,60,294,35,283,223,294,35,295,219,295,219,294,35,301,103,295,219,301,103,304,208,307,72,309,16,317,46,317,46,309,16,327,3,317,46,327,3,330,28,330,28,327,3,346,-4,330,28,346,-4,345,16,345,16,346,-4,361,13,385,20,361,13,366,-6,385,20,366,-6,401,0,508,315,391,256,400,239,508,315,400,239,407,217,508,315,407,217,448,256,508,315,448,256,508,256,476,190,470,214,474,89,474,89,470,214,461,237,474,89,461,237,458,47,458,47,461,237,448,256,458,47,448,256,432,17,432,
-17,448,256,417,145,407,217,413,193,448,256,448,256,413,193,416,168,448,256,416,168,417,145,148,166,152,191,117,256,148,166,117,256,129,17,148,166,129,17,147,139,476,190,474,89,480,143,476,190,480,143,479,166,432,17,417,145,416,107,432,17,416,107,411,71,432,17,411,71,401,41,432,17,401,41,401,0,361,13,346,-4,366,-6,261,209,255,195,256,126,261,209,256,126,260,114,261,209,260,114,263,103,261,209,263,103,270,219,251,162,251,150,252,178,252,178,251,150,253,138,252,178,253,138,255,195,255,195,253,138,256,126,270,36,263,103,256,71,270,36,256,71,255,17,255,17,256,71,246,46,255,17,246,46,237,4,237,4,246,46,234,27,237,4,234,27,218,16,200,13,188,-6,215,-3,106,237,97,215,106,47,106,237,106,47,129,17,106,237,129,17,117,256,90,191,86,167,90,89,90,191,90,89,106,47,90,191,106,47,97,215,90,89,86,167,84,145,385,20,401,0,401,41,86,256,108,315,74,307,301,103,294,35,309,16,355,-151,355,-137,327,-135,355,-151,327,-135,307,-129,355,-151,307,-129,216,-96,355,-151,216,-96,211,-116,355,-151,211,-116,200,-128,355,-151,200,-128,181,-134,355,-151,181,-134,152,-137,355,-151,152,-137,152,-151,296,-118,290,-100,234,17,234,17,290,-100,253,16,274,17,253,16,290,-100,274,17,290,-100,288,-73,217,-6,296,-118,234,17,217,-6,234,17,216,20,217,-6,216,20,198,26,217,-6,198,26,182,35,217,-6,182,35,166,47,217,-6,166,47,152,11,217,-65,216,-96,307,-129,217,-65,307,-129,296,-118,217,-65,296,-118,217,-6,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,135,376,152,401,176,462,135,376,176,462,113,430,126,105,152,11,144,73,144,73,152,11,166,47,106,185,104,232,99,46,106,185,99,46,114,142,114,142,99,46,152,11,114,142,152,11,126,105,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,104,232,106,272,113,430,106,272,112,311,113,430,112,311,122,346,113,430,122,346,135,376,23,234,32,159,34,313,34,313,32,159,58,96,34,313,58,96,65,379,65,379,58,96,99,46,65,379,99,46,104,232,290,442,307,
-436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,360,391,392,428,392,428,360,391,378,360,392,428,378,360,391,324,329,462,252,473,252,448,312,27,352,11,328,37,328,37,352,11,344,49,364,75,344,49,352,11,364,75,352,11,406,46,399,188,406,46,402,236,402,236,406,46,440,377,440,377,406,46,446,95,440,377,446,95,471,310,471,310,446,95,472,158,471,310,472,158,481,232,399,282,402,236,440,377,399,282,440,377,392,428,399,282,392,428,391,324,392,428,329,462,338,415,406,46,399,188,392,144,406,46,392,144,381,107,406,46,381,107,364,75,293,21,274,17,288,-6,293,21,288,-6,352,11,293,21,352,11,312,27,288,-6,274,17,288,-73,65,379,104,232,113,430,155,18,142,25,145,-3,145,-3,142,25,130,35,145,-3,130,35,120,48,120,48,107,72,145,-3,145,-3,107,72,104,10,104,10,107,72,96,98,104,10,96,98,89,128,104,10,89,128,85,159,104,10,85,159,70,34,70,34,85,159,84,191,84,191,87,230,82,293,82,293,87,230,98,260,82,293,98,260,125,314,125,314,98,260,115,283,125,314,115,283,138,297,20,159,26,110,28,214,28,214,26,110,43,68,28,214,43,68,49,259,49,259,43,68,70,34,49,259,70,34,82,293,82,293,70,34,84,191,227,315,178,322,182,301,182,301,178,322,165,302,138,297,165,302,178,322,138,297,178,322,125,314,252,62,235,35,246,10,246,10,235,35,212,18,246,10,212,18,204,-3,204,-3,212,18,184,13,204,-3,184,13,204,-151,204,-151,184,13,169,14,196,296,209,289,227,315,227,315,209,289,221,279,227,315,221,279,231,267,231,267,243,248,268,293,268,293,243,248,253,225,268,293,253,225,260,199,252,62,281,36,262,98,262,98,281,36,266,143,268,293,266,143,281,36,268,293,281,36,300,260,300,260,281,36,307,70,300,260,307,70,321,216,321,216,307,70,323,113,321,216,323,113,329,162,268,293,260,199,264,171,268,293,264,171,266,143,268,293,227,315,231,267,204,-151,169,14,155,18,204,-151,155,18,145,-3,204,-151,145,-3,145,-151,252,62,246,10,281,36,227,315,182,301,196,296,135,150,89,184,99,74,99,74,89,184,71,248,58,103,71,248,37,298,58,103,37,298,30,
-148,30,148,37,298,20,214,174,-83,181,-121,191,-97,191,-97,181,-121,205,-135,191,-97,205,-135,210,-107,210,-107,205,-135,229,-144,210,-107,229,-144,230,-115,230,-115,229,-144,254,-150,230,-115,254,-150,252,-119,252,-119,254,-150,273,-121,289,-120,273,-121,277,-151,289,-120,277,-151,326,-146,71,248,83,308,84,370,84,370,83,308,114,359,84,370,114,359,151,425,151,425,114,359,160,398,151,425,160,398,229,461,229,461,160,398,217,424,229,461,217,424,280,433,280,433,318,427,308,473,308,473,318,427,343,472,84,370,37,298,71,248,374,-66,367,-80,369,-128,369,-128,367,-80,358,-91,369,-128,358,-91,347,-101,347,-101,334,-109,369,-128,369,-128,334,-109,326,-146,435,-12,431,21,427,-61,427,-61,431,21,419,50,427,-61,419,50,403,-100,403,-100,419,50,400,74,403,-100,400,74,380,-34,380,-34,400,74,374,93,380,-34,374,93,369,0,342,108,272,124,297,38,342,108,297,38,339,23,342,108,339,23,369,0,342,108,369,0,374,93,135,150,150,59,200,134,200,134,150,59,205,51,200,134,205,51,272,124,272,124,205,51,250,46,272,124,250,46,297,38,380,-34,379,-51,403,-100,374,-66,369,-128,403,-100,374,-66,403,-100,379,-51,326,-146,334,-109,320,-115,326,-146,320,-115,305,-118,326,-146,305,-118,289,-120,384,377,400,379,400,456,400,456,400,379,411,385,400,456,411,385,418,439,418,439,411,385,419,393,418,439,419,393,424,414,424,414,419,393,423,403,374,466,343,472,352,396,374,466,352,396,364,382,374,466,364,382,384,377,374,466,384,377,400,456,343,472,318,427,339,413,343,472,339,413,352,396,308,473,229,461,280,433,273,-121,254,-150,277,-151,181,-121,174,-83,159,-101,99,74,71,248,58,103,135,150,99,74,150,59,66,71,59,87,70,7,70,7,59,87,57,105,51,175,57,105,58,118,51,175,58,118,81,203,81,203,58,118,62,131,81,203,62,131,69,143,138,176,165,241,122,172,122,172,165,241,120,225,122,172,120,225,106,168,106,168,120,225,92,163,106,168,92,163,92,162,92,162,92,163,79,153,79,153,92,163,81,203,79,153,81,203,69,143,218,262,221,189,249,281,249,281,221,189,259,209,249,281,259,209,276,308,276,308,259,209,285,240,276,308,285,240,295,343,295,343,285,240,300,284,295,
-343,300,284,305,343,138,176,155,178,165,241,165,241,155,178,172,180,165,241,172,180,188,249,188,249,172,180,221,189,188,249,221,189,218,262,248,42,219,53,221,-2,221,-2,219,53,200,0,192,0,200,0,219,53,192,0,219,53,180,57,66,71,70,7,77,58,77,58,70,7,99,-3,77,58,99,-3,92,49,92,49,99,-3,111,46,122,47,111,46,133,-6,122,47,133,-6,137,50,137,50,133,-6,147,-5,137,50,147,-5,153,53,153,53,147,-5,163,-4,153,53,163,-4,168,56,168,56,163,-4,179,-2,168,56,179,-2,180,57,180,57,179,-2,192,0,111,46,99,-3,133,-6,179,-91,185,-151,187,-97,187,-97,185,-151,211,-146,187,-97,211,-146,196,-102,196,-102,211,-146,206,-104,223,-101,206,-104,211,-146,223,-101,211,-146,238,-131,285,-41,281,-4,279,-77,279,-77,281,-4,269,22,279,-77,269,22,263,-47,263,-47,262,-107,279,-77,221,-2,238,-8,248,42,248,42,238,-8,252,-18,248,42,252,-18,269,22,269,22,252,-18,260,-31,269,22,260,-31,263,-47,262,-107,263,-47,260,-66,262,-107,260,-66,251,-82,262,-107,251,-82,238,-94,262,-107,238,-94,238,-131,153,-85,155,-145,164,-83,164,-83,155,-145,169,-150,164,-83,169,-150,172,-85,172,-85,169,-150,185,-151,172,-85,185,-151,179,-91,136,-103,137,-127,139,-95,139,-95,137,-127,144,-138,139,-95,144,-138,145,-89,145,-89,144,-138,155,-145,145,-89,155,-145,153,-85,120,225,81,203,92,163,46,26,70,7,57,105,46,26,57,105,51,175,46,26,51,175,31,139,46,26,31,139,30,55,30,55,31,139,24,95,137,-127,136,-103,134,-112,223,-101,238,-131,238,-94,53,440,64,429,379,463,379,463,64,429,155,436,379,463,155,436,165,437,379,463,165,437,257,437,379,463,257,437,300,435,70,386,142,51,141,78,141,258,141,229,314,229,141,258,314,229,314,258,379,463,300,435,328,429,379,463,328,429,346,416,379,463,346,416,358,395,379,463,358,395,365,363,379,463,365,363,382,363,70,386,141,78,141,409,70,386,141,409,141,421,70,386,141,421,143,428,70,386,143,428,148,433,70,386,148,433,68,412,155,436,64,429,68,412,155,436,68,412,148,433,36,447,53,440,379,463,36,447,379,463,9,463,36,447,9,463,9,450,205,0,205,13,177,16,205,0,177,
-16,159,22,205,0,159,22,68,55,205,0,68,55,63,35,205,0,63,35,52,23,205,0,52,23,35,16,205,0,35,16,8,13,205,0,8,13,8,0,70,86,68,55,159,22,70,86,159,22,148,33,70,86,148,33,142,51,70,86,142,51,70,386,112,273,305,273,305,315,112,273,305,315,56,315,112,273,56,315,112,-132,112,91,112,63,270,63,112,91,270,63,270,91,112,-132,56,315,56,-132,177,558,157,556,162,519,162,519,157,556,152,521,140,520,152,521,157,556,140,520,157,556,139,550,104,507,116,514,120,540,120,540,116,514,128,518,120,540,128,518,139,550,139,550,128,518,140,520,101,526,80,508,89,497,101,526,89,497,104,507,101,526,104,507,120,540,474,380,466,389,391,293,391,293,466,389,93,255,391,293,93,255,18,159,18,159,93,255,165,445,168,451,165,445,198,396,168,451,198,396,171,459,171,459,198,396,175,470,178,487,198,396,203,554,203,554,198,396,218,425,203,554,218,425,222,545,222,545,218,425,232,448,222,545,232,448,236,531,236,531,232,448,241,467,236,531,241,467,244,514,244,514,241,467,245,483,244,514,245,483,246,497,177,496,178,487,203,554,177,496,203,554,177,558,177,496,177,558,175,505,177,558,162,519,170,513,177,558,170,513,175,505,177,479,175,470,198,396,177,479,198,396,178,487,165,445,93,255,198,396,239,65,241,34,244,81,244,81,241,34,249,17,244,81,249,17,252,100,252,100,249,17,262,3,252,100,262,3,266,123,266,123,262,3,282,-6,266,123,282,-6,287,152,287,152,282,-6,308,-9,287,152,308,-9,306,62,306,62,307,69,287,152,287,152,307,69,310,79,287,152,310,79,313,89,287,152,313,89,391,293,391,293,313,89,317,98,391,293,317,98,320,104,320,104,474,380,391,293,395,51,381,41,384,22,384,22,381,41,368,34,384,22,368,34,364,8,364,8,368,34,356,30,364,8,356,30,346,-1,346,-1,356,30,345,28,346,-1,345,28,333,27,333,27,322,29,327,-7,327,-7,322,29,314,35,327,-7,314,35,310,43,308,-9,327,-7,310,43,308,-9,310,43,307,52,308,-9,307,52,306,62,333,27,327,-7,346,-1,395,51,384,22,404,41,241,34,239,65,238,51,18,159,165,445,9,168,133,261,261,463,191,
-463,133,261,191,463,45,202,133,261,45,202,230,202,133,261,230,202,319,261,230,202,102,0,172,0,230,202,172,0,319,261,145,225,176,225,145,420,145,420,145,459,121,412,121,412,145,459,97,439,121,412,97,439,97,402,97,402,97,439,73,389,52,410,8,370,28,355,52,410,28,355,50,373,52,410,50,373,73,389,52,410,73,389,97,439,182,428,189,429,195,470,195,470,189,429,195,429,195,470,195,429,248,473,248,473,195,429,202,430,248,473,202,430,208,430,208,430,253,425,248,473,248,473,253,425,334,459,413,418,407,318,421,292,421,292,436,260,477,351,477,351,436,260,448,226,477,351,448,226,457,190,299,140,324,209,335,284,335,284,324,209,364,264,335,284,364,264,407,318,407,318,364,264,421,292,279,224,241,149,281,0,279,224,281,0,285,67,279,224,285,67,299,140,279,224,299,140,335,284,218,71,210,0,281,0,218,71,281,0,241,149,457,190,463,152,477,351,477,351,463,152,465,112,490,-17,465,112,456,49,490,-17,456,49,438,-81,438,-81,456,49,432,-10,438,-81,432,-10,396,-63,477,351,413,418,421,292,521,259,477,351,490,-17,521,259,490,-17,524,60,521,259,524,60,537,145,372,-128,438,-81,396,-63,372,-128,396,-63,350,-104,372,-128,350,-104,297,-127,372,-128,297,-127,297,-151,253,425,298,410,334,459,334,459,298,410,339,387,334,459,339,387,413,418,413,418,339,387,376,356,413,418,376,356,407,318,145,420,176,225,145,459,145,459,176,225,176,427,145,459,176,427,195,470,195,470,176,427,182,428,465,112,490,-17,477,351,84,330,124,297,149,331,149,331,124,297,162,260,149,331,162,260,207,287,207,287,162,260,196,219,207,287,196,219,209,200,207,287,209,200,253,241,253,241,209,200,214,193,253,241,214,193,219,186,80,369,4,401,41,358,80,369,41,358,84,330,80,369,84,330,149,331,219,186,223,179,253,241,253,241,223,179,228,172,253,241,228,172,232,165,232,165,236,157,253,241,253,241,236,157,240,149,253,241,240,149,244,142,244,142,248,134,253,241,253,241,248,134,252,127,253,241,252,127,261,107,261,107,252,127,142,38,142,38,252,127,131,58,196,219,77,151,89,131,196,219,89,131,209,200,332,74,321,116,323,-151,323,-151,321,116,305,157,323,
--151,305,157,305,-82,305,-82,304,-94,323,-151,323,-151,304,-94,304,-107,323,-151,304,-107,303,-120,305,157,286,196,290,29,305,157,290,29,298,-8,305,157,298,-8,303,-45,305,157,303,-45,305,-82,286,196,253,241,261,107,286,196,261,107,277,67,286,196,277,67,290,29,338,30,332,74,335,-95,338,30,335,-95,338,-68,338,30,338,-68,340,-41,338,30,340,-41,341,-15,332,74,323,-151,330,-123,332,74,330,-123,335,-95,302,-133,300,-146,323,-151,302,-133,323,-151,303,-120,41,358,4,401,-3,380,133,244,135,303,125,257,125,257,135,303,115,317,125,257,115,317,114,266,114,266,115,317,99,269,93,267,99,269,115,317,93,267,115,317,89,322,288,315,155,146,238,169,238,169,155,146,131,132,238,169,131,132,127,119,127,119,30,0,102,0,156,159,159,176,161,256,161,256,159,176,162,193,161,256,162,193,164,224,164,224,162,193,163,210,154,146,156,159,161,256,154,146,161,256,151,283,154,146,151,283,140,208,154,146,140,208,139,190,154,146,139,190,137,170,154,146,137,170,135,150,154,146,135,150,131,132,154,146,131,132,155,146,268,56,259,70,272,0,272,0,259,70,254,90,272,0,254,90,252,15,252,15,254,90,252,119,239,169,252,119,252,137,239,169,252,137,254,155,260,185,264,198,288,315,260,185,288,315,257,171,257,171,288,315,239,169,257,171,239,169,254,155,288,315,264,198,360,315,138,227,140,208,151,283,138,227,151,283,135,303,127,119,102,0,238,169,314,60,307,56,316,-5,316,-5,307,56,302,52,316,-5,302,52,299,-6,299,-6,302,52,298,48,299,-6,298,48,292,46,292,46,279,48,299,-6,299,-6,279,48,272,0,352,37,351,45,350,20,350,20,351,45,347,52,350,20,347,52,342,7,342,7,347,52,342,57,342,7,342,57,334,60,314,60,316,-5,326,62,326,62,316,-5,330,0,326,62,330,0,334,60,334,60,330,0,342,7,239,169,235,155,238,38,239,169,238,38,252,15,239,169,252,15,252,119,232,140,230,123,230,64,232,140,230,64,238,38,232,140,238,38,235,155,228,107,227,91,230,64,228,107,230,64,230,123,89,322,74,320,76,254,89,322,76,254,84,258,89,322,84,258,89,263,89,322,89,263,93,267,49,258,56,254,61,315,61,315,56,
-254,64,252,61,315,64,252,74,320,74,320,64,252,76,254,38,277,40,270,41,294,41,294,40,270,44,263,41,294,44,263,49,306,49,306,44,263,49,258,49,306,49,258,61,315,135,303,133,244,138,227,268,56,272,0,279,48,288,315,238,169,239,169,40,-9,91,-71,62,55,62,55,91,-71,105,-11,105,-11,91,-71,154,-99,105,-11,154,-99,167,-42,167,-42,154,-99,216,-111,167,-42,216,-111,232,-56,232,-56,216,-111,264,-123,232,-56,264,-123,283,-76,283,-76,264,-123,287,-150,283,-76,287,-150,304,-121,304,-121,287,-150,298,-150,304,-121,298,-150,300,-144,77,34,96,16,84,191,84,191,88,232,71,276,71,276,88,232,99,263,71,276,99,263,117,309,117,309,99,263,117,285,117,309,117,285,181,322,181,322,117,285,140,298,181,322,140,298,168,302,168,302,197,294,181,322,181,322,197,294,232,314,186,13,149,-3,183,-6,186,13,183,-6,232,2,186,13,147,23,149,-3,120,3,149,-3,147,23,120,3,147,23,119,52,120,3,119,52,99,93,120,3,99,93,96,16,87,141,84,191,96,16,87,141,96,16,99,93,264,115,256,77,273,26,273,26,256,77,242,45,273,26,242,45,232,2,232,2,242,45,219,21,232,2,219,21,186,13,245,239,260,198,273,292,273,292,260,198,266,152,273,26,266,152,264,115,232,314,197,294,224,272,232,314,224,272,245,239,232,314,245,239,273,292,273,26,303,61,303,257,303,257,303,61,322,105,303,257,322,105,322,210,322,210,322,105,329,154,273,292,266,152,273,26,273,292,273,26,303,257,304,-121,300,-144,301,-137,304,-121,301,-137,303,-131,304,-121,303,-131,304,-125,22,69,25,41,25,176,25,176,25,41,31,14,25,176,31,14,41,229,41,229,31,14,40,-9,41,229,40,-9,62,55,25,176,20,124,21,97,25,176,21,97,22,69,62,55,63,56,71,276,71,276,63,56,77,34,71,276,77,34,84,191,71,276,41,229,62,55,208,440,252,473,188,431,188,431,252,473,176,462,188,431,176,462,169,418,169,418,176,462,152,401,136,379,152,401,176,462,136,379,176,462,113,430,290,442,329,462,271,446,271,446,329,462,252,448,230,446,252,448,252,473,230,446,252,473,208,440,113,430,65,379,65,85,113,430,65,85,104,252,113,430,104,252,107,
-287,113,430,107,287,114,321,113,430,114,321,124,352,113,430,124,352,136,379,107,176,104,220,113,34,113,34,104,220,65,85,65,85,104,220,104,252,104,252,104,220,401,252,401,252,104,220,402,220,401,252,402,220,440,377,34,152,65,85,65,379,34,152,65,379,34,313,34,152,34,313,23,234,312,27,293,21,328,1,328,1,293,21,274,17,328,1,274,17,253,16,253,16,234,17,252,-9,252,-9,234,17,216,20,252,-9,216,20,198,26,166,47,177,1,182,35,182,35,177,1,252,-9,182,35,252,-9,198,26,391,137,379,102,391,33,391,33,379,102,363,73,391,33,363,73,344,49,344,49,328,37,391,33,391,33,328,37,328,1,481,232,471,310,470,151,470,151,471,310,440,377,470,151,440,377,439,84,439,84,440,377,402,220,439,84,402,220,398,176,375,365,388,331,392,428,392,428,388,331,397,293,392,428,397,293,440,377,440,377,397,293,401,252,290,442,307,436,329,462,329,462,307,436,323,426,329,462,323,426,338,415,338,415,359,393,392,428,392,428,359,393,375,365,392,428,329,462,338,415,398,176,391,137,391,33,398,176,391,33,439,84,253,16,252,-9,328,1,329,462,252,473,252,448,115,137,113,34,127,102,127,102,113,34,177,1,127,102,177,1,144,72,144,72,177,1,166,47,107,176,113,34,115,137,312,27,328,1,328,37,217,156,217,178,80,156,80,156,80,178,74,287,74,287,80,178,85,212,74,287,85,212,115,313,115,313,85,212,97,245,115,313,97,245,115,274,96,79,109,2,114,49,114,49,109,2,157,-6,114,49,157,-6,140,29,140,29,157,-6,172,22,195,24,172,22,190,-2,195,24,190,-2,220,7,84,115,80,156,70,26,84,115,70,26,109,2,84,115,109,2,96,79,17,152,23,104,24,203,24,203,23,104,41,61,24,203,41,61,43,249,43,249,41,61,70,26,43,249,70,26,74,287,74,287,70,26,80,156,222,285,237,268,223,309,223,309,237,268,234,308,239,309,234,308,237,268,239,309,237,268,248,248,258,322,246,322,248,248,258,322,248,248,256,227,258,322,256,227,267,227,248,248,246,322,245,318,248,248,245,318,244,314,248,248,244,314,242,311,248,248,242,311,239,309,186,320,167,302,199,297,186,320,199,297,201,317,201,
-317,199,297,222,285,201,317,222,285,213,313,213,313,222,285,223,309,285,73,274,79,268,46,268,46,274,79,256,57,268,46,256,57,246,24,246,24,256,57,237,41,246,24,237,41,220,7,220,7,237,41,217,30,220,7,217,30,195,24,172,22,157,-6,190,-2,166,322,115,313,115,274,166,322,115,274,139,294,166,322,139,294,167,302,166,322,167,302,186,320,80,178,80,156,217,178,63,1,65,4,70,47,70,47,65,4,68,6,70,47,68,6,73,7,73,7,84,6,86,30,86,30,84,6,94,2,86,30,94,2,108,18,108,18,94,2,106,-1,108,18,106,-1,121,-5,40,88,50,-6,51,88,51,88,50,-6,61,-6,51,88,61,-6,59,67,59,67,61,-6,62,-2,59,67,62,-2,70,47,70,47,62,-2,63,1,23,241,33,236,40,269,40,269,33,236,51,257,40,269,51,257,61,291,61,291,51,257,70,274,61,291,70,274,87,308,87,308,70,274,90,285,87,308,90,285,117,318,117,318,90,285,112,291,117,318,112,291,135,293,135,293,167,286,151,322,151,322,167,286,198,313,290,163,284,211,283,112,283,112,284,211,266,254,283,112,266,254,264,66,264,66,266,254,237,289,264,66,237,289,233,28,233,28,237,289,227,159,227,137,227,159,91,159,227,137,91,159,91,137,237,289,198,313,211,236,237,289,211,236,223,200,237,289,223,200,227,159,198,313,167,286,193,266,198,313,193,266,211,236,233,28,227,159,227,137,233,28,227,137,222,103,233,28,222,103,210,70,233,28,210,70,192,41,233,28,192,41,192,2,140,13,141,-6,168,21,168,21,141,-6,192,2,168,21,192,2,192,41,151,322,117,318,135,293,140,13,108,18,121,-5,140,13,121,-5,141,-6,86,30,70,47,73,7,111,89,109,93,121,36,121,36,109,93,106,97,121,36,106,97,104,102,120,428,118,391,121,36,120,428,121,36,149,408,149,408,121,36,149,56,185,2,149,56,121,36,120,428,72,377,73,300,120,428,73,300,84,331,120,428,84,331,100,362,120,428,100,362,118,391,78,151,69,177,73,89,73,89,69,177,64,204,73,89,64,204,42,155,42,155,64,204,63,232,72,377,63,232,65,267,72,377,65,267,73,300,42,155,63,232,72,377,42,155,72,377,42,310,42,155,42,
-310,31,232,464,90,442,111,430,54,430,54,442,111,411,80,430,54,411,80,394,26,394,26,411,80,380,55,394,26,380,55,354,6,354,6,380,55,347,37,354,6,347,37,310,-5,310,-5,347,37,310,25,310,-5,310,25,265,21,265,21,243,23,262,-9,262,-9,243,23,217,27,262,-9,217,27,192,35,185,2,262,-9,192,35,185,2,192,35,168,44,185,2,168,44,149,56,193,429,217,436,263,473,263,473,217,436,242,441,263,473,242,441,266,442,266,442,310,438,311,469,311,469,310,438,347,427,311,469,347,427,354,457,354,457,347,427,380,408,354,457,380,408,393,437,393,437,380,408,410,383,393,437,410,383,429,409,429,409,410,383,441,352,429,409,441,352,463,373,184,462,120,428,149,408,184,462,149,408,170,420,184,462,170,420,193,429,184,462,193,429,263,473,121,36,118,391,118,83,121,36,118,83,114,86,121,36,114,86,111,89,121,36,104,102,89,126,121,36,89,126,78,151,121,36,78,151,73,89,311,469,263,473,266,442,265,21,262,-9,310,-5,372,93,367,14,378,71,378,71,367,14,399,-3,378,71,399,-3,386,51,386,51,399,-3,396,32,404,23,396,32,399,-3,404,23,399,-3,435,-9,478,237,441,242,443,225,443,225,441,242,430,227,409,223,430,227,441,242,409,223,441,242,400,236,505,71,497,43,509,14,509,14,497,43,484,23,509,14,484,23,476,-3,476,-3,484,23,466,10,476,-3,466,10,445,5,445,5,433,7,435,-9,435,-9,433,7,423,10,435,-9,423,10,413,15,454,222,464,216,478,237,478,237,464,216,473,209,478,237,473,209,481,200,481,200,490,185,510,220,510,220,490,185,498,168,510,220,498,168,503,148,551,160,534,195,535,41,551,160,535,41,551,77,551,160,551,77,556,119,505,71,509,14,508,105,508,105,509,14,510,220,510,220,509,14,535,41,510,220,535,41,534,195,510,220,503,148,507,127,510,220,507,127,508,105,510,220,478,237,481,200,445,5,435,-9,476,-3,367,14,369,117,368,142,368,142,371,172,367,220,367,220,371,172,379,195,367,220,379,195,400,236,400,236,379,195,392,212,400,236,392,212,409,223,367,14,368,142,367,220,367,14,367,220,342,41,342,41,367,220,341,194,342,41,341,194,325,76,325,76,341,194,325,
-159,325,76,325,159,320,118,420,473,103,-9,138,-9,420,473,138,-9,452,473,107,279,90,301,102,227,102,227,90,301,79,330,102,227,79,330,74,243,74,243,79,330,75,365,78,445,75,365,78,396,78,445,78,396,92,455,92,455,78,396,88,421,92,455,88,421,104,441,158,259,136,221,149,222,158,259,149,222,162,225,158,259,130,264,136,221,107,279,102,227,136,221,107,279,136,221,130,264,166,454,171,449,177,471,177,471,171,449,176,442,177,471,176,442,180,432,200,462,180,432,184,420,200,462,184,420,187,412,151,473,148,457,158,456,151,473,158,456,177,471,177,471,158,456,166,454,229,435,217,450,223,400,229,435,223,400,229,405,229,435,229,405,232,411,229,435,232,411,234,418,217,450,200,462,202,396,217,450,202,396,209,395,217,450,209,395,217,396,217,450,217,396,223,400,200,462,187,412,191,405,200,462,191,405,196,400,200,462,196,400,202,396,207,252,215,261,219,290,219,290,215,261,223,273,219,290,223,273,234,310,234,310,223,273,231,287,234,310,231,287,241,305,162,225,174,229,175,261,175,261,174,229,186,235,175,261,186,235,191,266,191,266,186,235,198,244,191,266,198,244,205,276,205,276,198,244,207,252,205,276,207,252,219,290,175,261,158,259,162,225,124,453,148,457,136,472,124,453,136,472,121,468,124,453,121,468,106,463,124,453,106,463,104,441,62,429,50,411,52,268,62,429,52,268,74,243,62,429,74,243,75,365,62,429,75,365,78,445,41,389,35,366,38,301,41,389,38,301,52,268,41,389,52,268,50,411,148,457,151,473,136,472,38,301,35,366,34,340,92,455,104,441,106,463,180,432,200,462,177,471,369,117,367,14,372,93,478,237,443,225,454,222,404,23,435,-9,413,15,32,78,47,55,48,205,48,205,47,55,66,35,48,205,66,35,79,225,79,225,66,35,90,18,79,225,90,18,102,147,102,147,90,18,100,127,111,8,100,127,90,18,121,311,116,326,118,253,118,253,116,326,115,343,103,450,115,343,119,376,103,450,119,376,150,467,150,467,119,376,132,405,150,467,132,405,155,427,153,245,153,244,158,214,158,214,153,244,138,204,125,193,138,204,153,244,125,193,153,244,115,238,115,238,79,225,102,147,115,238,102,147,107,165,115,
-238,107,165,114,180,115,238,114,180,125,193,27,175,20,134,23,105,27,175,23,105,32,78,27,175,32,78,48,205,273,228,239,257,237,227,237,227,239,257,212,259,237,227,212,259,206,225,206,225,212,259,190,262,206,225,190,262,180,221,180,221,190,262,171,267,180,221,171,267,158,214,158,214,171,267,155,274,158,214,155,274,153,245,153,245,155,274,141,284,153,245,141,284,136,248,136,248,141,284,129,297,136,248,129,297,121,311,103,450,70,423,73,282,103,450,73,282,86,270,103,450,86,270,102,261,103,450,102,261,118,253,103,450,118,253,115,343,45,334,49,319,50,389,50,389,49,319,55,306,50,389,55,306,70,423,70,423,55,306,63,293,70,423,63,293,73,282,229,21,211,-9,225,-9,229,21,225,-9,242,-7,229,21,185,26,211,-9,106,90,111,8,122,60,122,60,111,8,134,0,122,60,134,0,149,39,149,39,134,0,158,-5,149,39,158,-5,185,26,185,26,158,-5,184,-8,185,26,184,-8,211,-9,229,447,228,473,213,473,229,447,213,473,187,442,229,447,242,472,228,473,213,473,150,467,155,427,213,473,155,427,187,442,353,115,343,108,353,32,353,32,343,108,334,96,353,32,334,96,329,18,329,18,334,96,325,80,329,18,325,80,313,61,313,61,303,49,329,18,329,18,303,49,302,6,306,456,307,424,318,453,318,453,307,424,336,396,318,453,336,396,328,451,328,451,336,396,336,450,343,451,336,450,336,396,343,451,336,396,356,359,367,314,384,314,377,473,367,314,377,473,363,473,367,314,363,473,360,465,367,314,360,465,356,359,356,359,360,465,355,459,356,359,355,459,350,454,356,359,350,454,343,451,388,109,383,114,388,69,388,109,388,69,393,91,388,109,393,91,392,101,353,115,353,32,367,118,367,118,353,32,374,50,367,118,374,50,376,117,376,117,374,50,388,69,376,117,388,69,383,114,229,21,242,-7,253,23,253,23,242,-7,260,-4,253,23,260,-4,273,29,273,29,260,-4,281,0,273,29,281,0,290,38,290,38,281,0,302,6,290,38,302,6,303,49,306,456,295,460,307,424,307,424,295,460,286,462,307,424,286,462,271,441,271,441,286,462,271,466,271,441,271,466,256,469,271,441,256,469,242,472,271,441,242,472,229,447,273,256,239,
-257,273,228,100,127,111,8,106,90,45,334,50,389,44,351,121,311,118,253,136,248,230,238,255,254,260,283,260,283,255,254,276,264,260,283,276,264,295,303,295,303,276,264,296,271,295,303,296,271,324,319,324,319,296,271,313,275,324,319,313,275,330,276,330,276,374,267,349,333,349,333,374,267,373,346,282,160,278,172,281,116,281,116,278,172,271,184,281,116,271,184,269,91,269,91,271,184,260,198,269,91,260,198,246,62,246,62,260,198,230,238,246,62,230,238,219,95,219,95,218,83,246,62,246,62,218,83,215,73,246,62,215,73,210,27,210,27,215,73,210,65,210,27,210,65,204,58,216,257,202,275,207,126,216,257,207,126,219,95,216,257,219,95,230,238,216,257,230,238,260,283,349,333,324,319,330,276,308,-142,335,-113,314,-63,314,-63,335,-113,333,-81,385,-41,333,-81,335,-113,385,-41,335,-113,368,-86,308,-142,314,-63,299,-142,299,-142,314,-63,296,-50,299,-142,296,-50,283,-126,283,-126,296,-50,278,-42,283,-126,278,-42,266,-114,266,-114,278,-42,260,-37,266,-114,260,-37,248,-105,248,-105,260,-37,242,-36,248,-105,242,-36,228,-100,228,-100,242,-36,206,-98,189,-100,206,-98,205,-41,189,-100,205,-41,174,-55,147,202,180,161,177,354,177,354,177,426,147,202,147,202,177,426,143,389,147,202,143,389,120,251,120,251,143,389,118,349,120,251,118,349,109,308,178,369,181,383,177,426,177,426,181,383,187,396,177,426,187,396,215,459,215,459,187,396,195,408,215,459,195,408,205,418,205,418,225,403,215,459,215,459,225,403,250,487,420,471,400,460,402,423,402,423,400,460,380,453,402,423,380,453,372,402,372,402,380,453,361,450,372,402,361,450,341,449,341,449,323,451,337,388,337,388,323,451,304,455,337,388,304,455,298,383,298,383,304,455,286,462,298,383,286,462,279,384,279,384,286,462,268,473,279,384,268,473,261,387,261,387,268,473,250,487,261,387,250,487,244,393,244,393,250,487,225,403,374,267,410,244,432,325,432,325,410,244,437,210,432,325,437,210,479,294,479,294,437,210,454,167,479,294,454,167,459,120,459,120,456,84,479,2,479,2,456,84,444,44,479,2,444,44,443,-29,443,-29,444,44,421,1,443,-29,421,1,405,-58,405,-58,421,1,385,-41,405,-58,385,-41,368,
--86,534,205,513,254,516,49,534,205,516,49,530,77,534,205,530,77,538,110,534,205,538,110,541,151,513,254,479,294,479,2,513,254,479,2,499,25,513,254,499,25,516,49,459,120,479,2,479,294,429,449,452,477,438,487,429,449,438,487,420,471,429,449,420,471,402,423,341,449,337,388,372,402,242,-36,205,-41,206,-98,113,-131,127,-137,128,-102,128,-102,127,-137,140,-124,128,-102,140,-124,149,-76,149,-76,140,-124,155,-113,149,-76,155,-113,174,-55,174,-55,155,-113,171,-105,174,-55,171,-105,189,-100,202,275,191,294,207,126,207,126,191,294,183,314,207,126,183,314,180,161,180,161,183,314,178,334,180,161,178,334,177,354,210,27,204,58,198,52,198,52,188,56,210,27,210,27,188,56,167,68,210,27,167,68,161,-15,161,-15,167,68,147,-5,79,30,91,25,103,106,103,106,91,25,108,16,103,106,108,16,118,97,118,97,108,16,129,5,118,97,129,5,141,83,141,83,129,5,147,-5,141,83,147,-5,167,68,282,160,281,116,285,141,282,160,285,141,285,151,103,106,30,3,47,-6,103,106,47,-6,54,2,103,106,54,2,62,12,103,106,62,12,70,21,103,106,70,21,76,28,103,106,76,28,79,30,373,346,374,267,432,325,177,426,177,354,178,369,134,433,165,0,165,463,165,247,165,216,338,216,165,247,338,216,338,247,338,247,338,216,368,30,338,247,368,30,338,463,338,463,368,30,368,433,338,463,368,433,454,463,454,463,368,433,423,433,454,463,423,433,454,0,454,0,423,433,423,30,454,0,423,30,368,30,368,30,338,216,338,0,368,30,338,0,454,0,134,433,165,463,80,433,80,433,165,463,49,463,80,433,49,463,80,30,80,30,49,463,49,0,80,30,49,0,165,0,134,30,80,30,165,0,134,30,165,0,134,433,138,172,138,172,138,172,138,172,152,164,173,231,173,231,152,164,169,191,91,0,109,57,144,401,144,401,109,57,123,101,144,401,123,101,138,172,138,172,123,101,137,136,138,172,137,136,152,164,285,279,291,322,277,283,277,283,291,322,266,284,252,280,266,284,265,317,252,280,265,317,236,302,173,231,192,223,206,274,206,274,192,223,213,248,206,274,213,248,236,302,236,302,213,248,234,268,236,302,234,268,252,280,286,210,259,109,266,-4,286,
-210,266,-4,279,-6,286,210,279,-6,295,-4,286,210,295,-4,288,217,295,-4,302,43,302,47,302,47,314,319,295,-4,295,-4,314,319,293,253,295,-4,293,253,293,245,295,-4,293,245,291,235,314,319,302,47,302,54,314,319,302,54,303,61,314,319,303,61,305,69,314,319,305,69,307,77,314,319,307,77,309,85,314,319,309,85,345,211,314,319,345,211,331,312,292,264,293,253,314,319,292,264,314,319,291,322,292,264,291,322,289,272,291,322,265,317,266,284,348,222,350,232,351,282,351,282,350,232,352,242,351,282,352,242,353,260,353,260,352,242,353,251,345,211,348,222,351,282,345,211,351,282,343,299,345,211,343,299,331,312,305,37,314,4,308,36,308,36,314,4,311,35,319,36,311,35,314,4,319,36,314,4,335,19,357,42,381,74,373,82,357,42,373,82,355,62,357,42,355,62,340,48,357,42,340,48,335,19,328,40,319,36,335,19,328,40,335,19,340,48,314,4,305,37,303,40,314,4,303,40,302,43,314,4,302,43,295,-4,290,226,288,217,295,-4,290,226,295,-4,291,235,256,0,266,-4,259,109,256,0,259,109,254,91,256,0,254,91,249,73,256,0,249,73,248,7,245,56,242,42,243,18,245,56,243,18,248,7,245,56,248,7,249,73,146,414,145,410,221,477,221,477,145,410,145,406,221,477,145,406,144,401,144,401,33,0,91,0,118,436,129,435,138,454,138,454,129,435,138,433,138,454,138,433,162,461,162,461,138,433,144,428,162,461,144,428,146,421,146,421,146,418,221,477,221,477,146,418,146,414,106,448,106,437,118,436,106,448,118,436,138,454,221,477,216,478,200,472,221,477,200,472,183,466,221,477,183,466,162,461,221,477,162,461,146,421,144,401,138,172,221,477,243,18,242,42,241,32,291,322,285,279,289,272,169,191,192,223,173,231,138,172,138,172,138,172,138,172,152,164,173,231,173,231,152,164,169,191,146,414,146,410,186,353,186,353,146,410,145,406,186,353,145,406,144,401,144,401,130,359,138,172,138,172,130,359,137,136,138,172,137,136,152,164,285,279,291,322,277,283,277,283,291,322,266,284,252,280,266,284,265,317,252,280,265,317,236,302,173,231,192,223,206,274,206,274,192,223,213,248,206,274,213,248,236,302,236,302,213,
-248,234,268,236,302,234,268,252,280,286,210,259,109,266,-4,286,210,266,-4,279,-6,286,210,279,-6,296,-3,286,210,296,-3,288,217,296,-3,302,43,302,47,302,47,314,319,296,-3,296,-3,314,319,293,253,296,-3,293,253,293,245,296,-3,293,245,291,235,314,319,302,47,302,54,314,319,302,54,303,61,314,319,303,61,305,69,314,319,305,69,307,77,314,319,307,77,309,85,314,319,309,85,345,211,314,319,345,211,331,312,292,264,293,253,314,319,292,264,314,319,291,322,292,264,291,322,289,272,291,322,265,317,266,284,348,222,350,232,351,282,351,282,350,232,352,242,351,282,352,242,353,260,353,260,352,242,353,251,345,211,348,222,351,282,345,211,351,282,343,299,345,211,343,299,331,312,305,37,314,4,308,36,308,36,314,4,311,35,319,36,311,35,314,4,319,36,314,4,335,19,358,42,383,75,373,82,358,42,373,82,354,62,358,42,354,62,339,48,358,42,339,48,335,19,328,40,319,36,335,19,328,40,335,19,339,48,314,4,305,37,303,40,314,4,303,40,302,43,314,4,302,43,296,-3,290,226,288,217,296,-3,290,226,296,-3,291,235,256,0,266,-4,259,109,256,0,259,109,254,93,256,0,254,93,250,75,256,0,250,75,248,7,245,58,243,43,243,18,245,58,243,18,248,7,245,58,248,7,250,75,91,0,109,57,122,328,122,328,109,57,123,101,122,328,123,101,130,359,130,359,123,101,137,136,63,334,56,305,122,328,63,334,122,328,130,359,118,436,129,435,138,454,138,454,129,435,138,433,138,454,138,433,163,461,163,461,138,433,144,428,163,461,144,428,146,421,146,421,146,418,186,353,186,353,146,418,146,414,106,448,106,437,118,436,106,448,118,436,138,454,211,441,215,453,216,478,216,478,215,453,218,465,216,478,218,465,222,477,186,353,195,383,200,472,200,472,195,383,204,415,200,472,204,415,216,478,216,478,204,415,208,428,216,478,208,428,211,441,186,353,200,472,183,466,186,353,183,466,163,461,186,353,163,461,146,421,144,401,138,172,186,353,195,383,186,353,287,389,195,383,287,389,295,420,91,0,122,328,33,0,243,18,243,43,241,32,291,322,285,279,289,272,169,191,192,223,173,231,143,277,127,291,140,251,140,251,127,291,115,
-311,140,251,115,311,108,265,108,265,115,311,111,337,123,458,111,337,116,367,123,458,116,367,130,389,216,487,193,416,235,411,216,487,235,411,270,481,270,481,235,411,270,397,270,481,270,397,311,467,311,467,270,397,303,380,311,467,303,380,339,367,311,467,339,367,345,451,345,451,339,367,382,361,345,451,382,361,380,437,380,437,382,361,423,431,442,434,423,431,424,368,442,434,424,368,454,386,498,467,481,472,489,440,489,440,481,472,477,464,489,440,477,464,475,412,475,412,477,464,469,453,475,412,469,453,457,443,457,443,442,434,454,386,457,443,454,386,475,412,423,431,382,361,424,368,413,331,385,327,396,276,396,276,385,327,394,261,400,2,394,261,385,327,400,2,385,327,383,69,383,69,379,48,400,2,400,2,379,48,369,30,400,2,369,30,354,-16,354,-16,369,30,354,16,354,-16,354,16,333,6,455,324,437,329,442,301,442,301,437,329,434,302,423,300,434,302,437,329,423,300,437,329,413,331,413,331,396,276,402,287,413,331,402,287,412,295,413,331,412,295,423,300,480,280,492,292,481,304,480,280,481,304,470,315,480,280,470,315,469,289,442,301,451,299,455,324,455,324,451,299,459,295,455,324,459,295,470,315,470,315,459,295,469,289,469,106,461,144,460,66,460,66,461,144,442,178,460,66,442,178,436,30,436,30,442,178,420,209,436,30,420,209,402,236,402,236,394,261,400,2,402,236,400,2,436,30,333,6,307,3,354,-16,354,-16,307,3,302,-22,302,-22,307,3,286,5,302,-22,286,5,268,-21,268,-21,286,5,268,12,268,-21,268,12,253,23,130,389,149,405,165,479,165,479,149,405,171,414,165,479,171,414,216,487,216,487,171,414,193,416,91,428,71,390,84,286,91,428,84,286,108,265,91,428,108,265,111,337,91,428,111,337,123,458,71,390,64,348,69,314,71,390,69,314,84,286,220,272,211,270,211,251,211,251,211,270,201,267,211,251,201,267,201,248,201,248,201,267,192,266,201,248,192,266,191,247,191,247,192,266,183,266,180,246,191,247,183,266,180,246,183,266,162,268,180,246,162,268,143,277,180,246,143,277,140,251,222,255,234,260,228,276,222,255,228,276,220,272,222,255,220,272,211,251,131,159,101,153,105,102,105,102,101,153,97,104,85,
-102,97,104,101,153,85,102,101,153,75,136,75,136,54,114,55,80,75,136,55,80,63,89,75,136,63,89,74,97,75,136,74,97,85,102,48,68,55,80,54,114,48,68,54,114,39,91,48,68,39,91,31,72,114,98,122,91,131,159,131,159,122,91,129,81,131,159,129,81,136,69,136,69,143,54,166,153,166,153,143,54,151,40,166,153,151,40,160,27,171,15,185,4,191,138,191,138,185,4,201,-5,191,138,201,-5,208,115,208,115,201,-5,219,-13,208,115,219,-13,221,88,221,88,219,-13,241,-18,221,88,241,-18,231,61,231,61,241,-18,241,39,253,23,241,39,241,-18,253,23,241,-18,268,-21,166,153,160,27,171,15,166,153,171,15,191,138,166,153,131,159,136,69,323,273,325,203,338,297,338,297,325,203,341,170,338,297,341,170,359,315,359,315,341,170,360,139,359,315,360,139,385,327,385,327,360,139,376,106,385,327,376,106,383,69,325,203,323,273,318,243,131,159,105,102,114,98,123,458,130,389,165,479,409,58,409,30,440,0,409,58,440,0,409,109,409,58,409,109,408,109,409,58,408,109,166,432,409,58,166,432,144,463,409,58,144,463,127,433,80,433,127,433,144,463,80,433,144,463,49,463,80,433,49,463,64,0,80,433,64,0,80,0,409,463,409,109,440,0,409,463,440,0,440,463,360,30,80,405,81,353,360,30,81,353,346,0,360,30,346,0,440,0,360,30,440,0,409,30,81,353,80,405,80,353,64,0,49,463,49,0,538,249,543,276,545,321,545,321,543,276,551,296,545,321,551,296,579,327,579,327,551,296,563,307,579,327,563,307,577,311,577,311,593,307,579,327,579,327,593,307,612,321,593,307,606,296,612,321,612,321,606,296,615,276,612,321,615,276,639,304,639,304,615,276,620,249,639,304,620,249,622,213,622,213,620,249,622,212,622,212,620,178,639,125,639,125,620,178,615,152,639,125,615,152,612,109,612,109,615,152,606,133,612,109,606,133,593,122,639,304,639,125,659,279,659,279,639,125,660,149,659,279,660,149,672,249,672,249,660,149,672,180,672,249,672,180,677,215,622,213,622,212,639,125,622,213,639,125,639,304,542,151,545,109,551,133,551,133,545,109,579,103,551,133,579,103,563,122,563,122,579,103,578,118,593,122,578,
-118,579,103,593,122,579,103,612,109,518,125,545,109,518,304,518,304,545,109,538,178,518,304,538,178,536,213,536,213,538,249,518,304,518,304,538,249,545,321,481,213,485,179,485,248,485,248,485,179,498,149,485,248,498,149,498,279,498,279,498,149,518,125,498,279,518,125,518,304,484,61,484,0,673,0,484,61,673,0,673,61,149,157,146,109,158,38,158,38,146,109,138,66,158,38,138,66,127,3,127,3,138,66,123,36,127,3,123,36,100,24,100,24,90,30,127,3,127,3,90,30,77,-9,83,449,91,447,189,463,189,463,91,447,99,445,189,463,99,445,105,443,105,443,113,439,189,463,189,463,113,439,120,431,189,463,120,431,129,421,487,420,494,473,480,433,480,433,494,473,470,439,446,427,470,439,494,473,446,427,494,473,443,460,526,384,536,385,536,467,536,467,536,385,547,389,536,467,547,389,552,458,552,458,547,389,556,397,552,458,556,397,561,443,561,443,556,397,562,407,561,443,562,407,565,422,517,472,494,473,496,403,517,472,496,403,507,389,517,472,507,389,526,384,517,472,526,384,536,467,420,260,421,307,412,426,412,426,421,307,424,355,412,426,424,355,443,460,443,460,424,355,432,397,443,460,432,397,446,427,412,426,396,379,407,-7,412,426,407,-7,420,-7,412,426,420,-7,420,260,407,-7,396,379,390,328,407,-7,390,328,389,280,407,-7,389,280,389,149,407,-7,389,149,189,463,407,-7,189,463,180,345,180,345,189,463,158,38,180,345,158,38,174,85,180,345,174,85,180,136,180,345,180,136,180,183,139,408,150,391,189,463,189,463,150,391,158,38,158,38,150,391,150,203,74,449,83,449,189,463,74,449,189,463,63,463,74,449,63,463,63,450,77,-9,90,30,82,44,77,-9,82,44,74,60,77,-9,74,60,63,74,77,-9,63,74,53,-8,44,80,34,78,34,-3,44,80,34,-3,53,-8,44,80,53,-8,63,74,7,56,8,20,14,67,14,67,8,20,18,5,14,67,18,5,23,74,23,74,18,5,34,-3,23,74,34,-3,34,78,8,20,7,56,5,41,149,157,158,38,150,203,189,463,129,421,139,408,494,473,487,420,496,403,538,178,545,109,542,151,257,348,262,348,263,348,273,364,263,348,289,347,273,364,289,347,294,363,294,363,289,347,308,
-341,294,363,308,341,313,360,313,360,308,341,319,330,313,360,319,330,330,354,330,354,319,330,326,314,330,354,326,314,327,292,327,292,325,273,326,226,326,226,325,273,318,257,326,226,318,257,311,221,311,221,318,257,307,245,311,221,307,245,293,219,293,219,307,245,290,237,293,219,290,237,271,219,271,219,290,237,267,234,271,219,267,234,266,219,266,219,267,234,263,234,266,219,263,234,262,219,262,219,263,234,260,235,262,219,260,235,258,219,258,219,260,235,257,235,258,219,257,235,254,220,254,220,257,235,254,235,254,220,254,235,249,220,249,220,254,235,249,236,249,220,249,236,249,152,249,152,249,236,205,319,249,152,205,319,250,138,250,138,205,319,205,156,374,293,374,305,373,282,373,282,374,305,371,315,373,282,371,315,371,271,371,271,371,315,368,324,371,271,368,324,367,261,367,261,368,324,363,333,367,261,363,333,361,251,361,251,363,333,355,340,361,251,355,340,353,243,353,243,355,340,344,348,353,243,344,348,340,233,340,233,344,348,330,354,340,233,330,354,327,292,327,292,326,226,340,233,273,364,172,364,186,352,273,364,186,352,196,348,273,364,196,348,201,343,273,364,201,343,204,333,273,364,204,333,205,319,273,364,205,319,253,347,273,364,253,347,257,348,273,364,257,348,263,348,249,335,250,340,205,319,249,335,205,319,249,236,251,344,253,347,205,319,251,344,205,319,250,340,285,106,285,117,269,118,285,106,269,118,259,122,285,106,259,122,204,140,285,106,204,140,202,129,285,106,202,129,197,122,285,106,197,122,187,119,285,106,187,119,172,117,285,106,172,117,172,106,205,156,204,140,259,122,205,156,259,122,253,128,205,156,253,128,250,138,270,473,265,444,329,433,270,473,329,433,344,461,344,461,329,433,384,403,344,461,384,403,409,427,409,427,384,403,428,357,409,427,428,357,460,374,460,374,428,357,457,299,460,374,457,299,467,231,467,231,493,307,460,374,467,231,494,154,493,307,460,88,494,154,467,231,460,88,467,231,457,165,460,88,457,165,428,107,460,88,428,107,409,36,266,20,266,-9,329,31,329,31,266,-9,343,2,329,31,343,2,384,61,384,61,343,2,409,36,384,61,409,36,428,107,75,298,104,356,125,427,125,427,104,356,148,402,125,
-427,148,402,192,461,192,461,148,402,203,433,192,461,203,433,270,473,270,473,203,433,265,444,39,155,72,88,39,309,39,309,72,88,65,232,73,375,65,232,75,298,73,375,75,298,125,427,203,30,148,61,190,2,203,30,190,2,266,-9,203,30,266,-9,266,20,124,36,190,2,148,61,124,36,148,61,104,107,124,36,104,107,75,165,124,36,75,165,72,88,65,232,72,88,75,165,39,155,39,309,27,232,39,309,65,232,73,375,493,307,494,154,505,230,186,352,172,364,172,353,289,347,263,348,262,348,112,121,105,136,117,80,117,80,105,136,101,157,117,80,101,157,86,97,86,97,101,157,99,182,118,343,99,182,108,243,118,343,108,243,132,291,121,110,112,121,117,80,121,110,117,80,120,-94,121,110,120,-94,125,-59,121,110,125,-59,131,102,120,-94,117,80,109,67,120,-94,109,67,120,-106,193,181,176,162,188,77,193,181,188,77,231,136,193,181,231,136,210,198,292,335,297,323,293,361,292,335,293,361,283,343,283,343,293,361,278,373,283,343,278,373,271,349,271,349,278,373,259,380,271,349,259,380,257,352,257,352,259,380,244,353,205,346,244,353,238,383,205,346,238,383,173,372,173,372,118,343,132,291,173,372,132,291,166,325,173,372,166,325,205,346,48,142,64,118,75,300,75,300,64,118,86,97,75,300,86,97,118,343,118,343,86,97,99,182,47,249,37,195,39,168,47,249,39,168,48,142,47,249,48,142,75,300,303,345,293,361,297,323,303,345,297,323,307,323,318,8,341,-2,331,112,331,112,341,-2,338,38,340,111,338,38,341,46,340,111,341,46,349,107,349,107,341,46,347,53,349,107,347,53,353,60,349,107,353,60,355,101,355,101,353,60,359,69,355,101,359,69,360,92,360,92,359,69,362,81,353,16,371,-6,363,13,363,13,371,-6,376,13,415,27,376,13,394,-4,415,27,394,-4,416,1,345,21,340,29,341,-2,345,21,341,-2,371,-6,345,21,371,-6,353,16,338,38,341,-2,340,29,331,112,317,109,318,8,318,8,317,109,306,102,318,8,306,102,303,25,303,25,306,102,297,91,303,25,297,91,294,44,294,44,297,91,292,78,294,44,292,78,291,63,441,295,429,314,402,311,441,295,402,311,393,282,441,295,455,315,429,314,402,311,373,
-305,393,282,393,282,373,305,343,295,393,282,343,295,338,246,338,246,343,295,312,280,338,246,312,280,291,266,283,195,338,246,291,266,283,195,291,266,271,252,283,195,271,252,250,235,283,195,250,235,231,136,230,218,210,198,231,136,230,218,231,136,250,235,176,162,174,53,188,45,176,162,188,45,188,77,188,77,188,45,199,34,188,77,199,34,212,68,212,68,199,34,207,20,212,68,207,20,212,6,416,1,437,10,448,65,448,65,437,10,457,22,448,65,457,22,473,117,473,117,457,22,477,38,473,117,477,38,489,174,489,174,477,38,504,68,489,174,504,68,495,228,495,228,504,68,519,299,519,299,504,68,527,103,519,299,527,103,541,280,541,280,527,103,544,141,541,280,544,141,554,252,554,252,544,141,555,179,554,252,555,179,559,216,494,246,495,228,519,299,494,246,519,299,490,311,494,246,490,311,489,264,490,311,455,315,464,291,490,311,464,291,480,280,490,311,480,280,489,264,441,295,464,291,455,315,376,13,371,-6,394,-4,259,380,238,383,244,353,211,-37,201,-69,210,-123,210,-123,201,-69,186,-99,210,-123,186,-99,174,-143,174,-143,186,-99,167,-121,174,-143,167,-121,145,-129,145,-129,134,-128,174,-143,174,-143,134,-128,133,-151,174,53,176,162,167,41,167,41,176,162,160,143,167,41,160,143,153,14,153,14,160,143,145,123,153,14,145,123,138,-21,138,-21,145,123,131,102,138,-21,131,102,125,-59,263,-8,259,19,257,-53,257,-53,259,19,249,41,257,-53,249,41,238,-91,238,-91,249,41,232,57,238,-91,232,57,214,-7,214,-7,232,57,212,6,214,-7,211,-37,238,-91,134,-128,127,-123,133,-151,133,-151,127,-123,122,-115,133,-151,122,-115,106,-147,106,-147,122,-115,120,-106,106,-147,120,-106,109,67,106,-147,109,67,102,53,106,-147,102,53,95,40,106,-147,95,40,90,28,106,-147,90,28,86,-136,90,28,84,15,86,-136,86,-136,84,15,78,-1,86,-136,78,-1,73,-121,73,-121,78,-1,73,-19,73,-121,73,-19,68,-38,66,-101,73,-121,68,-38,66,-101,68,-38,65,-58,66,-101,65,-58,64,-78,211,-37,210,-123,238,-91,212,68,212,6,232,57,415,27,416,1,448,65,331,112,338,38,340,111,306,429,313,427,313,427,325,458,313,427,326,183,325,458,326,183,344,423,344,423,326,183,344,
-217,372,199,344,217,326,183,325,458,273,463,279,433,325,458,279,433,288,432,325,458,288,432,297,431,325,458,297,431,306,429,325,458,306,429,313,427,273,463,49,463,80,433,273,463,80,433,134,433,273,463,134,433,165,433,273,463,165,433,272,433,273,463,272,433,279,433,134,433,165,0,165,433,165,208,165,177,273,177,165,208,273,177,266,208,275,208,266,208,273,177,275,208,273,177,326,183,80,30,80,433,49,463,80,30,49,463,49,0,80,30,49,0,165,0,80,30,165,0,134,30,407,414,371,442,385,393,407,414,385,393,398,371,407,414,398,371,406,346,407,414,406,346,409,320,407,414,409,320,431,374,371,442,325,458,344,423,371,442,344,423,367,411,371,442,367,411,385,393,326,183,313,427,313,213,326,183,313,213,305,211,326,183,305,211,295,209,326,183,295,209,285,208,326,183,285,208,275,208,440,321,431,374,431,268,431,268,431,374,409,320,408,228,409,320,406,295,408,228,406,295,398,270,384,248,366,229,372,199,384,248,372,199,408,228,384,248,408,228,398,270,134,30,165,0,134,433,344,217,372,199,366,229,409,320,408,228,431,268,97,357,118,384,118,384,123,430,118,384,124,36,123,430,124,36,149,409,149,409,124,36,149,55,189,2,149,55,124,36,64,265,71,298,73,379,73,379,71,298,81,329,73,379,81,329,123,430,123,430,81,329,97,357,123,430,97,357,118,384,73,379,43,155,64,265,64,265,43,155,63,232,65,200,63,232,43,155,65,200,43,155,74,89,42,312,31,232,43,155,42,312,43,155,73,379,228,77,210,67,213,29,213,29,210,67,194,55,213,29,194,55,189,2,189,2,194,55,180,39,189,2,180,39,173,42,490,310,460,377,461,298,490,310,461,298,468,265,490,310,468,265,470,232,490,310,470,232,480,127,490,310,480,127,495,177,490,310,495,177,501,232,450,137,455,83,461,168,461,168,455,83,480,127,461,168,480,127,467,200,467,200,480,127,470,232,460,377,412,428,414,384,460,377,414,384,435,357,460,377,435,357,451,329,460,377,451,329,461,298,414,84,414,384,412,428,414,84,412,428,383,409,414,84,383,409,383,55,414,84,383,55,421,46,435,109,414,84,421,46,435,109,421,46,455,83,435,109,455,83,450,137,390,
-7,380,17,392,-34,383,55,380,17,421,46,380,17,383,55,378,52,380,17,378,52,375,-24,380,17,375,-24,392,-34,310,26,299,24,300,-7,300,-7,299,24,288,22,300,-7,288,22,283,-9,283,-9,288,22,277,21,283,-9,277,21,266,-9,266,-9,277,21,266,21,269,85,266,55,280,53,269,85,280,53,291,83,291,83,280,53,292,50,291,83,292,50,311,76,311,76,292,50,303,44,311,76,303,44,313,37,192,430,218,437,270,473,270,473,218,437,244,441,270,473,244,441,266,442,266,442,290,441,270,473,270,473,290,441,348,462,232,44,242,50,247,83,247,83,242,50,254,53,247,83,254,53,269,85,269,85,254,53,266,55,228,77,213,29,222,37,228,77,222,37,232,44,228,77,232,44,247,83,383,409,412,428,363,422,363,422,412,428,348,462,363,422,348,462,340,431,340,431,348,462,315,438,496,-38,492,-8,484,-40,484,-40,492,-8,481,-9,484,-40,481,-9,473,-42,473,-42,481,-9,471,-11,473,-42,471,-11,461,-43,461,-43,471,-11,460,-12,461,-43,460,-12,450,-44,450,-44,460,-12,449,-13,450,-44,449,-13,438,-44,438,-44,449,-13,438,-14,425,-12,412,-8,413,-42,425,-12,413,-42,438,-44,425,-12,438,-44,438,-14,401,-1,390,7,392,-34,401,-1,392,-34,413,-42,401,-1,413,-42,412,-8,375,-24,378,52,373,49,375,-24,373,49,368,46,375,-24,368,46,363,43,375,-24,363,43,359,-11,311,76,313,37,328,66,328,66,313,37,322,29,328,66,322,29,331,-1,328,66,331,-1,343,54,343,54,331,-1,346,3,343,54,346,3,357,41,357,41,346,3,359,-11,357,41,359,-11,363,43,322,29,310,26,316,-4,322,29,316,-4,331,-1,189,462,123,430,149,409,189,462,149,409,168,420,189,462,168,420,192,430,189,462,192,430,270,473,124,36,118,384,118,84,124,36,118,84,98,109,124,36,98,109,83,137,124,36,83,137,74,89,71,168,65,200,74,89,71,168,74,89,83,137,266,-9,266,21,257,21,266,-9,257,21,247,22,266,-9,247,22,236,24,266,-9,236,24,225,26,266,-9,225,26,213,29,266,-9,213,29,189,2,189,2,173,42,166,45,189,2,166,45,160,49,189,2,160,49,155,52,189,2,155,52,149,55,310,26,300,-7,316,-4,348,462,290,441,315,438,115,245,111,
-228,115,245,115,245,111,228,136,203,115,245,136,203,133,362,115,245,133,362,113,385,115,245,113,385,107,276,107,276,113,385,105,418,89,469,105,418,107,432,89,469,107,432,124,482,124,482,107,432,113,445,124,482,113,445,122,455,165,487,152,465,186,451,165,487,186,451,196,484,196,484,186,451,208,416,196,484,208,416,224,475,224,475,208,416,220,370,224,475,220,370,226,323,226,231,224,172,242,74,242,74,224,172,219,118,242,74,219,118,209,27,209,27,219,118,209,78,209,27,209,78,191,63,191,63,180,66,209,27,209,27,180,66,170,-15,308,226,360,238,311,250,308,226,311,250,311,355,308,226,311,355,308,371,308,226,308,371,304,387,308,226,304,387,299,401,308,226,299,401,293,175,311,250,312,265,313,339,313,339,312,265,313,281,313,339,313,281,313,326,313,326,313,281,313,297,313,326,313,297,313,312,288,425,270,444,271,123,271,123,270,444,249,461,271,123,249,461,242,74,242,74,249,461,227,284,88,28,98,24,107,105,107,105,98,24,116,15,107,105,116,15,120,97,120,97,116,15,136,4,120,97,136,4,140,86,140,86,136,4,155,-6,140,86,155,-6,162,75,162,75,155,-6,170,-15,162,75,170,-15,180,66,107,105,41,3,57,-5,107,105,57,-5,64,4,107,105,64,4,71,12,107,105,71,12,78,19,107,105,78,19,84,24,107,105,84,24,88,28,135,462,152,465,165,487,135,462,165,487,124,482,135,462,124,482,122,455,89,469,61,446,63,321,89,469,63,321,87,299,89,469,87,299,107,276,89,469,107,276,105,418,43,345,63,321,61,446,43,345,61,446,42,416,43,345,42,416,35,378,133,362,136,203,157,343,157,343,136,203,162,226,157,343,162,226,177,318,177,318,162,226,179,252,177,318,179,252,185,280,104,185,136,203,111,228,104,185,111,228,102,214,104,185,102,214,89,202,104,185,89,202,75,194,104,185,75,194,69,173,75,194,62,188,63,188,75,194,63,188,69,173,387,209,405,291,376,227,376,227,405,291,376,269,376,227,376,269,360,238,360,238,376,269,334,255,329,426,342,433,381,493,381,493,342,433,356,438,381,493,356,438,372,439,372,439,396,435,381,493,381,493,396,435,431,487,437,372,464,284,469,472,469,472,464,284,488,
-305,469,472,488,305,497,449,497,449,488,305,505,330,497,449,505,330,513,420,513,420,505,330,515,358,513,420,515,358,519,388,434,389,437,372,469,472,434,389,469,472,431,487,434,389,431,487,427,407,431,487,396,435,414,423,431,487,414,423,427,407,434,344,424,317,432,268,434,344,432,268,464,284,434,344,464,284,437,372,432,266,432,268,424,317,432,266,424,317,438,2,432,266,438,2,469,223,562,73,554,65,565,51,565,51,554,65,545,57,565,51,545,57,544,33,544,33,545,57,537,51,544,33,537,51,531,48,531,48,505,66,520,15,520,15,505,66,497,-1,438,2,466,-15,469,223,469,223,466,-15,475,-15,469,223,475,-15,486,166,486,166,475,-15,497,-1,486,166,497,-1,494,110,494,110,497,-1,505,66,396,131,398,98,405,291,405,291,398,98,405,62,405,291,405,62,424,317,424,317,405,62,418,29,424,317,418,29,438,2,387,209,393,185,405,291,405,291,393,185,395,159,405,291,395,159,396,131,569,80,562,73,565,51,569,80,565,51,580,66,531,48,520,15,544,33,381,493,288,425,299,401,381,493,299,401,315,415,381,493,315,415,329,426,288,425,271,123,293,175,288,425,293,175,299,401,226,323,227,284,249,461,226,323,249,461,224,475,311,250,360,238,334,255,226,231,242,74,227,284,311,250,313,339,311,355,406,299,397,276,406,234,406,234,397,276,384,255,406,234,384,255,380,214,380,214,384,255,366,237,380,214,366,237,348,199,348,199,366,237,344,225,348,199,344,225,316,192,348,199,316,192,438,30,325,459,273,463,278,433,325,459,278,433,285,432,325,459,285,432,292,431,325,459,292,431,299,430,325,459,299,430,306,428,325,459,306,428,313,427,325,459,313,427,316,192,325,459,316,192,344,225,325,459,344,225,344,423,325,459,344,423,370,444,165,433,278,433,273,463,165,433,273,463,134,433,165,433,134,433,165,0,134,433,273,463,80,433,80,433,273,463,49,463,80,433,49,463,80,30,80,30,49,463,49,0,80,30,49,0,165,0,316,192,313,427,313,224,316,192,313,224,307,191,307,191,313,224,305,223,307,191,305,223,298,190,298,190,305,223,297,222,298,190,297,222,290,221,274,220,280,189,282,221,282,221,280,189,289,189,282,221,289,189,290,221,290,
-221,289,189,298,190,274,220,165,220,217,190,274,220,217,190,254,190,274,220,254,190,257,190,274,220,257,190,261,190,274,220,261,190,264,189,274,220,264,189,268,189,274,220,268,189,272,189,274,220,272,189,280,189,406,299,406,234,409,325,409,325,424,260,431,379,431,379,424,260,436,291,431,379,436,291,440,327,407,418,370,444,385,394,407,418,385,394,398,375,407,418,398,375,406,352,407,418,406,352,409,325,407,418,409,325,431,379,370,444,344,423,367,410,370,444,367,410,385,394,348,199,438,30,498,0,498,0,438,30,370,30,498,0,370,30,353,0,353,0,370,30,254,190,353,0,254,190,217,190,134,30,80,30,165,0,134,30,165,0,134,433,409,325,406,234,424,260,217,190,165,220,165,190,208,212,213,212,214,233,214,233,213,212,218,212,214,233,218,212,221,233,221,233,218,212,223,212,221,233,223,212,228,233,228,233,223,212,227,212,228,233,227,212,232,212,341,260,310,243,313,222,313,222,310,243,272,235,313,222,272,235,377,44,377,44,272,235,241,213,236,213,241,213,272,235,236,213,272,235,232,212,232,212,272,235,228,233,193,213,198,213,200,234,200,234,198,213,203,212,200,234,203,212,207,233,207,233,203,212,208,212,207,233,208,212,214,233,193,91,193,213,193,234,193,91,193,234,131,377,193,91,131,377,196,58,205,431,218,439,248,467,248,467,218,439,235,443,248,467,235,443,255,445,255,445,297,441,298,464,298,464,297,441,329,430,298,464,329,430,350,452,350,452,329,430,352,410,350,452,352,410,395,429,395,429,352,410,365,379,395,429,365,379,370,336,370,336,362,290,384,250,384,250,362,290,349,233,193,397,196,417,131,377,193,397,131,377,193,234,131,377,196,417,205,431,131,377,205,431,248,467,131,377,248,467,128,409,248,467,48,467,79,448,248,467,79,448,103,442,248,467,103,442,119,429,248,467,119,429,128,409,370,336,384,250,395,429,395,429,384,250,413,274,395,429,413,274,428,393,428,393,413,274,433,304,428,393,433,304,441,342,298,464,248,467,255,445,341,260,313,222,349,233,341,260,349,233,362,290,490,26,472,36,413,0,413,0,472,36,456,50,413,0,456,50,439,66,439,66,515,178,420,86,534,0,534,16,510,19,534,0,510,
-19,490,26,534,0,490,26,413,0,413,0,439,66,420,86,413,0,420,86,398,113,413,0,398,113,395,23,377,44,280,-50,298,-69,377,44,298,-69,395,23,377,44,395,23,398,113,377,44,398,113,376,140,377,44,376,140,355,167,377,44,355,167,335,195,377,44,335,195,313,222,276,0,276,17,245,19,276,0,245,19,222,25,276,0,222,25,128,58,276,0,128,58,119,37,276,0,119,37,103,25,276,0,103,25,79,19,276,0,79,19,48,17,276,0,48,17,48,0,128,58,222,25,131,91,131,91,222,25,205,37,131,91,205,37,131,128,131,128,205,37,196,58,131,128,196,58,131,377,515,178,439,66,534,159,79,448,48,467,48,450,193,234,193,213,200,234,263,463,21,463,83,449,263,463,83,449,117,449,263,463,117,449,166,449,263,463,166,449,202,449,263,463,202,449,215,448,263,463,215,448,226,442,263,463,226,442,235,433,263,463,235,433,242,420,263,463,242,420,248,402,263,463,248,402,263,402,202,195,184,197,202,180,202,180,184,197,174,200,202,180,174,200,117,234,117,234,174,200,169,206,117,234,169,206,117,449,117,449,169,206,167,217,117,449,167,217,166,234,21,463,21,402,35,402,21,463,35,402,41,420,21,463,41,420,48,433,21,463,48,433,57,442,21,463,57,442,69,448,21,463,69,448,83,449,337,211,331,202,397,180,397,180,331,202,320,198,397,180,320,198,305,195,570,198,565,197,666,180,666,180,565,197,558,196,666,180,558,196,547,195,580,212,579,207,666,180,666,180,579,207,578,203,666,180,578,203,576,201,576,201,573,200,666,180,666,180,573,200,570,198,654,447,670,449,670,463,654,447,670,463,643,443,643,443,670,463,598,463,643,443,598,463,636,436,636,436,598,463,632,425,666,195,648,197,666,180,666,180,648,197,638,200,666,180,638,200,581,232,581,232,638,200,633,206,581,232,633,206,581,398,581,398,633,206,631,216,581,398,631,216,598,463,598,463,631,216,630,233,598,463,630,233,630,411,581,221,580,212,666,180,581,221,666,180,581,232,486,247,378,463,466,179,486,247,466,179,473,179,486,247,473,179,581,398,486,247,581,398,598,463,378,463,293,463,305,447,378,463,305,447,317,443,378,463,317,443,327,435,378,463,327,435,335,
-426,378,463,335,426,341,414,378,463,341,414,360,396,378,463,360,396,466,179,341,414,361,223,360,240,397,195,382,198,397,180,397,180,382,198,371,202,397,180,371,202,340,223,340,223,371,202,365,211,340,223,365,211,341,240,341,240,365,211,361,223,341,240,361,223,341,414,202,180,117,234,117,217,202,180,117,217,115,206,202,180,115,206,110,200,202,180,110,200,99,197,202,180,99,197,82,195,202,180,82,195,82,180,397,180,305,195,305,180,337,211,397,180,340,223,305,447,293,463,293,449,360,396,341,414,360,240,666,180,547,195,547,180,632,425,598,463,630,411,166,449,117,449,166,234,177,30,474,433,432,433,432,433,474,433,474,463,432,433,474,463,366,433,366,433,474,463,328,433,366,433,328,433,72,30,72,30,328,433,35,30,72,30,35,30,468,0,468,0,35,30,35,0,70,463,70,433,328,433,70,463,328,433,474,463,177,30,432,433,140,30,177,30,140,30,468,0,177,30,468,0,468,30,72,30,468,0,140,30,264,305,264,315,185,294,185,294,264,315,127,315,185,294,127,315,47,305,47,305,127,315,127,316,47,305,127,316,186,441,186,441,127,316,264,453,186,441,264,453,186,442,186,442,264,453,264,463,186,442,264,463,104,442,81,441,104,442,264,463,81,441,264,463,32,463,204,-19,190,-62,203,-114,203,-114,190,-62,171,-96,203,-114,171,-96,153,-141,153,-141,171,-96,147,-118,153,-141,147,-118,123,-126,123,-126,117,-126,153,-141,153,-141,117,-126,109,-124,153,-141,109,-124,91,-151,91,-151,109,-124,102,-121,91,-151,102,-121,94,-116,32,463,30,380,43,380,32,463,43,380,47,407,32,463,47,407,54,424,32,463,54,424,65,435,32,463,65,435,81,441,185,293,73,173,111,163,185,293,111,163,153,185,185,293,153,185,264,305,185,293,264,305,185,294,153,184,153,185,150,157,153,184,150,157,178,140,153,184,178,140,198,171,273,47,269,87,265,-16,265,-16,269,87,255,121,265,-16,255,121,241,-71,241,-71,255,121,232,149,241,-71,232,149,209,31,209,31,232,149,206,76,198,171,178,140,196,113,198,171,196,113,206,76,198,171,206,76,232,149,209,31,204,-19,241,-71,91,-151,94,-116,87,-108,91,-151,87,-108,79,-100,91,-151,79,-100,73,-93,91,-151,73,-93,70,-150,70,
--150,73,-93,66,-89,70,-150,66,-89,60,-86,70,-150,60,-86,53,-86,70,-150,53,-86,52,-144,44,-87,36,-91,37,-136,44,-87,37,-136,52,-144,44,-87,52,-144,53,-86,30,-97,26,-104,28,-126,30,-97,28,-126,37,-136,30,-97,37,-136,36,-91,28,-126,26,-104,24,-113,204,-19,203,-114,241,-71,111,163,73,173,73,163,153,185,111,163,150,157,185,294,47,305,47,294,65,60,52,65,20,0,20,0,52,65,42,75,20,0,42,75,20,112,20,112,42,75,36,90,20,112,36,90,34,112,37,271,43,215,46,330,46,330,43,215,61,169,46,330,61,169,75,385,75,385,61,169,90,133,75,385,90,133,120,431,120,431,90,133,117,273,132,105,117,273,90,133,260,473,209,437,260,448,260,448,311,439,337,462,337,462,311,439,351,415,337,462,351,415,399,432,399,432,351,415,380,377,399,432,380,377,398,329,404,273,428,132,445,387,445,387,428,132,458,169,445,387,458,169,474,332,474,332,458,169,477,215,474,332,477,215,484,271,399,432,398,329,404,273,399,432,404,273,445,387,337,462,260,473,260,448,366,149,386,104,386,185,386,185,386,104,428,132,386,185,428,132,399,228,399,228,428,132,404,273,300,0,333,59,305,105,305,105,333,59,334,84,305,105,334,84,339,121,339,121,334,84,386,104,339,121,386,104,366,149,483,77,477,67,501,0,501,0,477,67,467,61,501,0,467,61,453,59,501,0,501,111,488,111,501,0,488,111,486,92,501,0,486,92,483,77,333,59,300,0,501,0,333,59,501,0,453,59,183,462,120,431,140,370,183,462,140,370,169,410,183,462,169,410,209,437,183,462,209,437,260,473,120,431,117,273,123,323,120,431,123,323,140,370,184,84,185,59,215,105,184,84,215,105,181,122,184,84,181,122,154,152,184,84,154,152,134,189,184,84,134,189,132,105,121,231,117,273,132,105,121,231,132,105,134,189,221,0,215,105,185,59,221,0,185,59,81,59,221,0,81,59,65,60,221,0,65,60,20,0,43,248,46,133,61,294,61,294,46,133,75,78,61,294,75,78,90,331,90,331,75,78,120,32,90,331,120,32,117,191,117,191,132,359,90,331,154,312,181,341,184,379,184,379,181,341,215,359,184,379,215,359,185,405,185,405,215,359,221,463,185,405,221,
-463,81,405,65,403,81,405,221,463,65,403,221,463,20,463,20,463,20,352,34,352,20,463,34,352,36,373,20,463,36,373,42,388,20,463,42,388,52,398,20,463,52,398,65,403,398,135,380,86,399,31,399,31,380,86,351,49,399,31,351,49,337,1,337,1,351,49,311,24,337,1,311,24,260,-9,260,-9,311,24,260,16,501,463,300,463,333,405,501,463,333,405,453,405,501,463,453,405,467,403,501,463,467,403,477,396,501,463,477,396,483,386,501,463,483,386,486,372,501,463,486,372,488,353,501,463,488,353,501,353,366,315,386,359,339,343,339,343,386,359,334,379,339,343,334,379,305,359,305,359,334,379,333,405,305,359,333,405,300,463,484,192,477,248,474,131,474,131,477,248,458,294,474,131,458,294,445,76,445,76,458,294,428,331,445,76,428,331,404,191,404,191,428,331,399,236,386,278,399,236,428,331,386,278,428,331,386,359,386,278,386,359,366,315,404,191,399,31,445,76,209,26,169,53,183,1,209,26,183,1,260,-9,209,26,260,-9,260,16,140,93,123,141,120,32,140,93,120,32,183,1,140,93,183,1,169,53,117,191,121,233,132,359,132,359,121,233,134,274,132,359,134,274,184,379,184,379,134,274,154,312,46,133,43,248,37,192,117,191,120,32,123,141,398,135,399,31,404,191,58,-44,67,-35,72,11,72,11,67,-35,77,-27,72,11,77,-27,96,27,96,27,77,-27,89,-22,96,27,89,-22,100,-20,100,-20,113,-24,127,34,127,34,113,-24,121,-35,127,34,121,-35,126,-51,54,-9,42,-32,51,-56,54,-9,51,-56,58,-44,54,-9,58,-44,72,11,79,333,97,327,98,384,98,384,97,327,118,374,98,384,118,374,127,427,127,427,118,374,144,409,127,427,144,409,165,459,165,459,144,409,175,434,165,459,175,434,213,480,213,480,175,434,211,448,213,480,211,448,251,453,251,453,286,449,272,487,272,487,286,449,328,480,276,167,271,212,252,214,276,167,252,214,245,165,276,167,303,217,271,212,163,253,171,238,181,266,181,266,171,238,183,223,181,266,183,223,197,246,197,246,183,223,198,210,197,246,198,210,214,230,214,230,198,210,218,198,214,230,218,198,233,220,233,220,218,198,243,191,233,220,243,191,252,214,252,214,243,191,245,165,384,-19,376,-56,400,
--108,400,-108,376,-56,361,-87,400,-108,361,-87,346,-133,346,-133,361,-87,336,-108,346,-133,336,-108,298,-115,298,-115,270,-112,280,-142,280,-142,270,-112,249,-141,249,-141,270,-112,249,-101,249,-141,249,-101,233,-85,249,-141,233,-85,222,-64,249,-141,222,-64,220,-136,222,-64,213,-40,220,-136,220,-136,213,-40,204,-19,220,-136,204,-19,194,-127,194,-127,204,-19,193,1,194,-127,193,1,178,18,347,414,366,380,378,462,378,462,366,380,373,333,380,206,373,333,368,292,328,480,286,449,320,437,328,480,320,437,347,414,328,480,347,414,378,462,380,206,413,231,419,432,419,432,413,231,436,262,419,432,436,262,446,389,446,389,436,262,451,298,446,389,451,298,455,336,378,462,373,333,380,206,378,462,380,206,419,432,366,111,384,173,342,141,342,141,384,173,339,186,342,141,339,186,331,233,331,233,339,186,339,188,331,233,339,188,353,258,353,258,339,188,380,206,353,258,380,206,368,292,473,30,467,79,465,-22,465,-22,467,79,449,119,465,-22,449,119,440,-70,440,-70,449,119,421,151,440,-70,421,151,400,-108,400,-108,421,151,386,20,384,173,366,111,381,70,384,173,381,70,386,20,384,173,386,20,421,151,312,161,342,141,331,233,312,161,331,233,303,217,312,161,303,217,276,167,298,-115,280,-142,346,-133,272,487,213,480,251,453,245,165,243,191,243,190,245,165,243,190,221,158,221,158,243,190,216,181,221,158,216,181,201,146,201,146,216,181,194,169,201,146,194,169,184,130,184,130,194,169,177,154,184,130,177,154,166,109,166,109,177,154,162,137,166,109,162,137,149,118,132,-70,145,-90,157,29,157,29,145,-90,168,-112,157,29,168,-112,178,18,178,18,168,-112,194,-127,127,34,126,-51,132,-70,127,34,132,-70,157,29,127,34,96,27,100,-20,384,-19,400,-108,386,20,213,-40,222,-64,212,-40,51,-56,42,-32,35,-51,98,279,102,324,90,288,90,288,102,324,77,291,64,288,77,291,76,320,64,288,76,320,55,308,55,308,39,291,44,244,55,308,44,244,46,256,55,308,46,256,49,269,55,308,49,269,55,280,55,308,55,280,64,288,28,269,23,244,44,244,28,269,44,244,39,291,106,0,193,0,106,240,106,253,106,240,133,321,106,253,133,321,103,267,103,267,133,321,102,324,103,267,102,324,98,279,102,
-324,76,320,77,291,193,0,193,239,189,270,193,0,189,270,177,294,193,0,177,294,159,311,193,0,159,311,133,321,193,0,133,321,106,240,77,81,103,31,101,42,101,42,101,48,98,130,98,130,101,48,102,54,98,130,102,54,103,60,242,471,107,71,139,152,242,471,139,152,152,180,152,180,139,152,323,152,152,180,323,152,313,180,313,180,323,152,429,77,313,180,429,77,258,470,363,29,361,25,495,0,495,0,361,25,358,22,495,0,358,22,355,20,355,20,350,17,495,0,495,0,350,17,345,15,495,0,345,15,338,14,365,37,495,0,462,24,365,37,462,24,450,36,365,37,450,36,440,54,365,37,440,54,429,77,365,37,429,77,364,44,429,77,323,152,352,85,429,77,352,85,356,74,429,77,356,74,360,63,429,77,360,63,363,53,429,77,363,53,364,44,295,526,289,513,295,486,295,486,289,513,279,503,295,486,279,503,278,476,278,476,279,503,266,497,278,476,266,497,258,470,258,470,266,497,251,495,258,470,251,495,313,180,313,180,251,495,242,471,242,471,251,495,236,497,242,471,236,497,224,503,242,471,152,180,232,373,242,471,232,373,313,180,98,130,77,81,101,42,98,130,103,60,105,66,98,130,105,66,107,71,98,130,107,71,242,471,476,17,462,24,495,0,476,17,495,0,495,13,364,33,363,29,495,0,364,33,495,0,365,37,329,13,316,13,495,0,329,13,495,0,338,14,150,0,150,13,132,14,150,0,132,14,118,17,150,0,118,17,61,48,150,0,61,48,47,28,150,0,47,28,31,18,150,0,31,18,10,13,150,0,10,13,10,0,61,48,118,17,108,23,61,48,108,23,103,31,61,48,103,31,77,81,223,476,242,471,224,503,223,476,224,503,214,513,223,476,214,513,208,526,223,476,208,526,206,486,208,526,205,541,206,486,206,486,205,541,196,581,196,581,205,541,211,596,211,596,205,541,208,555,182,541,185,520,186,562,186,562,185,520,193,501,186,562,193,501,196,581,196,581,193,501,206,486,295,486,309,501,295,526,295,526,309,501,298,541,295,555,298,541,308,581,295,555,308,581,293,596,252,609,251,586,266,584,252,609,266,584,274,606,274,606,266,584,278,577,274,606,278,577,293,596,293,596,278,577,289,567,293,596,289,
-567,295,555,318,561,308,581,309,501,318,561,309,501,318,519,318,561,318,519,321,540,298,541,309,501,308,581,214,567,224,577,230,606,230,606,224,577,237,584,230,606,237,584,252,609,252,609,237,584,251,586,211,596,208,555,214,567,211,596,214,567,230,606,495,0,316,13,316,0,245,95,254,93,247,111,247,111,254,93,252,111,266,113,252,111,254,93,266,113,254,93,263,93,309,302,285,335,288,192,288,192,285,335,274,367,268,225,274,367,248,399,268,225,248,399,244,257,244,257,248,399,225,365,244,257,225,365,224,291,224,291,225,365,216,331,275,377,278,386,280,431,280,431,278,386,284,397,280,431,284,397,314,460,314,460,284,397,291,407,314,460,291,407,302,419,302,419,314,406,314,460,314,460,314,406,327,397,314,460,327,397,346,487,346,487,327,397,342,391,346,487,342,391,358,388,280,431,248,399,274,367,280,431,274,367,275,377,450,465,440,457,444,426,444,426,440,457,430,452,444,426,430,452,425,407,425,407,430,452,420,449,425,407,420,449,410,448,410,448,399,450,402,392,402,392,399,450,387,455,402,392,387,455,377,387,377,387,387,455,375,462,377,387,375,462,361,473,361,473,346,487,358,388,361,473,358,388,377,387,460,446,473,463,461,474,460,446,461,474,450,465,460,446,450,465,444,426,410,448,402,392,425,407,309,302,297,152,326,112,309,302,326,112,339,268,339,268,326,112,351,133,339,268,351,133,363,230,363,230,351,133,367,159,363,230,367,159,373,188,297,152,296,98,326,112,296,98,297,152,294,137,296,98,294,137,288,126,296,98,288,126,278,117,296,98,278,117,266,113,296,98,266,113,263,93,266,441,277,454,268,462,266,441,268,462,258,469,266,441,258,469,258,445,231,451,240,450,245,474,245,474,240,450,249,448,245,474,249,448,258,469,258,469,249,448,258,445,119,327,131,373,142,464,142,464,131,373,152,413,142,464,152,413,210,480,210,480,152,413,182,441,210,480,182,441,220,452,220,452,231,451,229,478,229,478,231,451,245,474,247,111,242,112,245,95,245,95,242,112,236,114,245,95,236,114,235,97,235,97,236,114,230,116,235,97,230,116,225,100,225,100,230,116,224,119,225,100,224,119,216,104,113,41,115,280,92,423,113,41,92,423,68,
-102,68,102,92,423,58,367,68,102,58,367,42,174,42,174,58,367,39,306,42,174,39,306,33,249,119,327,142,464,92,423,119,327,92,423,115,280,229,478,210,480,220,452,177,0,259,-16,221,59,221,59,259,-16,287,45,320,48,287,45,312,-9,320,48,312,-9,357,10,177,0,221,59,172,96,177,0,172,96,139,150,177,0,139,150,121,213,177,0,121,213,113,41,451,113,437,121,427,74,427,74,437,121,409,94,427,74,409,94,396,39,396,39,409,94,381,73,396,39,381,73,357,10,357,10,381,73,351,58,357,10,351,58,320,48,287,45,259,-16,312,-9,113,41,121,213,115,280,288,192,274,367,268,225,309,302,288,192,297,152,470,90,441,61,444,25,444,25,441,61,410,38,444,25,410,38,402,4,402,4,410,38,375,22,402,4,375,22,353,-7,353,-7,375,22,338,13,353,-7,338,13,297,-11,297,-11,338,13,297,10,470,90,444,25,483,53,470,90,483,53,520,90,297,10,256,13,297,-11,297,-11,256,13,220,22,297,-11,220,22,209,0,209,0,220,22,187,36,209,0,187,36,159,55,136,77,130,84,134,35,136,77,134,35,209,0,136,77,209,0,159,55,130,84,127,89,134,35,134,35,127,89,125,93,134,35,125,93,76,87,76,87,125,93,124,99,76,87,124,99,124,108,124,269,124,231,125,263,125,368,127,374,132,426,132,426,127,374,131,378,132,426,131,378,136,384,136,384,160,405,207,461,207,461,160,405,189,423,207,461,189,423,223,437,37,307,38,154,74,373,74,373,38,154,76,87,74,373,76,87,132,426,132,426,76,87,124,361,132,426,124,361,125,368,124,352,124,361,76,87,124,352,76,87,124,108,207,461,223,437,297,473,297,473,223,437,259,447,297,473,259,447,297,450,297,450,334,447,374,464,374,464,334,447,370,439,374,464,370,439,403,426,207,461,132,426,136,384,374,464,403,426,446,434,446,434,403,426,431,409,446,434,431,409,452,389,452,389,457,383,506,385,506,385,457,383,461,377,506,385,461,377,464,372,374,464,297,473,297,450,466,271,566,231,466,355,466,365,466,355,506,385,466,365,506,385,464,372,506,385,446,434,452,389,506,385,466,355,566,231,506,385,566,231,547,318,566,231,466,271,466,264,566,231,466,264,464,260,566,
-231,464,260,461,257,566,231,461,257,456,255,566,231,456,255,450,255,566,231,450,255,138,255,566,231,138,255,124,231,124,231,138,255,133,255,124,231,133,255,129,256,124,231,129,256,126,259,124,231,126,259,125,263,38,154,37,307,24,231,323,463,263,463,323,0,323,0,263,463,263,245,323,0,263,245,263,193,263,193,263,245,55,245,263,193,55,245,55,193,263,52,9,52,16,0,263,52,16,0,323,0,263,52,323,0,263,193,93,28,75,22,95,0,95,0,75,22,57,18,95,0,57,18,42,17,58,355,69,450,66,462,66,462,67,464,58,355,58,355,67,464,52,474,58,355,52,474,49,365,49,365,52,474,46,466,49,365,46,466,41,377,41,377,46,466,40,455,41,377,40,455,36,390,36,390,40,455,35,444,36,390,35,444,32,403,32,403,35,444,32,431,32,403,32,431,30,417,67,467,67,469,52,474,52,474,67,469,68,472,52,474,68,472,70,474,93,28,95,0,106,38,106,38,95,0,128,3,106,38,128,3,112,52,112,52,128,3,113,204,113,204,116,298,104,72,104,72,116,298,94,282,104,72,94,282,87,90,87,90,94,282,73,262,87,90,73,262,67,109,67,109,73,262,57,239,67,109,57,239,49,138,49,138,57,239,46,213,49,138,46,213,42,181,117,235,121,250,116,298,116,298,121,250,127,265,116,298,127,265,134,280,134,280,347,84,320,205,320,205,347,84,345,185,320,205,345,185,356,347,356,347,345,185,379,327,356,347,379,327,363,436,356,347,363,436,355,444,116,298,134,280,320,205,116,298,320,205,111,403,116,298,111,403,98,415,116,298,98,415,86,427,116,298,86,427,76,439,116,298,76,439,69,450,116,298,69,450,58,355,340,362,356,347,344,467,344,467,344,468,328,378,328,378,344,468,328,474,328,378,328,474,323,466,344,470,344,471,328,474,328,474,344,471,345,473,328,474,345,473,345,474,344,467,328,378,340,362,320,394,328,378,323,466,320,394,323,466,319,456,320,394,319,456,316,447,320,394,316,447,315,410,314,437,313,427,315,410,314,437,315,410,316,447,391,313,397,307,407,394,407,394,397,307,403,301,407,394,403,301,407,295,407,295,409,290,422,377,422,377,409,290,411,285,422,377,411,285,412,281,434,278,438,
-288,439,346,439,346,438,288,441,299,439,346,441,299,443,332,443,332,441,299,443,309,443,332,443,309,444,319,413,276,413,270,422,377,422,377,413,270,430,270,422,377,430,270,433,361,433,361,430,270,434,278,433,361,434,278,439,346,422,377,407,394,407,295,372,59,388,42,411,120,411,120,388,42,402,25,411,120,402,25,411,8,411,8,412,5,421,109,421,109,412,5,412,2,421,109,412,2,413,-1,430,-8,436,6,437,84,437,84,436,6,440,19,437,84,440,19,442,70,442,70,440,19,442,32,442,70,442,32,444,55,444,55,442,32,443,44,437,84,430,97,430,-8,430,-8,430,97,421,109,430,-8,421,109,413,-8,413,-8,421,109,413,-5,421,109,411,120,411,8,411,120,345,185,347,84,411,120,347,84,358,73,411,120,358,73,372,59,356,347,355,444,349,452,356,347,349,452,345,459,356,347,345,459,344,467,407,394,372,427,379,327,407,394,379,327,385,320,407,394,385,320,391,313,116,298,113,204,114,219,116,298,114,219,117,235,113,204,104,72,112,52,188,59,186,75,184,40,184,40,186,75,180,88,184,40,180,88,173,23,173,23,180,88,171,100,173,23,171,100,160,111,154,11,173,23,160,111,154,11,160,111,148,124,154,11,148,124,135,140,154,11,135,140,128,3,128,3,135,140,126,155,128,3,126,155,119,170,128,3,119,170,115,186,128,3,115,186,113,204,95,0,42,17,42,0,363,436,379,327,372,427,421,109,413,-1,413,-5,422,377,412,281,413,276,328,474,344,468,344,470,52,474,67,464,67,467,103,435,97,446,111,350,111,350,97,446,95,460,84,360,95,460,95,463,84,360,95,463,80,474,80,474,95,463,95,465,80,474,95,465,95,468,96,471,97,474,80,474,96,471,80,474,95,468,70,465,63,454,67,374,70,465,67,374,84,360,70,465,84,360,80,474,58,441,54,427,56,392,58,441,56,392,67,374,58,441,67,374,63,454,243,355,248,432,225,355,225,355,248,432,225,431,225,355,225,431,207,352,207,352,225,431,203,427,207,352,203,427,188,350,188,350,203,427,182,423,188,350,182,423,168,348,168,348,182,423,161,419,168,348,161,419,146,347,146,347,161,419,138,418,340,71,358,383,332,411,340,71,332,411,331,203,340,71,331,203,330,
-176,340,71,330,176,328,146,340,71,328,146,347,3,374,342,358,383,361,157,374,342,361,157,370,203,374,342,370,203,376,247,374,342,376,247,379,288,358,383,340,71,350,112,358,383,350,112,361,157,388,84,380,79,385,29,388,84,385,29,396,50,388,84,396,50,401,76,370,75,358,73,368,13,370,75,368,13,385,29,370,75,385,29,380,79,348,71,340,71,347,3,348,71,347,3,368,13,348,71,368,13,358,73,108,0,121,0,126,69,126,69,121,0,321,0,126,69,321,0,152,71,152,71,321,0,316,71,321,91,316,71,321,0,321,91,321,0,325,117,325,117,321,0,347,3,325,117,347,3,328,146,102,62,79,48,79,-2,102,62,79,-2,94,0,102,62,94,0,108,0,102,62,108,0,126,69,40,-3,54,-12,58,27,58,27,54,-12,66,-6,58,27,66,-6,79,48,79,48,66,-6,79,-2,332,411,295,427,297,338,332,411,297,338,315,310,332,411,315,310,327,267,332,411,327,267,331,203,272,352,297,338,295,427,272,352,295,427,248,432,272,352,248,432,243,355,103,435,111,350,112,426,112,426,111,350,146,347,112,426,146,347,124,420,124,420,146,347,138,418,111,350,95,460,84,360,56,392,54,427,53,410,123,361,149,350,132,461,132,461,132,464,123,361,123,361,132,464,132,466,123,361,132,466,117,474,117,474,132,466,133,469,117,474,133,469,133,471,108,466,101,456,104,376,108,466,104,376,123,361,108,466,123,361,117,474,95,445,92,431,94,394,95,445,94,394,104,376,95,445,104,376,101,456,201,420,174,422,184,346,201,420,184,346,197,342,201,420,197,342,208,332,201,420,208,332,227,417,154,428,141,437,149,350,154,428,149,350,184,346,154,428,184,346,174,422,134,448,132,461,149,350,134,448,149,350,141,437,223,276,223,259,235,86,235,86,223,259,223,241,235,86,223,241,222,128,222,128,223,241,221,222,222,128,221,222,220,128,220,128,221,222,219,201,220,128,219,201,216,177,216,177,204,81,213,105,165,19,180,37,183,112,183,112,180,37,193,58,183,112,193,58,201,142,201,142,193,58,204,81,201,142,204,81,216,177,163,90,141,76,145,6,163,90,145,6,156,11,163,90,156,11,165,19,163,90,165,19,183,112,81,0,96,0,97,67,97,
-67,96,0,109,0,97,67,109,0,118,70,118,70,109,0,122,1,118,70,122,1,141,76,141,76,122,1,134,2,141,76,134,2,145,6,258,391,246,407,248,205,248,205,252,57,256,174,256,174,252,57,270,35,256,174,270,35,275,143,275,143,270,35,284,15,275,143,284,15,297,114,297,114,284,15,289,-8,297,114,289,-8,306,-8,250,235,254,264,258,391,258,391,254,264,259,293,258,391,259,293,264,372,264,372,259,293,264,321,264,372,264,321,266,349,258,391,248,205,250,235,306,-8,312,0,316,85,316,85,312,0,317,11,316,85,317,11,324,55,324,55,317,11,321,23,324,55,321,23,323,37,235,86,252,57,248,205,235,86,248,205,246,407,235,86,246,407,227,417,235,86,227,417,223,276,216,177,213,105,220,128,208,332,216,317,227,417,227,417,216,317,222,297,227,417,222,297,223,276,28,-3,42,-12,43,23,43,23,42,-12,54,-6,43,23,54,-6,59,43,59,43,54,-6,67,-2,59,43,67,-2,78,58,78,58,67,-2,81,0,78,58,81,0,97,67,297,114,306,-8,316,85,94,394,92,431,91,413,117,474,133,471,134,474,76,355,88,351,77,460,77,460,77,463,66,360,66,360,77,463,78,465,66,360,78,465,63,474,63,474,78,465,78,468,63,474,78,468,79,471,80,474,63,474,79,471,77,460,66,360,76,355,66,360,63,474,55,368,55,368,63,474,54,465,55,368,54,465,47,377,47,377,54,465,46,454,47,377,46,454,41,387,41,387,46,454,41,441,41,387,41,441,38,398,38,398,41,441,38,427,38,398,38,427,37,410,254,355,259,432,234,355,234,355,259,432,233,431,234,355,233,431,210,352,210,352,233,431,204,427,210,352,204,427,185,350,185,350,204,427,175,423,185,350,175,423,159,348,159,348,175,423,147,419,159,348,147,419,134,347,134,347,147,419,121,418,134,347,121,418,117,347,117,347,121,418,107,420,117,347,107,420,102,349,102,349,107,420,95,426,102,349,95,426,88,351,88,351,95,426,86,435,88,351,86,435,79,446,311,184,305,219,313,37,313,37,305,219,302,263,297,16,302,263,290,328,297,16,290,328,278,0,278,0,290,328,273,302,278,0,273,302,257,272,344,392,335,408,336,346,344,392,336,346,340,353,344,392,340,
-353,344,360,344,392,344,360,346,367,344,392,346,367,347,375,308,299,314,316,318,420,318,420,314,316,322,330,318,420,322,330,335,408,335,408,322,330,330,340,335,408,330,340,336,346,279,354,289,353,293,429,293,429,289,353,297,351,293,429,297,351,318,420,318,420,297,351,305,348,318,420,305,348,308,299,268,355,279,354,293,429,268,355,293,429,259,432,268,355,259,432,254,355,305,348,290,328,302,263,305,348,302,263,304,281,305,348,304,281,308,299,254,-12,278,0,257,272,254,-12,257,272,252,59,254,-12,252,59,251,48,254,-12,251,48,249,36,254,-12,249,36,247,23,254,-12,247,23,243,8,254,-12,243,8,239,-4,257,272,245,238,247,118,257,272,247,118,250,87,257,272,250,87,252,59,245,238,241,198,242,176,245,238,242,176,244,149,245,238,244,149,247,118,311,184,313,37,318,152,318,152,313,37,322,60,318,152,322,60,323,120,323,120,322,60,326,84,313,37,302,263,297,16,77,460,88,351,79,446,267,84,266,104,271,10,271,10,266,104,251,32,251,32,266,104,266,284,251,32,266,284,239,61,239,61,266,284,235,284,239,61,235,284,235,95,155,30,186,0,155,284,155,284,186,0,186,284,155,284,186,284,427,315,427,315,186,284,235,284,427,315,235,284,266,284,113,30,113,284,83,284,113,30,83,284,83,0,113,30,83,0,186,0,113,30,186,0,155,30,339,284,427,284,427,315,339,284,427,315,308,284,339,284,308,284,308,70,339,284,308,70,308,59,339,284,308,59,308,49,339,284,308,49,309,38,339,284,309,38,311,27,339,284,311,27,332,-8,339,284,332,-8,339,80,427,315,17,315,83,284,427,315,83,284,113,284,427,315,113,284,155,284,410,59,399,44,404,6,404,6,399,44,387,33,404,6,387,33,383,-2,383,-2,387,33,371,25,383,-2,371,25,359,-6,359,-6,371,25,348,23,422,21,439,44,452,64,422,21,452,64,422,76,422,21,422,76,410,59,422,21,410,59,404,6,344,32,341,44,332,-8,344,32,332,-8,359,-6,344,32,359,-6,348,23,341,44,340,56,332,-8,332,-8,340,56,339,69,332,-8,339,69,339,80,310,26,292,34,298,-3,310,26,298,-3,332,-8,310,26,332,-8,311,27,267,84,271,10,271,65,271,65,271,10,298,
--3,271,65,298,-3,279,48,279,48,298,-3,292,34,308,70,308,284,308,80,83,284,17,315,17,284,427,315,266,284,308,284,210,-65,211,-82,230,-11,230,-11,211,-82,241,-145,230,-11,241,-145,239,-114,239,-114,241,-145,241,-115,250,-101,241,-115,241,-145,250,-101,241,-145,265,-128,241,-145,211,-82,211,-90,241,-145,211,-90,210,-98,241,-145,210,-98,209,-106,241,-145,209,-106,209,-151,185,-147,209,-151,191,-117,191,-117,209,-151,205,-121,208,-113,205,-121,209,-151,208,-113,209,-151,209,-106,185,-147,191,-117,180,-107,185,-147,180,-107,172,-93,185,-147,172,-93,167,-78,185,-147,167,-78,164,-134,172,48,160,27,166,-63,166,-63,160,27,164,-134,166,-63,164,-134,167,-78,158,250,133,281,139,225,139,225,133,281,105,311,139,225,105,311,104,313,200,60,158,128,172,48,172,48,175,-18,200,60,200,60,175,-18,182,-5,200,60,182,-5,190,8,190,8,191,8,200,60,200,60,191,8,198,-6,200,60,198,-6,203,-25,230,-11,200,60,203,-25,230,-11,203,-25,207,-45,230,-11,207,-45,210,-65,63,249,74,189,110,192,110,192,74,189,110,146,110,192,110,146,158,128,158,128,110,146,144,100,158,128,144,100,172,48,74,189,63,249,59,253,74,189,59,253,57,256,74,189,57,256,54,259,74,189,54,259,52,262,74,189,52,262,49,266,74,189,49,266,36,232,227,152,206,185,225,94,227,152,225,94,254,24,227,152,254,24,246,118,227,152,246,118,247,184,185,163,225,94,206,185,185,163,206,185,183,218,185,163,183,218,158,250,185,163,158,250,139,225,139,225,104,313,101,315,139,225,101,315,99,318,139,225,99,318,97,320,139,225,97,320,95,322,139,225,95,322,93,277,241,-84,230,-11,239,-114,241,-84,239,-114,240,-108,241,-84,240,-108,241,-102,241,-84,241,-102,241,-96,241,-84,241,-96,241,-90,335,312,312,281,332,253,335,312,332,253,355,286,335,312,355,286,337,314,355,286,368,304,342,321,355,286,342,321,341,319,355,286,341,319,340,317,355,286,340,317,338,315,355,286,338,315,337,314,247,184,246,118,266,153,247,184,266,153,268,217,268,217,266,153,287,187,268,217,287,187,290,249,290,249,287,187,309,221,290,249,309,221,312,281,312,281,309,221,332,253,295,-43,293,-10,292,-74,292,-74,293,-10,286,23,292,
--74,286,23,282,-104,282,-104,286,23,275,56,282,-104,275,56,265,-128,265,-128,275,56,265,-43,265,-128,265,-43,264,-59,265,-128,264,-59,262,-74,261,88,246,118,254,24,261,88,254,24,265,-43,261,88,265,-43,275,56,257,-88,250,-101,265,-128,257,-88,265,-128,262,-74,172,48,166,-63,167,-47,172,48,167,-47,170,-33,172,48,170,-33,175,-18,137,-44,139,-93,142,-19,142,-19,139,-93,148,-115,142,-19,148,-115,150,4,150,4,148,-115,164,-134,150,4,164,-134,160,27,95,322,0,277,49,266,95,322,49,266,85,286,95,322,85,286,87,284,95,322,87,284,88,282,95,322,88,282,90,280,95,322,90,280,91,279,95,322,91,279,93,277,49,266,0,277,36,232,139,-93,137,-44,135,-68,397,433,397,463,165,433,165,433,397,463,134,433,165,433,134,433,165,0,165,0,134,433,134,30,165,0,134,30,80,30,134,433,397,463,80,433,80,433,397,463,49,463,80,433,49,463,80,30,80,30,49,463,49,0,80,30,49,0,165,0,454,463,49,463,80,433,454,463,80,433,134,433,454,463,134,433,165,433,454,463,165,433,338,433,454,463,338,433,368,433,454,463,368,433,423,433,454,463,423,433,454,0,368,30,368,433,338,433,368,30,338,433,338,0,368,30,338,0,454,0,368,30,454,0,423,30,165,0,165,433,134,433,165,0,134,433,134,30,165,0,134,30,80,30,165,0,80,30,49,0,49,463,49,0,80,30,49,463,80,30,80,433,423,30,454,0,423,433,537,534,43,534,91,494,537,534,91,494,191,494,537,534,191,494,236,494,537,534,236,494,537,494,241,177,43,-140,91,-140,91,-140,43,-140,617,-180,91,-140,617,-180,185,-140,185,-140,617,-180,232,-140,185,-140,232,-140,385,177,385,177,232,-140,431,177,385,177,431,177,236,494,241,177,91,-140,286,177,241,177,286,177,91,494,241,177,91,494,43,534,241,177,43,534,43,494,617,-180,43,-140,43,-180,232,-140,617,-180,617,-140,385,177,236,494,191,494,177,418,221,420,221,420,224,473,221,420,286,409,224,473,286,409,307,462,307,462,286,409,338,380,307,462,338,380,374,428,374,428,338,380,375,337,374,428,375,337,425,377,425,377,375,337,398,285,425,377,398,285,405,228,112,389,124,401,129,463,129,463,124,401,145,411,129,463,145,
-411,170,471,170,471,145,411,177,418,170,471,177,418,224,473,224,473,177,418,221,420,112,389,129,463,109,377,109,377,129,463,97,451,109,377,97,451,109,266,109,266,97,451,71,437,109,266,71,437,48,422,405,228,398,173,423,87,423,87,398,173,376,123,423,87,376,123,371,35,371,35,376,123,340,82,371,35,340,82,305,2,305,2,340,82,290,54,305,2,290,54,226,-9,226,-9,290,54,226,44,468,230,457,310,456,153,456,153,457,310,425,377,456,153,425,377,423,87,423,87,425,377,405,228,70,140,84,37,93,101,93,101,84,37,116,15,93,101,116,15,122,74,122,74,116,15,151,0,122,74,151,0,154,56,154,56,151,0,189,-7,154,56,189,-7,189,47,189,47,189,-7,226,-9,189,47,226,-9,226,44,109,266,48,422,48,213,109,266,48,213,184,213,109,266,184,213,169,266,56,140,56,68,84,37,56,140,84,37,70,140,279,412,279,0,340,0,279,412,340,0,340,463,279,412,340,463,22,463,279,412,22,463,9,412,340,0,340,463,279,463,340,0,279,463,279,52,340,0,279,52,9,52,340,0,9,52,22,0,220,210,360,0,252,262,220,210,252,262,252,463,220,210,252,463,190,463,220,210,190,463,190,262,220,210,190,262,81,0,252,262,360,0,427,0,81,0,190,262,15,0,463,156,474,232,464,310,463,156,464,310,443,239,463,156,443,239,441,209,463,156,441,209,435,175,463,156,435,175,432,92,408,355,424,329,433,374,433,374,424,329,435,301,433,374,435,301,464,310,464,310,435,301,441,271,464,310,441,271,443,239,408,355,433,374,387,379,387,379,433,374,385,422,387,379,385,422,387,88,387,88,385,422,384,43,387,88,384,43,432,92,408,111,387,88,432,92,424,141,408,111,432,92,424,141,432,92,435,175,384,43,385,422,356,400,384,43,356,400,356,70,384,43,356,70,338,56,384,43,338,56,320,11,356,400,385,422,336,411,336,411,385,422,321,453,336,411,321,453,313,420,313,420,321,453,287,427,165,433,240,433,244,463,244,463,240,433,263,431,244,463,263,431,321,453,321,453,263,431,287,427,49,463,49,0,80,30,80,30,49,0,244,0,80,30,244,0,134,30,134,30,244,0,165,30,134,30,165,30,134,433,134,433,165,30,165,
-433,134,433,165,433,244,463,244,463,49,463,80,433,244,463,80,433,134,433,320,11,338,56,314,45,320,11,314,45,288,37,320,11,288,37,262,32,320,11,262,32,244,0,239,30,165,30,244,0,239,30,244,0,262,32,80,433,49,463,80,30,259,209,259,209,259,280,259,280,259,209,291,30,259,280,291,30,259,478,259,478,291,30,291,448,259,478,291,448,363,478,363,478,291,448,333,448,363,478,333,448,363,0,363,0,333,448,333,30,363,0,333,30,291,30,259,109,255,83,259,34,259,109,259,34,291,30,259,109,291,30,259,209,259,34,259,0,363,0,259,34,363,0,291,30,259,209,259,280,255,234,255,234,259,280,243,298,255,234,243,298,242,257,242,257,243,298,225,310,242,257,225,310,222,275,222,275,225,310,206,317,222,275,206,317,199,287,199,287,206,317,185,321,199,287,185,321,173,291,150,289,157,290,165,322,165,322,157,290,165,291,165,322,165,291,185,321,185,321,165,291,173,291,116,3,135,34,117,313,117,313,135,34,135,280,117,313,135,280,165,322,165,322,135,280,142,285,165,322,142,285,150,289,164,-6,135,34,116,3,259,34,255,83,243,18,243,18,255,83,243,60,243,18,243,60,226,6,226,6,243,60,225,41,226,6,225,41,206,0,206,0,225,41,203,28,206,0,203,28,186,-5,186,-5,203,28,177,23,169,24,160,25,164,-6,169,24,164,-6,186,-5,169,24,186,-5,177,23,164,-6,160,25,151,27,164,-6,151,27,142,30,164,-6,142,30,135,34,116,3,117,313,105,268,116,3,105,268,105,49,116,3,105,49,88,67,116,3,88,67,79,29,105,268,117,313,87,252,87,252,117,313,79,288,87,252,79,288,75,231,75,231,79,288,68,207,53,251,63,159,64,183,53,251,64,183,79,288,79,288,64,183,68,207,79,29,88,67,76,88,79,29,76,88,68,111,79,29,68,111,64,136,79,29,64,136,53,67,31,159,37,112,37,207,37,207,37,112,53,67,37,207,53,67,53,251,53,251,53,67,64,136,53,251,64,136,63,159,287,245,296,228,305,270,305,270,296,228,302,211,305,270,302,211,304,193,334,139,304,193,304,170,334,139,304,170,262,170,207,289,215,286,235,316,235,316,215,286,224,283,235,316,224,283,231,278,231,
-278,262,170,235,316,235,316,262,170,262,270,235,316,262,270,274,298,274,298,262,270,276,259,274,298,276,259,305,270,305,270,276,259,287,245,334,139,334,191,327,234,334,139,327,234,305,270,334,139,305,270,304,193,145,31,135,36,137,1,135,277,135,36,135,139,135,170,135,139,334,139,135,170,334,139,231,170,231,170,334,139,262,170,231,170,262,170,231,278,156,285,167,288,192,322,192,322,167,288,179,291,192,322,179,291,190,291,190,291,198,291,192,322,192,322,198,291,235,316,137,1,135,36,105,266,105,266,135,36,135,277,105,266,135,277,138,314,138,314,135,277,145,281,138,314,145,281,192,322,192,322,145,281,156,285,137,1,105,266,105,50,137,1,105,50,92,23,92,23,105,50,88,68,92,23,88,68,76,88,93,292,60,258,69,206,93,292,69,206,77,228,93,292,77,228,89,248,93,292,89,248,105,266,93,292,105,266,138,314,69,206,60,258,64,182,64,182,60,258,63,159,64,135,63,159,59,58,64,135,59,58,68,111,68,111,59,58,92,23,68,111,92,23,76,88,31,159,38,104,39,213,39,213,38,104,59,58,39,213,59,58,60,258,60,258,59,58,63,159,327,66,302,83,307,39,307,39,302,83,284,60,307,39,284,60,283,18,283,18,284,60,265,43,283,18,265,43,256,4,256,4,265,43,243,32,256,4,243,32,225,-3,225,-3,243,32,218,25,225,-3,218,25,192,-6,192,-6,218,25,189,23,192,-6,189,23,179,24,192,-6,179,24,167,25,192,-6,167,25,156,28,192,-6,156,28,145,31,192,-6,145,31,137,1,235,316,198,291,207,289,38,376,70,407,38,478,38,478,70,407,70,448,38,478,70,448,142,478,142,478,70,448,111,448,142,478,111,448,142,376,142,376,111,448,111,407,142,376,111,407,70,407,38,0,70,30,38,315,38,315,70,30,70,284,38,315,70,284,142,315,142,315,70,284,111,284,142,315,111,284,142,0,142,0,111,284,111,30,142,0,111,30,70,30,70,30,38,0,142,0,70,407,38,376,142,376,75,376,105,407,75,478,75,478,105,407,105,448,75,478,105,448,175,478,175,478,105,448,145,448,175,478,145,448,175,376,175,376,145,448,145,407,175,376,145,407,105,407,68,-116,62,-118,90,-145,90,-145,62,
--118,55,-119,90,-145,55,-119,48,-151,48,-151,55,-119,48,-119,48,-151,48,-119,41,-119,41,-119,32,-119,36,-150,36,-150,32,-119,24,-149,32,-119,24,-118,24,-149,24,-149,24,-118,15,-116,24,-149,15,-116,13,-147,13,-147,15,-116,7,-113,13,-147,7,-113,1,-144,1,-144,7,-113,0,-110,1,-144,0,-110,-9,-140,175,315,75,315,105,284,175,315,105,284,145,284,175,315,145,284,152,-104,175,315,152,-104,169,-70,175,315,169,-70,175,-28,125,-129,105,-106,90,-145,90,-145,105,-106,105,284,90,-145,105,284,75,315,75,-113,68,-116,90,-145,75,-113,90,-145,75,315,41,-119,36,-150,48,-151,152,-104,145,284,145,-40,152,-104,145,-40,143,-56,152,-104,143,-56,138,-71,152,-104,138,-71,130,-85,152,-104,130,-85,125,-129,119,-97,105,-106,125,-129,119,-97,125,-129,130,-85,105,407,75,376,175,376,323,382,274,387,274,340,274,340,274,387,204,387,274,340,204,387,204,340,204,185,204,138,276,138,204,46,204,484,158,484,204,46,158,484,158,387,204,46,158,387,158,340,204,46,158,340,158,0,204,46,158,0,391,0,204,46,391,0,391,46,370,293,375,262,375,263,375,263,375,262,395,181,395,181,375,262,370,232,395,181,370,232,364,157,364,157,370,232,355,210,364,157,355,210,333,196,370,293,375,263,395,341,395,341,375,263,395,181,395,341,395,181,414,307,414,307,395,181,414,216,414,307,414,216,421,262,364,366,323,382,334,329,364,366,334,329,356,315,364,366,356,315,370,293,364,366,370,293,395,341,323,382,274,340,306,337,323,382,306,337,334,329,364,157,333,196,324,143,324,143,333,196,306,188,324,143,306,188,276,138,276,138,306,188,273,185,276,138,273,185,204,185,31,214,77,214,31,387,31,387,77,214,77,340,31,387,77,340,158,387,158,387,77,340,158,340,92,195,80,187,198,166,198,166,80,187,65,182,198,166,65,182,47,180,193,307,217,340,201,359,201,359,219,433,195,452,201,359,195,452,181,382,181,382,195,452,172,464,181,382,172,464,162,400,162,400,172,464,149,471,162,400,149,471,141,413,141,413,149,471,125,473,141,413,125,473,119,421,119,421,125,473,98,470,119,421,98,470,95,423,55,411,66,418,73,460,73,460,66,418,79,422,73,460,79,422,98,470,98,470,79,422,95,
-423,20,394,30,387,34,422,34,422,30,387,43,401,34,422,43,401,52,444,52,444,43,401,55,411,52,444,55,411,73,460,92,195,198,166,102,207,102,207,198,166,112,222,102,207,112,222,113,222,130,251,113,222,154,202,130,251,154,202,152,213,152,213,162,303,146,277,219,433,217,340,239,314,219,433,239,314,245,409,245,409,239,314,258,288,245,409,258,288,262,391,262,391,258,288,276,260,262,391,276,260,285,363,285,363,276,260,292,230,285,363,292,230,306,335,306,335,292,230,309,195,306,335,309,195,326,303,320,173,309,195,288,156,155,233,162,254,162,303,162,303,162,254,175,279,162,303,175,279,180,330,180,330,175,279,193,307,180,330,193,307,201,359,146,277,130,251,152,213,198,180,180,183,198,166,198,166,180,183,167,188,198,166,167,188,113,222,113,222,167,188,158,194,113,222,158,194,154,202,435,401,437,469,416,420,416,420,437,469,395,473,416,420,395,473,392,432,392,432,395,473,364,436,346,434,364,436,363,471,346,434,363,471,333,464,275,434,262,391,286,409,275,434,286,409,304,452,304,452,286,409,307,421,304,452,307,421,333,464,333,464,307,421,327,430,333,464,327,430,346,434,348,71,360,10,368,224,368,224,360,10,383,32,368,224,383,32,379,200,368,224,379,200,400,247,400,247,379,200,405,216,347,91,348,71,368,224,347,91,368,224,346,267,347,91,346,267,345,110,326,303,320,173,331,149,326,303,331,149,346,267,346,267,331,149,340,129,346,267,340,129,345,110,400,132,396,152,398,61,400,132,398,61,403,96,400,132,403,96,402,114,389,174,379,200,383,32,389,174,383,32,398,61,389,174,398,61,396,152,266,-5,297,-8,275,16,275,16,297,-8,293,13,311,16,293,13,297,-8,311,16,297,-8,331,-3,267,174,236,153,241,98,267,174,241,98,250,119,267,174,250,119,265,138,267,174,265,138,288,156,267,174,288,156,309,195,239,5,238,75,236,153,239,5,236,153,219,23,219,23,236,153,215,131,219,23,215,131,205,47,205,47,215,131,204,106,205,47,204,106,201,77,238,75,241,98,236,153,326,24,331,-3,338,36,338,36,331,-3,360,10,338,36,360,10,345,52,345,52,360,10,348,71,510,335,510,406,497,302,497,302,510,406,494,435,497,
-302,494,435,474,271,474,271,494,435,470,457,474,271,470,457,451,342,451,342,470,457,447,375,437,469,435,401,447,375,437,469,447,375,470,457,395,473,363,471,364,436,474,271,451,342,448,315,474,271,448,315,444,242,444,242,448,315,439,291,444,242,439,291,423,269,423,269,400,247,405,216,423,269,405,216,444,242,266,-5,275,16,260,25,266,-5,260,25,248,38,266,-5,248,38,241,55,266,-5,241,55,239,5,238,75,239,5,241,55,510,406,510,335,515,368,311,16,331,-3,326,24,326,303,309,195,320,173,245,409,262,391,275,434,198,166,47,180,47,166,112,222,198,166,113,222,219,433,201,359,217,340,162,303,152,213,155,233,396,28,390,30,420,0,420,0,390,30,383,32,420,0,383,32,377,-4,377,-4,383,32,376,36,377,-4,376,36,367,42,383,135,386,135,395,163,395,163,386,135,387,135,395,163,387,135,388,135,388,135,410,133,395,163,395,163,410,133,413,174,395,163,369,153,377,134,395,163,377,134,383,135,336,205,347,221,350,262,350,262,347,221,358,232,350,262,358,232,369,274,369,274,358,232,370,240,369,274,370,240,389,282,389,282,370,240,382,244,389,282,382,244,396,245,396,245,409,244,413,284,413,284,409,244,420,240,413,284,420,240,437,282,437,282,420,240,428,233,437,282,428,233,433,223,334,243,319,218,336,205,334,243,336,205,350,262,449,61,442,48,457,12,457,12,442,48,432,37,457,12,432,37,420,0,420,0,432,37,419,31,420,0,419,31,403,28,403,28,396,28,420,0,437,282,435,212,440,114,437,282,440,114,458,273,458,273,440,114,447,169,458,273,447,169,464,179,413,284,389,282,396,245,485,245,474,261,476,190,485,245,476,190,483,202,485,245,483,202,487,214,485,245,487,214,488,226,474,261,458,273,464,179,474,261,464,179,476,190,447,167,447,169,440,114,447,167,440,114,448,97,447,167,448,97,469,159,433,198,426,185,427,125,433,198,427,125,440,114,433,198,440,114,435,212,413,174,410,133,427,125,413,174,427,125,426,185,502,59,508,91,505,111,502,59,505,111,498,129,502,59,498,129,486,146,502,59,486,146,484,33,449,61,457,12,451,77,451,77,457,12,469,159,469,159,457,12,484,33,469,159,484,33,486,146,451,77,469,
-159,448,97,360,47,353,51,356,-3,360,47,356,-3,377,-4,360,47,377,-4,367,42,356,-3,353,51,348,53,356,-3,348,53,344,55,356,-3,344,55,339,55,356,-3,339,55,338,2,331,55,324,52,325,10,331,55,325,10,338,2,331,55,338,2,339,55,318,48,315,42,316,21,318,48,316,21,325,10,318,48,325,10,324,52,384,473,66,-9,101,-9,384,473,101,-9,416,473,58,214,51,210,152,189,152,189,51,210,41,207,152,189,41,207,25,205,43,425,49,427,102,473,102,473,49,427,53,427,102,473,53,427,56,427,56,427,58,427,102,473,102,473,58,427,60,425,102,473,60,425,61,421,136,207,124,210,152,189,152,189,124,210,116,215,152,189,116,215,63,229,63,229,116,215,112,223,63,229,112,223,63,407,62,415,63,407,102,473,62,415,102,473,61,421,36,422,43,425,102,473,36,422,102,473,27,434,36,422,27,434,27,418,111,233,111,470,102,473,111,233,102,473,63,407,111,233,63,407,112,223,62,220,58,214,152,189,62,220,152,189,63,229,152,189,25,205,25,189,136,207,152,189,152,205,377,134,369,153,369,133,316,21,315,42,313,34,437,282,433,223,435,212,400,28,394,30,424,0,424,0,394,30,387,32,424,0,387,32,380,-4,380,-4,387,32,380,36,380,-4,380,36,372,42,387,135,390,135,399,163,399,163,390,135,392,135,399,163,392,135,393,135,393,135,414,133,399,163,399,163,414,133,418,174,399,163,373,153,382,134,399,163,382,134,387,135,340,205,351,221,354,262,354,262,351,221,362,232,354,262,362,232,373,274,373,274,362,232,374,240,373,274,374,240,393,282,393,282,374,240,386,244,393,282,386,244,401,245,401,245,414,244,417,284,417,284,414,244,425,240,417,284,425,240,442,282,442,282,425,240,433,233,442,282,433,233,438,223,338,243,323,218,340,205,338,243,340,205,354,262,453,61,446,48,460,12,460,12,446,48,436,37,460,12,436,37,424,0,424,0,436,37,423,31,424,0,423,31,407,28,407,28,400,28,424,0,442,282,440,212,444,114,442,282,444,114,462,273,462,273,444,114,451,169,462,273,451,169,468,179,417,284,393,282,401,245,489,245,479,261,480,190,489,245,480,190,488,202,489,245,488,202,492,214,489,245,492,214,493,
-226,479,261,462,273,468,179,479,261,468,179,480,190,451,167,451,169,444,114,451,167,444,114,452,97,451,167,452,97,473,159,438,198,430,185,431,125,438,198,431,125,444,114,438,198,444,114,440,212,418,174,414,133,431,125,418,174,431,125,430,185,506,59,512,91,509,111,506,59,509,111,502,129,506,59,502,129,490,146,506,59,490,146,488,33,453,61,460,12,455,77,455,77,460,12,473,159,473,159,460,12,488,33,473,159,488,33,490,146,455,77,473,159,452,97,364,47,358,51,360,-3,364,47,360,-3,380,-4,364,47,380,-4,372,42,360,-3,358,51,352,53,360,-3,352,53,348,55,360,-3,348,55,343,55,360,-3,343,55,342,2,335,55,328,52,329,10,335,55,329,10,342,2,335,55,342,2,343,55,322,48,319,42,320,21,322,48,320,21,329,10,322,48,329,10,328,52,414,473,97,-9,131,-9,414,473,131,-9,446,473,134,344,121,324,143,291,143,291,121,324,104,303,143,291,104,303,84,281,84,281,13,205,84,234,84,234,13,205,189,189,84,234,189,189,163,234,174,235,163,234,189,189,174,235,189,189,183,237,183,237,189,189,190,240,27,380,38,398,38,444,38,444,38,398,50,412,38,444,50,412,58,461,58,461,50,412,64,423,58,461,64,423,83,470,83,470,64,423,79,429,83,470,79,429,95,431,95,431,112,429,115,473,115,473,112,429,126,423,115,473,126,423,145,470,145,470,126,423,137,413,145,470,137,413,143,398,23,421,10,390,27,380,23,421,27,380,38,444,142,362,143,291,145,379,145,379,167,316,170,459,170,459,167,316,184,338,170,459,184,338,188,443,188,443,184,338,195,358,188,443,195,358,199,422,199,422,195,358,201,377,199,422,201,377,203,397,145,470,143,398,145,379,145,470,145,379,170,459,115,473,83,470,95,431,84,281,84,234,143,291,216,248,204,253,197,245,216,248,197,245,190,240,216,248,190,240,189,189,189,189,13,205,13,189,134,344,143,291,142,362,145,379,143,291,167,316,382,134,373,153,373,133,320,21,319,42,317,34,442,282,438,223,440,212,488,291,484,287,501,283,501,283,484,287,480,284,501,283,480,284,477,238,477,238,480,284,477,281,477,238,477,281,476,235,476,235,477,281,474,233,472,280,466,280,468,230,472,
-280,468,230,471,231,472,280,471,231,474,233,472,280,474,233,477,281,362,212,373,230,375,280,375,280,373,230,464,230,375,280,464,230,466,280,466,280,464,230,468,230,375,280,316,172,317,159,375,280,317,159,320,158,375,280,320,158,323,158,375,280,323,158,346,157,375,280,346,157,362,212,316,161,317,159,316,172,316,161,316,172,316,171,316,161,316,171,316,170,316,161,316,170,316,163,316,163,316,170,316,169,316,163,316,169,316,168,316,163,316,168,316,166,383,30,410,0,388,28,388,28,410,0,394,28,411,31,394,28,410,0,411,31,410,0,445,14,416,201,415,138,427,129,416,201,427,129,433,194,433,194,427,129,436,120,433,194,436,120,447,187,447,187,436,120,442,109,447,187,442,109,446,98,367,155,386,151,392,206,392,206,386,151,402,145,392,206,402,145,416,201,416,201,402,145,415,138,362,212,346,157,367,155,362,212,367,155,392,206,487,66,493,102,492,123,487,66,492,123,487,140,487,66,487,140,480,154,487,66,480,154,471,36,480,154,471,166,471,36,471,36,471,166,459,178,471,36,459,178,448,85,448,85,445,14,471,36,445,14,448,85,445,65,445,14,445,65,437,50,445,14,437,50,426,38,445,14,426,38,411,31,447,187,446,98,448,85,447,187,448,85,459,178,383,30,377,32,410,0,410,0,377,32,370,35,410,0,370,35,366,-4,366,-4,370,35,363,40,366,-4,363,40,354,46,347,50,341,53,343,-2,347,50,343,-2,366,-4,347,50,366,-4,354,46,341,53,335,54,343,-2,343,-2,335,54,328,54,343,-2,328,54,326,2,326,2,328,54,320,53,326,2,320,53,315,11,315,11,320,53,314,50,315,11,314,50,310,45,308,21,315,11,310,45,308,21,310,45,307,39,308,21,307,39,306,31,384,473,67,-9,102,-9,384,473,102,-9,416,473,59,214,52,210,152,189,152,189,52,210,41,207,152,189,41,207,26,205,44,425,49,427,102,473,102,473,49,427,54,427,102,473,54,427,57,427,57,427,59,427,102,473,102,473,59,427,61,425,102,473,61,425,62,421,136,207,125,210,152,189,152,189,125,210,117,215,152,189,117,215,63,229,63,229,117,215,113,223,63,229,113,223,63,407,63,415,63,407,102,473,63,415,102,473,62,421,37,422,44,
-425,102,473,37,422,102,473,27,434,37,422,27,434,27,418,112,233,112,470,102,473,112,233,102,473,63,407,112,233,63,407,113,223,62,220,59,214,152,189,62,220,152,189,63,229,152,189,26,205,26,189,136,207,152,189,152,205,491,291,487,287,504,283,504,283,487,287,484,284,504,283,484,284,481,238,481,238,484,284,480,281,481,238,480,281,480,235,480,235,480,281,478,233,475,280,469,280,472,230,475,280,472,230,475,231,475,280,475,231,478,233,475,280,478,233,480,281,366,212,376,230,379,280,379,280,376,230,468,230,379,280,468,230,469,280,469,280,468,230,472,230,379,280,320,172,320,163,379,280,320,163,320,161,379,280,320,161,321,159,379,280,321,159,323,158,379,280,323,158,327,158,379,280,327,158,350,157,379,280,350,157,366,212,320,163,320,172,320,171,320,163,320,171,320,170,320,163,320,170,320,169,320,163,320,169,320,168,320,163,320,168,320,166,386,30,413,0,392,28,392,28,413,0,398,28,415,31,398,28,413,0,415,31,413,0,449,14,419,201,419,138,430,129,419,201,430,129,437,194,437,194,430,129,439,119,437,194,439,119,450,187,450,187,439,119,446,109,450,187,446,109,449,98,371,155,389,151,396,206,396,206,389,151,405,145,396,206,405,145,419,201,419,201,405,145,419,138,366,212,350,157,371,155,366,212,371,155,396,206,491,66,496,102,495,123,491,66,495,123,491,140,491,66,491,140,484,154,491,66,484,154,474,36,484,154,474,166,474,36,474,36,474,166,462,178,474,36,462,178,451,85,451,85,449,14,474,36,449,14,451,85,448,65,449,14,448,65,441,50,449,14,441,50,429,38,449,14,429,38,415,31,450,187,449,98,451,85,450,187,451,85,462,178,386,30,380,32,413,0,413,0,380,32,374,35,413,0,374,35,370,-4,370,-4,374,35,367,40,370,-4,367,40,358,46,350,50,344,53,346,-2,350,50,346,-2,370,-4,350,50,370,-4,358,46,344,53,338,54,346,-2,346,-2,338,54,332,54,346,-2,332,54,329,2,329,2,332,54,324,53,329,2,324,53,318,50,329,2,318,50,318,11,318,11,318,50,313,45,318,11,313,45,311,21,311,21,313,45,310,39,311,21,310,39,309,31,414,473,97,-9,131,-9,414,473,131,-9,446,
-473,129,346,119,326,143,291,143,291,119,326,103,304,143,291,103,304,84,281,84,281,13,205,84,234,84,234,13,205,189,189,84,234,189,189,163,234,174,235,163,234,189,189,174,235,189,189,183,237,183,237,189,189,190,240,27,380,37,398,38,444,38,444,37,398,48,412,38,444,48,412,58,461,58,461,48,412,61,423,58,461,61,423,83,470,83,470,61,423,74,429,83,470,74,429,89,431,89,431,105,428,115,473,115,473,105,428,119,421,115,473,119,421,145,470,145,470,119,421,129,409,145,470,129,409,136,395,23,421,10,390,27,380,23,421,27,380,38,444,136,364,143,291,138,378,138,378,143,291,145,470,145,470,143,291,167,316,145,470,167,316,170,459,170,459,167,316,184,338,170,459,184,338,188,443,188,443,184,338,195,358,188,443,195,358,199,422,199,422,195,358,201,377,199,422,201,377,203,397,145,470,136,395,138,378,115,473,83,470,89,431,84,281,84,234,143,291,216,248,204,253,197,245,216,248,197,245,190,240,216,248,190,240,189,189,189,189,13,205,13,189,129,346,143,291,136,364,491,291,487,287,504,283,504,283,487,287,484,284,504,283,484,284,481,238,481,238,484,284,480,281,481,238,480,281,480,235,480,235,480,281,478,233,475,280,469,280,472,230,475,280,472,230,475,231,475,280,475,231,478,233,475,280,478,233,480,281,366,212,376,230,379,280,379,280,376,230,468,230,379,280,468,230,469,280,469,280,468,230,472,230,379,280,320,172,320,163,379,280,320,163,320,161,379,280,320,161,321,159,379,280,321,159,323,158,379,280,323,158,327,158,379,280,327,158,350,157,379,280,350,157,366,212,320,163,320,172,320,171,320,163,320,171,320,170,320,163,320,170,320,169,320,163,320,169,320,168,320,163,320,168,320,166,386,30,413,0,392,28,392,28,413,0,398,28,415,31,398,28,413,0,415,31,413,0,449,14,419,201,419,138,430,129,419,201,430,129,437,194,437,194,430,129,439,119,437,194,439,119,450,187,450,187,439,119,446,109,450,187,446,109,449,98,371,155,389,151,396,206,396,206,389,151,405,145,396,206,405,145,419,201,419,201,405,145,419,138,366,212,350,157,371,155,366,212,371,155,396,206,491,66,496,102,495,123,491,66,495,123,491,140,491,
-66,491,140,484,154,491,66,484,154,474,36,484,154,474,166,474,36,474,36,474,166,462,178,474,36,462,178,451,85,451,85,449,14,474,36,449,14,451,85,448,65,449,14,448,65,441,50,449,14,441,50,429,38,449,14,429,38,415,31,450,187,449,98,451,85,450,187,451,85,462,178,386,30,380,32,413,0,413,0,380,32,374,35,413,0,374,35,370,-4,370,-4,374,35,367,40,370,-4,367,40,358,46,350,50,344,53,346,-2,350,50,346,-2,370,-4,350,50,370,-4,358,46,344,53,338,54,346,-2,346,-2,338,54,332,54,346,-2,332,54,329,2,329,2,332,54,324,53,329,2,324,53,318,50,329,2,318,50,318,11,318,11,318,50,313,45,318,11,313,45,311,21,311,21,313,45,310,39,311,21,310,39,309,31,414,473,97,-9,131,-9,414,473,131,-9,446,473,92,218,86,219,116,188,116,188,86,219,79,221,116,188,79,221,73,184,73,184,79,221,72,225,73,184,72,225,64,231,79,324,82,324,91,352,91,352,82,324,84,324,84,324,106,322,91,352,91,352,106,322,109,363,91,352,65,342,73,323,91,352,73,323,79,324,32,394,43,410,47,451,47,451,43,410,54,421,47,451,54,421,65,464,65,464,54,421,66,429,65,464,66,429,85,471,85,471,66,429,78,433,85,471,78,433,92,434,92,434,106,433,109,473,109,473,106,433,117,429,109,473,117,429,133,470,133,470,117,429,125,422,133,470,125,422,130,412,30,432,15,407,32,394,30,432,32,394,47,451,145,250,138,237,153,201,153,201,138,237,128,226,153,201,128,226,116,188,116,188,128,226,115,220,116,188,115,220,99,217,99,217,92,218,116,188,133,470,131,401,136,303,133,470,136,303,154,462,154,462,136,303,143,358,154,462,143,358,160,368,109,473,85,471,92,434,181,434,171,450,172,379,181,434,172,379,180,391,181,434,180,391,184,403,181,434,184,403,185,415,171,450,154,462,160,368,171,450,160,368,172,379,143,356,143,358,136,303,143,356,136,303,144,287,143,356,144,287,166,348,129,387,122,374,123,314,129,387,123,314,136,303,129,387,136,303,131,401,109,363,106,322,123,314,109,363,123,314,122,374,198,248,204,280,202,300,198,248,202,300,195,318,198,248,195,318,183,335,198,248,183,
-335,180,222,145,250,153,201,147,266,147,266,153,201,166,348,166,348,153,201,180,222,166,348,180,222,183,335,147,266,166,348,144,287,56,236,50,240,52,185,56,236,52,185,73,184,56,236,73,184,64,231,52,185,50,240,45,242,52,185,45,242,40,244,52,185,40,244,35,245,52,185,35,245,35,191,27,244,20,241,21,199,27,244,21,199,35,191,27,244,35,191,35,245,14,237,11,231,12,210,14,237,12,210,21,199,14,237,21,199,20,241,73,323,65,342,65,322,12,210,11,231,9,223,133,470,130,412,131,401,491,291,487,287,504,283,504,283,487,287,484,284,504,283,484,284,481,238,481,238,484,284,480,281,481,238,480,281,480,235,480,235,480,281,478,233,475,280,469,280,472,230,475,280,472,230,475,231,475,280,475,231,478,233,475,280,478,233,480,281,366,212,376,230,379,280,379,280,376,230,468,230,379,280,468,230,469,280,469,280,468,230,472,230,379,280,320,172,320,163,379,280,320,163,320,161,379,280,320,161,321,159,379,280,321,159,323,158,379,280,323,158,327,158,379,280,327,158,350,157,379,280,350,157,366,212,320,163,320,172,320,171,320,163,320,171,320,170,320,163,320,170,320,169,320,163,320,169,320,168,320,163,320,168,320,166,386,30,413,0,392,28,392,28,413,0,398,28,415,31,398,28,413,0,415,31,413,0,449,14,419,201,419,138,430,129,419,201,430,129,437,194,437,194,430,129,439,119,437,194,439,119,450,187,450,187,439,119,446,109,450,187,446,109,449,98,371,155,389,151,396,206,396,206,389,151,405,145,396,206,405,145,419,201,419,201,405,145,419,138,366,212,350,157,371,155,366,212,371,155,396,206,491,66,496,102,495,123,491,66,495,123,491,140,491,66,491,140,484,154,491,66,484,154,474,36,484,154,474,166,474,36,474,36,474,166,462,178,474,36,462,178,451,85,451,85,449,14,474,36,449,14,451,85,448,65,449,14,448,65,441,50,449,14,441,50,429,38,449,14,429,38,415,31,450,187,449,98,451,85,450,187,451,85,462,178,386,30,380,32,413,0,413,0,380,32,374,35,413,0,374,35,370,-4,370,-4,374,35,367,40,370,-4,367,40,358,46,350,50,344,53,346,-2,350,50,346,-2,370,-4,350,50,370,-4,358,
-46,344,53,338,54,346,-2,346,-2,338,54,332,54,346,-2,332,54,329,2,329,2,332,54,324,53,329,2,324,53,318,50,329,2,318,50,318,11,318,11,318,50,313,45,318,11,313,45,311,21,311,21,313,45,310,39,311,21,310,39,309,31,414,473,97,-9,131,-9,414,473,131,-9,446,473,10,252,136,252,10,287,10,287,136,252,41,293,10,287,41,293,152,473,152,473,41,293,136,418,152,473,136,418,185,190,185,190,136,418,136,293,185,190,136,293,136,252,136,252,136,293,41,293,152,473,185,190,185,473,185,293,185,252,223,252,185,293,223,252,223,293,185,190,136,252,136,190,459,267,494,274,494,274,459,267,494,274,491,291,459,267,491,291,431,283,459,267,431,283,424,255,357,173,369,209,376,260,376,260,369,209,393,236,376,260,393,236,431,283,431,283,393,236,424,255,357,173,376,260,333,223,357,173,333,223,351,114,357,173,351,114,353,129,357,173,353,129,359,142,357,173,359,142,366,177,333,223,304,173,310,41,333,223,310,41,332,14,333,223,332,14,361,-3,333,223,361,-3,353,87,333,223,353,87,351,114,409,188,398,187,412,156,412,156,398,187,393,161,380,159,393,161,386,184,380,159,386,184,376,181,368,152,380,159,376,181,368,152,376,181,366,177,368,152,366,177,359,142,398,187,386,184,393,161,439,44,430,33,432,-4,432,-4,430,33,417,25,432,-4,417,25,402,22,402,22,383,27,399,-9,399,-9,383,27,369,42,399,-9,369,42,361,-3,361,-3,369,42,359,62,361,-3,359,62,353,87,304,173,293,112,297,75,304,173,297,75,310,41,502,91,498,123,496,58,496,58,498,123,486,150,496,58,486,150,482,30,482,30,486,150,467,170,482,30,467,170,460,8,460,8,467,170,446,77,444,99,446,77,467,170,444,99,467,170,441,183,444,99,441,183,437,122,441,183,409,188,412,156,441,183,412,156,427,142,441,183,427,142,437,122,460,8,446,77,444,59,460,8,444,59,439,44,460,8,439,44,432,-4,402,22,399,-9,432,-4,384,473,67,-9,102,-9,384,473,102,-9,416,473,59,214,52,210,152,189,152,189,52,210,41,207,152,189,41,207,26,205,44,425,49,427,102,473,102,473,49,427,54,427,102,473,54,427,57,427,57,427,59,427,102,473,102,
-473,59,427,61,425,102,473,61,425,62,421,136,207,125,210,152,189,152,189,125,210,117,215,152,189,117,215,63,229,63,229,117,215,113,223,63,229,113,223,63,407,63,415,63,407,102,473,63,415,102,473,62,421,37,422,44,425,102,473,37,422,102,473,27,434,37,422,27,434,27,418,112,233,112,470,102,473,112,233,102,473,63,407,112,233,63,407,113,223,62,220,59,214,152,189,62,220,152,189,63,229,152,189,26,205,26,189,136,207,152,189,152,205,462,266,497,273,497,273,462,266,497,273,495,291,462,266,495,291,434,282,462,266,434,282,427,254,360,171,373,208,380,259,380,259,373,208,396,235,380,259,396,235,434,282,434,282,396,235,427,254,360,171,380,259,336,221,360,171,336,221,354,110,360,171,354,110,356,125,360,171,356,125,362,139,360,171,362,139,369,175,336,221,307,172,314,40,336,221,314,40,335,14,336,221,335,14,365,-3,336,221,365,-3,356,83,336,221,356,83,354,110,413,187,402,186,415,155,415,155,402,186,396,160,383,157,396,160,390,183,383,157,390,183,379,180,371,150,383,157,379,180,371,150,379,180,369,175,371,150,369,175,362,139,402,186,390,183,396,160,442,44,433,32,435,-4,435,-4,433,32,421,24,435,-4,421,24,406,21,406,21,387,26,402,-9,402,-9,387,26,372,39,402,-9,372,39,365,-3,365,-3,372,39,362,59,365,-3,362,59,356,83,307,172,297,111,301,73,307,172,301,73,314,40,505,90,501,122,500,57,500,57,501,122,490,149,500,57,490,149,486,29,486,29,490,149,471,169,486,29,471,169,464,8,464,8,471,169,449,76,447,99,449,76,471,169,447,99,471,169,445,182,447,99,445,182,441,121,445,182,413,187,415,155,445,182,415,155,430,141,445,182,430,141,441,121,464,8,449,76,447,59,464,8,447,59,442,44,464,8,442,44,435,-4,406,21,402,-9,435,-4,414,473,97,-9,131,-9,414,473,131,-9,446,473,202,473,198,469,215,465,215,465,198,469,195,466,215,465,195,466,192,420,192,420,195,466,191,463,192,420,191,463,191,417,191,417,191,463,188,415,186,462,180,462,182,412,186,462,182,412,186,413,186,462,186,413,188,415,186,462,188,415,191,463,77,394,87,412,90,462,90,462,87,412,178,412,90,462,178,
-412,180,462,180,462,178,412,182,412,90,462,30,353,31,345,90,462,31,345,31,343,90,462,31,343,32,341,90,462,32,341,34,340,90,462,34,340,37,340,90,462,37,340,61,339,90,462,61,339,77,394,31,345,30,353,30,352,31,345,30,352,30,351,31,345,30,351,30,350,31,345,30,350,30,348,97,212,124,181,103,210,103,210,124,181,109,210,126,213,109,210,124,181,126,213,124,181,159,196,130,383,130,320,141,311,130,383,141,311,147,376,147,376,141,311,150,301,147,376,150,301,161,369,161,369,150,301,157,291,161,369,157,291,160,280,82,337,100,333,107,388,107,388,100,333,116,327,107,388,116,327,130,383,130,383,116,327,130,320,77,394,61,339,82,337,77,394,82,337,107,388,202,248,207,284,206,305,202,248,206,305,201,322,202,248,201,322,195,336,202,248,195,336,185,218,195,336,185,348,185,218,185,218,185,348,173,360,185,218,173,360,162,267,162,267,159,196,185,218,159,196,162,267,159,247,159,196,159,247,152,232,159,196,152,232,140,220,159,196,140,220,126,213,161,369,160,280,162,267,161,369,162,267,173,360,97,212,91,214,124,181,124,181,91,214,85,217,124,181,85,217,80,177,80,177,85,217,77,222,80,177,77,222,68,228,61,232,55,235,57,179,61,232,57,179,80,177,61,232,80,177,68,228,55,235,49,236,57,179,57,179,49,236,43,236,57,179,43,236,40,184,40,184,43,236,35,235,40,184,35,235,29,232,40,184,29,232,29,193,29,193,29,232,24,227,29,193,24,227,22,203,22,203,24,227,21,221,22,203,21,221,20,213,385,39,375,47,378,-2,378,-2,375,47,368,59,378,-2,368,59,353,5,353,5,368,59,366,75,397,127,419,113,412,167,397,127,412,167,394,177,397,127,394,177,385,117,385,117,394,177,380,186,385,117,380,186,376,107,376,107,380,186,373,140,373,140,349,123,353,5,373,140,353,5,367,86,373,140,367,86,370,97,373,140,370,97,376,107,333,18,353,5,349,123,333,18,349,123,333,107,333,18,333,107,323,92,333,18,323,92,321,36,318,76,316,59,321,36,318,76,321,36,323,92,373,140,380,186,372,195,373,140,372,195,367,205,373,140,367,205,366,216,373,140,366,216,357,272,373,140,357,272,350,
-157,337,258,324,238,326,185,337,258,326,185,335,172,337,258,335,172,350,157,337,258,350,157,357,272,324,238,320,215,321,199,324,238,321,199,326,185,438,155,444,191,437,155,437,155,444,191,436,182,437,155,436,182,432,104,432,104,436,182,425,175,432,104,425,175,419,113,419,113,425,175,413,167,419,113,413,167,412,167,412,167,413,167,394,177,440,281,413,284,419,245,419,245,413,284,405,247,392,246,405,247,413,284,392,246,413,284,383,281,449,200,459,167,451,211,451,211,459,167,462,273,462,273,459,167,475,179,462,273,475,179,480,260,480,260,475,179,486,192,480,260,486,192,491,244,491,244,486,192,493,207,491,244,493,207,495,225,419,245,431,241,440,281,440,281,431,241,441,233,440,281,441,233,462,273,462,273,441,233,448,223,462,273,448,223,451,211,444,191,438,155,459,167,444,191,459,167,449,200,505,69,503,88,501,43,501,43,503,88,496,105,501,43,496,105,488,23,488,23,496,105,484,121,488,23,484,121,468,7,468,7,484,121,464,138,468,7,464,138,458,64,458,64,456,53,468,7,468,7,456,53,450,44,468,7,450,44,441,-1,441,-1,450,44,441,37,441,-1,441,37,429,33,464,138,437,155,443,94,464,138,443,94,451,84,464,138,451,84,456,74,464,138,456,74,458,64,441,-1,429,33,415,32,415,32,399,34,409,-4,409,-4,399,34,385,39,409,-4,385,39,378,-2,415,32,409,-4,441,-1,383,281,357,272,367,227,383,281,367,227,372,236,383,281,372,236,381,242,383,281,381,242,392,246,366,216,367,227,357,272,384,473,67,-9,102,-9,384,473,102,-9,416,473,59,214,52,210,152,189,152,189,52,210,41,207,152,189,41,207,26,205,44,425,49,427,102,473,102,473,49,427,54,427,102,473,54,427,57,427,57,427,59,427,102,473,102,473,59,427,61,425,102,473,61,425,62,421,136,207,125,210,152,189,152,189,125,210,117,215,152,189,117,215,63,229,63,229,117,215,113,223,63,229,113,223,63,407,63,415,63,407,102,473,63,415,102,473,62,421,37,422,44,425,102,473,37,422,102,473,27,434,37,422,27,434,27,418,112,233,112,470,102,473,112,233,102,473,63,407,112,233,63,407,113,223,62,220,59,214,152,189,62,220,152,189,63,229,152,
-189,26,205,26,189,136,207,152,189,152,205,437,155,432,104,443,94,367,86,353,5,366,75,388,39,378,47,382,-2,382,-2,378,47,371,59,382,-2,371,59,356,5,356,5,371,59,369,75,401,127,422,113,416,167,401,127,416,167,397,177,401,127,397,177,388,117,388,117,397,177,384,186,388,117,384,186,379,107,379,107,384,186,376,140,376,140,353,123,356,5,376,140,356,5,370,86,376,140,370,86,373,97,376,140,373,97,379,107,337,18,356,5,353,123,337,18,353,123,336,107,337,18,336,107,326,92,337,18,326,92,324,36,321,76,320,59,324,36,321,76,324,36,326,92,376,140,384,186,375,195,376,140,375,195,370,205,376,140,370,205,369,216,376,140,369,216,360,272,376,140,360,272,354,157,340,258,328,238,329,185,340,258,329,185,339,172,340,258,339,172,354,157,340,258,354,157,360,272,328,238,323,215,325,199,328,238,325,199,329,185,441,155,448,191,440,182,441,155,440,182,436,104,436,104,440,182,429,175,436,104,429,175,422,113,422,113,429,175,416,167,443,281,416,284,422,245,422,245,416,284,409,247,395,246,409,247,416,284,395,246,416,284,386,281,453,200,462,167,455,211,455,211,462,167,466,273,466,273,462,167,479,179,466,273,479,179,483,260,483,260,479,179,490,192,483,260,490,192,494,244,494,244,490,192,496,207,494,244,496,207,498,225,422,245,435,241,443,281,443,281,435,241,445,233,443,281,445,233,466,273,466,273,445,233,452,223,466,273,452,223,455,211,448,191,441,155,462,167,448,191,462,167,453,200,509,69,507,88,504,43,504,43,507,88,500,105,504,43,500,105,491,23,491,23,500,105,487,121,491,23,487,121,471,7,471,7,487,121,468,138,471,7,468,138,461,64,461,64,459,53,471,7,471,7,459,53,453,44,471,7,453,44,445,-1,445,-1,453,44,444,37,445,-1,444,37,432,33,468,138,441,155,446,94,468,138,446,94,454,84,468,138,454,84,459,74,468,138,459,74,461,64,445,-1,432,33,419,32,419,32,402,34,412,-4,412,-4,402,34,388,39,412,-4,388,39,382,-2,419,32,412,-4,445,-1,386,281,360,272,371,227,386,281,371,227,376,236,386,281,376,236,384,242,386,281,384,242,395,246,369,216,371,227,360,272,414,473,97,
--9,131,-9,414,473,131,-9,446,473,92,218,86,219,116,188,116,188,86,219,79,221,116,188,79,221,73,184,73,184,79,221,72,225,73,184,72,225,64,231,79,324,82,324,91,352,91,352,82,324,84,324,84,324,106,322,91,352,91,352,106,322,109,363,91,352,65,342,73,323,91,352,73,323,79,324,32,394,43,410,47,451,47,451,43,410,54,421,47,451,54,421,65,464,65,464,54,421,66,429,65,464,66,429,85,471,85,471,66,429,78,433,85,471,78,433,92,434,92,434,106,433,109,473,109,473,106,433,117,429,109,473,117,429,133,470,133,470,117,429,125,422,133,470,125,422,130,412,30,432,15,407,32,394,30,432,32,394,47,451,145,250,138,237,153,201,153,201,138,237,128,226,153,201,128,226,116,188,116,188,128,226,115,220,116,188,115,220,99,217,99,217,92,218,116,188,133,470,131,401,136,303,133,470,136,303,154,462,154,462,136,303,143,358,154,462,143,358,160,368,109,473,85,471,92,434,181,434,171,450,172,379,181,434,172,379,180,391,181,434,180,391,184,403,181,434,184,403,185,415,171,450,154,462,160,368,171,450,160,368,172,379,143,356,143,358,136,303,143,356,136,303,144,287,143,356,144,287,166,348,129,387,122,374,123,314,129,387,123,314,136,303,129,387,136,303,131,401,109,363,106,322,123,314,109,363,123,314,122,374,198,248,204,280,202,300,198,248,202,300,195,318,198,248,195,318,183,335,198,248,183,335,180,222,145,250,153,201,147,266,147,266,153,201,166,348,166,348,153,201,180,222,166,348,180,222,183,335,147,266,166,348,144,287,56,236,50,240,52,185,56,236,52,185,73,184,56,236,73,184,64,231,52,185,50,240,45,242,52,185,45,242,40,244,52,185,40,244,35,245,52,185,35,245,35,191,27,244,20,241,21,199,27,244,21,199,35,191,27,244,35,191,35,245,14,237,11,231,12,210,14,237,12,210,21,199,14,237,21,199,20,241,73,323,65,342,65,322,12,210,11,231,9,223,133,470,130,412,131,401,441,155,436,104,446,94,370,86,356,5,369,75,388,39,378,47,382,-2,382,-2,378,47,371,59,382,-2,371,59,356,5,356,5,371,59,369,75,401,127,422,113,416,167,401,127,416,167,397,177,401,127,397,177,388,
-117,388,117,397,177,384,186,388,117,384,186,379,107,379,107,384,186,376,140,376,140,353,123,356,5,376,140,356,5,370,86,376,140,370,86,373,97,376,140,373,97,379,107,337,18,356,5,353,123,337,18,353,123,336,107,337,18,336,107,326,92,337,18,326,92,324,36,321,76,320,59,324,36,321,76,324,36,326,92,376,140,384,186,375,195,376,140,375,195,370,205,376,140,370,205,369,216,376,140,369,216,360,272,376,140,360,272,354,157,340,258,328,238,329,185,340,258,329,185,339,172,340,258,339,172,354,157,340,258,354,157,360,272,328,238,323,215,325,199,328,238,325,199,329,185,441,155,448,191,440,182,441,155,440,182,436,104,436,104,440,182,429,175,436,104,429,175,422,113,422,113,429,175,416,167,443,281,416,284,422,245,422,245,416,284,409,247,395,246,409,247,416,284,395,246,416,284,386,281,453,200,462,167,455,211,455,211,462,167,466,273,466,273,462,167,479,179,466,273,479,179,483,260,483,260,479,179,490,192,483,260,490,192,494,244,494,244,490,192,496,207,494,244,496,207,498,225,422,245,435,241,443,281,443,281,435,241,445,233,443,281,445,233,466,273,466,273,445,233,452,223,466,273,452,223,455,211,448,191,441,155,462,167,448,191,462,167,453,200,509,69,507,88,504,43,504,43,507,88,500,105,504,43,500,105,491,23,491,23,500,105,487,121,491,23,487,121,471,7,471,7,487,121,468,138,471,7,468,138,461,64,461,64,459,53,471,7,471,7,459,53,453,44,471,7,453,44,445,-1,445,-1,453,44,444,37,445,-1,444,37,432,33,468,138,441,155,446,94,468,138,446,94,454,84,468,138,454,84,459,74,468,138,459,74,461,64,445,-1,432,33,419,32,419,32,402,34,412,-4,412,-4,402,34,388,39,412,-4,388,39,382,-2,419,32,412,-4,445,-1,386,281,360,272,371,227,386,281,371,227,376,236,386,281,376,236,384,242,386,281,384,242,395,246,369,216,371,227,360,272,414,473,97,-9,131,-9,414,473,131,-9,446,473,202,473,198,469,215,465,215,465,198,469,195,466,215,465,195,466,192,420,192,420,195,466,191,463,192,420,191,463,191,417,191,417,191,463,188,415,186,462,180,462,182,412,186,462,182,412,186,413,186,462,186,413,188,415,186,
-462,188,415,191,463,77,394,87,412,90,462,90,462,87,412,178,412,90,462,178,412,180,462,180,462,178,412,182,412,90,462,30,353,31,345,90,462,31,345,31,343,90,462,31,343,32,341,90,462,32,341,34,340,90,462,34,340,37,340,90,462,37,340,61,339,90,462,61,339,77,394,31,345,30,353,30,352,31,345,30,352,30,351,31,345,30,351,30,350,31,345,30,350,30,348,97,212,124,181,103,210,103,210,124,181,109,210,126,213,109,210,124,181,126,213,124,181,159,196,130,383,130,320,141,311,130,383,141,311,147,376,147,376,141,311,150,301,147,376,150,301,161,369,161,369,150,301,157,291,161,369,157,291,160,280,82,337,100,333,107,388,107,388,100,333,116,327,107,388,116,327,130,383,130,383,116,327,130,320,77,394,61,339,82,337,77,394,82,337,107,388,202,248,207,284,206,305,202,248,206,305,201,322,202,248,201,322,195,336,202,248,195,336,185,218,195,336,185,348,185,218,185,218,185,348,173,360,185,218,173,360,162,267,162,267,159,196,185,218,159,196,162,267,159,247,159,196,159,247,152,232,159,196,152,232,140,220,159,196,140,220,126,213,161,369,160,280,162,267,161,369,162,267,173,360,97,212,91,214,124,181,124,181,91,214,85,217,124,181,85,217,80,177,80,177,85,217,77,222,80,177,77,222,68,228,61,232,55,235,57,179,61,232,57,179,80,177,61,232,80,177,68,228,55,235,49,236,57,179,57,179,49,236,43,236,57,179,43,236,40,184,40,184,43,236,35,235,40,184,35,235,29,232,40,184,29,232,29,193,29,193,29,232,24,227,29,193,24,227,22,203,22,203,24,227,21,221,22,203,21,221,20,213,441,155,436,104,446,94,370,86,356,5,369,75,388,39,378,47,382,-2,382,-2,378,47,371,59,382,-2,371,59,356,5,356,5,371,59,369,75,401,127,422,113,416,167,401,127,416,167,397,177,401,127,397,177,388,117,388,117,397,177,384,186,388,117,384,186,379,107,379,107,384,186,376,140,376,140,353,123,356,5,376,140,356,5,370,86,376,140,370,86,373,97,376,140,373,97,379,107,337,18,356,5,353,123,337,18,353,123,336,107,337,18,336,107,326,92,337,18,326,92,324,36,321,76,320,59,324,36,321,76,324,
-36,326,92,376,140,384,186,375,195,376,140,375,195,370,205,376,140,370,205,369,216,376,140,369,216,360,272,376,140,360,272,354,157,340,258,328,238,329,185,340,258,329,185,339,172,340,258,339,172,354,157,340,258,354,157,360,272,328,238,323,215,325,199,328,238,325,199,329,185,441,155,448,191,440,182,441,155,440,182,436,104,436,104,440,182,429,175,436,104,429,175,422,113,422,113,429,175,416,167,443,281,416,284,422,245,422,245,416,284,409,247,395,246,409,247,416,284,395,246,416,284,386,281,453,200,462,167,455,211,455,211,462,167,466,273,466,273,462,167,479,179,466,273,479,179,483,260,483,260,479,179,490,192,483,260,490,192,494,244,494,244,490,192,496,207,494,244,496,207,498,225,422,245,435,241,443,281,443,281,435,241,445,233,443,281,445,233,466,273,466,273,445,233,452,223,466,273,452,223,455,211,448,191,441,155,462,167,448,191,462,167,453,200,509,69,507,88,504,43,504,43,507,88,500,105,504,43,500,105,491,23,491,23,500,105,487,121,491,23,487,121,471,7,471,7,487,121,468,138,471,7,468,138,461,64,461,64,459,53,471,7,471,7,459,53,453,44,471,7,453,44,445,-1,445,-1,453,44,444,37,445,-1,444,37,432,33,468,138,441,155,446,94,468,138,446,94,454,84,468,138,454,84,459,74,468,138,459,74,461,64,445,-1,432,33,419,32,419,32,402,34,412,-4,412,-4,402,34,388,39,412,-4,388,39,382,-2,419,32,412,-4,445,-1,386,281,360,272,371,227,386,281,371,227,376,236,386,281,376,236,384,242,386,281,384,242,395,246,369,216,371,227,360,272,388,473,70,-9,105,-9,388,473,105,-9,420,473,124,178,225,449,174,416,174,416,225,449,225,462,174,416,225,462,86,416,72,416,86,416,225,462,72,416,225,462,62,414,62,414,225,462,51,462,62,414,51,462,54,409,54,409,51,462,46,402,51,462,20,398,37,391,51,462,37,391,46,402,124,178,174,416,84,178,441,155,436,104,446,94,370,86,356,5,369,75,170,203,166,206,167,147,167,147,166,206,164,210,167,147,164,210,164,143,164,143,164,210,163,214,163,138,157,252,157,102,157,102,157,252,124,225,157,102,124,225,124,130,124,130,124,225,89,200,124,130,89,200,89,
-154,89,154,89,200,50,180,89,154,50,180,50,173,216,314,188,283,197,260,216,314,197,260,209,274,216,314,209,274,220,287,216,314,220,287,230,301,188,283,157,252,165,222,188,283,165,222,167,226,188,283,167,226,169,230,188,283,169,230,173,234,188,283,173,234,185,247,188,283,185,247,197,260,164,218,165,222,157,252,164,218,157,252,163,214,196,96,184,109,187,72,187,72,184,109,172,121,187,72,172,121,168,125,181,200,175,201,176,153,181,200,176,153,180,154,181,200,180,154,600,154,181,200,600,154,600,200,171,150,176,153,175,201,171,150,175,201,170,203,171,150,170,203,167,147,216,41,230,54,220,68,216,41,220,68,208,82,216,41,208,82,196,96,216,41,196,96,187,72,163,135,163,138,157,102,163,135,157,102,164,132,164,132,157,102,187,72,164,132,187,72,166,128,166,128,187,72,168,125,164,143,163,214,163,138,163,214,157,252,163,138,127,344,130,347,131,389,131,389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,346,155,425,148,346,152,342,155,337,155,333,155,425,155,425,155,333,175,463,175,463,155,333,202,-108,175,463,202,-108,182,463,182,463,202,-108,202,332,182,463,202,332,202,425,202,425,202,332,202,339,202,425,202,339,204,344,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,326,83,305,103,356,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,155,333,155,-108,202,-108,202,425,204,344,226,389,155,425,152,342,155,337,485,136,492,101,486,140,486,140,492,101,487,216,487,216,492,101,492,252,492,252,492,101,525,129,492,252,525,129,525,224,525,224,525,129,561,154,525,
-224,561,154,561,200,561,200,561,154,599,173,561,200,599,173,599,180,492,252,462,282,464,245,492,252,464,245,477,233,492,252,477,233,480,229,492,252,480,229,483,226,492,252,483,226,485,222,492,252,485,222,486,219,492,252,486,219,487,216,420,300,429,286,434,313,434,313,429,286,440,272,434,313,440,272,462,282,462,282,440,272,452,258,462,282,452,258,464,245,49,200,468,154,468,200,473,201,468,200,475,153,473,201,475,153,478,203,478,203,475,153,480,151,478,203,480,151,482,207,482,207,480,151,483,148,482,207,483,148,485,211,485,211,483,148,485,144,485,211,485,144,486,140,451,94,461,71,463,107,463,107,461,71,492,101,463,107,492,101,476,120,476,120,492,101,479,124,492,101,485,136,484,132,492,101,484,132,482,128,492,101,482,128,479,124,439,81,429,67,433,40,439,81,433,40,461,71,439,81,461,71,451,94,487,216,485,211,486,140,468,154,49,200,49,154,468,200,468,154,475,153,433,40,429,67,419,53,153,11,150,7,156,-70,156,-70,150,7,146,5,156,-70,146,5,142,4,142,4,139,4,156,-70,156,-70,139,4,135,6,156,-70,135,6,132,-34,132,-34,135,6,131,8,132,-34,131,8,127,11,209,8,206,12,227,-34,227,-34,206,12,203,17,227,-34,203,17,202,-70,202,-70,203,17,202,22,202,22,202,463,183,-108,183,-108,202,463,176,-108,202,463,156,463,176,-108,176,-108,156,463,156,23,176,-108,156,23,156,-70,156,-70,156,23,155,16,156,-70,155,16,153,11,228,7,225,5,227,-34,227,-34,225,5,221,4,227,-34,221,4,218,3,218,3,214,4,227,-34,227,-34,214,4,209,8,261,38,247,26,254,-1,254,-1,247,26,235,13,254,-1,235,13,231,10,289,61,275,50,284,28,289,61,284,28,316,57,289,61,316,57,302,70,261,38,254,-1,284,28,261,38,284,28,275,50,228,7,227,-34,254,-1,228,7,254,-1,231,10,127,11,123,14,132,-34,132,-34,123,14,109,27,132,-34,109,27,104,-1,104,-1,109,27,96,39,104,-1,96,39,83,50,74,28,104,-1,83,50,74,28,83,50,69,61,74,28,69,61,55,71,74,28,55,71,42,57,202,-70,202,22,183,-108,146,203,143,206,144,147,144,147,143,206,141,210,144,147,141,210,140,143,140,143,141,
-210,140,214,139,138,134,252,134,102,134,102,134,252,101,225,134,102,101,225,101,130,101,130,101,225,65,200,101,130,65,200,65,154,65,154,65,200,27,180,65,154,27,180,27,173,193,314,164,283,175,260,193,314,175,260,186,274,193,314,186,274,197,287,193,314,197,287,207,301,164,283,134,252,142,222,164,283,142,222,144,226,164,283,144,226,147,230,164,283,147,230,150,234,164,283,150,234,163,247,164,283,163,247,175,260,140,218,142,222,134,252,140,218,134,252,140,214,174,96,162,109,164,72,164,72,162,109,149,121,164,72,149,121,145,125,192,41,206,54,197,68,192,41,197,68,186,82,192,41,186,82,174,96,192,41,174,96,164,72,508,140,514,101,509,216,509,216,514,101,515,252,515,252,514,101,548,129,515,252,548,129,548,224,548,224,548,129,583,154,548,224,583,154,583,200,583,200,583,154,622,173,583,200,622,173,622,180,515,252,484,282,487,245,515,252,487,245,499,233,515,252,499,233,503,229,515,252,503,229,506,226,515,252,506,226,507,222,515,252,507,222,508,219,515,252,508,219,509,216,441,300,451,286,455,313,455,313,451,286,463,272,455,313,463,272,484,282,484,282,463,272,475,258,484,282,475,258,487,245,490,154,497,153,491,200,495,201,491,200,497,153,495,201,497,153,500,203,500,203,497,153,502,151,500,203,502,151,504,207,504,207,502,151,505,148,504,207,505,148,507,211,507,211,505,148,507,144,507,211,507,144,508,140,474,94,484,71,486,107,486,107,484,71,514,101,486,107,514,101,498,120,498,120,514,101,502,124,507,136,506,132,514,101,507,136,514,101,508,140,504,128,502,124,514,101,504,128,514,101,506,132,462,81,451,67,455,40,462,81,455,40,484,71,462,81,484,71,474,94,509,216,507,211,508,140,490,154,491,200,158,154,158,154,491,200,158,200,158,154,158,200,153,153,151,201,146,203,148,150,151,201,148,150,153,153,151,201,153,153,158,200,139,135,139,138,134,102,139,135,134,102,141,132,141,132,134,102,164,72,141,132,164,72,143,128,143,128,164,72,145,125,140,143,140,214,139,138,146,203,144,147,148,150,455,40,451,67,441,53,140,214,134,252,139,138,96,-7,104,-48,109,-19,109,-19,104,-48,132,-81,109,-19,132,-81,123,
--32,123,-32,132,-81,127,-35,127,392,131,395,132,437,132,437,131,395,134,397,132,437,134,397,156,472,156,472,134,397,137,398,156,472,137,398,141,398,141,398,145,397,156,472,156,472,145,397,149,394,156,472,149,394,153,389,153,-35,150,-39,156,-117,156,-117,150,-39,146,-41,156,-117,146,-41,142,-42,142,-42,139,-42,156,-117,156,-117,139,-42,135,-40,156,-117,135,-40,132,-81,132,-81,135,-40,131,-38,132,-81,131,-38,127,-35,153,389,155,385,156,472,156,472,155,385,156,380,156,380,176,-156,176,511,176,511,176,-156,183,-156,176,511,183,-156,183,511,183,511,183,-156,202,-117,183,511,202,-117,202,380,202,380,202,-117,202,-24,123,388,127,392,132,437,123,388,132,437,111,376,111,376,132,437,104,404,111,376,104,404,98,364,98,364,104,404,84,352,74,373,43,345,56,331,74,373,56,331,70,341,74,373,70,341,84,352,74,373,84,352,104,404,205,391,208,395,227,437,227,437,208,395,212,397,227,437,212,397,216,398,216,398,220,397,227,437,227,437,220,397,224,396,227,437,224,396,228,394,262,363,275,352,284,373,284,373,275,352,289,341,284,373,289,341,316,345,316,345,289,341,302,330,254,404,227,437,228,394,254,404,228,394,232,391,254,404,232,391,236,388,254,404,236,388,249,375,254,404,249,375,262,363,254,404,262,363,284,373,203,472,183,511,202,380,203,472,202,380,203,386,203,472,203,386,205,391,203,472,205,391,227,437,228,-39,225,-41,226,-81,226,-81,225,-41,221,-42,226,-81,221,-42,218,-43,218,-43,214,-41,226,-81,226,-81,214,-41,209,-38,226,-81,209,-38,206,-34,260,-8,247,-20,254,-48,254,-48,247,-20,235,-33,254,-48,235,-33,231,-36,288,14,274,3,284,-17,288,14,284,-17,315,10,288,14,315,10,302,23,260,-8,254,-48,284,-17,260,-8,284,-17,274,3,228,-39,226,-81,254,-48,228,-39,254,-48,231,-36,203,-29,202,-24,202,-117,203,-29,202,-117,226,-81,203,-29,226,-81,206,-34,156,-23,155,-30,156,-117,156,-23,156,-117,176,-156,156,-23,176,-156,156,380,83,3,69,14,74,-17,83,3,74,-17,104,-48,83,3,104,-48,96,-7,55,24,42,10,74,-17,55,24,74,-17,69,14,153,-35,156,-117,155,-30,236,387,236,388,232,391,156,472,156,380,176,511,67,399,72,368,84,453,84,
-453,72,368,74,337,84,453,74,337,75,306,75,306,75,294,91,246,91,246,75,294,74,282,91,246,74,282,74,270,84,453,54,463,60,429,84,453,60,429,67,399,107,356,109,357,114,446,114,446,109,357,111,357,114,446,111,357,113,357,113,357,111,357,112,357,113,357,112,357,116,357,113,357,116,357,114,446,114,446,116,357,145,441,114,446,84,453,99,344,114,446,99,344,100,348,114,446,100,348,102,351,114,446,102,351,105,354,114,446,105,354,106,355,114,446,106,355,107,356,91,246,95,263,99,340,99,340,95,263,97,281,99,340,97,281,98,334,98,334,97,281,98,299,98,334,98,299,98,317,84,453,75,306,91,246,84,453,91,246,99,340,84,453,99,340,99,344,73,258,72,247,91,246,73,258,91,246,74,270,145,441,128,352,154,395,145,441,154,395,154,398,154,398,154,400,145,441,145,441,154,400,155,402,145,441,155,402,156,404,145,441,116,357,119,356,145,441,119,356,123,355,145,441,123,355,126,354,145,441,126,354,128,352,145,441,156,404,175,438,175,438,156,404,157,405,175,438,157,405,158,407,158,407,161,409,175,438,175,438,161,409,164,411,175,438,164,411,169,413,206,438,178,414,197,414,206,438,197,414,215,415,206,438,206,437,175,438,206,438,175,438,178,414,231,438,233,416,243,439,243,439,233,416,250,418,243,439,250,418,255,440,255,440,250,418,266,420,255,440,266,420,266,441,218,438,206,437,206,438,218,438,206,438,215,415,218,438,215,415,233,416,218,438,233,416,231,438,173,414,178,414,175,438,173,414,175,438,169,413,599,-76,165,380,566,-108,566,-108,165,380,161,384,566,-108,161,384,128,352,128,352,161,384,158,388,128,352,158,388,156,392,60,429,54,463,49,459,128,352,156,392,154,395,381,441,381,441,393,440,393,440,381,441,398,418,393,440,398,418,405,439,405,439,398,418,415,416,405,439,415,416,417,438,417,438,415,416,433,415,417,438,433,415,429,438,429,438,433,415,441,438,473,438,441,438,451,414,473,438,451,414,470,414,525,355,528,356,534,446,534,446,528,356,532,357,534,446,532,357,535,357,535,357,537,357,565,453,565,453,537,357,539,357,565,453,539,357,541,356,494,400,495,398,504,441,504,441,495,398,520,352,504,441,520,
-352,534,446,534,446,520,352,522,354,534,446,522,354,525,355,520,352,495,398,494,395,520,352,494,395,493,392,520,352,493,392,491,388,520,352,491,388,487,384,520,352,487,384,483,380,520,352,483,380,83,-108,575,270,574,282,565,453,565,453,574,282,574,294,565,453,574,294,573,306,573,306,574,337,565,453,565,453,574,337,577,368,565,453,577,368,581,399,565,453,581,399,595,463,595,463,581,399,589,429,595,463,589,429,599,459,553,263,556,246,565,453,565,453,556,246,576,247,565,453,576,247,575,270,575,270,576,247,575,258,565,453,541,356,543,355,565,453,543,355,544,354,565,453,544,354,546,351,565,453,546,351,548,348,565,453,548,348,549,344,565,453,549,344,549,340,565,453,549,340,549,334,565,453,549,334,549,317,565,453,549,317,550,299,565,453,550,299,551,281,565,453,551,281,553,263,565,453,534,446,535,357,504,441,473,438,475,414,504,441,475,414,479,413,504,441,479,413,484,411,504,441,484,411,487,409,504,441,487,409,490,407,504,441,490,407,491,405,504,441,491,405,493,404,504,441,493,404,494,402,504,441,494,402,494,400,470,414,475,414,473,438,441,438,433,415,451,414,83,-108,483,380,49,-76,398,418,381,441,381,420,470,-58,451,-59,473,-83,473,-83,451,-59,441,-83,429,-83,441,-83,433,-60,429,-83,433,-60,417,-83,417,-83,433,-60,415,-61,417,-83,415,-61,405,-83,405,-83,415,-61,398,-63,405,-83,398,-63,393,-84,393,-84,398,-63,381,-65,393,-84,381,-65,381,-85,451,-59,433,-60,441,-83,494,-47,493,-49,504,-86,504,-86,493,-49,491,-50,504,-86,491,-50,490,-51,520,2,83,463,483,-24,520,2,483,-24,487,-29,520,2,487,-29,491,-33,520,2,491,-33,493,-37,520,2,493,-37,494,-40,520,2,494,-40,495,-43,520,2,495,-43,504,-86,520,2,504,-86,534,-91,520,2,534,-91,522,1,541,-1,539,-2,565,-98,565,-98,539,-2,537,-2,565,-98,537,-2,535,-2,535,-2,532,-2,534,-91,534,-91,532,-2,528,-1,534,-91,528,-1,525,0,504,-86,495,-43,494,-45,504,-86,494,-45,494,-47,550,55,549,37,565,-98,565,-98,549,37,549,20,565,-98,549,20,549,14,581,-44,577,-13,565,-98,565,-98,577,-13,574,17,565,-98,574,17,573,48,573,48,574,60,565,-98,565,-98,574,60,574,
-72,565,-98,574,72,575,84,576,107,556,108,565,-98,576,107,565,-98,575,84,576,107,575,84,575,96,565,-98,556,108,553,91,565,-98,553,91,551,73,565,-98,551,73,550,55,565,-98,549,14,549,10,565,-98,549,10,548,6,565,-98,548,6,546,3,565,-98,546,3,544,0,565,-98,544,0,543,0,565,-98,543,0,541,-1,535,-2,534,-91,565,-98,595,-108,599,-104,589,-74,595,-108,589,-74,581,-44,595,-108,581,-44,565,-98,504,-86,490,-51,487,-54,504,-86,487,-54,484,-56,504,-86,484,-56,479,-57,504,-86,479,-57,475,-58,504,-86,475,-58,473,-83,475,-58,470,-58,473,-83,483,-24,83,463,49,430,522,1,534,-91,525,0,109,-2,114,-91,111,-2,111,-2,114,-91,112,-2,111,-2,112,-2,113,-2,116,-2,113,-2,114,-91,116,-2,114,-91,145,-86,156,-49,155,-47,145,-86,145,-86,155,-47,154,-45,145,-86,154,-45,154,-43,154,-43,154,-40,145,-86,145,-86,154,-40,128,2,145,-86,128,2,126,1,161,-29,165,-24,566,463,161,-29,566,463,128,2,566,463,165,-24,599,430,128,2,154,-40,156,-37,128,2,156,-37,158,-33,128,2,158,-33,161,-29,145,-86,126,1,123,0,145,-86,123,0,119,-1,145,-86,119,-1,116,-2,206,-83,197,-59,178,-58,206,-83,178,-58,175,-83,206,-83,215,-59,197,-59,218,-83,231,-83,233,-61,233,-61,231,-83,243,-83,233,-61,243,-83,250,-63,250,-63,243,-83,255,-84,250,-63,255,-84,266,-65,266,-65,255,-84,266,-85,218,-83,233,-61,215,-59,218,-83,215,-59,206,-83,169,-57,164,-56,175,-83,175,-83,164,-56,161,-54,175,-83,161,-54,158,-51,173,-58,169,-57,175,-83,173,-58,175,-83,178,-58,175,-83,158,-51,157,-50,175,-83,157,-50,156,-49,175,-83,156,-49,145,-86,114,-91,109,-2,107,-1,114,-91,107,-1,106,0,114,-91,106,0,105,0,114,-91,105,0,102,3,114,-91,102,3,100,6,114,-91,100,6,99,10,114,-91,99,10,84,-98,99,14,98,20,97,73,99,14,97,73,95,91,99,14,95,91,91,108,99,14,91,108,84,-98,99,14,84,-98,99,10,98,55,97,73,98,20,98,55,98,20,98,37,84,-98,91,108,75,48,84,-98,75,48,74,17,84,-98,74,17,72,-13,84,-98,72,-13,67,-44,84,-98,67,-44,60,-74,84,-98,60,-74,54,-108,74,84,74,72,91,108,91,
-108,74,72,75,60,91,108,75,60,75,48,91,108,72,107,73,96,91,108,73,96,74,84,60,-74,49,-104,54,-108,112,-2,114,-91,113,-2,162,203,158,206,159,147,159,147,158,206,156,210,159,147,156,210,156,143,156,143,156,210,155,214,155,138,149,253,149,102,149,102,149,253,117,225,149,102,117,225,116,130,116,130,117,225,81,200,116,130,81,200,81,154,81,154,81,200,42,180,81,154,42,180,42,173,209,315,180,283,190,260,209,315,190,260,201,274,209,315,201,274,212,288,209,315,212,288,223,302,180,283,149,253,157,222,180,283,157,222,159,226,180,283,159,226,161,230,180,283,161,230,165,234,180,283,165,234,177,247,180,283,177,247,190,260,156,218,157,222,149,253,156,218,149,253,155,214,189,96,177,109,180,72,180,72,177,109,165,121,180,72,165,121,161,125,173,200,168,153,173,154,173,200,173,154,353,154,173,200,353,154,380,200,380,200,353,154,394,154,380,200,394,154,448,315,448,315,394,154,420,200,448,315,420,200,488,315,167,201,162,203,163,150,167,201,163,150,168,153,167,201,168,153,173,200,353,154,286,41,327,41,353,154,327,41,394,154,420,200,394,154,606,154,420,200,606,154,606,200,208,41,222,54,212,68,208,41,212,68,201,82,208,41,201,82,189,96,208,41,189,96,180,72,155,135,155,138,149,102,155,135,149,102,156,132,156,132,149,102,180,72,156,132,180,72,158,128,158,128,180,72,161,125,156,143,155,214,155,138,162,203,159,147,163,150,155,214,149,253,155,138,492,132,490,128,499,102,499,102,490,128,487,125,499,102,487,125,484,121,484,121,471,109,499,102,499,102,471,109,469,72,499,253,468,283,470,247,499,253,470,247,483,234,499,253,483,234,486,230,499,253,486,230,489,226,499,253,489,226,491,221,499,253,491,221,493,218,499,253,493,218,493,214,499,253,493,214,494,138,499,253,494,138,499,102,499,253,499,102,532,225,426,302,436,288,440,315,440,315,436,288,447,274,440,315,447,274,468,283,468,283,447,274,458,260,468,283,458,260,470,247,606,173,606,180,568,154,568,154,606,180,568,200,568,154,568,200,532,130,532,130,568,200,532,225,532,130,532,225,499,102,499,102,494,138,493,135,499,102,493,135,492,132,471,109,459,
-96,469,72,469,72,459,96,447,82,469,72,447,82,441,41,441,41,447,82,436,68,441,41,436,68,427,54,494,138,493,214,492,143,492,143,493,214,492,210,492,143,492,210,490,206,475,154,480,153,481,201,481,201,480,153,485,150,481,201,485,150,487,203,487,203,485,150,489,147,487,203,489,147,490,206,490,206,489,147,492,143,475,154,481,201,474,200,475,154,474,200,290,200,475,154,290,200,263,154,263,154,290,200,316,315,263,154,316,315,249,200,222,154,155,41,196,41,222,154,196,41,263,154,222,154,263,154,249,200,222,154,249,200,42,200,222,154,42,200,42,154,316,315,290,200,357,315,107,71,121,147,120,165,120,165,121,171,118,271,118,271,121,171,133,270,161,271,133,270,134,180,161,271,134,180,135,180,122,175,123,179,133,270,133,270,123,179,126,181,133,270,126,181,129,181,129,181,130,181,133,270,133,270,130,181,131,181,133,270,131,181,133,181,118,271,101,273,102,113,118,271,102,113,107,71,118,271,107,71,120,165,181,204,165,219,168,161,168,161,165,219,159,234,147,173,159,234,161,271,147,173,161,271,135,180,226,255,243,259,244,282,244,282,243,259,259,264,244,282,259,264,271,288,271,288,259,264,275,269,216,277,189,273,192,248,216,277,192,248,210,251,216,277,210,251,226,255,216,277,226,255,244,282,461,178,480,177,486,223,461,178,486,223,455,225,461,178,455,225,427,173,427,173,455,225,417,220,427,173,417,220,395,162,395,162,417,220,383,208,395,162,383,208,362,148,362,148,383,208,350,194,362,148,350,194,323,136,323,136,350,194,314,182,323,136,314,182,276,131,276,131,314,182,274,177,486,223,502,172,515,217,515,217,502,172,525,164,515,217,525,164,543,206,543,206,525,164,549,151,543,206,549,151,571,189,571,189,549,151,573,131,571,189,573,131,599,166,181,204,196,147,207,191,207,191,196,147,233,136,207,191,233,136,238,181,238,181,233,136,276,131,238,181,276,131,274,177,167,242,175,245,189,273,189,273,175,245,184,247,189,273,184,247,192,248,161,271,159,234,161,239,161,271,161,239,167,242,161,271,167,242,189,273,133,270,133,181,134,180,126,74,125,94,124,112,126,74,124,112,122,130,126,74,122,130,121,147,126,74,121,147,107,
-71,69,237,84,197,85,275,85,275,84,197,95,155,85,275,95,155,101,273,101,273,95,155,102,113,68,278,53,281,69,237,68,278,69,237,85,275,69,237,53,281,49,275,168,161,159,234,147,173,181,204,168,161,196,147,486,223,480,177,502,172,133,270,121,171,122,175,168,177,187,178,188,178,194,225,188,178,221,173,194,225,221,173,231,220,231,220,221,173,253,162,231,220,253,162,265,208,265,208,253,162,287,148,265,208,287,148,298,194,298,194,287,148,325,136,298,194,325,136,333,182,333,182,325,136,373,131,333,182,373,131,373,177,373,177,373,131,415,136,373,177,415,136,409,181,409,181,415,136,441,191,441,191,415,136,452,147,441,191,452,147,466,204,466,204,452,147,480,161,466,204,480,161,483,219,483,219,480,161,501,173,483,219,501,173,489,234,489,234,501,173,515,270,515,270,501,173,513,180,515,270,513,180,514,180,487,239,489,234,515,270,487,239,515,270,487,271,487,239,487,271,481,242,530,271,515,270,515,181,530,271,515,181,517,181,439,251,456,248,459,273,459,273,456,248,464,247,459,273,464,247,487,271,487,271,464,247,473,245,487,271,473,245,481,242,432,277,405,282,406,259,432,277,406,259,422,255,432,277,422,255,439,251,432,277,439,251,459,273,405,282,377,288,390,264,405,282,390,264,406,259,525,179,530,271,523,181,523,181,530,271,520,181,518,181,520,181,530,271,518,181,530,271,517,181,526,130,541,71,527,147,527,147,541,71,528,165,530,271,528,165,541,71,530,271,541,71,547,273,547,273,541,71,546,113,547,273,546,113,554,155,530,271,525,179,527,175,530,271,527,175,528,171,530,271,528,171,528,165,580,278,564,275,564,197,580,278,564,197,579,237,580,278,579,237,599,275,580,278,599,275,595,281,564,275,547,273,554,155,564,275,554,155,564,197,541,71,526,130,524,112,541,71,524,112,523,94,541,71,523,94,522,74,515,270,514,180,515,181,49,166,76,131,78,189,78,189,76,131,99,151,78,189,99,151,105,206,105,206,99,151,123,164,105,206,123,164,133,217,133,217,123,164,146,172,133,217,146,172,162,223,162,223,146,172,168,177,162,223,168,177,194,225,194,225,168,177,188,178,390,264,377,288,373,269,221,173,188,178,187,178,169,
-203,165,206,166,147,166,147,165,206,163,210,166,147,163,210,163,143,163,143,163,210,163,214,162,138,156,252,156,102,156,102,156,252,124,225,156,102,124,225,123,130,123,130,124,225,88,200,123,130,88,200,88,154,88,154,88,200,49,180,88,154,49,180,49,173,216,314,187,283,197,260,216,314,197,260,208,274,216,314,208,274,219,287,216,314,219,287,230,301,187,283,156,252,164,222,187,283,164,222,166,226,187,283,166,226,169,230,187,283,169,230,172,234,187,283,172,234,184,247,187,283,184,247,197,260,163,218,164,222,156,252,163,218,156,252,163,214,196,96,184,109,187,72,187,72,184,109,172,121,187,72,172,121,168,125,215,41,229,54,219,68,215,41,219,68,208,82,215,41,208,82,196,96,215,41,196,96,187,72,307,218,314,264,288,113,288,113,314,264,288,241,288,113,288,241,261,135,261,135,288,241,261,220,261,135,261,220,233,154,233,154,261,220,232,200,310,128,308,132,314,90,314,90,308,132,307,135,314,90,307,135,288,113,288,113,307,135,306,138,307,214,308,143,308,210,308,210,308,143,311,147,308,210,311,147,310,206,310,206,311,147,314,203,360,314,338,289,342,260,360,314,342,260,353,274,360,314,353,274,364,287,360,314,364,287,374,301,338,289,314,264,314,230,338,289,314,230,317,234,338,289,317,234,330,247,338,289,330,247,342,260,314,264,307,218,309,222,314,264,309,222,311,226,314,264,311,226,314,230,307,214,307,218,288,113,307,214,288,113,306,138,326,200,319,201,320,153,326,200,320,153,325,154,326,200,325,154,599,154,326,200,599,154,599,200,315,150,320,153,319,201,315,150,319,201,314,203,315,150,314,203,311,147,360,41,373,54,364,68,360,41,364,68,353,82,360,41,353,82,341,96,360,41,341,96,338,66,341,96,329,109,338,66,338,66,329,109,316,121,338,66,316,121,314,90,314,90,316,121,313,125,314,90,313,125,310,128,180,200,174,201,175,153,180,200,175,153,180,154,180,200,180,154,233,154,180,200,233,154,232,200,170,150,175,153,174,201,170,150,174,201,169,203,170,150,169,203,166,147,162,135,162,138,156,102,162,135,156,102,163,132,163,132,156,102,187,72,163,132,187,72,165,128,165,128,187,72,168,125,163,143,163,
-214,162,138,308,143,307,214,306,138,163,214,156,252,162,138,130,202,133,204,136,251,136,251,133,204,136,205,136,251,136,205,140,205,140,205,144,204,155,280,155,280,144,204,148,201,155,280,148,201,152,197,97,171,110,184,115,224,115,224,110,184,123,196,115,224,123,196,136,251,136,251,123,196,127,200,136,251,127,200,130,202,92,199,67,175,69,148,92,199,69,148,83,160,92,199,83,160,97,171,92,199,97,171,115,224,67,175,42,152,55,138,67,175,55,138,69,148,127,344,130,347,131,389,131,389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,346,155,425,148,346,152,342,175,463,155,425,155,333,202,-107,155,333,155,280,202,-107,155,280,155,188,155,188,155,187,202,-107,202,-107,155,187,155,-107,155,280,152,197,155,192,155,280,155,192,155,187,155,280,136,251,140,205,155,425,152,342,155,337,155,425,155,337,155,333,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,326,83,305,103,356,182,463,202,-107,202,280,202,280,202,193,221,251,221,251,202,193,204,199,221,251,204,199,208,202,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,221,251,211,205,216,205,216,205,219,205,221,251,221,251,219,205,223,204,221,251,223,204,242,224,242,224,223,204,227,202,242,224,227,202,231,199,262,171,266,199,248,183,248,183,266,199,242,224,248,183,242,224,235,195,235,195,242,224,231,199,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,202,425,182,463,202,332,202,425,202,332,202,339,202,425,202,339,204,344,202,425,204,344,226,389,202,332,182,463,202,280,290,175,266,199,275,159,290,175,275,159,289,148,290,175,289,148,302,138,290,175,302,138,316,
-152,202,280,202,187,202,193,175,463,155,333,202,-107,175,463,202,-107,182,463,221,251,208,202,211,205,266,199,262,171,275,159,311,66,335,90,320,109,320,109,335,90,332,121,336,125,332,121,335,90,336,125,335,90,360,113,416,200,415,154,468,154,416,200,468,154,468,200,475,201,468,200,473,153,475,201,473,153,478,150,415,154,387,220,387,135,387,135,387,220,360,241,387,135,360,241,360,113,360,113,360,241,341,138,337,226,339,221,360,241,360,241,339,221,340,218,360,241,340,218,341,214,341,214,341,138,360,241,335,230,337,226,360,241,335,230,360,241,335,264,335,230,335,264,331,234,485,132,483,128,492,102,492,102,483,128,480,125,492,102,480,125,477,121,477,121,464,109,492,102,492,102,464,109,462,72,492,252,461,283,463,247,492,252,463,247,476,234,492,252,476,234,479,230,492,252,479,230,482,226,492,252,482,226,484,221,492,252,484,221,485,218,492,252,485,218,486,214,492,252,486,214,487,138,492,252,487,138,492,102,492,252,492,102,525,225,419,301,429,287,433,314,433,314,429,287,440,274,433,314,440,274,461,283,461,283,440,274,451,260,461,283,451,260,463,247,599,173,599,180,561,154,561,154,599,180,561,200,561,154,561,200,525,130,525,130,561,200,525,225,525,130,525,225,492,102,492,102,487,138,486,135,492,102,486,135,485,132,464,109,452,96,462,72,462,72,452,96,440,82,462,72,440,82,434,41,434,41,440,82,429,68,434,41,429,68,420,54,487,138,486,214,485,143,485,143,486,214,485,210,485,143,485,210,483,206,475,201,478,150,480,203,480,203,478,150,482,147,480,203,482,147,483,206,483,206,482,147,485,143,360,113,341,138,341,135,360,113,341,135,340,132,360,113,340,132,338,128,360,113,338,128,336,125,340,143,341,138,341,214,340,143,341,214,340,210,340,143,340,210,338,206,340,143,338,206,337,147,323,154,328,153,329,201,329,201,328,153,333,150,329,201,333,150,334,203,334,203,333,150,337,147,334,203,337,147,338,206,323,154,329,201,323,200,323,154,323,200,49,200,323,154,49,200,49,154,320,109,307,96,311,66,311,66,307,96,295,82,311,66,295,82,288,41,288,41,295,82,284,68,288,41,284,68,274,54,295,274,307,260,310,289,310,
-289,307,260,319,247,310,289,319,247,335,264,335,264,319,247,331,234,288,314,273,301,284,287,288,314,284,287,295,274,288,314,295,274,310,289,288,314,310,289,287,314,468,200,468,154,473,153,415,154,416,200,387,220,152,11,148,7,155,-68,155,-68,148,7,144,5,155,-68,144,5,140,5,140,5,136,5,155,-68,155,-68,136,5,133,6,155,-68,133,6,131,-33,131,-33,133,6,130,8,131,-33,130,8,127,11,152,155,148,152,155,77,155,77,148,152,144,150,155,77,144,150,140,150,140,150,136,150,136,105,136,105,136,150,133,151,136,105,133,151,130,153,130,153,127,156,136,105,136,105,127,156,123,159,136,105,123,159,115,131,115,131,123,159,110,172,115,131,110,172,97,184,92,157,115,131,97,184,92,157,97,184,83,196,92,157,83,196,69,207,92,157,69,207,67,181,55,217,42,203,67,181,55,217,67,181,69,207,202,463,155,463,155,77,202,463,155,77,175,-107,202,463,175,-107,182,-107,202,463,182,-107,202,23,155,168,155,77,155,463,155,160,152,155,155,77,155,160,155,77,155,168,140,150,136,105,155,77,227,9,223,7,226,-32,226,-32,223,7,219,6,226,-32,219,6,216,5,216,5,211,6,226,-32,226,-32,211,6,208,8,226,-32,208,8,204,12,231,157,227,154,243,131,243,131,227,154,223,152,243,131,223,152,221,104,221,104,223,152,219,151,221,104,219,151,216,151,216,151,211,151,221,104,221,104,211,151,208,154,221,104,208,154,204,157,262,40,248,28,254,0,254,0,248,28,235,16,254,0,235,16,231,12,275,197,262,185,266,157,266,157,262,185,248,173,266,157,248,173,243,131,243,131,248,173,235,160,243,131,235,160,231,157,290,181,316,204,302,218,290,181,302,218,289,208,290,181,289,208,275,197,290,181,275,197,266,157,202,162,202,169,202,76,202,162,202,76,221,104,202,162,221,104,204,157,289,63,275,52,284,30,289,63,284,30,316,59,289,63,316,59,302,73,262,40,254,0,284,30,262,40,284,30,275,52,227,9,226,-32,254,0,227,9,254,0,231,12,202,-68,226,-32,204,12,202,-68,204,12,202,17,202,-68,202,17,202,23,202,-68,202,23,182,-107,155,23,155,16,155,-68,155,23,155,-68,175,-107,155,23,175,-107,155,77,127,11,123,
-15,131,-33,131,-33,123,15,110,27,131,-33,110,27,103,0,103,0,110,27,97,39,103,0,97,39,83,51,73,30,103,0,83,51,73,30,83,51,69,62,73,30,69,62,55,72,73,30,55,72,42,58,152,11,155,-68,155,16,169,203,165,206,166,147,166,147,165,206,163,210,166,147,163,210,163,143,163,143,163,210,163,214,162,138,156,252,156,102,156,102,156,252,124,225,156,102,124,225,123,130,123,130,124,225,88,200,123,130,88,200,88,154,88,154,88,200,49,180,88,154,49,180,49,173,216,314,187,283,197,260,216,314,197,260,208,274,216,314,208,274,219,287,216,314,219,287,230,301,187,283,156,252,164,222,187,283,164,222,166,226,187,283,166,226,169,230,187,283,169,230,172,234,187,283,172,234,184,247,187,283,184,247,197,260,163,218,164,222,156,252,163,218,156,252,163,214,196,96,184,109,187,72,187,72,184,109,172,121,187,72,172,121,168,125,215,41,229,54,219,68,215,41,219,68,208,82,215,41,208,82,196,96,215,41,196,96,187,72,513,113,523,160,522,177,522,177,523,190,513,113,513,113,523,190,513,241,513,113,513,241,486,135,486,135,513,241,486,220,486,135,486,220,458,154,458,154,486,220,457,200,588,68,577,82,584,41,584,41,577,82,565,95,584,41,565,95,562,66,562,66,565,95,553,108,562,66,553,108,541,121,541,121,537,127,538,90,538,90,537,127,531,136,538,90,531,136,527,147,523,160,513,113,538,90,523,160,538,90,527,147,526,203,531,215,539,264,539,264,531,215,536,225,539,264,536,225,542,234,542,234,554,248,563,289,563,289,554,248,566,261,563,289,566,261,585,314,585,314,566,261,577,274,585,314,577,274,589,287,539,264,513,241,523,190,539,264,523,190,526,203,563,289,539,264,542,234,541,121,538,90,562,66,180,200,174,201,175,153,180,200,175,153,180,154,180,200,180,154,458,154,180,200,458,154,457,200,170,150,175,153,174,201,170,150,174,201,169,203,170,150,169,203,166,147,162,135,162,138,156,102,162,135,156,102,163,132,163,132,156,102,187,72,163,132,187,72,165,128,165,128,187,72,168,125,163,143,163,214,162,138,588,68,584,41,598,54,585,314,589,287,599,301,163,214,156,252,162,138,135,241,110,264,112,
-225,112,225,110,264,106,234,95,248,106,234,110,264,95,248,110,264,86,289,49,301,59,287,63,314,63,314,59,287,71,274,63,314,71,274,86,289,86,289,71,274,83,261,86,289,83,261,95,248,86,66,110,90,95,108,95,108,110,90,107,121,112,127,107,121,110,90,112,127,110,90,135,113,191,200,191,154,468,154,191,200,468,154,468,200,475,201,468,200,473,153,475,201,473,153,478,150,191,154,162,220,162,135,162,135,162,220,135,241,162,135,135,241,135,113,135,113,135,241,127,177,117,215,122,203,135,241,135,241,122,203,125,190,135,241,125,190,127,177,485,132,483,128,492,102,492,102,483,128,480,125,492,102,480,125,477,121,477,121,464,109,492,102,492,102,464,109,462,72,492,252,461,283,463,247,492,252,463,247,476,234,492,252,476,234,479,230,492,252,479,230,482,226,492,252,482,226,484,221,492,252,484,221,485,218,492,252,485,218,486,214,492,252,486,214,487,138,492,252,487,138,492,102,492,252,492,102,525,225,419,301,429,287,433,314,433,314,429,287,440,274,433,314,440,274,461,283,461,283,440,274,451,260,461,283,451,260,463,247,599,173,599,180,561,154,561,154,599,180,561,200,561,154,561,200,525,130,525,130,561,200,525,225,525,130,525,225,492,102,492,102,487,138,486,135,492,102,486,135,485,132,464,109,452,96,462,72,462,72,452,96,440,82,462,72,440,82,434,41,434,41,440,82,429,68,434,41,429,68,420,54,487,138,486,214,485,143,485,143,486,214,485,210,485,143,485,210,483,206,475,201,478,150,480,203,480,203,478,150,482,147,480,203,482,147,483,206,483,206,482,147,485,143,135,113,127,177,125,160,135,113,125,160,122,147,135,113,122,147,117,136,135,113,117,136,112,127,95,108,83,95,86,66,86,66,83,95,71,82,86,66,71,82,64,41,64,41,71,82,60,68,64,41,60,68,50,54,468,200,468,154,473,153,191,154,191,200,162,220,135,241,112,225,117,215,163,210,163,214,164,147,164,147,163,214,162,143,162,143,163,214,162,138,162,138,156,253,156,101,156,101,156,253,124,225,156,101,124,225,123,129,123,129,124,225,88,200,123,129,88,200,88,154,88,154,88,200,49,180,88,154,49,180,49,173,163,214,163,218,156,253,156,
-253,163,218,164,222,156,253,164,222,187,283,187,283,164,222,166,226,187,283,166,226,169,230,216,315,187,283,197,260,216,315,197,260,208,274,216,315,208,274,219,288,216,315,219,288,230,302,187,283,169,230,172,234,187,283,172,234,184,247,187,283,184,247,197,260,196,95,184,109,187,71,187,71,184,109,172,121,187,71,172,121,168,125,215,40,229,53,219,67,215,40,219,67,208,82,215,40,208,82,196,95,215,40,196,95,187,71,162,135,162,138,156,101,162,135,156,101,163,132,163,132,156,101,187,71,163,132,187,71,165,128,165,128,187,71,168,125,600,315,565,315,600,40,600,40,565,315,565,200,600,40,565,200,565,154,565,154,565,200,180,200,565,154,180,200,180,154,173,153,180,154,174,201,173,153,174,201,169,203,163,210,164,147,165,206,165,206,164,147,168,150,165,206,168,150,169,203,169,203,168,150,173,153,600,40,565,154,565,40,180,154,180,200,174,201,163,214,156,253,162,138,127,344,130,347,131,389,131,389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,346,155,425,148,346,152,342,155,337,155,333,155,425,155,425,155,333,175,463,175,463,155,333,202,-72,175,463,202,-72,182,463,182,463,202,-72,202,332,182,463,202,332,202,425,202,425,202,332,202,339,202,425,202,339,204,344,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,326,83,305,103,356,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,202,-72,155,333,155,-72,202,-72,155,-72,316,-107,202,-72,316,-107,316,-72,42,-72,42,-107,316,-107,42,-72,316,-107,155,-72,202,425,204,344,226,389,155,425,152,342,155,337,49,315,84,
-40,84,315,84,200,84,154,468,154,84,200,468,154,469,200,469,200,468,154,475,153,469,200,475,153,475,201,487,211,487,140,493,101,487,211,493,101,488,216,488,216,493,101,493,253,493,253,493,101,526,129,493,253,526,129,526,225,526,225,526,129,561,154,526,225,561,154,561,200,561,200,561,154,600,173,561,200,600,173,600,180,493,253,463,283,465,245,493,253,465,245,477,233,493,253,477,233,481,229,493,253,481,229,484,226,493,253,484,226,486,222,493,253,486,222,487,219,493,253,487,219,488,216,420,302,430,288,434,315,434,315,430,288,441,273,434,315,441,273,463,283,463,283,441,273,453,259,463,283,453,259,465,245,452,94,462,71,464,107,464,107,462,71,493,101,464,107,493,101,477,120,477,120,493,101,480,124,487,140,487,211,486,144,486,144,487,211,484,207,486,144,484,207,484,148,484,148,484,207,481,203,484,148,481,203,480,151,480,151,481,203,475,201,480,151,475,201,475,153,493,101,487,140,486,136,493,101,486,136,485,132,493,101,485,132,483,128,493,101,483,128,480,124,440,81,429,67,434,40,440,81,434,40,462,71,440,81,462,71,452,94,434,40,429,67,420,53,84,40,49,315,49,40,153,12,149,8,155,-68,155,-68,149,8,146,6,155,-68,146,6,141,5,141,5,138,6,155,-68,155,-68,138,6,134,7,155,-68,134,7,131,-32,131,-32,134,7,130,9,131,-32,130,9,126,12,316,428,316,463,202,428,202,428,316,463,155,428,202,428,155,428,175,-107,175,-107,155,428,155,23,175,-107,155,23,155,-68,155,-68,155,23,155,17,155,-68,155,17,153,12,209,9,205,14,226,-33,226,-33,205,14,203,19,226,-33,203,19,202,-68,202,-68,203,19,202,23,202,23,202,428,182,-107,182,-107,202,428,175,-107,42,463,42,428,155,428,42,463,155,428,316,463,227,8,224,6,226,-33,226,-33,224,6,221,5,226,-33,221,5,217,5,217,5,213,6,226,-33,226,-33,213,6,209,9,260,39,247,27,254,0,254,0,247,27,234,15,254,0,234,15,230,11,288,62,274,51,284,30,288,62,284,30,315,58,288,62,315,58,302,72,260,39,254,0,284,30,260,39,284,30,274,51,227,8,226,-33,254,0,227,8,254,0,230,11,126,12,122,16,131,-32,131,-32,122,16,109,
-28,131,-32,109,28,103,0,103,0,109,28,95,40,103,0,95,40,82,52,73,30,103,0,82,52,73,30,82,52,68,63,73,30,68,63,55,73,73,30,55,73,41,59,202,-68,202,23,182,-107,95,75,103,35,109,63,109,63,103,35,131,2,109,63,131,2,122,51,122,51,131,2,126,47,127,344,130,347,131,389,131,389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,349,155,425,148,349,152,345,153,47,149,43,155,-33,155,-33,149,43,146,41,155,-33,146,41,141,41,141,41,138,41,155,-33,155,-33,138,41,134,42,155,-33,134,42,131,2,131,2,134,42,130,44,131,2,130,44,126,47,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,202,425,182,463,202,332,202,425,202,332,202,339,202,425,202,339,204,344,202,425,204,344,226,389,209,43,205,47,226,2,226,2,205,47,203,52,226,2,203,52,202,-33,202,-33,203,52,202,58,202,58,202,332,182,463,227,43,224,41,226,2,226,2,224,41,221,40,226,2,221,40,217,40,217,40,213,41,226,2,226,2,213,41,209,43,260,74,247,62,254,34,254,34,247,62,234,50,254,34,234,50,230,46,288,97,274,86,284,65,288,97,284,65,315,93,288,97,315,93,302,107,260,74,254,34,284,65,260,74,284,65,274,86,227,43,226,2,254,34,227,43,254,34,230,46,42,-72,316,-107,175,-72,175,-72,316,-107,182,-72,175,-72,182,-72,182,463,182,463,182,-72,202,-33,182,463,202,-33,202,58,155,340,155,333,155,425,155,425,155,333,175,463,175,463,155,333,175,-72,175,463,175,-72,182,463,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,
-326,83,305,103,356,175,-72,155,333,155,59,175,-72,155,59,155,-33,155,-33,155,59,155,52,155,-33,155,52,153,47,82,87,68,98,73,65,82,87,73,65,103,35,82,87,103,35,95,75,55,108,41,94,73,65,55,108,73,65,68,98,316,-107,42,-72,42,-107,182,-72,316,-107,316,-72,155,425,152,345,155,340,49,180,49,180,88,200,88,200,49,180,88,154,88,200,88,154,123,224,123,224,88,154,124,129,123,224,124,129,156,252,156,252,124,129,156,101,156,252,156,101,162,216,163,212,163,140,163,144,163,212,163,144,165,207,165,207,163,144,164,147,165,207,164,147,167,151,215,313,187,282,196,258,215,313,196,258,208,272,215,313,208,272,219,286,215,313,219,286,229,300,187,282,156,252,163,222,187,282,163,222,165,226,187,282,165,226,168,229,187,282,168,229,172,233,187,282,172,233,184,245,187,282,184,245,196,258,162,219,163,222,156,252,162,219,156,252,162,216,197,94,184,107,187,71,187,71,184,107,172,120,187,71,172,120,168,124,216,40,230,53,219,67,216,40,219,67,208,81,216,40,208,81,197,94,216,40,197,94,187,71,488,387,420,387,486,341,488,387,486,341,509,337,488,387,509,337,520,382,599,270,593,311,592,228,592,228,593,311,575,343,592,228,575,343,572,195,572,195,575,343,553,270,550,367,520,382,527,328,550,367,527,328,541,313,550,367,541,313,550,293,550,367,550,293,553,270,550,367,553,270,575,343,549,245,537,225,543,172,549,245,543,172,572,195,549,245,572,195,553,270,473,200,476,154,498,203,498,203,476,154,510,158,498,203,510,158,519,211,519,211,510,158,543,172,519,211,543,172,537,225,165,207,167,151,168,204,168,204,167,151,171,153,168,204,171,153,173,201,173,201,171,153,178,154,173,201,178,154,178,200,178,200,178,154,473,200,473,200,178,154,476,154,163,136,163,140,156,101,163,136,156,101,164,132,164,132,156,101,187,71,164,132,187,71,166,128,166,128,187,71,168,124,162,216,163,140,163,212,156,101,163,140,162,216,520,382,509,337,527,328,486,341,420,387,420,341,88,154,49,180,49,173,77,195,105,172,95,270,95,270,98,367,77,195,77,195,98,367,73,343,77,195,73,343,57,228,57,228,73,343,56,311,57,228,56,
-311,49,270,229,341,229,387,163,341,140,337,163,341,160,387,140,337,160,387,128,382,128,382,98,367,98,293,128,382,98,293,107,313,128,382,107,313,121,328,128,382,121,328,140,337,129,211,138,158,151,203,151,203,138,158,172,154,151,203,172,154,175,200,175,200,172,154,470,154,175,200,470,154,470,200,476,201,470,200,470,154,476,201,470,154,476,153,111,225,100,245,105,172,111,225,105,172,138,158,111,225,138,158,129,211,484,132,492,101,485,136,485,136,492,101,486,140,486,212,486,140,492,101,486,212,492,101,487,216,487,216,492,101,492,252,492,252,492,101,525,129,492,252,525,129,525,224,525,224,525,129,561,154,525,224,561,154,561,200,561,200,561,154,599,173,561,200,599,173,599,180,492,252,462,282,464,245,492,252,464,245,477,233,492,252,477,233,480,229,492,252,480,229,483,226,492,252,483,226,485,222,492,252,485,222,486,219,492,252,486,219,487,216,420,300,429,286,434,313,434,313,429,286,440,272,434,313,440,272,462,282,462,282,440,272,452,258,462,282,452,258,464,245,451,94,461,71,463,107,463,107,461,71,492,101,463,107,492,101,476,120,476,120,492,101,479,124,476,153,481,151,481,204,481,204,481,151,484,147,481,204,484,147,484,207,484,207,484,147,485,144,484,207,485,144,486,212,486,212,485,144,486,140,482,128,479,124,492,101,482,128,492,101,484,132,439,81,429,67,433,40,439,81,433,40,461,71,439,81,461,71,451,94,433,40,429,67,419,53,476,201,476,153,481,204,95,270,105,172,100,245,163,341,229,387,160,387,98,367,95,270,98,293,49,180,49,180,88,200,88,200,49,180,88,154,88,200,88,154,123,224,123,224,88,154,124,129,123,224,124,129,156,252,156,252,124,129,156,101,156,252,156,101,162,216,163,212,163,140,163,144,163,212,163,144,166,208,166,208,163,144,165,147,166,208,165,147,168,150,215,313,187,282,196,258,215,313,196,258,208,272,215,313,208,272,219,286,215,313,219,286,229,300,187,282,156,252,163,222,187,282,163,222,165,226,187,282,165,226,168,229,187,282,168,229,172,233,187,282,172,233,184,245,187,282,184,245,196,258,162,219,163,222,156,252,162,219,156,252,162,216,197,94,184,107,187,71,187,71,184,107,172,
-120,187,71,172,120,168,124,377,305,370,260,416,0,416,0,370,260,370,200,416,0,370,200,370,154,370,154,370,200,178,154,172,152,178,154,174,201,172,152,174,201,170,204,170,204,166,208,168,150,170,204,168,150,172,152,178,200,174,201,178,154,178,200,178,154,370,200,488,387,486,341,509,337,488,387,509,337,520,382,520,382,509,337,527,328,520,382,527,328,550,367,550,367,527,328,541,313,550,367,541,313,550,293,599,270,593,311,592,228,592,228,593,311,575,343,592,228,575,343,572,195,572,195,575,343,553,270,550,367,550,293,553,270,550,367,553,270,575,343,549,245,537,225,543,172,549,245,543,172,572,195,549,245,572,195,553,270,473,200,476,154,498,203,498,203,476,154,510,158,498,203,510,158,519,211,519,211,510,158,543,172,519,211,543,172,537,225,430,312,445,328,453,381,453,381,445,328,464,337,453,381,464,337,488,387,488,387,464,337,486,341,420,366,394,340,416,262,420,366,416,262,420,290,420,366,420,290,430,312,420,366,430,312,453,381,394,340,416,0,416,262,416,200,416,154,476,154,416,200,476,154,473,200,216,40,230,53,219,67,216,40,219,67,208,81,216,40,208,81,197,94,216,40,197,94,187,71,163,136,163,140,156,101,163,136,156,101,164,132,164,132,156,101,187,71,164,132,187,71,166,128,166,128,187,71,168,124,156,101,163,140,162,216,416,0,370,154,370,0,377,305,416,0,394,340,162,216,163,140,163,212,88,154,49,180,49,173,218,312,228,366,203,328,203,328,228,366,196,381,203,328,196,381,184,337,184,337,196,381,163,341,184,337,163,341,162,341,162,341,163,341,140,337,140,337,163,341,160,387,140,337,160,387,128,382,128,382,98,367,98,293,128,382,98,293,107,313,128,382,107,313,121,328,128,382,121,328,140,337,100,245,95,270,105,172,105,172,95,270,77,195,77,195,95,270,98,367,98,367,95,270,98,293,73,343,56,311,57,228,73,343,57,228,77,195,73,343,77,195,98,367,129,211,138,158,151,203,151,203,138,158,172,154,151,203,172,154,175,200,175,200,172,154,232,154,175,200,232,154,232,200,232,200,232,154,278,0,232,200,278,0,232,262,228,290,232,262,254,340,228,290,254,340,228,366,111,225,100,245,105,172,111,
-225,105,172,138,158,111,225,138,158,129,211,196,381,160,387,163,341,470,154,470,200,278,200,470,154,278,200,278,154,278,0,278,260,272,305,278,0,272,305,254,340,486,140,492,101,487,216,487,216,492,101,492,252,492,252,492,101,525,129,492,252,525,129,525,224,525,224,525,129,561,154,525,224,561,154,561,200,561,200,561,154,599,173,561,200,599,173,599,180,492,252,462,282,464,245,492,252,464,245,477,233,492,252,477,233,480,229,492,252,480,229,483,226,492,252,483,226,485,222,492,252,485,222,486,219,492,252,486,219,487,216,420,300,429,286,434,313,434,313,429,286,440,272,434,313,440,272,462,282,462,282,440,272,452,258,462,282,452,258,464,245,451,94,461,71,463,107,463,107,461,71,492,101,463,107,492,101,476,120,476,120,492,101,479,124,485,136,484,132,492,101,485,136,492,101,486,140,482,128,479,124,492,101,482,128,492,101,484,132,439,81,429,67,433,40,439,81,433,40,461,71,439,81,461,71,451,94,484,147,485,144,486,212,486,212,485,144,486,140,486,212,486,140,487,216,470,200,470,154,474,201,474,201,470,154,476,152,474,201,476,152,479,204,479,204,476,152,481,150,479,204,481,150,483,208,483,208,481,150,484,147,483,208,484,147,486,212,433,40,429,67,419,53,278,0,232,154,232,0,232,262,278,0,254,340,228,366,218,312,228,290,57,228,56,311,49,270,154,203,150,206,151,146,151,146,150,206,148,210,151,146,148,210,148,142,148,142,148,210,148,214,147,138,142,252,141,102,141,102,142,252,109,225,141,102,109,225,109,130,109,130,109,225,73,200,109,130,73,200,73,154,73,154,73,200,34,180,73,154,34,180,34,173,201,314,172,283,182,260,201,314,182,260,194,274,201,314,194,274,205,287,201,314,205,287,215,301,172,283,142,252,149,222,172,283,149,222,152,226,172,283,152,226,154,230,172,283,154,230,158,234,172,283,158,234,170,247,172,283,170,247,182,260,148,218,149,222,142,252,148,218,142,252,148,214,181,96,169,109,172,72,172,72,169,109,157,121,172,72,157,121,153,125,200,41,214,54,204,68,200,41,204,68,193,82,200,41,193,82,181,96,200,41,181,96,172,72,166,200,159,201,160,153,166,200,160,153,164,154,166,200,164,
-154,208,154,166,200,208,154,208,200,420,230,441,214,454,260,420,230,454,260,420,276,420,230,420,276,399,214,399,214,420,276,386,260,399,214,386,260,381,177,381,177,386,260,362,223,381,177,362,223,362,132,362,132,362,223,344,179,362,132,344,179,338,95,338,95,344,179,327,141,338,95,327,141,307,80,307,80,327,141,307,126,632,154,632,200,611,146,611,146,632,200,604,192,611,146,604,192,593,128,593,128,604,192,583,174,593,128,583,174,575,106,575,106,583,174,566,152,575,106,566,152,556,87,556,87,566,152,551,133,556,87,551,133,534,80,534,80,551,133,534,126,659,96,668,72,671,109,671,109,668,72,698,102,671,109,698,102,683,121,683,121,698,102,687,125,698,252,668,283,670,247,698,252,670,247,683,234,698,252,683,234,686,230,698,252,686,230,689,226,698,252,689,226,691,221,698,252,691,221,692,218,698,252,692,218,692,214,698,252,692,214,693,138,698,252,693,138,698,102,698,252,698,102,731,225,625,301,635,287,639,314,639,314,635,287,646,274,639,314,646,274,668,283,668,283,646,274,658,260,668,283,658,260,670,247,805,173,805,180,767,154,767,154,805,180,767,200,767,154,767,200,731,130,731,130,767,200,731,225,731,130,731,225,698,102,698,102,693,138,693,135,698,102,693,135,691,132,698,102,691,132,689,128,698,102,689,128,687,125,647,82,636,68,640,41,647,82,640,41,668,72,647,82,668,72,659,96,693,138,692,214,692,142,692,142,692,214,692,210,692,142,692,210,689,206,677,154,680,153,681,201,681,201,680,153,685,150,681,201,685,150,686,203,686,203,685,150,689,146,686,203,689,146,689,206,689,206,689,146,692,142,677,154,681,201,674,200,677,154,674,200,632,200,677,154,632,200,632,154,454,260,459,177,478,223,478,223,459,177,478,132,478,223,478,132,496,179,496,179,478,132,502,95,496,179,502,95,513,141,513,141,502,95,534,80,513,141,534,80,534,126,208,154,229,146,236,192,236,192,229,146,247,128,236,192,247,128,257,174,257,174,247,128,265,106,257,174,265,106,274,152,274,152,265,106,284,87,274,152,284,87,290,134,290,134,284,87,307,80,290,134,307,80,307,126,155,150,160,153,159,201,155,150,159,201,154,203,155,150,154,203,151,
-146,147,135,147,138,141,102,147,135,141,102,148,132,148,132,141,102,172,72,148,132,172,72,150,128,150,128,172,72,153,125,148,142,148,214,147,138,208,200,208,154,236,192,454,260,441,214,459,177,640,41,636,68,626,54,148,214,142,252,147,138,146,203,143,206,144,147,144,147,143,206,141,210,144,147,141,210,140,143,140,143,141,210,140,214,139,138,134,253,134,102,134,102,134,253,101,225,134,102,101,225,101,130,101,130,101,225,65,200,101,130,65,200,65,154,65,154,65,200,27,180,65,154,27,180,27,173,193,315,164,283,175,260,193,315,175,260,186,274,193,315,186,274,197,288,193,315,197,288,207,302,164,283,134,253,142,222,164,283,142,222,144,226,164,283,144,226,147,230,164,283,147,230,150,234,164,283,150,234,163,247,164,283,163,247,175,260,140,218,142,222,134,253,140,218,134,253,140,214,174,96,162,109,164,72,164,72,162,109,149,121,164,72,149,121,145,125,286,41,334,154,296,154,296,154,334,154,316,200,296,154,316,200,158,154,158,154,316,200,158,200,158,154,158,200,153,153,151,201,146,203,148,150,151,201,148,150,153,153,151,201,153,153,158,200,353,200,402,315,364,315,353,200,364,315,334,154,353,200,334,154,490,154,353,200,490,154,491,200,508,140,514,102,509,216,509,216,514,102,515,253,515,253,514,102,548,130,515,253,548,130,548,225,548,225,548,130,583,154,548,225,583,154,583,200,583,200,583,154,622,173,583,200,622,173,622,180,515,253,484,283,487,245,515,253,487,245,499,233,515,253,499,233,503,229,515,253,503,229,506,226,515,253,506,226,507,222,515,253,507,222,508,219,515,253,508,219,509,216,441,302,451,288,455,315,455,315,451,288,463,273,455,315,463,273,484,283,484,283,463,273,475,259,484,283,475,259,487,245,490,154,497,153,491,200,495,201,491,200,497,153,495,201,497,153,500,203,500,203,497,153,502,151,500,203,502,151,504,207,504,207,502,151,505,148,504,207,505,148,507,211,507,211,505,148,507,144,507,211,507,144,508,140,474,94,484,72,486,107,486,107,484,72,514,102,486,107,514,102,498,120,498,120,514,102,502,124,507,136,506,132,514,102,507,136,514,102,508,140,504,128,502,124,514,102,504,128,514,102,506,132,462,
-81,451,68,455,41,462,81,455,41,484,72,462,81,484,72,474,94,509,216,507,211,508,140,192,41,206,54,197,68,192,41,197,68,186,82,192,41,186,82,174,96,192,41,174,96,164,72,139,135,139,138,134,102,139,135,134,102,141,132,141,132,134,102,164,72,141,132,164,72,143,128,143,128,164,72,145,125,455,41,451,68,441,54,286,41,296,154,248,41,316,200,334,154,364,315,140,143,140,214,139,138,146,203,144,147,148,150,140,214,134,253,139,138,67,97,62,113,63,-32,62,-32,63,-32,62,-46,62,-32,62,-46,99,-86,99,-86,62,-46,61,-60,99,-86,61,-60,61,-107,61,-107,61,-60,60,-74,61,-107,60,-74,58,-88,62,113,42,109,49,82,62,113,49,82,54,54,62,113,54,54,59,25,62,113,59,25,61,-3,62,113,61,-3,63,-32,91,11,87,16,99,-86,99,-86,87,16,85,21,99,-86,85,21,84,27,109,10,106,8,139,-70,139,-70,106,8,103,7,139,-70,103,7,100,6,100,6,95,7,99,-86,99,-86,95,7,91,11,99,-86,84,27,80,45,99,-86,80,45,76,63,99,-86,76,63,72,80,99,-86,72,80,67,97,99,-86,67,97,63,-32,99,-86,63,-32,62,-32,58,-88,55,-102,61,-107,145,224,315,436,273,463,145,224,273,463,42,178,145,224,42,178,225,178,145,224,225,178,316,224,161,-37,156,-35,181,-60,181,-60,156,-35,153,-32,181,-60,153,-32,139,-70,139,-70,153,-32,150,-27,139,-70,150,-27,149,-22,149,-22,149,-19,139,-70,139,-70,149,-19,150,-16,139,-70,150,-16,115,16,115,16,150,-16,150,-14,115,16,150,-14,151,-12,151,-12,152,-11,225,178,151,-12,225,178,115,16,225,178,152,-11,316,224,112,13,109,10,139,-70,112,13,139,-70,115,16,100,6,99,-86,139,-70,171,-37,169,-37,181,-60,181,-60,169,-37,168,-37,181,-60,168,-37,166,-37,166,-37,161,-37,181,-60,263,-29,252,-29,265,-47,265,-47,252,-29,237,-29,265,-47,237,-29,223,-52,223,-52,237,-29,221,-30,223,-52,221,-30,205,-32,189,-34,173,-36,181,-60,189,-34,181,-60,223,-52,189,-34,223,-52,205,-32,172,-37,171,-37,181,-60,172,-37,181,-60,173,-36,21,336,60,310,60,355,60,355,60,310,95,287,60,355,95,287,95,378,95,378,95,287,128,261,95,378,128,261,128,404,128,404,128,
-261,141,290,128,404,141,290,141,294,141,294,141,370,128,404,128,404,141,370,142,373,128,404,142,373,143,378,144,362,142,365,143,302,143,302,142,365,141,370,141,298,141,370,141,294,188,463,159,432,163,405,188,463,163,405,173,416,188,463,173,416,183,426,188,463,183,426,192,437,188,463,192,437,202,450,159,432,128,404,143,378,159,432,143,378,145,384,159,432,145,384,148,389,159,432,148,389,152,393,159,432,152,393,163,405,182,242,173,253,187,202,187,202,173,253,162,265,187,202,162,265,159,233,159,233,162,265,151,277,159,233,151,277,147,280,192,229,182,242,187,202,192,229,187,202,201,216,159,233,147,280,144,284,159,233,144,284,142,287,159,233,142,287,141,290,159,233,141,290,128,261,297,-108,297,355,251,309,251,309,297,355,159,355,251,309,159,355,159,309,152,308,159,309,153,356,152,308,153,356,148,358,147,306,152,308,148,358,147,306,148,358,144,362,147,306,144,362,143,302,60,310,21,336,21,329,297,-108,251,309,251,-108,159,309,159,355,153,356,143,302,141,370,141,298,184,294,183,290,184,294,184,294,183,290,196,261,184,294,196,261,196,404,184,294,196,404,183,298,183,298,196,404,183,370,183,298,183,370,182,365,183,298,182,365,181,302,181,302,182,365,180,362,181,302,180,362,177,306,177,306,180,362,177,358,177,306,177,358,172,308,172,308,177,358,172,356,172,308,172,356,165,355,165,309,165,355,73,309,173,277,162,265,166,233,173,277,166,233,196,261,173,277,196,261,177,280,179,384,181,378,196,404,196,404,181,378,182,373,196,404,182,373,183,370,150,416,161,405,165,432,165,432,161,405,173,393,165,432,173,393,196,404,196,404,173,393,176,389,196,404,176,389,179,384,123,450,132,437,137,463,137,463,132,437,141,426,137,463,141,426,165,432,165,432,141,426,150,416,196,404,196,261,229,378,229,378,196,261,229,287,229,378,229,287,264,355,264,355,229,287,264,310,264,355,264,310,303,336,303,336,264,310,303,329,196,261,183,290,182,287,196,261,182,287,180,284,196,261,180,284,177,280,162,265,151,253,166,233,166,233,151,253,142,242,166,233,142,242,138,202,138,202,142,242,132,229,138,202,132,229,123,216,27,355,27,-108,73,-108,27,355,73,-108,73,
-309,27,355,73,309,165,355,165,355,165,309,172,308,140,-22,139,-17,125,-47,125,-47,139,-17,138,-13,125,-47,138,-13,138,62,138,62,138,65,125,-47,125,-47,138,65,125,94,125,-47,125,94,92,-21,92,-21,125,94,92,68,92,-21,92,68,56,0,56,0,92,68,56,45,56,0,56,45,17,27,184,153,155,123,158,91,184,153,158,91,169,102,184,153,169,102,179,114,184,153,179,114,188,127,184,153,188,127,198,140,155,123,125,94,139,68,155,123,139,68,141,72,155,123,141,72,143,75,155,123,143,75,147,79,155,123,147,79,158,91,139,-9,140,53,138,-13,138,-13,138,57,138,62,156,-76,184,-107,159,-48,156,-76,159,-48,148,-36,148,-36,144,-31,156,-76,156,-76,144,-31,142,-27,156,-76,142,-27,140,-22,293,463,247,463,293,0,293,0,247,463,247,46,293,0,247,46,156,0,156,0,247,46,155,46,156,0,155,46,150,0,150,0,155,46,149,47,150,0,149,47,145,-2,145,-2,149,47,144,50,145,-2,144,50,141,-5,141,-5,144,50,140,53,141,-5,140,53,139,-9,184,-107,198,-94,189,-81,184,-107,189,-81,180,-69,184,-107,180,-69,170,-59,184,-107,170,-59,159,-48,140,-22,125,-47,156,-76,138,57,138,-13,140,53,56,0,17,27,17,20,125,94,138,65,139,68,73,46,73,463,27,463,73,46,27,463,27,0,73,46,27,0,165,0,73,46,165,0,165,46,184,62,196,-47,196,94,196,94,196,-47,229,-21,196,94,229,-21,229,68,229,68,229,-21,264,0,229,68,264,0,264,46,264,46,264,0,303,20,264,46,303,20,303,27,180,72,182,68,196,94,196,94,182,68,183,65,196,94,183,65,184,62,151,102,162,91,166,123,166,123,162,91,173,79,166,123,173,79,196,94,196,94,173,79,177,75,196,94,177,75,180,72,123,140,132,127,138,153,138,153,132,127,142,114,138,153,142,114,166,123,166,123,142,114,151,102,173,-36,161,-48,165,-76,173,-36,165,-76,196,-47,173,-36,196,-47,176,-31,165,46,172,0,172,47,172,47,172,0,177,-2,172,47,177,-2,177,50,177,50,177,-2,180,-5,177,50,180,-5,181,53,181,53,180,-5,182,-9,181,53,182,-9,183,57,183,57,182,-9,183,-13,196,-47,183,-13,182,-17,196,-47,182,-17,181,-22,183,57,183,-13,196,-47,183,
-57,196,-47,184,62,179,-27,176,-31,196,-47,179,-27,196,-47,181,-22,161,-48,150,-59,165,-76,165,-76,150,-59,141,-69,165,-76,141,-69,137,-107,137,-107,141,-69,132,-81,137,-107,132,-81,123,-94,165,46,165,0,172,0,138,153,166,123,137,153,436,11,432,7,439,-68,439,-68,432,7,428,5,439,-68,428,5,423,5,423,5,420,5,439,-68,439,-68,420,5,417,6,439,-68,417,6,415,-33,415,-33,417,6,414,8,415,-33,414,8,410,11,488,11,486,16,486,-68,486,-68,486,16,485,23,485,23,485,463,466,-107,466,-107,485,463,459,-107,485,463,439,417,459,-107,459,-107,439,417,439,23,459,-107,439,23,439,-68,439,-68,439,23,438,16,439,-68,438,16,436,11,49,463,49,417,439,417,49,463,439,417,485,463,511,9,507,7,510,-32,510,-32,507,7,503,6,510,-32,503,6,499,5,499,5,495,6,510,-32,510,-32,495,6,491,8,510,-32,491,8,488,11,545,40,532,28,538,0,538,0,532,28,519,16,538,0,519,16,515,12,572,63,558,52,568,30,572,63,568,30,599,59,572,63,599,59,586,73,545,40,538,0,568,30,545,40,568,30,558,52,511,9,510,-32,538,0,511,9,538,0,515,12,410,11,406,15,415,-33,415,-33,406,15,394,27,415,-33,394,27,387,0,387,0,394,27,381,39,387,0,381,39,367,51,357,30,387,0,367,51,357,30,367,51,353,62,357,30,353,62,339,72,357,30,339,72,326,58,486,-68,485,23,466,-107,488,11,486,-68,510,-32,49,27,49,27,88,46,88,46,49,27,88,0,88,46,88,0,123,69,123,69,88,0,124,-22,123,69,124,-22,156,95,156,95,124,-22,156,-48,156,95,156,-48,162,62,162,62,163,-13,162,57,162,57,163,-13,164,53,164,53,163,-13,163,-9,163,68,165,72,187,124,187,124,165,72,168,75,187,124,168,75,172,79,172,79,184,91,187,124,187,124,184,91,196,103,187,124,196,103,215,155,215,155,196,103,208,115,215,155,208,115,219,128,162,65,163,68,156,95,162,65,156,95,162,62,216,-108,230,-95,219,-82,216,-108,219,-82,208,-69,216,-108,208,-69,197,-57,216,-108,197,-57,187,-77,187,-77,197,-57,184,-45,187,-77,184,-45,172,-33,187,-77,172,-33,168,-29,187,-77,168,-29,166,-25,187,-77,166,-25,164,-20,187,-77,164,
--20,156,-48,163,-13,162,62,156,-48,163,-13,156,-48,163,-17,599,0,599,463,553,463,599,0,553,463,553,46,599,0,553,46,180,46,599,0,180,46,180,0,180,0,180,46,174,0,174,0,180,46,173,47,174,0,173,47,168,-2,168,-2,173,47,168,50,168,-2,168,50,165,-5,165,-5,168,50,164,53,165,-5,164,53,163,-9,163,-17,156,-48,164,-20,88,0,49,27,49,20,156,95,163,68,187,124,215,155,219,128,229,141,124,113,121,114,138,39,138,39,121,114,118,116,138,39,118,116,116,74,116,74,118,116,115,119,116,74,115,119,111,123,111,123,99,135,116,74,116,74,99,135,90,107,136,122,134,117,138,39,138,39,134,117,131,114,138,39,131,114,127,113,127,113,124,113,138,39,164,0,183,39,184,275,184,275,183,39,184,135,184,127,184,135,183,39,184,127,183,39,186,120,186,120,183,39,205,74,186,120,205,74,189,116,189,116,205,74,192,114,380,373,377,327,439,318,380,373,439,318,454,361,454,361,439,318,492,290,454,361,492,290,519,327,519,327,492,290,534,249,519,327,534,249,571,275,571,275,534,249,561,196,571,275,561,196,571,134,571,134,617,134,605,210,571,134,605,210,571,275,193,196,221,249,236,327,236,327,221,249,263,290,236,327,263,290,303,361,303,361,263,290,316,318,303,361,316,318,380,373,380,373,316,318,377,327,184,275,184,135,193,196,184,275,193,196,236,327,138,134,137,128,138,39,138,134,138,39,150,210,150,210,138,39,157,0,150,210,157,0,184,275,184,275,157,0,164,0,204,117,201,115,205,74,205,74,201,115,198,114,205,74,198,114,196,113,196,113,192,114,205,74,263,171,250,160,260,138,263,171,260,138,291,166,263,171,291,166,277,180,237,148,223,136,231,107,237,148,231,107,260,138,237,148,260,138,250,160,204,117,205,74,207,120,207,120,205,74,231,107,207,120,231,107,210,123,210,123,231,107,223,136,99,135,86,147,90,107,90,107,86,147,72,159,90,107,72,159,61,137,61,137,72,159,58,170,61,137,58,170,44,180,61,137,44,180,30,166,136,122,138,39,137,128,455,196,464,275,427,249,427,249,464,275,412,327,427,249,412,327,386,290,386,290,412,327,345,361,386,290,345,361,332,318,332,318,345,361,271,
-327,210,318,271,327,269,373,210,318,269,373,194,361,87,196,115,249,129,327,129,327,115,249,157,290,129,327,157,290,194,361,194,361,157,290,210,318,77,275,43,210,77,134,77,275,77,134,87,196,77,275,87,196,129,327,462,120,460,116,465,39,465,39,460,116,456,114,465,39,456,114,452,113,452,113,450,114,465,39,465,39,450,114,447,115,465,39,447,115,445,117,530,116,527,114,533,74,533,74,527,114,525,113,533,74,525,113,522,113,522,113,517,114,533,74,533,74,517,114,514,117,533,74,514,117,510,39,510,39,514,117,512,122,510,39,512,122,511,128,533,119,530,116,533,74,533,119,533,74,558,107,533,119,558,107,537,123,590,170,576,159,587,137,590,170,587,137,617,166,590,170,617,166,604,180,562,147,549,135,558,107,562,147,558,107,587,137,562,147,587,137,576,159,484,0,491,0,499,210,499,210,491,0,510,39,499,210,510,39,511,134,511,134,510,39,511,128,465,39,484,0,499,210,465,39,499,210,465,135,465,39,465,135,464,127,465,39,464,127,462,120,464,275,455,196,465,135,464,275,465,135,499,210,345,361,269,373,271,327,443,74,465,39,445,117,443,74,445,117,442,120,443,74,442,120,438,123,443,74,438,123,425,136,443,74,425,136,417,107,425,136,412,148,417,107,417,107,412,148,398,160,417,107,398,160,389,138,389,138,398,160,385,171,389,138,385,171,371,180,389,138,371,180,358,166,537,123,558,107,549,135,77,134,43,210,30,134,44,513,44,466,599,466,44,513,599,466,599,513,55,400,60,370,73,453,73,453,60,370,63,339,73,453,63,339,64,309,64,309,64,296,82,245,82,245,64,296,64,284,82,245,64,284,63,272,73,453,44,463,48,430,73,453,48,430,55,400,89,343,90,347,103,446,103,446,90,347,91,350,103,446,91,350,94,354,94,354,96,355,103,446,103,446,96,355,98,356,103,446,98,356,100,357,110,357,133,441,107,357,107,357,133,441,105,358,102,358,105,358,103,446,102,358,103,446,100,357,85,263,87,281,89,343,89,343,87,281,88,298,89,343,88,298,89,338,89,338,88,298,89,316,89,338,89,316,89,334,82,245,85,263,89,343,82,245,89,343,73,453,82,245,73,453,64,309,63,259,62,247,82,245,63,
-259,82,245,63,272,133,441,117,352,144,394,133,441,144,394,144,397,144,397,144,399,133,441,133,441,144,399,144,401,133,441,144,401,145,403,133,441,110,357,112,355,133,441,112,355,115,353,133,441,115,353,117,352,133,441,103,446,105,358,133,441,145,403,164,438,164,438,145,403,146,405,164,438,146,405,148,406,195,438,168,413,186,414,195,438,186,414,203,415,195,438,164,438,168,413,220,438,221,416,232,439,232,439,221,416,239,418,232,439,239,418,244,439,244,439,239,418,256,420,244,439,256,420,256,441,207,438,195,438,203,415,207,438,203,415,221,416,207,438,221,416,220,438,154,411,159,413,164,438,164,438,159,413,164,413,164,438,164,413,168,413,164,438,148,406,151,409,164,438,151,409,154,411,610,-76,151,383,577,-108,577,-108,151,383,149,385,577,-108,149,385,117,352,117,352,149,385,147,388,117,352,147,388,145,391,48,430,44,463,38,459,117,352,145,391,144,394,73,453,89,343,103,446,42,419,77,159,77,293,77,293,115,267,115,312,115,312,115,267,149,244,115,312,149,244,149,334,149,334,149,244,179,218,149,334,179,218,179,360,179,360,179,218,192,249,179,360,192,249,191,252,77,419,42,419,77,293,235,419,208,388,212,357,235,419,212,357,222,368,235,419,222,368,232,380,235,419,232,380,240,392,235,419,240,392,249,405,208,388,179,360,192,331,208,388,192,331,193,334,208,388,193,334,194,338,208,388,194,338,197,341,208,388,197,341,201,345,208,388,201,345,212,357,191,327,192,331,179,360,191,327,179,360,191,252,232,197,223,208,235,159,235,159,223,208,212,220,235,159,212,220,207,190,207,190,212,220,201,232,207,190,201,232,197,236,241,185,232,197,235,159,241,185,235,159,249,173,448,9,436,-1,441,-33,448,9,441,-33,469,-4,448,9,469,-4,451,13,571,-63,606,-63,571,62,571,62,571,69,533,88,571,62,533,88,533,43,533,43,533,88,500,111,533,43,500,111,500,20,500,20,500,111,469,137,500,20,469,137,469,-4,469,-4,469,137,457,102,457,27,457,23,469,-4,469,-4,457,23,456,20,469,-4,456,20,454,17,439,88,443,42,446,89,446,89,443,42,448,40,446,89,448,40,451,91,451,91,448,40,452,37,451,91,452,37,454,94,454,94,452,
-37,456,32,454,94,456,32,456,98,456,98,456,32,457,27,456,98,457,27,457,102,571,62,606,-63,606,195,571,62,606,195,571,195,571,62,571,195,571,69,454,114,456,110,469,137,469,137,456,110,457,106,469,137,457,106,457,102,426,146,436,134,441,165,441,165,436,134,448,122,441,165,448,122,469,137,469,137,448,122,451,118,469,137,451,118,454,114,399,181,408,169,413,195,413,195,408,169,417,158,413,195,417,158,441,165,441,165,417,158,426,146,457,27,469,-4,457,102,436,-1,426,-13,441,-33,441,-33,426,-13,417,-24,441,-33,417,-24,413,-63,413,-63,417,-24,408,-37,413,-63,408,-37,399,-50,438,42,443,42,439,88,438,42,439,88,42,88,438,42,42,88,42,42,207,190,197,236,195,240,207,190,195,240,193,245,207,190,193,245,192,249,207,190,192,249,179,218,77,293,77,286,115,267,606,266,210,313,209,266,203,265,209,266,206,313,203,265,206,313,201,315,191,327,191,252,192,256,191,327,192,256,193,322,193,322,192,256,194,260,193,322,194,260,196,317,196,317,194,260,198,263,196,317,198,263,201,315,201,315,198,263,203,265,209,266,210,313,206,313,210,313,606,266,606,313,77,159,42,419,42,159,451,13,469,-4,454,17,215,6,168,52,188,-30,188,-30,168,52,138,110,188,-30,138,110,131,25,131,25,138,110,127,177,114,304,127,177,134,230,114,304,134,230,151,356,151,356,134,230,154,280,151,356,154,280,201,398,201,398,154,280,186,324,201,398,186,324,228,359,228,359,277,383,261,426,228,359,261,426,201,398,555,178,544,111,551,25,551,25,544,111,513,53,551,25,513,53,494,-30,494,-30,513,53,466,7,494,-30,466,7,423,-67,423,-67,466,7,407,-23,423,-67,407,-23,341,-80,341,-80,407,-23,340,-33,389,387,411,350,415,429,415,429,411,350,430,312,415,429,430,312,455,437,455,437,430,312,449,334,459,230,449,334,446,272,467,350,482,407,465,350,465,350,482,407,463,350,459,349,463,350,482,410,459,349,482,410,495,449,495,449,482,410,483,412,495,449,483,412,485,414,471,348,500,322,481,402,471,348,481,402,481,405,481,405,482,407,471,348,516,431,532,438,534,464,534,464,532,438,548,446,534,464,548,446,572,480,572,480,548,446,564,454,572,480,564,454,580,
-463,492,419,494,421,495,449,495,449,494,421,497,422,495,449,497,422,534,464,534,464,497,422,500,423,534,464,500,423,516,431,495,449,485,414,487,416,495,449,487,416,489,418,495,449,489,418,492,419,482,407,467,350,468,349,482,407,468,349,470,348,482,407,470,348,471,348,482,410,463,350,482,407,455,437,449,334,450,339,455,437,450,339,452,344,455,437,452,344,455,347,455,437,455,347,459,349,455,437,459,349,495,449,449,334,430,312,446,272,389,387,415,429,373,427,389,387,373,427,365,427,389,387,365,427,362,420,508,377,498,386,500,322,500,322,498,386,487,395,500,322,487,395,485,396,590,250,577,285,588,96,588,96,577,285,560,318,588,96,560,318,555,178,555,178,551,25,588,96,560,318,538,348,540,254,560,318,540,254,551,216,560,318,551,216,555,178,529,358,519,368,523,290,529,358,523,290,540,254,529,358,540,254,538,348,508,377,500,322,523,290,508,377,523,290,519,368,500,322,485,396,483,398,500,322,483,398,482,400,500,322,482,400,481,402,590,250,588,96,601,178,590,250,601,178,598,215,474,254,469,271,477,237,477,237,469,271,464,288,477,237,464,288,459,230,459,230,464,288,459,304,459,230,459,304,453,321,459,230,453,321,452,324,459,230,452,324,451,327,459,230,451,327,450,329,459,230,450,329,449,332,459,230,449,332,449,334,273,-23,215,6,259,-67,273,-23,259,-67,341,-80,273,-23,341,-80,340,-33,114,304,90,243,95,96,114,304,95,96,131,25,114,304,131,25,127,177,95,96,90,243,81,178,215,6,188,-30,259,-67,215,7,169,53,188,-30,188,-30,169,53,138,111,188,-30,138,111,131,25,131,25,138,111,127,178,122,318,127,178,131,216,122,318,131,216,144,348,144,348,131,216,142,254,144,348,142,254,159,290,118,454,134,446,148,464,148,464,134,446,150,438,148,464,150,438,187,449,187,449,150,438,166,431,187,449,166,431,182,423,182,423,185,422,187,449,187,449,185,422,188,421,187,449,188,421,226,437,226,437,188,421,190,419,226,437,190,419,193,418,200,400,199,398,211,348,211,348,199,398,197,396,211,348,197,396,195,395,195,395,184,386,211,348,211,348,184,386,182,322,213,349,215,350,226,437,226,437,215,350,217,350,226,437,217,350,219,350,219,
-350,223,349,226,437,226,437,223,349,227,347,226,437,227,347,267,429,267,429,227,347,230,344,267,429,230,344,231,339,231,329,231,327,236,272,236,272,231,327,230,324,236,272,230,324,229,321,229,321,223,304,236,272,236,272,223,304,223,230,309,427,267,429,271,350,309,427,271,350,293,387,309,427,293,387,320,420,309,427,320,420,317,427,232,332,236,272,232,334,232,334,236,272,267,429,267,429,236,272,252,312,267,429,252,312,271,350,232,334,267,429,231,339,226,437,193,418,195,416,226,437,195,416,197,414,226,437,197,414,199,412,226,437,199,412,200,410,226,437,200,410,201,407,226,437,201,407,201,405,226,437,201,405,211,348,226,437,211,348,212,349,226,437,212,349,213,349,211,348,201,405,201,402,211,348,201,402,200,400,110,480,102,463,118,454,110,480,118,454,148,464,223,230,223,304,218,288,223,230,218,288,213,271,223,230,213,271,208,254,223,230,208,254,205,237,184,386,173,377,182,322,182,322,173,377,163,368,182,322,163,368,159,290,159,290,163,368,153,358,159,290,153,358,144,348,555,177,544,110,551,25,551,25,544,110,514,52,551,25,514,52,494,-30,494,-30,514,52,467,6,494,-30,467,6,423,-67,423,-67,467,6,408,-23,423,-67,408,-23,341,-33,341,-33,274,-23,341,-80,341,-80,274,-23,259,-67,215,7,188,-30,259,-67,215,7,259,-67,274,-23,127,178,122,318,131,25,131,25,122,318,105,285,131,25,105,285,95,96,95,96,105,285,92,250,95,96,92,250,84,215,551,25,588,96,555,177,555,177,568,304,548,230,548,230,568,304,530,356,548,230,530,356,528,280,528,280,530,356,496,324,480,398,420,426,454,359,480,398,454,359,496,324,480,398,496,324,530,356,588,96,601,178,592,243,588,96,592,243,568,304,588,96,568,304,555,177,341,-33,341,-80,423,-67,454,359,420,426,405,383,95,96,84,215,81,178,231,329,236,272,232,332,185,205,180,210,130,232,130,232,180,210,178,216,130,232,178,216,169,269,169,269,178,216,177,223,207,307,177,223,182,237,207,307,182,237,196,255,246,346,207,307,215,278,246,346,215,278,238,303,246,346,238,303,263,330,630,154,630,200,207,200,630,154,207,200,193,201,630,154,193,201,87,195,630,154,87,195,38,157,630,154,38,
-157,38,154,87,195,193,201,185,205,87,195,185,205,130,232,87,195,37,157,38,157,169,269,177,223,207,307,207,307,196,255,215,278,196,99,182,117,207,48,207,48,182,117,177,131,169,85,177,131,178,138,169,85,178,138,130,122,130,122,178,138,180,144,130,122,180,144,185,149,630,154,630,200,207,154,193,153,207,154,630,200,193,153,630,200,87,159,87,159,630,200,38,200,87,159,38,200,38,198,185,149,193,153,87,159,185,149,87,159,130,122,196,99,207,48,215,76,215,76,207,48,246,9,215,76,246,9,238,51,238,51,246,9,263,23,207,48,177,131,169,85,203,337,205,340,210,388,210,388,205,340,208,342,210,388,208,342,212,343,212,343,215,343,243,354,243,354,215,343,218,341,243,354,218,341,221,339,202,-108,202,325,182,424,182,424,202,325,202,332,182,424,202,332,210,388,210,388,202,332,203,337,159,463,155,463,202,-108,159,463,202,-108,182,424,282,292,295,283,309,297,282,292,309,297,276,324,282,292,276,324,268,302,228,333,241,321,243,354,243,354,241,321,255,311,243,354,255,311,276,324,276,324,255,311,268,302,225,337,228,333,243,354,225,337,243,354,221,339,243,354,210,388,212,343,202,-108,155,463,155,-108,136,339,139,341,147,388,147,388,139,341,142,343,147,388,142,343,145,343,145,343,149,342,147,388,147,388,149,342,175,424,147,388,114,354,116,321,147,388,116,321,129,333,147,388,129,333,132,337,147,388,132,337,136,339,62,283,75,292,81,324,81,324,75,292,89,302,81,324,89,302,114,354,114,354,89,302,102,311,114,354,102,311,116,321,81,324,48,297,62,283,152,340,154,337,175,424,175,424,154,337,155,332,175,424,155,332,155,325,202,-108,155,325,155,-108,202,-108,202,463,198,463,202,-108,198,463,175,424,202,-108,175,424,155,325,175,424,149,342,152,340,489,210,483,205,630,154,630,154,483,205,475,201,630,154,475,201,461,200,630,154,461,200,38,200,630,154,38,200,38,154,431,303,454,278,462,307,462,307,454,278,473,255,462,307,473,255,500,269,500,269,473,255,486,237,500,269,486,237,491,223,491,223,491,216,630,154,630,154,491,216,489,210,422,346,406,330,431,303,422,346,431,303,462,307,582,195,539,232,491,223,582,195,491,223,630,
-154,582,195,630,154,630,157,491,223,539,232,500,269,630,200,38,200,461,154,630,200,461,154,475,153,630,200,475,153,483,149,630,200,483,149,489,144,630,200,489,144,491,138,630,200,491,138,491,131,630,200,491,131,582,159,630,200,582,159,630,198,491,131,500,85,539,122,491,131,539,122,582,159,454,76,462,48,473,99,473,99,462,48,500,85,473,99,500,85,486,117,486,117,500,85,491,131,431,51,406,23,422,9,431,51,422,9,462,48,431,51,462,48,454,76,461,154,38,200,38,154,205,14,203,18,210,-33,210,-33,203,18,202,23,210,-33,202,23,182,-69,182,-69,202,23,202,30,182,-69,202,30,202,463,159,-108,182,-69,202,463,159,-108,202,463,155,463,159,-108,155,463,155,-108,221,15,218,13,243,0,243,0,218,13,215,11,243,0,215,11,212,11,212,11,208,12,210,-33,210,-33,208,12,205,14,282,62,268,53,276,30,282,62,276,30,309,57,282,62,309,57,295,71,255,43,241,33,243,0,255,43,243,0,276,30,255,43,276,30,268,53,243,0,241,33,228,21,243,0,228,21,225,18,243,0,225,18,221,15,212,11,210,-33,243,0,139,12,147,-33,142,11,142,11,147,-33,145,10,149,11,145,10,147,-33,149,11,147,-33,175,-69,202,463,155,463,175,-69,202,463,175,-69,198,-108,202,463,198,-108,202,-108,175,-69,155,463,155,28,175,-69,155,28,155,21,175,-69,155,21,154,16,175,-69,154,16,152,13,175,-69,152,13,149,11,147,-33,139,12,136,14,147,-33,136,14,132,16,147,-33,132,16,129,20,147,-33,129,20,116,31,147,-33,116,31,114,0,75,61,62,70,81,29,75,61,81,29,89,51,89,51,81,29,114,0,89,51,114,0,102,42,102,42,114,0,116,31,81,29,62,70,48,56,50,69,50,69,89,88,89,88,50,69,89,43,89,88,89,43,124,111,124,111,89,43,124,20,124,111,124,20,156,137,156,137,124,20,157,-4,156,137,157,-4,166,102,166,102,157,-4,166,27,166,102,166,106,156,137,156,137,166,106,167,110,156,137,167,110,186,165,186,165,167,110,170,114,186,165,170,114,172,118,215,195,186,165,188,134,215,195,188,134,199,146,215,195,199,146,209,158,215,195,209,158,219,169,215,195,219,169,229,181,176,122,188,134,186,165,176,
-122,186,165,172,118,209,-24,199,-13,215,-63,215,-63,199,-13,188,-1,215,-63,188,-1,187,-33,187,-33,188,-1,176,9,187,-33,176,9,172,13,593,42,593,88,185,42,185,42,593,88,184,88,185,42,184,88,180,42,180,42,184,88,178,89,180,42,178,89,175,40,175,40,178,89,172,91,175,40,172,91,170,37,170,37,172,91,169,94,170,37,169,94,167,32,167,32,169,94,166,98,167,32,166,98,166,102,219,-37,209,-24,215,-63,219,-37,215,-63,229,-50,481,245,479,240,493,218,493,218,479,240,477,236,493,218,477,236,473,232,473,232,461,220,463,190,463,190,461,220,450,208,463,190,450,208,440,197,434,159,463,190,440,197,434,159,440,197,430,185,434,159,430,185,420,173,480,338,482,334,493,360,493,360,482,334,483,331,493,360,483,331,483,327,483,327,483,252,493,218,493,218,483,252,482,249,483,252,483,327,482,256,482,256,483,327,482,322,482,256,482,322,480,260,480,260,482,322,478,317,480,260,478,317,477,263,477,263,478,317,474,315,477,263,474,315,472,265,472,265,474,315,469,313,472,265,469,313,465,266,465,266,469,313,464,313,450,368,462,357,462,388,462,388,462,357,473,345,462,388,473,345,493,360,493,360,473,345,477,341,493,360,477,341,480,338,420,405,430,392,434,419,434,419,430,392,440,380,434,419,440,380,462,388,462,388,440,380,450,368,599,286,599,293,561,267,561,267,599,293,561,312,561,267,561,312,525,244,525,244,561,312,525,334,525,244,525,334,493,218,493,218,525,334,493,360,493,218,493,360,483,327,473,232,463,190,493,218,56,313,56,266,465,266,56,313,465,266,464,313,166,23,166,27,157,-4,166,23,157,-4,167,20,167,20,157,-4,187,-33,167,20,187,-33,169,17,169,17,187,-33,172,13,166,102,166,27,167,32,481,245,493,218,482,249,89,43,50,69,50,62,301,38,307,-1,314,26,314,26,307,-1,335,-34,314,26,335,-34,327,13,327,13,335,-34,330,10,106,344,110,347,111,389,111,389,110,347,113,349,111,389,113,349,135,425,135,425,113,349,116,350,135,425,116,350,120,351,120,351,124,350,135,425,135,425,124,350,128,348,135,425,128,348,132,345,134,340,135,333,135,425,135,425,135,333,155,463,155,463,135,333,181,-101,155,463,181,
--101,162,463,162,463,181,-101,181,332,162,463,181,332,182,425,182,425,181,332,182,339,182,425,182,339,184,344,102,341,106,344,111,389,102,341,111,389,90,328,90,328,111,389,83,356,90,328,83,356,77,316,77,316,83,356,63,305,53,326,22,298,35,284,53,326,35,284,49,294,53,326,49,294,63,305,53,326,63,305,83,356,184,344,187,348,206,389,206,389,187,348,191,349,206,389,191,349,195,350,195,350,199,350,206,389,206,389,199,350,203,348,206,389,203,348,207,346,241,316,255,304,264,325,264,325,255,304,268,293,264,325,268,293,295,297,295,297,268,293,282,283,234,356,206,389,207,346,234,356,207,346,211,344,234,356,211,344,215,340,234,356,215,340,228,328,234,356,228,328,241,316,234,356,241,316,264,325,356,10,352,6,359,-70,359,-70,352,6,348,4,359,-70,348,4,344,3,344,3,340,4,359,-70,359,-70,340,4,337,5,359,-70,337,5,335,-34,335,-34,337,5,334,7,335,-34,334,7,330,10,408,11,406,16,406,-70,406,-70,406,16,405,23,405,23,405,456,386,-108,386,-108,405,456,379,-108,405,456,359,456,379,-108,379,-108,359,456,359,22,379,-108,359,22,359,-70,359,-70,359,22,358,15,359,-70,358,15,356,10,431,8,427,6,430,-34,430,-34,427,6,423,4,430,-34,423,4,420,4,420,4,415,5,430,-34,430,-34,415,5,412,7,430,-34,412,7,408,11,465,39,452,27,458,-1,458,-1,452,27,439,14,458,-1,439,14,435,11,492,61,479,50,488,28,492,61,488,28,520,57,492,61,520,57,506,71,465,39,458,-1,488,28,465,39,488,28,479,50,431,8,430,-34,458,-1,431,8,458,-1,435,11,287,50,273,61,277,28,287,50,277,28,307,-1,287,50,307,-1,301,38,259,70,245,57,277,28,259,70,277,28,273,61,135,333,135,-101,181,-101,406,-70,405,23,386,-108,408,11,406,-70,430,-34,182,425,184,344,206,389,135,425,132,345,134,340,172,236,170,240,186,190,186,190,170,240,167,245,186,190,167,245,156,218,156,218,167,245,166,249,156,218,166,249,166,252,167,334,169,338,187,388,187,388,169,338,172,341,187,388,172,341,176,345,176,345,188,357,187,388,187,388,188,357,215,419,166,252,166,327,157,360,166,252,157,360,156,218,156,218,157,360,124,
-334,156,218,124,334,124,244,124,244,124,334,89,312,124,244,89,312,89,267,89,267,89,312,50,293,89,267,50,293,50,286,157,360,166,327,166,331,157,360,166,331,167,334,157,360,167,334,187,388,215,419,188,357,199,368,215,419,199,368,209,380,215,419,209,380,219,392,215,419,219,392,229,405,215,159,229,173,219,185,215,159,219,185,209,197,215,159,209,197,199,208,215,159,199,208,188,220,215,159,188,220,186,190,482,20,480,17,493,-4,493,-4,480,17,477,13,493,-4,477,13,473,9,473,9,462,-1,462,-33,462,-33,462,-1,450,-13,462,-33,450,-13,440,-24,434,-63,462,-33,440,-24,434,-63,440,-24,430,-37,434,-63,430,-37,420,-50,440,158,450,146,463,165,463,165,450,146,461,134,463,165,461,134,473,122,473,122,477,118,493,137,493,137,477,118,479,114,493,137,479,114,481,110,434,195,420,181,430,169,434,195,430,169,440,158,434,195,440,158,463,165,481,110,482,106,493,137,493,137,482,106,483,102,493,137,483,102,493,-4,493,-4,483,102,483,27,483,27,483,102,482,98,483,27,482,98,482,32,482,32,482,98,480,94,482,32,480,94,478,37,478,37,480,94,477,91,478,37,477,91,474,40,474,40,477,91,472,89,474,40,472,89,469,42,469,42,472,89,465,88,483,27,483,23,493,-4,473,9,462,-33,493,-4,493,137,525,20,525,111,525,111,525,20,561,43,525,111,561,43,561,88,561,88,561,43,599,62,561,88,599,62,599,69,493,137,463,165,473,122,464,42,469,42,465,88,464,42,465,88,56,88,464,42,56,88,56,42,176,232,172,236,186,190,176,232,186,190,188,220,593,266,185,313,184,266,178,265,184,266,180,313,178,265,180,313,175,315,166,327,166,252,166,256,166,327,166,256,167,322,167,322,166,256,169,260,167,322,169,260,170,317,170,317,169,260,172,263,170,317,172,263,175,315,175,315,172,263,178,265,184,266,185,313,180,313,185,313,593,266,593,313,493,137,493,-4,525,20,482,20,493,-4,483,23,173,151,145,127,166,106,166,106,145,127,166,102,166,27,166,102,156,-4,156,-4,166,102,145,127,156,-4,145,127,123,20,123,20,145,127,115,105,123,20,115,105,88,43,88,43,115,105,83,85,88,43,83,85,49,69,49,293,84,269,88,312,88,
-312,84,269,115,250,88,312,115,250,124,334,124,334,115,250,145,228,124,334,145,228,156,360,156,360,145,228,166,247,156,360,166,247,166,251,202,207,192,217,198,177,198,177,192,217,183,225,198,177,183,225,175,233,175,233,171,237,173,204,173,204,171,237,169,240,173,204,169,240,167,244,166,247,145,228,173,204,166,247,173,204,167,244,209,-24,199,-13,215,-63,215,-63,199,-13,188,-1,215,-63,188,-1,187,-33,187,-33,188,-1,176,9,187,-33,176,9,172,13,202,207,198,177,203,150,202,207,203,150,214,194,214,194,203,150,214,163,214,194,214,163,227,177,175,233,173,204,198,177,198,177,173,151,176,122,198,177,176,122,184,131,198,177,184,131,193,140,198,177,193,140,203,150,167,110,170,114,173,151,173,151,170,114,172,118,173,151,172,118,176,122,167,334,170,338,187,389,187,389,170,338,172,342,187,389,172,342,176,346,176,346,188,358,187,389,187,389,188,358,216,420,166,327,166,330,156,360,166,327,156,360,166,251,167,334,187,389,156,360,167,334,156,360,166,330,216,420,188,358,199,370,216,420,199,370,210,381,216,420,210,381,220,393,216,420,220,393,230,406,166,102,166,31,166,98,166,98,166,31,168,35,166,98,168,35,169,94,169,94,168,35,172,39,169,94,172,39,172,91,172,91,172,39,177,41,172,91,177,41,178,89,178,89,177,41,184,42,178,89,184,42,184,88,184,88,184,42,599,42,184,88,599,42,599,88,184,313,178,313,179,265,184,313,179,265,184,266,184,313,184,266,599,266,184,313,599,266,599,313,179,265,178,313,174,262,174,262,178,313,172,315,174,262,172,315,170,259,170,259,172,315,169,319,170,259,169,319,167,255,167,255,169,319,166,322,167,255,166,322,166,327,166,327,166,251,167,255,219,-37,209,-24,215,-63,219,-37,215,-63,229,-50,166,23,166,27,156,-4,166,23,156,-4,167,20,167,20,156,-4,187,-33,167,20,187,-33,169,17,169,17,187,-33,172,13,84,269,49,293,49,286,166,102,166,27,166,31,88,43,49,69,49,62,173,151,166,106,167,110,128,344,136,425,124,346,124,346,136,425,120,347,116,346,120,347,136,425,116,346,136,425,113,389,128,344,132,341,136,425,136,425,132,341,134,336,136,425,134,336,135,329,181,-108,135,
-329,135,-108,113,389,88,356,91,325,113,389,91,325,102,337,113,389,102,337,106,340,113,389,106,340,110,343,113,389,110,343,113,345,113,389,113,345,116,346,42,284,55,293,59,326,59,326,55,293,68,303,59,326,68,303,88,356,88,356,68,303,79,314,88,356,79,314,91,325,59,326,29,298,42,284,178,429,162,463,181,-108,178,429,181,-108,181,328,178,429,181,328,182,335,178,429,182,335,198,397,184,340,187,344,198,397,198,397,187,344,191,346,198,397,191,346,195,347,195,347,199,346,198,397,198,397,199,346,220,367,181,-108,162,463,155,463,181,-108,155,463,136,425,181,-108,136,425,135,329,243,309,255,298,244,339,244,339,255,298,270,313,297,339,270,313,270,285,297,339,270,285,287,299,211,340,215,337,220,367,220,367,215,337,224,328,220,367,224,328,244,339,244,339,224,328,233,319,244,339,233,319,243,309,220,367,199,346,203,345,220,367,203,345,207,343,220,367,207,343,211,340,300,310,310,320,321,367,321,367,310,320,319,329,321,367,319,329,327,338,327,338,330,341,343,397,343,397,330,341,334,344,343,397,334,344,337,346,297,339,287,299,300,310,297,339,300,310,321,367,352,343,362,429,348,346,348,346,362,429,344,347,340,347,344,347,343,397,340,347,343,397,337,346,343,397,321,367,327,338,352,343,356,338,362,429,362,429,356,338,358,333,362,429,358,333,359,329,405,-108,359,329,359,-108,362,429,343,397,344,347,405,425,386,463,405,-108,405,425,405,-108,405,328,405,425,405,328,406,335,405,425,406,335,427,389,408,340,412,344,427,389,427,389,412,344,415,346,427,389,415,346,420,347,420,347,423,346,427,389,427,389,423,346,427,345,427,389,427,345,431,343,463,313,474,303,482,325,482,325,474,303,486,293,482,325,486,293,513,297,513,297,486,293,499,283,453,356,427,389,431,343,453,356,431,343,435,340,453,356,435,340,439,337,453,356,439,337,451,325,453,356,451,325,463,313,453,356,463,313,482,325,405,-108,386,463,379,463,405,-108,379,463,362,429,405,-108,362,429,359,329,270,313,255,298,270,285,427,389,406,335,408,340,198,397,182,335,184,340,475,151,449,177,455,140,456,217,449,177,475,204,456,217,475,204,465,225,465,225,475,204,473,233,477,237,473,233,475,
-204,477,237,475,204,503,228,465,266,469,265,471,313,465,266,471,313,464,313,465,266,464,313,49,313,465,266,49,313,49,266,481,20,479,17,492,-4,492,-4,479,17,476,13,492,-4,476,13,473,9,473,9,461,-1,462,-33,462,-33,461,-1,449,-13,462,-33,449,-13,439,-24,434,-63,462,-33,439,-24,434,-63,439,-24,429,-37,434,-63,429,-37,420,-50,503,127,475,151,476,118,476,118,475,151,473,122,464,131,473,122,475,151,464,131,475,151,455,140,438,381,449,370,461,389,461,389,449,370,460,358,461,389,460,358,473,346,473,346,476,342,492,360,492,360,476,342,479,338,492,360,479,338,481,334,433,420,419,406,428,393,433,420,428,393,438,381,433,420,438,381,461,389,445,150,455,140,449,177,445,150,449,177,446,207,445,150,446,207,434,194,445,150,434,194,434,162,481,20,492,-4,482,23,482,23,492,-4,482,27,482,102,492,-4,503,127,503,127,492,-4,525,20,503,127,525,20,533,105,533,105,525,20,561,43,533,105,561,43,565,85,565,85,561,43,599,62,565,85,599,62,599,69,464,88,465,42,471,89,471,89,465,42,471,41,471,89,471,41,476,91,476,91,471,41,476,39,476,91,476,39,479,94,479,94,476,39,480,35,479,94,480,35,481,98,481,98,480,35,481,31,481,98,481,31,482,102,482,102,481,31,482,27,482,27,492,-4,482,102,473,9,462,-33,492,-4,479,114,481,110,503,127,503,127,481,110,482,106,503,127,482,106,482,102,481,334,482,330,492,360,492,360,482,330,482,327,492,360,482,327,503,228,503,228,482,327,482,251,482,251,482,247,503,228,503,228,482,247,481,244,503,228,481,244,479,240,482,251,482,327,481,322,482,251,481,322,481,255,481,255,481,322,479,319,481,255,479,319,478,259,478,259,479,319,476,315,478,259,476,315,474,262,474,262,476,315,471,313,474,262,471,313,469,265,492,360,461,389,473,346,492,360,503,228,525,334,525,334,503,228,533,250,525,334,533,250,561,312,561,312,533,250,565,269,561,312,565,269,599,293,599,293,565,269,599,286,49,88,49,42,465,42,49,88,465,42,464,88,449,177,456,217,446,207,477,237,503,228,479,240,503,127,476,118,479,114,434,162,434,194,420,177,113,9,110,11,113,-34,113,-34,110,11,106,14,113,
--34,106,14,102,17,102,17,91,29,113,-34,113,-34,91,29,88,-1,132,14,128,10,136,-70,136,-70,128,10,124,8,136,-70,124,8,120,8,120,8,116,8,136,-70,136,-70,116,8,113,-34,181,463,135,463,136,-70,181,463,136,-70,155,-108,181,463,155,-108,162,-108,181,463,162,-108,178,-74,181,463,178,-74,181,26,136,-70,135,463,135,25,136,-70,135,25,134,18,136,-70,134,18,132,14,91,29,79,40,88,-1,88,-1,79,40,68,51,88,-1,68,51,59,28,59,28,68,51,55,61,59,28,55,61,42,70,187,11,198,-42,191,8,191,8,198,-42,195,8,199,8,195,8,198,-42,199,8,198,-42,220,-13,207,11,220,-13,211,14,211,14,220,-13,215,17,224,26,215,17,220,-13,224,26,220,-13,244,14,319,25,310,34,321,-12,321,-12,310,34,300,44,321,-12,300,44,297,15,297,15,300,44,287,55,297,15,287,55,270,41,270,41,287,55,270,70,270,41,270,70,255,56,270,41,255,56,244,14,244,14,255,56,243,45,244,14,243,45,233,35,327,17,319,25,321,-12,327,17,321,-12,343,-42,327,17,343,-42,330,14,356,16,352,12,362,-74,362,-74,352,12,348,9,362,-74,348,9,344,8,344,8,340,8,343,-42,343,-42,340,8,337,9,343,-42,337,9,334,11,405,463,359,463,362,-74,405,463,362,-74,379,-108,405,463,379,-108,386,-108,405,463,386,-108,405,-70,405,463,405,-70,405,26,362,-74,359,463,359,25,362,-74,359,25,358,21,362,-74,358,21,356,16,344,8,343,-42,362,-74,431,11,427,9,427,-34,427,-34,427,9,423,8,427,-34,423,8,420,8,420,8,415,8,427,-34,427,-34,415,8,412,11,427,-34,412,11,408,14,486,62,474,51,482,28,482,28,474,51,463,41,482,28,463,41,453,-1,453,-1,463,41,451,29,453,-1,451,29,439,17,439,17,435,14,453,-1,453,-1,435,14,431,11,453,-1,431,11,427,-34,513,57,499,71,486,62,513,57,486,62,482,28,406,19,405,26,405,-70,406,19,405,-70,427,-34,406,19,427,-34,408,14,203,9,199,8,220,-13,203,9,220,-13,207,11,181,26,178,-74,182,19,182,19,178,-74,198,-42,182,19,198,-42,184,14,184,14,198,-42,187,11,330,14,343,-42,334,11,224,26,244,14,233,35,59,28,42,70,29,57,113,9,113,
--34,116,8,176,272,172,273,125,279,125,279,172,273,170,276,125,279,170,276,158,311,158,311,170,276,170,280,201,323,211,337,216,377,216,377,211,337,220,350,216,377,220,350,230,364,201,323,216,377,191,310,191,310,216,377,189,345,191,310,189,345,179,297,179,297,189,345,176,293,189,345,158,311,170,283,189,345,170,283,171,287,189,345,171,287,173,290,189,345,173,290,176,293,599,224,599,270,188,270,599,224,188,270,181,271,599,224,181,271,88,250,599,224,88,250,49,227,599,224,49,227,49,224,125,279,88,250,181,271,125,279,181,271,176,272,477,68,475,65,490,43,490,43,475,65,472,61,490,43,472,61,469,57,469,57,457,44,460,9,460,9,457,44,447,31,460,9,447,31,437,18,428,4,419,-9,433,-22,428,4,433,-22,437,18,437,18,433,-22,460,9,599,130,49,130,461,84,599,130,461,84,468,84,599,130,468,84,473,83,599,130,473,83,476,81,599,130,476,81,478,78,599,130,478,78,479,74,599,130,479,74,560,104,599,130,560,104,599,127,479,74,490,43,524,75,479,74,524,75,560,104,478,71,477,68,490,43,478,71,490,43,479,74,469,57,460,9,490,43,461,84,49,130,49,84,170,283,158,311,170,280,476,273,473,272,599,224,599,224,473,272,468,271,599,224,468,271,461,270,599,224,461,270,49,270,599,224,49,270,49,224,475,290,477,287,490,311,490,311,477,287,478,283,490,311,478,283,479,280,479,280,478,276,599,224,599,224,478,276,476,273,447,323,457,310,460,345,460,345,457,310,469,297,460,345,469,297,490,311,490,311,469,297,472,293,490,311,472,293,475,290,419,364,428,350,433,377,433,377,428,350,437,337,433,377,437,337,460,345,460,345,437,337,447,323,560,250,524,279,479,280,560,250,479,280,599,224,560,250,599,224,599,227,173,65,171,68,189,9,189,9,171,68,170,71,189,9,170,71,158,43,158,43,170,71,170,74,599,84,599,130,188,84,181,84,188,84,599,130,181,84,599,130,88,104,88,104,599,130,49,130,88,104,49,130,49,127,211,18,201,31,216,-22,216,-22,201,31,191,44,216,-22,191,44,189,9,189,9,191,44,179,57,189,9,179,57,176,61,170,78,172,81,125,75,170,78,125,75,158,43,170,78,158,43,170,
-74,125,75,172,81,176,83,125,75,176,83,181,84,125,75,181,84,88,104,220,4,211,18,216,-22,220,4,216,-22,230,-9,173,65,189,9,176,61,479,280,524,279,490,311,263,270,257,271,463,224,463,224,257,271,163,224,149,216,163,224,197,297,149,216,197,297,145,257,197,297,163,224,257,271,197,297,257,271,252,274,197,297,252,274,248,278,197,297,248,278,246,282,197,297,246,282,245,286,197,297,245,286,248,340,145,257,93,219,94,135,145,257,94,135,123,187,145,257,123,187,129,197,145,257,129,197,138,207,145,257,138,207,149,216,138,148,129,158,146,97,146,97,129,158,123,167,146,97,123,167,94,135,94,135,123,167,121,177,42,180,42,173,94,135,42,180,94,135,93,219,247,57,246,62,249,15,249,15,246,62,245,69,198,57,245,69,246,72,198,57,246,72,248,77,298,386,248,340,251,304,298,386,251,304,255,309,298,386,255,309,260,314,298,386,260,314,271,325,298,386,271,325,282,337,298,386,282,337,292,348,298,386,292,348,303,360,298,386,303,360,313,372,248,340,245,286,246,293,248,340,246,293,248,299,248,340,248,299,251,304,138,148,146,97,149,139,149,139,146,97,198,57,149,139,198,57,162,130,162,130,198,57,257,83,162,130,257,83,420,130,420,130,257,83,263,84,420,130,263,84,399,84,252,80,257,83,198,57,252,80,198,57,248,77,463,224,420,130,438,84,463,224,438,84,459,130,463,224,459,130,502,224,463,224,502,224,484,270,463,224,484,270,263,270,522,270,576,386,537,386,522,270,537,386,502,224,522,270,502,224,606,224,522,270,606,224,606,270,399,84,347,-29,386,-29,399,84,386,-29,438,84,399,84,438,84,420,130,459,130,438,84,606,84,459,130,606,84,606,130,247,57,249,15,250,51,250,51,249,15,298,-30,250,51,298,-30,255,46,255,46,298,-30,261,39,298,-30,313,-16,302,-4,298,-30,302,-4,290,9,298,-30,290,9,278,22,298,-30,278,22,268,32,298,-30,268,32,261,39,249,15,245,69,198,57,484,270,502,224,537,386,123,187,94,135,121,177,237,362,184,315,206,294,206,294,184,315,202,284,204,278,202,284,184,315,204,278,184,315,134,224,237,362,206,294,215,306,237,362,215,306,228,320,237,362,228,320,241,333,237,
-362,241,333,252,346,184,40,237,-6,206,61,184,40,206,61,204,71,204,71,205,77,184,40,184,40,205,77,133,130,184,40,133,130,131,85,131,85,133,130,120,139,131,85,120,139,109,149,207,81,212,83,299,130,299,130,212,83,219,84,299,130,219,84,228,84,299,130,228,84,291,84,299,130,291,84,311,-6,311,-6,291,84,275,-6,133,130,205,77,207,81,133,130,207,81,299,130,109,149,100,158,131,85,131,85,100,158,94,168,131,85,94,168,82,124,82,124,94,168,92,177,316,224,299,130,311,-6,316,224,311,-6,327,84,316,224,327,84,323,270,316,224,323,270,226,270,316,224,226,270,219,271,316,224,219,271,213,272,316,224,213,272,207,274,316,224,207,274,134,224,340,362,323,270,327,84,340,362,327,84,334,130,340,362,334,130,352,224,340,362,352,224,359,270,340,362,359,270,376,362,237,-6,252,9,237,26,237,-6,237,26,224,40,237,-6,224,40,213,51,237,-6,213,51,206,61,553,167,567,124,555,177,555,177,567,124,568,231,568,231,567,124,607,154,568,231,607,154,607,200,607,200,607,154,634,173,607,200,634,173,634,180,539,206,547,196,568,231,568,231,547,196,553,187,568,231,553,187,555,177,539,206,568,231,527,215,527,215,568,231,520,270,527,215,520,270,515,224,515,224,520,270,467,315,515,224,467,315,441,285,441,285,467,315,438,299,515,224,441,285,441,281,515,224,441,281,439,277,515,224,439,277,435,274,515,224,435,274,429,271,515,224,429,271,422,270,515,224,422,270,359,270,515,224,359,270,352,224,395,345,406,334,414,362,414,362,406,334,418,323,414,362,418,323,467,315,467,315,418,323,430,311,467,315,430,311,438,299,514,130,443,73,465,41,514,130,465,41,518,86,514,130,438,82,441,80,514,130,441,80,443,77,514,130,443,77,443,73,465,41,443,73,439,60,465,41,439,60,430,46,514,130,334,130,422,84,514,130,422,84,432,84,514,130,432,84,438,82,567,124,553,167,547,157,567,124,547,157,538,148,567,124,538,148,527,139,567,124,527,139,518,86,527,139,514,130,518,86,418,32,405,19,414,-6,418,32,414,-6,465,41,418,32,465,41,430,46,41,201,14,180,41,155,41,201,41,155,82,232,82,232,41,155,82,124,82,232,82,
-124,92,177,130,271,82,232,95,187,130,271,95,187,101,197,130,271,101,197,109,207,130,271,109,207,121,216,130,271,121,216,134,224,130,271,134,224,184,315,41,155,14,180,14,173,82,232,92,177,95,187,414,-6,405,19,395,8,422,84,334,130,327,84,134,224,207,274,204,278,400,278,397,274,486,224,486,224,397,274,392,271,486,224,392,271,385,270,486,224,385,270,248,270,486,224,248,270,227,224,227,224,248,270,263,386,227,224,263,386,209,270,401,57,398,51,400,15,400,15,398,51,393,46,400,15,393,46,387,39,393,309,397,304,400,340,400,340,397,304,401,299,400,340,401,299,451,297,451,297,401,299,402,293,451,297,402,293,403,286,403,286,402,282,486,224,486,224,402,282,400,278,400,340,350,386,356,348,400,340,356,348,367,337,400,340,367,337,377,325,400,340,377,325,388,314,400,340,388,314,393,309,403,69,403,62,451,57,403,69,451,57,487,130,403,69,487,130,402,72,402,72,487,130,400,77,400,77,487,130,397,80,188,224,163,84,184,130,184,130,163,84,385,84,184,130,385,84,487,130,487,130,385,84,392,83,487,130,392,83,397,80,525,167,519,158,554,135,554,135,519,158,510,148,554,135,510,148,503,97,503,97,510,148,499,139,503,97,499,139,487,130,555,219,503,257,510,207,555,219,510,207,519,197,555,219,519,197,525,187,555,219,525,187,527,177,555,219,527,177,554,135,555,219,554,135,606,173,555,219,606,173,606,180,525,167,554,135,527,177,503,257,451,297,486,224,503,257,486,224,499,216,503,257,499,216,510,207,403,286,486,224,451,297,487,130,451,57,503,97,401,57,400,15,451,57,401,57,451,57,403,62,400,15,387,39,380,32,400,15,380,32,370,22,400,15,370,22,359,9,400,15,359,9,350,-30,346,-4,335,-16,350,-30,346,-4,350,-30,359,9,350,386,335,372,346,360,350,386,346,360,356,348,124,84,73,-30,111,-30,124,84,111,-30,163,84,124,84,163,84,145,130,124,84,145,130,42,130,124,84,42,130,42,84,188,224,184,130,227,224,188,224,227,224,209,270,188,224,209,270,42,270,188,224,42,270,42,224,145,130,163,84,188,224,263,386,248,270,301,386,138,148,129,158,146,97,146,97,129,158,123,167,146,97,123,167,94,
-135,94,135,123,167,121,177,606,270,263,270,606,224,606,224,263,270,163,224,149,216,163,224,197,297,149,216,197,297,145,257,197,297,163,224,257,271,197,297,257,271,252,274,197,297,252,274,248,278,197,297,248,278,246,282,197,297,246,282,245,286,197,297,245,286,248,340,145,257,93,219,94,135,145,257,94,135,123,187,145,257,123,187,129,197,145,257,129,197,138,207,145,257,138,207,149,216,42,180,42,173,94,135,42,180,94,135,93,219,247,57,246,62,249,15,249,15,246,62,245,69,198,57,245,69,246,72,198,57,246,72,248,77,245,286,246,293,248,340,298,386,248,340,251,304,298,386,251,304,255,309,298,386,255,309,260,314,298,386,260,314,271,325,298,386,271,325,282,337,298,386,282,337,292,348,298,386,292,348,303,360,298,386,303,360,313,372,248,340,246,293,248,299,248,340,248,299,251,304,248,77,252,80,198,57,198,57,252,80,257,83,198,57,257,83,162,130,162,130,257,83,263,84,162,130,263,84,606,130,606,130,263,84,606,84,149,139,138,148,146,97,149,139,146,97,198,57,149,139,198,57,162,130,247,57,249,15,250,51,250,51,249,15,298,-30,250,51,298,-30,255,46,255,46,298,-30,261,39,298,-30,313,-16,302,-4,298,-30,302,-4,290,9,298,-30,290,9,278,22,298,-30,278,22,268,32,298,-30,268,32,261,39,163,224,263,270,257,271,249,15,245,69,198,57,123,187,94,135,121,177,139,257,160,360,135,259,135,259,160,360,131,260,125,260,131,260,160,360,125,260,160,360,120,308,147,242,193,-108,160,360,160,360,193,-108,193,344,160,360,193,344,198,412,198,412,193,344,202,357,198,412,202,357,237,463,237,463,202,357,211,368,237,463,211,368,220,377,160,360,139,257,143,254,160,360,143,254,146,249,160,360,146,249,147,242,120,308,78,257,85,228,120,308,85,228,95,238,120,308,95,238,102,245,120,308,102,245,109,251,120,308,109,251,114,255,120,308,114,255,120,258,120,308,120,258,125,260,78,257,31,207,45,192,78,257,45,192,58,203,78,257,58,203,72,216,78,257,72,216,85,228,244,463,240,384,250,382,244,463,250,382,282,412,282,412,250,382,260,377,282,412,260,377,269,368,237,463,220,377,230,382,237,463,230,382,240,384,237,
-463,240,384,244,463,269,368,278,356,282,412,282,412,278,356,287,343,320,360,287,343,333,-108,320,360,333,-108,333,242,337,254,341,257,360,308,360,308,341,257,345,259,360,308,345,259,348,260,348,260,355,260,360,308,360,308,355,260,361,258,360,308,361,258,402,257,402,257,361,258,366,256,402,257,366,256,371,251,402,257,371,251,377,245,377,245,388,235,402,257,402,257,388,235,399,224,402,257,399,224,411,213,448,207,402,257,411,213,448,207,411,213,423,203,448,207,423,203,434,192,334,249,337,254,360,308,334,249,360,308,320,360,334,249,320,360,333,242,287,343,287,-108,333,-108,282,412,287,343,320,360,193,-108,147,242,147,-108,400,278,397,274,486,224,486,224,397,274,392,271,486,224,392,271,385,270,486,224,385,270,42,270,486,224,42,270,42,224,401,57,398,51,400,15,400,15,398,51,393,46,400,15,393,46,387,39,393,309,397,304,400,340,400,340,397,304,401,299,400,340,401,299,451,297,451,297,401,299,402,293,451,297,402,293,403,286,403,286,402,282,486,224,486,224,402,282,400,278,400,340,350,386,356,348,400,340,356,348,367,337,400,340,367,337,377,325,400,340,377,325,388,314,400,340,388,314,393,309,403,69,403,62,451,57,403,69,451,57,487,130,403,69,487,130,402,72,402,72,487,130,400,77,400,77,487,130,397,80,487,130,42,130,385,84,487,130,385,84,392,83,487,130,392,83,397,80,525,167,519,158,554,135,554,135,519,158,510,148,554,135,510,148,503,97,503,97,510,148,499,139,503,97,499,139,487,130,555,219,503,257,510,207,555,219,510,207,519,197,555,219,519,197,525,187,555,219,525,187,527,177,555,219,527,177,554,135,555,219,554,135,606,173,555,219,606,173,606,180,525,167,554,135,527,177,503,257,451,297,486,224,503,257,486,224,499,216,503,257,499,216,510,207,403,286,486,224,451,297,487,130,451,57,503,97,401,57,400,15,451,57,401,57,451,57,403,62,400,15,387,39,380,32,400,15,380,32,370,22,400,15,370,22,359,9,400,15,359,9,350,-30,346,-4,335,-16,350,-30,346,-4,350,-30,359,9,350,386,335,372,346,360,350,386,346,360,356,348,385,84,42,130,42,84,143,100,139,96,160,-5,160,-5,139,96,135,94,160,-5,135,
-94,131,94,131,94,125,94,160,-5,160,-5,125,94,120,46,220,-21,211,-13,237,-108,237,-108,211,-13,202,-1,237,-108,202,-1,198,-57,198,-57,202,-1,193,10,198,-57,193,10,160,-5,193,463,147,463,160,-5,193,463,160,-5,193,10,160,-5,147,463,147,112,160,-5,147,112,146,105,160,-5,146,105,143,100,120,46,125,94,120,96,120,46,120,96,114,99,120,46,114,99,109,104,120,46,109,104,102,110,120,46,102,110,95,117,120,46,95,117,85,127,120,46,85,127,78,97,78,97,85,127,72,138,78,97,72,138,58,151,78,97,58,151,45,162,78,97,45,162,31,147,220,-21,237,-108,230,-27,230,-27,237,-108,240,-29,250,-27,240,-29,244,-108,250,-27,244,-108,282,-57,341,96,337,100,360,46,360,46,337,100,334,105,360,46,334,105,320,-5,320,-5,334,105,333,112,320,-5,333,112,333,463,333,463,287,463,320,-5,320,-5,287,463,287,11,320,-5,287,11,282,-57,282,-57,287,11,278,-1,282,-57,278,-1,269,-12,260,-21,250,-27,282,-57,260,-21,282,-57,269,-12,371,103,366,99,402,97,402,97,366,99,361,96,402,97,361,96,360,46,360,46,361,96,355,94,360,46,355,94,348,94,348,94,345,94,360,46,360,46,345,94,341,96,399,130,388,120,402,97,402,97,388,120,377,109,402,97,377,109,371,103,448,147,434,162,423,151,448,147,423,151,411,141,448,147,411,141,402,97,240,-29,237,-108,244,-108,399,130,402,97,411,141,237,362,184,315,206,294,206,294,184,315,202,284,204,278,202,284,184,315,204,278,184,315,134,224,237,362,206,294,215,306,237,362,215,306,228,320,237,362,228,320,241,333,237,362,241,333,252,346,184,40,237,-6,206,61,184,40,206,61,204,71,204,71,205,77,184,40,184,40,205,77,133,130,184,40,133,130,131,85,131,85,133,130,120,139,131,85,120,139,109,149,205,77,207,81,133,130,133,130,207,81,212,83,133,130,212,83,514,130,514,130,212,83,219,84,514,130,219,84,228,84,514,130,228,84,422,84,514,130,422,84,432,84,237,-6,252,9,237,26,237,-6,237,26,224,40,237,-6,224,40,213,51,237,-6,213,51,206,61,439,277,435,274,515,224,515,224,435,274,429,271,515,224,429,271,422,270,515,224,422,270,226,270,515,224,226,270,219,
-271,418,323,430,311,467,315,467,315,430,311,438,299,467,315,438,299,441,285,441,285,441,281,515,224,515,224,441,281,439,277,414,362,395,345,406,334,414,362,406,334,418,323,414,362,418,323,467,315,514,130,443,73,465,41,514,130,465,41,518,86,514,130,438,82,441,80,514,130,441,80,443,77,514,130,443,77,443,73,465,41,443,73,439,60,465,41,439,60,430,46,109,149,100,158,131,85,131,85,100,158,94,168,131,85,94,168,82,124,82,124,94,168,92,177,567,124,607,154,568,231,567,124,568,231,555,177,567,124,555,177,553,167,567,124,553,167,547,157,567,124,547,157,538,148,567,124,538,148,527,139,567,124,527,139,518,86,527,139,514,130,518,86,539,206,547,196,568,231,568,231,547,196,553,187,568,231,553,187,555,177,418,32,405,19,414,-6,418,32,414,-6,465,41,418,32,465,41,430,46,607,200,568,231,607,154,607,200,607,154,634,173,607,200,634,173,634,180,539,206,568,231,527,215,527,215,568,231,520,270,527,215,520,270,515,224,515,224,520,270,467,315,515,224,467,315,441,285,134,224,515,224,219,271,134,224,219,271,213,272,134,224,213,272,207,274,134,224,207,274,204,278,41,201,14,180,41,155,41,201,41,155,82,232,82,232,41,155,82,124,82,232,82,124,92,177,130,271,82,232,95,187,130,271,95,187,101,197,130,271,101,197,109,207,130,271,109,207,121,216,130,271,121,216,134,224,130,271,134,224,184,315,41,155,14,180,14,173,82,232,92,177,95,187,414,-6,405,19,395,8,514,130,432,84,438,82,143,52,139,49,160,-52,160,-52,139,49,135,47,160,-52,135,47,131,46,131,46,125,47,160,-52,160,-52,125,47,120,0,139,305,160,407,135,307,135,307,160,407,131,308,125,307,131,308,160,407,125,307,160,407,120,356,193,-36,193,391,160,-52,160,-52,193,391,160,407,160,-52,160,407,147,290,147,290,160,407,146,297,160,407,139,305,143,302,160,407,143,302,146,297,120,356,78,305,85,275,120,356,85,275,95,285,120,356,95,285,102,292,120,356,102,292,109,298,120,356,109,298,114,303,120,356,114,303,120,306,120,356,120,306,125,307,78,305,31,255,45,240,78,305,45,240,58,251,78,305,58,251,72,263,78,305,72,263,85,275,220,
--69,237,-156,230,-74,230,-74,237,-156,240,-76,250,-74,240,-76,244,-156,250,-74,244,-156,282,-105,193,-36,198,-104,202,-49,202,-49,198,-104,237,-156,202,-49,237,-156,211,-60,211,-60,237,-156,220,-69,211,415,220,424,237,511,237,511,220,424,230,430,237,511,230,430,240,432,240,432,250,430,244,511,244,511,250,430,282,460,160,407,193,391,198,459,198,459,193,391,202,404,198,459,202,404,237,511,237,511,202,404,211,415,160,-52,147,290,147,64,160,-52,147,64,146,57,160,-52,146,57,143,52,120,0,125,47,120,48,120,0,120,48,114,52,120,0,114,52,109,56,120,0,109,56,102,63,120,0,102,63,95,69,120,0,95,69,85,79,120,0,85,79,78,49,78,49,85,79,72,91,78,49,72,91,58,103,78,49,58,103,45,114,78,49,45,114,31,99,337,302,341,305,360,356,360,356,341,305,345,307,360,356,345,307,348,308,348,308,355,307,360,356,360,356,355,307,361,306,360,356,361,306,402,305,402,305,361,306,366,303,402,305,366,303,371,299,402,305,371,299,377,293,377,293,388,282,402,305,402,305,388,282,399,271,402,305,399,271,411,261,399,83,388,72,402,49,402,49,388,72,377,62,402,49,377,62,371,56,448,255,402,305,411,261,448,255,411,261,423,250,448,255,423,250,434,240,337,302,360,356,334,297,334,297,360,356,320,408,334,297,320,408,333,290,333,290,320,408,320,-53,333,290,320,-53,333,64,333,64,320,-53,334,57,278,404,287,391,282,460,282,460,287,391,320,408,320,408,287,391,320,-53,320,-53,287,391,287,-36,282,-105,320,-53,287,-36,282,-105,287,-36,278,-49,282,-105,278,-49,269,-60,282,-105,269,-60,260,-69,282,-105,260,-69,250,-74,448,99,434,114,423,104,448,99,423,104,411,93,448,99,411,93,402,49,371,56,366,51,402,49,402,49,366,51,361,48,402,49,361,48,360,-1,360,-1,361,48,355,47,360,-1,355,47,348,46,348,46,345,47,360,-1,360,-1,345,47,341,49,360,-1,341,49,337,52,334,57,320,-53,360,-1,334,57,360,-1,337,52,282,460,250,430,260,424,282,460,260,424,269,415,282,460,269,415,278,404,244,511,237,511,240,432,240,-76,237,-156,244,-156,399,83,402,49,411,93,198,-104,193,-36,160,-52,89,364,89,371,95,132,95,132,89,
-371,88,377,75,132,88,377,89,384,75,132,89,384,72,200,72,200,89,384,66,266,90,390,91,396,107,454,107,454,91,396,94,400,107,454,94,400,98,405,98,405,102,408,107,454,107,454,102,408,107,411,107,454,107,411,113,413,107,454,113,413,171,444,171,444,113,413,119,414,171,444,119,414,126,414,126,414,132,414,171,444,171,444,132,414,139,413,171,444,139,413,145,412,263,370,171,444,580,-9,580,-9,171,444,159,409,152,411,159,409,171,444,152,411,171,444,145,412,44,463,48,395,107,454,107,454,48,395,58,331,107,454,58,331,90,390,90,390,58,331,66,266,90,390,66,266,89,384,260,376,259,378,236,436,236,436,259,378,258,381,236,436,258,381,258,384,258,384,258,386,236,436,236,436,258,386,258,388,236,436,258,388,259,391,302,430,236,436,266,398,266,398,236,436,261,394,260,392,261,394,236,436,260,392,236,436,259,391,370,427,302,430,308,403,370,427,308,403,323,404,370,427,323,404,338,405,370,427,338,405,354,406,370,427,354,406,370,407,302,430,266,398,270,401,302,430,270,401,276,403,302,430,276,403,283,403,302,430,283,403,293,403,302,430,293,403,308,403,171,444,263,370,261,373,171,444,261,373,260,376,171,444,260,376,236,436,100,229,104,237,92,343,92,343,104,237,109,242,92,343,109,242,118,245,118,245,121,244,92,343,92,343,121,244,123,244,92,343,123,244,126,242,129,241,131,239,92,343,129,241,92,343,126,242,131,239,480,-108,513,-76,131,239,513,-76,92,343,98,209,99,219,95,132,98,209,95,132,97,149,98,209,97,149,97,167,98,209,97,167,98,184,98,209,98,184,98,199,92,343,91,350,95,132,92,343,95,132,99,219,92,343,99,219,100,229,90,357,89,364,95,132,90,357,95,132,91,350,95,132,88,377,75,132,263,370,580,-9,612,23,48,395,44,463,38,459,387,370,38,23,70,-9,387,370,70,-9,491,409,387,370,491,409,389,373,391,391,392,388,415,436,415,436,392,388,393,386,415,436,393,386,393,384,393,384,393,381,491,409,491,409,393,381,392,378,491,409,392,378,391,376,415,436,348,430,358,403,415,436,358,403,367,403,415,436,367,403,374,403,415,436,374,403,380,401,415,436,380,401,384,398,415,436,384,398,389,
-394,415,436,389,394,390,392,415,436,390,392,391,391,348,430,280,427,296,406,348,430,296,406,312,405,348,430,312,405,327,404,348,430,327,404,343,403,348,430,343,403,358,403,505,412,512,413,544,454,544,454,512,413,518,414,544,454,518,414,524,414,524,414,531,414,544,454,544,454,531,414,538,413,544,454,538,413,544,411,524,242,527,244,558,343,558,343,527,244,530,244,558,343,530,244,532,245,532,245,541,242,558,343,558,343,541,242,546,237,558,343,546,237,550,229,544,454,544,411,607,463,607,463,544,411,549,408,607,463,549,408,553,405,553,405,557,400,607,463,607,463,557,400,559,396,607,463,559,396,561,390,558,343,550,229,551,219,558,343,551,219,552,209,558,343,552,209,552,199,558,343,552,199,552,184,558,343,552,184,553,167,558,343,553,167,554,149,558,343,554,149,555,132,558,343,555,132,576,132,558,343,138,-76,170,-108,558,343,170,-108,519,239,558,343,519,239,521,241,558,343,521,241,524,242,561,364,560,357,576,132,576,132,560,357,559,350,576,132,559,350,558,343,607,463,561,390,562,384,607,463,562,384,562,377,607,463,562,377,584,266,607,463,584,266,592,331,607,463,592,331,602,395,607,463,602,395,612,459,562,377,576,132,578,200,562,377,578,200,584,266,544,454,480,444,491,409,544,454,491,409,498,411,544,454,498,411,505,412,491,409,480,444,415,436,491,409,415,436,393,384,562,371,561,364,576,132,562,371,576,132,562,377,296,406,280,427,280,407,389,373,491,409,391,376,392,-33,391,-35,415,-81,415,-81,391,-35,390,-37,415,-81,390,-37,389,-39,389,-39,384,-43,415,-81,415,-81,384,-43,380,-46,415,-81,380,-46,374,-48,491,-54,415,-81,480,-89,491,-54,480,-89,544,-99,491,-54,393,-29,415,-81,391,-20,392,-23,491,-54,491,-54,392,-23,393,-26,491,-54,393,-26,393,-29,393,-29,393,-31,415,-81,415,-81,393,-31,392,-33,491,-54,70,365,387,-15,491,-54,387,-15,389,-18,491,-54,389,-18,391,-20,544,-56,538,-57,544,-99,544,-99,538,-57,531,-58,544,-99,531,-58,524,-58,524,-58,518,-58,544,-99,544,-99,518,-58,512,-58,544,-99,512,-58,505,-57,550,126,546,118,558,11,558,11,546,118,541,112,558,11,541,112,532,110,532,110,530,110,558,11,558,11,530,110,527,111,558,
-11,527,111,524,112,552,170,552,155,558,11,558,11,552,155,552,145,558,11,552,145,551,135,561,-35,559,-40,607,-108,607,-108,559,-40,557,-45,607,-108,557,-45,553,-50,553,-50,549,-53,607,-108,607,-108,549,-53,544,-56,607,-108,544,-56,544,-99,560,-2,561,-9,576,222,576,222,561,-9,562,-16,576,222,562,-16,562,-22,562,-22,561,-29,607,-108,607,-108,561,-29,561,-35,576,222,555,222,558,11,576,222,558,11,559,4,576,222,559,4,560,-2,558,11,555,222,554,205,558,11,554,205,553,187,558,11,553,187,552,170,558,11,524,112,521,113,558,11,521,113,519,116,558,11,519,116,170,463,558,11,170,463,138,431,607,-108,612,-104,602,-40,607,-108,602,-40,592,23,607,-108,592,23,584,88,607,-108,584,88,562,-22,578,154,576,222,562,-22,578,154,562,-22,584,88,498,-55,491,-54,544,-99,498,-55,544,-99,505,-57,374,-48,367,-48,415,-81,415,-81,367,-48,358,-48,415,-81,358,-48,348,-74,348,-74,358,-48,343,-48,348,-74,343,-48,327,-49,348,-74,327,-49,312,-50,348,-74,312,-50,296,-50,348,-74,296,-50,280,-51,348,-74,280,-51,280,-72,550,126,558,11,551,135,387,-15,70,365,38,332,89,-16,95,222,88,-22,88,-22,75,222,89,-29,89,-29,75,222,72,154,89,-29,72,154,66,88,113,-57,107,-56,107,-99,107,-99,107,-56,102,-53,107,-99,102,-53,98,-50,98,-50,94,-45,107,-99,107,-99,94,-45,91,-40,107,-99,91,-40,90,-35,126,112,123,111,92,11,92,11,123,111,121,110,92,11,121,110,118,110,118,110,109,112,92,11,92,11,109,112,104,118,92,11,104,118,100,126,145,-57,139,-58,171,-89,171,-89,139,-58,132,-58,171,-89,132,-58,126,-58,126,-58,119,-58,171,-89,171,-89,119,-58,113,-57,171,-89,113,-57,107,-99,259,-35,258,-33,236,-81,236,-81,258,-33,258,-31,236,-81,258,-31,258,-29,258,-29,258,-26,236,-81,236,-81,258,-26,259,-23,236,-81,259,-23,260,-20,612,332,580,365,263,-15,261,-18,263,-15,580,365,261,-18,580,365,171,-89,171,-89,580,365,159,-54,171,-89,159,-54,152,-55,259,-35,236,-81,260,-37,260,-37,236,-81,261,-39,266,-43,261,-39,236,-81,266,-43,236,-81,302,-74,260,-20,261,-18,171,-89,260,-20,171,-89,236,-81,38,-104,44,-108,48,-40,48,-40,44,-108,107,-99,48,-40,107,
--99,58,23,58,23,107,-99,90,-35,58,23,90,-35,66,88,66,88,90,-35,89,-29,338,-50,323,-49,370,-72,370,-72,323,-49,308,-48,370,-72,308,-48,302,-74,302,-74,308,-48,293,-48,302,-74,293,-48,283,-48,354,-50,338,-50,370,-72,354,-50,370,-72,370,-51,302,-74,283,-48,276,-48,302,-74,276,-48,270,-46,302,-74,270,-46,266,-43,513,431,480,463,131,116,513,431,131,116,129,113,513,431,129,113,92,11,98,145,98,155,98,170,98,145,98,170,97,187,98,145,97,187,97,205,98,145,97,205,95,222,98,145,95,222,99,135,95,222,89,-16,89,-9,95,222,89,-9,90,-2,95,222,90,-2,91,4,95,222,91,4,92,11,95,222,92,11,99,135,75,222,88,-22,95,222,92,11,129,113,126,112,92,11,100,126,99,135,145,-57,171,-89,152,-55,32,180,32,180,94,228,94,228,32,180,101,118,94,228,101,118,150,281,150,281,101,118,135,218,150,281,135,218,136,222,135,133,134,136,101,118,101,118,134,136,134,138,134,214,134,142,135,210,135,210,134,142,137,146,135,210,137,146,137,206,137,206,137,146,140,203,202,338,150,281,155,244,202,338,155,244,166,256,202,338,166,256,178,269,202,338,178,269,190,281,202,338,190,281,201,294,202,338,201,294,596,294,202,338,596,294,234,340,202,338,234,340,234,342,202,338,234,342,248,395,150,281,136,222,138,226,150,281,138,226,141,230,150,281,141,230,145,234,150,281,145,234,155,244,134,214,135,218,101,118,134,214,101,118,134,138,166,100,154,112,161,61,161,61,154,112,144,121,161,61,144,121,140,125,233,14,596,14,596,60,233,14,596,60,200,60,233,14,200,60,211,4,233,14,211,4,233,13,211,4,200,60,191,72,211,4,191,72,179,86,211,4,179,86,166,100,211,4,166,100,161,61,161,61,140,125,137,130,161,61,137,130,135,133,161,61,135,133,101,118,596,200,152,200,596,154,596,154,152,200,152,154,146,152,152,154,152,200,146,152,152,200,145,201,141,149,146,152,145,201,141,149,145,201,140,203,141,149,140,203,137,146,287,451,248,395,250,364,287,451,250,364,266,385,287,451,266,385,281,406,287,451,281,406,293,425,287,451,293,425,303,441,286,-97,302,-85,293,-69,286,-97,293,-69,280,-51,286,-97,280,-51,266,
--30,286,-97,266,-30,253,-49,253,-49,266,-30,250,-8,253,-49,250,-8,233,13,253,-49,233,13,211,4,234,340,596,294,596,340,248,395,234,342,250,364,134,142,134,214,134,138,101,118,32,180,32,173,368,406,382,385,395,403,395,403,382,385,398,363,395,403,398,363,437,350,437,350,398,363,415,341,437,350,415,341,448,294,448,294,415,341,415,340,362,452,346,441,356,425,362,452,356,425,368,406,362,452,368,406,395,403,448,60,52,60,414,14,448,60,414,14,446,16,446,16,414,14,414,12,446,16,414,12,400,-40,400,-40,414,12,398,-9,400,-40,398,-9,382,-30,52,154,495,154,52,200,52,200,495,154,497,200,503,202,497,200,502,153,503,202,502,153,508,151,504,120,494,110,497,72,504,120,497,72,554,126,504,120,554,126,507,124,512,225,514,221,547,236,547,236,514,221,515,218,547,236,515,218,515,216,515,216,514,140,554,126,554,126,514,140,514,136,547,236,487,293,495,242,547,236,495,242,505,233,547,236,505,233,509,229,547,236,509,229,512,225,487,293,437,350,448,294,487,293,448,294,457,282,487,293,457,282,469,269,487,293,469,269,482,255,487,293,482,255,495,242,52,340,52,294,448,294,52,340,448,294,415,340,554,126,616,173,616,180,554,126,616,180,547,236,554,126,547,236,515,216,554,126,514,136,512,132,554,126,512,132,510,128,554,126,510,128,507,124,497,72,494,110,482,98,497,72,482,98,470,85,497,72,470,85,458,72,497,72,458,72,448,60,497,72,448,60,446,16,508,151,511,148,511,208,511,208,511,148,513,144,511,208,513,144,514,212,514,212,513,144,514,140,514,212,514,140,515,216,508,205,503,202,508,151,508,205,508,151,511,208,497,200,495,154,502,153,368,-51,355,-69,361,-96,368,-51,361,-96,400,-40,368,-51,400,-40,382,-30,361,-96,355,-69,345,-85,414,14,52,60,52,14,162,203,158,206,159,146,159,146,158,206,156,210,159,146,156,210,156,142,156,142,156,210,155,214,155,138,149,252,149,102,149,102,149,252,117,225,149,102,117,225,116,130,116,130,117,225,81,200,116,130,81,200,81,154,81,154,81,200,42,180,81,154,42,180,42,173,209,314,180,283,190,260,209,314,190,260,201,274,209,314,201,274,212,287,209,314,212,287,223,301,180,
-283,149,252,157,222,180,283,157,222,159,226,180,283,159,226,161,230,180,283,161,230,165,234,180,283,165,234,177,247,180,283,177,247,190,260,156,218,157,222,149,252,156,218,149,252,155,214,189,96,177,109,180,72,180,72,177,109,165,121,180,72,165,121,161,125,527,154,606,154,606,200,527,154,606,200,506,200,527,154,506,200,464,154,527,154,464,154,464,80,173,200,168,153,172,154,173,200,172,154,230,154,173,200,230,154,252,200,252,200,230,154,294,80,252,200,294,80,294,154,294,154,294,80,380,200,294,154,380,200,380,276,380,276,380,200,464,80,380,276,464,80,464,154,167,201,162,203,163,150,167,201,163,150,168,153,167,201,168,153,173,200,208,41,222,54,212,68,208,41,212,68,201,82,208,41,201,82,189,96,208,41,189,96,180,72,155,135,155,138,149,102,155,135,149,102,156,132,156,132,149,102,180,72,156,132,180,72,158,128,158,128,180,72,161,125,156,142,155,214,155,138,162,203,159,146,163,150,155,214,149,252,155,138,492,132,490,128,499,102,499,102,490,128,487,125,499,102,487,125,484,121,484,121,471,109,499,102,499,102,471,109,469,72,499,252,468,283,470,247,499,252,470,247,483,234,499,252,483,234,486,230,499,252,486,230,489,226,499,252,489,226,491,221,499,252,491,221,493,218,499,252,493,218,493,214,499,252,493,214,494,138,499,252,494,138,499,102,499,252,499,102,532,225,426,301,436,287,440,314,440,314,436,287,447,274,440,314,447,274,468,283,468,283,447,274,458,260,468,283,458,260,470,247,606,173,606,180,568,154,568,154,606,180,568,200,568,154,568,200,532,130,532,130,568,200,532,225,532,130,532,225,499,102,499,102,494,138,493,135,499,102,493,135,492,132,471,109,459,96,469,72,469,72,459,96,447,82,469,72,447,82,441,41,441,41,447,82,436,68,441,41,436,68,427,54,494,138,493,214,492,142,492,142,493,214,492,210,492,142,492,210,490,206,477,154,480,153,481,201,481,201,480,153,485,150,481,201,485,150,487,203,487,203,485,150,489,146,487,203,489,146,490,206,490,206,489,146,492,142,481,201,474,200,477,154,477,154,474,200,419,154,419,154,474,200,396,200,419,154,396,200,354,154,419,154,354,154,354,80,354,80,354,
-154,267,276,354,80,267,276,267,200,267,200,267,276,184,154,267,200,184,154,184,80,184,80,184,154,142,200,184,80,142,200,122,154,122,154,142,200,42,200,122,154,42,200,42,154,127,344,130,347,131,389,131,389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,346,155,425,148,346,152,342,42,88,155,53,155,88,155,88,155,53,202,-108,155,88,202,-108,155,144,155,144,202,-108,155,178,155,144,155,178,42,178,155,337,155,333,155,425,155,425,155,333,175,463,175,463,155,333,202,-108,175,463,202,-108,182,463,182,463,202,-108,202,332,182,463,202,332,202,425,202,425,202,332,202,339,202,425,202,339,204,344,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,326,83,305,103,356,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,202,178,202,144,316,144,202,178,316,144,316,178,202,88,202,53,316,53,202,88,316,53,316,88,155,333,155,178,202,-108,202,-108,155,53,155,-108,202,425,204,344,226,389,155,425,152,342,155,337,155,144,42,178,42,144,155,53,42,88,42,53,152,12,148,8,155,-70,155,-70,148,8,144,4,155,-70,144,4,140,3,140,3,136,4,155,-70,155,-70,136,4,133,5,155,-70,133,5,131,-34,131,-34,133,5,130,7,131,-34,130,7,127,10,202,463,155,463,175,-108,202,463,175,-108,182,-108,202,463,182,-108,202,23,202,301,202,266,316,266,202,301,316,266,316,301,202,211,202,176,316,176,202,211,316,176,316,211,227,8,223,6,226,-34,226,-34,223,6,219,4,226,-34,219,4,216,4,216,4,211,5,226,-34,226,-34,211,5,208,7,226,-34,208,7,204,11,262,39,248,27,254,
--1,254,-1,248,27,235,14,254,-1,235,14,231,11,289,61,275,50,284,28,289,61,284,28,316,57,289,61,316,57,302,71,262,39,254,-1,284,28,262,39,284,28,275,50,227,8,226,-34,254,-1,227,8,254,-1,231,11,202,-70,226,-34,204,11,202,-70,204,11,202,16,202,-70,202,16,202,23,202,-70,202,23,182,-108,175,-108,155,463,155,301,175,-108,155,301,155,266,175,-108,155,266,155,211,175,-108,155,211,155,176,175,-108,155,176,155,22,175,-108,155,22,155,-70,155,17,152,12,155,-70,155,17,155,-70,155,22,127,10,123,13,131,-34,131,-34,123,13,110,26,131,-34,110,26,103,-1,103,-1,110,26,97,38,103,-1,97,38,83,50,73,28,103,-1,83,50,73,28,83,50,69,61,73,28,69,61,55,70,73,28,55,70,42,57,42,211,42,176,155,176,42,211,155,176,155,211,42,301,42,266,155,266,42,301,155,266,155,301,531,200,531,154,606,154,531,200,606,154,606,200,414,200,414,154,488,154,414,200,488,154,488,200,296,200,296,154,371,154,296,200,371,154,371,200,162,203,158,206,159,147,159,147,158,206,156,210,159,147,156,210,156,143,156,143,156,210,155,214,155,138,149,252,149,102,149,102,149,252,117,225,149,102,117,225,116,130,116,130,117,225,81,200,116,130,81,200,81,154,81,154,81,200,42,180,81,154,42,180,42,173,209,314,180,283,190,260,209,314,190,260,201,274,209,314,201,274,212,287,209,314,212,287,223,301,180,283,149,252,157,222,180,283,157,222,159,226,180,283,159,226,161,230,180,283,161,230,165,234,180,283,165,234,177,247,180,283,177,247,190,260,156,218,157,222,149,252,156,218,149,252,155,214,189,96,177,109,180,72,180,72,177,109,165,121,180,72,165,121,161,125,173,200,167,201,168,153,173,200,168,153,173,154,173,200,173,154,253,154,173,200,253,154,253,200,163,150,168,153,167,201,163,150,167,201,162,203,163,150,162,203,159,147,208,41,222,54,212,68,208,41,212,68,201,82,208,41,201,82,189,96,208,41,189,96,180,72,155,135,155,138,149,102,155,135,149,102,156,132,156,132,149,102,180,72,156,132,180,72,158,128,158,128,180,72,161,125,156,143,155,214,155,138,155,214,149,252,155,138,127,344,130,347,131,389,131,
-389,130,347,133,349,131,389,133,349,155,425,155,425,133,349,136,350,155,425,136,350,140,351,140,351,144,350,155,425,155,425,144,350,148,346,155,425,148,346,152,342,155,337,155,333,155,425,155,425,155,333,175,463,175,463,155,333,202,254,175,463,202,254,182,463,182,463,202,254,202,332,182,463,202,332,202,425,202,425,202,332,202,339,202,425,202,339,204,344,123,341,127,344,131,389,123,341,131,389,110,328,110,328,131,389,103,356,110,328,103,356,97,316,97,316,103,356,83,305,73,326,42,298,55,284,73,326,55,284,69,294,73,326,69,294,83,305,73,326,83,305,103,356,204,344,208,347,226,389,226,389,208,347,211,349,226,389,211,349,216,350,216,350,219,350,226,389,226,389,219,350,223,348,226,389,223,348,227,346,262,316,275,304,284,325,284,325,275,304,289,293,284,325,289,293,316,297,316,297,289,293,302,283,254,356,226,389,227,346,254,356,227,346,231,344,254,356,231,344,235,340,254,356,235,340,248,328,254,356,248,328,262,316,254,356,262,316,284,325,155,333,155,254,202,254,155,208,155,133,202,133,155,208,202,133,202,208,155,87,155,12,202,12,155,87,202,12,202,87,155,-33,155,-108,202,-108,155,-33,202,-108,202,-33,202,425,204,344,226,389,155,425,152,342,155,337,492,132,490,128,499,102,499,102,490,128,487,125,499,102,487,125,484,121,484,121,471,109,499,102,499,102,471,109,469,72,474,200,475,154,481,201,481,201,475,154,482,153,481,201,482,153,487,203,487,203,482,153,487,150,487,203,487,150,490,206,490,206,487,150,491,147,490,206,491,147,492,210,492,210,491,147,493,143,492,210,493,143,493,214,493,214,493,143,499,252,499,252,493,143,494,138,499,102,494,138,493,135,499,252,468,283,470,247,499,252,470,247,483,234,499,252,483,234,486,230,499,252,486,230,489,226,499,252,489,226,491,221,499,252,491,221,493,218,499,252,493,218,493,214,426,301,436,287,440,314,440,314,436,287,447,274,440,314,447,274,468,283,468,283,447,274,458,260,468,283,458,260,470,247,606,173,606,180,568,154,568,154,606,180,568,200,568,154,568,200,532,130,532,130,568,200,532,225,532,130,532,225,499,102,499,102,532,225,499,252,499,102,499,252,494,138,471,109,459,
-96,469,72,469,72,459,96,447,82,469,72,447,82,441,41,441,41,447,82,436,68,441,41,436,68,427,54,395,200,395,154,475,154,395,200,475,154,474,200,277,200,277,154,352,154,277,200,352,154,352,200,159,200,159,154,234,154,159,200,234,154,234,200,42,200,42,154,117,154,42,200,117,154,117,200,492,132,499,102,493,135,155,463,155,388,202,388,155,463,202,388,202,463,155,342,155,267,202,267,155,342,202,267,202,342,155,221,155,146,202,146,155,221,202,146,202,221,152,10,148,6,155,-70,155,-70,148,6,144,4,155,-70,144,4,140,3,140,3,136,4,155,-70,155,-70,136,4,133,5,155,-70,133,5,131,-34,131,-34,133,5,130,7,131,-34,130,7,127,10,204,11,202,16,202,-70,202,-70,202,16,202,23,202,23,202,100,182,-108,182,-108,202,100,175,-108,202,100,155,100,175,-108,175,-108,155,100,155,22,175,-108,155,22,155,-70,155,-70,155,22,155,15,155,-70,155,15,152,10,227,8,223,6,226,-34,226,-34,223,6,219,4,226,-34,219,4,216,4,216,4,211,5,226,-34,226,-34,211,5,208,7,226,-34,208,7,204,11,262,39,248,27,254,-1,254,-1,248,27,235,14,254,-1,235,14,231,11,289,61,275,50,284,28,289,61,284,28,316,57,289,61,316,57,302,71,262,39,254,-1,284,28,262,39,284,28,275,50,227,8,226,-34,254,-1,227,8,254,-1,231,11,127,10,123,13,131,-34,131,-34,123,13,110,26,131,-34,110,26,103,-1,103,-1,110,26,97,38,103,-1,97,38,83,50,73,28,103,-1,83,50,73,28,83,50,69,61,73,28,69,61,55,70,73,28,55,70,42,57,202,-70,202,23,182,-108,204,11,202,-70,226,-34,197,203,193,206,194,147,194,147,193,206,191,210,194,147,191,210,191,143,191,143,191,210,191,214,190,138,185,253,184,102,184,102,185,253,152,225,184,102,152,225,152,130,152,130,152,225,116,200,152,130,116,200,116,154,116,154,116,200,77,180,77,41,77,180,42,315,77,41,42,315,42,41,77,315,42,315,77,180,244,315,215,283,225,260,244,315,225,260,236,274,244,315,236,274,248,288,244,315,248,288,258,302,215,283,185,253,192,222,215,283,192,222,194,226,215,283,194,226,197,230,215,283,197,230,200,234,215,283,200,234,213,
-247,215,283,213,247,225,260,191,218,192,222,185,253,191,218,185,253,191,214,224,96,212,109,215,72,215,72,212,109,199,121,215,72,199,121,196,125,209,200,202,201,203,153,209,200,203,153,208,154,209,200,208,154,606,154,209,200,606,154,606,200,198,150,203,153,202,201,198,150,202,201,197,203,198,150,197,203,194,147,243,41,257,54,247,68,243,41,247,68,236,82,243,41,236,82,224,96,243,41,224,96,215,72,190,135,190,138,184,102,190,135,184,102,191,132,191,132,184,102,215,72,191,132,215,72,193,128,193,128,215,72,196,125,77,180,77,173,116,154,191,143,191,214,190,138,191,214,185,253,190,138,424,96,434,72,436,109,436,109,434,72,464,102,436,109,464,102,448,121,448,121,464,102,452,125,571,315,571,180,571,173,571,173,571,180,532,154,532,154,571,180,532,200,532,154,532,200,497,130,497,130,532,200,497,225,497,130,497,225,464,102,464,102,497,225,464,253,464,102,464,253,459,138,464,253,433,283,436,247,464,253,436,247,448,234,464,253,448,234,451,230,464,253,451,230,454,226,464,253,454,226,456,221,464,253,456,221,457,218,464,253,457,218,458,214,464,253,458,214,459,138,391,302,401,288,405,315,405,315,401,288,412,274,405,315,412,274,433,283,433,283,412,274,424,260,433,283,424,260,436,247,571,173,606,41,606,315,571,173,606,315,571,315,464,102,459,138,458,135,464,102,458,135,457,132,464,102,457,132,455,128,464,102,455,128,452,125,412,82,401,68,405,41,412,82,405,41,434,72,412,82,434,72,424,96,459,138,458,214,457,143,457,143,458,214,457,210,457,143,457,210,455,206,441,154,445,153,447,201,447,201,445,153,450,150,447,201,450,150,452,203,452,203,450,150,454,147,452,203,454,147,455,206,455,206,454,147,457,143,441,154,447,201,440,200,441,154,440,200,42,200,441,154,42,200,42,154,606,41,571,173,571,41,405,41,401,68,391,54,313,270,313,379,298,386,313,270,298,386,277,316,313,270,277,316,277,235,313,270,277,235,571,235,313,270,571,235,606,270,198,57,249,15,277,37,277,37,249,15,298,-30,277,37,298,-30,277,119,277,119,298,-30,313,84,277,119,313,84,571,119,571,119,313,84,606,84,571,119,606,84,571,235,571,
-235,606,84,606,270,277,37,162,127,198,57,198,57,162,127,149,137,198,57,149,137,146,97,146,97,149,137,138,146,146,97,138,146,129,156,121,177,94,135,123,167,123,167,94,135,146,97,123,167,146,97,129,156,248,340,197,297,277,316,277,316,197,297,162,228,150,218,162,228,197,297,150,218,197,297,145,257,145,257,93,219,94,135,145,257,94,135,123,188,145,257,123,188,130,198,145,257,130,198,139,208,145,257,139,208,150,218,123,188,94,135,121,177,42,180,42,173,94,135,42,180,94,135,93,219,248,340,277,316,298,386,313,84,298,-30,313,-23,31,207,31,207,78,257,78,257,31,207,38,193,78,257,38,193,100,228,100,228,38,193,147,193,100,228,147,193,182,228,182,228,147,193,182,-73,209,367,219,376,237,463,237,463,219,376,229,382,237,463,229,382,240,384,240,384,251,382,244,463,244,463,251,382,282,412,209,367,237,463,200,356,200,356,237,463,198,412,200,356,198,412,190,344,190,344,198,412,160,360,190,344,160,360,120,308,120,308,78,257,100,228,120,308,100,228,190,344,244,463,237,463,240,384,261,376,272,366,282,412,282,412,272,366,282,355,282,412,282,355,291,344,291,344,380,228,320,360,320,360,380,228,360,308,320,360,282,412,291,344,380,228,298,228,333,193,380,228,333,193,441,193,380,228,441,193,402,257,380,228,402,257,360,308,333,-108,333,193,298,228,333,-108,298,228,298,-73,333,-108,298,-73,182,-73,333,-108,182,-73,147,-108,147,-108,182,-73,147,193,402,257,441,193,448,207,282,412,251,382,261,376,42,270,42,84,77,119,77,119,42,84,336,84,77,119,336,84,371,119,371,119,336,84,350,-30,371,119,350,-30,371,37,371,37,350,-30,400,15,371,37,400,15,487,127,487,127,400,15,451,57,487,127,451,57,503,97,525,167,519,156,554,135,554,135,519,156,510,146,554,135,510,146,503,97,503,97,510,146,499,137,503,97,499,137,487,127,555,219,503,257,509,208,555,219,509,208,519,198,555,219,519,198,525,188,555,219,525,188,527,177,555,219,527,177,554,135,555,219,554,135,606,173,555,219,606,173,606,180,525,167,554,135,527,177,503,257,451,297,487,228,503,257,487,228,498,218,503,257,498,218,509,208,336,379,371,235,350,386,350,386,371,
-235,371,316,350,386,371,316,400,340,400,340,371,316,487,228,400,340,487,228,451,297,336,270,42,270,77,235,336,270,77,235,371,235,336,270,371,235,336,379,350,-30,336,84,336,-23,77,235,42,270,77,119,190,10,120,46,160,-5,190,10,160,-5,198,-57,190,10,100,126,120,46,100,126,182,126,147,161,100,126,147,161,38,161,100,126,38,161,78,97,100,126,78,97,120,46,219,-21,237,-108,229,-27,229,-27,237,-108,240,-29,251,-27,240,-29,244,-108,251,-27,244,-108,282,-57,190,10,198,-57,200,-1,200,-1,198,-57,237,-108,200,-1,237,-108,209,-12,209,-12,237,-108,219,-21,147,161,182,126,147,463,147,463,182,126,182,428,147,463,182,428,333,463,333,463,182,428,298,428,333,463,298,428,333,161,333,161,298,428,298,126,333,161,298,126,380,126,402,97,448,147,441,161,402,97,441,161,380,126,402,97,380,126,360,46,360,46,380,126,320,-5,320,-5,380,126,291,10,320,-5,291,10,282,-57,282,-57,291,10,282,-1,282,-57,282,-1,272,-12,261,-21,251,-27,282,-57,261,-21,282,-57,272,-12,240,-29,237,-108,244,-108,333,161,380,126,441,161,78,97,38,161,31,147,31,227,31,227,78,276,78,276,31,227,38,213,78,276,38,213,100,248,100,248,38,213,147,213,100,248,147,213,182,248,182,248,147,213,182,64,209,387,219,396,237,483,237,483,219,396,229,402,237,483,229,402,240,404,240,404,251,402,244,483,244,483,251,402,282,432,209,387,237,483,200,376,200,376,237,483,198,431,200,376,198,431,190,363,190,363,198,431,160,379,190,363,160,379,120,327,120,327,78,276,100,248,120,327,100,248,190,363,244,483,237,483,240,404,261,395,272,386,282,432,282,432,272,386,282,375,282,432,282,375,291,363,291,363,380,248,320,380,320,380,380,248,360,328,320,380,282,432,291,363,380,248,298,248,333,213,380,248,333,213,441,213,380,248,441,213,402,277,380,248,402,277,360,328,333,30,333,213,298,248,333,30,298,248,298,64,333,30,298,64,182,64,333,30,182,64,147,30,147,-128,182,-93,147,-15,147,-15,182,-93,182,-50,147,-15,182,-50,333,-15,333,-15,182,-50,298,-50,333,-15,298,-50,333,-128,333,-128,298,-50,298,-93,333,-128,298,-93,182,-93,182,-93,147,-128,333,-128,147,30,182,64,147,
-213,402,277,441,213,448,227,282,432,251,402,261,395,168,200,49,200,168,200,168,200,49,200,168,154,168,200,168,154,178,228,178,228,168,154,178,127,178,228,178,127,195,252,195,252,178,127,195,104,195,252,195,104,205,200,205,200,195,104,205,154,217,86,205,154,195,104,335,138,323,124,330,86,330,86,323,124,309,114,330,86,309,114,303,74,303,74,309,114,292,107,303,74,292,107,273,70,273,70,292,107,273,105,255,107,238,114,244,74,255,107,244,74,273,70,255,107,273,70,273,105,224,124,212,138,217,86,224,124,217,86,244,74,224,124,244,74,238,114,324,230,331,270,309,241,309,241,331,270,304,282,309,241,304,282,292,248,292,248,304,282,273,251,255,248,273,251,273,286,255,248,273,286,244,282,205,200,212,216,217,270,217,270,212,216,223,230,217,270,223,230,244,282,244,282,223,230,238,241,244,282,238,241,255,248,343,200,205,200,205,154,343,200,205,154,342,154,343,200,342,154,352,104,343,200,353,252,335,216,343,200,352,104,353,252,353,252,352,104,369,127,353,252,369,127,370,228,370,228,369,127,379,154,370,228,379,154,380,200,380,200,379,154,468,154,380,200,468,154,468,200,473,201,468,200,475,153,473,201,475,153,478,203,478,203,475,153,480,151,478,203,480,151,482,207,482,207,480,151,483,148,482,207,483,148,485,211,485,211,483,148,485,144,485,211,485,144,486,140,331,270,324,230,335,216,331,270,335,216,353,252,304,282,273,286,273,251,485,136,492,101,486,140,486,140,492,101,487,216,487,216,492,101,492,252,492,252,492,101,525,129,492,252,525,129,525,224,525,224,525,129,561,154,525,224,561,154,561,200,561,200,561,154,599,173,561,200,599,173,599,180,492,252,462,282,464,245,492,252,464,245,477,233,492,252,477,233,480,229,492,252,480,229,483,226,492,252,483,226,485,222,492,252,485,222,486,219,492,252,486,219,487,216,420,300,429,286,434,313,434,313,429,286,440,272,434,313,440,272,462,282,462,282,440,272,452,258,462,282,452,258,464,245,451,94,461,71,463,107,463,107,461,71,492,101,463,107,492,101,476,120,476,120,492,101,479,124,492,101,485,136,484,132,492,101,484,132,482,128,492,101,482,128,479,124,439,81,429,67,433,40,439,
-81,433,40,461,71,439,81,461,71,451,94,487,216,485,211,486,140,335,138,330,86,352,104,335,138,352,104,342,154,468,200,468,154,475,153,433,40,429,67,419,53,168,154,49,200,49,154,195,252,205,200,217,270,205,154,217,86,212,138,330,344,334,347,335,389,335,389,334,347,337,349,335,389,337,349,359,425,359,425,337,349,340,350,359,425,340,350,344,351,344,351,348,350,359,425,359,425,348,350,352,348,359,425,352,348,356,344,358,339,359,333,359,425,359,425,359,333,379,463,379,463,359,333,405,-101,379,463,405,-101,386,463,386,463,405,-101,405,332,386,463,405,332,406,425,406,425,405,332,406,339,406,425,406,339,408,344,287,305,301,316,307,356,307,356,301,316,314,328,307,356,314,328,335,389,335,389,314,328,327,341,335,389,327,341,330,344,277,326,245,298,259,284,277,326,259,284,273,294,277,326,273,294,287,305,277,326,287,305,307,356,408,344,412,347,430,389,430,389,412,347,415,349,430,389,415,349,420,350,420,350,423,350,430,389,430,389,423,350,427,348,430,389,427,348,431,346,465,316,479,304,488,325,488,325,479,304,492,293,488,325,492,293,520,297,520,297,492,293,506,283,458,356,430,389,431,346,458,356,431,346,435,344,458,356,435,344,439,340,458,356,439,340,452,328,458,356,452,328,465,316,458,356,465,316,488,325,359,333,359,-101,405,-101,132,10,128,6,135,-70,135,-70,128,6,124,4,135,-70,124,4,120,3,120,3,116,4,135,-70,135,-70,116,4,113,5,135,-70,113,5,111,-34,111,-34,113,5,110,7,111,-34,110,7,106,10,184,10,182,15,182,-70,182,-70,182,15,181,23,181,23,181,456,162,-108,162,-108,181,456,155,-108,181,456,135,456,155,-108,155,-108,135,456,135,22,155,-108,135,22,135,-70,135,-70,135,22,134,15,135,-70,134,15,132,10,207,8,203,6,206,-34,206,-34,203,6,199,4,206,-34,199,4,195,4,195,4,191,5,206,-34,206,-34,191,5,187,6,206,-34,187,6,184,10,241,39,228,27,234,-1,234,-1,228,27,215,14,234,-1,215,14,211,11,268,61,255,50,264,28,268,61,264,28,295,57,268,61,295,57,282,71,241,39,234,-1,264,28,241,39,264,28,255,50,207,8,206,-34,234,-1,207,8,234,-1,211,11,106,10,102,
-13,111,-34,111,-34,102,13,90,26,111,-34,90,26,83,-1,83,-1,90,26,76,38,83,-1,76,38,63,50,53,28,83,-1,63,50,53,28,63,50,49,61,53,28,49,61,35,70,53,28,35,70,22,57,182,-70,181,23,162,-108,184,10,182,-70,206,-34,406,425,408,344,430,389,359,425,356,344,358,339,452,47,462,38,457,72,457,72,462,38,483,48,483,48,462,38,471,30,483,48,471,30,480,21,480,21,483,18,483,48,483,48,483,18,486,14,483,48,486,14,511,26,511,26,486,14,488,11,511,26,488,11,489,7,452,257,462,248,457,282,457,282,462,248,483,259,483,259,462,248,471,240,483,259,471,240,480,231,480,231,483,228,483,259,483,259,483,228,486,224,483,259,486,224,511,236,511,236,486,224,488,221,511,236,488,221,489,217,472,364,476,363,478,411,472,364,478,411,471,410,472,364,471,410,42,410,472,364,42,410,42,364,445,479,456,468,468,486,468,486,456,468,467,456,468,486,467,456,480,444,480,444,483,440,499,458,499,458,483,440,486,436,499,458,486,436,488,432,440,517,426,504,435,491,440,517,435,491,445,479,440,517,445,479,468,486,480,333,457,282,483,305,480,333,426,282,440,268,480,333,440,268,457,282,488,-66,489,-70,489,4,489,4,499,-102,511,26,511,26,499,-102,532,-77,511,26,532,-77,541,6,541,6,532,-77,568,-54,541,6,568,-54,572,-12,572,-12,568,-54,606,-36,572,-12,606,-36,606,-29,477,153,482,150,482,203,482,203,482,150,485,147,482,203,485,147,486,206,486,206,485,147,488,143,486,206,488,143,488,210,488,210,488,143,489,138,488,210,489,138,489,214,489,214,511,118,511,236,511,236,511,118,540,138,511,236,540,138,541,216,541,216,540,138,572,157,541,216,572,157,572,197,572,197,572,157,606,173,572,197,606,173,606,180,489,214,511,236,489,217,489,4,511,26,489,7,488,432,489,428,499,458,499,458,489,428,489,424,499,458,489,424,511,328,511,328,489,424,489,348,489,348,489,424,488,420,489,348,488,420,488,353,488,353,488,420,486,416,488,353,486,416,485,357,485,357,486,416,483,413,485,357,483,413,481,361,481,361,483,413,478,411,481,361,478,411,476,363,499,458,468,486,480,444,499,458,511,328,532,432,532,432,511,328,540,
-349,532,432,540,349,568,410,568,410,540,349,572,367,568,410,572,367,606,391,606,391,572,367,606,384,511,328,489,348,489,345,511,328,489,345,488,342,511,328,488,342,487,340,511,328,487,340,484,337,511,328,484,337,483,305,484,337,480,333,483,305,511,118,489,214,489,138,489,138,489,135,511,118,511,118,489,135,488,132,511,118,488,132,487,129,471,200,472,154,477,201,477,201,472,154,477,153,477,201,477,153,482,203,480,123,483,95,484,126,484,126,483,95,511,118,484,126,511,118,487,129,480,123,426,72,440,58,480,123,440,58,457,72,480,123,457,72,483,95,499,-102,489,4,489,-70,489,-70,489,-74,499,-102,499,-102,489,-74,488,-77,499,-102,488,-77,486,-81,471,-9,472,-55,478,-8,478,-8,472,-55,478,-56,478,-8,478,-56,483,-6,483,-6,478,-56,483,-58,483,-6,483,-58,486,-3,486,-3,483,-58,487,-62,486,-3,487,-62,488,0,488,0,487,-62,488,-66,488,0,488,-66,489,4,456,-111,469,-131,468,-100,468,-100,469,-131,480,-88,483,-84,480,-88,499,-102,483,-84,499,-102,486,-81,480,-88,469,-131,499,-102,42,200,42,154,472,154,42,200,472,154,471,200,446,-123,436,-135,441,-162,446,-123,441,-162,469,-131,446,-123,469,-131,456,-111,42,-9,42,-55,472,-55,42,-9,472,-55,471,-9,441,-162,436,-135,427,-148,457,72,440,58,452,47,457,282,440,268,452,257,162,203,158,206,159,147,159,147,158,206,156,210,159,147,156,210,156,143,156,143,156,210,155,214,155,138,149,253,149,102,149,102,149,253,117,225,149,102,117,225,116,130,116,130,117,225,81,200,116,130,81,200,81,154,81,154,81,200,42,180,81,154,42,180,42,173,209,315,180,283,190,260,209,315,190,260,201,274,209,315,201,274,212,288,209,315,212,288,223,302,180,283,149,253,157,222,180,283,157,222,159,226,180,283,159,226,161,230,180,283,161,230,165,234,180,283,165,234,177,247,180,283,177,247,190,260,156,218,157,222,149,253,156,218,149,253,155,214,189,96,177,109,180,72,180,72,177,109,165,121,180,72,165,121,161,125,391,315,356,315,391,41,391,41,356,315,356,200,391,41,356,200,356,154,356,154,356,200,173,200,356,154,173,200,173,154,168,153,173,154,173,200,168,153,173,200,167,201,163,150,168,153,167,201,163,
-150,167,201,162,203,163,150,162,203,159,147,391,154,606,154,391,200,208,41,222,54,212,68,208,41,212,68,201,82,208,41,201,82,189,96,208,41,189,96,180,72,155,135,155,138,149,102,155,135,149,102,156,132,156,132,149,102,180,72,156,132,180,72,158,128,158,128,180,72,161,125,391,200,606,154,606,200,391,41,356,154,356,41,156,143,155,214,155,138,155,214,149,253,155,138,489,132,487,128,495,102,495,102,487,128,484,125,495,102,484,125,480,121,480,121,468,109,495,102,495,102,468,109,465,72,495,253,464,283,467,247,495,253,467,247,480,234,495,253,480,234,483,230,495,253,483,230,486,226,495,253,486,226,488,221,495,253,488,221,489,218,495,253,489,218,489,214,495,253,489,214,490,138,495,253,490,138,495,102,495,253,495,102,528,225,422,302,432,288,436,315,436,315,432,288,443,274,436,315,443,274,464,283,464,283,443,274,455,260,464,283,455,260,467,247,602,173,602,180,564,154,564,154,602,180,564,200,564,154,564,200,528,130,528,130,564,200,528,225,528,130,528,225,495,102,495,102,490,138,490,135,495,102,490,135,489,132,468,109,456,96,465,72,465,72,456,96,444,82,465,72,444,82,437,41,437,41,444,82,433,68,437,41,433,68,423,54,490,138,489,214,489,143,489,143,489,214,488,210,489,143,488,210,486,206,472,154,476,153,478,201,478,201,476,153,481,150,478,201,481,150,483,203,483,203,481,150,486,147,483,203,486,147,486,206,486,206,486,147,489,143,472,154,478,201,471,200,472,154,471,200,292,200,472,154,292,200,292,154,292,41,292,315,257,315,292,41,257,315,257,200,257,154,257,41,292,41,257,154,292,41,257,200,257,154,257,200,38,200,257,154,38,200,38,154,153,203,150,206,151,147,151,147,150,206,148,210,151,147,148,210,147,143,147,143,148,210,147,214,146,138,141,253,141,102,141,102,141,253,108,225,141,102,108,225,108,130,108,130,108,225,72,200,108,130,72,200,72,154,72,154,72,200,34,180,72,154,34,180,34,173,200,315,171,283,182,260,200,315,182,260,193,274,200,315,193,274,204,288,200,315,204,288,214,302,171,283,141,253,149,222,171,283,149,222,151,226,171,283,151,226,154,230,171,283,154,230,157,234,171,283,157,
-234,170,247,171,283,170,247,182,260,147,218,149,222,141,253,147,218,141,253,147,214,181,96,169,109,171,72,171,72,169,109,156,121,171,72,156,121,152,125,306,41,341,41,306,154,306,154,341,41,306,200,306,154,306,200,165,154,165,154,306,200,165,200,165,154,165,200,160,153,158,201,153,203,155,150,158,201,155,150,160,153,158,201,160,153,165,200,306,315,341,41,341,315,341,200,341,154,483,154,341,200,483,154,484,200,484,200,483,154,490,153,484,200,490,153,488,201,199,41,213,54,204,68,199,41,204,68,193,82,199,41,193,82,181,96,199,41,181,96,171,72,502,216,502,140,507,102,502,216,507,102,508,253,508,253,507,102,540,130,508,253,540,130,541,225,541,225,540,130,576,154,541,225,576,154,576,200,576,200,576,154,615,173,576,200,615,173,615,180,508,253,477,283,480,245,508,253,480,245,492,233,508,253,492,233,496,229,508,253,496,229,499,226,508,253,499,226,500,222,508,253,500,222,501,219,508,253,501,219,502,216,434,302,444,288,448,315,448,315,444,288,456,273,448,315,456,273,477,283,477,283,456,273,468,259,477,283,468,259,480,245,467,94,477,72,479,107,479,107,477,72,507,102,479,107,507,102,491,120,491,120,507,102,495,124,488,201,490,153,493,203,493,203,490,153,495,151,493,203,495,151,497,207,497,207,495,151,499,148,497,207,499,148,500,211,500,211,499,148,501,144,500,211,501,144,502,216,502,216,501,144,502,140,507,102,502,140,501,136,507,102,501,136,500,132,507,102,500,132,498,128,507,102,498,128,495,124,455,81,444,68,448,41,455,81,448,41,477,72,455,81,477,72,467,94,146,135,146,138,141,102,146,135,141,102,148,132,148,132,141,102,171,72,148,132,171,72,150,128,150,128,171,72,152,125,448,41,444,68,434,54,306,200,341,41,306,315,147,143,147,214,146,138,153,203,151,147,155,150,147,214,141,253,146,138,162,203,158,206,159,147,159,147,158,206,156,210,159,147,156,210,156,143,156,143,156,210,155,214,155,138,149,253,149,102,149,102,149,253,117,225,149,102,117,225,116,130,116,130,117,225,81,200,116,130,81,200,81,154,81,154,81,200,42,180,81,154,42,180,42,173,209,315,180,283,190,260,209,315,190,260,201,
-274,209,315,201,274,212,288,209,315,212,288,223,302,180,283,149,253,157,222,180,283,157,222,159,226,180,283,159,226,161,230,180,283,161,230,165,234,180,283,165,234,177,247,180,283,177,247,190,260,156,218,157,222,149,253,156,218,149,253,155,214,189,96,177,109,180,72,180,72,177,109,165,121,180,72,165,121,161,125,359,315,323,315,359,41,359,41,323,315,323,200,359,41,323,200,323,154,323,154,323,200,173,200,323,154,173,200,173,154,168,153,173,154,173,200,168,153,173,200,167,201,163,150,168,153,167,201,163,150,167,201,162,203,163,150,162,203,159,147,448,315,414,315,448,41,448,41,414,315,414,200,448,41,414,200,414,154,414,154,414,200,359,200,414,154,359,200,359,154,448,154,606,154,448,200,208,41,222,54,212,68,208,41,212,68,201,82,208,41,201,82,189,96,208,41,189,96,180,72,155,135,155,138,149,102,155,135,149,102,156,132,156,132,149,102,180,72,156,132,180,72,158,128,158,128,180,72,161,125,448,200,606,154,606,200,448,41,414,154,414,41,359,41,323,154,323,41,156,143,155,214,155,138,155,214,149,253,155,138,492,132,490,128,499,102,499,102,490,128,487,125,499,102,487,125,484,121,484,121,471,109,499,102,499,102,471,109,469,72,499,253,468,283,470,247,499,253,470,247,483,234,499,253,483,234,486,230,499,253,486,230,489,226,499,253,489,226,491,221,499,253,491,221,493,218,499,253,493,218,493,214,499,253,493,214,494,138,499,253,494,138,499,102,499,253,499,102,532,225,426,302,436,288,440,315,440,315,436,288,447,274,440,315,447,274,468,283,468,283,447,274,458,260,468,283,458,260,470,247,606,173,606,180,568,154,568,154,606,180,568,200,568,154,568,200,532,130,532,130,568,200,532,225,532,130,532,225,499,102,499,102,494,138,493,135,499,102,493,135,492,132,471,109,459,96,469,72,469,72,459,96,447,82,469,72,447,82,441,41,441,41,447,82,436,68,441,41,436,68,427,54,494,138,493,214,492,143,492,143,493,214,492,210,492,143,492,210,490,206,475,154,480,153,481,201,481,201,480,153,485,150,481,201,485,150,487,203,487,203,485,150,489,147,487,203,489,147,490,206,490,206,489,147,492,143,475,154,481,201,474,200,475,
-154,474,200,325,200,475,154,325,200,325,154,325,41,325,315,290,315,325,41,290,315,290,200,234,315,199,315,234,41,234,41,199,315,199,200,234,41,199,200,199,154,199,154,199,200,42,200,199,154,42,200,42,154,325,41,290,200,290,154,290,154,290,200,234,200,290,154,234,200,234,154,325,41,290,154,290,41,234,41,199,154,199,41,146,203,143,206,144,147,144,147,143,206,141,210,144,147,141,210,140,143,140,143,141,210,140,214,139,138,134,253,134,102,134,102,134,253,101,225,134,102,101,225,101,130,101,130,101,225,65,200,101,130,65,200,65,154,65,154,65,200,27,180,65,154,27,180,27,173,193,315,164,283,175,260,193,315,175,260,186,274,193,315,186,274,197,288,193,315,197,288,207,302,164,283,134,253,142,222,164,283,142,222,144,226,164,283,144,226,147,230,164,283,147,230,150,234,164,283,150,234,163,247,164,283,163,247,175,260,140,218,142,222,134,253,140,218,134,253,140,214,174,96,162,109,164,72,164,72,162,109,149,121,164,72,149,121,145,125,262,41,297,41,262,154,262,154,297,41,262,200,262,154,262,200,158,154,158,154,262,200,158,200,158,154,158,200,153,153,151,201,146,203,148,150,151,201,148,150,153,153,151,201,153,153,158,200,387,315,352,315,387,41,387,41,352,315,352,200,387,41,352,200,352,154,352,154,352,200,297,200,352,154,297,200,297,154,297,41,297,315,262,315,297,41,262,315,262,200,387,200,387,154,490,154,387,200,490,154,491,200,491,200,490,154,497,153,491,200,497,153,495,201,508,140,514,102,509,216,509,216,514,102,515,253,515,253,514,102,548,130,515,253,548,130,548,225,548,225,548,130,583,154,548,225,583,154,583,200,583,200,583,154,622,173,583,200,622,173,622,180,515,253,484,283,487,245,515,253,487,245,499,233,515,253,499,233,503,229,515,253,503,229,506,226,515,253,506,226,507,222,515,253,507,222,508,219,515,253,508,219,509,216,441,302,451,288,455,315,455,315,451,288,463,273,455,315,463,273,484,283,484,283,463,273,475,259,484,283,475,259,487,245,474,94,484,72,486,107,486,107,484,72,514,102,486,107,514,102,498,120,498,120,514,102,502,124,507,136,506,132,514,102,507,136,514,102,508,140,504,128,502,
-124,514,102,504,128,514,102,506,132,462,81,451,68,455,41,462,81,455,41,484,72,462,81,484,72,474,94,505,148,507,144,507,211,507,211,507,144,508,140,507,211,508,140,509,216,495,201,497,153,500,203,500,203,497,153,502,151,500,203,502,151,504,207,504,207,502,151,505,148,504,207,505,148,507,211,192,41,206,54,197,68,192,41,197,68,186,82,192,41,186,82,174,96,192,41,174,96,164,72,139,135,139,138,134,102,139,135,134,102,141,132,141,132,134,102,164,72,141,132,164,72,143,128,143,128,164,72,145,125,455,41,451,68,441,54,387,41,352,154,352,41,140,143,140,214,139,138,146,203,144,147,148,150,140,214,134,253,139,138,42,180,42,180,82,200,82,200,42,180,82,154,82,200,82,154,121,225,121,225,82,154,110,178,195,238,223,40,223,314,223,314,223,40,230,44,223,314,230,44,230,311,230,200,230,154,606,154,230,200,606,154,606,200,193,283,159,252,164,211,193,283,164,211,182,225,193,283,182,225,195,238,193,283,195,238,223,314,159,252,121,225,126,186,159,252,126,186,144,198,159,252,144,198,164,211,223,40,195,238,195,116,223,40,195,116,193,71,193,71,195,116,182,130,193,71,182,130,164,144,159,101,193,71,164,144,159,101,164,144,144,158,159,101,144,158,126,169,159,101,126,169,122,129,110,178,82,154,122,129,110,178,122,129,126,169,82,154,42,180,42,173,121,225,110,178,126,186,426,314,419,311,426,40,426,40,419,311,419,200,426,40,419,200,419,154,419,154,419,200,42,200,419,154,42,200,42,154,606,173,606,180,566,154,566,154,606,180,566,200,566,154,566,200,538,177,538,177,566,200,527,225,538,177,527,225,523,185,523,185,527,225,504,197,490,253,455,283,466,225,490,253,466,225,484,211,490,253,484,211,504,197,490,253,504,197,527,225,504,157,484,144,490,101,490,101,484,144,466,130,490,101,466,130,456,71,456,71,466,130,454,117,456,71,454,117,426,314,426,314,454,117,454,238,426,314,454,238,455,283,455,283,454,238,466,225,538,177,523,168,527,129,538,177,527,129,566,154,504,157,490,101,527,129,504,157,527,129,523,168,426,40,419,154,419,44,426,314,426,40,456,71,14,180,14,180,54,200,54,200,14,180,54,
-154,54,200,54,154,93,225,93,225,54,154,82,178,454,314,447,311,454,40,454,40,447,311,447,200,454,40,447,200,447,154,447,154,447,200,202,200,447,154,202,200,202,154,202,44,202,311,195,314,202,44,195,314,195,40,195,40,195,314,166,238,165,283,130,252,136,211,165,283,136,211,154,225,165,283,154,225,166,238,165,283,166,238,195,314,130,252,93,225,97,186,130,252,97,186,117,198,130,252,117,198,136,211,634,173,634,180,594,154,594,154,634,180,594,200,594,154,594,200,566,177,566,177,594,200,555,225,566,177,555,225,551,185,551,185,555,225,532,197,518,253,484,283,494,225,518,253,494,225,512,211,518,253,512,211,532,197,518,253,532,197,555,225,532,157,512,144,518,101,518,101,512,144,494,130,518,101,494,130,484,71,484,71,494,130,481,117,484,71,481,117,454,314,454,314,481,117,481,238,454,314,481,238,484,283,484,283,481,238,494,225,566,177,551,168,555,129,566,177,555,129,594,154,532,157,518,101,555,129,532,157,555,129,551,168,166,116,154,130,165,71,166,116,165,71,195,40,166,116,195,40,166,238,136,144,117,158,131,101,136,144,131,101,165,71,136,144,165,71,154,130,97,169,82,178,94,129,97,169,94,129,131,101,97,169,131,101,117,158,94,129,82,178,54,154,454,40,447,154,447,44,454,314,454,40,484,71,54,154,14,180,14,173,93,225,82,178,97,186};

diff --git a/src/eval.cpp b/src/eval.cpp
index ca89c53bc76f902b94a79dbc8a114ef3504f30cd..01216b015e5db056cdfdc2ca9500504ac61640ca 100644 (file)
--- a/src/eval.cpp
+++ b/src/eval.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * eval.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -43,16 +43,16 @@ EQ_ADD,             // addition x+y
 EQ_SUB,                // substraction x-y\r
 EQ_MUL,                // multiplication x*y\r
 EQ_DIV,                // division x/y\r
-EQ_IPOW,       // power x^n for integer n\r
+EQ_IPOW,               // power x^n for integer n\r
 EQ_POW,                // power x^y\r
 EQ_MOD,                // x modulo y\r
 EQ_LOG,                // logarithm of x on base a, log_a(x) = ln(x)/ln(a)\r
 EQ_ARG,                // argument of complex number arg(x,y) = atan2(x,y)\r
 // special functions of 2 arguments\r
-EQ_BESJ,       // regular cylindrical Bessel function of fractional order\r
-EQ_BESY,       // irregular cylindrical Bessel function of fractional order\r
-EQ_BESI,       // regular modified Bessel function of fractional order\r
-EQ_BESK,       // irregular modified Bessel function of fractional order\r
+EQ_BESJ,               // regular cylindrical Bessel function of fractional order\r
+EQ_BESY,               // irregular cylindrical Bessel function of fractional order\r
+EQ_BESI,               // regular modified Bessel function of fractional order\r
+EQ_BESK,               // irregular modified Bessel function of fractional order\r
 EQ_ELE,                // elliptic integral E(\phi,k) = \int_0^\phi dt   \sqrt((1 - k^2 \sin^2(t)))\r
 EQ_ELF,                // elliptic integral F(\phi,k) = \int_0^\phi dt 1/\sqrt((1 - k^2 \sin^2(t)))\r
 EQ_LP,         // Legendre polynomial P_l(x), (|x|<=1, l>=0)\r
@@ -61,27 +61,27 @@ EQ_BETA,    // beta function B(x,y) = Gamma(x)*Gamma(y)/Gamma(x+y)
 EQ_SIN,                // sine function \sin(x).                       !!! MUST BE FIRST 1-PLACE FUNCTION\r
 EQ_COS,                // cosine function \cos(x).\r
 EQ_TAN,                // tangent function \tan(x).\r
-EQ_ASIN,       // inverse sine function \sin(x).\r
-EQ_ACOS,       // inverse cosine function \sin(x).\r
-EQ_ATAN,       // inverse tangent function \tan(x).\r
-EQ_SINH,       // hyperbolic sine function \sin(x).\r
-EQ_COSH,       // hyperbolic cosine function \sin(x).\r
-EQ_TANH,       // hyperbolic tangent function \tan(x).\r
+EQ_ASIN,               // inverse sine function \sin(x).\r
+EQ_ACOS,               // inverse cosine function \sin(x).\r
+EQ_ATAN,               // inverse tangent function \tan(x).\r
+EQ_SINH,               // hyperbolic sine function \sin(x).\r
+EQ_COSH,               // hyperbolic cosine function \sin(x).\r
+EQ_TANH,               // hyperbolic tangent function \tan(x).\r
 EQ_ASINH,      // inverse hyperbolic sine function \sin(x).\r
 EQ_ACOSH,      // inverse hyperbolic cosine function \sin(x).\r
 EQ_ATANH,      // inverse hyperbolic tangent function \tan(x).\r
-EQ_SQRT,       // square root function \sqrt(x)\r
+EQ_SQRT,               // square root function \sqrt(x)\r
 EQ_EXP,                // exponential function \exp(x)\r
 EQ_LN,         // logarithm of x, ln(x)\r
 EQ_LG,         // decimal logarithm of x, lg(x) = ln(x)/ln(10)\r
 EQ_SIGN,       // sign of number\r
-EQ_STEP,       // step function\r
+EQ_STEP,               // step function\r
 EQ_INT,                // integer part [x]\r
 EQ_ABS,                // absolute value of x\r
 // special functions of 1 argument\r
 EQ_LI2,                // dilogarithm for a real argument Li2(x) = - \Re \int_0^x ds \log(1-s)/s.\r
-EQ_ELLE,       // complete elliptic integral is denoted by E(k) = E(\pi/2, k).\r
-EQ_ELLK,       // complete elliptic integral is denoted by K(k) = F(\pi/2, k).\r
+EQ_ELLE,               // complete elliptic integral is denoted by E(k) = E(\pi/2, k).\r
+EQ_ELLK,               // complete elliptic integral is denoted by K(k) = F(\pi/2, k).\r
 EQ_AI,         // Airy function Ai(x)\r
 EQ_BI,         // Airy function Bi(x)\r
 EQ_ERF,                // error function erf(x) = (2/\sqrt(\pi)) \int_0^x dt \exp(-t^2).\r
@@ -134,7 +134,7 @@ bool mglCheck(char *str,int n);
 int mglFindInText(char *str,const char *lst);\r
 //-----------------------------------------------------------------------------\r
 #if MGL_HAVE_GSL\r
-gsl_rng *mgl_rng=0;    // TODO: should be deleted by gsl_rng_free() but I don't know where :(\r
+gsl_rng *mgl_rng=0;    // NOTE: should be deleted by gsl_rng_free() but I don't know where :(\r
 #endif\r
 void mgl_srnd(long seed)\r
 {\r
@@ -250,11 +250,11 @@ mglFormula::mglFormula(const char *string)
        }\r
 \r
        for(n=0;n<len;n++)      if(str[n]=='(') break;\r
-       if(n>=len)                                                      // this is number or variable\r
+       if(n>=len)                                                              // this is number or variable\r
        {\r
                Kod = EQ_NUM;\r
 //             Left = Right = 0;\r
-               if(str[1]==0 && str[0]>='a' && str[0]<='z')     // avalible variables\r
+               if(str[1]==0 && str[0]>='a' && str[0]<='z')     // available variables\r
                {       Kod=EQ_A;       Res = str[0]-'a';       }\r
                else if(!strcmp(str,"rnd")) Kod=EQ_RND;\r
                else if(!strcmp(str,"pi")) Res=M_PI;\r
@@ -401,8 +401,7 @@ mreal mglFormula::Calc(mreal x,mreal y,mreal t,mreal u) const
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = a1['v'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
-       mreal a = CalcIn(a1);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcIn(a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
 // evaluate formula for 'x'='r', 'y'='n', 't'='z', 'u'='a', 'v'='b', 'w'='c' variables\r
@@ -416,16 +415,14 @@ mreal mglFormula::Calc(mreal x,mreal y,mreal t,mreal u,mreal v,mreal w) const
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
-       mreal a = CalcIn(a1);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcIn(a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
 // evaluate formula for arbitrary set of variables\r
 mreal mglFormula::Calc(const mreal var[MGL_VS]) const\r
 {\r
        Error=0;\r
-       mreal a = CalcIn(var);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcIn(var);\r
 }\r
 //-----------------------------------------------------------------------------\r
 // evaluate formula for 'x'='r', 'y'='n'='v', 't'='z', 'u'='a' variables\r
@@ -437,8 +434,7 @@ mreal mglFormula::CalcD(char diff,mreal x,mreal y,mreal t,mreal u) const
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = a1['v'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
-       mreal a = CalcDIn(diff-'a', a1);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcDIn(diff-'a', a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
 // evaluate formula for 'x'='r', 'y'='n', 't'='z', 'u'='a', 'v'='b', 'w'='c' variables\r
@@ -452,16 +448,14 @@ mreal mglFormula::CalcD(char diff,mreal x,mreal y,mreal t,mreal u,mreal v,mreal
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
-       mreal a = CalcDIn(diff-'a', a1);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcDIn(diff-'a', a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
 // evaluate derivate of formula respect to 'diff' variable for arbitrary set of other variables\r
 mreal mglFormula::CalcD(const mreal var[MGL_VS], char diff) const\r
 {\r
        Error=0;\r
-       mreal a = CalcDIn(diff-'a', var);\r
-       return isfinite(a) ? a : NAN;\r
+       return CalcDIn(diff-'a', var);\r
 }\r
 //-----------------------------------------------------------------------------\r
 double cand(double a,double b) {return a&&b?1:0;}\r

diff --git a/src/evalc.cpp b/src/evalc.cpp
index 66defaab3b2c0e2c1b1a853d50f1805fae93beba..a8042e68385f91086723cf6ea87283c1015c46bd 100644 (file)
--- a/src/evalc.cpp
+++ b/src/evalc.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_evalc.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -30,35 +30,35 @@ double mgl_rnd();
 double mgl_ipow(double x,int n);\r
 }\r
 //-----------------------------------------------------------------------------\r
-//     ��������� ��� ������������� ���������\r
+//     constants for expression parsing\r
 enum{\r
 EQ_NUM=0,      // a variable substitution\r
 EQ_RND,                // random number\r
 EQ_A,          // numeric constant\r
-// ���������� �������\r
+// normal functions of 2 arguments\r
 EQ_ADD,                // addition x+y\r
 EQ_SUB,                // substraction x-y\r
 EQ_MUL,                // multiplication x*y\r
 EQ_DIV,                // division x/y\r
-EQ_IPOW,       // power x^n for integer n\r
+EQ_IPOW,               // power x^n for integer n\r
 EQ_POW,                // power x^y\r
 EQ_LOG,                // logarithm of x on base a, log_a(x) = ln(x)/ln(a)\r
-// ����������� �������\r
+// normal functions of 1 argument\r
 EQ_SIN,                // sine function \sin(x).                       !!! MUST BE FIRST 1-PLACE FUNCTION\r
 EQ_COS,                // cosine function \cos(x).\r
 EQ_TAN,                // tangent function \tan(x).\r
-EQ_ASIN,       // inverse sine function \asin(x).\r
-EQ_ACOS,       // inverse cosine function \acos(x).\r
-EQ_ATAN,       // inverse tangent function \atan(x).\r
-EQ_SINH,       // hyperbolic sine function \sinh(x).\r
-EQ_COSH,       // hyperbolic cosine function \cosh(x).\r
-EQ_TANH,       // hyperbolic tangent function \tanh(x).\r
+EQ_ASIN,               // inverse sine function \asin(x).\r
+EQ_ACOS,               // inverse cosine function \acos(x).\r
+EQ_ATAN,               // inverse tangent function \atan(x).\r
+EQ_SINH,               // hyperbolic sine function \sinh(x).\r
+EQ_COSH,               // hyperbolic cosine function \cosh(x).\r
+EQ_TANH,               // hyperbolic tangent function \tanh(x).\r
 EQ_ASINH,      // inverse hyperbolic sine function \asinh(x).\r
 EQ_ACOSH,      // inverse hyperbolic cosine function \acosh(x).\r
 EQ_ATANH,      // inverse hyperbolic tangent function \atanh(x).\r
-EQ_SQRT,       // square root function \sqrt(x)\r
+EQ_SQRT,               // square root function \sqrt(x)\r
 EQ_EXP,                // exponential function \exp(x)\r
-EQ_EXPI,       // exponential function \exp(i*x)\r
+EQ_EXPI,               // exponential function \exp(i*x)\r
 EQ_LN,         // logarithm of x, ln(x)\r
 EQ_LG,         // decimal logarithm of x, lg(x) = ln(x)/ln(10)\r
 EQ_ABS         // absolute value\r
@@ -68,14 +68,13 @@ int mglFormulaC::Error=0;
 bool mglCheck(char *str,int n);\r
 int mglFindInText(char *str,const char *lst);\r
 //-----------------------------------------------------------------------------\r
-// ���������� �������\r
 mglFormulaC::~mglFormulaC()\r
 {\r
        if(Left) delete Left;\r
        if(Right) delete Right;\r
 }\r
 //-----------------------------------------------------------------------------\r
-// ����������� ������� (������������� ���������� � "�����������" �������)\r
+// Formula constructor (automatically parse and "compile" formula)\r
 mglFormulaC::mglFormulaC(const char *string)\r
 {\r
        Error=0;\r
@@ -91,14 +90,14 @@ mglFormulaC::mglFormulaC(const char *string)
        mgl_strlwr(str);\r
        len=strlen(str);\r
        if(str[0]==0) { delete []str;   return; }\r
-       if(str[0]=='(' && mglCheck(&(str[1]),len-2))    // ���� ��� ��������� � ������, �� �������  ��\r
+       if(str[0]=='(' && mglCheck(&(str[1]),len-2))    // remove braces\r
        {\r
                strcpy(Buf,str+1);\r
                len-=2; Buf[len]=0;\r
                strcpy(str,Buf);\r
        }\r
        len=strlen(str);\r
-       n=mglFindInText(str,"+-");                              // ������� ��������� - ��������, ���������\r
+       n=mglFindInText(str,"+-");                              // normal priority -- additions\r
        if(n>=0)\r
        {\r
                if(str[n]=='+') Kod=EQ_ADD; else Kod=EQ_SUB;\r
@@ -108,7 +107,7 @@ mglFormulaC::mglFormulaC(const char *string)
                delete []str;\r
                return;\r
        }\r
-       n=mglFindInText(str,"*/");                              // ������� ��������� - ���������, �������\r
+       n=mglFindInText(str,"*/");                              // high priority -- multiplications\r
        if(n>=0)\r
        {\r
                if(str[n]=='*') Kod=EQ_MUL; else Kod=EQ_DIV;\r
@@ -118,7 +117,7 @@ mglFormulaC::mglFormulaC(const char *string)
                delete []str;\r
                return;\r
        }\r
-       n=mglFindInText(str,"^");                               // ������� ��������� - ���������� � �������\r
+       n=mglFindInText(str,"^");                               // highest priority -- power\r
        if(n>=0)\r
        {\r
                Kod=EQ_IPOW;\r
@@ -130,16 +129,16 @@ mglFormulaC::mglFormulaC(const char *string)
        }\r
 \r
        for(n=0;n<len;n++)      if(str[n]=='(') break;\r
-       if(n>=len)                                                      // ��� ����� ��� ����������\r
+       if(n>=len)                                                              // this is number or variable\r
        {\r
                Kod = EQ_NUM;\r
 //             Left = Right = 0;\r
-               if(str[1]==0 && str[0]>='a' && str[0]<='z')     // ��������� ���������\r
+               if(str[1]==0 && str[0]>='a' && str[0]<='z')     // available variables\r
                {       Kod=EQ_A;       Res = str[0]-'a';       }\r
                else if(!strcmp(str,"rnd")) Kod=EQ_RND;\r
                else if(!strcmp(str,"pi")) Res=M_PI;\r
                else if(str[0]=='i')    Res = dual(0,str[1]>' '?atof(str+1):1);\r
-               else Res=atof(str);                             // ��� �����\r
+               else Res=atof(str);                                     // this is number\r
        }\r
        else\r
        {\r
@@ -194,6 +193,7 @@ dual mglFormulaC::Calc(dual x,dual y,dual t,dual u) const
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = a1['v'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
+       a1['i'-'a'] = dual(0,1);\r
        return CalcIn(a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -208,6 +208,7 @@ dual mglFormulaC::Calc(dual x,dual y,dual t,dual u,dual v,dual w) const
        a1['x'-'a'] = a1['r'-'a'] = x;\r
        a1['y'-'a'] = a1['n'-'a'] = y;\r
        a1['z'-'a'] = a1['t'-'a'] = t;\r
+       a1['i'-'a'] = dual(0,1);\r
        return CalcIn(a1);\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -229,18 +230,18 @@ dual expi(dual a) {       return exp(dual(0,1)*a);        }
 dual expi(double a)    {       return dual(cos(a),sin(a));     }\r
 //-----------------------------------------------------------------------------\r
 dual ic = dual(0,1);\r
-dual asinhc(dual x)    {       return log(x+sqrt(x*x+1.));     }\r
-dual acoshc(dual x)    {       return log(x+sqrt(x*x-1.));     }\r
-dual atanhc(dual x)    {       return log((1.+x)/(1.-x))/2.;   }\r
+dual asinhc(dual x)    {       return log(x+sqrt(x*x+mreal(1)));       }\r
+dual acoshc(dual x)    {       return log(x+sqrt(x*x-mreal(1)));       }\r
+dual atanhc(dual x)    {       return log((mreal(1)+x)/(mreal(1)-x))/mreal(2); }\r
 dual sinc(dual x)      {       return sin(x);  }\r
 dual cosc(dual x)      {       return cos(x);  }\r
 dual tanc(dual x)      {       return tan(x);  }\r
 dual sinhc(dual x)     {       return sinh(x); }\r
 dual coshc(dual x)     {       return cosh(x); }\r
 dual tanhc(dual x)     {       return tanh(x); }\r
-dual asinc(dual x)     {       return log(ic*x+sqrt(1.-x*x))/ic;       }\r
-dual acosc(dual x)     {       return log(x+sqrt(x*x-1.))/ic;  }\r
-dual atanc(dual x)     {       return log((ic-x)/(ic+x))/(2.*ic);      }\r
+dual asinc(dual x)     {       return log(ic*x+sqrt(mreal(1)-x*x))/ic; }\r
+dual acosc(dual x)     {       return log(x+sqrt(x*x-mreal(1)))/ic;    }\r
+dual atanc(dual x)     {       return log((ic-x)/(ic+x))/(mreal(2)*ic);        }\r
 dual expc(dual x)      {       return exp(x);  }\r
 dual sqrtc(dual x)     {       return sqrt(x); }\r
 dual logc(dual x)      {       return log(x);  }\r
@@ -278,8 +279,8 @@ dual mgl_ipowc(dual x,int n)
        dual t;\r
        if(n==2)        return x*x;\r
        if(n==1)        return x;\r
-       if(n<0)         return 1./mgl_ipowc(x,-n);\r
-       if(n==0)        return 1.;\r
+       if(n<0)         return mreal(1)/mgl_ipowc(x,-n);\r
+       if(n==0)        return mreal(1);\r
        t = mgl_ipowc(x,n/2);   t = t*t;\r
        if(n%2==1)      t *= x;\r
        return t;\r

diff --git a/src/evalp.cpp b/src/evalp.cpp
index 0206a00804a2a929ddb08dba90d5377f1d0340e8..1d28324d4d2fd90af52e4af42a80fbf42396ae36 100644 (file)
--- a/src/evalp.cpp
+++ b/src/evalp.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mgl_evalp.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -18,6 +18,7 @@
  *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
  ***************************************************************************/
 #include <time.h>
+#include <ctype.h>
 #include "mgl2/parser.h"
 #if MGL_HAVE_GSL
 #include <gsl/gsl_sf.h>
@@ -272,7 +273,7 @@ mglData mglFormulaCalc(const wchar_t *string, mglParser *arg)
        {
                mglVar *v = arg->FindVar(str);
                mglNum *f = arg->FindNum(str);
-               if(v)   res = v->d;
+               if(v)   res = v;
                else if(f)      res.a[0] = f->d;
                else if(!wcscmp(str,L"rnd"))    res.a[0] = mgl_rnd();
                else if(!wcscmp(str,L"nan"))    res.a[0] = NAN;
@@ -302,7 +303,7 @@ mglData mglFormulaCalc(const wchar_t *string, mglParser *arg)
                        {
                                char *buf = new char[len];
                                Buf[len-1]=0;   mgl_wcstombs(buf, Buf+1, len-1);
-                               res=v->d.Column(buf);   delete []buf;
+                               res=v->Column(buf);     delete []buf;
                        }
                        else
                        {
@@ -327,7 +328,7 @@ mglData mglFormulaCalc(const wchar_t *string, mglParser *arg)
                                        }
                                }
                                else    a1 = mglFormulaCalc(Buf, arg);
-                               res = v->d.SubData(a1,a2,a3);
+                               res = v->SubData(a1,a2,a3);
                        }
                }
                else if(name[0]=='a')   // function
@@ -568,7 +569,7 @@ mglData mglFormulaCalc(const wchar_t *string, mglParser *arg)
                        else
                        {       Buf[n]=0;       res = mglApplyOper(Buf,Buf+n+1,arg, fmod);      }
                }
-               else if(!wcscmp(name+1,L"int"))
+               else if(!wcscmp(name,L"int"))
                {       res=mglFormulaCalc(Buf, arg);
                        for(i=0;i<res.nx*res.ny*res.nz;i++)     res.a[i] = floor(res.a[i]);     }
 #if MGL_HAVE_GSL

diff --git a/src/exec.cpp b/src/exec.cpp
index 9e8d96294d37440170425368c5fb04012ae048a6..b0df63401dbd188de6ccfab393e53e551d4974e2 100644 (file)
--- a/src/exec.cpp
+++ b/src/exec.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mgl_exec.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -35,7 +35,7 @@ int mgls_addlegend(mglGraph *gr, long , mglArg *a, int k[10], const char *)
        return 0;
 }
 void mglc_addlegend(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
-{      if(k[0]==2 && k[1]==2)  mglprintf(out,1024,L"gr->AddLegend(\"%ls\", \"%s\");",a[0].w.c_str(),a[1].s.c_str());   }
+{      if(k[0]==2 && k[1]==2)  mglprintf(out,1024,L"gr->AddLegend(L\"%ls\", \"%s\");",a[0].w.c_str(),a[1].s.c_str());  }
 //-----------------------------------------------------------------------------
 int mgls_addto(mglGraph *, long , mglArg *a, int k[10], const char *)
 {
@@ -70,6 +70,17 @@ void mglc_alpha(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
        mglprintf(out,1024,L"gr->Alpha(%s);",(k[0]==3&&a[0].v!=0)?"true":"false");
 }
 //-----------------------------------------------------------------------------
+int mgls_plotid(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==2)     gr->SetPlotId(a[1].s.c_str());
+       else    return 1;
+       return 0;
+}
+void mglc_plotid(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==2)     mglprintf(out,1024,L"gr->SetPlotId(\"%s\");",a[0].s.c_str());
+}
+//-----------------------------------------------------------------------------
 int mgls_alphadef(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
        if(k[0]==3)     gr->SetAlphaDef(a[0].v);        else    return 1;
@@ -134,22 +145,22 @@ void mglc_axial(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->Axial(%s, %s, %s, \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), k[3]==2?a[3].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_axis(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_axis(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2 && k[1]==2)  gr->SetFunc(a[0].s.c_str(),a[1].s.c_str(),k[2]==2?a[2].s.c_str():"",k[3]==2?a[3].s.c_str():"");
-       else if(k[0]==2)        gr->Axis(a[0].s.c_str(), k[1]==2?a[1].s.c_str():"");
+       if(k[0]==2 && k[1]==2 && k[2]==2)       gr->SetFunc(a[0].s.c_str(),a[1].s.c_str(),a[2].s.c_str(),k[3]==2?a[3].s.c_str():"");
+       else if(k[0]==2)        gr->Axis(a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",opt);
        else if(k[0]==3)        gr->SetCoor(iint(a[0].v));
-       else if(k[0]==0)        gr->Axis("xyz");
+       else if(k[0]==0)        gr->Axis("xyz","",opt);
        else return 1;
        return 0;
 }
-void mglc_axis(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_axis(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==2 && k[1]==2 && k[2]==2)
                mglprintf(out,1024,L"gr->SetFunc(\"%s\", \"%s\", \"%s\", \"%s\");", a[0].s.c_str(),a[1].s.c_str(),a[2].s.c_str(),k[2]==2?a[2].s.c_str():"",k[3]==2?a[3].s.c_str():"");
-       else if(k[0]==2)        mglprintf(out,1024,L"gr->Axis(\"%s\", \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"");
+       else if(k[0]==2)        mglprintf(out,1024,L"gr->Axis(\"%s\", \"%s\",\"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",opt);
        else if(k[0]==3)        mglprintf(out,1024,L"gr->SetCoor(\"%d\");", iint(a[0].v));
-       else if(k[0]==0)        mglprintf(out,1024,L"gr->Axis(\"xyz\");");
+       else if(k[0]==0)        mglprintf(out,1024,L"gr->Axis(\"xyz\",\"\",\"%s\");",opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_ball(mglGraph *gr, long , mglArg *a, int k[10], const char *)
@@ -157,7 +168,7 @@ int mgls_ball(mglGraph *gr, long , mglArg *a, int k[10], const char *)
        if(k[0]==3 && k[1]==3 && k[2]==3)
                gr->Mark(mglPoint(a[0].v,a[1].v,a[2].v),k[3]==2 ? a[3].s.c_str():"r.");
        else if(k[0]==3 && k[1]==3)
-               gr->Mark(mglPoint(a[0].v,a[1].v),k[2]==2 ? a[2].s.c_str():"r.");
+               gr->Mark(mglPoint(a[0].v,a[1].v,NAN),k[2]==2 ? a[2].s.c_str():"r.");
        else    return 1;
        return 0;
 }
@@ -166,7 +177,7 @@ void mglc_ball(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
        if(k[0]==3 && k[1]==3 && k[2]==3)
                mglprintf(out,1024,L"gr->Mark(mglPoint(%g, %g, %g), \"%s\");", a[0].v,a[1].v,a[2].v,k[3]==2 ? a[3].s.c_str():"r.");
        else if(k[0]==3 && k[1]==3)
-               mglprintf(out,1024,L"gr->Mark(mglPoint(%g, %g), \"%s\");", a[0].v, a[1].v, k[2]==2 ? a[2].s.c_str():"r.");
+               mglprintf(out,1024,L"gr->Mark(mglPoint(%g, %g, NAN), \"%s\");", a[0].v, a[1].v, k[2]==2 ? a[2].s.c_str():"r.");
 }
 //-----------------------------------------------------------------------------
 int mgls_box(mglGraph *gr, long , mglArg *a, int k[10], const char *)
@@ -264,7 +275,7 @@ void mglc_boxs(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->Boxs(%s, %s, %s, \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), k[3]==2?a[3].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_beam(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_beam(mglGraph *gr, long , mglArg *a, int k[10], const char *)         // NOTE beam can be made obsolete ???
 {
        if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1 && k[4]==3)
                gr->Beam(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),a[4].v,
@@ -347,6 +358,19 @@ void mglc_crop(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
                mglprintf(out,1024,L"%s.Crop(%d, %d, '%c');",a[0].s.c_str(), iint(a[1].v), iint(a[2].v), a[3].s.c_str()[0]);
 }
 //-----------------------------------------------------------------------------
+int mgls_clean(mglGraph *, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==1 && k[1]==3)
+               a[0].d->Clean(iint(a[1].v));
+       else    return 1;
+       return 0;
+}
+void mglc_clean(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==1 && k[1]==3)
+               mglprintf(out,1024,L"%s.Clean(%d);",a[0].s.c_str(), iint(a[1].v));
+}
+//-----------------------------------------------------------------------------
 int mgls_cumsum(mglGraph *, long , mglArg *a, int k[10], const char *)
 {
        if(k[0]==1 && k[1]==2)  a[0].d->CumSum(a[1].s.c_str());
@@ -367,9 +391,9 @@ int mgls_curve(mglGraph *gr, long n, mglArg *a, int [10], const char *)
                        mglPoint(a[9].v,a[10].v,a[11].v),
                        (n>12 && a[12].type==1) ? a[12].s.c_str() : 0);
        else if(i==8)
-               gr->Curve(mglPoint(a[0].v,a[1].v),
+               gr->Curve(mglPoint(a[0].v,a[1].v,NAN),
                        mglPoint(a[2].v,a[3].v),
-                       mglPoint(a[4].v,a[5].v),
+                       mglPoint(a[4].v,a[5].v,NAN),
                        mglPoint(a[6].v,a[7].v),
                        (n>8 && a[8].type==1) ? a[8].s.c_str() : 0);
        return 0;
@@ -381,7 +405,7 @@ void mglc_curve(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
        if(i==12)
                mglprintf(out,1024,L"gr->Curve(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v, a[6].v, a[7].v, a[8].v, a[9].v, a[10].v, a[11].v, (n>12 && a[12].type==1) ? a[12].s.c_str() : "");
        else if(i==8)
-               mglprintf(out,1024,L"gr->Curve(mglPoint(%g, %g), mglPoint(%g, %g), mglPoint(%g, %g), mglPoint(%g, %g), \"%s\");", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v, a[6].v, a[7].v, (n>8 && a[8].type==1) ? a[8].s.c_str() : "");
+               mglprintf(out,1024,L"gr->Curve(mglPoint(%g, %g, NAN), mglPoint(%g, %g), mglPoint(%g, %g, NAN), mglPoint(%g, %g), \"%s\");", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v, a[6].v, a[7].v, (n>8 && a[8].type==1) ? a[8].s.c_str() : "");
 }
 //-----------------------------------------------------------------------------
 int mgls_cut(mglGraph *gr, long n, mglArg *a, int k[10], const char *)
@@ -417,20 +441,20 @@ void mglc_crust(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 //-----------------------------------------------------------------------------
 int mgls_colorbar(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==1 && k[1]==2 && k[2]==3 && k[3]==3 && k[4]==3 && k[5]==3)
-               gr->Colorbar(*(a[0].d), a[1].s.c_str(), a[2].v, a[3].v, a[4].v, a[5].v);
-       else if(k[0]==2 && k[1]==3 && k[2]==3 && k[3]==3 && k[4]==3)
-               gr->Colorbar(a[0].s.c_str(), a[1].v, a[2].v, a[3].v, a[4].v);
+       if(k[0]==1 && k[1]==2 && k[2]==3 && k[3]==3)
+               gr->Colorbar(*(a[0].d), a[1].s.c_str(), a[2].v, a[3].v, k[4]==3?a[4].v:1, k[5]==3?a[5].v:1);
+       else if(k[0]==2 && k[1]==3 && k[2]==3)
+               gr->Colorbar(a[0].s.c_str(), a[1].v, a[2].v, k[3]==3?a[3].v:1, k[4]==3?a[4].v:1);
        else if(k[0]==1)        gr->Colorbar(*(a[0].d), k[1]==2 ? a[1].s.c_str():"");
        else    gr->Colorbar(k[0]==2 ? a[0].s.c_str():"");
        return 0;
 }
 void mglc_colorbar(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==1 && k[1]==2 && k[2]==3 && k[3]==3 && k[4]==3 && k[5]==3)
-               mglprintf(out,1024,L"gr->Colorbar(%s, \"%s\", %g, %g, %g, %g);",a[0].s.c_str(), a[1].s.c_str(), a[2].v, a[3].v, a[4].v, a[5].v);
-       else if(k[0]==2 && k[1]==3 && k[2]==3 && k[3]==3 && k[4]==3)
-               mglprintf(out,1024,L"gr->Colorbar(\"%s\", %g, %g, %g, %g);",a[0].s.c_str(), a[1].v, a[2].v, a[3].v, a[4].v);
+       if(k[0]==1 && k[1]==2 && k[2]==3 && k[3]==3)
+               mglprintf(out,1024,L"gr->Colorbar(%s, \"%s\", %g, %g, %g, %g);",a[0].s.c_str(), a[1].s.c_str(), a[2].v, a[3].v, k[4]==3?a[4].v:1, k[5]==3?a[5].v:1);
+       else if(k[0]==2 && k[1]==3 && k[2]==3)
+               mglprintf(out,1024,L"gr->Colorbar(\"%s\", %g, %g, %g, %g);",a[0].s.c_str(), a[1].v, a[2].v, k[3]==3?a[3].v:1, k[4]==3?a[4].v:1);
        else if(k[0]==1)
                mglprintf(out,1024,L"gr->Colorbar(%s, \"%s\");",a[0].s.c_str(), k[1]==2 ? a[1].s.c_str():"");
        else
@@ -442,8 +466,7 @@ int mgls_copy(mglGraph *gr, long , mglArg *a, int k[10], const char *)
        if(k[0]==1 && k[1]==1)
        {
                a[0].d->Set(*(a[1].d));
-               if(k[2]==2 && (k[3]!=3 || a[3].v!=0))   gr->Fill(*(a[0].d), a[2].s.c_str());
-               else if(k[2]==2)        a[0].d->Modify(a[2].s.c_str());
+               if(k[2]==2)     gr->Fill(*(a[0].d), a[2].s.c_str());
        }
        else if(k[0]==1 && k[1]==3)             *(a[0].d) = a[1].v;
        else    return 1;
@@ -451,10 +474,8 @@ int mgls_copy(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 }
 void mglc_copy(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==1 && k[1]==1 && k[2]==2 && (k[3]!=3 || a[3].v!=0))
+       if(k[0]==1 && k[1]==1 && k[2]==2)
                mglprintf(out,1024,L"%s.Set(%s);\tgr->Fill(%s,\"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str());
-       else if(k[0]==1 && k[1]==1 && k[2]==2)
-               mglprintf(out,1024,L"%s.Set(%s);\t%s.Modify(\"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str());
        else if(k[0]==1 && k[1]==1)
                mglprintf(out,1024,L"%s.Set(%s);", a[0].s.c_str(), a[1].s.c_str());
        else if(k[0]==1 && k[1]==3)
@@ -571,48 +592,48 @@ int mgls_cont3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return 1;
        else if(k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1)
-               gr->Cont3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), *(a[4].d), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1, opt);
+               gr->Cont3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), *(a[4].d), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1,opt);
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               gr->Cont3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               gr->Cont3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else if(k[1]==1)
-               gr->Cont3(*(a[0].d), *(a[1].d), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1, opt);
-       else    gr->Cont3(*(a[0].d), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1, opt);
+               gr->Cont3(*(a[0].d), *(a[1].d), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1,opt);
+       else    gr->Cont3(*(a[0].d), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1,opt);
        return 0;
 }
 void mglc_cont3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return;
        else if(k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1)
-               mglprintf(out,1024,L"gr->Cont3(%s, %s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1, opt);
+               mglprintf(out,1024,L"gr->Cont3(%s, %s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1,opt);
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               mglprintf(out,1024,L"gr->Cont3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               mglprintf(out,1024,L"gr->Cont3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else if(k[1]==1)
-               mglprintf(out,1024,L"gr->Cont3(%s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1, opt);
-       else    mglprintf(out,1024,L"gr->Cont3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1, opt);
+               mglprintf(out,1024,L"gr->Cont3(%s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1,opt);
+       else    mglprintf(out,1024,L"gr->Cont3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1,opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_contf3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return 1;
        else if(k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1)
-               gr->ContF3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), *(a[4].d), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1, opt);
+               gr->ContF3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), *(a[4].d), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1,opt);
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               gr->ContF3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               gr->ContF3(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else if(k[1]==1)
-               gr->ContF3(*(a[0].d), *(a[1].d), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1, opt);
-       else    gr->ContF3(*(a[0].d), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1, opt);
+               gr->ContF3(*(a[0].d), *(a[1].d), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1,opt);
+       else    gr->ContF3(*(a[0].d), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1,opt);
        return 0;
 }
 void mglc_contf3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return;
        else if(k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1)
-               mglprintf(out,1024,L"gr->ContF3(%s, %s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1, opt);
+               mglprintf(out,1024,L"gr->ContF3(%s, %s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), k[5]==2?a[5].s.c_str():"", k[6]==3?iint(a[6].v):-1,opt);
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               mglprintf(out,1024,L"gr->ContF3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               mglprintf(out,1024,L"gr->ContF3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else if(k[1]==1)
-               mglprintf(out,1024,L"gr->ContF3(%s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1, opt);
-       else    mglprintf(out,1024,L"gr->ContF3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1, opt);
+               mglprintf(out,1024,L"gr->ContF3(%s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"", k[3]==3?iint(a[3].v):-1,opt);
+       else    mglprintf(out,1024,L"gr->ContF3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==3?iint(a[2].v):-1,opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_contx(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
@@ -723,10 +744,10 @@ int mgls_ellipse(mglGraph *gr, long , mglArg *a, int [10], const char *)
        {       i--;    break;  }
        if(i==6)
                gr->Ellipse(mglPoint(a[0].v,a[1].v,a[2].v), mglPoint(a[3].v,a[4].v,a[5].v),
-                               a[6].v, a[7].type==2?a[7].s.c_str():"r");
+                               a[6].v, a[7].type==1?a[7].s.c_str():"r");
        else if(i==4)
-               gr->Ellipse(mglPoint(a[0].v,a[1].v), mglPoint(a[2].v,a[3].v),
-                               a[4].v, a[5].type==2?a[5].s.c_str():"r");
+               gr->Ellipse(mglPoint(a[0].v,a[1].v,NAN), mglPoint(a[2].v,a[3].v,NAN),
+                               a[4].v, a[5].type==1?a[5].s.c_str():"r");
        else    return 1;
        return 0;
 }
@@ -735,9 +756,9 @@ void mglc_ellipse(wchar_t out[1024], long , mglArg *a, int [10], const char *)
        int i;
        for(i=0;i<7;i++)        if(a[i].type!=2)        {       i--;    break;  }
        if(i==6)
-               mglprintf(out,1024,L"gr->Ellipse(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, a[6].v, (a[7].type==2) ? a[7].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Ellipse(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, a[6].v, (a[7].type==1) ? a[7].s.c_str() : "r");
        else if(i==4)
-               mglprintf(out,1024,L"gr->Ellipse(mglPoint(%g, %g), mglPoint(%g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v,a[3].v,a[4].v, (a[5].type==2) ? a[5].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Ellipse(mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), %g, \"%s\");", a[0].v,a[1].v,a[2].v,a[3].v,a[4].v, (a[5].type==1) ? a[5].s.c_str() : "r");
 }
 //-----------------------------------------------------------------------------
 int mgls_circle(mglGraph *gr, long , mglArg *a, int [10], const char *)
@@ -745,9 +766,9 @@ int mgls_circle(mglGraph *gr, long , mglArg *a, int [10], const char *)
        int i;
        for(i=0;i<4;i++)        if(a[i].type!=2)        {       i--;    break;  }
        if(i==3)
-               gr->Circle(mglPoint(a[0].v,a[1].v,a[2].v), a[3].v, a[4].type==2?a[4].s.c_str():"r");
+               gr->Circle(mglPoint(a[0].v,a[1].v,a[2].v), a[3].v, a[4].type==1?a[4].s.c_str():"r");
        else if(i==2)
-               gr->Circle(mglPoint(a[0].v,a[1].v), a[2].v, a[3].type==2?a[3].s.c_str():"r");
+               gr->Circle(mglPoint(a[0].v,a[1].v, NAN), a[2].v, a[3].type==1?a[3].s.c_str():"r");
        else    return 1;
        return 0;
 }
@@ -757,9 +778,9 @@ void mglc_circle(wchar_t out[1024], long , mglArg *a, int [10], const char *)
        for(i=0;i<4;i++)        if(a[i].type!=2)
        {       i--;    break;  }
        if(i==3)
-               mglprintf(out,1024,L"gr->Circle(mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v, (a[4].type==2) ? a[4].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Circle(mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v, (a[4].type==1) ? a[4].s.c_str() : "r");
        else if(i==2)
-               mglprintf(out,1024,L"gr->Circle(mglPoint(%g, %g), %g, \"%s\");", a[0].v,a[1].v, a[2].v, (a[3].type==2) ? a[3].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Circle(mglPoint(%g, %g, NAN), %g, \"%s\");", a[0].v,a[1].v, a[2].v, (a[3].type==1) ? a[3].s.c_str() : "r");
 }
 //-----------------------------------------------------------------------------
 int mgls_rhomb(mglGraph *gr, long , mglArg *a, int [10], const char *)
@@ -769,10 +790,10 @@ int mgls_rhomb(mglGraph *gr, long , mglArg *a, int [10], const char *)
        {       i--;    break;  }
        if(i==6)
                gr->Rhomb(mglPoint(a[0].v,a[1].v,a[2].v), mglPoint(a[3].v,a[4].v,a[5].v),
-                               a[6].v, a[7].type==2?a[7].s.c_str():"r");
+                               a[6].v, a[7].type==1?a[7].s.c_str():"r");
        else if(i==4)
-               gr->Rhomb(mglPoint(a[0].v,a[1].v), mglPoint(a[2].v,a[3].v),
-                               a[4].v, a[5].type==2?a[5].s.c_str():"r");
+               gr->Rhomb(mglPoint(a[0].v,a[1].v,NAN), mglPoint(a[2].v,a[3].v,NAN),
+                               a[4].v, a[5].type==1?a[5].s.c_str():"r");
        else    return 1;
        return 0;
 }
@@ -782,9 +803,9 @@ void mglc_rhomb(wchar_t out[1024], long , mglArg *a, int [10], const char *)
        for(i=0;i<7;i++)        if(a[i].type!=2)
        {       i--;    break;  }
        if(i==6)
-               mglprintf(out,1024,L"gr->Rhomb(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, a[6].v, (a[7].type==2) ? a[7].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Rhomb(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, a[6].v, (a[7].type==1) ? a[7].s.c_str() : "r");
        else if(i==4)
-               mglprintf(out,1024,L"gr->Rhomb(mglPoint(%g, %g), mglPoint(%g, %g), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v, (a[5].type==2) ? a[5].s.c_str() : "r");
+               mglprintf(out,1024,L"gr->Rhomb(mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), %g, \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v, (a[5].type==1) ? a[5].s.c_str() : "r");
 }
 //-----------------------------------------------------------------------------
 int mgls_dens(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
@@ -809,7 +830,7 @@ int mgls_dens3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return 1;
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               gr->Dens3(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               gr->Dens3(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else    gr->Dens3(*(a[0].d),k[1]==2?a[1].s.c_str():"",k[2]==3?iint(a[2].v):-1,opt);
        return 0;
 }
@@ -817,7 +838,7 @@ void mglc_dens3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return;
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               mglprintf(out,1024,L"gr->Dens3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               mglprintf(out,1024,L"gr->Dens3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else    mglprintf(out,1024,L"gr->Dens3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",k[2]==3?iint(a[2].v):-1,opt);
 }
 //-----------------------------------------------------------------------------
@@ -1215,14 +1236,14 @@ void mglc_loadfont(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
                mglprintf(out,1024,L"gr->RestoreFont();");
 }
 //-----------------------------------------------------------------------------
-int mgls_grid(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_grid(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       gr->Grid(k[0]==2?a[0].s.c_str():"xyzt", k[1]==2?a[1].s.c_str():"B-");
+       gr->Grid(k[0]==2?a[0].s.c_str():"xyzt", k[1]==2?a[1].s.c_str():"B-",opt);
        return 0;
 }
-void mglc_grid(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_grid(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
-       mglprintf(out,1024,L"gr->Grid(\"%s\", \"%s\");", k[0]==2?a[0].s.c_str():"xyz", k[1]==2?a[1].s.c_str():"B-");
+       mglprintf(out,1024,L"gr->Grid(\"%s\", \"%s\", \"%s\");", k[0]==2?a[0].s.c_str():"xyz", k[1]==2?a[1].s.c_str():"B-",opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_grid2(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
@@ -1245,7 +1266,7 @@ int mgls_grid3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return 1;
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               gr->Grid3(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               gr->Grid3(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else    gr->Grid3(*(a[0].d),k[1]==2?a[1].s.c_str():"",k[2]==3?iint(a[2].v):-1,opt);
        return 0;
 }
@@ -1253,7 +1274,7 @@ void mglc_grid3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return;
        else if(k[1]==1 && k[2]==1 && k[3]==1)
-               mglprintf(out,1024,L"gr->Grid3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1, opt);
+               mglprintf(out,1024,L"gr->Grid3(%s, %s, %s, %s, \"%s\", %d, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"", k[5]==3?iint(a[5].v):-1,opt);
        else    mglprintf(out,1024,L"gr->Grid3(%s, \"%s\", %d, \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",k[2]==3?iint(a[2].v):-1,opt);
 }
 //-----------------------------------------------------------------------------
@@ -1325,20 +1346,64 @@ void mglc_line(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
        }
 }
 //-----------------------------------------------------------------------------
-int mgls_legend(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_errbox(mglGraph *gr, long n, mglArg *a, int [10], const char *)
+{
+       int i;
+       if(n>5)
+       {
+               bool ok=true;
+               for(i=0;i<6;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)
+                       gr->Error(mglPoint(a[0].v,a[1].v,a[2].v),
+                                        mglPoint(a[3].v,a[4].v,a[5].v),
+                                        (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
+                       else    return 1;
+       }
+       else if(n>3)
+       {
+               bool ok=true;
+               for(i=0;i<4;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)
+                       gr->Error(mglPoint(a[0].v,a[1].v,NAN), mglPoint(a[2].v,a[3].v,NAN),
+                                        (n==5 && a[4].type==1) ? a[4].s.c_str() : "");
+                       else    return 1;
+       }
+       else    return 1;
+       return 0;
+}
+void mglc_errbox(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
+{
+       int i;
+       if(n>5)
+       {
+               bool ok=true;
+               for(i=0;i<6;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)
+                       mglprintf(out,1024,L"gr->Error(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
+       }
+       else if(n>3)
+       {
+               bool ok=true;
+               for(i=0;i<4;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)
+                       mglprintf(out,1024,L"gr->Error(mglPoint(%g, %g, gr->Min.z), mglPoint(%g, %g, gr->Min.z), \"%s\");", a[0].v,a[1].v,a[2].v, a[3].v, (n==5 && a[4].type==1) ? a[4].s.c_str() : "");
+       }
+}
+//-----------------------------------------------------------------------------
+int mgls_legend(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==3 && k[1]==3)
-               gr->Legend(a[0].v, a[1].v, k[2]==2?a[2].s.c_str():"rL", k[3]==3?a[3].v:-1, k[4]==3?a[4].v:0.1);
+               gr->Legend(a[0].v, a[1].v, k[2]==2?a[2].s.c_str():"#", opt);
        else
-               gr->Legend(k[0]==3?iint(a[0].v):3, k[1]==2?a[1].s.c_str():"rL", k[2]==3?a[2].v:-1, k[3]==3?a[3].v:0.1);
+               gr->Legend(k[0]==3?iint(a[0].v):3, k[1]==2?a[1].s.c_str():"#", opt);
        return 0;
 }
-void mglc_legend(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_legend(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==3 && k[1]==3)
-               mglprintf(out,1024,L"gr->Legend(%g, %g, \"%s\", %g, %g);", a[0].v, a[1].v, k[2]==2?a[2].s.c_str():"rL", k[3]==3?a[3].v:-1, k[4]==3?a[4].v:0.1);
+               mglprintf(out,1024,L"gr->Legend(%g, %g, \"%s\", \"%s\");", a[0].v, a[1].v, k[2]==2?a[2].s.c_str():"#", opt);
        else
-               mglprintf(out,1024,L"gr->Legend(%d, \"%s\", %g, %g);", k[0]==3?iint(a[0].v):3, k[1]==2?a[1].s.c_str():"rL", k[2]==3?a[2].v:-1, k[4]==3?a[4].v:0.1);
+               mglprintf(out,1024,L"gr->Legend(%d, \"%s\", \"%s\");", k[0]==3?iint(a[0].v):3, k[1]==2?a[1].s.c_str():"#", opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_barwidth(mglGraph *gr, long , mglArg *a, int k[10], const char *)
@@ -1430,24 +1495,34 @@ void mglc_meshnum(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
        if(k[0]==3)     mglprintf(out,1024,L"gr->SetMeshNum(%d);", iint(a[0].v));
 }
 //-----------------------------------------------------------------------------
+int mgls_facenum(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3)     gr->SetFaceNum(a[0].v);         else    return 1;
+       return 0;
+}
+void mglc_facenum(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3)     mglprintf(out,1024,L"gr->SetFaceNum(%d);", iint(a[0].v));
+}
+//-----------------------------------------------------------------------------
 int mgls_quality(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     gr->SetQuality(a[0].v);         else    return 1;
+       gr->SetQuality(k[0]==3?iint(a[0].v):2);
        return 0;
 }
 void mglc_quality(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     mglprintf(out,1024,L"gr->SetQuality(%d);", iint(a[0].v));
+       if(k[0]==3)     mglprintf(out,1024,L"gr->SetQuality(%d);", k[0]==3?iint(a[0].v):2);
 }
 //-----------------------------------------------------------------------------
 int mgls_marksize(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     gr->SetMarkSize(a[0].v/50);     else    return 1;
+       if(k[0]==3)     gr->SetMarkSize(a[0].v);        else    return 1;
        return 0;
 }
 void mglc_marksize(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     mglprintf(out,1024,L"gr->SetMarkSize(%g);", a[0].v/50);
+       if(k[0]==3)     mglprintf(out,1024,L"gr->SetMarkSize(%g);", a[0].v);
 }
 //-----------------------------------------------------------------------------
 int mgls_mark(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
@@ -1603,9 +1678,11 @@ void mglc_rect(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
                if(ok)
                {
                        if(a[0].v==a[3].v)
-                               mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");", a[0].v,a[1].v,a[2].v, a[0].v,a[4].v,a[2].v, a[3].v,a[1].v,a[5].v, a[3].v,a[4].v,a[5].v, (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
+                               mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");",
+                                       a[0].v,a[1].v,a[2].v, a[0].v,a[4].v,a[2].v, a[3].v,a[1].v,a[5].v, a[3].v,a[4].v,a[5].v, (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
                        else
-                               mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");", a[0].v,a[1].v,a[2].v, a[0].v,a[4].v,a[5].v, a[3].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
+                               mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");",
+                                       a[0].v,a[1].v,a[2].v, a[0].v,a[4].v,a[5].v, a[3].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, (n==7 && a[6].type==1) ? a[6].s.c_str() : "");
                }
        }
        else if(n>3)
@@ -1613,7 +1690,50 @@ void mglc_rect(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
                bool ok=true;
                for(i=0;i<4;i++)        if(a[i].type!=2)        ok=false;
                if(ok)
-                       mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), \"%s\", 2);", a[0].v,a[1].v, a[0].v,a[3].v, a[2].v,a[1].v, a[2].v,a[3].v, (n==5 && a[4].type==1) ? a[4].s.c_str() : "");
+                       mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), \"%s\", 2);",
+                               a[0].v,a[1].v, a[0].v,a[3].v, a[2].v,a[1].v, a[2].v,a[3].v, (n==5 && a[4].type==1) ? a[4].s.c_str() : "");
+       }
+}
+//-----------------------------------------------------------------------------
+int mgls_face(mglGraph *gr, long n, mglArg *a, int [10], const char *)
+{
+       long i;
+       bool ok=true;
+       if(n>11)
+       {
+               for(i=0;i<12;i++)       if(a[i].type!=2)        ok=false;
+               if(ok)  gr->Face(mglPoint(a[0].v,a[1].v,a[2].v), mglPoint(a[3].v,a[4].v,a[5].v),
+                                               mglPoint(a[6].v,a[7].v,a[8].v), mglPoint(a[9].v,a[10].v,a[11].v),
+                                               (n==13 && a[12].type==1) ? a[12].s.c_str() : 0);
+       }
+       else if(n>7)
+       {
+               for(i=0;i<8;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)  gr->Face(mglPoint(a[0].v,a[1].v,NAN), mglPoint(a[2].v,a[3].v,NAN),
+                                       mglPoint(a[4].v,a[5].v,NAN), mglPoint(a[6].v,a[7].v,NAN),
+                                       (n==9 && a[8].type==1) ? a[8].s.c_str() : 0);
+       }
+       else    ok=false;
+       return ok?0:1;
+}
+void mglc_face(wchar_t out[1024], long n, mglArg *a, int [10], const char *)
+{
+       long i;
+       bool ok=true;
+       if(n>11)
+       {
+               for(i=0;i<12;i++)       if(a[i].type!=2)        ok=false;
+               if(ok)
+                       mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), \"%s\");",
+                                               a[0].v,a[1].v,a[2].v, a[3].v,a[4].v,a[5].v, a[6].v,a[7].v,a[8].v, a[9].v,a[10].v,a[11].v,
+                                               (n==13 && a[12].type==1) ? a[12].s.c_str() : "");
+       }
+       else if(n>7)
+       {
+               for(i=0;i<8;i++)        if(a[i].type!=2)        ok=false;
+               if(ok)
+                       mglprintf(out,1024,L"gr->Face(mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), mglPoint(%g, %g, NAN), \"%s\", 2);",
+                                               a[0].v,a[1].v, a[2].v,a[3].v, a[4].v,a[5].v, a[6].v,a[7].v, (n==9 && a[8].type==1) ? a[8].s.c_str() : "");
        }
 }
 //-----------------------------------------------------------------------------
@@ -1839,9 +1959,9 @@ void mglc_candle(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt
        else if(k[1]==1 && k[2]==1)
                mglprintf(out,1024,L"gr->Candle(%s, %s, %s, \"%s\", \"%s\");",a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), k[3]==2?a[3].s.c_str():"",opt);
        else if(k[1]==1)
-               mglprintf(out,1024,L"gr->Candle(%s, %s, \"%s\", \"%s\");",a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"", opt);
+               mglprintf(out,1024,L"gr->Candle(%s, %s, \"%s\", \"%s\");",a[0].s.c_str(), a[1].s.c_str(), k[2]==2?a[2].s.c_str():"",opt);
        else
-               mglprintf(out,1024,L"gr->Candle(%s, \"%s\", \"%s\");",a[0].s.c_str(), k[1]==2?a[1].s.c_str():"", opt);
+               mglprintf(out,1024,L"gr->Candle(%s, \"%s\", \"%s\");",a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_radar(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
@@ -1937,7 +2057,7 @@ void mglc_stfa(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 int mgls_surf3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1)     return 1;
-       else if(k[1]==0)        gr->Surf3(*(a[0].d),opt);
+       else if(k[1]==0)        gr->Surf3(*(a[0].d),"",opt);
        else if(k[1]==1 && k[2]==1 && k[3]==1 && k[4]==3)
                gr->Surf3(a[4].v,*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),
                                k[5]==2? a[5].s.c_str():"",opt);
@@ -1965,7 +2085,7 @@ void mglc_surf3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 int mgls_surf3c(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1 || k[1]!=1)  return 1;
-       else if(k[2]==0)        gr->Surf3C(*(a[0].d),*(a[1].d),opt);
+       else if(k[2]==0)        gr->Surf3C(*(a[0].d),*(a[1].d),"",opt);
        else if(k[2]==1 && k[3]==1 && k[4]==1 && k[5]==3)
                gr->Surf3C(a[5].v,*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),*(a[4].d),
                                k[6]==2? a[6].s.c_str():"",opt);
@@ -1993,7 +2113,7 @@ void mglc_surf3c(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt
 int mgls_surf3a(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]!=1 || k[1]!=1)  return 1;
-       else if(k[2]==0)        gr->Surf3A(*(a[0].d),*(a[1].d),opt);
+       else if(k[2]==0)        gr->Surf3A(*(a[0].d),*(a[1].d),"",opt);
        else if(k[2]==1 && k[3]==1 && k[4]==1 && k[5]==3)
                gr->Surf3A(a[5].v,*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),*(a[4].d),
                                k[6]==2? a[6].s.c_str():"",opt);
@@ -2047,14 +2167,14 @@ void mglc_multiplot(wchar_t out[1024], long , mglArg *a, int k[10], const char *
 //-----------------------------------------------------------------------------
 int mgls_title(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==2)     gr->Title(a[0].w.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==2?a[2].v:-2);
+       if(k[0]==2)     gr->Title(a[0].w.c_str(), k[1]==2?a[1].s.c_str():"", k[2]==3?a[2].v:-2);
        else    return 1;
        return 0;
 }
 void mglc_title(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
        if(k[0]==2)
-               mglprintf(out,1024,L"gr->Title(L\"%ls\", \"%s\", %g);", a[0].w.c_str(), k[1]==2?a[1].s.c_str():"#", k[2]==2?a[2].v:-2);
+               mglprintf(out,1024,L"gr->Title(L\"%ls\", \"%s\", %g);", a[0].w.c_str(), k[1]==2?a[1].s.c_str():"#", k[2]==3?a[2].v:-2);
 }
 //-----------------------------------------------------------------------------
 int mgls_column(mglGraph *, long , mglArg *a, int k[10], const char *)
@@ -2130,13 +2250,13 @@ void mglc_tiles(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->TileS(%s, %s, %s, %s, \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]==2?a[4].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_text(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
+int mgls_text(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)              // NOTE don't use options -- Puts can be part of group
 {
        if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==2)
                gr->Putsw(mglPoint(a[0].v,a[1].v,a[2].v),a[3].w.c_str(),
                        (k[4]==2 && a[4].s.c_str()[0]!=0)?a[4].s.c_str():"",k[5]==3?a[5].v:-1);
        else if(k[0]==3 && k[1]==3 && k[2]==2)
-               gr->Putsw(mglPoint(a[0].v,a[1].v),a[2].w.c_str(),
+               gr->Putsw(mglPoint(a[0].v,a[1].v,NAN),a[2].w.c_str(),
                        (k[3]==2 && a[3].s.c_str()[0]!=0)?a[3].s.c_str():"",k[4]==3?a[4].v:-1);
        else if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==3 && k[4]==3 && k[5]==3 && k[6]==2)
                gr->Putsw(mglPoint(a[0].v,a[1].v,a[2].v), mglPoint(a[3].v,a[4].v,a[5].v), a[6].w.c_str(), k[7]==2?a[7].s.c_str():":L", k[8]==3?a[8].v:-1);
@@ -2156,7 +2276,7 @@ void mglc_text(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
        if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==2)
                mglprintf(out,1024,L"gr->Puts(mglPoint(%g, %g, %g), L\"%ls\", \"%s\", %g);", a[0].v, a[1].v, a[2].v, a[3].w.c_str(), (k[4]==2 && a[4].s.c_str()[0]!=0)?a[4].s.c_str():"", k[5]==3?a[5].v:-1);
        else if(k[0]==3 && k[1]==3 && k[2]==2)
-               mglprintf(out,1024,L"gr->Puts(mglPoint(%g, %g), L\"%ls\", \"%s\", %g);", a[0].v, a[1].v, a[2].w.c_str(), (k[3]==2 && a[3].s.c_str()[0]!=0)?a[3].s.c_str():"", k[4]==3?a[4].v:-1);
+               mglprintf(out,1024,L"gr->Puts(mglPoint(%g, %g, NAN), L\"%ls\", \"%s\", %g);", a[0].v, a[1].v, a[2].w.c_str(), (k[3]==2 && a[3].s.c_str()[0]!=0)?a[3].s.c_str():"", k[4]==3?a[4].v:-1);
        else if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==3 && k[4]==3 && k[5]==3 && k[6]==2)
                mglprintf(out,1024,L"gr->Puts(mglPoint(%g, %g, %g), mglPoint(%g, %g, %g), L\"%ls\", \"%s\", %g);", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v, a[6].w.c_str(), k[7]==2?a[7].s.c_str():":L", k[8]==3?a[8].v:-1);
        else if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==3 && k[4]==2)
@@ -2405,6 +2525,29 @@ void mglc_vect(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->Vect(%s, %s, %s, %s, %s, %s, \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), k[6]==2?a[6].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
+int mgls_vect3(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
+{
+       int i;
+       for(i=0;i<7;i++)        if(k[i]!=1)     break;
+       if(i==3)
+               gr->Vect3(*(a[0].d),*(a[1].d),*(a[2].d),k[3]==2?a[3].s.c_str():"",k[4]==3?a[4].v:-1,opt);
+       else if(i==6)
+               gr->Vect3(*(a[0].d),*(a[1].d),*(a[2].d),*(a[3].d),*(a[4].d),*(a[5].d),k[6]==2?a[6].s.c_str():"",k[7]==3?a[7].v:-1,opt);
+       else    return 1;
+       return 0;
+}
+void mglc_vect3(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
+{
+       int i;
+       for(i=0;i<7;i++)        if(k[i]!=1)     break;
+       if(i==3)
+               mglprintf(out,1024,L"gr->Vect3(%s, %s, %s, \"%s\", %g, \"%s\");",
+                                       a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), k[3]==2?a[3].s.c_str():"",k[4]==3?a[4].v:-1,opt);
+       else if(i==6)
+               mglprintf(out,1024,L"gr->Vect3(%s, %s, %s, %s, %s, %s, \"%s\", %g, \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(),
+                                       a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), k[6]==2?a[6].s.c_str():"",k[7]==3?a[7].v:-1,opt);
+}
+//-----------------------------------------------------------------------------
 int mgls_traj(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        int i;
@@ -2426,69 +2569,86 @@ void mglc_traj(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->Traj(%s, %s, %s, %s, %s, %s, \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), k[6]==2?a[6].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_xlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_xlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     gr->Label('x', a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     gr->Label('x', a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
        else    return 1;
        return 0;
 }
-void mglc_xlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_xlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('x', L\"%ls\", %g, %g);", a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('x', L\"%ls\", %g, \"%ls\");", a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_ylabel(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_ylabel(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     gr->Label('y', a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     gr->Label('y', a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
        else    return 1;
        return 0;
 }
-void mglc_ylabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_ylabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('y', L\"%ls\", %g, %g);", a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('y', L\"%ls\", %g, \"%ls\");", a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_zlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_zlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     gr->Label('z', a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     gr->Label('z', a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
        else    return 1;
        return 0;
 }
-void mglc_zlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_zlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('z', L\"%ls\", %g, %g);", a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('z', L\"%ls\", %g, \"%ls\");", a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_tlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_tlabel(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     gr->Label('t', a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     gr->Label('t', a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
        else    return 1;
        return 0;
 }
-void mglc_tlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+void mglc_tlabel(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
-       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('t', L\"%ls\", %g, %g);", a[0].w.c_str(), k[1]==3?a[1].v:1, k[2]==3?a[2].v:0);
+       if(k[0]==2)     mglprintf(out,1024,L"gr->Label('t', L\"%ls\", %g, \"%ls\");", a[0].w.c_str(), k[1]==3?a[1].v:1, opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_label(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==2)
-               gr->Label(*(a[0].d), *(a[1].d), *(a[2].d), a[3].w.c_str(), k[4]==2?a[4].s.c_str():"", opt);
+               gr->Label(*(a[0].d), *(a[1].d), *(a[2].d), a[3].w.c_str(), k[4]==2?a[4].s.c_str():"",opt);
        else if(k[0]==1 && k[1]==1 && k[2]==2)
-               gr->Label(*(a[0].d), *(a[1].d), a[2].w.c_str(), k[3]==2?a[3].s.c_str():"", opt);
+               gr->Label(*(a[0].d), *(a[1].d), a[2].w.c_str(), k[3]==2?a[3].s.c_str():"",opt);
        else if(k[0]==1 && k[1]==2)
-               gr->Label(*(a[0].d), a[1].w.c_str(), k[2]==2?a[2].s.c_str():"", opt);
+               gr->Label(*(a[0].d), a[1].w.c_str(), k[2]==2?a[2].s.c_str():"",opt);
        else    return 1;
        return 0;
 }
 void mglc_label(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==2)
-               mglprintf(out,1024,L"gr->Label(%s, %s, %s, \"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].w.c_str(), k[4]==2?a[4].s.c_str():"", opt);
+               mglprintf(out,1024,L"gr->Label(%s, %s, %s, L\"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].w.c_str(), k[4]==2?a[4].s.c_str():"",opt);
        else if(k[0]==1 && k[1]==1 && k[2]==2)
-               mglprintf(out,1024,L"gr->Label(%s, %s, \"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].w.c_str(), k[3]==2?a[3].s.c_str():"", opt);
+               mglprintf(out,1024,L"gr->Label(%s, %s, L\"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].s.c_str(), a[2].w.c_str(), k[3]==2?a[3].s.c_str():"",opt);
        else if(k[0]==1 && k[1]==2)
-               mglprintf(out,1024,L"gr->Label(%s, \"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].w.c_str(), k[2]==2?a[2].s.c_str():"", opt);
+               mglprintf(out,1024,L"gr->Label(%s, L\"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), a[1].w.c_str(), k[2]==2?a[2].s.c_str():"",opt);
+}
+//-----------------------------------------------------------------------------
+int mgls_table(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
+{
+       if(k[0]==3 && k[1]==3 && k[2]==1)
+               gr->Table(a[0].v, a[1].v, *(a[2].d), k[3]==2?a[3].w.c_str():L"", k[4]==2?a[4].s.c_str():"#|",opt);
+       else if(k[0]==1)
+               gr->Table(*(a[0].d), k[1]==2?a[1].w.c_str():L"", k[2]==2?a[2].s.c_str():"#|",opt);
+       else    return 1;
+       return 0;
+}
+void mglc_table(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
+{
+       if(k[0]==3 && k[1]==3 && k[2]==1)
+               mglprintf(out,1024,L"gr->Table(%g, %g, %s, L\"%ls\", \"%s\", \"%s\");", a[0].v, a[1].v, a[2].s.c_str(), k[3]==2?a[3].w.c_str():L"", k[4]==2?a[4].s.c_str():"|#",opt);
+       else if(k[0]==1)
+               mglprintf(out,1024,L"gr->Table(%s, L\"%ls\", \"%s\", \"%s\");", a[0].s.c_str(), k[1]==2?a[1].w.c_str():L"", k[2]==2?a[2].s.c_str():"|#",opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_xrange(mglGraph *gr, long , mglArg *a, int k[10], const char *)
@@ -2541,14 +2701,14 @@ int mgls_xtick(mglGraph *gr, long n, mglArg *a, int k[10], const char *)
        if(k[0]==1 && k[1]==2)  gr->SetTicksVal('x', *(a[0].d), a[1].w.c_str(), k[2]==3 && a[2].v);
        else if(k[0]==3 && k[1]==2)
        {
-               mreal v[50];    wchar_t *s=new wchar_t[50*256]; int i;
+               mreal v[50];    std::wstring s; int i;
                for(i=0;i<50 && i<n/2;i++)
                {
                        if(a[2*i].type==2 && a[2*i+1].type==1)
-                       {       v[i] = a[2*i].v;        wcscat(s, a[2*i+1].w.c_str());  wcscat(s, L"\n");       }
+                       {       v[i] = a[2*i].v;        s += a[2*i+1].w+L"\n";  }
                        else    break;
                }
-               gr->SetTicksVal('x',mglData(i,v),s);    delete []s;
+               gr->SetTicksVal('x',mglData(i,v),s.c_str());
        }
        else if(k[0]==3)
                gr->SetTicks('x', a[0].v, k[1]==3?iint(a[1].v):0, k[2]==3?a[2].v:NAN);
@@ -2574,14 +2734,14 @@ int mgls_ytick(mglGraph *gr, long n, mglArg *a, int k[10], const char *)
        if(k[0]==1 && k[1]==2)  gr->SetTicksVal('x', *(a[0].d), a[1].w.c_str(), k[2]==3 && a[2].v);
        else if(k[0]==3 && k[1]==2)
        {
-               mreal v[50];    wchar_t *s=new wchar_t[50*256]; int i;
+               mreal v[50];    std::wstring s; int i;
                for(i=0;i<50 && i<n/2;i++)
                {
                        if(a[2*i].type==2 && a[2*i+1].type==1)
-                       {       v[i] = a[2*i].v;        wcscat(s, a[2*i+1].w.c_str());  wcscat(s, L"\n");       }
+                       {       v[i] = a[2*i].v;        s += a[2*i+1].w+L"\n";  }
                        else    break;
                }
-               gr->SetTicksVal('y',mglData(i,v),s);    delete []s;
+               gr->SetTicksVal('y',mglData(i,v),s.c_str());
        }
        else if(k[0]==3)
                gr->SetTicks('y', a[0].v, k[1]==3?iint(a[1].v):0, k[2]==3?a[2].v:NAN);
@@ -2606,14 +2766,14 @@ int mgls_ztick(mglGraph *gr, long n, mglArg *a, int k[10], const char *)
        if(k[0]==1 && k[1]==2)  gr->SetTicksVal('x', *(a[0].d), a[1].w.c_str(), k[2]==3 && a[2].v);
        else if(k[0]==3 && k[1]==2)
        {
-               mreal v[50];    wchar_t *s=new wchar_t[50*256]; int i;
+               mreal v[50];    std::wstring s; int i;
                for(i=0;i<50 && i<n/2;i++)
                {
                        if(a[2*i].type==2 && a[2*i+1].type==1)
-                       {       v[i] = a[2*i].v;        wcscat(s, a[2*i+1].w.c_str());  wcscat(s, L"\n");       }
+                       {       v[i] = a[2*i].v;        s += a[2*i+1].w+L"\n";  }
                        else    break;
                }
-               gr->SetTicksVal('z',mglData(i,v),s);    delete []s;
+               gr->SetTicksVal('z',mglData(i,v),s.c_str());
        }
        else if(k[0]==3)
                gr->SetTicks('z', a[0].v, k[1]==3?iint(a[1].v):0, k[2]==3?a[2].v:NAN);
@@ -3088,26 +3248,17 @@ void mglc_putsfit(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
                mglprintf(out,1024,L"gr->PutsFit(mglPoint(%g, %g, %g), \"%s\", \"%s\", %g);", a[0].v,a[1].v,a[2].v, k[3]==2?a[3].s.c_str():"", k[4]==2?a[4].s.c_str():"", k[5]==3?a[5].v:-1);
        else if(k[0]==3 && k[1]==3)
                mglprintf(out,1024,L"gr->PutsFit(mglPoint(%g, %g), \"%s\", \"%s\", %g);", a[0].v,a[1].v, k[2]==2?a[2].s.c_str():"", k[3]==2?a[3].s.c_str():"", k[4]==3?a[4].v:-1);
-
-       if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1 && k[5]==1 && k[6]==2 && k[7]==2)
-               mglprintf(out,1024,L"gr->FitS(%s, %s, %s, %s, %s, %s, \"%s\", \"%s\", %s, %s);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), a[6].s.c_str(), a[7].s.c_str(), (k[8]==1 && a[8].d->nx>=long(strlen(a[7].s.c_str())))?a[8].s.c_str():"NULL", (k[9]==3&&a[9].v!=0)?"true":"false");
-       else if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1 && k[5]==2 && k[6]==2)
-               mglprintf(out,1024,L"gr->FitS(%s, %s, %s, %s, %s, \"%s\", \"%s\", %s, %s);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), a[6].s.c_str(), (k[7]==1 && a[7].d->nx>=long(strlen(a[6].s.c_str())))?a[7].s.c_str():"NULL", (k[8]==3&&a[8].v!=0)?"true":"false");
-       else if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1 && k[4]==2 && k[5]==2)
-               mglprintf(out,1024,L"gr->FitS(%s, %s, %s, %s, \"%s\", \"%s\", %s, %s);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), a[5].s.c_str(), (k[6]==1 && a[6].d->nx>=long(strlen(a[5].s.c_str())))?a[6].s.c_str():"NULL", (k[7]==3&&a[7].v!=0)?"true":"false");
-       else if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==2 && k[4]==2)
-               mglprintf(out,1024,L"gr->FitS(%s, %s, %s, \"%s\", \"%s\", %s, %s);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), (k[5]==1 && a[5].d->nx>=long(strlen(a[4].s.c_str())))?a[5].s.c_str():"NULL", (k[6]==3&&a[6].v!=0)?"true":"false");
 }
 //-----------------------------------------------------------------------------
 int mgls_arrowsize(mglGraph *gr, long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     gr->SetArrowSize(a[0].v/50);
+       if(k[0]==3)     gr->SetArrowSize(a[0].v);
        else    return 1;
        return 0;
 }
 void mglc_arrowsize(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==3)     mglprintf(out,1024,L"gr->SetArrowSize(%g);", a[0].v/50);
+       if(k[0]==3)     mglprintf(out,1024,L"gr->SetArrowSize(%g);", a[0].v);
 }
 //-----------------------------------------------------------------------------
 int mgls_rearrange(mglGraph *, long , mglArg *a, int k[10], const char *)
@@ -3167,14 +3318,14 @@ void mglc_fsurf(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
                mglprintf(out,1024,L"gr->FSurf(\"%s\", \"%s\", \"%s\");", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"",opt);
 }
 //-----------------------------------------------------------------------------
-int mgls_fgets(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+int mgls_fgets(mglGraph *gr, long , mglArg *a, int k[10], const char *)                // NOTE don't use options -- Puts can be part of group
 {
        char buf[1024];
        FILE *fp;
        if((k[0]==3 && k[1]==3 && k[2]==3 && k[3]==2) || (k[0]==3 && k[1]==3 && k[2]==2))
        {
                int i, j=k[2]==3?1:0, n = (k[j+3]==3?iint(a[j+3].v):0);
-               mreal vv = k[2]==3 ? a[2].v:0;
+               mreal vv = k[2]==3 ? a[2].v:NAN;
                fp = fopen(a[j+2].s.c_str(),"rt");
                if(!fp)
                {
@@ -3190,7 +3341,7 @@ int mgls_fgets(mglGraph *gr, long , mglArg *a, int k[10], const char *)
                        fclose(fp);     return 0;
                }
                fclose(fp);
-               gr->Puts(mglPoint(a[0].v,a[1].v,vv),buf, (k[j+4]==2)?a[j+4].s.c_str():"", k[j+5]==3?a[j+5].v:-1.4);
+               gr->Puts(mglPoint(a[0].v,a[1].v,vv),buf, (k[j+4]==2)?a[j+4].s.c_str():"", k[j+5]==3?a[j+5].v:-1);
        }
        else    return 1;
        return 0;
@@ -3285,7 +3436,29 @@ int mgls_evaluate(mglGraph *, long , mglArg *a, int k[10], const char *)
 }
 void mglc_evaluate(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 {
-       if(k[0]==1)     mglprintf(out,1024,L"%s.Sew(\"%s\", %g);", a[0].s.c_str(), k[1]==2?a[1].s.c_str():"xyz", k[2]==3 ? a[2].v : 2*M_PI);
+       if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1 && k[4]==1)
+               mglprintf(out,1024,L"%s=%s.Evaluate(%s, %s, %s, %d);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), a[4].s.c_str(), k[5]!=3 || a[5].v!=0);
+       else if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1)
+               mglprintf(out,1024,L"%s=%s.Evaluate(%s, %s, %d);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(), k[4]!=3 || a[4].v!=0);
+       else if(k[0]==1 && k[1]==1 && k[2]==1)
+               mglprintf(out,1024,L"%s=%s.Evaluate(%s, %d);", a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), k[3]!=3 || a[3].v!=0);
+}
+//-----------------------------------------------------------------------------
+int mgls_solve(mglGraph *, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==1 && k[1]==1 && k[2]==3 && k[3]==2 && k[4]==1)
+               *(a[0].d) = a[1].d->Solve(a[2].v, a[3].s[0], *(a[4].d), k[5]!=3 || a[5].v!=0);
+       else if(k[0]==1 && k[1]==1 && k[2]==3 && k[3]==2)
+               *(a[0].d) = a[1].d->Solve(a[2].v, a[3].s[0], k[4]!=3 || a[4].v!=0);
+       else    return 1;
+       return 0;
+}
+void mglc_solve(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==1 && k[1]==1 && k[2]==3 && k[3]==2 && k[4]==1)
+               mglprintf(out,1024,L"%s=%s.Solve(%g, '%c', %s, %d);", a[0].s.c_str(), a[1].s.c_str(), a[2].v, a[3].s[0], a[4].s.c_str(), k[5]!=3 || a[5].v!=0);
+       else if(k[0]==1 && k[1]==1 && k[2]==3 && k[3]==2)
+               mglprintf(out,1024,L"%s=%s.Solve(%g, '%c', %d);", a[0].s.c_str(), a[1].s.c_str(), a[2].v, a[3].s[0], k[4]!=3 || a[4].v!=0);
 }
 //-----------------------------------------------------------------------------
 int mgls_put(mglGraph *, long , mglArg *a, int k[10], const char *)
@@ -3505,14 +3678,14 @@ void mglc_roll(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
 int mgls_datagrid(mglGraph *gr, long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1)
-               gr->DataGrid(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d), opt);
+               gr->DataGrid(*(a[0].d), *(a[1].d), *(a[2].d), *(a[3].d),opt);
        else    return 1;
        return 0;
 }
 void mglc_datagrid(wchar_t out[1024], long , mglArg *a, int k[10], const char *opt)
 {
        if(k[0]==1 && k[1]==1 && k[2]==1 && k[3]==1)
-               mglprintf(out,1024,L"gr->DataGrid(%s, %s, %s, %s, \"%s\");",a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(),opt?opt:"");
+               mglprintf(out,1024,L"gr->DataGrid(%s, %s, %s, %s, \"%s\");",a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str(), a[3].s.c_str(),opt);
 }
 //-----------------------------------------------------------------------------
 int mgls_triangulate(mglGraph *, long , mglArg *a, int k[10], const char *)
@@ -3532,47 +3705,101 @@ void mglc_triangulate(wchar_t out[1024], long , mglArg *a, int k[10], const char
                mglprintf(out,1024,L"%s = mglTriangulation(%s, %s);",a[0].s.c_str(), a[1].s.c_str(), a[2].s.c_str());
 }
 //-----------------------------------------------------------------------------
+int mgls_view(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3 && k[1]==3)
+               gr->View(a[0].v, a[1].v, k[2]==3?a[2].v:0);
+       else    return 1;
+       return 0;
+}
+void mglc_view(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3 && k[1]==3)
+               mglprintf(out,1024,L"gr->View(%g, %g, %g);", a[0].v, a[1].v, k[2]==3?a[2].v:0);
+}
+//-----------------------------------------------------------------------------
+int mgls_zoom(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==3)
+               gr->Zoom(a[0].v, a[1].v, a[2].v, a[3].v);
+       else    return 1;
+       return 0;
+}
+void mglc_zoom(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       if(k[0]==3 && k[1]==3 && k[2]==3 && k[3]==3)
+               mglprintf(out,1024,L"gr->Zoom(%g, %g, %g, %g);", a[0].v, a[1].v, a[2].v, a[3].v);
+}
+//-----------------------------------------------------------------------------
+int mgls_zoomaxis(mglGraph *gr, long , mglArg *a, int k[10], const char *)
+{
+       int i;
+       for(i=0;i<8;i++)        if(k[i]!=3)     break;
+       if(i==8)                gr->ZoomAxis(mglPoint(a[0].v, a[1].v, a[2].v, a[3].v), mglPoint(a[4].v, a[5].v, a[6].v, a[7].v));
+       else if(i==6)   gr->ZoomAxis(mglPoint(a[0].v, a[1].v, a[2].v), mglPoint(a[3].v, a[4].v, a[5].v));
+       else if(i==4)   gr->ZoomAxis(mglPoint(a[0].v, a[1].v), mglPoint(a[2].v, a[3].v));
+       else if(i==2)   gr->ZoomAxis(mglPoint(a[0].v), mglPoint(a[1].v));
+       else    return 1;
+       return 0;
+}
+void mglc_zoomaxis(wchar_t out[1024], long , mglArg *a, int k[10], const char *)
+{
+       int i;
+       for(i=0;i<8;i++)        if(k[i]!=3)     break;
+       if(i==8)
+               mglprintf(out,1024,L"gr->ZoomAxis(mglPoint(%g, %g, %g, %g),mglPoint(%g, %g, %g, %g));", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v, a[6].v, a[7].v);
+       else if(i==6)
+               mglprintf(out,1024,L"gr->ZoomAxis(mglPoint(%g, %g, %g),mglPoint(%g, %g, %g));", a[0].v, a[1].v, a[2].v, a[3].v, a[4].v, a[5].v);
+       else if(i==4)
+               mglprintf(out,1024,L"gr->ZoomAxis(mglPoint(%g, %g),mglPoint(%g, %g));", a[0].v, a[1].v, a[2].v, a[3].v);
+       else if(i==2)
+               mglprintf(out,1024,L"gr->ZoomAxis(mglPoint(%g),mglPoint(%g));", a[0].v, a[1].v);
+}
+//-----------------------------------------------------------------------------
 mglCommand mgls_base_cmd[] = {
-       {"addlegend","Add legend entry","addlegend 'txt' 'fmt'", mgls_addlegend, mglc_addlegend,2},
+       {"addlegend","Add legend entry","addlegend 'txt' 'fmt'", mgls_addlegend, mglc_addlegend,15},
        {"addto","Add data or number","addto Var Dat|Var num", mgls_addto, mglc_addto,3},
-       {"adjust","Adjust ticks for best view","adjust ['dir']", mgls_adjust, mglc_adjust,2},
+       {"adjust","Adjust ticks for best view","adjust ['dir']", mgls_adjust, mglc_adjust,14},
        {"alpha","Switch on/off transparency","alpha [val]", mgls_alpha, mglc_alpha,2},
        {"alphadef","Set default transparency","alphadef val", mgls_alphadef, mglc_alphadef,2},
        {"ambient","Set ambient light brightness","ambient val", mgls_ambient, mglc_ambient,2},
-       {"area","Draw area plot for 1D data","area Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_area, mglc_area,0},
+       {"area","Draw area plot for 1D data","area Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_area, mglc_area,7},
        {"arrowsize","Set size of arrows","arrowsize val", mgls_arrowsize, mglc_arrowsize,2},
+       {"ask","Define parameter from user input","ask $N 'question'", 0, 0, 6},
        {"aspect","Set aspect ration","aspect valx valy [valz]", mgls_aspect, mglc_aspect,5},
-       {"axial","Draw surfaces of contour lines rotation","axial Zdat ['fmt' num]|Xdat Ydat Zdat ['fmt' num]", mgls_axial, mglc_axial,0},
-       {"axis","Setup or draw axis","axis ['dir' adjust]|'fx' 'fy' ['fz' 'fc']|how", mgls_axis, mglc_axis,1},
-       {"axisstl","Set axis and tick style","axisstl 'stl' ['sub']", mgls_axisstl, mglc_axisstl,2},
-       {"ball","Draw point (ball)","ball posx posy ['fmt']|posx posy posz ['fmt']", mgls_ball, mglc_ball,1},
-       {"barh","Draw horizontal bars for 1D data", "barh Ydat ['fmt' above]|Xdat Ydat ['fmt' above]", mgls_barh, mglc_barh,0},
-       {"bars","Draw bars for 1D data","bars Ydat ['fmt' above]|Xdat Ydat ['fmt' above]|Xdat Ydat Zdat ['fmt' above]", mgls_bars, mglc_bars,0},
+       {"axial","Draw surfaces of contour lines rotation","axial Zdat ['fmt' num]|Xdat Ydat Zdat ['fmt' num]", mgls_axial, mglc_axial,8},
+       {"axis","Setup or draw axis","axis ['dir' 'fmt']|'fx' 'fy' 'fz' ['fc']|how", mgls_axis, mglc_axis,12},
+       {"axisstl","Set axis and tick style","axisstl 'stl' ['sub']", mgls_axisstl, mglc_axisstl,14},
+       {"ball","Draw point (ball)","ball posx posy ['fmt']|posx posy posz ['fmt']", mgls_ball, mglc_ball,13},
+       {"barh","Draw horizontal bars for 1D data", "barh Ydat ['fmt' above]|Xdat Ydat ['fmt' above]", mgls_barh, mglc_barh,7},
+       {"bars","Draw bars for 1D data","bars Ydat ['fmt' above]|Xdat Ydat ['fmt' above]|Xdat Ydat Zdat ['fmt' above]", mgls_bars, mglc_bars,7},
        {"barwidth","Set default bars width","barwidth val", mgls_barwidth, mglc_barwidth,2},
-       {"beam","Draw quasioptical beam","beam Tr G1 G2 Adat r ['sch' flag num] ", mgls_beam, mglc_beam,0},
-       {"belt","Draw belts","belt Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_belt, mglc_belt,0},
-       {"box","Draw bounding box","box ['fmt' ticks]", mgls_box, mglc_box,1},
-       {"boxplot","Draw boxplot for 2D data","boxplot Ydat ['fmt']|Xdat Ydat ['fmt']", mgls_boxplot, mglc_boxplot,0},
-       {"boxs","Draw boxes","boxs Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_boxs, mglc_boxs,0},
+       {"beam","Draw quasioptical beam","beam Tr G1 G2 Adat r ['sch' flag num] ", mgls_beam, mglc_beam,9},
+       {"belt","Draw belts","belt Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_belt, mglc_belt,8},
+       {"box","Draw bounding box","box ['fmt' ticks]", mgls_box, mglc_box,12},
+       {"boxplot","Draw boxplot for 2D data","boxplot Ydat ['fmt']|Xdat Ydat ['fmt']", mgls_boxplot, mglc_boxplot,7},
+       {"boxs","Draw boxes","boxs Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_boxs, mglc_boxs,8},
        {"break","Break for-cycle","break", 0, 0, 6},
        {"call","Execute script in external file","call 'name' [args]", 0, 0, 6},
-       {"candle","Draw candlestick chart","candle candle Vdat1 ['fmt']|Vdat1 Vdat2 ['fmt']|Vdat1 Ydat1 Ydat2 ['fmt']||Vdat1 Vdat2 Ydat1 Ydat2 ['fmt']|Xdat Vdat1 Vdat2 Ydat1 Ydat2 ['fmt']", mgls_candle, mglc_candle,0},
-       {"chart","Draw chart","chart Dat ['fmt']", mgls_chart, mglc_chart,0},
-       {"chdir","Change current directory","chdir 'dir'", mgls_chdir, mglc_chdir,2},
-       {"clearlegend","Clear legend antries","clearlegend", mgls_clearlegend, mglc_clearlegend,2},
-       {"clf","Clear picture","clf", mgls_clf, mglc_clf,1},
-       {"cloud","Draw cloud","cloud Adat ['fmt']|Xdat Ydat Zdat Adat ['fmt']", mgls_cloud, mglc_cloud,0},
-       {"colorbar","Draw colorbar","colorbar ['fmt' pos]|Vdat ['fmt' pos]|'sch' pos x y w h|Vdat 'sch' pos x y w h", mgls_colorbar, mglc_colorbar,1},
+       {"candle","Draw candlestick chart","candle candle Vdat1 ['fmt']|Vdat1 Vdat2 ['fmt']|Vdat1 Ydat1 Ydat2 ['fmt']||Vdat1 Vdat2 Ydat1 Ydat2 ['fmt']|Xdat Vdat1 Vdat2 Ydat1 Ydat2 ['fmt']", mgls_candle, mglc_candle,7},
+       {"chart","Draw chart","chart Dat ['fmt']", mgls_chart, mglc_chart,7},
+       {"chdir","Change current directory","chdir 'path'", mgls_chdir, mglc_chdir,2},
+       {"circle","Draw circle","circle x y r ['fmt']|x y z r ['fmt']", mgls_circle, mglc_circle,13},
+       {"clean","Remove duplicate rows","clean Dat id", mgls_clean, mglc_clean,3},
+       {"clearlegend","Clear legend antries","clearlegend", mgls_clearlegend, mglc_clearlegend,15},
+       {"clf","Clear picture","clf", mgls_clf, mglc_clf,12},
+       {"cloud","Draw cloud","cloud Adat ['fmt']|Xdat Ydat Zdat Adat ['fmt']", mgls_cloud, mglc_cloud,9},
+       {"colorbar","Draw colorbar","colorbar ['fmt' pos]|Vdat ['fmt' pos]|'sch' pos x y [w h]|Vdat 'sch' pos x y [w h]", mgls_colorbar, mglc_colorbar,12},
        {"column","Get data column filled by formula on column ids","column Res Dat 'eq'", mgls_column, mglc_column,4},
        {"columnplot","Set position of plot inside cell of column", "columnplot num ind [d]", mgls_columnplot, mglc_columnplot,5},
        {"combine", "Direct multiplication of arrays", "combine Res Adat Bdat", mgls_combine, mglc_combine,4},
-       {"cone","Draw cone","cone x1 y1 z1 x2 y2 z2 r1 [r2 'fmt' edge]", mgls_cone, mglc_cone,1},
-       {"cones","Draw cones for 1D data","cones Ydat ['fmt' above]|Xdat Ydat ['fmt' above]|Xdat Ydat Zdat ['fmt' above]", mgls_cones, mglc_cones,0},
-       {"cont","Draw contour lines","cont Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_cont, mglc_cont,0},
-       {"cont3","Draw contour lines for 3D data","cont3 Adat 'dir' [val 'fmt' num]|Vdat Adat 'dir' [val 'fmt']|Xdat Ydat Zdat Adat 'dir' [val 'fmt' num]|Vdat Xdat Ydat Zdar Adat 'dir' [val 'fmt']", mgls_cont3, mglc_cont3,0},
-       {"contd","Draw solid contours with manual colors","contd Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_contd, mglc_contd,0},
-       {"contf","Draw solid contours","contf Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_contf, mglc_contf,0},
-       {"contf3","Draw solid contour lines for 3D data","contf3 Adat 'dir' [val 'fmt' num]|Vdat Adat 'dir' [val 'fmt']|Xdat Ydat Zdat Adat 'dir' [val 'fmt' num]|Vdat Xdat Ydat Zdar Adat 'dir' [val 'fmt']", mgls_contf3, mglc_contf3,0},
+       {"cone","Draw cone","cone x1 y1 z1 x2 y2 z2 r1 [r2 'fmt' edge]", mgls_cone, mglc_cone,13},
+       {"cones","Draw cones for 1D data","cones Ydat ['fmt' above]|Xdat Ydat ['fmt' above]|Xdat Ydat Zdat ['fmt' above]", mgls_cones, mglc_cones,7},
+       {"cont","Draw contour lines","cont Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_cont, mglc_cont,8},
+       {"cont3","Draw contour lines for 3D data","cont3 Adat 'dir' [val 'fmt' num]|Vdat Adat 'dir' [val 'fmt']|Xdat Ydat Zdat Adat 'dir' [val 'fmt' num]|Vdat Xdat Ydat Zdar Adat 'dir' [val 'fmt']", mgls_cont3, mglc_cont3,9},
+       {"contd","Draw solid contours with manual colors","contd Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_contd, mglc_contd,8},
+       {"contf","Draw solid contours","contf Zdat ['fmt' num zpos]|Vdat Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' num zpos]|Vdat Xdat Ydat Zdat ['fmt' zpos]", mgls_contf, mglc_contf,8},
+       {"contf3","Draw solid contour lines for 3D data","contf3 Adat 'dir' [val 'fmt' num]|Vdat Adat 'dir' [val 'fmt']|Xdat Ydat Zdat Adat 'dir' [val 'fmt' num]|Vdat Xdat Ydat Zdar Adat 'dir' [val 'fmt']", mgls_contf3, mglc_contf3,9},
        {"contfx","Draw solid contour lines at x-slice (or x-plane)","contfx Dat ['fmt' pos num]", mgls_contfx, mglc_contfx,0},
        {"contfy","Draw solid contour lines at y-slice (or y-plane)","contfy Dat ['fmt' pos num]", mgls_contfy, mglc_contfy,0},
        {"contfz","Draw solid contour lines at z-slice (or z-plane)","contfz Dat ['fmt' pos num]", mgls_contfz, mglc_contfz,0},
@@ -3582,13 +3809,13 @@ mglCommand mgls_base_cmd[] = {
        {"conty","Draw contour lines at y-slice (or y-plane)","conty Dat ['fmt' pos num]", mgls_conty, mglc_conty,0},
        {"contz","Draw contour lines at z-slice (or z-plane)","contz Dat ['fmt' pos num]", mgls_contz, mglc_contz,0},
        {"copy","Copy data from another variable","copy Dat1 Dat2 ['eq' onaxis]", mgls_copy, mglc_copy,4},
-       {"cosfft","Cos-Fourier transform at some direction","cosfft Dat 'dir'", mgls_cosfft, mglc_cosfft,3},
-       {"crange","Set color range","crange Dat [sym] | c1 c2", mgls_crange, mglc_crange,2},
-       {"crop","Crop edge of data","crop Dat n1 n2 'dir'", mgls_crop, mglc_crop,3},
+       {"cosfft","Cos-Fourier transform at some direction","cosfft Dat 'dir'", mgls_cosfft, mglc_cosfft,16},
+       {"crange","Set color range","crange Dat [sym] | c1 c2", mgls_crange, mglc_crange,14},
+       {"crop","Crop edge of data","crop Dat n1 n2 'dir'", mgls_crop, mglc_crop,16},
        {"crust","Draw reconstructed surface for arbitrary data points","crust Xdat Ydat Zdat ['fmt']", mgls_crust, mglc_crust,0},
-       {"ctick","Set ticks for colorbar","ctick 'tmpl' | dx", mgls_ctick, mglc_ctick,2},
-       {"cumsum","Cumulative summation","cumsum Dat 'dir'", mgls_cumsum, mglc_cumsum,3},
-       {"curve","Draw curve","curve x1 y1 dx1 dy1 x2 y2 dx2 dy2 ['fmt']|x1 y1 z1 dx1 dy1 dz1 x2 y2 z2 dx2 dy2 dz2 ['fmt']", mgls_curve, mglc_curve,1},
+       {"ctick","Set ticks for colorbar","ctick 'tmpl' | dx", mgls_ctick, mglc_ctick,14},
+       {"cumsum","Cumulative summation","cumsum Dat 'dir'", mgls_cumsum, mglc_cumsum,16},
+       {"curve","Draw curve","curve x1 y1 dx1 dy1 x2 y2 dx2 dy2 ['fmt']|x1 y1 z1 dx1 dy1 dz1 x2 y2 z2 dx2 dy2 dz2 ['fmt']", mgls_curve, mglc_curve,13},
        {"cut","Setup plot points cutting","cut val|x1 y1 z1 x2 y2 z2|'cond'", mgls_cut, mglc_cut,2},
        {"datagrid","Fill data by triangulated values","datagrid Var Xdat Ydat Zdat", mgls_datagrid, mglc_datagrid,3},
        {"datas","Print list of data names in HDF file","datas 'fname'", mgls_datas, mglc_datas,3},
@@ -3597,49 +3824,53 @@ mglCommand mgls_base_cmd[] = {
        {"defnum","Define parameter as numerical value","defnum $N val", 0, 0, 6},
        {"defpal","Define parameter as palette color","defpal $N val", 0, 0, 6},
        {"delete","Delete slice of data","delete Dat 'dir' [pos=0 num=1]", mgls_delete, mglc_delete,3},
-       {"dens","Draw density plot","dens Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' zpos]", mgls_dens, mglc_dens,0},
-       {"dens3","Draw density plot at slices of 3D data","dens3 Adat 'dir' [pos 'fmt']|Xdat Ydat Zdat Adat 'dir' [pos 'fmt']", mgls_dens3, mglc_dens3,0},
+       {"dens","Draw density plot","dens Zdat ['fmt' zpos]|Xdat Ydat Zdat ['fmt' zpos]", mgls_dens, mglc_dens,8},
+       {"dens3","Draw density plot at slices of 3D data","dens3 Adat 'dir' [pos 'fmt']|Xdat Ydat Zdat Adat 'dir' [pos 'fmt']", mgls_dens3, mglc_dens3,9},
        {"densx","Draw density plot at x-slice (or x-plane)","densx Dat ['fmt' pos]", mgls_densx, mglc_densx,0},
        {"densy","Draw density plot at y-slice (or y-plane)","densy Dat ['fmt' pos]", mgls_densy, mglc_densy,0},
        {"densz","Draw density plot at z-slice (or z-plane)","densz Dat ['fmt' pos]", mgls_densz, mglc_densz,0},
-       {"dew","Draw dew plot","dew Udat Vdat ['fmt']|Xdat Ydat Udat Vdat ['fmt']", mgls_dew, mglc_dew,0},
-       {"diff","Numerically differentiate data","diff Var 'dir'", mgls_diff, mglc_diff,3},
-       {"diff2","Numerically double differentiate data","diff2 Var 'dir'", mgls_diff2, mglc_diff2,3},
+       {"dew","Draw dew plot","dew Udat Vdat ['fmt']|Xdat Ydat Udat Vdat ['fmt']", mgls_dew, mglc_dew,11},
+       {"diff","Numerically differentiate data","diff Var 'dir'", mgls_diff, mglc_diff,16},
+       {"diff2","Numerically double differentiate data","diff2 Var 'dir'", mgls_diff2, mglc_diff2,16},
        {"divto","Divide by data or number","divto Var Dat|Var num", mgls_divto, mglc_divto,3},
-       {"dots","Draw dots for arbitrary data points","dots Xdat Ydat Zdat ['fmt']", mgls_dots, mglc_dots,0},
-       {"drop","Draw drop","drop x0 y0 dx dy r ['col' sh asp]|x0 y0 z0 dx dy dz r ['col' sh asp]", mgls_drop, mglc_drop,0},
+       {"dots","Draw dots for arbitrary data points","dots Xdat Ydat Zdat ['fmt']", mgls_dots, mglc_dots,9},
+       {"drop","Draw drop","drop x0 y0 dx dy r ['col' sh asp]|x0 y0 z0 dx dy dz r ['col' sh asp]", mgls_drop, mglc_drop,13},
+       {"ellipse","Draw ellipse","ellipse x1 y1 x2 y2 r ['fmt']|x1 y1 z1 x2 y2 z2 r ['fmt']", mgls_ellipse, mglc_ellipse,13},
        {"else","Execute if condition is false","else", 0, 0, 6},
        {"elseif","Conditional operator","elseif val|Dat ['cond']", 0, 0, 6},
        {"endif","Finish if/else block","endif", 0, 0, 6},
-       {"envelop","Find envelop for the data","envelop Dat ['dir']", mgls_envelop, mglc_envelop,3},
-       {"error","Draw error boxes","error Ydat Yerr ['fmt']|Xdat Ydat Yerr ['fmt']|Xdat Ydat Xerr Yerr ['fmt']", mgls_error, mglc_error,0},
+       {"envelop","Find envelop for the data","envelop Dat ['dir']", mgls_envelop, mglc_envelop,16},
+       {"errbox","Draw error box","errbox x y ex ey ['fmt']|x y z ex ey ez ['fmt']", mgls_errbox, mglc_errbox,13},
+       {"error","Draw error boxes","error Ydat Yerr ['fmt']|Xdat Ydat Yerr ['fmt']|Xdat Ydat Xerr Yerr ['fmt']", mgls_error, mglc_error,7},
        {"evaluate","Evaluate (interpolate) values of array Dat at points i=idat,j=jdat,k=kdat","evaluate Res Dat Idat [norm]|Res Dat Idat Jdat [norm]|Res Dat Idat Jdat Kdat [norm]", mgls_evaluate, mglc_evaluate,4},
        {"export","Export data to PNG picture","export Dat 'fname' 'sch' [v1 v2]", mgls_import, mglc_import,3},
        {"extend","Extend data array","extend Dat dim1 [dim2]", mgls_extend, mglc_extend,3},
-       {"facex","Draw face perpendicular to x-axis","facex x0 y0 z0 wy wz ['fmt' d1 d2]", mgls_facex, mglc_facex,1},
-       {"facey","Draw face perpendicular to y-axis","facex x0 y0 z0 wx wz ['fmt' d1 d2]", mgls_facey, mglc_facey,1},
-       {"facez","Draw face perpendicular to z-axis","facex x0 y0 z0 wy wz ['fmt' d1 d2]", mgls_facez, mglc_facez,1},
-       {"fall","Draw waterfalls","fall Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_fall, mglc_fall,0},
-       {"fgets","Print string from file","fgets x y z 'fname' [pos=0 'fmt' size]|x y z 'fname' [pos=0 'fmt' size]", mgls_fgets, mglc_fgets,1},
+       {"face","Draw face (quadrangle)","face x1 y1 x2 y2 x3 y3 x4 y4 ['fmt']|x1 y1 z1 x2 y2 z2 x3 y3 z3 x4 y4 z4 ['fmt']", mgls_face, mglc_face,13},
+       {"facenum","Set number of visible faces","facenum val", mgls_facenum, mglc_facenum,2},
+       {"facex","Draw face perpendicular to x-axis","facex x0 y0 z0 wy wz ['fmt' d1 d2]", mgls_facex, mglc_facex,13},
+       {"facey","Draw face perpendicular to y-axis","facex x0 y0 z0 wx wz ['fmt' d1 d2]", mgls_facey, mglc_facey,13},
+       {"facez","Draw face perpendicular to z-axis","facex x0 y0 z0 wy wz ['fmt' d1 d2]", mgls_facez, mglc_facez,13},
+       {"fall","Draw waterfalls","fall Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_fall, mglc_fall,8},
+       {"fgets","Print string from file","fgets x y z 'fname' [pos=0 'fmt' size]|x y z 'fname' [pos=0 'fmt' size]", mgls_fgets, mglc_fgets,15},
        {"fill","Fill data linearly in range [v1, v2]","fill Var v1 v2 ['dir'] | Var 'eq' [Vdat Wdat]", mgls_fill, mglc_fill,3},
        {"fillsample","Fill x-,k-samples for transforms","fillsample Var 'how'", mgls_fillsample, mglc_fillsample,3},
        {"fit","Fit data to formula","fit Res A 'eq' 'var' [Ini]|Res X A 'eq' 'var' [Ini]|Res X Y A 'eq' 'var' [Ini]|Res X Y Z A 'eq' 'var' [Ini]", mgls_fit, mglc_fit,4},
        {"fits","Fit data to formula","fits Res A S 'eq' 'var' [Ini]|Res X A S 'eq' 'var' [Ini]|Res X Y A S 'eq' 'var' [Ini]|Res X Y Z A S 'eq' 'var' [Ini]", mgls_fits, mglc_fits,4},
        {"flow","Draw flow threads for vector field","flow Udat Vdat ['fmt' num]|Xdat Ydat Udat Vdat ['fmt' num]|Udat Vdat Wdat ['fmt' num]|Xdat Ydat Zdat Udat Vdat ['fmt' num]|\
-       x0 y0 Udat Vdat ['fmt']|x0 y0 Xdat Ydat Udat Vdat ['fmt']|x0 y0 z0 Udat Vdat Wdat ['fmt']|x0 y0 z0 Xdat Ydat Zdat Udat Vdat Wdat ['fmt']", mgls_flow, mglc_flow,0},
+       x0 y0 Udat Vdat ['fmt']|x0 y0 Xdat Ydat Udat Vdat ['fmt']|x0 y0 z0 Udat Vdat Wdat ['fmt']|x0 y0 z0 Xdat Ydat Zdat Udat Vdat Wdat ['fmt']", mgls_flow, mglc_flow,11},
        {"fog","Switch on/off fog","fog val [pos]", mgls_fog, mglc_fog,2},
-       {"font","Setup font","font 'fmt' [size]", mgls_font, mglc_font,2},
+       {"font","Setup font","font 'fmt' [size]", mgls_font, mglc_font,15},
        {"for","For cycle","for $N v1 v2 [dv] | $N Dat", 0, 0, 6},
-       {"fourier","In-place Fourier transform","fourier ReDat ImDat 'dir'", mgls_fourier, mglc_fourier, 3},
-       {"fplot","Plot curve by formula","fplot 'y(x)' ['fmt' num]|'x(t)' 'y(t)' 'z(t)' ['fmt' num]", mgls_fplot, mglc_fplot,1},
-       {"fsurf","Plot surface by formula","fsurf 'z(x,y)' ['fmt' num]|'x(u,v)' 'y(u,v)' 'z(u,v)' ['fmt' num]", mgls_fsurf, mglc_fsurf,1},
+       {"fourier","In-place Fourier transform","fourier ReDat ImDat 'dir'", mgls_fourier, mglc_fourier, 16},
+       {"fplot","Plot curve by formula","fplot 'y_x' ['fmt']|'x_t' 'y_t' 'z_t' ['fmt']", mgls_fplot, mglc_fplot,1},
+       {"fsurf","Plot surface by formula","fsurf 'z_xy' ['fmt']|'x_uv' 'y_uv' 'z_uv' ['fmt']", mgls_fsurf, mglc_fsurf,1},
        {"func","Start function definition and stop execution of main script","func 'name' [narg]", 0, 0, 6},
-       {"grad","Draw gradient lines for scalar field","grad Phi ['fmt' num]|Xdat Ydat Phi ['fmt' num]|Xdat Ydat Zdat Phi ['fmt' num]", mgls_grad, mglc_grad,0},
-       {"grid","Draw grid","grid ['dir' 'fmt']", mgls_grid, mglc_grid,0},
-       {"grid2","Draw grid for data array(s)","grid Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_grid2, mglc_grid2,0},
-       {"grid3","Draw grid at slices of 3D data","grid3 Adat 'dir' [pos 'fmt']|Xdat Ydat Zdat Adat 'dir' [pos 'fmt']", mgls_grid3, mglc_grid3,0},
+       {"grad","Draw gradient lines for scalar field","grad Phi ['fmt' num]|Xdat Ydat Phi ['fmt' num]|Xdat Ydat Zdat Phi ['fmt' num]", mgls_grad, mglc_grad,8},
+       {"grid","Draw grid","grid ['dir' 'fmt']", mgls_grid, mglc_grid,12},
+       {"grid2","Draw grid for data array(s)","grid Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_grid2, mglc_grid2,8},
+       {"grid3","Draw grid at slices of 3D data","grid3 Adat 'dir' [pos 'fmt']|Xdat Ydat Zdat Adat 'dir' [pos 'fmt']", mgls_grid3, mglc_grid3,9},
        {"gridplot","Set position of plot inside cell of matrix", "gridplot nx ny ind [d]", mgls_gridplot, mglc_gridplot,5},
-       {"hankel","Hankel transform at some direction","hankel Dat 'dir'", mgls_hankel, mglc_hankel,3},
+       {"hankel","Hankel transform at some direction","hankel Dat 'dir'", mgls_hankel, mglc_hankel,16},
        {"hist","Create histogram (distribution) of data values","hist Res Dat num v1 v2 [nsub]|Res Dat Wdat num v1 v2 [nsub]", mgls_hist, mglc_hist,4},
        {"idset","Set column id for data","idset Dat 'ids'", mgls_idset, mglc_idset,3},
        {"if","Conditional operator","if val|Dat ['cond']", 0, 0, 6},
@@ -3647,69 +3878,73 @@ mglCommand mgls_base_cmd[] = {
        {"info","Print information about data","info Dat [detail]|'message'", mgls_info, mglc_info,3},
        {"inplot","Set position of plot in picture","x1 x2 y1 y2 [rel]", mgls_inplot, mglc_inplot,5},
        {"insert","Insert slice of data","insert Dat 'dir' [pos=0 num=1]", mgls_insert, mglc_insert,3},
-       {"integrate","Integrate data","integrate Dat 'dir'", mgls_integrate, mglc_integrate,3},
+       {"integrate","Integrate data","integrate Dat 'dir'", mgls_integrate, mglc_integrate,16},
        {"jacobian","Get Jacobian","jacobian Res Xdat Ydat [Zdat]", mgls_jacobian, mglc_jacobian,4},
-       {"label","Draw label at arbitrary position","label ydat 'txt' ['stl'='']|xdat ydat 'txt' ['stl'='']|xdat ydat zdat 'txt' ['stl'='']|x y 'txt' ['fmt' size]", mgls_label, mglc_label,1},
-       {"legend","Draw legend","legend [pos 'fmt' size llen]|x y ['fmt' size llen]", mgls_legend, mglc_legend,1},
-       {"legendmarks","Set number of marks in the legend","legendmarks val", mgls_legendmarks, mglc_legendmarks,2},
+       {"label","Draw label at arbitrary position","label Ydat 'txt' ['fmt'='']|Xdat Ydat 'txt' ['fmt'='']|Xdat Ydat Zdat 'txt' ['fmt'='']", mgls_label, mglc_label,7},
+       {"legend","Draw legend","legend [pos 'fmt']|x y ['fmt']", mgls_legend, mglc_legend,15},
+       {"legendmarks","Set number of marks in the legend","legendmarks val", mgls_legendmarks, mglc_legendmarks,15},
        {"light","Setup light","light [val] | val num | num xpos ypos zpos ['fmt' br]", mgls_light, mglc_light,2},
-       {"line","Draw line","line x1 y1 x2 y2 ['fmt']|x1 y1 z1 x2 y2 z2 ['fmt']", mgls_line, mglc_line,1},
-       {"loadfont","Load fontfaces","loadfont ['fmt']", mgls_loadfont, mglc_loadfont,2},
-       {"map","Draw mapping plot","map Udat Vdat ['fmt']|Xdat Ydat Udat Vdat ['fmt']", mgls_map, mglc_map,0},
-       {"mark","Draw mark plot for 1D data","mark Ydat Rdat ['fmt']|Xdat Ydat Rdat ['fmt']|Xdat Ydat Zdat Rdat ['fmt']", mgls_mark, mglc_mark,0},
+       {"line","Draw line","line x1 y1 x2 y2 ['fmt']|x1 y1 z1 x2 y2 z2 ['fmt']", mgls_line, mglc_line,13},
+       {"list","Creates new variable from list of numbers or data","list Var v1 ...|Var D1 ...", 0, 0, 6},
+       {"loadfont","Load fontfaces","loadfont ['face']", mgls_loadfont, mglc_loadfont,15},
+       {"map","Draw mapping plot","map Udat Vdat ['fmt']|Xdat Ydat Udat Vdat ['fmt']", mgls_map, mglc_map,10},
+       {"mark","Draw mark plot for 1D data","mark Ydat Rdat ['fmt']|Xdat Ydat Rdat ['fmt']|Xdat Ydat Zdat Rdat ['fmt']", mgls_mark, mglc_mark,7},
        {"marksize","Set size of markers","marksize val", mgls_marksize, mglc_marksize,2},
        {"max","Find maximal value over direction","max Res Dat 'dir'", mgls_max, mglc_max,4},
-       {"mesh","Draw mesh surface","mesh Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_mesh, mglc_mesh,0},
+       {"mesh","Draw mesh surface","mesh Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_mesh, mglc_mesh,8},
        {"meshnum","Set number of lines in mesh/fall/vect and so on","meshnum val", mgls_meshnum, mglc_meshnum,2},
        {"min","Find minimal value over direction","min Res Dat 'dir'", mgls_min, mglc_min,4},
-       {"mirror","Mirror data at some direction","mirror Dat 'dir'", mgls_mirror, mglc_mirror,3},
+       {"mirror","Mirror data at some direction","mirror Dat 'dir'", mgls_mirror, mglc_mirror,16},
        {"modify","Modify data values by formula","modify Dat 'eq' [num] | Dat 'eq' Vdat [Wdat]", mgls_modify, mglc_modify,3},
        {"momentum","Get momentum along direction","momentum Res Dat 'how' ['dir']", mgls_momentum, mglc_momentum,4},
        {"multiplot","Set position of plot","multiplot m n pos dx dy 'style'", mgls_multiplot, mglc_multiplot,5},
        {"multo","Multiply by data or number","multo Var Dat|Var num", mgls_multo, mglc_multo,3},
        {"new","Create new data","new Dat nx ny nz ['eq']|new Dat nx ny ['eq']|new Dat nx ['eq']", mgls_new, mglc_new,4},
        {"next","Start next for-cycle iteration","next", 0, 0, 6},
-       {"norm","Normalize data","norm Dat v1 v2 [sym dim]", mgls_norm, mglc_norm,3},
-       {"normsl","Normalize data slice by slice","normsl Dat v1 v2 ['dir' keep sym] ", mgls_normsl, mglc_normsl,3},
+       {"norm","Normalize data","norm Dat v1 v2 [sym dim]", mgls_norm, mglc_norm,16},
+       {"normsl","Normalize data slice by slice","normsl Dat v1 v2 ['dir' keep sym] ", mgls_normsl, mglc_normsl,16},
        {"once","Start/close commands which should executed only once","once val", 0, 0, 6},
-       {"origin","Set axis origin","origin x0 y0 [z0]", mgls_origin, mglc_origin,2},
+       {"origin","Set axis origin","origin x0 y0 [z0]", mgls_origin, mglc_origin,14},
        {"palette","Set palette for 1D plots","palette 'colors'", mgls_palette, mglc_palette,2},
        {"pde","Solve PDE","pde Res 'ham' IniRe IniIm [dz k0]", mgls_pde, mglc_pde,4},
        {"perspective","Set perspective","perspective val", mgls_perspective, mglc_perspective,2},
-       {"pipe","Draw flow pipes for vector field","pipe Udat Vdat ['fmt' rad num]|Xdat Ydat Udat Vdat ['fmt' rad num]|Udat Vdat Wdat ['fmt' rad num]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' rad num]", mgls_pipe, mglc_pipe,0},
-       {"plot","Draw usual plot for 1D data","plot Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_plot, mglc_plot,0},
+       {"pipe","Draw flow pipes for vector field","pipe Udat Vdat ['fmt' rad num]|Xdat Ydat Udat Vdat ['fmt' rad num]|Udat Vdat Wdat ['fmt' rad num]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' rad num]", mgls_pipe, mglc_pipe,11},
+       {"plot","Draw usual plot for 1D data","plot Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_plot, mglc_plot,7},
+       {"plotid","Set default filename","plotid 'name'", mgls_plotid, mglc_plotid,2},
        {"put","Put value (numeric or array) to given data element","put Dat val [i j k] | Dat Val [i j k]", mgls_put, mglc_put,3},
-       {"putsfit","Print fitted formula","putsfit x y ['pre' 'font' size]|x y z ['pre' 'font' size]", mgls_putsfit, mglc_putsfit,0},
+       {"putsfit","Print fitted formula","putsfit x y ['pre' 'font' size]|x y z ['pre' 'font' size]", mgls_putsfit, mglc_putsfit,15},
        {"qo2d","Solve PDE in accompanied coordinates","qo2d Res 'ham' IniRe IniIm Ray [r k0 Xout Yout]", mgls_qo2d, mglc_qo2d,4},
        {"quadplot","Draw surface of quadrangles","quadplot Idat Xdat Ydat ['fmt']|Idat Xdat Ydat Zdat ['fmt']|Idat Xdat Ydat Zdat Cdat ['fmt'] ", mgls_quadplot, mglc_quadplot,0},
-       {"quality","Set plot quality","quality val", mgls_quality, mglc_quality,2},
-       {"radar","Draw radar chart","radar Rdat ['fmt']", mgls_radar, mglc_radar,0},
-       {"ranges","Set axis ranges","ranges x1 x2 y1 y2 [z1 z2]", mgls_ranges, mglc_ranges,2},
+       {"quality","Set plot quality","quality [val]", mgls_quality, mglc_quality,2},
+       {"radar","Draw radar chart","radar Rdat ['fmt']", mgls_radar, mglc_radar,7},
+       {"ranges","Set axis ranges","ranges x1 x2 y1 y2 [z1 z2]", mgls_ranges, mglc_ranges,14},
        {"ray","Solve Hamiltonian ODE (find GO ray or trajectory)","ray Res 'ham' x0 y0 z0 px0 py0 pz0 [dz=0.1 tmax=10]", mgls_ray, mglc_ray,4},
        {"read","Read data from file","read Dat 'file' [nx ny nz]", mgls_read, mglc_read,4},
        {"readall","Read and join data from several files","readall Dat 'templ' [slice]", mgls_readall, mglc_readall,4},
        {"readhdf","Read data from HDF5 file","readhdf Dat 'file' 'id'", mgls_readhdf, mglc_readhdf,4},
        {"readmat","Read data from file with sizes specified in first row","readmat Dat 'file' [dim]", mgls_readmat, mglc_readmat,4},
        {"rearrange","Rearrange data dimensions","rearrange Dat mx [my mz]", mgls_rearrange, mglc_rearrange,3},
-       {"rect","Draw rectangle","rect x1 y1 x2 y2 ['fmt']|x1 y1 z1 x2 y2 z2 ['fmt']", mgls_rect, mglc_rect,1},
-       {"region","Draw filled region between 2 curves","region Ydat1 Ydat2 ['fmt' inside]|Xdat Ydat1 Ydat2 ['fmt' inside]", mgls_region, mglc_region,0},
+       {"rect","Draw rectangle","rect x1 y1 x2 y2 ['fmt']|x1 y1 z1 x2 y2 z2 ['fmt']", mgls_rect, mglc_rect,13},
+       {"region","Draw filled region between 2 curves","region Ydat1 Ydat2 ['fmt' inside]|Xdat Ydat1 Ydat2 ['fmt' inside]", mgls_region, mglc_region,7},
        {"resize","Resize data","resize Res Dat mx [my mz]", mgls_resize, mglc_resize,4},
        {"return","Return from function","return", 0, 0, 6},
-       {"roll","Roll data along direction","roll Dat 'dir' num", mgls_roll, mglc_roll,0},
+       {"rhomb","Draw rhombus","rhomb x1 y1 x2 y2 r ['fmt']|x1 y1 z1 x2 y2 z2 r ['fmt']", mgls_rhomb, mglc_rhomb,13},
+       {"roll","Roll data along direction","roll Dat 'dir' num", mgls_roll, mglc_roll,16},
        {"rotate","Rotate plot","rotate tetz tetx [tety] | tet x y z", mgls_rotate, mglc_rotate,5},
-       {"rotatetext","Set to auto rotate text or not","rotatetext val", mgls_rotatetext, mglc_rotatetext,2},
+       {"rotatetext","Set to auto rotate text or not","rotatetext val", mgls_rotatetext, mglc_rotatetext,15},
        {"save","Save data to file","save Dat 'file'", mgls_save, mglc_save,3},
        {"savehdf","Save data to HDF5 file","savehdf Dat 'file' 'id'", mgls_savehdf, mglc_savehdf,3},
        {"setsize","Set picture size","setsize width height", mgls_setsize, mglc_setsize,2},
-       {"sew","Remove jump into the data, like phase jumps","sew Dat ['dir' da]", mgls_sew, mglc_sew,3},
-       {"sinfft","Sin-Fourier transform at some direction","sinfft Dat 'dir'", mgls_sinfft, mglc_sinfft,3},
-       {"smooth","Smooth data","smooth Dat [kind 'dir']", mgls_smooth, mglc_smooth,3},
+       {"sew","Remove jump into the data, like phase jumps","sew Dat ['dir' da]", mgls_sew, mglc_sew,16},
+       {"sinfft","Sin-Fourier transform at some direction","sinfft Dat 'dir'", mgls_sinfft, mglc_sinfft,16},
+       {"smooth","Smooth data","smooth Dat [kind 'dir']", mgls_smooth, mglc_smooth,16},
+       {"solve","Find root Dat_{i,j,k}=val (inverse evaluate)","solve Res Dat val 'dir' [Idat norm]", mgls_solve, mglc_solve,4},
        {"sort","Sort data by values in column","sort Dat idx [idy]", mgls_sort, mglc_sort,3},
-       {"sphere","Draw sphere","sphere x0 y0 r ['fmt']|x0 y0 z0 r ['fmt']", mgls_sphere, mglc_sphere,1},
+       {"sphere","Draw sphere","sphere x0 y0 r ['fmt']|x0 y0 z0 r ['fmt']", mgls_sphere, mglc_sphere,13},
        {"squeeze","Squeeze data","squeeze Dat kx [ky kz]", mgls_squeeze, mglc_squeeze,3},
-       {"stem","Draw stem plot for 1D data","stem Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_stem, mglc_stem,0},
-       {"step","Draw step plot for 1D data","step Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_step, mglc_step,0},
-       {"stfa","Draw STFA diagram","stfa Udat Vdat dn ['fmt']|Xdat Ydat Udat Vdat dn ['fmt']", mgls_stfa, mglc_stfa,0},
+       {"stem","Draw stem plot for 1D data","stem Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_stem, mglc_stem,7},
+       {"step","Draw step plot for 1D data","step Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_step, mglc_step,7},
+       {"stfa","Draw STFA diagram","stfa Udat Vdat dn ['fmt']|Xdat Ydat Udat Vdat dn ['fmt']", mgls_stfa, mglc_stfa,10},
        {"stfad","Do STFA transform","stfad Res Real Imag dn ['dir']", mgls_stfad, mglc_stfad,4},
        {"stickplot","Set position of plot inside cell of stick", "stickplot num ind tet phi", mgls_stickplot, mglc_stickplot,5},
        {"stop","Stop execution","stop", 0, 0, 6},
@@ -3717,47 +3952,52 @@ mglCommand mgls_base_cmd[] = {
        {"subplot","Set position of plot","subplot m n pos ['style' dx dy]", mgls_subplot, mglc_subplot,5},
        {"subto","Subtract data or number","subto Var Dat|Var num", mgls_subto, mglc_subto,3},
        {"sum","Find summation over direction","sum Res Dat 'dir'", mgls_sum, mglc_sum,4},
-       {"surf","Draw solid surface","surf Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_surf, mglc_surf,0},
-       {"surf3","Draw isosurface for 3D data","surf3 Adat ['fmt' num]|Xdat Ydat Zdat Adat ['fmt' num]|Adat val ['fmt']|Xdat Ydat Zdat Adat val ['fmt']", mgls_surf3, mglc_surf3,0},
-       {"surf3a","Draw isosurface for 3D data transpared by other data","surf3a Adat Cdat ['fmt' num]|Xdat Ydat Zdat Adat Cdat ['fmt' num]|Adat Cdat val ['fmt']|Xdat Ydat Zdat Adat Cdat val ['fmt']", mgls_surf3a, mglc_surf3a,0},
-       {"surf3c","Draw isosurface for 3D data colored by other data","surf3c Adat Cdat ['fmt' num]|Xdat Ydat Zdat Adat Cdat ['fmt' num]|Adat Cdat val ['fmt']|Xdat Ydat Zdat Adat Cdat val ['fmt']", mgls_surf3c, mglc_surf3c,0},
-       {"surfa","Draw solid surface transpared by other data","surfa Zdat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_surfa, mglc_surfa,0},
-       {"surfc","Draw solid surface colored by other data","surfc Zdat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_surfc, mglc_surfc,0},
-       {"swap","Swap data (usefull after Fourier transform)","swap Dat 'dir'", mgls_swap, mglc_swap,0},
-       {"tape","Draw binormales for 1D data","tape Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_tape, mglc_tape,0},
-       {"tens","Draw tension plot for 1D data","tens Ydat Cdat ['fmt']|Xdat Ydat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_tens, mglc_tens,0},
-       {"ternary","Switch on/off to use ternary axis","ternary val", mgls_ternary, mglc_ternary,2},
-       {"text","Draw text at some position or along curve","text x y 'txt' ['fmt' size]|x y z 'txt' ['fmt' size]|x y dx dy 'txt' ['fmt' size]|x y z dx dy dz 'txt' ['fmt' size]|Ydat 'txt' ['font' sise]|Xdat Ydat 'txt' ['font' sise]", mgls_text, mglc_text,0},
-       {"textmark","Draw TeX mark at point position","textmark Ydat Rdat 'text' ['fmt']|Xdat Ydat Rdat 'text' ['fmt']|Xdat Ydat Zdat Rdat 'text' ['fmt']", mgls_textmark, mglc_textmark,0},
-       {"ticklen","Set tick length","ticklen val [stt]", mgls_ticklen, mglc_ticklen,2},
-       {"ticktime","Set ticks in time format","ticktime 'dir' [dv 'tmpl']", mgls_ticktime, mglc_ticktime,2},
-       {"tile","Draw horizontal tiles","tile Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_tile, mglc_tile,0},
-       {"tiles","Draw horizontal tiles with variable size","tiles Zdat Rdat ['fmt']|Xdat Ydat Zdat Rdat ['fmt']", mgls_tiles, mglc_tiles,0},
-       {"title","Add title for current subplot/inplot","title 'txt' ['fmt' size]", mgls_title, mglc_title,0},
-       {"tlabel","Draw label for t-axis","tlabel 'txt' [pos size shift]", mgls_tlabel, mglc_tlabel,1},
-       {"torus","Draw surface of curve rotation","torus Rdat ['fmt']|Zdat Rdat ['fmt']", mgls_torus, mglc_torus,0},
+       {"surf","Draw solid surface","surf Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_surf, mglc_surf,8},
+       {"surf3","Draw isosurface for 3D data","surf3 Adat ['fmt' num]|Xdat Ydat Zdat Adat ['fmt' num]|Adat val ['fmt']|Xdat Ydat Zdat Adat val ['fmt']", mgls_surf3, mglc_surf3,9},
+       {"surf3a","Draw isosurface for 3D data transpared by other data","surf3a Adat Cdat ['fmt' num]|Xdat Ydat Zdat Adat Cdat ['fmt' num]|Adat Cdat val ['fmt']|Xdat Ydat Zdat Adat Cdat val ['fmt']", mgls_surf3a, mglc_surf3a,10},
+       {"surf3c","Draw isosurface for 3D data colored by other data","surf3c Adat Cdat ['fmt' num]|Xdat Ydat Zdat Adat Cdat ['fmt' num]|Adat Cdat val ['fmt']|Xdat Ydat Zdat Adat Cdat val ['fmt']", mgls_surf3c, mglc_surf3c,10},
+       {"surfa","Draw solid surface transpared by other data","surfa Zdat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_surfa, mglc_surfa,10},
+       {"surfc","Draw solid surface colored by other data","surfc Zdat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_surfc, mglc_surfc,10},
+       {"swap","Swap data (usefull after Fourier transform)","swap Dat 'dir'", mgls_swap, mglc_swap,16},
+       {"table","Draw table with data values","table Dat ['txt' 'fmt']|x y Dat ['txt' 'fmt']", mgls_table, mglc_table,7},
+       {"tape","Draw binormales for 1D data","tape Ydat ['fmt']|Xdat Ydat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_tape, mglc_tape,7},
+       {"tens","Draw tension plot for 1D data","tens Ydat Cdat ['fmt']|Xdat Ydat Cdat ['fmt']|Xdat Ydat Zdat Cdat ['fmt']", mgls_tens, mglc_tens,7},
+       {"ternary","Switch on/off to use ternary axis","ternary val", mgls_ternary, mglc_ternary,14},
+       {"text","Draw text at some position or along curve","text x y 'txt' ['fmt' size]|x y z 'txt' ['fmt' size]|x y dx dy 'txt' ['fmt' size]|x y z dx dy dz 'txt' ['fmt' size]|Ydat 'txt' ['font' sise]|Xdat Ydat 'txt' ['font' sise]", mgls_text, mglc_text,15},
+       {"textmark","Draw TeX mark at point position","textmark Ydat Rdat 'text' ['fmt']|Xdat Ydat Rdat 'text' ['fmt']|Xdat Ydat Zdat Rdat 'text' ['fmt']", mgls_textmark, mglc_textmark,7},
+       {"ticklen","Set tick length","ticklen val [stt]", mgls_ticklen, mglc_ticklen,14},
+       {"ticktime","Set ticks in time format","ticktime 'dir' [dv 'tmpl']", mgls_ticktime, mglc_ticktime,14},
+       {"tile","Draw horizontal tiles","tile Zdat ['fmt']|Xdat Ydat Zdat ['fmt']", mgls_tile, mglc_tile,8},
+       {"tiles","Draw horizontal tiles with variable size","tiles Zdat Rdat ['fmt']|Xdat Ydat Zdat Rdat ['fmt']", mgls_tiles, mglc_tiles,10},
+       {"title","Add title for current subplot/inplot","title 'txt' ['fmt' size]", mgls_title, mglc_title,5},
+       {"tlabel","Draw label for t-axis","tlabel 'txt' [pos]", mgls_tlabel, mglc_tlabel,12},
+       {"torus","Draw surface of curve rotation","torus Rdat ['fmt']|Zdat Rdat ['fmt']", mgls_torus, mglc_torus,7},
        {"trace","Get trace of array","trace Res Dat", mgls_trace, mglc_trace,4},
-       {"traj","Draw vectors along a curve","traj Xdat Ydat Udat Vdat ['fmt' len]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' len]", mgls_traj, mglc_traj,0},
+       {"traj","Draw vectors along a curve","traj Xdat Ydat Udat Vdat ['fmt' len]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' len]", mgls_traj, mglc_traj,11},
        {"transform","Do integral transform of data","transform Res 'how' Rdat Idat", mgls_transform, mglc_transform,4},
        {"transforma","Do integral transform of data","transforma Res 'how' Adat Pdat", mgls_transforma, mglc_transforma,4},
-       {"transpose","Transpose data array","transpose Dat ['dir']", mgls_transpose, mglc_transpose,3},
+       {"transpose","Transpose data array","transpose Dat ['dir']", mgls_transpose, mglc_transpose,16},
        {"transptype","Set type transparency","transptype val", mgls_transptype, mglc_transptype,2},
        {"triangulate","Find triangles of randomly placed points","triangulate Res Xdat Ydat [er]|Res Xdat Ydat Zdat [er]", mgls_triangulate, mglc_triangulate,4},
        {"tricont","Draw contour lines for surface of triangles","tricont Vdat Idat Xdat Ydat ['fmt']|Vdat Idat Xdat Ydat Zdat ['fmt']|Vdat Idat Xdat Ydat Zdat Cdat ['fmt'] ", mgls_tricont, mglc_tricont,0},
        {"triplot","Draw surface of triangles","triplot Idat Xdat Ydat ['fmt']|Idat Xdat Ydat Zdat ['fmt']|Idat Xdat Ydat Zdat Cdat ['fmt'] ", mgls_triplot, mglc_triplot,0},
-       {"tube","Draw curve by tube","tube Ydat Rdat ['fmt']|Ydat rval ['fmt']|Xdat Ydat Rdat ['fmt']|Xdat Ydat rval ['fmt']|Xdat Ydat Zdat Rdat ['fmt']|Xdat Ydat Zdat rval ['fmt']", mgls_tube, mglc_tube,0},
-       {"tuneticks","Set ticks tuning","tuneticks val [fctr]", mgls_tuneticks, mglc_tuneticks,2},
+       {"tube","Draw curve by tube","tube Ydat Rdat ['fmt']|Ydat rval ['fmt']|Xdat Ydat Rdat ['fmt']|Xdat Ydat rval ['fmt']|Xdat Ydat Zdat Rdat ['fmt']|Xdat Ydat Zdat rval ['fmt']", mgls_tube, mglc_tube,7},
+       {"tuneticks","Set ticks tuning","tuneticks val [fctr]", mgls_tuneticks, mglc_tuneticks,14},
        {"var","Create new 1D data and fill it in range","var Dat nx x1 [x2]", mgls_var, mglc_var,4},
-       {"vect","Draw vector field","vect Udat Vdat ['fmt' kind]|Xdat Ydat Udat Vdat ['fmt' kind]|Udat Vdat Wdat ['fmt' kind]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' kind]", mgls_vect, mglc_vect,0},
+       {"vect","Draw vector field","vect Udat Vdat ['fmt']|Xdat Ydat Udat Vdat ['fmt']|Udat Vdat Wdat ['fmt']|Xdat Ydat Zdat Udat Vdat Wdat ['fmt']", mgls_vect, mglc_vect,11},
+       {"vect3","Draw vector field at slices of 3D data","vect Udat Vdat Wdat ['fmt' sval]|Xdat Ydat Zdat Udat Vdat Wdat ['fmt' sval]", mgls_vect3, mglc_vect3,11},
+       {"view","Change view angles - use 'rotate' for plot rotation","view tetz tetx [tety]", mgls_view, mglc_view,5},
        {"write","Write current image to graphical file","write 'fname' [solid]", mgls_write, mglc_write,2},
-       {"xlabel","Draw label for x-axis","xlabel 'txt' [pos size shift]", mgls_xlabel, mglc_xlabel,1},
-       {"xrange","Set range for x-axis","xrange Dat [add] | x1 x2", mgls_xrange, mglc_xrange,2},
-       {"xtick","Set ticks for x-axis","xtick dx [sx tx] | 'tmpl' | Xdat 'lbl' [add] | v1 'lbl1' ...", mgls_xtick, mglc_xtick,2},
-       {"ylabel","Draw label for y-axis","ylabel 'txt' [pos size shift]", mgls_ylabel, mglc_ylabel,1},
-       {"yrange","Set range for y-axis","yrange Dat [add] | y1 y2", mgls_yrange, mglc_yrange,2},
-       {"ytick","Set ticks for y-axis","ytick dy [sy ty] | 'tmpl' | Ydat 'lbl' [add] | v1 'lbl1' ...", mgls_ytick, mglc_ytick,2},
-       {"zlabel","Draw label for z-axis","zlabel 'txt' [pos size shift]", mgls_zlabel, mglc_zlabel,1},
-       {"zrange","Set range for z-axis","yrange Dat [add] | z1 z2", mgls_zrange, mglc_zrange,2},
-       {"ztick","Set ticks for z-axis","ztick dz [sz tz] | 'tmpl' | Zdat 'lbl' [add] | v1 'lbl1' ...", mgls_ztick, mglc_ztick,2},
+       {"xlabel","Draw label for x-axis","xlabel 'txt' [pos]", mgls_xlabel, mglc_xlabel,12},
+       {"xrange","Set range for x-axis","xrange Dat [add] | x1 x2", mgls_xrange, mglc_xrange,14},
+       {"xtick","Set ticks for x-axis","xtick dx [sx tx] | 'tmpl' | Xdat 'lbl' [add] | v1 'lbl1' ...", mgls_xtick, mglc_xtick,14},
+       {"ylabel","Draw label for y-axis","ylabel 'txt' [pos]", mgls_ylabel, mglc_ylabel,12},
+       {"yrange","Set range for y-axis","yrange Dat [add] | y1 y2", mgls_yrange, mglc_yrange,14},
+       {"ytick","Set ticks for y-axis","ytick dy [sy ty] | 'tmpl' | Ydat 'lbl' [add] | v1 'lbl1' ...", mgls_ytick, mglc_ytick,14},
+       {"zlabel","Draw label for z-axis","zlabel 'txt' [pos]", mgls_zlabel, mglc_zlabel,12},
+       {"zoom","Zoom plot region","zoom x1 x2 y1 y2", mgls_zoom, mglc_zoom,5},
+       {"zoomaxis","Zoom axis range","zoomaxis x1 x2|x1 x2 y1 y2|x1 x2 y1 y2 z1 z2|x1 x2 y1 y2 z1 z2 c1 c2", mgls_zoomaxis, mglc_zoomaxis,14},
+       {"zrange","Set range for z-axis","yrange Dat [add] | z1 z2", mgls_zrange, mglc_zrange,14},
+       {"ztick","Set ticks for z-axis","ztick dz [sz tz] | 'tmpl' | Zdat 'lbl' [add] | v1 'lbl1' ...", mgls_ztick, mglc_ztick,14},
 {"","","",NULL,NULL,0}};
 //-----------------------------------------------------------------------------

diff --git a/src/export.cpp b/src/export.cpp
index 66ce793ff3320ffee7274d34ab0dc9bde4c67c1b..d95e12ae09df03d9dada09b3c73a347eb3a1cad3 100644 (file)
--- a/src/export.cpp
+++ b/src/export.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * export.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -36,30 +36,33 @@ extern "C" {
 int mgl_pnga_save(const char *fname, int w, int h, unsigned char **p)
 {
 #if MGL_HAVE_PNG
-       FILE *fp = fopen(fname, "wb");
+       bool fl = strcmp(fname,"-");
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;
        if (!fp)        return 1;
 
        png_structp png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,0,0,0);
-       if (!png_ptr)   {       fclose(fp);     return 1;       }
-       png_infop info_ptr = png_create_info_struct(png_ptr);
-       if (!info_ptr)
-       {       png_destroy_write_struct(&png_ptr,0);   fclose(fp);     return 1;       }
-
-       png_init_io(png_ptr, fp);
-       png_set_filter(png_ptr, 0, PNG_ALL_FILTERS);
-       png_set_compression_level(png_ptr, Z_BEST_COMPRESSION);
-       png_set_IHDR(png_ptr, info_ptr, w, h, 8,
-                               PNG_COLOR_TYPE_RGB_ALPHA,
-                               PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT,
-                               PNG_FILTER_TYPE_DEFAULT);
-       png_set_rows(png_ptr, info_ptr, p);
-       png_write_png(png_ptr, info_ptr,  PNG_TRANSFORM_IDENTITY, 0);
-       png_write_end(png_ptr, info_ptr);
-
-       png_destroy_write_struct(&png_ptr, &info_ptr);
-       fclose(fp);
+       if (png_ptr)
+       {
+               png_infop info_ptr = png_create_info_struct(png_ptr);
+               if (info_ptr)
+               {
+                       png_init_io(png_ptr, fp);
+                       png_set_filter(png_ptr, 0, PNG_ALL_FILTERS);
+                       png_set_compression_level(png_ptr, Z_BEST_COMPRESSION);
+                       png_set_IHDR(png_ptr, info_ptr, w, h, 8,
+                                               PNG_COLOR_TYPE_RGB_ALPHA,
+                                               PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT,
+                                               PNG_FILTER_TYPE_DEFAULT);
+                       png_set_rows(png_ptr, info_ptr, p);
+                       png_write_png(png_ptr, info_ptr,  PNG_TRANSFORM_IDENTITY, 0);
+                       png_write_end(png_ptr, info_ptr);
+               }
+               png_destroy_write_struct(&png_ptr, &info_ptr);
+       }
+       if(fl)  fclose(fp);
        return 0;
 #else
+       mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";
        return 1;
 #endif
 }
@@ -67,37 +70,41 @@ int mgl_pnga_save(const char *fname, int w, int h, unsigned char **p)
 int mgl_png_save(const char *fname, int w, int h, unsigned char **p)
 {
 #if MGL_HAVE_PNG
-       FILE *fp = fopen(fname, "wb");
+       bool fl = strcmp(fname,"-");
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;
        if (!fp)        return 1;
 
        png_structp png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,0,0,0);
-       if (!png_ptr)   {       fclose(fp);     return 1;       }
-       png_infop info_ptr = png_create_info_struct(png_ptr);
-       if (!info_ptr)
-       {       png_destroy_write_struct(&png_ptr,0);   fclose(fp);     return 1;       }
-
-       png_init_io(png_ptr, fp);
-       png_set_filter(png_ptr, 0, PNG_ALL_FILTERS);
-       png_set_compression_level(png_ptr, Z_BEST_COMPRESSION);
-       png_set_IHDR(png_ptr, info_ptr, w, h, 8,
-                               PNG_COLOR_TYPE_RGB,
-                               PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT,
-                               PNG_FILTER_TYPE_DEFAULT);
-       png_set_rows(png_ptr, info_ptr, p);
-       png_write_png(png_ptr, info_ptr,  PNG_TRANSFORM_IDENTITY, 0);
-       png_write_end(png_ptr, info_ptr);
-
-       png_destroy_write_struct(&png_ptr, &info_ptr);
-       fclose(fp);
+       if (png_ptr)
+       {
+               png_infop info_ptr = png_create_info_struct(png_ptr);
+               if (info_ptr)
+               {
+                       png_init_io(png_ptr, fp);
+                       png_set_filter(png_ptr, 0, PNG_ALL_FILTERS);
+                       png_set_compression_level(png_ptr, Z_BEST_COMPRESSION);
+                       png_set_IHDR(png_ptr, info_ptr, w, h, 8,
+                                               PNG_COLOR_TYPE_RGB,
+                                               PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_DEFAULT,
+                                               PNG_FILTER_TYPE_DEFAULT);
+                       png_set_rows(png_ptr, info_ptr, p);
+                       png_write_png(png_ptr, info_ptr,  PNG_TRANSFORM_IDENTITY, 0);
+                       png_write_end(png_ptr, info_ptr);
+               }
+               png_destroy_write_struct(&png_ptr, &info_ptr);
+       }
+       if(fl)  fclose(fp);
        return 0;
 #else
+       mglGlobalMess += "PNG support was disabled. Please, enable it and rebuild MathGL.\n";
        return 1;
 #endif
 }
 //-----------------------------------------------------------------------------
 int mgl_bmp_save(const char *fname, int w, int h, unsigned char **p)
 {
-       FILE *fp = fopen(fname,"wb");
+       bool fl = strcmp(fname,"-");
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;
        if (!fp)        return 1;
 
        char z[4] = {0,0,0,0};
@@ -122,13 +129,14 @@ int mgl_bmp_save(const char *fname, int w, int h, unsigned char **p)
                fwrite(q+1,1,1,fp);
                fwrite(q+0,1,1,fp);
        }
-       fclose(fp);
+       if(fl)  fclose(fp);
        return 0;
 }
 //-----------------------------------------------------------------------------
 int mgl_tga_save(const char *fname, int w, int h, unsigned char **p)
 {
-       FILE *fp = fopen(fname,"wb");
+       bool fl = strcmp(fname,"-");
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;
        if (!fp)        return 1;
        // header
        char head[14]={0,0,2, 0,0,0,0,0, 0,0,0,0, 32,0};
@@ -146,7 +154,7 @@ int mgl_tga_save(const char *fname, int w, int h, unsigned char **p)
                fwrite(q+0,1,1,fp);
                fwrite(q+3,1,1,fp);
        }
-       fclose(fp);
+       if(fl)  fclose(fp);
        return 0;
 }
 //-----------------------------------------------------------------------------
@@ -155,12 +163,14 @@ int mgl_jpeg_save(const char *fname, int w, int h, unsigned char **p)
 #if MGL_HAVE_JPEG
        struct jpeg_compress_struct cinfo;
        struct jpeg_error_mgr jerr;
-       FILE * outfile;
+
+       bool fl = strcmp(fname,"-");
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;
+       if (!fp)        return 1;
 
        cinfo.err = jpeg_std_error(&jerr);
        jpeg_create_compress(&cinfo);
-       if((outfile = fopen(fname, "wb")) == 0) return 1;
-       jpeg_stdio_dest(&cinfo, outfile);
+       jpeg_stdio_dest(&cinfo, fp);
        cinfo.image_width = w;
        cinfo.image_height = h;
        cinfo.input_components = 3;
@@ -170,9 +180,10 @@ int mgl_jpeg_save(const char *fname, int w, int h, unsigned char **p)
        jpeg_write_scanlines(&cinfo, p, h);
        jpeg_finish_compress(&cinfo);
        jpeg_destroy_compress(&cinfo);
-       fclose(outfile);
+       if(fl)  fclose(fp);
        return 0;
 #else
+       mglGlobalMess += "JPEG support was disabled. Please, enable it and rebuild MathGL.\n";
        return 1;
 #endif
 }
@@ -194,7 +205,9 @@ int mgl_bps_save(const char *fname, int w, int h, unsigned char **p)
        register long i,j;
        bool gz = fname[strlen(fname)-1]=='z';
 
-       void *fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
+       void *fp;
+       if(!strcmp(fname,"-"))  fp = stdout;            // allow to write in stdout
+       else            fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
        mgl_printf(fp, gz, "%%!PS-Adobe-3.0 EPSF-3.0\n%%%%BoundingBox: 0 0 %d %d\n",w,h);
        mgl_printf(fp, gz, "%%%%Created by MathGL library\n%%%%Title: %s\n", fname);
        mgl_printf(fp, gz, "%%%%CreationDate: %s\n",ctime(&now));
@@ -206,7 +219,7 @@ int mgl_bps_save(const char *fname, int w, int h, unsigned char **p)
                mgl_printf(fp, gz, "%02x%02x%02x",p[j][3*i],p[j][3*i+1],p[j][3*i+2]);
        }
        mgl_printf(fp, gz, "\n\nshowpage\n%%%%EOF\n");
-       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);
+       if(strcmp(fname,"-"))   {       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);     }
        return 0;
 }
 //-----------------------------------------------------------------------------
@@ -245,6 +258,7 @@ int mgl_gif_save(const char *fname, int w, int h, unsigned char **l)
        EGifCloseFile(fg);
        delete []line;  return 0;
 #else
+       mglGlobalMess += "GIF support was disabled. Please, enable it and rebuild MathGL.\n";
        return 1;
 #endif
 }
@@ -288,6 +302,8 @@ void mglCanvas::StartGIF(const char *fname, int ms)
        EGifPutExtensionFirst(gif,0xff,11,ext1);
        EGifPutExtensionLast(gif,0xff,3,ext3);
        EGifPutExtension(gif,0xf9,4,ext2);
+#else
+       mglGlobalMess += "GIF support was disabled. Please, enable it and rebuild MathGL.\n";
 #endif
 }
 //-----------------------------------------------------------------------------
@@ -295,6 +311,8 @@ void mglCanvas::CloseGIF()
 {
 #if MGL_HAVE_GIF
        if(gif) EGifCloseFile(gif);
+#else
+       mglGlobalMess += "GIF support was disabled. Please, enable it and rebuild MathGL.\n";
 #endif
        gif = 0;
 }
@@ -307,6 +325,8 @@ int mglCanvas::NewFrame()
 //-----------------------------------------------------------------------------
 void mglCanvas::EndFrame()
 {
+       Finish();
+       if(get(MGL_VECT_FRAME)) PushDrwDat();
 #if MGL_HAVE_GIF
        long width, height, n;
        unsigned char *f=0, **l=0;
@@ -329,9 +349,20 @@ void mglCanvas::EndFrame()
        delete []line;  free(l);
        if(f)   free(f);
 #else
-       if(get(MGL_USEDRWDAT))  PushDrwDat();
-       Finish();
+       mglGlobalMess += "GIF support was disabled. Please, enable it and rebuild MathGL.\n";
+#endif
+}
+//-----------------------------------------------------------------------------
+void mglCanvas::DelFrame(long i)
+{
+#if MGL_HAVE_PTHREAD
+       pthread_mutex_lock(&mutexDrw);
+       if(get(MGL_VECT_FRAME)) DrwDat.erase(DrwDat.begin()+i);
+       pthread_mutex_unlock(&mutexDrw);
+#else
+       if(get(MGL_VECT_FRAME)) DrwDat.erase(DrwDat.begin()+i);
 #endif
+       CurFrameId--;
 }
 //-----------------------------------------------------------------------------
 #undef _GR_
@@ -475,6 +506,7 @@ void mgl_write_frame(HMGL gr, const char *fname,const char *descr)
        if(!strcmp(fname+len-4,".jpg")) mgl_write_jpg(gr,fname,descr);
        if(!strcmp(fname+len-5,".jpeg"))mgl_write_jpg(gr,fname,descr);
        if(!strcmp(fname+len-4,".prc")) mgl_write_prc(gr,fname,descr,1);
+       if(!strcmp(fname+len-4,".pdf")) mgl_write_prc(gr,fname,descr,1);
        if(!strcmp(fname+len-4,".png")) mgl_write_png(gr,fname,descr);
        if(!strcmp(fname+len-4,".eps")) mgl_write_eps(gr,fname,descr);
        if(!strcmp(fname+len-4,".svg")) mgl_write_svg(gr,fname,descr);
@@ -482,6 +514,13 @@ void mgl_write_frame(HMGL gr, const char *fname,const char *descr)
        if(!strcmp(fname+len-4,".bmp")) mgl_write_bmp(gr,fname,descr);
        if(!strcmp(fname+len-4,".tga")) mgl_write_tga(gr,fname,descr);
        if(!strcmp(fname+len-5,".mgld"))mgl_export_mgld(gr,fname,descr);
+       if(!strcmp(fname+len-4,".json")) mgl_write_json(gr,fname,descr);
+       if(!strcmp(fname+len-4,".obj")) mgl_write_obj(gr,fname,descr,1);
+       if(!strcmp(fname+len-4,".tex")) mgl_write_tex(gr,fname,descr);
+       if(!strcmp(fname+len-4,".xyz")) mgl_write_xyz(gr,fname,descr);
+       if(!strcmp(fname+len-4,".stl")) mgl_write_stl(gr,fname,descr);
+       if(!strcmp(fname+len-4,".off")) mgl_write_off(gr,fname,descr,0);
+//     if(!strcmp(fname+len-4,".x3d")) mgl_write_x3d(gr,fname,descr,1);
 }
 void mgl_write_frame_(uintptr_t *gr, const char *fname,const char *descr,int l,int n)
 {      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;

diff --git a/src/export_2d.cpp b/src/export_2d.cpp
index a92db4a1a4409edc3a7395013e759124d501189e..efe51da9bb92650cf54d456d48d565b45fbfa3df 100644 (file)
--- a/src/export_2d.cpp
+++ b/src/export_2d.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * export_2d.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -19,33 +19,37 @@
  ***************************************************************************/
 #include "mgl2/canvas.h"
 #include "mgl2/canvas_cf.h"
+#include "mgl2/font.h"
 #include <time.h>
 #include <algorithm>
 #include <vector>
+#include <string>
+#include <sys/stat.h>
 #undef _GR_
 #define _GR_   ((mglCanvas *)(*gr))
 #define _Gr_   ((mglCanvas *)(gr))
 void mgl_printf(void *fp, bool gz, const char *str, ...);
 //-----------------------------------------------------------------------------
-char *mgl_get_dash(unsigned short d, mreal w)
+const char *mgl_get_dash(unsigned short d, mreal w)
 {
-       static char s[64],b[4];
-       if(d==0xffff)   {       strcpy(s,"");   return s;       }
+       static char b[32];
+       static std::string s;
+       if(d==0xffff)   return "";
        int f=0, p=d&1, n=p?0:1, i, j;
-       strcpy(s, p ? "" : "0");
+       s = p ? "" : "0";
        for(i=0;i<16;i++)
        {
                j = i;//15-i;
                if(((d>>j)&1) == p)     f++;
                else
                {
-                       sprintf(b," %g",f*w);   strcat(s,b);
+                       sprintf(b," %g",f*w);   s += b;
                        p = (d>>j)&1;   f = 1;  n++;
                }
        }
-       sprintf(b," %g",f*w);   strcat(s,b);
-       strcat(s,n%2 ? "" : " 0");
-       return s;
+       sprintf(b," %g",f*w);   s += b;
+       s += n%2 ? "" : " 0";
+       return s.c_str();
 }
 //-----------------------------------------------------------------------------
 bool mgl_is_same(HMGL gr, const mglPrim &pr,mreal wp,mglColor cp,int st)
@@ -60,7 +64,8 @@ bool mgl_is_same(HMGL gr, const mglPrim &pr,mreal wp,mglColor cp,int st)
 //-----------------------------------------------------------------------------
 void put_line(HMGL gr, void *fp, bool gz, long i, mreal wp, mglColor cp,int st, const char *ifmt, const char *nfmt, bool neg, mreal fc)
 {
-       register long n1=gr->GetPrm(i).n1, n2=gr->GetPrm(i).n2;
+       long n1=gr->GetPrm(i).n1, n2=gr->GetPrm(i).n2;
+       if(n1>n2)       {       n1=gr->GetPrm(i).n2;    n2=gr->GetPrm(i).n1;    }
        if(n1<0 || n2<0)        return;
        const mglPnt &pp1 = gr->GetPnt(n1), &pp2 = gr->GetPnt(n2);
        mreal x0=pp1.x, y0=pp1.y;
@@ -116,7 +121,7 @@ void put_line(HMGL gr, void *fp, bool gz, long i, mreal wp, mglColor cp,int st,
                        }
                }
        }
-       for(j=0;j<ids.size();j++)
+       for(size_t j=0;j<ids.size();j++)
        {
                const mglPnt &p = gr->GetPnt(ids[j]);
                x0 = p.x;       y0 = p.y;
@@ -145,8 +150,9 @@ void put_desc(HMGL gr, void *fp, bool gz, const char *pre, const char *ln1, cons
                g[n]=q.n4;      s[n]=q.n3&7;    n++;    // add to list of described
                // "%c%c%c_%04x {"
                mgl_printf(fp, gz, pre, q.n3&1?'b':'n', q.n3&2?'i':'n', q.n4);
-               int nl=gr->GetFont()->GetNl(q.n3&3,q.n4);
-               const short *ln=gr->GetFont()->GetLn(q.n3&3,q.n4);
+               const mglGlyph &g = gr->GetGlf(q.n4);
+               int nl=g.nl;
+               const short *ln=g.line;
                long ik,ii;
                bool np=true;
                if(ln && nl>0)  for(ik=0;ik<nl;ik++)
@@ -166,30 +172,47 @@ void put_desc(HMGL gr, void *fp, bool gz, const char *pre, const char *ln1, cons
 mglColor mglCanvas::GetColor(const mglPrim &p)
 {
        unsigned char res[4],buf[4];
-       col2int(Pnt[p.type==1?p.n2:p.n1],res);
+       mglPnt pp=Pnt[p.type==1?p.n2:p.n1];
+       if(p.type==4)   pp.u=pp.v=NAN;
+       col2int(pp,res,p.id);
        if(p.type==2 || p.type==3)
        {
-               col2int(Pnt[p.n2],buf);                 res[0]=(1L*res[0]+buf[0])/2;
+               col2int(Pnt[p.n2],buf,p.id);    res[0]=(1L*res[0]+buf[0])/2;
                res[1]=(1L*res[1]+buf[1])/2;    res[2]=(1L*res[2]+buf[2])/2;
-               col2int(Pnt[p.n3],buf);                 res[0]=(2L*res[0]+buf[0])/3;
+               col2int(Pnt[p.n3],buf,p.id);    res[0]=(2L*res[0]+buf[0])/3;
                res[1]=(2L*res[1]+buf[1])/3;    res[2]=(2L*res[2]+buf[2])/3;
        }
        if(p.type==3)
        {
-               col2int(Pnt[p.n4],buf);                 res[0]=(3L*res[0]+buf[0])/4;
+               col2int(Pnt[p.n4],buf,p.id);    res[0]=(3L*res[0]+buf[0])/4;
                res[1]=(3L*res[1]+buf[1])/4;    res[2]=(3L*res[2]+buf[2])/4;
        }
+       if(p.type==6)
+       {       res[0]=p.n2&0xff;       res[1]=(p.n2/256)&0xff; res[2]=(p.n2/65536)&0xff;       }
+       
+       // add fog into resulting color
+       float zf = FogDist*(p.z/Depth-0.5-FogDz);
+       if(zf<0)        // add fog
+       {
+               int d = int(255.f-255.f*exp(5.f*zf));
+               unsigned char cb[4] = {BDef[0], BDef[1], BDef[2], (unsigned char)d};
+               if(d<255)       combine(res,cb);
+       }
+
        return mglColor(res[0]/255.,res[1]/255.,res[2]/255.,res[3]/255.);
 }
 //-----------------------------------------------------------------------------
 void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
 {
+       if(!fname || *fname==0) return;
        if(gr->GetPrmNum()<1)   return;
        _Gr_->clr(MGL_FINISHED);        _Gr_->Finish(false);
        time_t now;     time(&now);
 
        bool gz = fname[strlen(fname)-1]=='z';
-       void *fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
+       void *fp;
+       if(!strcmp(fname,"-"))  fp = stdout;            // allow to write in stdout
+       else            fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
        if(!fp)         {       gr->SetWarn(mglWarnOpen,fname); return; }
        mgl_printf(fp, gz, "%%!PS-Adobe-3.0 EPSF-3.0\n%%%%BoundingBox: 0 0 %d %d\n", _Gr_->GetWidth(), _Gr_->GetHeight());
        mgl_printf(fp, gz, "%%%%Created by MathGL library\n%%%%Title: %s\n",descr ? descr : fname);
@@ -198,9 +221,9 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
        mgl_printf(fp, gz, "/np {newpath} def\n/cp {closepath} def\n");
        mgl_printf(fp, gz, "/ll {lineto} def\n/mt {moveto} def\n");
        mgl_printf(fp, gz, "/rl {rlineto} def\n/rm {rmoveto} def\n/dr {stroke} def\n");
-       mgl_printf(fp, gz, "/ss {%g} def\n",0.4*gr->mark_size());
-       mgl_printf(fp, gz, "/s2 {%g} def\n",0.8*gr->mark_size());
-       mgl_printf(fp, gz, "/sm {-%g} def\n",0.4*gr->mark_size());
+       mgl_printf(fp, gz, "/ss {%g} def\n",0.35*gr->mark_size());
+       mgl_printf(fp, gz, "/s2 {%g} def\n",0.7*gr->mark_size());
+       mgl_printf(fp, gz, "/sm {-%g} def\n",0.35*gr->mark_size());
        mgl_printf(fp, gz, "/m_c {ss 0.3 mul 0 360 arc} def\n");
        mgl_printf(fp, gz, "/d0 {[] 0 setdash} def\n/sd {setdash} def\n");
 
@@ -253,6 +276,7 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
        put_desc(gr,fp,gz,"/%c%c_%04x { np\n", "\t%d %d mt ", "%d %d ll ", "cp\n", "} def\n");
        // write primitives
        mreal wp=-1;
+       float qs_old=gr->mark_size()/gr->FontFactor();
        mglColor cp;
        int st=0;
        char str[256]="";
@@ -267,13 +291,14 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
                if(q.type==0)   // mark
                {
                        mreal x0 = p1.x,y0 = p1.y;
-                       sprintf(str,"1 lw %.2g %.2g %.2g rgb ", cp.r,cp.g,cp.b);
+                       sprintf(str,"%.2g lw %.2g %.2g %.2g rgb ", 50*q.s*q.w>1?50*q.s*q.w:1, cp.r,cp.g,cp.b);
                        wp=1;
-                       if(q.s!=gr->mark_size()/gr->FontFactor())
+                       if(q.s!=qs_old)
                        {
-                               mgl_printf(fp, gz, "/ss {%g} def\n",q.s*0.4*gr->FontFactor());
-                               mgl_printf(fp, gz, "/s2 {%g} def\n",q.s*0.8*gr->FontFactor());
-                               mgl_printf(fp, gz, "/sm {-%g} def\n",q.s*0.4*gr->FontFactor());
+                               mgl_printf(fp, gz, "/ss {%g} def\n",q.s);
+                               mgl_printf(fp, gz, "/s2 {%g} def\n",q.s*2);
+                               mgl_printf(fp, gz, "/sm {-%g} def\n",q.s);
+                               qs_old = q.s;
                        }
                        switch(q.n4)
                        {
@@ -300,23 +325,19 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
                                case 'C':       mgl_printf(fp, gz, "%g %g m_o %g %g m_c %sdr\n",x0,y0,x0,y0,str);       break;
                                default:        mgl_printf(fp, gz, "%g %g m_c %sfill\n",x0,y0,str);
                        }
-                       if(q.s!=gr->mark_size()/gr->FontFactor())
-                       {
-                               mgl_printf(fp, gz, "/ss {%g} def\n",0.4*gr->mark_size());
-                               mgl_printf(fp, gz, "/s2 {%g} def\n",0.8*gr->mark_size());
-                               mgl_printf(fp, gz, "/sm {-%g} def\n",0.4*gr->mark_size());
-                       }
                }
                else if(q.type==3)      // quad
                {
-                       const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3), p4=gr->GetPnt(q.n4);
-                       mgl_printf(fp, gz, "np %g %g mt %g %g ll %g %g ll %g %g ll cp %sfill\n",
+                       const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3), &p4=gr->GetPnt(q.n4);
+                       if(p1.a>mgl_min_a || p2.a>mgl_min_a || p3.a>mgl_min_a || p4.a>mgl_min_a)
+                               mgl_printf(fp, gz, "np %g %g mt %g %g ll %g %g ll %g %g ll cp %sfill\n",
                                           p1.x, p1.y, p2.x, p2.y, p4.x, p4.y, p3.x, p3.y, str);
                }
                else if(q.type==2)      // trig
                {
-                       const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3);
-                       mgl_printf(fp, gz, "np %g %g mt %g %g ll %g %g ll cp %sfill\n",
+                       const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3);
+                       if(p1.a>mgl_min_a || p2.a>mgl_min_a || p3.a>mgl_min_a)
+                               mgl_printf(fp, gz, "np %g %g mt %g %g ll %g %g ll cp %sfill\n",
                                           p1.x, p1.y, p2.x, p2.y, p3.x, p3.y, str);
                }
                else if(q.type==1)      // line
@@ -328,9 +349,9 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
                        if(sd && sd[0]) mgl_printf(fp, gz, "%s [%s] %g sd dr\n",str,sd,q.w*q.s);
                        else                    mgl_printf(fp, gz, "%s d0 dr\n",str);
                }
-               else if(q.type==4)      // glyph
+               else if(q.type==4 && !mgl_isnan(q.w))   // glyph
                {
-                       mreal   ss = q.s/2, xx = p1.u, yy = p1.v, zz = p1.w;
+                       mreal   ss = q.s/2, xx = p1.u, yy = p1.v, zz = q.p;
                        mgl_printf(fp, gz, "gsave\t%g %g translate %g %g scale %g rotate %s\n",
                                           p1.x, p1.y, ss, ss, -q.w, str);
                        if(q.n3&8)      // this is "line"
@@ -353,7 +374,7 @@ void mgl_write_eps(HMGL gr, const char *fname,const char *descr)
                if(q.type==-1)  q.type = 1;
        }
        mgl_printf(fp, gz, "\nshowpage\n%%%%EOF\n");
-       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);
+       if(strcmp(fname,"-"))   {       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);     }
 }
 void mgl_write_eps_(uintptr_t *gr, const char *fname,const char *descr,int l,int n)
 {      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;
@@ -362,13 +383,16 @@ void mgl_write_eps_(uintptr_t *gr, const char *fname,const char *descr,int l,int
 //-----------------------------------------------------------------------------
 void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
 {
+       if(!fname || *fname==0) return;
        if(gr->GetPrmNum()<1)   return;
        _Gr_->clr(MGL_FINISHED);        _Gr_->Finish(false);
        time_t now;     time(&now);
 
        bool gz = fname[strlen(fname)-1]=='z';
        long hh = _Gr_->GetHeight();
-       void *fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
+       void *fp;
+       if(!strcmp(fname,"-"))  fp = stdout;            // allow to write in stdout
+       else            fp = gz ? (void*)gzopen(fname,"wt") : (void*)fopen(fname,"wt");
        if(!fp)         {       gr->SetWarn(mglWarnOpen,fname); return; }
        mgl_printf(fp, gz, "<?xml version=\"1.0\" standalone=\"no\"?>\n");
        mgl_printf(fp, gz, "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 20000303 Stylable//EN\" \"http://www.w3.org/TR/2000/03/WD-SVG-20000303/DTD/svg-20000303-stylable.dtd\">\n");
@@ -396,13 +420,13 @@ void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
                const mglPnt p1=gr->GetPnt(q.n1);
                if(q.type==0)
                {
-                       mreal x=p1.x,y=hh-p1.y,s=0.4*gr->FontFactor()*q.s;
+                       mreal x=p1.x,y=hh-p1.y,s=q.s;
                        if(!strchr("xsSoO",q.n4))       s *= 1.1;
                        wp = 1;
                        if(strchr("SDVTLR",q.n4))
                                mgl_printf(fp, gz, "<g fill=\"#%02x%02x%02x\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b));
                        else
-                               mgl_printf(fp, gz, "<g stroke=\"#%02x%02x%02x\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b));
+                               mgl_printf(fp, gz, "<g stroke=\"#%02x%02x%02x\"  stroke-width=\"%g\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b), 50*q.s*q.w>1?50*q.s*q.w:1);
                        switch(q.n4)
                        {
                        case 'P':
@@ -421,11 +445,11 @@ void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
                        case 'd':
                        case 'D':
                                mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %g L %g %gZ\"/>\n", x-s,y,x,y-s,x+s,y,x,y+s);        break;
-                       case '^':
-                       case 'T':
-                               mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %gZ\"/>\n", x-s,y-s/2,x+s,y-s/2,x,y+s);      break;
                        case 'v':
                        case 'V':
+                               mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %gZ\"/>\n", x-s,y-s/2,x+s,y-s/2,x,y+s);      break;
+                       case '^':
+                       case 'T':
                                mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %gZ\"/>\n", x-s,y+s/2,x+s,y+s/2,x,y-s);      break;
                        case '<':
                        case 'L':
@@ -452,21 +476,8 @@ void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
                        }
                        mgl_printf(fp, gz, "</g>\n");
                }
-               else if(q.type==2 && cp.a>0)
-               {
-                       const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3);
-                       mgl_printf(fp, gz, "<g fill=\"#%02x%02x%02x\" opacity=\"%g\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b),cp.a);
-                       mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %g Z\"/> </g>\n", p1.x, hh-p1.y, p2.x, hh-p2.y, p3.x, hh-p3.y);
-               }
-               else if(q.type==3 && cp.a>0)
-               {
-                       const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3), p4=gr->GetPnt(q.n4);
-                       mgl_printf(fp, gz, "<g fill=\"#%02x%02x%02x\" opacity=\"%g\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b),cp.a);
-                       mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %g L %g %g Z\"/> </g>\n", p1.x, hh-p1.y, p2.x, hh-p2.y, p4.x, hh-p4.y, p3.x, hh-p3.y);
-               }
                else if(q.type==1)
                {
-                       //                      const char *dash[]={"", "8 8","4 4","1 3","7 4 1 4","3 2 1 2"};
                        mgl_printf(fp,gz,"<g stroke=\"#%02x%02x%02x\"",int(255*cp.r),int(255*cp.g),int(255*cp.b));
                        if(q.n3)
                        {
@@ -478,9 +489,21 @@ void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
                        put_line(gr,fp,gz,i,wp,cp,st, "><path d=\" M %g %g", " L %g %g", true, 1);
                        mgl_printf(fp, gz, "\"/> </g>\n");
                }
-               else if(q.type==4)
+               else if(q.type==2 && cp.a>mgl_min_a)
+               {
+                       const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3);
+                       mgl_printf(fp, gz, "<g fill=\"#%02x%02x%02x\" opacity=\"%g\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b),cp.a);
+                       mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %g Z\"/> </g>\n", p1.x, hh-p1.y, p2.x, hh-p2.y, p3.x, hh-p3.y);
+               }
+               else if(q.type==3 && cp.a>mgl_min_a)
+               {
+                       const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3), &p4=gr->GetPnt(q.n4);
+                       mgl_printf(fp, gz, "<g fill=\"#%02x%02x%02x\" opacity=\"%g\">\n", int(255*cp.r),int(255*cp.g),int(255*cp.b),cp.a);
+                       mgl_printf(fp, gz, "<path d=\"M %g %g L %g %g L %g %g L %g %g Z\"/> </g>\n", p1.x, hh-p1.y, p2.x, hh-p2.y, p4.x, hh-p4.y, p3.x, hh-p3.y);
+               }
+               else if(q.type==4 && !mgl_isnan(q.w))
                {
-                       mreal ss = q.s/2, xx = p1.u, yy = p1.v, zz = p1.w;
+                       mreal ss = q.s/2, xx = p1.u, yy = p1.v, zz = q.p;
                        if(q.n3&8)      // this is "line"
                        {
                                mgl_printf(fp, gz, "<g transform=\"translate(%g,%g) scale(%.3g,%.3g) rotate(%g)\"", p1.x, hh-p1.y, ss, -ss, -q.w);
@@ -507,7 +530,7 @@ void mgl_write_svg(HMGL gr, const char *fname,const char *descr)
        for(i=0;i<gr->GetPrmNum();i++)
        {       mglPrim &q=gr->GetPrm(i);       if(q.type==-1)  q.type = 1;     }
        mgl_printf(fp, gz, "</g></svg>");
-       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);
+       if(strcmp(fname,"-"))   {       if(gz)  gzclose((gzFile)fp);    else    fclose((FILE *)fp);     }
 }
 void mgl_write_svg_(uintptr_t *gr, const char *fname,const char *descr,int l,int n)
 {      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;
@@ -594,158 +617,6 @@ mglSVGName mgl_names[]={{"AliceBlue",.94,.972,1},
 {"magenta", 1,0,1},
 {"yellow", 1,1,0},
 {"",-1,-1,-1}};
-/*mglSVGName mgl_names[]={{"AliceBlue",.94,.972,1},
- * {"AntiqueWhite",.98,.92,.844},
- * {"Aqua",0,1,1},
- * {"Aquamarine",.498,1,.83},
- * {"Azure",.94,1,1},
- * {"Beige",.96,.96,.864},
- * {"Bisque",1,.894,.77},
- * {"Black",0,0,0},
- * {"BlanchedAlmond",1,.92,.804},
- * {"Blue",0,0,1},
- * {"BlueViolet",.54,.17,.888},
- * {"Brown,.648",.165,.165},
- * {"BurlyWood",.87,.72,.53},
- * {"CadetBlue",.372,.62,.628},
- * {"Chartreuse",.498,1,0},
- * {"Chocolate",.824,.41,.116},
- * {"Coral",1,.498,.312},
- * {"CornflowerBlue",.392,.585,.93},
- * {"Cornsilk",1,.972,.864},
- * {"Crimson",.864,.08,.235},
- * {"Cyan",0,1,1},
- * {"DarkBlue",0,0,.545},
- * {"DarkCyan",0,.545,.545},
- * {"DarkGoldenrod",.72,.525,.044},
- * {"DarkGray",.664,.664,.664},
- * {"DarkGreen",0,.392,0},
- * {"DarkGrey",.664,.664,.664},
- * {"DarkKhaki",.74,.716,.42},
- * {"DarkMagenta",.545,0,.545},
- * {"DarkOliveGreen",.332,.42,.185},
- * {"DarkOrange",1,.55,0},
- * {"DarkOrchid",.6,.196,.8},
- * {"DarkRed",.545,0,0},
- * {"DarkSalmon",.912,.59,.48},
- * {"DarkSeaGreen",.56,.736,.56},
- * {"DarkSlateBlue",.284,.24,.545},
- * {"DarkSlateGray",.185,.31,.31},
- * {"DarkSlateGrey",.185,.31,.31},
- * {"DarkTurquoise",0,.808,.82},
- * {"DarkViolet",.58,0,.828},
- * {"DeepPink",1,.08,.576},
- * {"DeepSkyBlue",0,.75,1},
- * {"DimGray",.41,.41,.41},
- * {"DimGrey",.41,.41,.41},
- * {"DodgerBlue",.116,.565,1},
- * {"FireBrick",.698,.132,.132},
- * {"FloralWhite",1,.98,.94},
- * {"ForestGreen",.132,.545,.132},
- * {"Fuchsia",1,0,1},
- * {"Gainsboro",.864,.864,.864},
- * {"GhostWhite",.972,.972,1},
- * {"Gold",1,.844,0},
- * {"Goldenrod",.855,.648,.125},
- * {"Gray",.5,.5,.5},
- * {"Green",0,.5,0},
- * {"GreenYellow",.68,1,.185},
- * {"Grey",.5,.5,.5},
- * {"Honeydew",.94,1,.94},
- * {"HotPink",1,.41,.705},
- * {"IndianRed",.804,.36,.36},
- * {"Indigo",.294,0,.51},
- * {"Ivory",1,1,.94},
- * {"Khaki",.94,.9,.55},
- * {"Lavender",.9,.9,.98},
- * {"LavenderBlush",1,.94,.96},
- * {"LawnGreen",.488,.99,0},
- * {"LemonChiffon",1,.98,.804},
- * {"LightBlue",.68,.848,.9},
- * {"LightCoral",.94,.5,.5},
- * {"LightCyan",.88,1,1},
- * {"LightGoldenrod",.933,.867,.51},
- * {"LightGoldenrodYellow",.98,.98,.824},
- * {"LightGray",.828,.828,.828},
- * {"LightGreen",.565,.932,.565},
- * {"LightGrey",.828,.828,.828},
- * {"LightPink",1,.712,.756},
- * {"LightSalmon",1,.628,.48},
- * {"LightSeaGreen",.125,.698,.668},
- * {"LightSkyBlue",.53,.808,.98},
- * {"LightSlateBlue",.518,.44,1},
- * {"LightSlateGray",.468,.532,.6},
- * {"LightSlateGrey",.468,.532,.6},
- * {"LightSteelBlue",.69,.77,.87},
- * {"LightYellow",1,1,.88},
- * {"Lime",0,1,0},
- * {"LimeGreen",.196,.804,.196},
- * {"Linen",.98,.94,.9},
- * {"Magenta",1,0,1},
- * {"Maroon",.5,0,0},
- * {"MediumAquamarine",.4,.804,.668},
- * {"MediumBlue",0,0,.804},
- * {"MediumOrchid",.73,.332,.828},
- * {"MediumPurple",.576,.44,.86},
- * {"MediumSeaGreen",.235,.7,.444},
- * {"MediumSlateBlue",.484,.408,.932},
- * {"MediumSpringGreen",0,.98,.604},
- * {"MediumTurquoise",.284,.82,.8},
- * {"MediumVioletRed",.78,.084,.52},
- * {"MidnightBlue",.098,.098,.44},
- * {"MintCream",.96,1,.98},
- * {"MistyRose",1,.894,.884},
- * {"Moccasin",1,.894,.71},
- * {"NavajoWhite",1,.87,.68},
- * {"Navy",0,0,.5},
- * {"NavyBlue",0,0,.5},
- * {"OldLace",.992,.96,.9},
- * {"Olive",.5,.5,0},
- * {"OliveDrab",.42,.556,.136},
- * {"Orange",1,.648,0},
- * {"OrangeRed",1,.27,0},
- * {"Orchid",.855,.44,.84},
- * {"PaleGoldenrod",.932,.91,.668},
- * {"PaleGreen",.596,.985,.596},
- * {"PaleTurquoise",.688,.932,.932},
- * {"PaleVioletRed",.86,.44,.576},
- * {"PapayaWhip",1,.936,.835},
- * {"PeachPuff",1,.855,.725},
- * {"Peru",.804,.52,.248},
- * {"Pink",1,.752,.796},
- * {"Plum",.868,.628,.868},
- * {"PowderBlue",.69,.88,.9},
- * {"Purple",.5,0,.5},
- * {"Red",1,0,0},
- * {"RosyBrown",.736,.56,.56},
- * {"RoyalBlue",.255,.41,.884},
- * {"SaddleBrown",.545,.27,.075},
- * {"Salmon",.98,.5,.448},
- * {"SandyBrown",.956,.644,.376},
- * {"SeaGreen",.18,.545,.34},
- * {"Seashell",1,.96,.932},
- * {"Sienna",.628,.32,.176},
- * {"Silver",.752,.752,.752},
- * {"SkyBlue",.53,.808,.92},
- * {"SlateBlue",.415,.352,.804},
- * {"SlateGray",.44,.5,.565},
- * {"SlateGrey",.44,.5,.565},
- * {"Snow",1,.98,.98},
- * {"SpringGreen",0,1,.498},
- * {"SteelBlue",.275,.51,.705},
- * {"Tan",.824,.705,.55},
- * {"Teal",0,.5,.5},
- * {"Thistle",.848,.75,.848},
- * {"Tomato",1,.39,.28},
- * {"Turquoise",.25,.88,.815},
- * {"Violet",.932,.51,.932},
- * {"VioletRed",.816,.125,.565},
- * {"Wheat",.96,.87,.7},
- * {"White",1,1,1},
- * {"WhiteSmoke",.96,.96,.96},
- * {"Yellow",1,1,0},
- * {"YellowGreen",.604,.804,.196},
- * {"",-1,-1,-1}};*/
 //-----------------------------------------------------------------------------
 const char *mglColorName(mglColor c)   // return closest SVG color
 {
@@ -764,67 +635,20 @@ void mgl_write_tex(HMGL gr, const char *fname,const char *descr)
 {
        if(gr->GetPrmNum()<1)   return;
        _Gr_->clr(MGL_FINISHED);        _Gr_->Finish(false);
-       FILE *fp=fopen("mglcolors.tex","wt");
-       register int ii,jj,kk;  // save colors which can be required at output
-       for(ii=0;ii<6;ii++)     for(jj=0;jj<6;jj++)     for(kk=0;kk<6;kk++)
-               fprintf(fp,"\\definecolor{mgl_%d}{RGB}{%d,%d,%d}\n",ii+6*(jj+6*kk),51*ii,51*jj,51*kk);
-       fclose(fp);
-       fp = fopen(fname,"wt");
+
+       FILE *fp = fopen(fname,"wt");
        if(!fp)         {       gr->SetWarn(mglWarnOpen,fname); return; }
-       fprintf(fp, "%% Created by MathGL library\n%% Title: %s\n",descr?descr:fname);
-       fprintf(fp, "\\input{mglcolors.tex}\n\\begin{tikzpicture}\n");
-       mreal ms=0.4*gr->mark_size()/100;
+       fprintf(fp, "%% Created by MathGL library\n%% Title: %s\n\n",descr?descr:fname);
+       fprintf(fp, "\\begin{tikzpicture}\n");
 
-       // write primitives
+       // write primitives first
        mreal wp=-1;
        register long i;
+       register int ii,jj,kk;
        int st=0;
        mglColor cp;
        char cname[16];
 
-       // add mark definition if present
-       bool m_p=false,m_x=false,m_d=false,m_v=false,m_t=false,
-       m_s=false,m_a=false,m_o=false,m_O=false,m_T=false,
-       m_V=false,m_S=false,m_D=false,m_Y=false,m_l=false,
-       m_L=false,m_r=false,m_R=false,m_X=false,m_P=false;
-       for(i=0;i<gr->GetPrmNum();i++)
-       {
-               const mglPrim q = gr->GetPrm(i);
-               if(q.type>0)    continue;               if(q.n4=='+')   m_p = true;
-               if(q.n4=='x')   m_x = true;             if(q.n4=='s')   m_s = true;
-               if(q.n4=='d')   m_d = true;             if(q.n4=='v')   m_v = true;
-               if(q.n4=='^')   m_t = true;             if(q.n4=='*')   m_a = true;
-               if(q.n4=='O')   m_O = true;             if(q.n4=='o' || q.n4=='C')      m_o = true;
-               if(q.n4=='S')   m_S = true;             if(q.n4=='D')   m_D = true;
-               if(q.n4=='V')   m_V = true;             if(q.n4=='T')   m_T = true;
-               if(q.n4=='<')   m_l = true;             if(q.n4=='L')   m_L = true;
-               if(q.n4=='>')   m_r = true;             if(q.n4=='R')   m_R = true;
-               if(q.n4=='Y')   m_Y = true;
-               if(q.n4=='P')   m_P = true;             if(q.n4=='X')   m_X = true;
-       }
-       if(m_P) {       m_p=true;       m_s=true;       }
-       if(m_X) {       m_x=true;       m_s=true;       }
-       if(m_p) fprintf(fp, "\\providecommand{\\mglp}[3]{\\draw[#3] (#1-%g, #2) -- (#1+%g,#2) (#1,#2-%g) -- (#1,#2+%g);}\n",ms,ms,ms,ms);
-       if(m_x) fprintf(fp, "\\providecommand{\\mglx}[3]{\\draw[#3] (#1-%g, #2-%g) -- (#1+%g,#2+%g) (#1+%g,#2-%g) -- (#1-%g,#2+%g);}\n", ms,ms,ms,ms, ms,ms,ms,ms);
-       if(m_s) fprintf(fp, "\\providecommand{\\mgls}[3]{\\draw[#3] (#1-%g, #2-%g) -- (#1+%g,#2-%g) -- (#1+%g,#2+%g) -- (#1-%g,#2+%g) -- cycle;}\n", ms,ms,ms,ms, ms,ms,ms,ms);
-       if(m_S) fprintf(fp, "\\providecommand{\\mglS}[3]{\\fill[#3] (#1-%g, #2-%g) -- (#1+%g,#2-%g) -- (#1+%g,#2+%g) -- (#1-%g,#2+%g) -- cycle;}\n", ms,ms,ms,ms, ms,ms,ms,ms);
-       if(m_d) fprintf(fp, "\\providecommand{\\mgld}[3]{\\draw[#3] (#1, #2-%g) -- (#1+%g,#2) -- (#1,#2+%g) -- (#1-%g,#2) -- cycle;}\n", ms,ms,ms,ms);
-       if(m_D) fprintf(fp, "\\providecommand{\\mglD}[3]{\\fill[#3] (#1, #2-%g) -- (#1+%g,#2) -- (#1,#2+%g) -- (#1-%g,#2) -- cycle;}\n", ms,ms,ms,ms);
-       if(m_v) fprintf(fp, "\\providecommand{\\mglv}[3]{\\draw[#3] (#1-%g, #2+%g) -- (#1+%g,#2+%g) -- (#1,#2-%g) -- cycle;}\n", ms,ms/2,ms,ms/2, ms);
-       if(m_V) fprintf(fp, "\\providecommand{\\mglV}[3]{\\fill[#3] (#1-%g, #2+%g) -- (#1+%g,#2+%g) -- (#1,#2-%g) -- cycle;}\n", ms,ms/2,ms,ms/2, ms);
-       if(m_t) fprintf(fp, "\\providecommand{\\mglt}[3]{\\draw[#3] (#1-%g, #2-%g) -- (#1+%g,#2-%g) -- (#1,#2+%g) -- cycle;}\n", ms,ms/2,ms,ms/2, ms);
-       if(m_T) fprintf(fp, "\\providecommand{\\mglT}[3]{\\fill[#3] (#1-%g, #2-%g) -- (#1+%g,#2-%g) -- (#1,#2+%g) -- cycle;}\n", ms,ms/2,ms,ms/2, ms);
-       if(m_l) fprintf(fp, "\\providecommand{\\mgll}[3]{\\draw[#3] (#1+%g, #2-%g) -- (#1+%g,#2+%g) -- (#1-%g,#2) -- cycle;}\n", ms/2,ms,ms/2,ms, ms);
-       if(m_L) fprintf(fp, "\\providecommand{\\mglL}[3]{\\fill[#3] (#1+%g, #2-%g) -- (#1+%g,#2+%g) -- (#1-%g,#2) -- cycle;}\n", ms/2,ms,ms/2,ms, ms);
-       if(m_r) fprintf(fp, "\\providecommand{\\mglr}[3]{\\draw[#3] (#1-%g, #2-%g) -- (#1-%g,#2+%g) -- (#1+%g,#2) -- cycle;}\n", ms/2,ms,ms/2,ms, ms);
-       if(m_R) fprintf(fp, "\\providecommand{\\mglR}[3]{\\fill[#3] (#1-%g, #2-%g) -- (#1-%g,#2+%g) -- (#1+%g,#2) -- cycle;}\n", ms/2,ms,ms/2,ms, ms);
-       if(m_Y) fprintf(fp, "\\providecommand{\\mglR}[3]{\\draw[#3] (#1, #2-%g) -- (#1,#2) -- (#1-%g,#2+%g) (#1,#2) -- (#1+%g,#2+%g);}\n", ms,ms,ms,ms, ms);
-       if(m_a) fprintf(fp, "\\providecommand{\\mgla}[3]{\\draw[#3] (#1-%g, #2) -- (#1+%g,#2) (#1-0.6*%g,#2-0.8*%g) -- (#1+0.6*%g,#2+0.8*%g) (#1-0.6*%g,#2+0.8*%g) -- (#1+0.6*%g,#2-0.8*%g);}\n", ms,ms,ms,ms, ms,ms,ms,ms, ms,ms);
-       if(m_o) fprintf(fp, "\\providecommand{\\mglo}[3]{\\draw[#3] (#1, #2) circle (%g);}\n", ms);
-       if(m_O) fprintf(fp, "\\providecommand{\\mglO}[3]{\\fill[#3] (#1, #2) circle (%g);}\n", ms);
-       // dots command is provided in any case
-       fprintf(fp, "\\providecommand{\\mglc}[3]{\\draw[#3] (#1, #2) circle (%g);}\n\n", 0.1*ms);
-
        for(i=0;i<gr->GetPrmNum();i++)
        {
                const mglPrim &q = gr->GetPrm(i);
@@ -837,53 +661,53 @@ void mgl_write_tex(HMGL gr, const char *fname,const char *descr)
                sprintf(cname,"mgl_%d",ii+6*(jj+6*kk));
 //             cname = mglColorName(cp);
                const mglPnt p1=gr->GetPnt(q.n1);
-               mreal x=p1.x/100,y=p1.y/100,s=0.4*gr->FontFactor()*q.s/100;
+               mreal x=p1.x/100,y=p1.y/100,s=q.s/100;
                if(q.type==0)
                {
                        if(!strchr("xsSoO",q.n4))       s *= 1.1;
                        wp = 1;
-                       switch(q.n4)    // TODO up to here !!!!!!!!!!!!!!!!!!!!
+                       switch(q.n4)    // NOTE: no thickness for marks in TeX
                        {
                                case 'P':
-                                       fprintf(fp, "\\mglp{%g}{%g}{%s} \\mgls{%g}{%g}{%s}\n", x,y,cname,x,y,cname);    break;
+                                       fprintf(fp, "\\mglp{%g}{%g}{%s}{%g} \\mgls{%g}{%g}{%s}{%g}\n", x,y,cname,s,x,y,cname,s);        break;
                                case 'X':
-                                       fprintf(fp, "\\mglx{%g}{%g}{%s} \\mgls{%g}{%g}{%s}\n", x,y,cname,x,y,cname);    break;
+                                       fprintf(fp, "\\mglx{%g}{%g}{%s}{%g} \\mgls{%g}{%g}{%s}{%g}\n", x,y,cname,s,x,y,cname,s);        break;
                                case 'C':
-                                       fprintf(fp, "\\mglc{%g}{%g}{%s} \\mglo{%g}{%g}{%s}\n", x,y,cname,x,y,cname);    break;
-                               case '+':       fprintf(fp, "\\mglp{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'x':       fprintf(fp, "\\mglx{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 's':       fprintf(fp, "\\mgls{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'S':       fprintf(fp, "\\mglS{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'd':       fprintf(fp, "\\mgld{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'D':       fprintf(fp, "\\mglD{%g}{%g}{%s}\n", x,y,cname); break;
-                               case '^':       fprintf(fp, "\\mglt{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'T':       fprintf(fp, "\\mglT{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'v':       fprintf(fp, "\\mglv{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'V':       fprintf(fp, "\\mglV{%g}{%g}{%s}\n", x,y,cname); break;
-                               case '<':       fprintf(fp, "\\mgll{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'L':       fprintf(fp, "\\mglL{%g}{%g}{%s}\n", x,y,cname); break;
-                               case '>':       fprintf(fp, "\\mglr{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'R':       fprintf(fp, "\\mglR{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'Y':       fprintf(fp, "\\mglY{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'o':       fprintf(fp, "\\mglo{%g}{%g}{%s}\n", x,y,cname); break;
-                               case 'O':       fprintf(fp, "\\mglO{%g}{%g}{%s}\n", x,y,cname); break;
-                               case '*':       fprintf(fp, "\\mgla{%g}{%g}{%s}\n", x,y,cname); break;
+                                       fprintf(fp, "\\mglc{%g}{%g}{%s}{%g} \\mglo{%g}{%g}{%s}{%g}\n", x,y,cname,s,x,y,cname,s);        break;
+                               case '+':       fprintf(fp, "\\mglp{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'x':       fprintf(fp, "\\mglx{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 's':       fprintf(fp, "\\mgls{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'S':       fprintf(fp, "\\mglS{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'd':       fprintf(fp, "\\mgld{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'D':       fprintf(fp, "\\mglD{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case '^':       fprintf(fp, "\\mglt{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'T':       fprintf(fp, "\\mglT{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'v':       fprintf(fp, "\\mglv{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'V':       fprintf(fp, "\\mglV{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case '<':       fprintf(fp, "\\mgll{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'L':       fprintf(fp, "\\mglL{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case '>':       fprintf(fp, "\\mglr{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'R':       fprintf(fp, "\\mglR{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'Y':       fprintf(fp, "\\mglY{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'o':       fprintf(fp, "\\mglo{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case 'O':       fprintf(fp, "\\mglO{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
+                               case '*':       fprintf(fp, "\\mgla{%g}{%g}{%s}{%g}\n", x,y,cname,s);   break;
                                default:        fprintf(fp, "\\mglc{%g}{%g}{%s}\n", x,y,cname); break;
                        }
                }
-               else if(q.type==2 && cp.a>0)
+               else if(q.type==2 && cp.a>mgl_min_a)
                {
                        const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3);
                        fprintf(fp, "\\fill[%s, fill opacity=%g] (%g,%g) -- (%g,%g) -- (%g,%g) -- cycle;\n", cname,cp.a, x,y, p2.x/100,p2.y/100, p3.x/100,p3.y/100);
                }
-               else if(q.type==3 && cp.a>0)
+               else if(q.type==3 && cp.a>mgl_min_a)
                {
                        const mglPnt p2=gr->GetPnt(q.n2), p3=gr->GetPnt(q.n3), p4=gr->GetPnt(q.n4);
                        fprintf(fp, "\\fill[%s, fill opacity=%g] (%g,%g) -- (%g,%g) -- (%g,%g) -- (%g,%g) -- cycle;\n", cname,cp.a, x,y, p2.x/100,p2.y/100, p4.x/100,p4.y/100, p3.x/100,p3.y/100);
                }
                else if(q.type==1)      // lines
                {
-                       //                      const char *dash[]={"", "8 8","4 4","1 3","7 4 1 4","3 2 1 2"};
+                       //const char *dash[]={"", "8 8","4 4","1 3","7 4 1 4","3 2 1 2"};
                        const char *w[]={"semithick","thick","very thick","ultra thick"};
                        register int iw=int(q.w-0.5);   if(iw>3)        iw=3;
                        if(iw<0)        fprintf(fp,"\\draw[%s] ",cname);
@@ -893,23 +717,61 @@ void mgl_write_tex(HMGL gr, const char *fname,const char *descr)
                        put_line(gr,fp,false,i,wp,cp,st, "(%g,%g)", " -- (%g,%g)", false, 0.01);
                        fprintf(fp, ";\n");
                }
-               else if(q.type==6)      // text
+               else if(q.type==6 && !mgl_isnan(q.p))   // text
                {
                        const mglText &t = gr->GetPtx(q.n3);
-                       mreal ftet = mgl_isnan(p1.v)||mgl_isnan(p1.u) ? 0:-180*atan2(p1.v,p1.u)/M_PI;
+                       mreal dy = q.w*cos(q.p*M_PI/180)/100, dx = q.w*sin(q.p*M_PI/180)/100;
                        int f,a;        mglGetStyle(t.stl.c_str(), &f, &a);
                        std::string ss=cname;
-                       if((a&3)==2)    ss.append(",west");     if((a&3)==0)    ss.append(",east");
+                       if((a&3)==0)    ss.append(",anchor=base west");
+                       if((a&3)==1)    ss.append(",anchor=base");
+                       if((a&3)==2)    ss.append(",anchor=base east");
                        if(f&MGL_FONT_ITAL)     ss.append(",font=\\itshape");
                        if(f&MGL_FONT_BOLD)     ss.append(",font=\\bfshape");
                        if(t.text.find('\\')!=std::string::npos || t.text.find('{')!=std::string::npos || t.text.find('_')!=std::string::npos || t.text.find('^')!=std::string::npos)
-                               fprintf(fp,"\\draw[%s] (%g,%g) node[rotate=%.2g]{$%ls$};\n", ss.c_str(),x,y, ftet, t.text.c_str());
+                               fprintf(fp,"\\draw[%s] (%g,%g) node[rotate=%.2g]{$%ls$};\n", ss.c_str(),x-dx,y-dy, -q.p, t.text.c_str());
                        else
-                               fprintf(fp,"\\draw[%s] (%g,%g) node[rotate=%.2g]{%ls};\n", ss.c_str(),x,y, ftet, t.text.c_str());
+                               fprintf(fp,"\\draw[%s] (%g,%g) node[rotate=%.2g]{%ls};\n", ss.c_str(),x-dx,y-dy, -q.p, t.text.c_str());
                }
        }
        fprintf(fp, "\\end{tikzpicture}\n");
        for(i=0;i<gr->GetPrmNum();i++)
        {       mglPrim &q=gr->GetPrm(i);       if(q.type==-1)  q.type = 1;     }
        fclose(fp);
+
+       // provide colors used by figure
+       fp=fopen("mglcolors.tex","wt");
+       for(ii=0;ii<6;ii++)     for(jj=0;jj<6;jj++)     for(kk=0;kk<6;kk++)
+               fprintf(fp,"\\definecolor{mgl_%d}{RGB}{%d,%d,%d}\n",ii+6*(jj+6*kk),51*ii,51*jj,51*kk);
+       mreal ms=0.4*gr->mark_size()/100;       // also provide marks
+       fprintf(fp, "\\providecommand{\\mglp}[4]{\\draw[#3] (#1-#4, #2) -- (#1+#4,#2) (#1,#2-#4) -- (#1,#2+#4);}\n");
+       fprintf(fp, "\\providecommand{\\mglx}[4]{\\draw[#3] (#1-#4, #2-#4) -- (#1+#4,#2+#4) (#1+#4,#2-#4) -- (#1-#4,#2+#4);}\n");
+       fprintf(fp, "\\providecommand{\\mgls}[4]{\\draw[#3] (#1-#4, #2-#4) -- (#1+#4,#2-#4) -- (#1+#4,#2+#4) -- (#1-#4,#2+#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglS}[4]{\\fill[#3] (#1-#4, #2-#4) -- (#1+#4,#2-#4) -- (#1+#4,#2+#4) -- (#1-#4,#2+#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mgld}[4]{\\draw[#3] (#1, #2-#4) -- (#1+#4,#2) -- (#1,#2+#4) -- (#1-#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglD}[4]{\\fill[#3] (#1, #2-#4) -- (#1+#4,#2) -- (#1,#2+#4) -- (#1-#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglv}[4]{\\draw[#3] (#1-#4, #2+#4/2) -- (#1+#4,#2+#4/2) -- (#1,#2-#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglV}[4]{\\fill[#3] (#1-#4, #2+#4/2) -- (#1+#4,#2+#4/2) -- (#1,#2-#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglt}[4]{\\draw[#3] (#1-#4, #2-#4/2) -- (#1+#4,#2-#4/2) -- (#1,#2+#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglT}[4]{\\fill[#3] (#1-#4, #2-#4/2) -- (#1+#4,#2-#4/2) -- (#1,#2+#4) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mgll}[4]{\\draw[#3] (#1+#4/2, #2-#4) -- (#1+#4/2,#2+#4) -- (#1-#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglL}[4]{\\fill[#3] (#1+#4/2, #2-#4) -- (#1+#4/2,#2+#4) -- (#1-#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglr}[4]{\\draw[#3] (#1-#4/2, #2-#4) -- (#1-#4/2,#2+#4) -- (#1+#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglR}[4]{\\fill[#3] (#1-#4/2, #2-#4) -- (#1-#4/2,#2+#4) -- (#1+#4,#2) -- cycle;}\n");
+       fprintf(fp, "\\providecommand{\\mglR}[4]{\\draw[#3] (#1, #2-#4) -- (#1,#2) -- (#1-#4,#2+#4) (#1,#2) -- (#1+#4,#2+#4);}\n");
+       fprintf(fp, "\\providecommand{\\mgla}[4]{\\draw[#3] (#1-#4, #2) -- (#1+#4,#2) (#1-0.6*#4,#2-0.8*#4) -- (#1+0.6*#4,#2+0.8*#4) (#1-0.6*#4,#2+0.8*#4) -- (#1+0.6*#4,#2-0.8*#4);}\n");
+       fprintf(fp, "\\providecommand{\\mglY}[4]{\\draw[#3] (#1, #2-#4) -- (#1,#2) (#1-#4,#2+#4) -- (#1,#2) (#1+#4,#2+#4) -- (#1,#2);}\n");
+       fprintf(fp, "\\providecommand{\\mglo}[4]{\\draw[#3] (#1, #2) circle (#4);}\n");
+       fprintf(fp, "\\providecommand{\\mglO}[4]{\\fill[#3] (#1, #2) circle (#4);}\n");
+       fprintf(fp, "\\providecommand{\\mglc}[3]{\\draw[#3] (#1, #2) circle (%g);}\n\n", 0.1*ms);
+       fclose(fp);
+
+       // provide main file for viewing figure
+       fp=fopen("mglmain.tex","wt");
+       fprintf(fp, "\\documentclass{article}\n\n");
+       fprintf(fp, "%% following lines should be placed before \\begin{document}\n");
+       fprintf(fp,"\\usepackage{tikz}\n\\input{mglcolors.tex}\n");
+       fprintf(fp, "\\begin{document}\n%% start figure itself\n\\input{%s}\\end{document}\n",fname);
+       fclose(fp);
 }
+//-----------------------------------------------------------------------------

diff --git a/src/export_3d.cpp b/src/export_3d.cpp
index 361347654b952e1017dd13138a7315651e56c205..9fe45ba0d05f5af9e7ddcd79d646ef82986f4ad9 100644 (file)
--- a/src/export_3d.cpp
+++ b/src/export_3d.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * export_3d.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -46,199 +46,244 @@ void mglTexture::GetRGBA(unsigned char *f) const
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-// I'm not sure that it is good idea -- a lot of memory used, but gain only for small files\r
-/*void mgl_rearrange_pnt(HMGL gr, std::vector<size_t> &on, std::vector<size_t> &no, bool coor=false)\r
+void mgl_obj_glyph_old(HMGL gr, const mglPrim &q, const mglPnt &p, FILE *fp)\r
 {\r
-       // on -- for old-to-new index;  no -- for new-to-old index\r
-       on.clear();     on.resize(gr->GetPntNum(),-1);  no.clear();\r
-       register size_t i,j;\r
-       for(i=0;i<gr->GetPntNum();i++)  // collect data for groups\r
-       // it is rather expensive (extra 4b per primitive) but need for export to 3D\r
+       mreal f = q.p/2, dx=p.u/2, dy=p.v/2, x,y;\r
+       mreal c=q.s*cos(q.w*M_PI/180), s=-q.s*sin(q.w*M_PI/180);\r
+       double b[4] = {c,-s, s,c};\r
+       long i=q.n1+1, ik,il=0;\r
+\r
+       const mglGlyph &g = gr->GetGlf(q.n4);\r
+       const mreal dd = 0.004;\r
+       if(q.n3&8)\r
        {\r
-               const mglPnt &q = gr->GetPnt(i);\r
-               if(coor)        for(j=0;j<no.size();j++)\r
+               fprintf(fp,"v %g %g %g\n",p.x+b[0]*dx+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+               fprintf(fp,"v %g %g %g\n",p.x+b[0]*dx+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+               fprintf(fp,"v %g %g %g\n",p.x+b[0]*(dx+f)+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+               fprintf(fp,"v %g %g %g\n",p.x+b[0]*(dx+f)+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+               if(!(q.n3&4))   // glyph_line(p,f,true, d);\r
                {\r
-                       const mglPnt &p = gr->GetPnt(no[j]);\r
-                       if(p.x==q.x && p.y==q.y && p.z==q.z)    on[i]=j;\r
+                       fprintf(fp,"f -1/%ld -3/%ld -2/%ld\n",i,i,i);\r
+                       fprintf(fp,"f -4/%ld -2/%ld -3/%ld\n",i,i,i);\r
                }\r
-               else    for(j=0;j<no.size();j++)\r
+               else    // glyph_line(p,f,false, d);\r
                {\r
-                       const mglPnt &p = gr->GetPnt(no[j]);\r
-                       if(p.x==q.x && p.y==q.y && p.z==q.z && p.c==q.c && p.t==q.t)    on[i]=j;\r
+                       fprintf(fp,"l -1/%ld -2/%ld\n",i,i);\r
+                       fprintf(fp,"l -3/%ld -4/%ld\n",i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n",i,i);\r
+                       fprintf(fp,"l -2/%ld -4/%ld\n",i,i);\r
                }\r
-               if(on[j]<0)             {       no.push_back(i);        on[j]=no.size()-1;      }\r
        }\r
-}*/\r
+       else\r
+       {\r
+               if(!(q.n3&4))   // glyph_fill(p,f,g, d);\r
+               {\r
+                       for(ik=0;ik<g.nt;ik++)\r
+                       {\r
+                               x = dx+f*g.trig[6*ik];          y = dy+f*g.trig[6*ik+1];\r
+                               fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                               x = dx+f*g.trig[6*ik+2];        y = dy+f*g.trig[6*ik+3];\r
+                               fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                               x = dx+f*g.trig[6*ik+4];        y = dy+f*g.trig[6*ik+5];\r
+                               fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                               fprintf(fp,"f -1/%ld -3/%ld -2/%ld\n",i,i,i);\r
+                       }\r
+               }\r
+               else    // glyph_wire(p,f,g, d);\r
+               {\r
+                       for(ik=0;ik<g.nl;ik++)\r
+                       {\r
+                               x = g.line[2*ik];       y = g.line[2*ik+1];\r
+                               if(x==0x3fff && y==0x3fff)      // line breakthrough\r
+                               {       il = ik+1;      continue;       }\r
+                               else if(ik==g.nl-1 || (g.line[2*ik+2]==0x3fff && g.line[2*ik+3]==0x3fff))\r
+                               {       // enclose the circle. May be in future this block should be commented\r
+                                       x = dx+f*g.line[2*ik];          y = dy+f*g.line[2*ik+1];\r
+                                       fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                                       x = dx+f*g.line[2*il];          y = dy+f*g.line[2*il+1];\r
+                                       fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                               }\r
+                               else\r
+                               {       // normal line\r
+                                       x = dx+f*g.line[2*ik];          y = dy+f*g.line[2*ik+1];\r
+                                       fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                                       x = dx+f*g.line[2*ik+2];        y = dy+f*g.line[2*ik+3];\r
+                                       fprintf(fp,"v %g %g %g\n",p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                               }\r
+                               fprintf(fp,"l -1/%ld -2/%ld\n",i,i);\r
+                       }\r
+               }\r
+       }\r
+}\r
 //-----------------------------------------------------------------------------\r
-void mgl_obj_prim(const mglPrim &q, const mglPnt &p, FILE *fp, mreal size)\r
+/* M.Vidassov take/move it into src/obj.cpp */\r
+void mgl_obj_prim_old(HMGL gr, const mglPrim &q, const mglPnt &p, FILE *fp, mreal size)\r
 {\r
        char type = q.n4;       mreal ss=size*0.35;\r
        register long i=q.n1+1,j;\r
        register long n1=q.n1+1,n2=q.n2+1,n3=q.n3+1,n4=q.n4+1;\r
        switch(q.type)\r
        {\r
-               case 0:\r
-                       if(!strchr("xsSoO",type))       ss *= 1.1;\r
-                       if(type=='.' || ss==0)  fprintf(fp,"p %ld\n", i);\r
-                       else    switch(type)\r
-                       {\r
-                       case 'P':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
-                               fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -4/%ld\n", i,i);\r
-                       case '+':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
-                               fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);   break;\r
-                       case 'X':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
-                               fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -4/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -4/%ld\n", i,i);   break;\r
-                       case 'x':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -4/%ld\n", i,i);   break;\r
-                       case 'S':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
-                               fprintf(fp,"f -4/%ld -3/%ld -2/%ld -1/%ld\n",i,i,i,i);  break;\r
-                       case 's':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
-                               fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -4/%ld\n", i,i);   break;\r
-                       case 'D':\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"f -4/%ld -3/%ld -2/%ld -1/%ld\n",i,i,i,i);  break;\r
-                       case 'd':\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -4/%ld\n", i,i);   break;\r
-                       case 'Y':\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+0.8*ss,p.y+0.6*ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-0.8*ss,p.y+0.6*ss,p.z);\r
-                               fprintf(fp,"l -3/%ld %ld/%ld\n", i,i,i);\r
-                               fprintf(fp,"l -2/%ld %ld/%ld\n", i,i,i);\r
-                               fprintf(fp,"l -1/%ld %ld/%ld\n", i,i,i);        break;\r
-                       case '*':\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+0.6*ss,p.y+0.8*ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-0.6*ss,p.y-0.8*ss,p.z);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+0.6*ss,p.y-0.8*ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-0.6*ss,p.y+0.8*ss,p.z);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);           break;\r
-                       case 'T':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
-                               fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
-                       case '^':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
-                       case 'V':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
-                       case 'v':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss/2,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
-                       case 'L':\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
-                       case '<':\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
-                       case 'R':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
-                       case '>':\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y+ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y-ss,p.z);\r
-                               fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
-                               fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
-                               fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
-                               fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
-                       case 'O':\r
-                               for(j=0;j<=20;j++)\r
-                                       fprintf(fp,"v %g %g %g\n",p.x+ss*cos(j*M_PI/10),p.y+ss*sin(j*M_PI/10),p.z);\r
-                               for(j=0;j<20;j++)\r
-                                       fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", j-21,i, j-20,i, i,i);\r
-                               break;\r
-                       case 'C':       fprintf(fp,"p %ld\n", i);\r
-                       case 'o':\r
-                               for(j=0;j<=20;j++)\r
-                                       fprintf(fp,"v %g %g %g\n",p.x+ss*cos(j*M_PI/10),p.y+ss*sin(j*M_PI/10),p.z);\r
-                               for(j=0;j<20;j++)\r
-                                       fprintf(fp,"l %ld/%ld %ld/%ld\n", j-21,i, j-20,i);\r
-                               break;\r
-                       }\r
+       case 0:\r
+               if(!strchr("xsSoO",type))       ss *= 1.1;\r
+               if(type=='.' || ss==0)  fprintf(fp,"p %ld\n", i);\r
+               else    switch(type)\r
+               {\r
+               case 'P':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
+                       fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -4/%ld\n", i,i);\r
+               case '+':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
+                       fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);   break;\r
+               case 'X':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
+                       fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -4/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -4/%ld\n", i,i);   break;\r
+               case 'x':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -4/%ld\n", i,i);   break;\r
+               case 'S':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
+                       fprintf(fp,"f -4/%ld -3/%ld -2/%ld -1/%ld\n",i,i,i,i);  break;\r
+               case 's':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss,p.z);\r
+                       fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -4/%ld\n", i,i);   break;\r
+               case 'D':\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"f -4/%ld -3/%ld -2/%ld -1/%ld\n",i,i,i,i);  break;\r
+               case 'd':\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"l -4/%ld -3/%ld\n", i,i);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -4/%ld\n", i,i);   break;\r
+               case 'Y':\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+0.8*ss,p.y+0.6*ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-0.8*ss,p.y+0.6*ss,p.z);\r
+                       fprintf(fp,"l -3/%ld %ld/%ld\n", i,i,i);\r
+                       fprintf(fp,"l -2/%ld %ld/%ld\n", i,i,i);\r
+                       fprintf(fp,"l -1/%ld %ld/%ld\n", i,i,i);        break;\r
+               case '*':\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+0.6*ss,p.y+0.8*ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-0.6*ss,p.y-0.8*ss,p.z);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+0.6*ss,p.y-0.8*ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-0.6*ss,p.y+0.8*ss,p.z);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);           break;\r
+               case 'T':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
+                       fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
+               case '^':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y-ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y-ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y+ss,p.z);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
+               case 'V':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
+               case 'v':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y+ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y+ss/2,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x,p.y-ss,p.z);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
+               case 'L':\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
+               case '<':\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss/2,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss,p.y,p.z);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
+               case 'R':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"f -3/%ld -2/%ld -1/%ld\n", i,i,i);  break;\r
+               case '>':\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y+ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x-ss/2,p.y-ss,p.z);\r
+                       fprintf(fp,"v %g %g %g\n",p.x+ss,p.y,p.z);\r
+                       fprintf(fp,"l -3/%ld -2/%ld\n", i,i);\r
+                       fprintf(fp,"l -2/%ld -1/%ld\n", i,i);\r
+                       fprintf(fp,"l -1/%ld -3/%ld\n", i,i);   break;\r
+               case 'O':\r
+                       for(j=0;j<=20;j++)\r
+                               fprintf(fp,"v %g %g %g\n",p.x+ss*cos(j*M_PI/10),p.y+ss*sin(j*M_PI/10),p.z);\r
+                       for(j=0;j<20;j++)\r
+                               fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", j-21,i, j-20,i, i,i);\r
                        break;\r
-               case 1: fprintf(fp,"l %ld/%ld %ld/%ld\n", n1,n1, n2,n2);        break;\r
-               case 2:\r
-                       fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n1,n1, n2,n2, n3,n3); break;\r
-               case 3:\r
-                       fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n1,n1, n2,n2, n3,n3);\r
-                       fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n2,n2, n4,n4, n3,n3); break;\r
-               case 4: break;  // TODO: add glyphs export later\r
+               case 'C':       fprintf(fp,"p %ld\n", i);\r
+               case 'o':\r
+                       for(j=0;j<=20;j++)\r
+                               fprintf(fp,"v %g %g %g\n",p.x+ss*cos(j*M_PI/10),p.y+ss*sin(j*M_PI/10),p.z);\r
+                       for(j=0;j<20;j++)\r
+                               fprintf(fp,"l %ld/%ld %ld/%ld\n", j-21,i, j-20,i);\r
+                       break;\r
+               }\r
+               break;\r
+       case 1: fprintf(fp,"l %ld/%ld %ld/%ld\n", n1,n1, n2,n2);        break;\r
+       case 2: fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n1,n1, n2,n2, n3,n3); break;\r
+       case 3: fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n1,n1, n2,n2, n3,n3);\r
+               fprintf(fp,"f %ld/%ld %ld/%ld %ld/%ld\n", n2,n2, n4,n4, n3,n3); break;\r
+       case 4: mgl_obj_glyph_old(gr,q,p,fp);           break;\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png)\r
+void mgl_write_obj_old(HMGL gr, const char *fname,const char *descr, int use_png)\r
 {\r
-       if(gr->GetPrmNum()<=0)  return; // nothing to do\r
+       if(gr->GetPrmNum()==0)  return; // nothing to do\r
        register size_t i,j;\r
        long m1=0,m2=0,m;\r
        for(i=0;i<gr->Grp.size();i++)   // prepare array of indirect indexing\r
@@ -253,7 +298,7 @@ void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png)
        }\r
        delete []ng;\r
 \r
-       unsigned len=strlen(fname),ntxt=gr->GetTxtNum();\r
+       size_t len=strlen(fname),ntxt=gr->GetTxtNum();\r
        char *tname = new char[len+5];  strcpy(tname,fname);\r
        FILE *fp=fopen(fname,"wt");\r
        // vertices definition\r
@@ -275,18 +320,11 @@ void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png)
                for(j=0;j<p.size();j++)\r
                {\r
                        const mglPrim &q=gr->GetPrm(p[j]);\r
-                       mgl_obj_prim(q, gr->GetPnt(q.n1), fp, q.s*gr->FontFactor());\r
+                       mgl_obj_prim_old(gr, q, gr->GetPnt(q.n1), fp, q.s*gr->FontFactor());\r
                }\r
                gr->Grp[i].p.clear();   // we don't need indexes anymore\r
        }\r
        // try to save "ungrouped" primitives\r
-/*     fprintf(fp,"g ungrouped\n");    // I think this can be omitted\r
-       for(i=0;i<gr->GetPrmNum();i++)\r
-       {\r
-               const mglPrim q=gr->GetPrm(p[j]);       m = q.id-m1;\r
-               if(m<0 || m>=m2-m1+1)\r
-                       mgl_obj_prim(q, gr->GetPnt(q.n1), fp, q.s*gr->FontFactor());\r
-       }*/\r
        fclose(fp);\r
        // prepare MTL file\r
        tname[len-4]='.';       tname[len-3]='m';       tname[len-2]='t';       tname[len-1]='l';\r
@@ -312,14 +350,14 @@ void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png)
        else            mgl_tga_save(tname,256,256*j,pbuf);\r
        free(pbuf);     delete []buf;   delete []tname;\r
 }\r
-void mgl_write_obj_(uintptr_t *gr, const char *fname,const char *descr, int *use_png,int l,int n)\r
+void mgl_write_obj_old_(uintptr_t *gr, const char *fname,const char *descr, int *use_png,int l,int n)\r
 {      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
        char *d=new char[n+1];  memcpy(d,descr,n);      d[n]=0;\r
-       mgl_write_obj(_GR_,s,d,*use_png);       delete []s;             delete []d;     }\r
+       mgl_write_obj_old(_GR_,s,d,*use_png);   delete []s;             delete []d;     }\r
 //-----------------------------------------------------------------------------\r
 void mgl_write_stl(HMGL gr, const char *fname,const char *descr)\r
 {\r
-       if(gr->GetPrmNum()<=0)  return; // nothing to do\r
+       if(gr->GetPrmNum()==0)  return; // nothing to do\r
        FILE *fp = fopen(fname,"wt");\r
        fprintf(fp,"solid %s\n",(descr && *descr)?descr:"mathgl");\r
        register long i;\r
@@ -369,7 +407,7 @@ void mgl_write_stl_(uintptr_t *gr, const char *fname,const char *descr,int l,int
 //-----------------------------------------------------------------------------\r
 void mgl_write_xyz(HMGL gr, const char *fname,const char *descr)\r
 {\r
-       if(gr->GetPrmNum()<=0)  return; // nothing to do\r
+       if(gr->GetPrmNum()==0)  return; // nothing to do\r
 \r
        register long i;\r
        FILE *fp=fopen(fname,"wt"), *ff;        // vertices definition\r
@@ -383,7 +421,7 @@ void mgl_write_xyz(HMGL gr, const char *fname,const char *descr)
        fclose(fp);\r
 \r
        // primitive definition\r
-       unsigned len=strlen(fname);\r
+       size_t len=strlen(fname);\r
        char *tname = new char[len+2];  strcpy(tname,fname);    tname[len+1]=tname[len]=0;\r
        tname[len]='l'; fp = fopen(tname,"wt");\r
        tname[len]='f'; ff = fopen(tname,"wt");\r
@@ -446,12 +484,16 @@ void mgl_write_off(HMGL gr, const char *fname,const char *descr, int colored)
                        if(q.type==2)\r
                        {\r
                                const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3);\r
-                               fprintf(fp,"3 %ld %ld %ld %.2g %.2g %.2g %.2g\n",q.n1,q.n2,q.n3, (p1.r+p2.r+p3.r)/3, (p1.g+p2.g+p3.g)/3, (p1.b+p2.b+p3.b)/3, (p1.a+p2.a+p3.a)/3);\r
+                               if(p1.a>mgl_min_a || p2.a>mgl_min_a || p3.a>mgl_min_a)\r
+                                       fprintf(fp,"3 %ld %ld %ld %.2g %.2g %.2g %.2g\n",q.n1,q.n2,q.n3,\r
+                                                       (p1.r+p2.r+p3.r)/3, (p1.g+p2.g+p3.g)/3, (p1.b+p2.b+p3.b)/3, (p1.a+p2.a+p3.a)/3);\r
                        }\r
                        if(q.type==3)\r
                        {\r
                                const mglPnt &p2=gr->GetPnt(q.n2), &p3=gr->GetPnt(q.n3), &p4=gr->GetPnt(q.n4);\r
-                               fprintf(fp,"4 %ld %ld %ld %ld %.2g %.2g %.2g %.2g\n",q.n1,q.n2,q.n4,q.n3, (p1.r+p2.r+p3.r+p4.r)/4, (p1.g+p2.g+p3.g+p4.g)/4, (p1.b+p2.b+p3.b+p4.b)/4, (p1.a+p2.a+p3.a+p4.a)/4);\r
+                               if(p1.a>mgl_min_a || p2.a>mgl_min_a || p3.a>mgl_min_a || p4.a>mgl_min_a)\r
+                                       fprintf(fp,"4 %ld %ld %ld %ld %.2g %.2g %.2g %.2g\n",q.n1,q.n2,q.n4,q.n3,\r
+                                                       (p1.r+p2.r+p3.r+p4.r)/4, (p1.g+p2.g+p3.g+p4.g)/4, (p1.b+p2.b+p3.b+p4.b)/4, (p1.a+p2.a+p3.a+p4.a)/4);\r
                        }\r
                }\r
        }\r
@@ -469,25 +511,92 @@ void mgl_write_idtf_(uintptr_t *gr, const char *fname,const char *descr,int l,in
        char *f=new char[n+1];  memcpy(f,descr,n);      f[n]=0;\r
        mgl_write_idtf(_GR_,s,f);       delete []s;             delete []f;     }\r
 //-----------------------------------------------------------------------------\r
-/*struct mglPrim\r
+bool mglCanvas::WriteJSON(const char *fname)\r
 {\r
-       // NOTE: n4 is used as mark; n3 -- as pen style for type=0,1,4\r
-       // NOTE: n3 is used as position of txt,font in Ptxt for type=6\r
-       long n1,n2,n3,n4;       ///< coordinates of corners\r
-       int type;       ///< primitive type (0-point, 1-line, 2-trig, 3-quad, 4-glyph, 6-text)\r
-       int id;         ///< object id\r
-       mreal z;        ///< z-position\r
-       mreal s;        ///< size (if applicable) or fscl\r
-       mreal w;        ///< width (if applicable) or ftet\r
-       mreal p;\r
-};*/\r
+       bool fl = strcmp(fname,"-");\r
+       FILE *fp = fl ? fopen(fname, "wb") : stdout;\r
+       if (!fp)        return true;\r
+       ClearUnused();  // clear unused points\r
+       size_t i,l=Pnt.size();\r
+       fprintf(fp,"{\n\"width\":%d,\t\"height\":%d,\t\"depth\":%d,\t\"plotid\":\"%s\",\t\"npnts\":%lu,\t\"pnts\":[\n",\r
+                       Width, Height, Depth, PlotId.c_str(), (unsigned long)l);\r
+       for(i=0;i<l;i++)\r
+       {\r
+               const mglPnt &q=Pnt[i];\r
+               fprintf(fp,"[%.4g,%.4g,%.4g]%c\n", q.xx, Height-q.yy, q.zz, i+1<l?',':' ');\r
+       }\r
+       l = Prm.size();\r
+       fprintf(fp,"],\t\"nprim\":%lu,\t\"prim\":[\n",(unsigned long)l);\r
+\r
+       std::vector<mglPoint> xy;       // vector for glyphs coordinates (to be separated from pnts)\r
+       for(i=0;i<l;i++)\r
+       {\r
+               const mglPrim &p=Prm[i];                mglColor c = GetColor(p);\r
+               if(p.n1<0 || (p.type==1 && p.n2<0) || (p.type==2 && (p.n2<0 || p.n3<0)) || (p.type==3 && (p.n2<0 || p.n3<0 || p.n4<0)))\r
+                       continue;\r
+               long n1=p.n1, n2=p.n2, n3=0, n4=(p.type==3||p.type==0)?p.n4:0;\r
+               if(p.type==2 || p.type==3)      n3 = p.n3;\r
+               if(p.type==4)\r
+               {\r
+                       const mglPnt &q = Pnt[p.n1];\r
+                       xy.push_back(mglPoint(q.u,q.v,p.n2));\r
+                       n2 = xy.size()-1;\r
+                       n3 = p.n3;      n4 = p.n4;\r
+               }\r
+               if(p.type==1 && n1>n2)  {       n1=p.n2;        n2=p.n1;        }\r
+               if(c.a==1 || p.type==0 || p.type==1 || p.type==4 || p.type==6)\r
+                       fprintf(fp,"[%d,%ld,%ld,%ld,%ld,%d,%.4g,%.4g,%.4g,%.4g,\"#%02x%02x%02x\"]%c\n",\r
+                               p.type, n1, n2, n3, n4, p.id, p.s, p.w==p.w?p.w:0, p.p==p.p?p.p:0,\r
+                               0., int(255*c.r), int(255*c.g), int(255*c.b), i+1<l?',':' ');\r
+               else\r
+                       fprintf(fp,"[%d,%ld,%ld,%ld,%ld,%d,%.4g,%.4g,%.4g,%.4g,\"rgba(%d,%d,%d,%.2g)\"]%c\n",\r
+                               p.type, n1, n2, n3, n4, p.id, p.s, p.w==p.w?p.w:0, p.p==p.p?p.p:0,\r
+                               0., int(255*c.r), int(255*c.g), int(255*c.b), c.a, i+1<l?',':' ');\r
+       }\r
+       \r
+       l = xy.size();\r
+       fprintf(fp,"],\t\"ncoor\":%lu,\t\"coor\":[\n",(unsigned long)l);\r
+       for(i=0;i<l;i++)\r
+       {\r
+               const mglPoint &p=xy[i];\r
+               const mglPnt &q=Pnt[int(0.5+p.z)];\r
+               if(q.u==q.u)\r
+                       fprintf(fp,"[%.4g,%.4g,%.4g,%.4g,%.4g]%c\n", p.x, p.y, q.u, q.v, q.w, i+1<l?',':' ');\r
+               else\r
+                       fprintf(fp,"[%.4g,%.4g,1e11,1e11,1e11]%c\n", p.x, p.y, i+1<l?',':' ');\r
+       }\r
+\r
+       l = Glf.size();\r
+       fprintf(fp,"],\t\"nglfs\":%lu,\t\"glfs\":[\n",(unsigned long)l);\r
+       for(i=0;i<l;i++)\r
+       {\r
+               const mglGlyph &g=Glf[i];\r
+               fprintf(fp,"[%ld,%ld,\n\t[", g.nt, g.nl);\r
+               register long j;\r
+               for(j=0;j<6*g.nt;j++)   fprintf(fp,"%d%c", g.trig[j], j+1<6*g.nt?',':' ');\r
+               fprintf(fp,"],\n\t[");\r
+               for(j=0;j<2*g.nl;j++)   fprintf(fp,"%d%c", g.line[j], j+1<2*g.nl?',':' ');\r
+               fprintf(fp,"]\n]%c\n", i+1<l?',':' ');\r
+       }\r
+       fprintf(fp,"]\n}\n");\r
+       if(fl)  fclose(fp);\r
+       return false;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_write_json(HMGL gr, const char *fname,const char *)\r
+{      _Gr_->WriteJSON(fname); }\r
+void mgl_write_json_(uintptr_t *gr, const char *fname,const char *descr,int l,int n)\r
+{      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]=0;\r
+       char *f=new char[n+1];  memcpy(f,descr,n);      f[n]=0;\r
+       mgl_write_json(_GR_,s,f);       delete []s;             delete []f;     }\r
+//-----------------------------------------------------------------------------\r
 bool mglCanvas::ExportMGLD(const char *fname, const char *descr)\r
 {\r
        if(Pnt.size()<1 || Prm.size()<1)        return true;\r
        FILE *fp=fopen(fname,"wt");\r
        if(!fp) return true;\r
        // NOTE: I'll save Ptx. So prim type=6 is useless,and no LaTeX\r
-       fprintf(fp,"MGLD %lu %lu %lu\n# %s\n", (unsigned long)Pnt.size(), (unsigned long)Prm.size(), (unsigned long)Txt.size(), (descr && *descr) ? descr : fname);\r
+       fprintf(fp,"MGLD %lu %lu %lu %lu %d %d\n# %s\n", (unsigned long)Pnt.size(), (unsigned long)Prm.size(), (unsigned long)Txt.size(), (unsigned long)Glf.size(), Width, Height, (descr && *descr) ? descr : fname);\r
        register size_t i;\r
        fprintf(fp,"# Vertexes: x y z c t ta u v w r g b a\n");\r
        for(i=0;i<Pnt.size();i++)\r
@@ -507,6 +616,22 @@ bool mglCanvas::ExportMGLD(const char *fname, const char *descr)
                const mglTexture &t=Txt[i];\r
                fprintf(fp,"%d\t%.4g\t%s\n",t.Smooth,t.Alpha,t.Sch);\r
        }\r
+       fprintf(fp,"# Glyphs: nt nl [trig] [line]\n");\r
+       for(i=0;i<Glf.size();i++)\r
+       {\r
+               const mglGlyph &g=Glf[i];\r
+               fprintf(fp,"%ld\t%ld\n", g.nt, g.nl);\r
+               if(g.trig)\r
+               {\r
+                       for(long j=0;j<6*g.nt;j++)      fprintf(fp,"%d\t",g.trig[j]);\r
+                       fprintf(fp,"\n");\r
+               }\r
+               if(g.line)\r
+               {\r
+                       for(long j=0;j<2*g.nl;j++)      fprintf(fp,"%d\t",g.line[j]);\r
+                       fprintf(fp,"\n");\r
+               }\r
+       }\r
        fclose(fp);\r
        return false;\r
 }\r
@@ -526,17 +651,28 @@ bool mglCanvas::ImportMGLD(const char *fname, bool add)
        if(!fgets(buf,512,fp))  *buf=0;\r
        if(strncmp(buf,"MGLD",4))       {       delete []buf;   fclose(fp);     return true;    }\r
        register size_t i;\r
-       unsigned long n,m,l, npnt=0;\r
-       sscanf(buf+5,"%lu%lu%lu",&n,&m,&l);\r
+       unsigned long n=0,m=0,l=0,k=0, npnt=0, nglf=0;\r
+       int w=0,h=0,d;\r
+       sscanf(buf+5,"%lu%lu%lu%lu%d%d",&n,&m,&l,&k,&w,&h);\r
+       if(w<=0 || h<=0)        {       w=Width;        h=Height;       }\r
+       d = long(sqrt(double(w*h)));\r
        if(n<=0 || m<=0 || l<=0)        {       delete []buf;   fclose(fp);     return true;    }\r
        if(!add)        {       Clf();  Txt.clear();    }\r
-       else    {       ClfZB();        npnt=Pnt.size();        }\r
-       Pnt.reserve(n); Prm.reserve(m); Txt.reserve(l);\r
+       else    {       ClfZB();        npnt=Pnt.size();        nglf=Glf.size();        }\r
+       Pnt.reserve(n); Prm.reserve(m); Txt.reserve(l); Glf.reserve(k);\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_lock(&mutexGlf);\r
+       pthread_mutex_lock(&mutexPnt);\r
+       pthread_mutex_lock(&mutexPrm);\r
+       pthread_mutex_lock(&mutexTxt);\r
+#endif\r
        mglPnt p;\r
        for(i=0;i<n;i++)\r
        {\r
                do {    if(!fgets(buf,512,fp))  *buf=0; mgl_strtrim(buf);       } while(*buf=='#');\r
                sscanf(buf,"%g%g%g%g%g%g%g%g%g%g%g%g%g", &p.xx, &p.yy, &p.zz, &p.c, &p.t, &p.ta, &p.u, &p.v, &p.w, &p.r, &p.g, &p.b, &p.a);\r
+               // rescale to current image size\r
+               p.xx *= Width/double(w);        p.yy *= Height/double(h);       p.zz *= Depth/double(d);\r
                Pnt.push_back(p);\r
        }\r
        mglPrim q;\r
@@ -547,10 +683,9 @@ bool mglCanvas::ImportMGLD(const char *fname, bool add)
                q.n1 = q.n1>=0?q.n1+npnt:-1;\r
                q.n2 = q.n2>=0?q.n2+npnt:-1;\r
                if(q.type==2 || q.type==3)\r
-               {\r
-                       q.n3 = q.n3>=0?q.n3+npnt:-1;\r
-                       q.n4 = q.n4>=0?q.n4+npnt:-1;\r
-               }\r
+               {       q.n3 = q.n3>=0?q.n3+npnt:-1;    q.n4 = q.n4>=0?q.n4+npnt:-1;    }\r
+               if(q.type==4)\r
+               {       q.n4 = q.n4>=0?q.n4+nglf:-1;    q.s *= font_factor/(w<h?w:h);   }\r
                if(q.type<5)    Prm.push_back(q);\r
        }\r
        mglTexture t;\r
@@ -558,7 +693,7 @@ bool mglCanvas::ImportMGLD(const char *fname, bool add)
        {\r
                int sm=0;       float a;\r
                do {    if(!fgets(buf,512,fp))  *buf=0; mgl_strtrim(buf);       } while(*buf=='#');\r
-               register unsigned j,k=0;\r
+               register size_t j,k=0;\r
                for(j=0;buf[j];j++)\r
                {\r
                        if(buf[j]<=' ' && k)    {       sm++;   k=0;    }\r
@@ -569,6 +704,23 @@ bool mglCanvas::ImportMGLD(const char *fname, bool add)
                t.Set(buf+j, sm, a);\r
                Txt.push_back(t);\r
        }\r
+       mglGlyph g;\r
+       for(i=0;i<k;i++)\r
+       {\r
+               do {    if(!fgets(buf,512,fp))  *buf=0; mgl_strtrim(buf);       } while(*buf=='#' || *buf==0);\r
+               long nt=0,nl=0;\r
+               sscanf(buf,"%ld%ld", &nt, &nl); g.Create(nt,nl);\r
+               register long j;\r
+               for(j=0;j<6*nt;j++)     fscanf(fp,"%hd",g.trig+j);\r
+               for(j=0;j<2*nl;j++)     fscanf(fp,"%hd",g.line+j);\r
+               Glf.push_back(g);\r
+       }\r
+#if MGL_HAVE_PTHREAD\r
+       pthread_mutex_unlock(&mutexGlf);\r
+       pthread_mutex_unlock(&mutexPnt);\r
+       pthread_mutex_unlock(&mutexPrm);\r
+       pthread_mutex_unlock(&mutexTxt);\r
+#endif\r
        delete []buf;   fclose(fp);     return false;\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -744,13 +896,13 @@ void mgl_import_mgld_(uintptr_t *gr, const char *fname, int *add, int l)
 //-----------------------------------------------------------------------------\r
 void mglCanvas::WriteXGL(const char *fname,const char *descr)\r
 {\r
-       if(GetPrmNum()<=0)      return; // nothing to do\r
+       if(GetPrmNum()==0)      return; // nothing to do\r
        FILE *fp=fopen(fname,"wt");\r
        if(!fp) return true;\r
        fprintf(fp,"<WORLD>\n<NAME>%s</NAME>\n", (descr && *descr)?descr:fname);\r
        fprintf(fp,"<BACKGROUND><BACKCOLOR>%g, %g, %g</BACKCOLOR></BACKGROUND>\n", BDef[0]/255., BDef[1]/255., BDef[2]/255.);\r
        fprintf(fp,"<LIGHTING>\n<AMBIENT>%g, %g, %g</AMBIENT>\n",AmbBr, AmbBr, AmbBr);\r
-       register unsigned long i,j;\r
+       register size_t i,j;\r
        if(get(MGL_ENABLE_LIGHT))       for(i=0;i<10;i++)\r
                if(light[i].n && mgl_isnan(light[i].r.x))\r
                {\r
@@ -973,7 +1125,7 @@ void mgl_write_x3d(HMGL gr, const char *fname,const char *descr)
 \r
        // 2. now find group for primitives\r
        long m1=0,m2=0,m;\r
-       register unsigned long i,j;\r
+       register size_t i,j;\r
        for(i=0;i<gr->Grp.size();i++)   // prepare array of indirect indexing\r
        {       m = gr->Grp[i].Id;      if(m<m1) m1=m;  if(m>m2) m2=m;  }\r
        long *ng = new long[m2-m1+1];\r

diff --git a/src/fit.cpp b/src/fit.cpp
index 9223b67c1ca658f4b4c82b0492a3dd896d84099a..cf2f494f49bdceadec003d5df2d37ae027b836ed 100644 (file)
--- a/src/fit.cpp
+++ b/src/fit.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * fit.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -31,7 +31,7 @@
 int mglFitPnts=100;            ///< Number of output points in fitting\r
 char mglFitRes[1024];  ///< Last fitted formula\r
 //-----------------------------------------------------------------------------\r
-void mgl_puts_fit(HMGL gr, mreal x, mreal y, mreal z, const char *pre, const char *font, mreal size)\r
+void mgl_puts_fit(HMGL gr, double x, double y, double z, const char *pre, const char *font, double size)\r
 {\r
        long n = strlen(mglFitRes)+(pre?strlen(pre):0)+1;\r
        char *buf = new char[n];\r
@@ -234,6 +234,8 @@ HMDT mgl_fit_xys(HMGL gr, HCDT xx, HCDT yy, HCDT ss, const char *eq, const char
        {       gr->SetWarn(mglWarnLow,"Fit[S]");       return fit;     }\r
        if(ss->GetNx()*ss->GetNy()*ss->GetNz() != m*yy->GetNy()*yy->GetNz())\r
        {       gr->SetWarn(mglWarnDim,"Fit[S]");       return fit;     }\r
+       if(!var || *var==0)\r
+       {       gr->SetWarn(mglWarnNull,"Fit[S]");      return fit;     }\r
 \r
        if(nn<mglFitPnts)       nn = mglFitPnts;\r
        mglData x(xx), y(yy), s(ss);\r
@@ -278,7 +280,9 @@ HMDT mgl_fit_xyzs(HMGL gr, HCDT xx, HCDT yy, HCDT zz, HCDT ss, const char *eq, c
        {       gr->SetWarn(mglWarnDim,"Fit[S]");       return fit;     }\r
        if(m<2|| n<2)\r
        {       gr->SetWarn(mglWarnLow,"Fit[S]");       return fit;     }\r
-\r
+       if(!var || *var==0)\r
+       {       gr->SetWarn(mglWarnNull,"Fit[S]");      return fit;     }\r
+       \r
        if(nn<mglFitPnts)       nn = mglFitPnts;\r
        mglData x(m, n), y(m, n), z(zz), s(ss);\r
        register long i,j;\r
@@ -328,7 +332,9 @@ HMDT mgl_fit_xyzas(HMGL gr, HCDT xx, HCDT yy, HCDT zz, HCDT aa, HCDT ss, const c
        bool both = xx->GetNx()*xx->GetNy()*xx->GetNz()==i && yy->GetNx()*yy->GetNy()*yy->GetNz()==i && zz->GetNx()*zz->GetNy()*zz->GetNz()==i;\r
        if(!(both || (xx->GetNx()==m && yy->GetNx()==n && zz->GetNx()==l)))\r
        {       gr->SetWarn(mglWarnDim,"Fit[S]");       return fit;     }\r
-\r
+       if(!var || *var==0)\r
+       {       gr->SetWarn(mglWarnNull,"Fit[S]");      return fit;     }\r
+       \r
        if(nn<mglFitPnts)       nn = mglFitPnts;\r
        mglData x(aa), y(aa), z(aa), a(aa), s(ss);\r
        for(i=0;i<m;i++)        for(j=0;j<n;j++)        for(k=0;k<l;k++)        // ñîçäàåì ìàññèâ òî÷åê\r

diff --git a/src/font.cpp b/src/font.cpp
index 41aa7b5330581300da13ad39c4bb974a7db22940..1d8cbb0983146dabf37f50480cfd9851e251b996 100644 (file)
--- a/src/font.cpp
+++ b/src/font.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_font.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -34,19 +34,18 @@ extern unsigned mgl_numg, mgl_cur;
 extern float mgl_fact;\r
 extern long mgl_gen_fnt[516][6];\r
 extern short mgl_buf_fnt[246080];\r
-const float mgl_fgen = 4*14;\r
 extern mglTeXsymb mgl_tex_symb[];\r
+//mglFont mglDefFont("nofont");\r
 mglFont mglDefFont;\r
 //-----------------------------------------------------------------------------\r
 char mglGetStyle(const char *how, int *font, int *align)\r
 {\r
-       const char *cols = MGL_COLORS;\r
        char col=0;\r
        if(align)       *align = 1;     // centering text by default\r
        if(!how || *how==0)     return col;\r
        // NOTE: no brightness for text color\r
        for(;*how && *how!=':';how++)\r
-               if(strchr(cols,*how))   col=*how;\r
+               if(strchr(MGL_COLORS,*how))     col=*how;\r
        if(align)\r
        {\r
                *align = 1;\r
@@ -71,7 +70,7 @@ float mglFont::Puts(const char *str,const char *how,float col) const
 {\r
        int font=0, align=1;\r
        char cc=mglGetStyle(how,&font,&align);\r
-       unsigned size = strlen(str)+1;\r
+       size_t size = strlen(str)+1;\r
        wchar_t *wcs = new wchar_t[size];\r
        mbstowcs(wcs,str,size);\r
        float w = Puts(wcs,font,align,cc?-cc:col);\r
@@ -83,7 +82,7 @@ float mglFont::Width(const char *str,const char *how) const
 {\r
        int font=0;\r
        mglGetStyle(how,&font);\r
-       unsigned size = strlen(str)+1;\r
+       size_t size = strlen(str)+1;\r
        wchar_t *wcs = new wchar_t[size];\r
        mbstowcs(wcs,str,size);\r
        float w = Width(wcs,font);\r
@@ -115,11 +114,20 @@ float mglFont::Puts(const wchar_t *str,int font,int align, float col) const
                unsigned *wcs = new unsigned[size], *buf=wcs;\r
                memcpy(wcs,str,size*sizeof(wchar_t));\r
                Convert(str, wcs);\r
-               for(i=0;wcs[i];i++)     if(wcs[i]=='\n')        // parse '\n' symbol\r
+               for(i=0;wcs[i];i++)\r
                {\r
-                       wcs[i]=0;       w = Puts(buf,0,0,1.f,0x10|font,col);    // find width\r
-                       Puts(buf,-w*(align&3)/2.f,-h - 500.*num/fact[0],1.f,font,col);  // draw it really\r
-                       buf=wcs+i+1;    num++;  if(w>ww)        ww=w;\r
+                       if(wcs[i]=='\n')        // parse '\n' symbol\r
+                       {\r
+                               wcs[i]=0;       w = Puts(buf,0,0,1.f,0x10|font,col);    // find width\r
+                               Puts(buf,-w*(align&3)/2.f,-h - 500.*num/fact[0],1.f,font,col);  // draw it really\r
+                               buf=wcs+i+1;    num++;  if(w>ww)        ww=w;\r
+                       }\r
+                       if(wcs[i]=='\\' && wcs[i+1]=='n' && (wcs[i+2]>' ' || wcschr(L"{}[]()!@#$%^&*/-?.,_=+\\\"", wcs[i+2])))  // parse '\n' symbol\r
+                       {\r
+                               wcs[i]=0;       w = Puts(buf,0,0,1.f,0x10|font,col);    // find width\r
+                               Puts(buf,-w*(align&3)/2.f,-h - 500.*num/fact[0],1.f,font,col);  // draw it really\r
+                               buf=wcs+i+2;    num++;  if(w>ww)        ww=w;\r
+                       }\r
                }\r
                // draw string itself\r
                w = Puts(buf,0,0,1.f,0x10|font,col);    // find width\r
@@ -158,7 +166,7 @@ float mglFont::Width(const wchar_t *str,int font) const
 {\r
        if(numg==0 || !str || *str==0)  return 0;\r
        float ww=0,w=0;\r
-       unsigned size = wcslen(str)+1,i;\r
+       size_t size = wcslen(str)+1,i;\r
        if(parse)\r
        {\r
                unsigned *wcs = new unsigned[size], *buf=wcs;\r
@@ -166,11 +174,11 @@ float mglFont::Width(const wchar_t *str,int font) const
                Convert(str, wcs);\r
                for(i=0;wcs[i];i++)     if(wcs[i]=='\n')        // parse '\n' symbol\r
                {\r
-                       wcs[i]=0;       w = Puts(buf,0,0,1.,0x10+font,'k');     // find width\r
+                       wcs[i]=0;       w = Puts(buf,0,0,1.,0x10|font,'k');     // find width\r
                        buf=wcs+i+1;    if(w>ww)        ww=w;\r
                }\r
-               w = Puts(buf,0,0,1.,0x10+font,'k');\r
-               if(w>ww)        ww=w;\r
+               w = Puts(buf,0,0,1.,0x10|font,'k');\r
+               if(w<ww)        w=ww;\r
                delete []wcs;\r
        }\r
        else\r
@@ -286,7 +294,7 @@ unsigned mglFont::Parse(const wchar_t *s) const
 //-----------------------------------------------------------------------------\r
 void mglFont::Convert(const wchar_t *str, unsigned *res) const\r
 {\r
-       register unsigned r,i,j,k,i0;\r
+       register size_t r,i,j,k,i0;\r
        wchar_t s[128]=L"", ch;         // TeX command and current char\r
        for(i=j=0;str[i];i++)\r
        {\r
@@ -679,6 +687,7 @@ bool mglFont::read_main(const char *fname, unsigned &cur)
        return true;\r
 }\r
 //-----------------------------------------------------------------------------\r
+extern std::string mglGlobalMess;      ///< Buffer for receiving global messages\r
 bool mglFont::Load(const char *base, const char *path)\r
 {\r
 //     base = 0;\r
@@ -705,8 +714,11 @@ bool mglFont::Load(const char *base, const char *path)
 \r
        sprintf(str,"%s%c%s.vfm",path,sep,base?base:"");\r
        if(!(base && *base) || !read_main(str,cur))\r
-       {       read_def(cur);  setlocale(LC_NUMERIC,oldLocale);\r
-               if(buf) delete []buf;   return true;    }\r
+       {\r
+               mglGlobalMess += "Load built-in font.\n";\r
+               read_def(cur);  setlocale(LC_NUMERIC,oldLocale);\r
+               if(buf) delete []buf;   return true;\r
+       }\r
 \r
        //================== bold ===========================================\r
        sprintf(str,"%s%c%s_b.vfm",path,sep,base);      // this file may absent\r
@@ -742,8 +754,8 @@ mglFont::mglFont(const char *name, const char *path)
 {\r
        parse = true;   numg=0; gr=0;\r
 //     if(this==&mglDefFont)   Load(name, path);       else    Copy(&mglDefFont);\r
-       if(this!=&mglDefFont)   Copy(&mglDefFont);\r
-       else if(name && *name)  Load(name, path);\r
+       if(name && *name)       Load(name, path);\r
+       else if(this!=&mglDefFont)      Copy(&mglDefFont);\r
        else    Load(MGL_DEF_FONT_NAME,0);\r
 }\r
 mglFont::~mglFont()    {       Clear();        }\r

diff --git a/src/obj.cpp b/src/obj.cpp
new file mode 100644 (file)
index 0000000..ba22e18
--- /dev/null
+++ b/src/obj.cpp
@@ -0,0 +1,973 @@
+/***************************************************************************\r
+ * obj.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#include <time.h>\r
+#include "mgl2/canvas.h"\r
+#include "mgl2/canvas_cf.h"\r
+#undef _GR_\r
+#define _GR_   ((mglCanvas *)(*gr))\r
+#define _Gr_   ((mglCanvas *)(gr))\r
+int mgl_tga_save(const char *fname, int w, int h, unsigned char **p);\r
+int mgl_pnga_save(const char *fname, int w, int h, unsigned char **p);\r
+void mgl_printf(void *fp, bool gz, const char *str, ...);\r
+//-----------------------------------------------------------------------------\r
+#include <climits>\r
+#include <cassert>\r
+#include <float.h>\r
+#include <math.h>\r
+\r
+#include <string>\r
+#include <vector>\r
+#include <deque>\r
+#include <list>\r
+#ifdef __GNUC__\r
+#include <ext/slist>\r
+#endif\r
+#include <map>\r
+#include <iostream>\r
+\r
+/* Size prefixes for printf/scanf for size_t and ptrdiff_t */\r
+#ifdef _MSC_VER\r
+#      define PRIuS "Iu"  /* printf size_t */\r
+#      define PRIdS "Id"  /* printf ptrdiff_t */\r
+#else\r
+#      define PRIuS "zu"  /* printf size_t */\r
+#      define PRIdS "zd"  /* printf ptrdiff_t */\r
+#endif\r
+\r
+//-----------------------------------------------------------------------------\r
+void mglTexture::GetRGBAOBJ(unsigned char *f) const\r
+{\r
+       const size_t bw = 128; //border width\r
+       register size_t i,j,i0;\r
+       mglColor c1,c2,c;\r
+       for(i=0;i<256;i++)\r
+       {\r
+               c1 = col[2*i];  c2 = col[2*i+1];\r
+               for(j=0;j<512;j++)\r
+               {\r
+                       i0 = 4*(j+512*(255-i));\r
+                       if (j<bw)\r
+                               c = c1;\r
+                       else if (j>511-bw)\r
+                               c = c2;\r
+                       else\r
+                               c = c1 + (c2-c1)*((j-bw)/(255.));\r
+                       f[i0]   = int(255*c.r);\r
+                       f[i0+1] = int(255*c.g);\r
+                       f[i0+2] = int(255*c.b);\r
+                       f[i0+3] = int(255*c.a);\r
+               }\r
+  }\r
+       \r
+}\r
+\r
+//-----------------------------------------------------------------------------\r
+\r
+struct ObjUV\r
+{\r
+  ObjUV() :\r
+  u(0.0), v(0.0) {}\r
+  ObjUV(mreal U, mreal V) :\r
+  u(U), v(V) {}\r
+  mreal u;\r
+  mreal v;\r
+  \r
+  void Set(mreal U, mreal V)\r
+  { u = U; v = V; }\r
+\r
+  bool operator==(const ObjUV &c) const\r
+  {\r
+    return u==c.u && v==c.v;\r
+  }\r
+  bool operator!=(const ObjUV &c) const\r
+  {\r
+    return !(u==c.u && v==c.v);\r
+  }\r
+  bool operator<(const ObjUV &c) const\r
+  {\r
+    if(u!=c.u)\r
+      return (u<c.u);\r
+    return (v<c.v);\r
+  }\r
+  friend std::ostream& operator << (std::ostream& out, const ObjUV& c)\r
+  {\r
+    out << "vt " << c.u << " " << c.v << "\n";\r
+    return out;\r
+  }\r
+};\r
+\r
+struct ObjUVs {\r
+       std::map<ObjUV,size_t> texturecoords;\r
+  FILE* const fp;\r
+  ObjUVs(FILE *f) : fp(f) {}\r
+\r
+  size_t addTextureCoords(mreal ta, mreal c, size_t ntxt)\r
+       {    \r
+    const mreal gap = 1./512;\r
+    const mreal u = 0.25+0.5*(ta*(1-2*gap)+gap);\r
+    const mreal v = ((c-floor(c))*(1-2*gap) + gap + floor(c))/ntxt;\r
+               \r
+    const ObjUV point(u, v);\r
+    std::map<ObjUV,size_t>::iterator pPoint = texturecoords.find(point);\r
+    if(pPoint!=texturecoords.end())\r
+      return pPoint->second;\r
+    else\r
+    {\r
+      const size_t point_index = texturecoords.size()+1;\r
+      texturecoords.insert(std::make_pair(point,point_index));\r
+      fprintf(fp,"vt %.15g %.15g\n",u,v);\r
+\r
+      return point_index;\r
+    }\r
+       }\r
+\r
+};\r
+\r
+\r
+class ObjXYZ\r
+{\r
+  public :\r
+  mreal x;\r
+  mreal y;\r
+  mreal z;\r
+  ObjXYZ() :\r
+  x(0), y(0), z(0) {}\r
+  ObjXYZ(mreal fx, mreal fy, mreal fz) :\r
+  x(fx), y(fy), z(fz) {}\r
+  \r
+  void Set(mreal fx, mreal fy, mreal fz)\r
+  { x = fx; y = fy; z = fz; }\r
+  mreal Dot(const ObjXYZ & sPt) const\r
+  { return(x*sPt.x)+(y*sPt.y)+(z*sPt.z); }\r
+  mreal LengthSquared()\r
+  { return(x*x+y*y+z*z); }\r
+  \r
+  friend ObjXYZ operator + (const ObjXYZ& a, const ObjXYZ& b)\r
+  { return ObjXYZ(a.x+b.x,a.y+b.y,a.z+b.z); }\r
+  friend ObjXYZ operator - (const ObjXYZ& a)\r
+  { return ObjXYZ(-a.x,-a.y,-a.z); }\r
+  friend ObjXYZ operator - (const ObjXYZ& a, const ObjXYZ& b)\r
+  { return ObjXYZ(a.x-b.x,a.y-b.y,a.z-b.z); }\r
+  friend ObjXYZ operator * (const ObjXYZ& a, const mreal d)\r
+  { return ObjXYZ(a.x*d,a.y*d,a.z*d); }\r
+  friend ObjXYZ operator * (const mreal d, const ObjXYZ& a)\r
+  { return ObjXYZ(a.x*d,a.y*d,a.z*d); }\r
+  friend ObjXYZ operator / (const ObjXYZ& a, const mreal d)\r
+  { return ObjXYZ(a.x/d,a.y/d,a.z/d); }\r
+  friend ObjXYZ operator * (const ObjXYZ& a, const ObjXYZ& b)\r
+  { return ObjXYZ((a.y*b.z)-(a.z*b.y), (a.z*b.x)-(a.x*b.z), (a.x*b.y)-(a.y*b.x)); }\r
+    \r
+  mreal Length()\r
+  {\r
+    return sqrt(x*x+y*y+z*z);\r
+  }\r
+  \r
+  bool Normalize()\r
+  {\r
+    mreal fLength=Length();\r
+    if(fLength < FLT_EPSILON) return false;\r
+    mreal factor=1.0/fLength;\r
+    x *= factor;\r
+    y *= factor;\r
+    z *= factor;\r
+    return true;\r
+  }\r
+  \r
+  bool operator==(const ObjXYZ &v) const\r
+  {\r
+    return x==v.x && y==v.y && z==v.z;\r
+  }\r
+  bool operator!=(const ObjXYZ &v) const\r
+  {\r
+    return !(x==v.x && y==v.y && z==v.z);\r
+  }\r
+  bool operator<(const ObjXYZ &v) const\r
+  {\r
+    if(x!=v.x)\r
+      return (x<v.x);\r
+    if(y!=v.y)\r
+      return (y<v.y);\r
+    return (z<v.z);\r
+  }\r
+  friend std::ostream& operator << (std::ostream& out, const ObjXYZ& v)\r
+  {\r
+    out << "v " << v.x << " " << v.y << " " << v.z << "\n";\r
+    return out;\r
+  }\r
+};\r
+\r
+struct ObjXYZs {\r
+       std::map<ObjXYZ,size_t> vertexcoords;\r
+  FILE* const fp;\r
+  ObjXYZs(FILE *f) : fp(f) {}\r
+  \r
+       size_t addVertexCoords(mreal x, mreal y, mreal z)\r
+       {\r
+               const ObjXYZ point(x,y,z);\r
+    \r
+               std::map<ObjXYZ,size_t>::iterator pPoint = vertexcoords.find(point);\r
+               if(pPoint!=vertexcoords.end())\r
+                       return pPoint->second;\r
+               else\r
+               {\r
+                       const size_t point_index = vertexcoords.size()+1;\r
+                       vertexcoords.insert(std::make_pair(point,point_index));\r
+      fprintf(fp,"v %.15g %.15g %.15g\n",x,y,z);\r
+\r
+                       return point_index;\r
+               }\r
+       }\r
+  \r
+};\r
+\r
+struct ObjTriangle {\r
+  size_t p1, p2, p3;\r
+  size_t t1, t2, t3;\r
+  ObjTriangle() :\r
+    p1(0), p2(0), p3(0), t1(0), t2(0), t3(0) {}\r
+  ObjTriangle(size_t P1, size_t T1, size_t P2, size_t T2, size_t P3, size_t T3) :\r
+    p1(P1), p2(P2), p3(P3), t1(T1), t2(T2), t3(T3) {}\r
+};\r
+\r
+struct ObjLine {\r
+  size_t p1, p2;\r
+  ObjLine() :\r
+  p1(0), p2(0) {}\r
+  ObjLine(size_t P1, size_t P2) :\r
+  p1(P1), p2(P2) {}\r
+};\r
+\r
+struct ObjGroup {\r
+  std::deque<ObjTriangle> triangles;\r
+  mglColor commoncolor;\r
+  bool samecolor;\r
+  std::map<size_t, std::deque<ObjLine> > lines;\r
+  std::map<size_t, std::deque<size_t> > points;\r
+  FILE* const fp;\r
+  ObjXYZs &vertexcoords;\r
+  ObjGroup(FILE *f,ObjXYZs& v) : commoncolor(NC), samecolor(true), fp(f), vertexcoords(v) {}\r
+  \r
+//  const HMGL gr;\r
+  \r
+//  ObjGroup(const HMGL g) : samecolor(true),  gr(g) {}\r
+  \r
+  void addSegment(size_t m, size_t p1, size_t p2)\r
+  {\r
+    lines[m].push_back(ObjLine(p1,p2));\r
+  }\r
+  void addLines(size_t m, size_t n, const size_t* p)\r
+  {\r
+    for (size_t i=0; i<n-1; i++) {\r
+      lines[m].push_back(ObjLine(p[i],p[i+1]));\r
+    }\r
+  }\r
+  void addLines(size_t m, size_t n, const mreal P[][3])\r
+  {\r
+    if(n==0)   return;\r
+    size_t *p=new size_t[n];\r
+    for (size_t i=0; i<n; i++) {\r
+      p[i] = vertexcoords.addVertexCoords(P[i][0], P[i][1], P[i][2]);\r
+    }\r
+    for (size_t i=0; i<n-1; i++) {\r
+      lines[m].push_back(ObjLine(p[i],p[i+1]));\r
+    }\r
+    delete []p;\r
+  }\r
+  \r
+  void addPoint(size_t m, size_t p)\r
+  {\r
+    points[m].push_back(p);\r
+  }\r
+  void addTriangle(size_t p1, size_t t1, size_t p2, size_t t2, size_t p3, size_t t3)\r
+  {\r
+    triangles.push_back(ObjTriangle(p1,t1,p2,t2,p3,t3));\r
+  }\r
+  void addMonoTriangle(size_t t1, size_t p1, size_t p2, size_t p3)\r
+  {\r
+    triangles.push_back(ObjTriangle(p1,t1,p2,t1,p3,t1));\r
+  }\r
+  void addColourInfo(const mglPnt& p)\r
+       {\r
+               const mglColor color(p.r,p.g,p.b,p.a);\r
+    \r
+    if (samecolor) {\r
+      if (commoncolor == NC) {\r
+        commoncolor = color;\r
+      } else {\r
+        if (commoncolor != color)\r
+          samecolor = false;\r
+      }\r
+    }\r
+  }\r
+  void writeLines() {\r
+    for(std::map<size_t, std::deque<ObjLine> >::const_iterator pm = lines.begin(); pm != lines.end(); pm++)\r
+    {\r
+      fprintf(fp,"usemtl Material%"PRIuS"\n", pm->first);\r
+      for(std::deque<ObjLine>::const_iterator pl = pm->second.begin(); pl != pm->second.end(); pl++)\r
+        fprintf(fp,"l %"PRIuS" %"PRIuS"\n", pl->p1, pl->p2);\r
+      }\r
+  }\r
+  void writePoints() {\r
+    for(std::map<size_t, std::deque<size_t> >::const_iterator pm = points.begin(); pm != points.end(); pm++)\r
+    {\r
+      fprintf(fp,"usemtl Material%"PRIuS"\n", pm->first);\r
+      for(std::deque<size_t>::const_iterator pp = pm->second.begin(); pp != pm->second.end(); pp++)\r
+        fprintf(fp,"p %"PRIuS"\n", *pp);\r
+    }\r
+  }\r
+  void writeTriangles() {\r
+    for(std::deque<ObjTriangle>::const_iterator pt = triangles.begin(); pt != triangles.end(); pt++)\r
+      fprintf(fp,"f %"PRIuS" %"PRIuS" %"PRIuS"\n", pt->p1, pt->p2, pt->p3);\r
+  }\r
+  void writeTexturedTriangles() {\r
+    for(std::deque<ObjTriangle>::const_iterator pt = triangles.begin(); pt != triangles.end(); pt++)\r
+      fprintf(fp,"f %"PRIuS"/%"PRIuS" %"PRIuS"/%"PRIuS" %"PRIuS"/%"PRIuS"\n", pt->p1,pt->t1, pt->p2,pt->t2, pt->p3,pt->t3);\r
+  }\r
+};\r
+\r
+struct lt_mglColor\r
+{\r
+  bool operator()(const mglColor& c1, const mglColor& c2) const\r
+  {\r
+    if(c1.r!=c2.r)\r
+      return (c1.r<c2.r);\r
+    if(c1.g!=c2.g)\r
+      return (c1.g<c2.g);\r
+    if(c1.b!=c2.b)\r
+      return (c1.b<c2.b);\r
+    if(c1.a!=c2.a)\r
+      return (c1.a<c2.a);\r
+    return false;\r
+  }\r
+};\r
+\r
+typedef std::map<mglColor,size_t,lt_mglColor> colormap;\r
+\r
+\r
+struct ObjMaterials {\r
+       colormap materialmap;\r
+  FILE* const fp;\r
+  ObjMaterials(FILE *f) : fp(f) {}\r
+  \r
+       size_t addColor(const mglColor& color)\r
+       {\r
+               colormap::iterator pc = materialmap.find(color);\r
+               if(pc!=materialmap.end())\r
+                       return pc->second;\r
+               else\r
+               {\r
+                       const size_t color_index = materialmap.size();\r
+                       materialmap.insert(std::make_pair(color,color_index));\r
+      fprintf(fp,"newmtl Material%"PRIuS"\n", color_index);\r
+      fprintf(fp,"Ka 0.1 0.1 0.1\n");\r
+      fprintf(fp,"Kd %g %g %g\n", color.r, color.g, color.b);\r
+      fprintf(fp,"Ks 0.0 0.0 0.0\n");\r
+      fprintf(fp,"d %g\nillum 2\nNs 15.0\n",color.a);\r
+\r
+                       return color_index;\r
+               }\r
+       }\r
+       size_t addColor(mreal r, mreal g, mreal b, mreal a)\r
+       {\r
+               const mglColor color(r,g,b,a);\r
+    return addColor(color);\r
+  }\r
+       size_t addColorInfo(const mglPnt& p)\r
+       {\r
+               return addColor(p.r,p.g,p.b,p.a);\r
+  }\r
+};\r
+\r
+\r
+static size_t power_of_two(size_t input)\r
+{\r
+       size_t value = 1;\r
+       while ( value < input ) {\r
+               value <<= 1;\r
+       }\r
+       return value;\r
+}\r
+\r
+\r
+void mgl_write_obj(HMGL gr, const char *fname,const char *descr, int use_png)\r
+{\r
+       if(gr->GetPrmNum()==0)  return; // nothing to do\r
+  \r
+       register size_t i,j;\r
+       {\r
+               long mmin=0,mmax=0,m;\r
+               for(i=0;i<gr->Grp.size();i++)   // prepare array of indirect indexing\r
+               {       m = gr->Grp[i].Id;      if(m<mmin) mmin=m;      if(m>mmax) mmax=m;      }\r
+               long *ng = new long[mmax-mmin+1];\r
+               for(i=0;i<gr->Grp.size();i++)   ng[gr->Grp[i].Id-mmin] = i;\r
+               for(i=0;i<size_t(gr->GetPrmNum());i++)  // collect data for groups\r
+               // it is rather expensive (extra 4b per primitive) but need for export to 3D\r
+               {\r
+                       m = gr->GetPrm(i).id-mmin;\r
+                       if(m>=0 && m<mmax-mmin+1)       gr->Grp[ng[m]].p.push_back(i);\r
+               }\r
+               delete []ng;\r
+       }\r
+  \r
+       const size_t len=strlen(fname);\r
+       const size_t ntxt=gr->GetTxtNum();\r
+       const size_t Ntxt=power_of_two(ntxt);\r
+       const size_t pntnum = gr->GetPntNum();\r
+       char *tname = new char[len+5];  strcpy(tname,fname);\r
+       FILE *fp=fopen(fname,"wt");\r
+       ObjXYZs vertexcoords(fp);\r
+       std::vector<size_t> vcs(pntnum); // vertex coord ids\r
+       ObjUVs texturecoords(fp);\r
+       std::vector<size_t> tcs(pntnum); // texture coord ids\r
+\r
+  // center point\r
+  mglPnt p0;\r
+       const mreal width  = dynamic_cast<mglCanvas *>(gr)->GetWidth();\r
+       const mreal height = dynamic_cast<mglCanvas *>(gr)->GetHeight();\r
+       const mreal depth  = sqrt(width*height);\r
+  \r
+       p0.x = width/2.;\r
+       p0.y = height/2.;\r
+       p0.z = (1.f-sqrt(width*height)/(2*depth))*depth;\r
+\r
+       // vertices definition\r
+       fprintf(fp,"# Created by MathGL library\n# Title: %s\n",(descr && *descr) ? descr : fname);\r
+       for(i=0;i<pntnum;i++)\r
+       {\r
+               const mglPnt &pp = gr->GetPnt(i);\r
+    vcs[i] = vertexcoords.addVertexCoords(pp.x-p0.x, pp.y-p0.y, pp.z-p0.z);\r
+    tcs[i] = texturecoords.addTextureCoords(pp.ta, pp.c, Ntxt);\r
+       }\r
+  \r
+  // prepare MTL file\r
+       tname[len-4]='.';       tname[len-3]='m';       tname[len-2]='t';       tname[len-1]='l';\r
+       FILE *fpmat=fopen(tname,"wt");\r
+       tname[len-4]='\0';\r
+  fprintf(fpmat,"newmtl Material\n");\r
+       fprintf(fpmat,"Ka 0.0 0.0 0.0\n");\r
+       fprintf(fpmat,"Kd 1.0 1.0 1.0\n");\r
+       fprintf(fpmat,"Ks 0.0 0.0 0.0\n");\r
+       fprintf(fpmat,"d 1.0\nillum 2\n");\r
+       if(use_png)\r
+    fprintf(fpmat,"map_Kd %s_txt.png\n",tname);\r
+       else\r
+    fprintf(fpmat,"map_Kd %s_txt.tga\n",tname);\r
+       if(use_png)\r
+    strcat(tname,"_txt.png");\r
+       else\r
+               strcat(tname,"_txt.tga");\r
+       // prepare texture file (TGA or PNG)\r
+       const size_t txtwidth = 512;\r
+       unsigned char *buf = new unsigned char[4*256*txtwidth*Ntxt];\r
+       unsigned char **pbuf= (unsigned char **)malloc(256*Ntxt*sizeof(unsigned char *));\r
+       for(i=0;i<256*Ntxt;i++) pbuf[i] = buf+4*txtwidth*i;\r
+       for(i=0;i<ntxt;i++)     gr->GetTxt(i).GetRGBAOBJ(buf+(Ntxt-1-i)*256*txtwidth*4);\r
+       for(i=ntxt;i<Ntxt;i++)\r
+  {\r
+    unsigned char *f=buf+(Ntxt-1-i)*256*txtwidth*4;\r
+    const mglColor& c=BC;\r
+    for(size_t k=0;k<256;k++)\r
+    {\r
+      for(size_t l=0;l<txtwidth;l++)\r
+      {\r
+        *f++ = int(255*c.r);\r
+        *f++ = int(255*c.g);\r
+        *f++ = int(255*c.b);\r
+        *f++ = int(255*c.a);\r
+      }\r
+    }\r
+  }\r
+       if(use_png)\r
+    mgl_pnga_save(tname,txtwidth,256*Ntxt,pbuf);\r
+       else\r
+               mgl_tga_save(tname,txtwidth,256*Ntxt,pbuf);\r
+       free(pbuf);\r
+       delete []buf;\r
+  \r
+  ObjMaterials materials(fpmat);\r
+  \r
+       // primitive definition in groups\r
+  \r
+       tname[len-4]='\0';\r
+       fprintf(fp,"# Primitives Definitions\nmtllib %s.mtl\n",tname);\r
+       for(i=0;i<gr->Grp.size();i++)\r
+       {\r
+               std::vector<long> &p = gr->Grp[i].p;\r
+    ObjGroup grp(fp, vertexcoords);\r
+               for(j=0;j<p.size();j++)\r
+               {\r
+                       const mglPrim &q = gr->GetPrm(p[j]);\r
+\r
+      register long n1=q.n1,n2=q.n2,n3=q.n3,n4=q.n4;\r
+      switch(q.type)\r
+      {\r
+        case 0:\r
+        if (gr->GetPnt(q.n1).a > mgl_min_a) {\r
+          const mglPnt p = gr->GetPnt(q.n1) - p0;\r
+          const mreal size = q.s*gr->FontFactor();\r
+          const char type = q.n4;\r
+          mreal ss=size*0.35;\r
+          const mglColor c(p.r, p.g, p.b, p.a);\r
+          \r
+          if(!strchr("xsSoO",type))    ss *= 1.1;\r
+          if(type=='.' || ss==0)\r
+          {\r
+            const size_t m = materials.addColor(c);\r
+            grp.addPoint(m, vcs[n1]);\r
+          }\r
+          else\r
+           switch(type)\r
+           {\r
+              case 'P':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[5][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y-ss,p.z }\r
+                };\r
+                grp.addLines(m, 5, P);\r
+              }\r
+              case '+':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P1[2][3] =\r
+                {\r
+                  { p.x-ss,p.y,p.z },\r
+                  { p.x+ss,p.y,p.z }\r
+                };\r
+                grp.addLines(m, 2, P1);\r
+                const mreal P2[2][3] =\r
+                {\r
+                  { p.x,p.y-ss,p.z },\r
+                  { p.x,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P2);\r
+              }\r
+                break;\r
+              case 'X':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[5][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y-ss,p.z }\r
+                };\r
+                grp.addLines(m, 5, P);\r
+                const mreal P1[2][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P1);\r
+                const mreal P2[2][3] =\r
+                {\r
+                  { p.x+ss,p.y-ss,p.z },\r
+                  { p.x-ss,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P2);\r
+              }\r
+                break;\r
+              case 'x':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P1[2][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P1);\r
+                const mreal P2[2][3] =\r
+                {\r
+                  { p.x+ss,p.y-ss,p.z },\r
+                  { p.x-ss,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P2);\r
+              }\r
+                break;\r
+              case 'S':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x-ss,p.y-ss,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x+ss,p.y-ss,p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x-ss,p.y+ss,p.z);\r
+                const size_t pi4 = vertexcoords.addVertexCoords(p.x+ss,p.y+ss,p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+                grp.addTriangle(pi4, ti, pi3, ti, pi2, ti);\r
+              }\r
+                break;\r
+              case 's':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[5][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y-ss,p.z },\r
+                  { p.x+ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y+ss,p.z },\r
+                  { p.x-ss,p.y-ss,p.z }\r
+                };\r
+                grp.addLines(m, 5, P);\r
+              }\r
+                break;\r
+              case 'D':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x,p.y-ss,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x+ss,p.y,p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x-ss,p.y,p.z);\r
+                const size_t pi4 = vertexcoords.addVertexCoords(p.x,p.y+ss,p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+                grp.addTriangle(pi4, ti, pi3, ti, pi2, ti);\r
+              }\r
+                break;\r
+              case 'd':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[5][3] =\r
+                {\r
+                  { p.x,p.y-ss,p.z },\r
+                  { p.x+ss,p.y,p.z },\r
+                  { p.x,p.y+ss,p.z },\r
+                  { p.x-ss,p.y,p.z },\r
+                  { p.x,p.y-ss,p.z }\r
+                };\r
+                grp.addLines(m, 5, P);\r
+              }\r
+                break;\r
+              case 'Y':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P1[3][3] =\r
+                {\r
+                  { p.x,                        p.y-ss,                p.z },\r
+                  { p.x,                        p.y,                    p.z },\r
+                  { p.x+0.8*ss,p.y+0.6*ss,p.z }\r
+                };\r
+                grp.addLines(m, 3, P1);\r
+                const mreal P2[2][3] =\r
+                {\r
+                  { p.x,                        p.y,                    p.z },\r
+                  { p.x-0.8*ss,p.y+0.6*ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P2);\r
+              }\r
+                break;\r
+              case '*':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P1[2][3] =\r
+                {\r
+                  { p.x-ss,p.y,p.z },\r
+                  { p.x+ss,p.y,p.z }\r
+                };\r
+                grp.addLines(m, 2, P1);\r
+                const mreal P2[2][3] =\r
+                {\r
+                  { p.x-0.6*ss,p.y-0.8*ss,p.z },\r
+                  { p.x+0.6*ss,p.y+0.8*ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P2);\r
+                const mreal P3[2][3] =\r
+                {\r
+                  { p.x-0.6*ss,p.y+0.8*ss,p.z },\r
+                  { p.x+0.6*ss,p.y-0.8*ss,p.z }\r
+                };\r
+                grp.addLines(m, 2, P3);\r
+                \r
+              }\r
+                break;\r
+              case 'T':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x-ss,p.y-ss/2,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x+ss,p.y-ss/2,p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x,p.y+ss,p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+              }\r
+                break;\r
+              case '^':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[4][3] =\r
+                {\r
+                  { p.x-ss,p.y-ss/2,p.z },\r
+                  { p.x+ss,p.y-ss/2,p.z },\r
+                  { p.x,        p.y+ss,        p.z },\r
+                  { p.x-ss,p.y-ss/2,p.z }\r
+                };\r
+                grp.addLines(m, 4, P);\r
+              }\r
+                break;\r
+              case 'V':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x-ss,p.y+ss/2,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x,p.y-ss,p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x+ss,p.y+ss/2,p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+              }\r
+                break;\r
+              case 'v':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[4][3] =\r
+                {\r
+                  { p.x-ss,p.y+ss/2,p.z },\r
+                  { p.x+ss,p.y+ss/2,p.z },\r
+                  { p.x,        p.y-ss,        p.z },\r
+                  { p.x-ss,p.y+ss/2,p.z }\r
+                };\r
+                grp.addLines(m, 4, P);\r
+              }\r
+                break;\r
+              case 'L':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x+ss/2,p.y+ss,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x-ss,        p.y,     p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x+ss/2,p.y-ss,p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+              }\r
+                break;\r
+              case '<':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[4][3] =\r
+                {\r
+                  { p.x+ss/2,p.y+ss,p.z },\r
+                  { p.x+ss/2,p.y-ss,p.z },\r
+                  { p.x-ss,    p.y,     p.z },\r
+                  { p.x+ss/2,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 4, P);\r
+              }\r
+                break;\r
+              case 'R':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t pi1 = vertexcoords.addVertexCoords(p.x-ss/2,p.y+ss,p.z);\r
+                const size_t pi2 = vertexcoords.addVertexCoords(p.x-ss/2,p.y-ss,p.z);\r
+                const size_t pi3 = vertexcoords.addVertexCoords(p.x+ss,        p.y,     p.z);\r
+                \r
+                grp.addTriangle(pi1, ti, pi2, ti, pi3, ti);\r
+              }\r
+                break;\r
+              case '>':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                const mreal P[4][3] =\r
+                {\r
+                  { p.x-ss/2,p.y+ss,p.z },\r
+                  { p.x-ss/2,p.y-ss,p.z },\r
+                  { p.x+ss,    p.y,     p.z },\r
+                  { p.x-ss/2,p.y+ss,p.z }\r
+                };\r
+                grp.addLines(m, 4, P);\r
+              }\r
+                break;\r
+              case 'O':\r
+              {\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                \r
+                const size_t cpi=vertexcoords.addVertexCoords(p.x, p.y, p.z);\r
+                size_t pnti[21];\r
+                for(size_t k=0;k<=20;k++)\r
+                  pnti[k]=vertexcoords.addVertexCoords(p.x+ss*cos(k*M_PI/10),p.y+ss*sin(k*M_PI/10),p.z);\r
+                for(size_t k=0;k<=20;k++) {\r
+                  grp.addTriangle(pnti[k], ti, pnti[k+1], ti, cpi, ti);\r
+                }\r
+              }\r
+                break;\r
+              case 'C':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                grp.addPoint(m, vcs[n1]);\r
+              }\r
+              case 'o':\r
+              {\r
+                const size_t m = materials.addColor(c);\r
+                mreal P[21][3];\r
+                for(size_t k=0;k<=20;k++) {\r
+                  P[k][0] = p.x+ss*cos(k*M_PI/10);\r
+                  P[k][1] = p.y+ss*sin(k*M_PI/10);\r
+                  P[k][2] = p.z;\r
+                }\r
+                grp.addLines(m, 21, P);\r
+              }\r
+                break;\r
+            } \r
+        }\r
+          break;\r
+        case 1:\r
+        if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a) {\r
+          const mglPnt& p1 = gr->GetPnt(q.n1);\r
+          const mglPnt& p2 = gr->GetPnt(q.n2);\r
+          const size_t m = materials.addColor((p1.r+p2.r)/2, (p1.g+p2.g)/2, (p1.b+p2.b)/2, (p1.a+p2.a)/2);\r
+          grp.addSegment(m, vcs[n1], vcs[n2]);\r
+        }\r
+          break;\r
+        case 2:\r
+        if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a || gr->GetPnt(q.n3).a > mgl_min_a) {\r
+          grp.addTriangle(vcs[n1],tcs[n1], vcs[n2],tcs[n2], vcs[n3],tcs[n3]);\r
+          grp.addColourInfo(gr->GetPnt(n1));\r
+          grp.addColourInfo(gr->GetPnt(n2));\r
+          grp.addColourInfo(gr->GetPnt(n3));\r
+        }\r
+          break;\r
+        case 3:\r
+        if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a || gr->GetPnt(q.n3).a > mgl_min_a || gr->GetPnt(q.n4).a > mgl_min_a) {\r
+          grp.addTriangle(vcs[n1],tcs[n1], vcs[n2],tcs[n2], vcs[n3],tcs[n3]);\r
+          grp.addTriangle(vcs[n2],tcs[n2], vcs[n4],tcs[n4], vcs[n3],tcs[n3]);\r
+          grp.addColourInfo(gr->GetPnt(n1));\r
+          grp.addColourInfo(gr->GetPnt(n2));\r
+          grp.addColourInfo(gr->GetPnt(n3));\r
+          grp.addColourInfo(gr->GetPnt(n4));\r
+        }\r
+          break;\r
+        case 4:\r
+        {\r
+          const mglPnt p = gr->GetPnt(q.n1) - p0;\r
+\r
+          const mreal f = q.p/2, dx=p.u/2, dy=p.v/2;\r
+          const mreal c=q.s*cos(q.w*M_PI/180), s=-q.s*sin(q.w*M_PI/180);\r
+          const double b[4] = {c,-s, s,c};\r
+          long ik,il=0;\r
+          \r
+          const mglGlyph &g = gr->GetGlf(q.n4);\r
+          const mreal dd = 0.004;\r
+          if(q.n3&8)\r
+          {\r
+            const size_t p_4 = vertexcoords.addVertexCoords(p.x+b[0]*dx+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+            const size_t p_3 = vertexcoords.addVertexCoords(p.x+b[0]*dx+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+            const size_t p_2 = vertexcoords.addVertexCoords(p.x+b[0]*(dx+f)+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+            const size_t p_1 = vertexcoords.addVertexCoords(p.x+b[0]*(dx+f)+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+            \r
+            if(!(q.n3&4))      // glyph_line(p,f,true, d);\r
+            {\r
+              const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+              grp.addMonoTriangle(ti, p_1, p_3, p_2);\r
+              grp.addMonoTriangle(ti, p_4, p_2, p_3);\r
+            }\r
+            else       // glyph_line(p,f,false, d);\r
+            {\r
+              const size_t m = materials.addColor(p.r, p.g, p.b, p.a);\r
+              grp.addSegment(m, p_1, p_2);\r
+              grp.addSegment(m, p_3, p_4);\r
+              grp.addSegment(m, p_1, p_3);\r
+              grp.addSegment(m, p_2, p_4);\r
+            }\r
+          }\r
+          else\r
+          {\r
+            if(!(q.n3&4))      // glyph_fill(p,f,g, d);\r
+            {\r
+              for(ik=0;ik<g.nt;ik++)\r
+              {\r
+                mreal x,y;\r
+                x = dx+f*g.trig[6*ik];         y = dy+f*g.trig[6*ik+1];\r
+                const size_t p_3 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                x = dx+f*g.trig[6*ik+2];       y = dy+f*g.trig[6*ik+3];\r
+                const size_t p_2 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                x = dx+f*g.trig[6*ik+4];       y = dy+f*g.trig[6*ik+5];\r
+                const size_t p_1 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+\r
+                const size_t ti = tcs[n1]; grp.addColourInfo(p);\r
+                grp.addMonoTriangle(ti, p_1, p_3, p_2);\r
+              }\r
+            }\r
+            else       // glyph_wire(p,f,g, d);\r
+            {\r
+              const size_t m = materials.addColor(p.r, p.g, p.b, p.a);\r
+              for(ik=0;ik<g.nl;ik++)\r
+              {\r
+                mreal x,y;\r
+                x = g.line[2*ik];      y = g.line[2*ik+1];\r
+                if(x==0x3fff && y==0x3fff)     // line breakthrough\r
+                {      il = ik+1;      continue;       }\r
+                else if(ik==g.nl-1 || (g.line[2*ik+2]==0x3fff && g.line[2*ik+3]==0x3fff))\r
+                {      // enclose the circle. May be in future this block should be commented\r
+                  x = dx+f*g.line[2*ik];               y = dy+f*g.line[2*ik+1];\r
+                  const size_t p_2 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                  x = dx+f*g.line[2*il];               y = dy+f*g.line[2*il+1];\r
+                  const size_t p_1 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                  grp.addSegment(m, p_1, p_2);\r
+                }\r
+                else\r
+                {      // normal line\r
+                  x = dx+f*g.line[2*ik];               y = dy+f*g.line[2*ik+1];\r
+                  const size_t p_2 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                  x = dx+f*g.line[2*ik+2];     y = dy+f*g.line[2*ik+3];\r
+                  const size_t p_1 = vertexcoords.addVertexCoords(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                  grp.addSegment(m, p_1, p_2);\r
+                }\r
+\r
+              }\r
+            }\r
+          }\r
+\r
+        }\r
+          break;\r
+      }\r
+               }\r
+    if (!grp.triangles.empty() || !grp.lines.empty() || !grp.points.empty())\r
+      fprintf(fp,"g %s\n",gr->Grp[i].Lbl.c_str());\r
+\r
+    if (!grp.triangles.empty()) {\r
+      if (grp.samecolor) {\r
+        fprintf(fp,"usemtl Material%"PRIuS"\n", materials.addColor(grp.commoncolor));\r
+        grp.writeTriangles();\r
+      } else {\r
+        fprintf(fp,"usemtl Material\n");\r
+        grp.writeTexturedTriangles();\r
+      }\r
+    }\r
+    grp.writeLines();\r
+    grp.writePoints();\r
+    \r
+               gr->Grp[i].p.clear();   // we don't need indexes anymore\r
+       }\r
+       fclose(fp);\r
+       fclose(fpmat);\r
+  delete []tname;\r
+}\r
+\r
+void mgl_write_obj_(uintptr_t *gr, const char *fname,const char *descr, int *use_png,int l,int n)\r
+{      char *s=new char[l+1];  memcpy(s,fname,l);      s[l]='\0';\r
+       char *d=new char[n+1];  memcpy(d,descr,n);      d[n]='\0';\r
+       mgl_write_obj(_GR_,s,d,*use_png);       delete []s;             delete []d;     }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/opengl.cpp b/src/opengl.cpp
index fb233aac042c48ee3ab5d9210bedfab5718f43cb..31f78f28a8a2e74047bd7b16b0d645934372fe57 100644 (file)
--- a/src/opengl.cpp
+++ b/src/opengl.cpp
@@ -35,7 +35,7 @@ void mglCanvasGL::Finish(bool fast)
                int pdef=PDef;\r
                mreal ss=pPos, ww=PenWidth;\r
                mglPrim p;\r
-               for(unsigned long i=0;i<Prm.size();i++)\r
+               for(size_t i=0;i<Prm.size();i++)\r
                {\r
                        p=Prm[i];       PDef=p.n3;      pPos=p.s;       PenWidth=p.w;\r
                        switch(p.type)\r
@@ -141,6 +141,14 @@ void mglCanvasGL::LightScale()
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
+void mglCanvasGL::Zoom(mreal x1, mreal y1, mreal x2, mreal y2)\r
+{\r
+       glMatrixMode(GL_PROJECTION);//GL_PROJECTION GL_VIEWPORT GL_MODELVIEW\r
+       glLoadIdentity();\r
+       glScaled(x2-x1,y2-y1,1);\r
+       glTranslated((x1+x2-1)/2,(y1+y2-1)/2,0);\r
+}\r
+//-----------------------------------------------------------------------------\r
 void mglCanvasGL::View(mreal TetX,mreal TetY,mreal TetZ)\r
 {\r
        glMatrixMode(GL_PROJECTION);//GL_PROJECTION GL_VIEWPORT GL_MODELVIEW\r
@@ -175,8 +183,8 @@ void mglCanvasGL::Clf(mglColor Back)
 \r
        glMatrixMode(GL_MODELVIEW);//GL_MODELVIEW GL_VIEWPORT GL_PROJECTION\r
        glLoadIdentity();\r
-       glScaled(2,2,1.5);\r
-       glTranslated(-0.5,-0.5,-0.5);\r
+//     glScaled(1.5,1.5,1.5);\r
+//     glTranslated(-0.5,-0.5,-0.5);\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvasGL::set_pen(unsigned style,mreal width)\r
@@ -242,7 +250,7 @@ void mglCanvasGL::quad_draw(long k1, long k2, long k3, long k4, mglDrawReg *)
 void mglCanvasGL::line_draw(long k1, long k2, mglDrawReg *)\r
 {\r
        if(k1<0 || k2<0 || PDef==0)     return;\r
-/*     unsigned long pdef = PDef*0x10001;\r
+/*     unsigned pdef = PDef*0x10001;\r
        pdef = pdef << (int(100*pPos+0.5)%16);\r
        set_pen(pdef&0xffff,PenWidth);*/\r
        set_pen(PDef,PenWidth);\r

diff --git a/src/other.cpp b/src/other.cpp
index ed19dd3cedb29539e979b32a8e5dfe92f830dbb8..0f092efca19049134407ce8b2e806d1731623fa2 100644 (file)
--- a/src/other.cpp
+++ b/src/other.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * other.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -27,7 +27,7 @@
 //     DensX, DensY, DensZ series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_dens_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_dens_x(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -58,7 +58,7 @@ void mgl_dens_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        mgl_surfc_xy(gr,&xx,&yy,&zz,a,sch,0);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_dens_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_dens_y(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -89,7 +89,7 @@ void mgl_dens_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        mgl_surfc_xy(gr,&xx,&yy,&zz,a,sch,0);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_dens_z(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_dens_z(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -141,7 +141,7 @@ void mgl_dens_z_(uintptr_t *gr, uintptr_t *a, const char *sch, mreal *sv, const
 //\r
 //-----------------------------------------------------------------------------\r
 void mgl_cont_gen(HMGL gr, mreal val, HCDT a, HCDT x, HCDT y, HCDT z, mreal c, int text,long ak);\r
-void mgl_cont_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -151,7 +151,7 @@ void mgl_cont_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        static int cgid=1;      gr->StartGroup("ContX",cgid++);\r
        mglData xx,yy,zz,aa;\r
 \r
-       bool text=(sch && strchr(sch,'t'));\r
+       bool text=(mglchr(sch,'t'));\r
        long ss=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -182,7 +182,7 @@ void mgl_cont_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -192,7 +192,7 @@ void mgl_cont_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        static int cgid=1;      gr->StartGroup("ContY",cgid++);\r
        mglData xx,yy,zz,aa;\r
 \r
-       bool text=(sch && strchr(sch,'t'));\r
+       bool text=(mglchr(sch,'t'));\r
        long ss=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -223,7 +223,7 @@ void mgl_cont_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -233,7 +233,7 @@ void mgl_cont_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        static int cgid=1;      gr->StartGroup("ContZ",cgid++);\r
        mglData xx,yy,zz,aa;\r
 \r
-       bool text=(sch && strchr(sch,'t'));\r
+       bool text=(mglchr(sch,'t'));\r
        long ss=gr->AddTexture(sch);\r
        gr->SetPenPal(sch);\r
 \r
@@ -263,7 +263,7 @@ void mgl_cont_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const ch
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_x(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r
@@ -273,7 +273,7 @@ void mgl_cont_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_y(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r
@@ -283,7 +283,7 @@ void mgl_cont_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_cont_z(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_cont_z(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r
@@ -328,7 +328,7 @@ void mgl_cont_z_val_(uintptr_t *gr, uintptr_t *v, uintptr_t *a, const char *sch,
 //\r
 //-----------------------------------------------------------------------------\r
 void mgl_contf_gen(HMGL gr, mreal v1, mreal v2, HCDT a, HCDT x, HCDT y, HCDT z, mreal c, long ak);\r
-void mgl_contf_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -366,7 +366,7 @@ void mgl_contf_x_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const c
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -404,7 +404,7 @@ void mgl_contf_y_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const c
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        register long i,j,k,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        if(mgl_isnan(sv))       sv = gr->GetOrgX('x');\r
@@ -441,7 +441,7 @@ void mgl_contf_z_val(HMGL gr, HCDT v, HCDT a, const char *sch, mreal sv, const c
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_x(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r
@@ -450,7 +450,7 @@ void mgl_contf_x(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_y(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r
@@ -459,7 +459,7 @@ void mgl_contf_y(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_contf_z(HMGL gr, HCDT a, const char *sch, mreal sv, const char *opt)\r
+void mgl_contf_z(HMGL gr, HCDT a, const char *sch, double sv, const char *opt)\r
 {\r
        mreal r = gr->SaveState(opt);\r
        long Num = (mgl_isnan(r) || r<=0) ? 7:long(r+0.5);\r

diff --git a/src/parser.cpp b/src/parser.cpp
index 3e8af72bc568f301d16f38b1769324a5e9708624..fac8f1ec67d307858a11eee3692e60034e0adbc6 100644 (file)
--- a/src/parser.cpp
+++ b/src/parser.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * parse.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -43,6 +43,21 @@ mglFunc::mglFunc(long p, const wchar_t *f)
        if(narg<0 || narg>9)    narg=0;
 }
 //-----------------------------------------------------------------------------
+size_t mglParser::GetParLen()
+{
+       register size_t i,s=0,t;
+       for(i=0;i<40;i++)
+       {       t = par[i].length();    s = s<t?t:s;    }
+       return s;
+}
+//-----------------------------------------------------------------------------
+size_t mglParser::GetParLen(const wchar_t *str)
+{
+       register size_t nump=0, is;
+       for(is=0;is<wcslen(str);is++)   if(str[is]=='$')        nump++;
+       return nump*GetParLen();
+}
+//-----------------------------------------------------------------------------
 long mglParser::IsFunc(const wchar_t *name, int *na)
 {
        register size_t i;
@@ -90,6 +105,8 @@ bool check_for_name(const wchar_t *s)
 //-----------------------------------------------------------------------------
 mglCommand *mglParser::FindCommand(const char *com)
 {
+       if(!AllowFileIO && ( !strncmp(com,"read",4) || !strncmp(com,"save",4) || !strcmp(com,"fgets") || !strcmp(com,"import") || !strcmp(com,"export") ))
+               return 0;
        mglCommand tst, *rts, *cmd = Cmd;
        long i;
        for(i=0;cmd[i].name[0];i++);    // determine the number of symbols
@@ -100,7 +117,8 @@ mglCommand *mglParser::FindCommand(const char *com)
 //-----------------------------------------------------------------------------
 mglCommand *mglParser::FindCommand(const wchar_t *com)
 {
-       char cmd[16];   wcstombs(cmd,com,wcslen(com)+1);
+       size_t s = 15<wcslen(com)?15:wcslen(com);
+       char cmd[16];   wcstombs(cmd,com,s+1);  cmd[s]=0;
        return FindCommand(cmd);
 }
 //-----------------------------------------------------------------------------
@@ -116,8 +134,8 @@ int mglParser::Exec(mglGraph *gr, const wchar_t *com, long n, mglArg *a, const w
        {
                if(n<1 || check_for_name(var))  return 2;
                mglVar *v = AddVar(var);
-               v->d.Create(1,1,1);
-               a[0].type = 0;  a[0].d = &(v->d);
+               v->Create(1,1,1);
+               a[0].type = 0;  a[0].d = v;
                a[0].w = var;   k[0] = 1;
        }
        char *o=0;
@@ -133,27 +151,6 @@ int mglParser::Exec(mglGraph *gr, const wchar_t *com, long n, mglArg *a, const w
        return res;
 }
 //-----------------------------------------------------------------------------
-void mglVar::MoveAfter(mglVar *var)
-{
-       if(prev)        prev->next = next;
-       if(next)        next->prev = prev;
-       prev = next = 0;
-       if(var)
-       {
-               prev = var;     next = var->next;
-               var->next = this;
-               if(func==0)     func = var->func;
-       }
-       if(next)        next->prev = this;
-}
-//-----------------------------------------------------------------------------
-mglVar::~mglVar()
-{
-       if(func)        func(o);
-       if(prev)        prev->next = next;
-       if(next)        next->prev = prev;
-}
-//-----------------------------------------------------------------------------
 void mglNum::MoveAfter(mglNum *var)
 {
        if(prev)        prev->next = next;
@@ -172,48 +169,51 @@ mglNum::~mglNum()
 //-----------------------------------------------------------------------------
 mglParser::mglParser(bool setsize)
 {
-       DataList=0;     NumList=0;      fn_stack=0;
+       DataList=0;     NumList=0;
 //     wchar_t *par[40];       ///< Parameter for substituting instead of $1, ..., $9
-       out=0;  *leg=0; InUse = 1;
+       out=0;  InUse = 1;
        Skip=Stop=for_br=false;
        memset(for_stack,0,40*sizeof(int));
        memset(if_stack,0,40*sizeof(int));
        memset(if_for,0,40*sizeof(int));
-       if_pos=fn_pos=fn_num=for_addr=0;
-       for(long i=0;i<40;i++)  par[i]=0;
+       if_pos=for_addr=0;
+       for(long i=0;i<40;i++)  par[i]=L"";
 
        Cmd = mgls_base_cmd;
-       AllowSetSize=setsize;
-       Once = true;    parlen=320;
+       AllowSetSize=setsize;   AllowFileIO=true;
+       Once = true;
        op1 = new wchar_t[4096];        op2 = new wchar_t[4096];
        fval = new mglData[40];
 }
 //-----------------------------------------------------------------------------
 mglParser::~mglParser()
+{
+       DeleteAll();
+       delete []op1;   delete []op2;   delete []fval;
+       if(Cmd && Cmd!=mgls_base_cmd)   delete []Cmd;
+}
+//-----------------------------------------------------------------------------
+void mglParser::DeleteAll()
 {
        if(DataList)
        {
                while(DataList->next)   delete DataList->next;
                delete DataList;
        }
-       for(long i=0;i<40;i++)  if(par[i])      delete [](par[i]);
-       delete []op1;   delete []op2;   delete []fval;
-       if(Cmd && Cmd!=mgls_base_cmd)   delete []Cmd;
-       if(fn_stack)    free(fn_stack);
 }
 //-----------------------------------------------------------------------------
-bool mglParser::AddParam(int n, const char *str, bool isstr)
+void mglParser::AddParam(int n, const char *str)
 {
        unsigned s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
-       bool r = AddParam(n,wcs,isstr);
-       delete []wcs;   return r;
+       AddParam(n,wcs);
+       delete []wcs;
 }
 //-----------------------------------------------------------------------------
 int mglParser::Parse(mglGraph *gr, const char *str, long pos)
 {
-       unsigned s = strlen(str)+1;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
        int r = Parse(gr,wcs,pos);
@@ -222,7 +222,7 @@ int mglParser::Parse(mglGraph *gr, const char *str, long pos)
 //-----------------------------------------------------------------------------
 mglVar *mglParser::AddVar(const char *str)
 {
-       unsigned s = strlen(str)+1;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
        mglVar *v = AddVar(wcs);
@@ -232,7 +232,8 @@ mglVar *mglParser::AddVar(const char *str)
 //-----------------------------------------------------------------------------
 mglVar *mglParser::FindVar(const char *str)
 {
-       unsigned s = strlen(str)+1;
+       if(!str || *str==0)     return DataList;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
        mglVar *v = FindVar(wcs);
@@ -242,7 +243,7 @@ mglVar *mglParser::FindVar(const char *str)
 //-----------------------------------------------------------------------------
 mglNum *mglParser::AddNum(const char *str)
 {
-       unsigned s = strlen(str)+1;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
        mglNum *v = AddNum(wcs);
@@ -252,7 +253,7 @@ mglNum *mglParser::AddNum(const char *str)
 //-----------------------------------------------------------------------------
 mglNum *mglParser::FindNum(const char *str)
 {
-       unsigned s = strlen(str)+1;
+       size_t s = strlen(str)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,str,s);
        mglNum *v = FindNum(wcs);
@@ -260,18 +261,15 @@ mglNum *mglParser::FindNum(const char *str)
        return v;
 }
 //-----------------------------------------------------------------------------
-bool mglParser::AddParam(int n, const wchar_t *str, bool isstr)
+void mglParser::AddParam(int n, const wchar_t *str)
 {
-       if(n<0 || n>39 || wcschr(str,'$'))      return false;
-       if(!isstr)      parlen += wcslen(str);
-       if(par[n])      delete [](par[n]);
-       par[n] = new wchar_t[wcslen(str)+1];
-       wcscpy(par[n],str);
-       return true;
+//     if(str && n>=0 && n<40 && !wcschr(str,'$'))     par[n] = str;
+       if(str && n>=0 && n<40) par[n] = str;
 }
 //-----------------------------------------------------------------------------
 mglVar *mglParser::FindVar(const wchar_t *name)
 {
+       if(!name || *name==0)   return DataList;
        mglVar *v=DataList;
        while(v)
        {
@@ -378,35 +376,34 @@ void mglParser::FillArg(mglGraph *gr, int k, wchar_t **arg, mglArg *a)
                else if(arg[n][0]=='\'')
                {       // this is string (simplest case)
                        a[n-1].type = 1;                arg[n][wcslen(arg[n])-1] = 0;
-//                     if(wcslen(arg[n]+1)>=2048)      arg[n][2048]=0;
                        a[n-1].w = arg[n]+1;    arg[n][wcslen(arg[n])] = '\'';
                }
                else if(arg[n][0]=='{')
                {       // this is temp data
                        arg[n][wcslen(arg[n])-1] = 0;
                        u=new mglVar;   u->temp=true;
-                       a[n-1].w = L"/*"+std::wstring(arg[n])+L"*/";
+                       a[n-1].w = L"/*"+std::wstring(arg[n]+1)+L"*/";
                        if(DataList)    u->MoveAfter(DataList);
                        else                    DataList = u;
-                       a[n-1].type = 0;        a[n-1].d = &(u->d);
-                       ParseDat(gr, arg[n]+1, u->d);   // TODO: Check it
+                       a[n-1].type = 0;        a[n-1].d = u;
+                       ParseDat(gr, arg[n]+1, *u);
                }
                else if((v = FindVar(arg[n]))!=0)       // have to find normal variables (for data creation)
-               {       a[n-1].type=0;  a[n-1].d=&(v->d);       a[n-1].w=v->s;  }
+               {       a[n-1].type=0;  a[n-1].d=v;     a[n-1].w=v->s;  }
                else if((f = FindNum(arg[n]))!=0)       // have to find normal variables (for data creation)
                {       a[n-1].type=2;  a[n-1].d=0;     a[n-1].v=f->d;  a[n-1].w = f->s;        }
                else
                {       // parse all numbers and formulas by unified way
-                       const mglData &d=mglFormulaCalc(arg[n], this);
+                       mglData d = mglFormulaCalc(arg[n], this);
                        if(d.nx*d.ny*d.nz==1)
                        {       a[n-1].type = 2;        a[n-1].v = d.a[0];      }
                        else
                        {
-                               u=new mglVar;   u->temp=true;   u->d=d;
+                               u=new mglVar;   u->temp=true;   u->Set(d);
                                a[n-1].w = L"/*"+std::wstring(arg[n])+L"*/";
                                if(DataList)    u->MoveAfter(DataList);
                                else                    DataList = u;
-                               a[n-1].type = 0;        a[n-1].d = &(u->d);
+                               a[n-1].type = 0;        a[n-1].d = u;
                        }
                }
        }
@@ -447,13 +444,13 @@ int mglParser::PreExec(mglGraph *, long k, wchar_t **arg, mglArg *a)
                if(t==1)        nx = j>nx ? j:nx;
                if(t==1)        // list of numeric values
                {
-                       v->d.Create(nx,ny);
+                       v->Create(nx,ny);
                        j=t=0;
                        for(i=2;i<k;i++)
                        {
                                if(arg[i][0]=='|')      {       t++;    j=0;    }
                                else
-                               {       v->d.a[j+nx*t] = a[i-1].v;      j++;    }
+                               {       v->a[j+nx*t] = a[i-1].v;        j++;    }
                        }
                }
                if(t==2)        // list of data
@@ -463,25 +460,25 @@ int mglParser::PreExec(mglGraph *, long k, wchar_t **arg, mglArg *a)
                        if(b->nz>1)     return 2;
                        if(b->ny>1)
                        {
-                               v->d.Create(b->nx, b->ny, nx);
+                               v->Create(b->nx, b->ny, nx);
                                nn = b->nx*b->ny;
                                for(i=2,j=0;i<k;i++)
                                {
                                        b = a[i-1].d;
                                        if(b==0 || nn!=b->nx*b->ny)     continue;
-                                       memcpy(v->d.a+j*nn,b->a,nn*(b->nz)*sizeof(mreal));
+                                       memcpy(v->a+j*nn,b->a,nn*(b->nz)*sizeof(mreal));
                                        j+=b->nz;
                                }
                        }
                        else
                        {
-                               v->d.Create(b->nx, nx);
+                               v->Create(b->nx, nx);
                                nn = b->nx;
                                for(i=2,j=0;i<k;i++)
                                {
                                        b = a[i-1].d;
                                        if(b==0 || nn!=b->nx)   continue;
-                                       memcpy(v->d.a+j*nn,b->a,nn*(b->ny)*sizeof(mreal));
+                                       memcpy(v->a+j*nn,b->a,nn*(b->ny)*sizeof(mreal));
                                        j+=b->ny;
                                }
                        }
@@ -493,31 +490,29 @@ int mglParser::PreExec(mglGraph *, long k, wchar_t **arg, mglArg *a)
 //-----------------------------------------------------------------------------
 void mglParser::PutArg(const wchar_t *string, wchar_t *str, bool def)
 {
-       if(parlen>0)
+       wchar_t *sb = new wchar_t[wcslen(string)+1], *t;
+       if(def) str = str+10;
+       register long n;
+       while((t=wcschr(str,'$'))!=0)
        {
-               wchar_t *sb = new wchar_t[wcslen(string)+1], *t;
-               if(def) str = str+10;
-               register long n;
-               while((t=wcschr(str,'$'))!=0)
-               {
-                       wcscpy(sb,t+2); t[0]=0;
-                       n = t[1]-'0';   if(n>=0 && n<=9 && par[n])      wcscat(str,par[n]);
-                       n = t[1]-'a';   if(n>=0 && n<='z'-'a' && par[n+10])     wcscat(str,par[n+10]);
-                       if(t[1]=='$')   wcscat(str,L"\xffff");
-                       wcscat(str,sb);
-               }
-               delete []sb;
-               while((t=wcschr(str,L'\xffff'))!=0)     *t='$';
+               wcscpy(sb,t+2); t[0]=0;
+               n = t[1]-'0';   if(n>=0 && n<=9)        wcscat(str,par[n].c_str());
+               n = t[1]-'a';   if(n>=0 && n<='z'-'a')  wcscat(str,par[n+10].c_str());
+               if(t[1]=='$')   wcscat(str,L"\xffff");
+               wcscat(str,sb);
        }
+       delete []sb;
+       while((t=wcschr(str,L'\xffff'))!=0)     *t='$';
 }
 //-----------------------------------------------------------------------------
 // return values: 0 - OK, 1 - wrong arguments, 2 - wrong command, 3 - string too long, 4 -- unclosed string
 int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
 {
        if(Stop)        return 0;
-       wchar_t *str, *s = new wchar_t[wcslen(string)+1+40*parlen],*arg[1024],*t;
-       str = s;
-       wcscpy(str,string);     mgl_wcstrim(str);
+       size_t lstr = wcslen(string)+2+GetParLen(string);
+       wchar_t *str, *arg[1024],*t;
+       wchar_t *s = new wchar_t[lstr];
+       wcscpy(s,string);       mgl_wcstrim(s); str = s;
        long n,k=0,m=0,mm=0;
        // try parse ':' -- several commands in line
        for(n=0;n<long(wcslen(str));n++)
@@ -551,6 +546,7 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                                str +=2;        mgl_wcstrim(str);
                                AddParam(nn, str);      delete []s;     return 0;
                        }
+                       else    str -= 7;
                }
                if(!wcsncmp(str+3,L"num",3))
                {
@@ -559,9 +555,9 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                        if(*str=='$' && nn>=0 && nn<='z'-'a'+10)
                        {
                                res = 0;        str +=2;        mgl_wcstrim(str);
-                               const mglData &d=mglFormulaCalc(str, this);
+                               mreal d = mglFormulaCalc(str, this).a[0];
                                char *buf=new char[128];
-                               sprintf(buf,"%g",d.a[0]);
+                               sprintf(buf,"%g",d);
                                AddParam(nn, buf);      delete []buf;
                        }
                        delete []s;     return res;
@@ -573,8 +569,8 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                        if(*str=='$' && nn>=0 && nn<='z'-'a'+10)
                        {
                                res = 0;        str +=2;        mgl_wcstrim(str);
-                               const mglData &d=mglFormulaCalc(str, this);
-                               wchar_t buf[2]={0,0};   buf[0] = wchar_t(d.a[0]);
+                               mreal d=mglFormulaCalc(str, this).a[0];
+                               wchar_t buf[2]={0,0};   buf[0] = wchar_t(d);
                                AddParam(nn, buf);
                        }
                        delete []s;     return res;
@@ -594,6 +590,7 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                        {       mgl_ask_func(str,res);  if(*res)        AddParam(nn, res);      }
                        delete []s;     return mgl_ask_func?0:1;
                }
+               else    return 1;
        }
        wcscpy(str,string);                     mgl_wcstrim(str);
        if(!skip() && !wcsncmp(str,L"for",3) && (str[3]==' ' || str[3]=='\t'))
@@ -641,8 +638,7 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                        if(k==3)
                        {
                                mglNum *v=AddNum(arg[1]);
-                               mglData d=mglFormulaCalc(arg[2],this);
-                               v->d = d.a[0];
+                               v->d = mglFormulaCalc(arg[2],this).a[0];
                        }
                        delete []s;     delete []a;     return k==3?0:1;
                }
@@ -663,30 +659,22 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                                }
                                else if(n)
                                {
-                                       if(!fn_stack)
-                                       {       fn_num = 100;
-                                               fn_stack = (mglFnStack*)malloc(fn_num*sizeof(mglFnStack));
-                                               memset(fn_stack,0,fn_num*sizeof(mglFnStack));   }
-                                       if(fn_pos >= fn_num)
-                                       {       fn_num+= 100;
-                                               fn_stack = (mglFnStack*)realloc(fn_stack,fn_num*sizeof(mglFnStack));
-                                               memset(fn_stack+fn_num-100,0,100*sizeof(mglFnStack));   }
-                                       memcpy(fn_stack[fn_pos].par,par+1,9*sizeof(wchar_t*));
-                                       memset(par+1,0,9*sizeof(wchar_t*));
+                                       mglFnStack fn;                  fn.pos = pos;
+                                       for(int i=0;i<10;i++)   {       fn.par[i] = par[i];     par[i]=L"";     }
                                        for(int i=1;i<k-1;i++)  AddParam(i,arg[i+1]);
-                                       fn_stack[fn_pos].pos = pos;     fn_pos++;       n--;
+                                       fn_stack.push_back(fn); n--;
                                }
-                               else
-                               {       // TODO check bugfix here!!!
+                               else if(AllowFileIO)    // disable external scripts if AllowFileIO=false
+                               {
                                        FILE *fp = fopen(a[0].s.c_str(),"rt");
                                        if(fp)
                                        {
                                                register int i;
                                                mglParser *prs = new mglParser(AllowSetSize);
                                                prs->DataList=DataList; prs->NumList=NumList;   prs->Cmd=Cmd;
-                                               for(i=10;i<30;i++)      prs->AddParam(i,par[i]);
+                                               for(i=10;i<30;i++)      prs->AddParam(i,par[i].c_str());
                                                prs->Execute(gr,fp);
-                                               for(i=10;i<30;i++)      AddParam(i,prs->par[i]);
+                                               for(i=10;i<30;i++)      AddParam(i,prs->par[i].c_str());
                                                DataList=prs->DataList; prs->DataList=0;
                                                NumList =prs->NumList;  prs->NumList=0;
                                                prs->Cmd=0;     delete prs;     fclose(fp);
@@ -727,7 +715,7 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
                                        {       for_stack[i]=for_stack[i-1];    if_for[i]=if_for[i-1];  }
                                        for_stack[0] = r+1;             fval[r].nz = pos;       if_for[0]=if_pos;
                                        wchar_t buf[32];                mglprintf(buf,32,L"%g",fval[r].a[0]);
-                                       AddParam(r, buf,true);  fval[r].ny = 1;
+                                       AddParam(r, buf);       fval[r].ny = 1;
                                }
                        }
                        delete []s;     delete []a;     return n;
@@ -752,14 +740,14 @@ int mglParser::Parse(mglGraph *gr, const wchar_t *string, long pos)
 // return values: 0 - OK, 1 - wrong arguments, 2 - wrong command, 3 - string too long, 4 -- unclosed string
 int mglParser::ParseDat(mglGraph *gr, const wchar_t *string, mglData &res)
 {
-       wchar_t *str, *s = new wchar_t[wcslen(string)+1+parlen],*arg[32];
+       wchar_t *str, *s = new wchar_t[wcslen(string)+1+GetParLen(string)],*arg[32];
        str = s;
        wcscpy(str,string);     mgl_wcstrim(str);
        long n,k=0;
        for(k=0;k<32;k++)       // parse string to substrings (by spaces)
        {
                n = mglFindArg(str);
-               if(n<0) {       str[-n]=0;      break;  }
+               if(n<1) {       if(n<0) str[-n]=0;      break;  }
                str[n]=0;       arg[k] = str;// k++;
                str = str+n+1;  mgl_wcstrim(str);
        }
@@ -857,10 +845,10 @@ int mglParser::FlowExec(mglGraph *, const wchar_t *com, long m, mglArg *a)
        }
        else if(!skip() && !wcscmp(com, L"return"))     // parse command "delete"
        {
-               if(!fn_pos)     return 2;
-               fn_pos--;       n = -fn_stack[fn_pos].pos-1;
-               for(int i=1;i<10;i++)   if(par[i])      delete []par[i];
-               memcpy(par+1,fn_stack[fn_pos].par,9*sizeof(wchar_t*));
+               if(fn_stack.size()<1)   return 2;
+               const mglFnStack &fn=fn_stack.back();
+               for(int i=0;i<10;i++)   par[i]=fn.par[i];
+               n = -fn.pos-1;  fn_stack.pop_back();
        }
        else if(!ifskip() && !Skip && !wcscmp(com,L"next"))
        {
@@ -872,7 +860,7 @@ int mglParser::FlowExec(mglGraph *, const wchar_t *com, long m, mglArg *a)
                        if(fval[r].ny<fval[r].nx && !for_br)
                        {
                                wchar_t buf[32];                mglprintf(buf,32,L"%g",fval[r].a[fval[r].ny]);
-                               AddParam(r, buf,true);  fval[r].ny += 1;
+                               AddParam(r, buf);       fval[r].ny += 1;
                                n = -fval[r].nz-1;
                        }
                        else
@@ -894,7 +882,7 @@ int mglParser::FlowExec(mglGraph *, const wchar_t *com, long m, mglArg *a)
                        if(fval[r].ny<fval[r].nx)
                        {
                                wchar_t buf[32];                mglprintf(buf,32,L"%g",fval[r].a[fval[r].ny]);
-                               AddParam(r, buf,true);  fval[r].ny += 1;
+                               AddParam(r, buf);       fval[r].ny += 1;
                                n = -fval[r].nz-1;
                        }
                        else    for_br = true;
@@ -909,7 +897,9 @@ void mglParser::Execute(mglGraph *gr, FILE *fp, bool print)
 {
        if(gr==0 || fp==0)      return;
        std::wstring str;
-       while(!feof(fp))        str.push_back(fgetwc(fp));
+       wchar_t ch;
+       while((ch=fgetwc(fp))!=WEOF)    str.push_back(ch);
+//     while(!feof(fp))        str.push_back(fgetwc(fp));
        Execute(gr,str.c_str());
        if(print)       printf("%s\n",gr->Message());
 }
@@ -919,7 +909,7 @@ void mglParser::Execute(mglGraph *gr, int n, const wchar_t **text)
        if(n<1 || text==0)      return;
        long i, r;
        char buf[64];
-       for_br=Skip=false;      if_pos=fn_pos=0;        ScanFunc(0);
+       for_br=Skip=false;      if_pos=0;       ScanFunc(0);    fn_stack.clear();
        for(i=0;i<n;i++)        ScanFunc(text[i]);
        for(i=0;i<n;i++)
        {
@@ -939,10 +929,10 @@ void mglParser::Execute(mglGraph *gr, int n, const wchar_t **text)
 //-----------------------------------------------------------------------------
 void mglParser::Execute(mglGraph *gr, const wchar_t *text)
 {
-       unsigned s = wcslen(text)+1;
+       size_t s = wcslen(text)+1;
        wchar_t *wcs = new wchar_t[s];
        const wchar_t **str;
-       register unsigned i, n=1;
+       register size_t i, n=1;
        for(i=0;i<s;i++)        if(text[i]=='\n')       n++;
        str = (const wchar_t **)malloc(n*sizeof(wchar_t *));
        memcpy(wcs, text, s*sizeof(wchar_t));
@@ -970,7 +960,7 @@ void mglParser::Execute(mglGraph *gr, const wchar_t *text)
 //-----------------------------------------------------------------------------
 void mglParser::Execute(mglGraph *gr, const char *text)
 {
-       unsigned s = strlen(text)+1;
+       size_t s = strlen(text)+1;
        wchar_t *wcs = new wchar_t[s];
        mbstowcs(wcs,text,s);
        Execute(gr, wcs);
@@ -1022,53 +1012,55 @@ void mglParser::AddCommand(mglCommand *cmd, int mc)
 //-----------------------------------------------------------------------------
 HMPR mgl_create_parser()               {       return new mglParser;   }
 void mgl_delete_parser(HMPR p) {       delete p;       }
-void mgl_add_param(HMPR p, int id, const char *str)                    {       p->AddParam(id,str);    }
-void mgl_add_paramw(HMPR p, int id, const wchar_t *str)                {       p->AddParam(id,str);    }
-HMDT mgl_add_var(HMPR p, const char *name)     {       mglVar *v=p->AddVar(name);      return &(v->d); }
-HMDT mgl_find_var(HMPR p, const char *name)    {       mglVar *v=p->FindVar(name);     return &(v->d); }
-void mgl_del_var(HMPR p, const char *name)     {       p->DeleteVar(name);     }
-int mgl_parse(HMGL gr, HMPR p, const char *str, int pos)
+void mgl_parser_add_param(HMPR p, int id, const char *str)                     {       p->AddParam(id,str);    }
+void mgl_parser_add_paramw(HMPR p, int id, const wchar_t *str)         {       p->AddParam(id,str);    }
+HMDT mgl_parser_add_var(HMPR p, const char *name)      {       mglVar *v=p->AddVar(name);      return v;       }
+HMDT mgl_parser_find_var(HMPR p, const char *name)     {       mglVar *v=p->FindVar(name);     return v;       }
+void mgl_parser_del_var(HMPR p, const char *name)      {       p->DeleteVar(name);     }
+HMDT mgl_parser_add_varw(HMPR p, const wchar_t *name)  {       mglVar *v=p->AddVar(name);      return v;       }
+HMDT mgl_parser_find_varw(HMPR p, const wchar_t *name) {       mglVar *v=p->FindVar(name);     return v;       }
+void mgl_parser_del_varw(HMPR p, const wchar_t *name)  {       p->DeleteVar(name);     }
+int mgl_parse_line(HMGL gr, HMPR p, const char *str, int pos)
 {      return p->Parse(gr, str, pos);  }
-int mgl_parsew(HMGL gr, HMPR p, const wchar_t *str, int pos)
+int mgl_parse_linew(HMGL gr, HMPR p, const wchar_t *str, int pos)
 {      return p->Parse(gr, str, pos);  }
 void mgl_parse_text(HMGL gr, HMPR p, const char *str)
 {      p->Execute(gr, str);    }
-void mgl_parsew_text(HMGL gr, HMPR p, const wchar_t *str)
+void mgl_parse_textw(HMGL gr, HMPR p, const wchar_t *str)
 {      p->Execute(gr, str);    }
 void mgl_parse_file(HMGL gr, HMPR p, FILE *fp, int print)
 {      p->Execute(gr,fp,print);        }
-void mgl_restore_once(HMPR p)  {       p->RestoreOnce();       }
+void mgl_parser_restore_once(HMPR p)   {       p->RestoreOnce();       }
 void mgl_parser_stop(HMPR p)   {       p->Stop = true;         }
-void mgl_parser_allow_setsize(HMPR p, int a)   {       p->AllowSetSize = a;    }
+void mgl_parser_allow_setsize(HMPR p, int a)   {       p->AllowSetSize= a;     }
+void mgl_parser_allow_file_io(HMPR p, int a)   {       p->AllowFileIO = a;     }
 //-----------------------------------------------------------------------------
 #define _PR_   ((mglParser *)(*p))
 uintptr_t mgl_create_parser_() {       return uintptr_t(new mglParser);        }
 void mgl_delete_parser_(uintptr_t* p)  {       delete _PR_;    }
-void mgl_add_param_(uintptr_t* p, int *id, const char *str, int l)
+void mgl_parser_add_param_(uintptr_t* p, int *id, const char *str, int l)
 {      char *s=new char[l+1];          memcpy(s,str,l);        s[l]=0;
        _PR_->AddParam(*id, s);         delete []s;     }
 /*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/
-uintptr_t mgl_add_var_(uintptr_t* p, const char *name, int l)
+uintptr_t mgl_parser_add_var_(uintptr_t* p, const char *name, int l)
 {      char *s=new char[l+1];          memcpy(s,name,l);       s[l]=0;
-       mglVar *v=_PR_->AddVar(s);      delete []s;
-       return uintptr_t(&(v->d));      }
+       mglVar *v=_PR_->AddVar(s);      delete []s;     return uintptr_t(v);    }
 /*===!!! NOTE !!! You must not delete obtained data arrays !!!===============*/
-uintptr_t mgl_find_var_(uintptr_t* p, const char *name, int l)
+uintptr_t mgl_parser_find_var_(uintptr_t* p, const char *name, int l)
 {      char *s=new char[l+1];          memcpy(s,name,l);       s[l]=0;
-       mglVar *v=_PR_->FindVar(s);     delete []s;
-       return uintptr_t(&(v->d));      }
+       mglVar *v=_PR_->FindVar(s);     delete []s;     return uintptr_t(v);    }
 void mgl_del_var_(uintptr_t* p, const char *name, int l)
 {      char *s=new char[l+1];          memcpy(s,name,l);       s[l]=0;
        _PR_->DeleteVar(s);     delete []s;     }
-int mgl_parse_(uintptr_t* gr, uintptr_t* p, const char *str, int *pos, int l)
+int mgl_parse_line_(uintptr_t* gr, uintptr_t* p, const char *str, int *pos, int l)
 {      char *s=new char[l+1];          memcpy(s,str,l);        s[l]=0;
        int r = _PR_->Parse(_GR_, s, *pos);     delete []s;     return r;       }
 void mgl_parse_text_(uintptr_t* gr, uintptr_t* p, const char *str, int l)
 {      char *s=new char[l+1];          memcpy(s,str,l);        s[l]=0;
        _PR_->Execute(_GR_, s); delete []s;     }
-void mgl_restore_once_(uintptr_t* p)   {       _PR_->RestoreOnce();    }
-void mgl_parser_allow_setsize_(uintptr_t* p, int *a)
-{      _PR_->AllowSetSize = *a;        }
+void mgl_parser_restore_once_(uintptr_t* p)    {       _PR_->RestoreOnce();    }
+void mgl_parser_allow_setsize_(uintptr_t* p, int *a)   {       _PR_->AllowSetSize= *a; }
+void mgl_parser_allow_file_io_(uintptr_t* p, int *a)   {       _PR_->AllowFileIO = *a; }
 void mgl_parser_stop_(uintptr_t* p)    {       _PR_->Stop = true;      }
 //-----------------------------------------------------------------------------
 long mgl_use_parser(HMPR pr, int inc)
@@ -1076,23 +1068,45 @@ long mgl_use_parser(HMPR pr, int inc)
 long mgl_use_parser_(uintptr_t *p, int *inc)
 {      _PR_->InUse+=*inc;      return _PR_->InUse;     }
 //---------------------------------------------------------------------------
-int mgl_cmd_type(HMPR pr, const char *name)
+int mgl_parser_cmd_type(HMPR pr, const char *name)
 {
        mglCommand *cmd = pr->FindCommand(name);
        return cmd ? cmd->type + 1 : 0;
 }
-int mgl_cmd_type_(uintptr_t* p, const char *str, int l)
+int mgl_parser_cmd_type_(uintptr_t* p, const char *str, int l)
 {      char *s=new char[l+1];  memcpy(s,str,l);        s[l]=0;
-       l = mgl_cmd_type(_PR_, s);      delete []s;     return l;       }
+       l = mgl_parser_cmd_type(_PR_, s);       delete []s;     return l;       }
 //---------------------------------------------------------------------------
-const char *mgl_cmd_desc(HMPR pr, const char *name)
+const char *mgl_parser_cmd_desc(HMPR pr, const char *name)
 {
        mglCommand *cmd = pr->FindCommand(name);
        return cmd ? cmd->desc : 0;
 }
-const char *mgl_cmd_frmt(HMPR pr, const char *name)
+const char *mgl_parser_cmd_frmt(HMPR pr, const char *name)
 {
        mglCommand *cmd = pr->FindCommand(name);
        return cmd ? cmd->form : 0;
 }
 //---------------------------------------------------------------------------
+const char *mgl_parser_cmd_name(HMPR pr, long id)
+{      return (id<mgl_parser_cmd_num(pr) && id>=0) ? pr->Cmd[id].name:"";      }
+long mgl_parser_cmd_num(HMPR pr)
+{      register long i=0;      while(pr->Cmd[i].name[0])       i++;    return i;       }
+//---------------------------------------------------------------------------
+HMDT mgl_parser_calc(HMPR pr, const char *formula)
+{
+       size_t s = strlen(formula)+1;
+       wchar_t *wcs = new wchar_t[s];
+       mbstowcs(wcs,formula,s);
+       HMDT d = mgl_parser_calcw(pr,wcs);
+       delete []wcs;   return d;       
+}
+HMDT mgl_parser_calcw(HMPR pr, const wchar_t *formula)
+{      mglData *d = new mglData(mglFormulaCalc(formula,pr));   return d;       }
+uintptr_t mgl_parser_calc_(uintptr_t *p, const char *str,int l)
+{      char *s=new char[l+1];  memcpy(s,str,l);        s[l]=0;
+       uintptr_t d = (uintptr_t)mgl_parser_calc(_PR_, s);      delete []s;     return d;       }
+//---------------------------------------------------------------------------
+void mgl_parser_del_all(HMPR p)        {       p->DeleteAll(); }
+void mgl_parser_del_all_(uintptr_t *p) {       _PR_->DeleteAll();      }
+//---------------------------------------------------------------------------

diff --git a/src/pde.cpp b/src/pde.cpp
index 1c6a3ca8c265f2cbecf077eaafc00396c36ae484..ae646c7004eb2d642df39f5344fe07dbef1bbf76 100644 (file)
--- a/src/pde.cpp
+++ b/src/pde.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_pde.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -36,7 +36,7 @@ struct mgl_pde_ham
 void *mgl_pde_hprep(void *par)\r
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
-       mgl_pde_ham *f = (mgl_pde_ham *)t->v;\r
+       const mgl_pde_ham *f = (const mgl_pde_ham *)t->v;\r
        mglFormula *eqs = f->eqs;\r
        register long i,j,i0, nx=2*f->nx, ny=2*f->ny;\r
        mreal var[MGL_VS];\r
@@ -230,7 +230,7 @@ struct mgl_ap
 {\r
        double x0,y0,x1,y1;     // vectors {l, g1, g2}\r
        double t1,ch,q1,pt,dt,d1;       // theta_{1,2}, chi, q_{1,2}, p_t, dtau, dq_{1,2}\r
-       mgl_ap()        {       memset(this,0,sizeof(mgl_ap));  };\r
+       mgl_ap()        {       memset(this,0,sizeof(mgl_ap));  }\r
 };\r
 //-----------------------------------------------------------------------------\r
 void mgl_init_ra(int n, const mreal *r, mgl_ap *ra)    // prepare some intermediate data for mglPDE2d\r
@@ -275,7 +275,7 @@ struct mgl_qo2d_ham
 void *mgl_qo2d_hprep(void *par)\r
 {\r
        mglThreadD *t=(mglThreadD *)par;\r
-       mgl_qo2d_ham *f = (mgl_qo2d_ham *)t->v;\r
+       const mgl_qo2d_ham *f = (const mgl_qo2d_ham *)t->v;\r
        mgl_ap *ra = f->ra;\r
        mglFormula *h = f->h;\r
        const mreal *r = f->r;\r

diff --git a/src/pixel.cpp b/src/pixel.cpp
index 92f618b0fec53dc59f2e5c03f6c192ed2615d2af..4c07e9bc3932f0129ac3c8c0af6f494184da6173 100644 (file)
--- a/src/pixel.cpp
+++ b/src/pixel.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * pixel.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -37,7 +37,7 @@ void mglDrawReg::set(mglCanvas *gr, int nx, int ny, int m)
 {\r
        int mx = m%nx, my = m/nx;\r
        x1 = gr->GetWidth()*mx/nx;              y1 = gr->GetHeight()-gr->GetHeight()*(my+1)/ny;\r
-       x2 = gr->GetWidth()*(mx+1)/nx;  y2 = gr->GetHeight()-gr->GetHeight()*my/ny;\r
+       x2 = gr->GetWidth()*(mx+1)/nx-1;        y2 = gr->GetHeight()-gr->GetHeight()*my/ny-1;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::PutDrawReg(mglDrawReg *d, const mglCanvas *gr)\r
@@ -60,99 +60,40 @@ void mglCanvas::PostScale(mglPoint &p) const
        p.x = B.x + q.x*B.b[0] + q.y*B.b[1] + q.z*B.b[2];\r
        p.y = B.y + q.x*B.b[3] + q.y*B.b[4] + q.z*B.b[5];\r
        p.z = B.z + q.x*B.b[6] + q.y*B.b[7] + q.z*B.b[8];\r
-/*     if(Persp)\r
-       {\r
-               register mreal d = (1-Persp*Depth/2)/(1-Persp*p.z);\r
-               p.x = Width/2 + d*(p.x-Width/2);\r
-               p.y = Height/2 + d*(p.y-Height/2);\r
-       }*/\r
 }\r
 //-----------------------------------------------------------------------------\r
 bool mglCanvas::ScalePoint(mglPoint &p, mglPoint &n, bool use_nan) const\r
 {\r
        bool res = get(MGL_DISABLE_SCALE) || mglBase::ScalePoint(p,n,use_nan);\r
-       if(TernAxis&4)  return res;\r
+//     if(TernAxis&4)  return res;\r
        PostScale(p);\r
 \r
        mglPoint y=n;\r
-//     n.x = (B.b[4]*B.b[8]-B.b[5]*B.b[7])*y.x-(B.b[3]*B.b[8]-B.b[5]*B.b[6])*y.y+(B.b[3]*B.b[7]-B.b[4]*B.b[6])*y.z;\r
-//     n.y = (B.b[2]*B.b[7]-B.b[1]*B.b[8])*y.x+(B.b[0]*B.b[8]-B.b[2]*B.b[6])*y.y-(B.b[0]*B.b[7]-B.b[1]*B.b[6])*y.z;\r
-//     n.y = (B.b[1]*B.b[5]-B.b[2]*B.b[4])*y.x-(B.b[0]*B.b[5]-B.b[2]*B.b[3])*y.y+(B.b[0]*B.b[4]-B.b[1]*B.b[3])*y.z;\r
        n.x = y.x*B.b[0] + y.y*B.b[1] + y.z*B.b[2];     // simpler for rotation only\r
        n.y = y.x*B.b[3] + y.y*B.b[4] + y.z*B.b[5];\r
        n.z = y.x*B.b[6] + y.y*B.b[7] + y.z*B.b[8];\r
        n.Normalize();\r
-/*     if(Persp)\r
-       {\r
-               register mreal d = (1-Persp*Depth/2)/(1-Persp*p.z);\r
-               // NOTE: No d* since I use transformed p here.\r
-               register mreal dd = Persp*n.z/(1-Persp*p.z);\r
-               n.x = d*n.x + dd*(p.x-Width/2);\r
-               n.y = d*n.y + dd*(p.y-Height/2);\r
-       }*/\r
        return res;\r
 }\r
 //-----------------------------------------------------------------------------\r
-long mglCanvas::ProjScale(int nf, long id)\r
+long mglCanvas::ProjScale(int nf, long id, bool text)\r
 {\r
-       const mglPnt &p0=Pnt[id];\r
-       mglPoint pp(p0.x,p0.y,p0.z), nn(p0.u,p0.v,p0.w);\r
+       mglPoint pp = GetPntP(id), nn = GetPntN(id), q, p, n, u;\r
        if(mgl_isnan(pp.x))     return -1;\r
-       mglPoint q=pp/(2*B.pf), p, n=nn;\r
+       q = RestorePnt(pp)/(2*B.pf);\r
+       u = RestorePnt(nn,true);        u.Normalize();\r
        mreal w=B1.b[0]/2, h=B1.b[4]/2, d=B1.b[8]/2, xx=B1.x-w/2, yy=B1.y-h/2;\r
-       if(TernAxis&1)  // usual ternary axis\r
-       {\r
-               if(nf==0)\r
-               {       p.x = xx+w/2 + (q.x+(q.y+1)/2)*w/2;\r
-                       n.x = (nn.x+nn.y/2)*w/2;\r
-                       p.y = yy+h + q.y*h/2;   n.y = nn.y*h/2; }\r
-       }\r
-       else if(TernAxis&2)     // quaternary axis\r
-       {\r
-               if(nf==0)\r
-               {       p.x = xx+w/2 + (q.x+(q.y+1)/2)*w/2;\r
-                       n.x = (nn.x+nn.y/2)*w/2;\r
-                       p.y = yy+h + q.y*h/2;\r
-                       n.y = nn.y*h/2; }\r
-               else if(nf==1)\r
-               {       p.x = xx+w/2 + (q.x+(1-q.z)/2)*w/2;\r
-                       n.x = (nn.x-nn.z/2)*w/2;\r
-                       p.y = yy+h - q.z*h/2;\r
-                       n.y = -nn.z*h/2;        }\r
-               else if(nf==2)\r
-               {       p.x = xx+w/2 + (q.y-q.z)/2*w/2;\r
-                       n.x = (nn.y-nn.z/2)*w/2;\r
-                       p.y = yy+h + (q.y+q.z)*h/2;\r
-                       n.y = (nn.y+nn.z)/2*h/2;        }\r
-               else\r
-               {       p.x = xx+w/2 + (q.x+1+(q.y+q.z)/2)*w/2;\r
-                       n.x = (nn.x+(nn.y+nn.z)/2)*w/2;\r
-                       p.y = yy+h + (q.y+(q.z+1)/3)*h/2;\r
-                       n.y = (nn.y+nn.z/3)*h/2;        }\r
-       }\r
+       if(nf==0)\r
+       {       p.x = xx + q.x*w;       p.y = yy + q.y*h;       p.z = B1.z + q.z*d;     n = u;  }\r
+       else if(nf==1)\r
+       {       p.x = xx + q.x*w;       p.y = yy+h + q.z*h;     p.z = B1.z + q.y*d;     n = mglPoint(u.x,u.z,u.y);      }\r
+       else if(nf==2)\r
+       {       p.x = xx+w + q.z*w;     p.y = yy + q.y*h;       p.z = B1.z+ q.x*d;      n = mglPoint(u.z,u.y,u.x);      }\r
        else\r
-       {\r
-               if(nf==0)\r
-               {       p.x = xx + q.x*w;               n.x = nn.x*w/2;\r
-                       p.y = yy + q.y*h;               n.y = nn.y*h/2;\r
-                       p.z = B1.z + q.z*d;     n.z = nn.z*d/2; }\r
-               else if(nf==1)\r
-               {       p.x = xx + q.x*w;               n.x = nn.x*w/2;\r
-                       p.y = yy+h + q.z*h;             n.y = nn.z*h/2;\r
-                       p.z = B1.z + q.y*d;     n.z = nn.y*d/2; }\r
-               else if(nf==2)\r
-               {       p.x = xx+w + q.z*w;             n.x = nn.z*w/2;\r
-                       p.y = yy + q.y*h;               n.y = nn.y*h/2;\r
-                       p.z = B1.z+ q.x*d;      n.z = nn.x*d/2; }\r
-               else\r
-               {       p.x = xx+w + q.x*B.b[0]/2 + q.y*B.b[1]/2 + q.z*B.b[2]/2;\r
-                       p.y = yy+h + q.x*B.b[3]/2 + q.y*B.b[4]/2 + q.z*B.b[5]/2;\r
-                       p.z = B.z + q.x*B.b[6]/2 + q.y*B.b[7]/2 + q.z*B.b[8]/2;\r
-                       n.x = (nn.x*B.b[0] + nn.y*B.b[1] + nn.z*B.b[2])/2;\r
-                       n.y = (nn.x*B.b[3] + nn.y*B.b[4] + nn.z*B.b[5])/2;\r
-                       n.z = (nn.x*B.b[6] + nn.y*B.b[7] + nn.z*B.b[8])/2;      }\r
-       }\r
-       return CopyProj(id,p,n);\r
+       {       p.x = xx+w + q.x*B.b[0]/2 + q.y*B.b[1]/2 + q.z*B.b[2]/2;        n = nn;\r
+               p.y = yy+h + q.x*B.b[3]/2 + q.y*B.b[4]/2 + q.z*B.b[5]/2;\r
+               p.z = B.z + q.x*B.b[6]/2 + q.y*B.b[7]/2 + q.z*B.b[8]/2; }\r
+       return CopyProj(id,p,text?n:nn);\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::LightScale()\r
@@ -167,34 +108,67 @@ void mglCanvas::LightScale()
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-// NOTE: Perspective, transformation formulas and lists are not support just now !!! Also it use LAST InPlot parameters!!!\r
-mglPoint mglCanvas::CalcXYZ(int xs, int ys) const\r
+// NOTE: Perspective is not support just now !!! Also it use LAST InPlot parameters!!!\r
+mglPoint mglCanvas::RestorePnt(mglPoint ps, bool norm) const\r
 {\r
-       mreal s3 = 2*B.pf, x, y, z;     // TODO: Take into account z-value of z-buffer\r
-       ys = Height - ys;\r
-       mreal xx = xs-B.x, yy = ys-B.y;\r
-       mreal d1=B.b[0]*B.b[4]-B.b[1]*B.b[3], d2=B.b[1]*B.b[5]-B.b[2]*B.b[4], d3=B.b[0]*B.b[5]-B.b[2]*B.b[3];\r
-       if(fabs(d1) > fabs(d2) && fabs(d1) > fabs(d3))  // x-y plane\r
+       mreal s3 = 2*B.pf;\r
+       mglPoint p;\r
+\r
+       mreal W=Width/2, H=Height/2, D=Depth/2;\r
+       mreal cx = B.z*Bp.b[2]+B.y*Bp.b[1]+B.x*Bp.b[0]-Bp.x*W-Bp.b[0]*W+W-Bp.b[1]*H-Bp.b[2]*D;\r
+       mreal c0 = B.b[6]*Bp.b[2]+B.b[3]*Bp.b[1]+B.b[0]*Bp.b[0];\r
+       mreal c1 = B.b[7]*Bp.b[2]+B.b[4]*Bp.b[1]+B.b[1]*Bp.b[0];\r
+       mreal c2 = B.b[8]*Bp.b[2]+B.b[5]*Bp.b[1]+B.b[2]*Bp.b[0];\r
+       mreal cy = B.z*Bp.b[5]+B.y*Bp.b[4]+B.x*Bp.b[3]-Bp.b[3]*W-Bp.y*H-Bp.b[4]*H+H-Bp.b[5]*D;\r
+       mreal c3 = B.b[6]*Bp.b[5]+B.b[3]*Bp.b[4]+B.b[0]*Bp.b[3];\r
+       mreal c4 = B.b[7]*Bp.b[5]+B.b[4]*Bp.b[4]+B.b[1]*Bp.b[3];\r
+       mreal c5 = B.b[8]*Bp.b[5]+B.b[5]*Bp.b[4]+B.b[2]*Bp.b[3];\r
+       mreal cz = B.z*Bp.b[8]+B.y*Bp.b[7]+B.x*Bp.b[6]-Bp.b[6]*W-Bp.b[7]*H-Bp.z*D-Bp.b[8]*D+D;\r
+       mreal c6 = B.b[6]*Bp.b[8]+B.b[3]*Bp.b[7]+B.b[0]*Bp.b[6];\r
+       mreal c7 = B.b[7]*Bp.b[8]+B.b[4]*Bp.b[7]+B.b[1]*Bp.b[6];\r
+       mreal c8 = B.b[8]*Bp.b[8]+B.b[5]*Bp.b[7]+B.b[2]*Bp.b[6];\r
+       if(norm)        cx=cy=cz=0;\r
+\r
+       mreal xx = ps.x-cx, yy = ps.y-cy, zz = ps.z-cz;\r
+       mreal d1=c0*c4-c1*c3, d2=c1*c5-c2*c4, d3=c0*c5-c2*c3;\r
+\r
+       if(zz==zz)      // try to use z-values\r
+       {\r
+               // put inverse matrix here: [x,y,z]=B^(-1)[xx,yy,zz]\r
+               mreal det = (-c0*c4*c8+c1*c3*c8+c0*c5*c7-c2*c3*c7-c1*c5*c6+c2*c4*c6)/s3;\r
+               p.x = (c2*c4-c1*c5)*zz+(c1*c8-c2*c7)*yy+(c5*c7-c4*c8)*xx;       p.x /= det;\r
+               p.y = (c0*c5-c2*c3)*zz+(c2*c6-c0*c8)*yy+(c3*c8-c5*c6)*xx;       p.y /= det;\r
+               p.z = (c1*c3-c0*c4)*zz+(c0*c7-c1*c6)*yy+(c4*c6-c3*c7)*xx;       p.z /= det;\r
+       }\r
+       else if(fabs(d1) > fabs(d2) && fabs(d1) > fabs(d3))     // x-y plane\r
        {\r
-               z = 0;\r
-               x = s3*(B.b[4]*xx-B.b[1]*yy)/d1;\r
-               y = s3*(B.b[0]*yy-B.b[3]*xx)/d1;\r
+               p.z = 0;\r
+               p.x = s3*(c4*xx-c1*yy)/d1;\r
+               p.y = s3*(c0*yy-c3*xx)/d1;\r
        }\r
        else if(fabs(d2) > fabs(d3))    // y-z\r
        {\r
-               x = 0;\r
-               y = s3*(B.b[5]*xx-B.b[2]*yy)/d2;\r
-               z = s3*(B.b[1]*yy-B.b[4]*xx)/d2;\r
+               p.x = 0;\r
+               p.y = s3*(c5*xx-c2*yy)/d2;\r
+               p.z = s3*(c1*yy-c4*xx)/d2;\r
        }\r
        else    // x-z\r
        {\r
-               y = 0;\r
-               x = s3*(B.b[5]*xx-B.b[2]*yy)/d3;\r
-               z = s3*(B.b[0]*yy-B.b[3]*xx)/d3;\r
+               p.y = 0;\r
+               p.x = s3*(c5*xx-c2*yy)/d3;\r
+               p.z = s3*(c0*yy-c3*xx)/d3;\r
        }\r
-       return mglPoint(Min.x + (Max.x-Min.x)*(x+1)/2,\r
-                                       Min.y + (Max.y-Min.y)*(y+1)/2,\r
-                                       Min.z + (Max.z-Min.z)*(z+1)/2);\r
+       return p;\r
+}\r
+//-----------------------------------------------------------------------------\r
+mglPoint mglCanvas::CalcXYZ(int xs, int ys, bool real) const\r
+{\r
+       mglPoint p, ps(xs,Height-ys,NAN);\r
+       float zz = Z[3*(xs+Width*(Height-1-ys))];\r
+       if(zz>-1e20f)   {       ps.z = zz;      real=false;     }\r
+       p = RestorePnt(ps);\r
+       return real ? mglPoint(NAN,NAN,NAN) : mglPoint(Min.x + (Max.x-Min.x)*(p.x+1)/2,\r
+                               Min.y + (Max.y-Min.y)*(p.y+1)/2, Min.z + (Max.z-Min.z)*(p.z+1)/2);\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::CalcScr(mglPoint p, int *xs, int *ys) const\r
@@ -209,36 +183,28 @@ mglPoint mglCanvas::CalcScr(mglPoint p) const
 {      int x,y;        CalcScr(p,&x,&y);       return mglPoint(x,y);   }\r
 //-----------------------------------------------------------------------------\r
 //mglCanvas *mgl_tmp_gr;\r
+int mgl_type_prior[8]={1,2,4,5, 0,3,0, 7};\r
 bool operator<(const mglPrim &a, const mglPrim &b)\r
 {\r
-       if( a.z < b.z-0.5 )     return true;\r
-       if( a.z > b.z+0.5 )     return false;\r
-       if( a.w < b.w )         return true;\r
-       if( a.w > b.w )         return false;\r
-       if( a.n3 < b.n3 )       return true;\r
-       if( a.n3 > b.n3 )       return false;\r
-       return a.type < b.type;\r
-//     if( type != a.type )    return type < a.type;\r
-//     if( a1->type==1 && (a1->xx(mgl_tmp_gr)!=a2->xx(mgl_tmp_gr)) )\r
-//             return (a2->xx(mgl_tmp_gr)<a1->xx(mgl_tmp_gr)) ? 1 : -1;\r
-//     if( a1->type==1 )       return (a2->yy(mgl_tmp_gr)<a1->yy(mgl_tmp_gr)) ? 1 : -1;\r
-//     return 0;\r
+       register int t1 = mgl_type_prior[a.type], t2 = mgl_type_prior[b.type];\r
+       if(a.z!=b.z)    return a.z < b.z;\r
+       if(t1!=t2)              return t1 > t2;\r
+       if(a.w!=b.w)    return a.w > b.w;\r
+       return a.n3 > b.n3;\r
 }\r
 //-----------------------------------------------------------------------------\r
 bool operator>(const mglPrim &a, const mglPrim &b)\r
 {\r
-       if( a.z < b.z-0.5 )     return false;\r
-       if( a.z > b.z+0.5 )     return true;\r
-       if( a.w < b.w )         return false;\r
-       if( a.w > b.w )         return true;\r
-       if( a.n3 < b.n3 )       return false;\r
-       if( a.n3 > b.n3 )       return true;\r
-       return a.type > b.type;\r
+       register int t1 = mgl_type_prior[a.type], t2 = mgl_type_prior[b.type];\r
+       if(a.z!=b.z)    return a.z > b.z;\r
+       if(t1!=t2)              return t1 < t2;\r
+       if(a.w!=b.w)    return a.w < b.w;\r
+       return a.n3 < b.n3;\r
 }\r
 //-----------------------------------------------------------------------------\r
 void *mgl_canvas_thr(void *par)\r
 {      mglThreadG *t=(mglThreadG *)par;        (t->gr->*(t->f))(t->id, t->n, t->p);    return NULL;    }\r
-void mglStartThread(void (mglCanvas::*func)(unsigned long i, unsigned long n, const void *p), mglCanvas *gr, unsigned long n, const void *p=NULL)\r
+void mglStartThread(void (mglCanvas::*func)(size_t i, size_t n, const void *p), mglCanvas *gr, size_t n, const void *p=NULL)\r
 {\r
        if(!func || !gr)        return;\r
 #if MGL_HAVE_PTHREAD\r
@@ -259,77 +225,43 @@ void mglStartThread(void (mglCanvas::*func)(unsigned long i, unsigned long n, co
        {       mglNumThr = 1;  (gr->*func)(0,n,p);     }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_primdr(unsigned long id, unsigned long n, const void *)\r
-{\r
-       int nx=1,ny=1,pdef=PDef;\r
-       register unsigned long i;\r
-       if(id<unsigned(mglNumThr))\r
-       {\r
-               for(i=1;i<=unsigned(sqrt(double(mglNumThr))+0.5);i++)\r
-                       if(mglNumThr%i==0)      ny=i;\r
-               nx = mglNumThr/ny;\r
-       }\r
-       else    {       nx=ny=1;        id=0;   }\r
-       mglDrawReg d;   d.set(this,nx,ny,id);\r
-       mreal ss=pPos, ww=PenWidth;\r
-       mglPrim p;\r
-       for(i=0;i<n;i++)\r
-       {\r
-               p=Prm[i];       PDef=p.n3;      pPos=p.s;\r
-               ObjId = p.id;   PenWidth=p.w;\r
-               switch(p.type)\r
-               {\r
-               case 0: mark_draw(p.n1,p.n4,p.s,&d);    break;\r
-               case 1: line_draw(p.n1,p.n2,&d);                break;\r
-               case 2: trig_draw(p.n1,p.n2,p.n3,true,&d);      break;\r
-               case 3: quad_draw(p.n1,p.n2,p.n3,p.n4,&d);      break;\r
-               case 4: glyph_draw(&p,&d);      break;\r
-               }\r
-       }\r
-       PDef=pdef;      pPos=ss;        PenWidth=ww;    ObjId=-1;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_combine(unsigned long id, unsigned long n, const void *)\r
+void mglCanvas::pxl_combine(size_t id, size_t n, const void *)\r
 {\r
        unsigned char c[4],*cc;\r
-       for(unsigned long i=id;i<n;i+=mglNumThr)\r
+       for(size_t i=id;i<n;i+=mglNumThr)\r
        {       cc = C+12*i;            memcpy(c,BDef,4);\r
                combine(c,cc+8);        combine(c,cc+4);\r
                combine(c,cc);          memcpy(G4+4*i,c,4);     }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_memcpy(unsigned long id, unsigned long n, const void *)\r
-{      for(unsigned long i=id;i<n;i+=mglNumThr)        memcpy(G4+4*i,C+12*i,4);        }\r
+void mglCanvas::pxl_memcpy(size_t id, size_t n, const void *)\r
+{      for(size_t i=id;i<n;i+=mglNumThr)       memcpy(G4+4*i,C+12*i,4);        }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_backgr(unsigned long id, unsigned long n, const void *)\r
+void mglCanvas::pxl_backgr(size_t id, size_t n, const void *)\r
 {\r
        unsigned char c[4];\r
-       for(unsigned long i=id;i<n;i+=mglNumThr)\r
+       for(size_t i=id;i<n;i+=mglNumThr)\r
        {       memcpy(c,BDef,4);       combine(c,G4+4*i);      memcpy(G+3*i,c,3);      }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_transform(unsigned long id, unsigned long n, const void *)\r
+void mglCanvas::pxl_transform(size_t id, size_t n, const void *)\r
 {\r
        register float x,y,z;\r
-       for(unsigned long i=id;i<n;i+=mglNumThr)\r
+       for(size_t i=id;i<n;i+=mglNumThr)\r
        {\r
                mglPnt &p=Pnt[i];\r
                x = p.xx-Width/2.;      y = p.yy-Height/2.;     z = p.zz-Depth/2.;\r
-               p.x = Width/2 - Bp.x*Width/2 + Bp.b[0]*x + Bp.b[1]*y + Bp.b[2]*z;\r
-               p.y = Height/2- Bp.y*Height/2+ Bp.b[3]*x + Bp.b[4]*y + Bp.b[5]*z;\r
-               p.z = Depth/2. + Bp.b[6]*x + Bp.b[7]*y + Bp.b[8]*z;\r
-               if(Bp.pf)\r
-               {\r
-                       register float d = (1-Bp.pf*Depth/2)/(1-Bp.pf*p.z);\r
-                       p.x = Width/2 + d*(p.x-Width/2);\r
-                       p.y = Height/2 + d*(p.y-Height/2);\r
-               }\r
+               p.x = Bp.b[0]*x + Bp.b[1]*y + Bp.b[2]*z - Bp.x*Width/2;\r
+               p.y = Bp.b[3]*x + Bp.b[4]*y + Bp.b[5]*z - Bp.y*Height/2;\r
+               p.z = Bp.b[6]*x + Bp.b[7]*y + Bp.b[8]*z + Depth/2.;\r
+               register float d = (1-Bp.pf)/(1-Bp.pf*p.z/Depth);\r
+               p.x = Width/2 + d*p.x;  p.y = Height/2 + d*p.y;\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_setz_adv(unsigned long id, unsigned long n, const void *)\r
+void mglCanvas::pxl_setz_adv(size_t id, size_t n, const void *)\r
 {\r
-       for(unsigned long i=id;i<n;i+=mglNumThr)\r
+       for(size_t i=id;i<n;i+=mglNumThr)\r
        {\r
                mglPrim &q=Prm[i];      q.z = Pnt[q.n1].z;\r
                if(q.type==1)   q.z = (q.z + Pnt[q.n2].z)/2;\r
@@ -338,9 +270,9 @@ void mglCanvas::pxl_setz_adv(unsigned long id, unsigned long n, const void *)
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_setz(unsigned long id, unsigned long n, const void *)\r
+void mglCanvas::pxl_setz(size_t id, size_t n, const void *)\r
 {\r
-       for(unsigned long i=id;i<n;i+=mglNumThr)\r
+       for(size_t i=id;i<n;i+=mglNumThr)\r
        {       mglPrim &q=Prm[i];      q.z = Pnt[q.n1].z;      }\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -352,55 +284,86 @@ void mglCanvas::PreparePrim(bool fast)
        std::sort(Prm.begin(), Prm.end());\r
 }\r
 //-----------------------------------------------------------------------------\r
+void mglCanvas::pxl_primdr(size_t id, size_t , const void *)\r
+{\r
+       int nx=1,ny=1;\r
+       register size_t i;\r
+       if(id<unsigned(mglNumThr))\r
+       {\r
+               for(i=1;i<=unsigned(sqrt(double(mglNumThr))+0.5);i++)\r
+                       if(mglNumThr%i==0)      ny=i;\r
+               nx = mglNumThr/ny;\r
+       }\r
+       else    {       nx=ny=1;        id=0;   }\r
+       mglDrawReg d;   d.set(this,nx,ny,id);\r
+\r
+       mglPrim p;\r
+       for(i=0;i<Prm.size();i++)\r
+       {\r
+               p=Prm[i];\r
+               d.PDef = p.n3;  d.pPos = p.s;\r
+               d.ObjId = p.id; d.PenWidth=p.w;\r
+               switch(p.type)\r
+               {\r
+               case 0: mark_draw(p.n1,p.n4,p.s,&d);    break;\r
+               case 1: line_draw(p.n1,p.n2,&d);                break;\r
+               case 2: trig_draw(p.n1,p.n2,p.n3,true,&d);      break;\r
+               case 3: quad_draw(p.n1,p.n2,p.n3,p.n4,&d);      break;\r
+               case 4: glyph_draw(&p,&d);      break;\r
+               }\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
 void mglCanvas::Finish(bool fast)\r
 {\r
        static mglMatrix bp;\r
+       if(Quality&4)   clr(MGL_FINISHED);\r
        if(memcmp(&Bp,&bp,sizeof(mglMatrix)) && !(Quality&4) && Prm.size()>0)\r
                clr(MGL_FINISHED);\r
        if(get(MGL_FINISHED))   return; // nothing to do\r
        if(!(Quality&4) && Prm.size()>0)\r
        {\r
                PreparePrim(fast);      bp=Bp;\r
-//             mglStartThread(&mglCanvas::pxl_primdr,this,Prm.size()); // TODO: check conflicts in pthreads\r
-               pxl_primdr(-1,Prm.size(),NULL);\r
+               clr(MGL_FINISHED);\r
+               mglStartThread(&mglCanvas::pxl_primdr,this,Prm.size());\r
        }\r
-       unsigned long n=Width*Height;\r
+       size_t n=Width*Height;\r
        BDef[3] = (Flag&3)!=2 ? 0:255;\r
        if(Quality&2)   mglStartThread(&mglCanvas::pxl_combine,this,n);\r
-       else    mglStartThread(&mglCanvas::pxl_memcpy,this,n);\r
+       else                    mglStartThread(&mglCanvas::pxl_memcpy,this,n);\r
        BDef[3] = 255;\r
        mglStartThread(&mglCanvas::pxl_backgr,this,n);\r
        set(MGL_FINISHED);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::ClfZB()\r
+void mglCanvas::ClfZB(bool force)\r
 {\r
-       if(Quality&4)   return;\r
+       if(!force && (Quality&4))       return;\r
        register long i,n=Width*Height;\r
        memset(C,0,12*n);       memset(OI,0,n*sizeof(int));\r
-       for(i=0;i<3*n;i++)      Z[i] = -1e20f;  // TODO: Parallelization ?!?\r
+       for(i=0;i<3*n;i++)      Z[i] = -1e20f;\r
        clr(MGL_FINISHED);\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::Clf(mglColor Back)\r
 {\r
        Fog(0);         PDef = 0xffff;  pPos = 0;       StartAutoGroup(NULL);\r
-       Pnt.clear();    Prm.clear();    Ptx.clear();\r
-       Sub.clear();    Leg.clear();    Grp.clear();\r
+       Pnt.clear();    Prm.clear();    Ptx.clear();    Glf.clear();\r
+       Sub.clear();    Leg.clear();    Grp.clear();    Act.clear();\r
 \r
        Txt.clear();    Txt.reserve(3);\r
-       Txt.push_back(mglTexture(MGL_DEF_PAL,-1));\r
-       Txt.push_back(mglTexture("BbcyrR",1));\r
+       MGL_PUSH(Txt,mglTexture(MGL_DEF_PAL,-1),mutexTxt);\r
+       MGL_PUSH(Txt,mglTexture("BbcyrR",1),mutexTxt);\r
        \r
-       if(Back==0)                     Back = 'w';\r
+       if(Back==0)             Back = 'w';\r
        if((Flag&3)==2) Back = 'k';\r
        BDef[0]=Back.r*255;     BDef[1]=Back.g*255;BDef[2]=Back.b*255;  BDef[3]=0;\r
-       ClfZB();\r
+       ClfZB(true);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pxl_other(unsigned long id, unsigned long n, const void *p)\r
+void mglCanvas::pxl_other(size_t id, size_t n, const void *p)\r
 {\r
-       unsigned long i,j,k;\r
+       size_t i,j,k;\r
        const mglCanvas *gr = (const mglCanvas *)p;\r
        if(!gr) return;\r
        for(k=id;k<n;k+=mglNumThr)\r
@@ -408,10 +371,10 @@ void mglCanvas::pxl_other(unsigned long id, unsigned long n, const void *p)
                i = k%Width;    j = Height-1-(k/Width);\r
                if(Quality&2)\r
                {\r
-                       pnt_plot(i,j,gr->Z[3*k+2],gr->C+12*k+8);\r
-                       pnt_plot(i,j,gr->Z[3*k+1],gr->C+12*k+4);\r
+                       pnt_plot(i,j,gr->Z[3*k+2],gr->C+12*k+8,gr->OI[k]);\r
+                       pnt_plot(i,j,gr->Z[3*k+1],gr->C+12*k+4,gr->OI[k]);\r
                }\r
-               pnt_plot(i,j,gr->Z[3*k],gr->C+12*k);\r
+               pnt_plot(i,j,gr->Z[3*k],gr->C+12*k,gr->OI[k]);\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -455,11 +418,11 @@ void mglCanvas::MPI_Recv(int id)
        set(MGL_FINISHED);\r
 }\r
 #else\r
-void mglCanvas::MPI_Send(int /*id*/)   {}\r
-void mglCanvas::MPI_Recv(int /*id*/)   {}\r
+void mglCanvas::MPI_Send(int /*id*/)   {       mglGlobalMess += "MPI support was disabled. Please, enable it and rebuild MathGL.\n";   }\r
+void mglCanvas::MPI_Recv(int /*id*/)   {       mglGlobalMess += "MPI support was disabled. Please, enable it and rebuild MathGL.\n";   }\r
 #endif\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::pnt_plot(long x,long y,mreal z,const unsigned char ci[4])\r
+void mglCanvas::pnt_plot(long x,long y,mreal z,const unsigned char ci[4], int obj_id)\r
 {\r
        long i0=x+Width*(Height-1-y);\r
        if(ci[3]==0)    return;\r
@@ -469,23 +432,23 @@ void mglCanvas::pnt_plot(long x,long y,mreal z,const unsigned char ci[4])
        if(zf<0)        // add fog\r
        {\r
                int d = int(255.f-255.f*exp(5.f*zf));\r
-               unsigned char cb[4] = {BDef[0], BDef[1], BDef[2], d};\r
+               unsigned char cb[4] = {BDef[0], BDef[1], BDef[2], (unsigned char)d};\r
                if(d==255)      return;\r
                combine(c,cb);\r
        }\r
        if(Quality&2)\r
        {\r
-               if(z>zz[1])     // shift point on slice down and paste new point\r
+               if(z>=zz[1])    // shift point on slice down and paste new point\r
                {\r
                        zz[2] = zz[1];  combine(cc+8,cc+4);\r
-                       if(z>zz[0])\r
-                       {       zz[1] = zz[0];  zz[0] = z;      OI[i0]=ObjId;\r
+                       if(z>=zz[0])\r
+                       {       zz[1] = zz[0];  zz[0] = z;      OI[i0]=obj_id;\r
                                memcpy(cc+4,cc,4);      memcpy(cc,c,4);         }\r
                        else    {       zz[1] = z;      memcpy(cc+4,c,4);       }\r
                }\r
                else\r
                {\r
-                       if(z>zz[2])     // shift point on slice down and paste new point\r
+                       if(z>=zz[2])    // shift point on slice down and paste new point\r
                        {       zz[2] = z;      combine(cc+8,c);        }\r
                        else            // point below the background\r
                        {       combine(c,cc+8);        memcpy(cc+8,c,4);       }\r
@@ -493,12 +456,12 @@ void mglCanvas::pnt_plot(long x,long y,mreal z,const unsigned char ci[4])
        }\r
        else\r
        {\r
-               if(z>zz[0])     // point upper the background\r
-               {       zz[0]=z;        memcpy(cc,c,4);         OI[i0]=ObjId;   }\r
+               if(z>=zz[0])    // point upper the background\r
+               {       zz[0]=z;        memcpy(cc,c,4);         OI[i0]=obj_id;  }\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-unsigned char* mglCanvas::col2int(const mglPnt &p,unsigned char *r)\r
+unsigned char* mglCanvas::col2int(const mglPnt &p,unsigned char *r, int obj_id)\r
 {\r
        if(!r)  return r;\r
        if(p.a<=0)      {       memset(r,0,4*sizeof(unsigned char));    return r;       }\r
@@ -566,7 +529,7 @@ unsigned char* mglCanvas::col2int(const mglPnt &p,unsigned char *r)
        else\r
        {       b0=p.r; b1=p.g; b2=p.b; }\r
        // try to highlight faces\r
-       if(ObjId==HighId)       {       b0*=0.7;        b1*=0.7;        b2*=0.7;        }\r
+       if(obj_id==HighId)      {       b0*=0.7;        b1*=0.7;        b2*=0.7;        }\r
        r[0] = (unsigned char)(255*b0);\r
        r[1] = (unsigned char)(255*b1);\r
        r[2] = (unsigned char)(255*b2);\r
@@ -576,7 +539,7 @@ unsigned char* mglCanvas::col2int(const mglPnt &p,unsigned char *r)
 }\r
 //-----------------------------------------------------------------------------\r
 /// color mixing: color c1 is under color c2 !!!\r
-void mglCanvas::combine(unsigned char *c1,unsigned char *c2)\r
+void mglCanvas::combine(unsigned char *c1, const unsigned char *c2)\r
 {\r
        if(!c2[3])      return;\r
        register unsigned int a1=c1[3], a2=c2[3],b1=255-a2;\r
@@ -626,7 +589,6 @@ void mglCanvas::quad_draw(long k1, long k2, long k3, long k4, mglDrawReg *d)
                fast_draw(k1,k2,d);     fast_draw(k1,k3,d);\r
                fast_draw(k4,k2,d);     fast_draw(k4,k3,d);     return;\r
        }\r
-       clr(MGL_FINISHED);\r
        unsigned char r[4];\r
        long y1,x1,y2,x2;\r
        float dd,dsx,dsy;\r
@@ -637,8 +599,8 @@ void mglCanvas::quad_draw(long k1, long k2, long k3, long k4, mglDrawReg *d)
        y1 = long(fmin(fmin(p1.y,p2.y),fmin(p3.y,p4.y)));\r
        x2 = long(fmax(fmax(p1.x,p2.x),fmax(p3.x,p4.x)));\r
        y2 = long(fmax(fmax(p1.y,p2.y),fmax(p3.y,p4.y)));\r
-       x1=x1>d->x1?x1:d->x1;   x2=x2<d->x2?x2:d->x2-1;\r
-       y1=y1>d->y1?y1:d->y1;   y2=y2<d->y2?y2:d->y2-1;\r
+       x1=x1>d->x1?x1:d->x1;   x2=x2<d->x2?x2:d->x2;\r
+       y1=y1>d->y1?y1:d->y1;   y2=y2<d->y2?y2:d->y2;\r
        if(x1>x2 || y1>y2)      return;\r
 \r
        dd = d1.x*d2.y-d1.y*d2.x;\r
@@ -684,7 +646,7 @@ void mglCanvas::quad_draw(long k1, long k2, long k3, long k4, mglDrawReg *d)
                p = p1+d1*u+d2*v+d3*(u*v);\r
                if(mgl_isnan(p.u) && !mgl_isnan(p.v))\r
                {       p.u = nr.x;     p.v = nr.y;     p.w = nr.z;     }\r
-               pnt_plot(i,j,p.z,col2int(p,r));\r
+               pnt_plot(i,j,p.z,col2int(p,r,d->ObjId),d->ObjId);\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -698,7 +660,6 @@ void mglCanvas::trig_draw(long k1, long k2, long k3, bool anorm, mglDrawReg *d)
                fast_draw(k1,k2,d);     fast_draw(k1,k3,d);\r
                fast_draw(k2,k3,d);     return;\r
        }\r
-       clr(MGL_FINISHED);\r
        unsigned char r[4];\r
        long y1,x1,y2,x2;\r
        float dxu,dxv,dyu,dyv;\r
@@ -714,8 +675,8 @@ void mglCanvas::trig_draw(long k1, long k2, long k3, bool anorm, mglDrawReg *d)
        y1 = long(fmin(fmin(p1.y,p2.y),p3.y));\r
        x2 = long(fmax(fmax(p1.x,p2.x),p3.x));\r
        y2 = long(fmax(fmax(p1.y,p2.y),p3.y));\r
-       x1=x1>d->x1?x1:d->x1;   x2=x2<d->x2?x2:d->x2-1;\r
-       y1=y1>d->y1?y1:d->y1;   y2=y2<d->y2?y2:d->y2-1;\r
+       x1=x1>d->x1?x1:d->x1;   x2=x2<d->x2?x2:d->x2;\r
+       y1=y1>d->y1?y1:d->y1;   y2=y2<d->y2?y2:d->y2;\r
        if(x1>x2 || y1>y2)      return;\r
        // default normale\r
        mglPoint nr = mglPoint(p2.x-p1.x,p2.y-p1.y,p2.z-p1.z)^mglPoint(p3.x-p1.x,p3.y-p1.y,p3.z-p1.z);\r
@@ -733,30 +694,34 @@ void mglCanvas::trig_draw(long k1, long k2, long k3, bool anorm, mglDrawReg *d)
                        p = p1+d1*u+d2*v;\r
                        if(mgl_isnan(p.u) && !mgl_isnan(p.v) && anorm)\r
                        {       p.u = nr.x;     p.v = nr.y;     p.w = nr.z;     }\r
-                       pnt_plot(i,j,p.z,col2int(p,r));\r
+                       pnt_plot(i,j,p.z,col2int(p,r,d->ObjId),d->ObjId);\r
                }\r
-               else    pnt_plot(i,j,p1.z,col2int(p1,r));\r
+               else    pnt_plot(i,j,p1.z,col2int(p1,r,d->ObjId),d->ObjId);\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::line_draw(long k1, long k2, mglDrawReg *dr)\r
 {\r
+       if(k1>k2)       {       long kk=k1;     k1=k2;  k2=kk;  }       // rearrange start/end for proper dashing\r
        if(!(Quality&3))        {       fast_draw(k1,k2,dr);    return; }\r
-       clr(MGL_FINISHED);\r
        unsigned char r[4];\r
        long y1,x1,y2,x2;\r
 \r
-       float pw=PenWidth*sqrt(font_factor/400), dxu,dxv,dyu,dyv,dd,dpw=3;\r
-       if(ObjId==HighId)       {       pw *= 2;        dpw=2;  }\r
+       float pw=dr->PenWidth, dxu,dxv,dyu,dyv,dd,dpw=3;\r
+       float dz = Width>2 ? 1 : 1e-5*Width;            // provide additional height to be well visible on the surfaces\r
+\r
+       if(dr->ObjId==HighId)   {       pw *= 2;        dpw=2;  }\r
        const mglPnt &p1=Pnt[k1], &p2=Pnt[k2];\r
        mglPnt d=p2-p1, p;\r
        bool hor = fabs(d.x)>fabs(d.y);\r
 \r
        x1 = long(fmin(p1.x,p2.x));     y1 = long(fmin(p1.y,p2.y));     // bounding box\r
        x2 = long(fmax(p1.x,p2.x));     y2 = long(fmax(p1.y,p2.y));\r
-       x1=x1>dr->x1?x1:dr->x1; x2=x2<dr->x2?x2:dr->x2-1;\r
-       y1=y1>dr->y1?y1:dr->y1; y2=y2<dr->y2?y2:dr->y2-1;\r
-       dd = sqrt(d.x*d.x + d.y*d.y);\r
+       x1 -= pw+3.5;   x2 += pw+3.5;\r
+       y1 -= pw+3.5;   y2 += pw+3.5;\r
+       x1=x1>dr->x1?x1:dr->x1; x2=x2<dr->x2?x2:dr->x2;\r
+       y1=y1>dr->y1?y1:dr->y1; y2=y2<dr->y2?y2:dr->y2;\r
+       dd = hypot(d.x, d.y);\r
        if(x1>x2 || y1>y2 || dd<1e-5)   return;\r
 \r
        dxv = d.y/dd;   dyv =-d.x/dd;\r
@@ -770,39 +735,39 @@ void mglCanvas::line_draw(long k1, long k2, mglDrawReg *dr)
        {\r
                y1 = int(p1.y+d.y*(i-p1.x)/d.x - pw - 3.5);\r
                y2 = int(p1.y+d.y*(i-p1.x)/d.x + pw + 3.5);\r
-               y1=y1>dr->y1?y1:dr->y1; y2=y2<dr->y2?y2:dr->y2-1;\r
+               y1=y1>dr->y1?y1:dr->y1; y2=y2<dr->y2?y2:dr->y2;\r
                if(y1>y2)       continue;\r
                for(j=y1;j<=y2;j++)\r
                {\r
                        xx = (i-p1.x);  yy = (j-p1.y);\r
                        u = dxu*xx+dyu*yy;      v = dxv*xx+dyv*yy;      v = v*v;\r
-                       if(u<0)                 {       v += u*u;                       u = 0;  }\r
-                       else if(u>dd)   {       v += (u-dd)*(u-dd);     u = dd; }\r
+                       if(u<0)                 v += u*u;\r
+                       else if(u>dd)   v += (u-dd)*(u-dd);\r
                        if(v>pw*pw)             continue;\r
-                       if(!( PDef & ( 1<<long(fmod(pPos+u/pw/1.5, 16)) ) ))    continue;\r
-                       p = p1+d*(u/dd);        col2int(p,r);\r
+                       if(!(dr->PDef & ( 1<<long(fmod(dr->pPos+u/pw/1.5, 16)) ) ))     continue;\r
+                       p = p1+d*(u/dd);        col2int(p,r,dr->ObjId);\r
                        r[3] = v<(pw-1)*(pw-1)/4 ? 255 : (unsigned char)(255/cosh(dpw*(sqrt(v)+(1-pw)/2)));\r
-                       pnt_plot(i,j,p.z+pw,r);\r
+                       pnt_plot(i,j,p.z+dz,r,dr->ObjId);\r
                }\r
        }\r
        else    for(j=y1;j<=y2;j++)\r
        {\r
                x1 = int(p1.x+d.x*(j-p1.y)/d.y - pw - 3.5);\r
                x2 = int(p1.x+d.x*(j-p1.y)/d.y + pw + 3.5);\r
-               x1=x1>dr->x1?x1:dr->x1; x2=x2<dr->x2?x2:dr->x2-1;\r
+               x1=x1>dr->x1?x1:dr->x1; x2=x2<dr->x2?x2:dr->x2;\r
                if(x1>x2)       continue;\r
 \r
                for(i=x1;i<=x2;i++)\r
                {\r
                        xx = (i-p1.x);  yy = (j-p1.y);\r
                        u = dxu*xx+dyu*yy;      v = dxv*xx+dyv*yy;      v = v*v;\r
-                       if(u<0)                 {       v += u*u;                       u = 0;  }\r
-                       else if(u>dd)   {       v += (u-dd)*(u-dd);     u = dd; }\r
+                       if(u<0)                 v += u*u;\r
+                       else if(u>dd)   v += (u-dd)*(u-dd);\r
                        if(v>pw*pw)             continue;\r
-                       if(!(PDef & (1<<long(fmod(pPos+u/pw/1.5, 16)))))                continue;\r
-                       p = p1+d*(u/dd);        col2int(p,r);\r
+                       if(!(dr->PDef & (1<<long(fmod(dr->pPos+u/pw/1.5, 16)))))                continue;\r
+                       p = p1+d*(u/dd);        col2int(p,r,dr->ObjId);\r
                        r[3] = v<(pw-1)*(pw-1)/4 ? 255 : (unsigned char)(255/cosh(dpw*(sqrt(v)+(1-pw)/2)));\r
-                       pnt_plot(i,j,p.z+pw,r);\r
+                       pnt_plot(i,j,p.z+dz,r,dr->ObjId);\r
                }\r
        }\r
        set(aa,MGL_ENABLE_ALPHA);\r
@@ -810,13 +775,11 @@ void mglCanvas::line_draw(long k1, long k2, mglDrawReg *dr)
 //-----------------------------------------------------------------------------\r
 void mglCanvas::fast_draw(long k1, long k2, mglDrawReg *dr)\r
 {\r
-       clr(MGL_FINISHED);\r
        const mglPnt &p1=Pnt[k1], &p2=Pnt[k2];\r
        mglPnt d=p2-p1;\r
-       unsigned char r[4];     col2int(p1,r);\r
+       unsigned char r[4];     col2int(p1,r,dr->ObjId);\r
        long y1,x1,y2,x2;\r
 \r
-       float pw = PenWidth*sqrt(font_factor/400);\r
        bool hor = fabs(d.x)>fabs(d.y);\r
 \r
        x1 = long(fmin(p1.x,p2.x));     y1 = long(fmin(p1.y,p2.y));     // bounding box\r
@@ -826,27 +789,28 @@ void mglCanvas::fast_draw(long k1, long k2, mglDrawReg *dr)
        if(x1>x2 || y1>y2)      return;\r
 \r
        register long i, c;\r
-       if(hor) for(i=x1;i<=x2;i++)\r
+       if(hor && d.x!=0)       for(i=x1;i<=x2;i++)\r
        {\r
                c = long(p1.y+d.y*(i-p1.x)/d.x);\r
                if(c>=y1 && c<=y2)\r
-                       pnt_plot(i, c, p1.z+d.z*(i-p1.x)/d.x+pw, r);\r
+                       pnt_plot(i, c, p1.z+d.z*(i-p1.x)/d.x, r,dr->ObjId);\r
        }\r
-       else    for(i=y1;i<=y2;i++)\r
+       else if(d.y!=0)         for(i=y1;i<=y2;i++)\r
        {\r
                c = long(p1.x+d.x*(i-p1.y)/d.y);\r
                if(c>=x1 && c<=x2)\r
-                       pnt_plot(c, i, p1.z+d.z*(i-p1.y)/d.y+pw, r);\r
+                       pnt_plot(c, i, p1.z+d.z*(i-p1.y)/d.y, r,dr->ObjId);\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::pnt_draw(long k, mglDrawReg *dr)\r
 {\r
        register long i,j,s,x,y;\r
-       register float v,pw=2*PenWidth*sqrt(font_factor/400),dpw=3;\r
-       if(ObjId==HighId)       {       pw *= 2;        dpw=2;  }\r
+       register float v,pw=2*dr->PenWidth*sqrt(font_factor/400),dpw=3;\r
+       if(dr->ObjId==HighId)   {       pw *= 2;        dpw=2;  }\r
        const mglPnt &p=Pnt[k];\r
-       unsigned char cs[4], cc;        col2int(p,cs);  cc = cs[3];\r
+       unsigned char cs[4], cc;\r
+       col2int(p,cs,dr->ObjId);        cc = cs[3];\r
        if(cc==0)       return;\r
        s = long(5.5+fabs(pw));\r
        for(j=-s;j<=s;j++)      for(i=-s;i<=s;i++)\r
@@ -857,26 +821,29 @@ void mglCanvas::pnt_draw(long k, mglDrawReg *dr)
                if(cs[3]==0)    continue;\r
                x=p.x+i;        y=p.y+j;\r
                if(x>=dr->x1 && x<=dr->x2 && y>=dr->y1 && y<=dr->y2)\r
-                       pnt_plot(p.x+i,p.y+j,p.z,cs);\r
+                       pnt_plot(p.x+i,p.y+j,p.z,cs,dr->ObjId);\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::mark_draw(long k, char type, mreal size, mglDrawReg *d)\r
 {\r
        const mglPnt &q=Pnt[k];\r
-       unsigned char cs[4];    col2int(q,cs);  cs[3] = size>0 ? 255 : 255*q.t;\r
-       unsigned long pos = Pnt.size(), qos=pos;\r
+       unsigned char cs[4];    col2int(q,cs,d->ObjId); cs[3] = size>0 ? 255 : 255*q.t;\r
        mglPnt p=q;\r
-       mreal ss=fabs(size)*0.35*font_factor;\r
+       mreal ss=fabs(size);\r
        register long i,j;\r
 #if MGL_HAVE_PTHREAD\r
        pthread_mutex_lock(&mutexPnt);\r
 #endif\r
+       size_t pos = Pnt.size(), qos=pos;\r
        if(type=='.' || ss==0)  pnt_draw(k,d);\r
        else\r
        {\r
-               mreal pw = PenWidth;    PenWidth = 1;\r
-               int pd = PDef;  PDef = 0xffff;\r
+               if(d)\r
+               {\r
+                       d->PDef = 0xffff;       d->PenWidth*=fabs(50*size);\r
+                       if(d->PenWidth<1)       d->PenWidth=1;\r
+               }\r
                if(!strchr("xsSoO",type))       ss *= 1.1;\r
                switch(type)\r
                {\r
@@ -986,8 +953,8 @@ void mglCanvas::mark_draw(long k, char type, mreal size, mglDrawReg *d)
                        for(j=long(-ss);j<=long(ss);j++)        for(i=long(-ss);i<=long(ss);i++)\r
                        {\r
                                register long x=long(q.x)+i, y=long(q.y)+j;\r
-                               if(i*i+j*j>=ss*ss || x<d->x1 || x>d->x2 || y<d->y1 || y>d->y2)  continue;\r
-                               pnt_plot(x,y,q.z+1,cs);\r
+                               if(i*i+j*j>=ss*ss || !d || x<d->x1 || x>d->x2 || y<d->y1 || y>d->y2)    continue;\r
+                               pnt_plot(x,y,q.z+1,cs,d->ObjId);\r
                        }\r
                case 'o':\r
                        for(i=0;i<=20;i++)\r
@@ -1005,7 +972,6 @@ void mglCanvas::mark_draw(long k, char type, mreal size, mglDrawReg *d)
                        }\r
                        break;\r
                }\r
-               PDef = pd;      PenWidth = pw;\r
                Pnt.erase(Pnt.begin()+pos,Pnt.end());\r
        }\r
 #if MGL_HAVE_PTHREAD\r
@@ -1015,17 +981,38 @@ void mglCanvas::mark_draw(long k, char type, mreal size, mglDrawReg *d)
 //-----------------------------------------------------------------------------\r
 void mglCanvas::glyph_draw(const mglPrim *P, mglDrawReg *d)\r
 {\r
-       mglPnt p=Pnt[P->n1];\r
-       mreal f = p.w;\r
+       mglPnt p=Pnt[P->n1], q=Pnt[P->n2];\r
+       // scale direction for new view/zoom\r
+       float dv = (1-Bp.pf)/(1-Bp.pf*q.z/Depth);\r
+       float x,y,z,c=Bp.pf/(1-Bp.pf)/Depth,ll,phi=P->w;\r
+       x = Bp.b[0]*q.u + Bp.b[1]*q.v + Bp.b[2]*q.w;\r
+       y = Bp.b[3]*q.u + Bp.b[4]*q.v + Bp.b[5]*q.w;\r
+       z = Bp.b[6]*q.u + Bp.b[7]*q.v + Bp.b[8]*q.w;\r
+\r
+//     register float d = (1-Bp.pf)/(1-Bp.pf*p.z/Depth);\r
+//     p.x = Width/2 + d*p.x;  p.y = Height/2 + d*p.y;\r
+\r
+       // po = (pn-w/2)/dv, dr = dv*dx+po*((1-pf)*pf/depth/(1-...)^2)*dz\r
+       \r
+       x += (q.x-Width/2)*z*c*dv;\r
+       y += (q.y-Height/2)*z*c*dv;\r
+       ll = x*x+y*y;\r
+       if(ll < 1e-10)  return;\r
+       if(ll==ll)      phi = -atan2(y,x)*180/M_PI;\r
+\r
+       mreal pf=sqrt((Bp.b[0]*Bp.b[0]+Bp.b[1]*Bp.b[1]+Bp.b[3]*Bp.b[3]+Bp.b[4]*Bp.b[4])/2), f = P->p*pf;\r
 #if MGL_HAVE_PTHREAD\r
        pthread_mutex_lock(&mutexPnt);\r
 #endif\r
        Push();         B.clear();\r
-       B.b[0] = B.b[4] = B.b[8] = P->s*P->p;\r
-       RotateN(P->w,0,0,1);    B.pf = P->p;\r
-       B.x=p.x;        B.y=p.y;        B.z=p.z;\r
+       B.b[0] = B.b[4] = B.b[8] = P->s;\r
+//     mreal cw=cos(phi), sw=-sin(phi);\r
+//     mreal tet = 180/M_PI*atan2(-Bp.b[3]*cw-Bp.b[4]*sw, Bp.b[0]*cw+Bp.b[1]*sw);\r
+       RotateN(phi,0,0,1);\r
+       B.x=p.x;        B.y=p.y;        B.z=p.z;        B.pf = 1;\r
+       p.u *= pf;      p.v *= pf;\r
 \r
-       int ss=P->n3&3;\r
+       const mglGlyph &g = Glf[P->n4];\r
        if(P->n3&8)\r
        {\r
                if(!(P->n3&4))  glyph_line(p,f,true, d);\r
@@ -1033,8 +1020,8 @@ void mglCanvas::glyph_draw(const mglPrim *P, mglDrawReg *d)
        }\r
        else\r
        {\r
-               if(!(P->n3&4))  glyph_fill(p,f,fnt->GetNt(ss,P->n4),fnt->GetTr(ss,P->n4), d);\r
-               glyph_wire(p,f,fnt->GetNl(ss,P->n4),fnt->GetLn(ss,P->n4), d);\r
+               if(!(P->n3&4))  glyph_fill(p,f,g, d);\r
+               glyph_wire(p,f,g, d);\r
        }\r
        Pop();\r
 #if MGL_HAVE_PTHREAD\r
@@ -1042,65 +1029,59 @@ void mglCanvas::glyph_draw(const mglPrim *P, mglDrawReg *d)
 #endif\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::glyph_fill(const mglPnt &pp, mreal f, int nt, const short *trig, mglDrawReg *d)\r
+void mglCanvas::glyph_fill(const mglPnt &pp, mreal f, const mglGlyph &g, mglDrawReg *d)\r
 {\r
-       if(!trig || nt<=0)      return;\r
+       if(!g.trig || g.nt<=0)  return;\r
        long ik,ii,pos=Pnt.size();\r
        mglPnt p=pp;    p.u=p.v=NAN;\r
-       mreal pw = Width>2 ? fabs(PenWidth) : 1e-5*Width;\r
-\r
        mglPoint p1,p2,p3;\r
-       for(ik=0;ik<nt;ik++)\r
+       for(ik=0;ik<g.nt;ik++)\r
        {\r
-               ii = 6*ik;      p1 = mglPoint(f*trig[ii]+pp.u,f*trig[ii+1]+pp.v,0);     PostScale(p1);\r
-               ii+=2;          p2 = mglPoint(f*trig[ii]+pp.u,f*trig[ii+1]+pp.v,0);     PostScale(p2);\r
-               ii+=2;          p3 = mglPoint(f*trig[ii]+pp.u,f*trig[ii+1]+pp.v,0);     PostScale(p3);\r
-               p.x = p1.x;     p.y = p1.y;     p.z = p1.z+pw;  Pnt.push_back(p);\r
-               p.x = p2.x;     p.y = p2.y;     p.z = p2.z+pw;  Pnt.push_back(p);\r
-               p.x = p3.x;     p.y = p3.y;     p.z = p3.z+pw;  Pnt.push_back(p);\r
+               ii = 6*ik;      p1 = mglPoint(f*g.trig[ii]+pp.u,f*g.trig[ii+1]+pp.v,0); PostScale(p1);\r
+               ii+=2;          p2 = mglPoint(f*g.trig[ii]+pp.u,f*g.trig[ii+1]+pp.v,0); PostScale(p2);\r
+               ii+=2;          p3 = mglPoint(f*g.trig[ii]+pp.u,f*g.trig[ii+1]+pp.v,0); PostScale(p3);\r
+               p.x = p1.x;     p.y = p1.y;     p.z = p1.z;     Pnt.push_back(p);\r
+               p.x = p2.x;     p.y = p2.y;     p.z = p2.z;     Pnt.push_back(p);\r
+               p.x = p3.x;     p.y = p3.y;     p.z = p3.z;     Pnt.push_back(p);\r
                ii = Pnt.size()-3;      trig_draw(ii,ii+1,ii+2,false,d);\r
        }\r
        Pnt.erase(Pnt.begin()+pos,Pnt.end());\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mglCanvas::glyph_wire(const mglPnt &pp, mreal f, int nl, const short *line, mglDrawReg *d)\r
+void mglCanvas::glyph_wire(const mglPnt &pp, mreal f, const mglGlyph &g, mglDrawReg *d)\r
 {\r
-       if(!line || nl<=0)      return;\r
+       if(!g.line || g.nl<=0)  return;\r
        long ik,ii,il=0,pos=Pnt.size();\r
        mglPnt p=pp;    p.u=p.v=NAN;\r
-       unsigned pdef=PDef;     PDef = 0xffff;\r
-       mreal opw=PenWidth;     PenWidth=0.75;\r
+       if(d)   {       d->PDef = 0xffff;       d->PenWidth=0.75;       }\r
        mglPoint p1,p2;\r
-       for(ik=0;ik<nl;ik++)\r
+       for(ik=0;ik<g.nl;ik++)\r
        {\r
                ii = 2*ik;\r
-               if(line[ii]==0x3fff && line[ii+1]==0x3fff)      // line breakthrough\r
+               if(g.line[ii]==0x3fff && g.line[ii+1]==0x3fff)  // line breakthrough\r
                {       il = ik+1;      continue;       }\r
-               else if(ik==nl-1 || (line[ii+2]==0x3fff && line[ii+3]==0x3fff))\r
+               else if(ik==g.nl-1 || (g.line[ii+2]==0x3fff && g.line[ii+3]==0x3fff))\r
                {       // enclose the circle. May be in future this block should be commented\r
-                       p1 = mglPoint(f*line[ii]+pp.u,f*line[ii+1]+pp.v,0);     ii=2*il;\r
-                       p2 = mglPoint(f*line[ii]+pp.u,f*line[ii+1]+pp.v,0);\r
+                       p1 = mglPoint(f*g.line[ii]+pp.u,f*g.line[ii+1]+pp.v,0); ii=2*il;\r
+                       p2 = mglPoint(f*g.line[ii]+pp.u,f*g.line[ii+1]+pp.v,0);\r
                }\r
                else\r
                {       // normal line\r
-                       p1 = mglPoint(f*line[ii]+pp.u,f*line[ii+1]+pp.v,0);     ii+=2;\r
-                       p2 = mglPoint(f*line[ii]+pp.u,f*line[ii+1]+pp.v,0);\r
+                       p1 = mglPoint(f*g.line[ii]+pp.u,f*g.line[ii+1]+pp.v,0); ii+=2;\r
+                       p2 = mglPoint(f*g.line[ii]+pp.u,f*g.line[ii+1]+pp.v,0);\r
                }\r
                PostScale(p1);  PostScale(p2);\r
                p.x = p1.x;     p.y = p1.y;     p.z = p1.z;     Pnt.push_back(p);\r
                p.x = p2.x;     p.y = p2.y;     p.z = p2.z;     Pnt.push_back(p);\r
                ii = Pnt.size()-2;      line_draw(ii,ii+1,d);\r
        }\r
-       PDef = pdef;    PenWidth = opw;\r
        Pnt.erase(Pnt.begin()+pos,Pnt.end());\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mglCanvas::glyph_line(const mglPnt &pp, mreal f, bool solid, mglDrawReg *d)\r
 {\r
        mglPnt p=pp;    p.u=p.v=NAN;\r
-       mreal pw = Width>2 ? fabs(PenWidth) : 1e-5*Width;\r
-       unsigned pdef=PDef;     PDef = 0xffff;\r
-       mreal opw=PenWidth;     PenWidth=1;\r
+       if(d)   {       d->PDef = 0xffff;       d->PenWidth=1;  }\r
        mglPoint p1,p2,p3,p4;\r
        long pos=Pnt.size();\r
 \r
@@ -1110,10 +1091,10 @@ void mglCanvas::glyph_line(const mglPnt &pp, mreal f, bool solid, mglDrawReg *d)
        p3 = mglPoint(fabs(f)+pp.u,pp.v+dy,0);  PostScale(p3);\r
        p4 = mglPoint(fabs(f)+pp.u,pp.v-dy,0);  PostScale(p4);\r
 \r
-       p.x = p1.x;     p.y = p1.y;     p.z = p1.z+(solid?pw:0);        Pnt.push_back(p);\r
-       p.x = p2.x;     p.y = p2.y;     p.z = p2.z+(solid?pw:0);        Pnt.push_back(p);\r
-       p.x = p3.x;     p.y = p3.y;     p.z = p3.z+(solid?pw:0);        Pnt.push_back(p);\r
-       p.x = p4.x;     p.y = p4.y;     p.z = p4.z+(solid?pw:0);        Pnt.push_back(p);\r
+       p.x = p1.x;     p.y = p1.y;     p.z = p1.z;     Pnt.push_back(p);\r
+       p.x = p2.x;     p.y = p2.y;     p.z = p2.z;     Pnt.push_back(p);\r
+       p.x = p3.x;     p.y = p3.y;     p.z = p3.z;     Pnt.push_back(p);\r
+       p.x = p4.x;     p.y = p4.y;     p.z = p4.z;     Pnt.push_back(p);\r
 \r
        if(solid)       quad_draw(pos,pos+1,pos+3,pos+2,d);\r
        else\r
@@ -1121,7 +1102,135 @@ void mglCanvas::glyph_line(const mglPnt &pp, mreal f, bool solid, mglDrawReg *d)
                line_draw(pos,pos+1,d); line_draw(pos+2,pos+1,d);\r
                line_draw(pos,pos+3,d); line_draw(pos+2,pos+3,d);\r
        }\r
-       PDef = pdef;    PenWidth=opw;\r
        Pnt.erase(Pnt.begin()+pos,Pnt.end());\r
 }\r
 //-----------------------------------------------------------------------------\r
+long mglCanvas::setPp(mglPnt &q, const mglPoint &p)\r
+{\r
+       q.xx=q.x=p.x;   q.yy=q.y=p.y;   q.zz=q.z=p.z;\r
+       MGL_PUSH(Pnt,q,mutexPnt);\r
+       return Pnt.size()-1;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::arrow_draw(long n1, long n2, char st, float ll)\r
+{\r
+       if(n1<0 || n2<0 || !strchr("AVKSDTIO",st))      return;\r
+       const mglPnt &p1=Pnt[n1], &p2=Pnt[n2];\r
+       mglPnt q=p1;    //q.u=q.v=q.w=0;\r
+       \r
+       mglPoint kl=mglPoint(p1.x-p2.x,p1.y-p2.y,p1.z-p2.z), kt, p0=mglPoint(p1.x,p1.y,p1.z), p;\r
+       mreal d = hypot(kl.x,kl.y);\r
+       if(d==0)        return;\r
+       kl /= d;        kt = !kl;\r
+       kl *= ll;       kt *= ll;\r
+       \r
+       Reserve(8);\r
+       long k1,k2,k3,k4;\r
+       \r
+       switch(st)      // S,D -- cube, T -- sq.pyramid, I -- square, O -- sphere???, A,K,V -- cone???\r
+       {\r
+               case 'I':\r
+                       k1=setPp(q,p0+kt);      k2=setPp(q,p0-kt);      line_plot(k1,k2);       break;\r
+               case 'D':\r
+                       k1=setPp(q,p0+kl);      k2=setPp(q,p0-kl);      k3=setPp(q,p0+kt);      k4=setPp(q,p0-kt);\r
+                       trig_plot(k1,k2,k3);    trig_plot(k1,k2,k4);    break;\r
+               case 'S':\r
+                       k1=setPp(q,p0+kl+kt);   k2=setPp(q,p0+kl-kt);\r
+                       k3=setPp(q,p0-kl-kt);   k4=setPp(q,p0-kl+kt);\r
+                       quad_plot(k1,k2,k4,k3); break;\r
+               case 'T':\r
+                       k1=setPp(q,p0-kl+kt);   k2=setPp(q,p0-kl-kt);   k3=setPp(q,p0+kl);\r
+                       trig_plot(k1,k2,k3);    break;\r
+               case 'K':\r
+                       k1=setPp(q,p0+kt);      k2=setPp(q,p0-kt);      line_plot(k1,k2);\r
+               case 'A':\r
+                       k1=setPp(q,p0-2.*kl+kt);        k2=setPp(q,p0-2.*kl-kt);        k3=setPp(q,p0-1.5*kl);\r
+                       trig_plot(n1,k3,k1);    trig_plot(n1,k3,k2);    break;\r
+               case 'V':\r
+                       k1=setPp(q,p0+2.*kl+kt);        k2=setPp(q,p0+2.*kl-kt);        k3=setPp(q,p0+1.5*kl);\r
+                       trig_plot(n1,k3,k1);    trig_plot(n1,k3,k2);    break;\r
+               case 'O':       // let draw icosahedron\r
+               {\r
+                       const int n = 12;       k1=setPp(q,p0+kl);\r
+                       for(int i=1;i<=n;i++)\r
+                       {\r
+                               mreal u = 2*i*M_PI/n;\r
+                               k2 = k1;        k1 = setPp(q,p0+kl*cos(u)+kt*sin(u));\r
+                               trig_plot(n1,k1,k2);\r
+                       }\r
+                       break;\r
+               }\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvas::arrow_plot_3d(long n1, long n2, char st, float ll)\r
+{\r
+       if(n1<0 || n2<0 || !strchr("AVKSDTIO",st))      return;\r
+       const mglPnt &p1=Pnt[n1], &p2=Pnt[n2];\r
+       mglPnt q=p1;    //q.u=q.v=q.w=0;\r
+       \r
+       mglPoint kl=mglPoint(p1.x-p2.x,p1.y-p2.y,p1.z-p2.z), kt, kz, p0=mglPoint(p1.x,p1.y,p1.z), p;\r
+       if(kl.norm()==0)        return;\r
+       kl.Normalize(); kt = !kl;       kz = kl^kt;\r
+       kl *= ll;       kt *= ll;       kz *= ll;\r
+       \r
+       Reserve(8);\r
+       long k1,k2,k3,k4,k5, k6,k7,k8;\r
+       \r
+       switch(st)      // S,D -- cube, T -- sq.pyramid, I -- square, O -- sphere???, A,K,V -- cone???\r
+       {\r
+               case 'I':\r
+                       k1=setPp(q,p0+kt);      k2=setPp(q,p0+kz);\r
+                       k3=setPp(q,p0-kt);      k4=setPp(q,p0-kz);\r
+                       quad_plot(k1,k2,k4,k3); break;\r
+               case 'D':\r
+                       k1=setPp(q,p0+kl);      k2=setPp(q,p0-kl);      k5=k3=setPp(q,p0+kt);\r
+                       k4=setPp(q,p0+kz);      trig_plot(k1,k3,k4);    trig_plot(k2,k3,k4);    k3=k4;\r
+                       k4=setPp(q,p0-kt);      trig_plot(k1,k3,k4);    trig_plot(k2,k3,k4);    k3=k4;\r
+                       k4=setPp(q,p0-kz);      trig_plot(k1,k3,k4);    trig_plot(k2,k3,k4);    k3=k4;\r
+                       trig_plot(k1,k3,k5);    trig_plot(k2,k3,k5);    break;\r
+               case 'S':\r
+                       k1=setPp(q,p0+kl+kt);   k2=setPp(q,p0+kl+kz);   k3=setPp(q,p0+kl-kt);   k4=setPp(q,p0+kl-kz);\r
+                       k5=setPp(q,p0-kl+kt);   k6=setPp(q,p0-kl+kz);   k7=setPp(q,p0-kl-kt);   k8=setPp(q,p0-kl-kz);\r
+                       quad_plot(k1,k2,k4,k3); quad_plot(k1,k2,k5,k6); quad_plot(k3,k2,k7,k6);\r
+                       quad_plot(k1,k4,k5,k8); quad_plot(k3,k4,k7,k8); quad_plot(k5,k6,k8,k7); break;\r
+               case 'T':\r
+                       k1=setPp(q,p0-kl+kt);   k2=setPp(q,p0-kl+kz);   k3=setPp(q,p0-kl-kt);\r
+                       k4=setPp(q,p0-kl-kz);   k5=setPp(q,p0+kl);\r
+                       trig_plot(k1,k2,k5);    trig_plot(k2,k3,k5);\r
+                       trig_plot(k3,k4,k5);    trig_plot(k1,k4,k5);    break;\r
+               case 'K':\r
+                       k1=setPp(q,p0+kt);      k2=setPp(q,p0+kz);\r
+                       k3=setPp(q,p0-kt);      k4=setPp(q,p0-kz);      quad_plot(k1,k2,k4,k3);\r
+               case 'A':\r
+                       k1=setPp(q,p0-2.*kl+kt);        k2=setPp(q,p0-2.*kl+kz);        k3=setPp(q,p0-2.*kl-kt);\r
+                       k4=setPp(q,p0-2.*kl-kz);        k5=setPp(q,p0-1.5*kl);\r
+                       trig_plot(n1,k5,k1);    trig_plot(n1,k5,k2);\r
+                       trig_plot(n1,k5,k3);    trig_plot(n1,k5,k4);    break;\r
+               case 'V':\r
+                       k1=setPp(q,p0+2.*kl+kt);        k2=setPp(q,p0+2.*kl+kz);        k3=setPp(q,p0+2.*kl-kt);\r
+                       k4=setPp(q,p0+2.*kl-kz);        k5=setPp(q,p0+1.5*kl);\r
+                       trig_plot(n1,k5,k1);    trig_plot(n1,k5,k2);\r
+                       trig_plot(n1,k5,k3);    trig_plot(n1,k5,k4);    break;\r
+               case 'O':       // let draw icosahedron\r
+               {\r
+                       const int n = 12, m = n/2;      Reserve(n*m);\r
+                       register long i,j;\r
+                       long *nn=new long[2*n], n1=setPp(q,p0+kl), n2=setPp(q,p0-kl);\r
+                       mreal u,v,rr;\r
+                       for(i=0;i<m;i++)        for(j=0;j<n;j++)\r
+                       {\r
+                               if(i>0 && i<m-1)\r
+                               {\r
+                                       u = i*M_PI/(m-1.);      v = 2*M_PI*j/(n-1.)-1;  rr = sin(u);\r
+                                       nn[j+n]=nn[j];  nn[j]=setPp(q,p0+kl*cos(u)+kt*rr*cos(v)+kz*rr*sin(v));\r
+                               }\r
+                               else if(i==0)   nn[j] = n1;\r
+                               else if(i==m-1) {       nn[j+n]=nn[j];  nn[j]=n2;       }\r
+                               if(i*j>0)       quad_plot(nn[j-1], nn[j], nn[j+n-1], nn[j+n]);\r
+                       }\r
+                       delete []nn;    break;\r
+               }\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/plot.cpp b/src/plot.cpp
index 4dcc56b2bd5741318710f2fc7f64a0114f7951c3..c68c47499e05079413b1fe46cb889a2a475cf95e 100644 (file)
--- a/src/plot.cpp
+++ b/src/plot.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * plot.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -30,12 +30,13 @@ void mgl_fplot(HMGL gr, const char *eqY, const char *pen, const char *opt)
        if(eqY==0 || eqY[0]==0) return;         // nothing to plot\r
        mreal r = gr->SaveState(opt);\r
        long n = (mgl_isnan(r) || r<=0) ? 100:long(r+0.5);\r
+       long nm = gr->FaceNum?gr->FaceNum*n:10000, nd = gr->FaceNum?gr->FaceNum*10:1000;\r
 \r
        mreal *x = (mreal *)malloc(n*sizeof(mreal));\r
        mreal *y = (mreal *)malloc(n*sizeof(mreal));\r
        mglFormula *eq = new mglFormula(eqY);\r
        register int i;\r
-       mreal d = (gr->Max.x - gr->Min.x)/(n-1.), xs, ys, yr, ym=fabs(gr->Max.y - gr->Min.y)/1000;\r
+       mreal d = (gr->Max.x - gr->Min.x)/(n-1.), xs, ys, yr, ym=fabs(gr->Max.y - gr->Min.y)/nd;\r
 #define islog(a, b) (((a)>0 && (b)>10*(a)) || ((b)<0 && (a)<10*(b)))\r
        // initial data filling\r
        if(gr->Min.x>0 && gr->Max.x>100*gr->Min.x)      for(i=0,d=log(2*gr->Max.x/gr->Min.x)/(n-1);i<n;i++)\r
@@ -45,7 +46,7 @@ void mgl_fplot(HMGL gr, const char *eqY, const char *pen, const char *opt)
        else for(i=0;i<n;i++)\r
        {       x[i]=gr->Min.x + i*d;   y[i]=eq->Calc(x[i]);    }\r
 \r
-       for(i=0;i<n-1 && n<10000;)\r
+       for(i=0;i<n-1 && n<nm;)\r
        {\r
                if(gr->Stop)    {       delete eq;      return; }\r
                xs=(x[i]+x[i+1])/2;\r
@@ -160,7 +161,7 @@ void mgl_radar(HMGL gr, HCDT a, const char *pen, const char *opt)
                x.a[n+(n+1)*j] = r+a->v(0,j);   y.a[n+(n+1)*j] = 0;\r
        }\r
        mgl_plot_xy(gr,&x,&y,pen,0);\r
-       if(pen && strchr(pen,'#'))      // draw "grid"\r
+       if(mglchr(pen,'#'))     // draw "grid"\r
        {\r
                m = 1.1*(a->Maximal()+r);\r
                x.Create(2);    y.Create(2);\r
@@ -201,7 +202,7 @@ void mgl_candle_xyv(HMGL gr, HCDT x, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const c
        static int cgid=1;      gr->StartGroup("Candle",cgid++);\r
        gr->SaveState(opt);     gr->SetPenPal(pen,&pal);\r
        gr->NextColor(pal);     gr->Reserve(8*n);\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        long n1,n2,n3,n4;\r
        mreal m1,m2,xx,x1,x2,d;\r
@@ -230,6 +231,7 @@ void mgl_candle_xyv(HMGL gr, HCDT x, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const c
                if(sh)  gr->NextColor(pal);\r
        }\r
        if(d1)  delete y1;      if(d2)  delete y2;\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_candle_yv(HMGL gr, HCDT v1, HCDT v2, HCDT y1, HCDT y2, const char *pen, const char *opt)\r
@@ -280,7 +282,7 @@ void mgl_plot_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        bool t1,t2,t3;\r
        mglPoint p1,nn,p2,pt;\r
        long n1=-1,n2=-1,n3=-1;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        for(j=0;j<m;j++)\r
        {\r
@@ -298,25 +300,26 @@ void mgl_plot_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
                        if(t1 && t2)\r
                        {\r
                                gr->line_plot(n1,n2);\r
-                               if(i==0)        gr->arrow_plot(n1,n2,gr->Arrow1);\r
+                               if(i==1)        gr->arrow_plot(n2,n1,gr->Arrow1);\r
                                if(i==n-1)      gr->arrow_plot(n1,n2,gr->Arrow2);\r
                        }\r
 \r
                        if(i>0 && ((t1 && !t2) || (t2 && !t1))) // do smoothing\r
                        {\r
                                mreal i1=0, i2=1, ii;\r
-                               t3=t1;  n3=n1;  // copy current\r
+                               mglPoint q(NAN),p;\r
                                do {\r
                                        ii = (i1+i2)/2;\r
                                        pt.x = p1.x*ii+p2.x*(1-ii);\r
                                        pt.y = p1.y*ii+p2.y*(1-ii);\r
-                                       pt.z = p1.z*ii+p2.z*(1-ii);\r
-                                       n1 = gr->AddPnt(pt);    t1 = n1>=0;\r
-                                       if((t1 && t3) || (t2 && !t1))   i2 = ii;\r
+                                       pt.z = p1.z*ii+p2.z*(1-ii);     p=pt;\r
+                                       t3 = gr->ScalePoint(p,q,false);\r
+                                       if((t1 && t3) || (t2 && !t3))   i2 = ii;\r
                                        else    i1 = ii;\r
                                } while(fabs(i2-i1)>1e-3);\r
-                               if(t2)  gr->line_plot(n1,n2);\r
-                               else    gr->line_plot(n3,n1);\r
+                               n3 = gr->AddPnt(pt,-1,q,-1,2);\r
+                               if(t2)  gr->line_plot(n3,n2);\r
+                               else    gr->line_plot(n1,n3);\r
                        }\r
                        if(sh)  gr->NextColor(pal);\r
                }\r
@@ -394,26 +397,27 @@ void mgl_tens_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT c, const char *pen, cons
                        if(t1 && t2)\r
                        {\r
                                gr->line_plot(n1,n2);\r
-                               if(i==0)        gr->arrow_plot(n1,n2,gr->Arrow1);\r
+                               if(i==1)        gr->arrow_plot(n2,n1,gr->Arrow1);\r
                                if(i==n-1)      gr->arrow_plot(n1,n2,gr->Arrow2);\r
                        }\r
 \r
                        if(i>0 && ((t1 && !t2) || (t2 && !t1))) // do smoothing\r
                        {\r
                                mreal i1=0, i2=1, ii;\r
-                               t3=t1;  n3=n1;  // copy current\r
+                               mglPoint q(NAN),p;\r
                                do {\r
                                        ii = (i1+i2)/2;\r
                                        pt.x = p1.x*ii+p2.x*(1-ii);\r
                                        pt.y = p1.y*ii+p2.y*(1-ii);\r
-                                       pt.z = p1.z*ii+p2.z*(1-ii);\r
+                                       pt.z = p1.z*ii+p2.z*(1-ii);     p=pt;\r
                                        pt.c = p1.c*ii+p2.c*(1-ii);\r
-                                       n1 = gr->AddPnt(pt,gr->GetC(ss,pt.c));  t1 = n1>=0;\r
-                                       if((t1 && t3) || (t2 && !t1))   i2 = ii;\r
+                                       t3 = gr->ScalePoint(p,q,false);\r
+                                       if((t1 && t3) || (t2 && !t3))   i2 = ii;\r
                                        else    i1 = ii;\r
                                } while(fabs(i2-i1)>1e-3);\r
-                               if(t2)  gr->line_plot(n1,n2);\r
-                               else    gr->line_plot(n3,n1);\r
+                               n3 = gr->AddPnt(pt,gr->GetC(ss,pt.c),q,-1,2);\r
+                               if(t2)  gr->line_plot(n3,n2);\r
+                               else    gr->line_plot(n1,n3);\r
                        }\r
                }\r
        }\r
@@ -468,8 +472,8 @@ void mgl_area_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Area3",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = z->GetNy() > m ? z->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
-       bool wire = pen && strchr(pen,'#');\r
+       bool sh = mglchr(pen,'!');\r
+       bool wire = mglchr(pen,'#');\r
 \r
        mreal z0=gr->GetOrgZ('x');\r
        mreal c1,c2;\r
@@ -517,8 +521,8 @@ void mgl_area_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
        mreal c1,c2;\r
        mglPoint nn=mglPoint(0,0,1);\r
        long n1,n2,n3,n4;\r
-       bool sh = pen && strchr(pen,'!');\r
-       bool wire = pen && strchr(pen,'#');\r
+       bool sh = mglchr(pen,'!');\r
+       bool wire = mglchr(pen,'#');\r
 \r
        gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
 //     long s=gr->AddTexture(pen,1);\r
@@ -590,8 +594,8 @@ void mgl_region_xy(HMGL gr, HCDT x, HCDT y1, HCDT y2, const char *pen, const cha
        long n1,n2,n3,n4;\r
        mreal xx,f1,f2,f3,f4;\r
        mreal zm = gr->AdjustZMin();\r
-       bool inside = (pen && strchr(pen,'i')); // NOTE: check if 'i' is free (used here for inside flag)\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool inside = (mglchr(pen,'i'));        // NOTE: check if 'i' is free (used here for inside flag)\r
+       bool sh = mglchr(pen,'!');\r
 \r
        gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
 //     long s=gr->AddTexture(pen,1);\r
@@ -650,7 +654,7 @@ void mgl_step_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Step3",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = z->GetNy() > m ? z->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        char mk=gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
        long n1,n2;\r
@@ -667,7 +671,7 @@ void mgl_step_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
                        n2 = n1;        // horizontal\r
                        p = mglPoint(x->v(i,mx), y->v(i,my), z->v(i-1,mz));\r
                        n1 = gr->AddPnt(p);     gr->line_plot(n1,n2);\r
-                       if(i==1)        gr->arrow_plot(n1,n2,gr->Arrow1);\r
+                       if(i==1)        gr->arrow_plot(n2,n1,gr->Arrow1);\r
 \r
                        n2 = n1;        // vertical\r
                        p.z = z->v(i,mz);       n1 = gr->AddPnt(p);\r
@@ -688,7 +692,7 @@ void mgl_step_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Step",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        mreal zVal =gr->AdjustZMin();\r
        char mk=gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
@@ -706,7 +710,7 @@ void mgl_step_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
                        n2 = n1;        // horizontal\r
                        p = mglPoint(x->v(i,mx), y->v(i-1,my), zVal);\r
                        n1 = gr->AddPnt(p);             gr->line_plot(n1,n2);\r
-                       if(i==1)        gr->arrow_plot(n1,n2,gr->Arrow1);\r
+                       if(i==1)        gr->arrow_plot(n2,n1,gr->Arrow1);\r
 \r
                        n2 = n1;        // vertical\r
                        p.y = y->v(i,my);               n1 = gr->AddPnt(p);\r
@@ -755,7 +759,7 @@ void mgl_stem_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Stem3",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = z->GetNy() > m ? z->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        mreal z0=gr->GetOrgZ('x');\r
        char mk=gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
@@ -785,7 +789,7 @@ void mgl_stem_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Stem",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        mreal zVal = gr->AdjustZMin(), y0=gr->GetOrgY('x'), vv;\r
        char mk=gr->SetPenPal(pen,&pal);        gr->Reserve(2*n*m);\r
@@ -844,10 +848,10 @@ void mgl_bars_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Bars3",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = z->GetNy() > m ? z->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
-       bool wire = pen && strchr(pen,'#');\r
-       bool above = pen && strchr(pen,'a'), fall = pen && strchr(pen,'f');\r
+       bool wire = mglchr(pen,'#');\r
+       bool above = mglchr(pen,'a'), fall = mglchr(pen,'f');\r
        if(above)       fall = false;\r
        mreal c1,c2,c;\r
        mglPoint p1,p2,p3,p4,nn;\r
@@ -911,10 +915,10 @@ void mgl_bars_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Bars",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
-       bool wire = pen && strchr(pen,'#');\r
-       bool above = pen && strchr(pen,'a'), fall = pen && strchr(pen,'f');\r
+       bool wire = mglchr(pen,'#');\r
+       bool above = mglchr(pen,'a'), fall = mglchr(pen,'f');\r
        if(above)       fall = false;\r
        mreal c1,c2,c;\r
        long n1,n2,n3,n4;\r
@@ -995,10 +999,10 @@ void mgl_barh_yx(HMGL gr, HCDT y, HCDT v, const char *pen, const char *opt)
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Barh",cgid++);\r
        m = y->GetNy() > v->GetNy() ? y->GetNy() : v->GetNy();\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
-       bool wire = pen && strchr(pen,'#');\r
-       bool above = pen && strchr(pen,'a'), fall = pen && strchr(pen,'f');\r
+       bool wire = mglchr(pen,'#');\r
+       bool above = mglchr(pen,'a'), fall = mglchr(pen,'f');\r
        if(above)       fall = false;\r
        mreal c1,c2,c;\r
        long n1,n2,n3,n4;\r
@@ -1082,7 +1086,7 @@ void mgl_boxplot_xy(HMGL gr, HCDT x, HCDT y, const char *pen, const char *opt)
        static int cgid=1;      gr->StartGroup("BoxPlot",cgid++);\r
        mreal *b = new mreal[5*n], *d = new mreal[m], x1, x2, dd;\r
        mreal zVal = gr->AdjustZMin(), vv;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
        register long i,j;\r
        for(i=0;i<n;i++)        // find quartiles by itself\r
        {\r
@@ -1169,9 +1173,9 @@ void mgl_error_exy(HMGL gr, HCDT x, HCDT y, HCDT ex, HCDT ey, const char *pen, c
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();\r
        m = ex->GetNy() > m ? ex->GetNy() : m;\r
        m = ey->GetNy() > m ? ey->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
-       bool ma = pen && strchr(pen,'@');\r
+       bool ma = mglchr(pen,'@');\r
        char mk = gr->SetPenPal(pen,&pal);\r
        mreal zVal=gr->AdjustZMin(), vx, vy, ve, vf;\r
        gr->Reserve(5*n*m);\r
@@ -1386,15 +1390,15 @@ void mgl_chart(HMGL gr, HCDT a, const char *cols, const char *opt)
        if(a->Minimal()<0)      {       gr->SetWarn(mglWarnNeg,"Chart");        return; }\r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Chart",cgid++);\r
-       bool wire = cols && strchr(cols,'#');   // draw edges\r
+       bool wire = mglchr(cols,'#');   // draw edges\r
        register long n=a->GetNx(),i,j=0;\r
        if(cols)        for(i=0;i<long(strlen(cols));i++)\r
-               if(strchr("wkrgbcymhRGBCYMHWlenuqpLENUQP ",cols[i]))    j++;\r
+               if(strchr(MGL_COLORS,cols[i]) || cols[i]==' ')  j++;\r
        if(j==0)        cols = MGL_DEF_PAL;\r
        mreal *c = new mreal[strlen(cols)+1],cc;\r
        long nc=0;                      // number of colors\r
        for(i=0;i<long(strlen(cols));i++)\r
-               if(strchr("wkrgbcymhRGBCYMHWlenuqpLENUQP ",cols[i]))\r
+               if(strchr(MGL_COLORS,cols[i]) || cols[i]==' ')\r
                {       c[nc]=gr->AddTexture(cols[i]);  nc++;   }\r
 \r
        mreal dy = (gr->Max.y-gr->Min.y)/a->GetNy(), dx, ss, cs, x1, y1, dz=gr->Max.z-gr->Min.z, vv;\r
@@ -1439,7 +1443,7 @@ void mgl_chart_(uintptr_t *gr, uintptr_t *a, const char *col, const char *opt,in
 void mgl_mark_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, const char *opt)\r
 {\r
        long j,m,mx,my,mz,mr,n=y->GetNx(),pal;\r
-       if(mgl_check_dim1(gr,x,y,z,r,"Mark"))   return;\r
+       if(mgl_check_dim0(gr,x,y,z,r,"Mark"))   return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Mark",cgid++);\r
@@ -1447,7 +1451,7 @@ void mgl_mark_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, cons
        m = z->GetNy() > m ? z->GetNy() : m;\r
        char mk=gr->SetPenPal(pen,&pal);        gr->Reserve(n*m);\r
        if(mk==0)       return;\r
-       bool sh = pen && strchr(pen,'!');\r
+       bool sh = mglchr(pen,'!');\r
 \r
        for(j=0;j<m;j++)\r
        {\r
@@ -1476,7 +1480,6 @@ void mgl_mark_xy(HMGL gr, HCDT x, HCDT y, HCDT r, const char *pen, const char *o
 void mgl_mark_y(HMGL gr, HCDT y, HCDT r, const char *pen, const char *opt)\r
 {\r
        register long n=y->GetNx();\r
-       if(n<2) {       gr->SetWarn(mglWarnLow,"Mark"); return; }\r
        gr->SaveState(opt);\r
        mglData x(n), z(n);\r
        x.Fill(gr->Min.x,gr->Max.x);\r
@@ -1515,10 +1518,10 @@ void mgl_tube_xyzr(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const char *pen, con
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();\r
        m = z->GetNy() > m ? z->GetNy() : m;\r
        m = r->GetNy() > m ? r->GetNy() : m;\r
-       bool sh = pen && strchr(pen,'!');\r
-       bool wire = pen && strchr(pen,'#');\r
+       bool sh = mglchr(pen,'!');\r
+       bool wire = mglchr(pen,'#');\r
 \r
-       const int num=41;\r
+       const int num=24;\r
        gr->SetPenPal(pen,&pal);\r
        gr->Reserve(n*m*num);\r
        mglPoint p,l,t,u,q,d;\r
@@ -1574,7 +1577,7 @@ void mgl_tube_r(HMGL gr, HCDT y, HCDT r, const char *pen, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_tube(HMGL gr, HCDT y, mreal rr, const char *pen, const char *opt)\r
+void mgl_tube(HMGL gr, HCDT y, double rr, const char *pen, const char *opt)\r
 {\r
        register long n=y->GetNx();\r
        if(n<2) {       gr->SetWarn(mglWarnLow,"Tube"); return; }\r
@@ -1587,7 +1590,7 @@ void mgl_tube(HMGL gr, HCDT y, mreal rr, const char *pen, const char *opt)
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_tube_xy(HMGL gr, HCDT x, HCDT y, mreal rr, const char *pen, const char *opt)\r
+void mgl_tube_xy(HMGL gr, HCDT x, HCDT y, double rr, const char *pen, const char *opt)\r
 {\r
        register long n=y->GetNx();\r
        if(n<2) {       gr->SetWarn(mglWarnLow,"Tube"); return; }\r
@@ -1599,7 +1602,7 @@ void mgl_tube_xy(HMGL gr, HCDT x, HCDT y, mreal rr, const char *pen, const char
        gr->LoadState();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_tube_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, mreal rr, const char *pen, const char *opt)\r
+void mgl_tube_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, double rr, const char *pen, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData r(y->GetNx());\r
@@ -1656,7 +1659,7 @@ void mgl_tape_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char *
        gr->SetPenPal(pen,&pal);        gr->Reserve(4*n*m);\r
        mglPoint p1,p2,q1,q2,l,nn,qn=mglPoint(NAN,NAN);\r
        long n1=-1,n2=-1,n3=-1,n4=-1, m1=-1,m2=-1,m3=-1,m4=-1;\r
-       bool sh = pen && strchr(pen,'!'), xo = pen && strchr(pen,'x'), zo = pen && strchr(pen,'z'), wire = pen && strchr(pen,'#');\r
+       bool sh = mglchr(pen,'!'), xo = mglchr(pen,'x'), zo = mglchr(pen,'z'), wire = mglchr(pen,'#');\r
        if(!xo && !zo)  xo = zo = true;\r
        mreal c1,c2;\r
 \r

diff --git a/src/prc.cpp b/src/prc.cpp
index 99699221035329f66be52ff387e00676c72b2092..45ba529bf3f86fd9b92827b573413bbd052e3c74 100644 (file)
--- a/src/prc.cpp
+++ b/src/prc.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
- * export_3d.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * prc.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -76,7 +76,7 @@ struct prctriangles {
                        return pPoint->second;\r
                else\r
                {\r
-                       const uint32_t point_index = points.size();\r
+                       const uint32_t point_index = (uint32_t)points.size();\r
                        points.insert(std::make_pair(point,point_index));\r
                        return point_index;\r
                }\r
@@ -91,7 +91,7 @@ struct prctriangles {
                        return pPoint->second;\r
                else\r
                {\r
-                       const uint32_t point_index = points.size();\r
+                       const uint32_t point_index = (uint32_t)points.size();\r
                        points.insert(std::make_pair(point,point_index));\r
                        return point_index;\r
                }\r
@@ -107,6 +107,28 @@ struct prctriangles {
                }\r
        }\r
 \r
+       void addTriangle(uint32_t ti, uint32_t pi1, uint32_t pi2, uint32_t pi3)\r
+       {\r
+               prctriangle triangle;\r
+               triangle.pi[0] = pi1;\r
+               triangle.pi[1] = pi2;\r
+               triangle.pi[2] = pi3;\r
+               triangle.ti[0] = ti;\r
+               triangle.ti[1] = ti;\r
+               triangle.ti[2] = ti;\r
+               triangles.push_back(triangle);\r
+       }\r
+       void addTriangle(uint32_t pi1, uint32_t ti1, uint32_t pi2, uint32_t ti2, uint32_t pi3, uint32_t ti3)\r
+       {\r
+               prctriangle triangle;\r
+               triangle.pi[0] = pi1;\r
+               triangle.pi[1] = pi2;\r
+               triangle.pi[2] = pi3;\r
+               triangle.ti[0] = ti1;\r
+               triangle.ti[1] = ti2;\r
+               triangle.ti[2] = ti3;\r
+               triangles.push_back(triangle);\r
+       }\r
        uint32_t addColourInfo(const mglPnt& p)\r
        {\r
                const RGBAColour colour(p.r,p.g,p.b,p.a);\r
@@ -114,15 +136,15 @@ struct prctriangles {
                if (colours.empty() && texturecoords.empty()) {\r
                        commoncolour = colour;\r
                        commonalpha = p.a;\r
-    }\r
-    if (samecolour) {\r
-      if (commoncolour != colour)\r
-        samecolour = false;\r
-    }\r
-    if (samealpha) {\r
-      if (commonalpha != p.a)\r
-        samealpha = false;\r
-    }\r
+               }\r
+               if (samecolour) {\r
+                       if (commoncolour != colour)\r
+                               samecolour = false;\r
+               }\r
+               if (samealpha) {\r
+                       if (commonalpha != p.a)\r
+                               samealpha = false;\r
+               }\r
 \r
                if (vertexcolor) {\r
                        std::map<RGBAColour,uint32_t>::iterator pColour = colours.find(colour);\r
@@ -130,13 +152,14 @@ struct prctriangles {
                                return pColour->second;\r
                        else\r
                        {\r
-                               const uint32_t colour_index = colours.size();\r
+                               const uint32_t colour_index = (uint32_t)colours.size();\r
                                colours.insert(std::make_pair(colour,colour_index));\r
                                return colour_index;\r
                        }\r
                } else {\r
-                       const float u = p.ta;\r
-                       const float v = 1 - p.c/ntxt;\r
+                       const mreal gap = 1./512;\r
+                       const double u = p.ta*(1-2*gap)+gap;\r
+                       const double v = ((p.c-floor(p.c))*(1-2*gap) + gap + floor(p.c))/ntxt;\r
 \r
                        const PRCVector2d point(u, v);\r
                        std::map<PRCVector2d,uint32_t>::iterator pPoint = texturecoords.find(point);\r
@@ -144,7 +167,7 @@ struct prctriangles {
                                return pPoint->second;\r
                        else\r
                        {\r
-                               const uint32_t point_index = texturecoords.size();\r
+                               const uint32_t point_index = (uint32_t)texturecoords.size();\r
                                texturecoords.insert(std::make_pair(point,point_index));\r
                                return point_index;\r
                        }\r
@@ -200,24 +223,24 @@ void my_png_flush(png_structp /*png_ptr*/)
 {\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pdf)\r
+void mgl_write_prc(HMGL gr, const char *fname,const char* /*descr*/, int make_pdf)\r
 {\r
-       if(gr->GetPrmNum()<=0)  return; // nothing to do\r
+       if(gr->GetPrmNum()==0)  return; // nothing to do\r
        {\r
-               long m1=0,m2=0,m;\r
+               long mmin=0,mmax=0,m;\r
                for(size_t i=0;i<gr->Grp.size();i++)    // prepare array of indirect indexing\r
-               {       m = gr->Grp[i].Id;      if(m<m1) m1=m;  if(m>m2) m2=m;  }\r
-               long *ng = new long[m2-m1+1];\r
-               for(size_t i=0;i<gr->Grp.size();i++)    ng[gr->Grp[i].Id-m1] = i;\r
+               {       m = gr->Grp[i].Id;      if(m<mmin) mmin=m;      if(m>mmax) mmax=m;      }\r
+               long *ng = new long[mmax-mmin+1];\r
+               for(size_t i=0;i<gr->Grp.size();i++)    ng[gr->Grp[i].Id-mmin] = i;\r
                for(size_t i=0;i<size_t(gr->GetPrmNum());i++)   // collect data for groups\r
                // it is rather expensive (extra 4b per primitive) but need for export to 3D\r
                {\r
-                       m = gr->GetPrm(i).id-m1;\r
-                       if(m>=0 && m<m2-m1+1)   gr->Grp[ng[m]].p.push_back(i);\r
+                       m = gr->GetPrm(i).id-mmin;\r
+                       if(m>=0 && m<mmax-mmin+1)       gr->Grp[ng[m]].p.push_back(i);\r
                }\r
                delete []ng;\r
        }\r
-       const unsigned len=strlen(fname);\r
+       const size_t len=strlen(fname);\r
        char * const tname = new char[len+9];   strcpy(tname,fname);\r
        if (strncmp(tname+len-4, ".prc", 4)!=0)\r
        {\r
@@ -250,13 +273,13 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                const size_t ntxt = gr->GetTxtNum();\r
 \r
                // prepare texture file (PNG)\r
-               const png_uint_32 width=256, height=256*ntxt;\r
+               const png_uint_32 width=256, height=256*png_uint_32(ntxt);\r
                png_bytep buf = new png_byte[4*width*height];\r
                png_bytepp pbuf= new png_bytep[height];\r
                for(size_t i=0;i<height;i++)\r
                        pbuf[i] = buf+4*width*i;\r
                for(size_t i=0;i<ntxt;i++)\r
-                       gr->GetTxt(i).GetRGBA(buf+i*256*256*4);\r
+                       gr->GetTxt(i).GetRGBA(buf+(ntxt-1-i)*256*width*4);\r
 \r
                png_structp png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,0,0,0);\r
                png_infop info_ptr = png_create_info_struct(png_ptr);\r
@@ -274,14 +297,28 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
 \r
                png_destroy_write_struct(&png_ptr, &info_ptr);\r
                delete []pbuf;  delete []buf;\r
-               const PRCmaterial materialMathGL(\r
-                       RGBAColour(0.1,0.1,0.1,1), // ambient\r
-                       RGBAColour(1.0,1.0,1.0,1), // diffuse\r
-                       RGBAColour(0.1,0.1,0.1,1), // emissive\r
-                       RGBAColour(0.0,0.0,0.0,1), // spectral\r
-                       1.0,0.1, // alpha, shininess\r
-                       buffer.data, KEPRCPicture_PNG, 0, 0, buffer.size, true);\r
-               materialMathGLid = file.addMaterial(materialMathGL);\r
+    \r
+               PRCtexture* t = new PRCtexture();\r
+               t->mapping = PRC_TEXTURE_MAPPING_DIFFUSE;\r
+               t->components = PRC_TEXTURE_MAPPING_COMPONENTS_RGBA;\r
+               // Modulate for OBJ compatibilty, Replace is a better setting\r
+               t->function = KEPRCTextureFunction_Replace;\r
+               // Repeat for OBJ compatibilty, ClampToEdge is a better setting\r
+               t->wrapping_mode_S = KEPRCTextureWrappingMode_ClampToEdge;\r
+               t->wrapping_mode_T = KEPRCTextureWrappingMode_ClampToEdge;\r
+               t->data = buffer.data;\r
+               t->size = buffer.size;\r
+               t->format = KEPRCPicture_PNG;\r
+\r
+               PRCmaterial m(\r
+                                                                       RGBAColour(0.0,0.0,0.0,1), // ambient\r
+                                                                       RGBAColour(1.0,1.0,1.0,1), // diffuse\r
+                                                                       RGBAColour(0.0,0.0,0.0,1), // emissive\r
+                                                                       RGBAColour(0.0,0.0,0.0,1), // spectral\r
+                                                                       1.0,0.1); // alpha, shininess\r
+\r
+               materialMathGLid = file.addTexturedMaterial(m,1,&t);\r
+\r
                free(buffer.data); buffer.data = NULL;\r
        }\r
 \r
@@ -298,22 +335,26 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
 \r
        for(size_t i=0;i<gr->Grp.size();i++)\r
        {\r
-               const   std::vector<long>& p = gr->Grp[i].p;\r
+               mglGroup& grp = gr->Grp[i];\r
+               std::vector<long>& prm = grp.p;\r
                prctriangles group(gr);\r
-               file.begingroup(gr->Grp[i].Lbl.c_str(),&grpopt);\r
-               for(size_t j=0;j<p.size();j++)\r
+               file.begingroup(grp.Lbl.c_str(),&grpopt);\r
+               for(size_t j=0;j<prm.size();j++)\r
                {\r
-                       const mglPrim &q=gr->GetPrm(p[j]);\r
+                       const mglPrim &q=gr->GetPrm(prm[j]);\r
                        const double w = (q.w>1)?(q.w*sqrt(gr->FontFactor()/400.)):1;\r
 \r
                        const mglPnt p = gr->GetPnt(q.n1) - p0;\r
-                       const float size = q.s*gr->FontFactor();\r
+                       const mreal size = q.s*gr->FontFactor();\r
                        {\r
-                               char type = q.n4;       float ss=size*0.35;\r
-                               const RGBAColour c(p.r, p.g, p.b, p.a);\r
                                switch(q.type)\r
                                {\r
                                        case 0:\r
+                                       if (gr->GetPnt(q.n1).a > mgl_min_a) {\r
+                                               const char type = q.n4;\r
+                                               float ss=size*0.35;\r
+                                               const RGBAColour c(p.r, p.g, p.b, p.a);\r
+\r
                                                if(!strchr("xsSoO",type))       ss *= 1.1;\r
                                                if(type=='.' || ss==0)\r
                                                {\r
@@ -401,21 +442,8 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi3 = group.addPoint(p.x-ss,p.y+ss,p.z);\r
                                                                        const uint32_t pi4 = group.addPoint(p.x+ss,p.y+ss,p.z);\r
 \r
-                                                                       prctriangle triangle1, triangle2;\r
-                                                                       triangle1.pi[0] = pi1;\r
-                                                                       triangle1.pi[1] = pi2;\r
-                                                                       triangle1.pi[2] = pi3;\r
-                                                                       triangle1.ti[0] = ti;\r
-                                                                       triangle1.ti[1] = ti;\r
-                                                                       triangle1.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle1);\r
-                                                                       triangle2.pi[0] = pi4;\r
-                                                                       triangle2.pi[1] = pi3;\r
-                                                                       triangle2.pi[2] = pi2;\r
-                                                                       triangle2.ti[0] = ti;\r
-                                                                       triangle2.ti[1] = ti;\r
-                                                                       triangle2.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle2);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
+                                                                       group.addTriangle(ti, pi4, pi3, pi2);\r
                                                                }\r
                                                                break;\r
                                                                case 's':\r
@@ -440,21 +468,8 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi3 = group.addPoint(p.x-ss,p.y,p.z);\r
                                                                        const uint32_t pi4 = group.addPoint(p.x,p.y+ss,p.z);\r
 \r
-                                                                       prctriangle triangle1, triangle2;\r
-                                                                       triangle1.pi[0] = pi1;\r
-                                                                       triangle1.pi[1] = pi2;\r
-                                                                       triangle1.pi[2] = pi3;\r
-                                                                       triangle1.ti[0] = ti;\r
-                                                                       triangle1.ti[1] = ti;\r
-                                                                       triangle1.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle1);\r
-                                                                       triangle2.pi[0] = pi4;\r
-                                                                       triangle2.pi[1] = pi3;\r
-                                                                       triangle2.pi[2] = pi2;\r
-                                                                       triangle2.ti[0] = ti;\r
-                                                                       triangle2.ti[1] = ti;\r
-                                                                       triangle2.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle2);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
+                                                                       group.addTriangle(ti, pi4, pi3, pi2);\r
                                                                }\r
                                                                break;\r
                                                                case 'd':\r
@@ -518,14 +533,7 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi2 = group.addPoint(p.x+ss,p.y-ss/2,p.z);\r
                                                                        const uint32_t pi3 = group.addPoint(p.x,p.y+ss,p.z);\r
 \r
-                                                                       prctriangle triangle;\r
-                                                                       triangle.pi[0] = pi1;\r
-                                                                       triangle.pi[1] = pi2;\r
-                                                                       triangle.pi[2] = pi3;\r
-                                                                       triangle.ti[0] = ti;\r
-                                                                       triangle.ti[1] = ti;\r
-                                                                       triangle.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
                                                                }\r
                                                                break;\r
                                                                case '^':\r
@@ -548,14 +556,7 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi2 = group.addPoint(p.x,p.y-ss,p.z);\r
                                                                        const uint32_t pi3 = group.addPoint(p.x+ss,p.y+ss/2,p.z);\r
 \r
-                                                                       prctriangle triangle;\r
-                                                                       triangle.pi[0] = pi1;\r
-                                                                       triangle.pi[1] = pi2;\r
-                                                                       triangle.pi[2] = pi3;\r
-                                                                       triangle.ti[0] = ti;\r
-                                                                       triangle.ti[1] = ti;\r
-                                                                       triangle.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
                                                                }\r
                                                                break;\r
                                                                case 'v':\r
@@ -578,14 +579,7 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi2 = group.addPoint(p.x-ss,     p.y,     p.z);\r
                                                                        const uint32_t pi3 = group.addPoint(p.x+ss/2,p.y-ss,p.z);\r
 \r
-                                                                       prctriangle triangle;\r
-                                                                       triangle.pi[0] = pi1;\r
-                                                                       triangle.pi[1] = pi2;\r
-                                                                       triangle.pi[2] = pi3;\r
-                                                                       triangle.ti[0] = ti;\r
-                                                                       triangle.ti[1] = ti;\r
-                                                                       triangle.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
                                                                }\r
                                                                break;\r
                                                                case '<':\r
@@ -608,14 +602,7 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t pi2 = group.addPoint(p.x-ss/2,p.y-ss,p.z);\r
                                                                        const uint32_t pi3 = group.addPoint(p.x+ss,     p.y,     p.z);\r
 \r
-                                                                       prctriangle triangle;\r
-                                                                       triangle.pi[0] = pi1;\r
-                                                                       triangle.pi[1] = pi2;\r
-                                                                       triangle.pi[2] = pi3;\r
-                                                                       triangle.ti[0] = ti;\r
-                                                                       triangle.ti[1] = ti;\r
-                                                                       triangle.ti[2] = ti;\r
-                                                                       group.triangles.push_back(triangle);\r
+                                                                       group.addTriangle(ti, pi1, pi2, pi3);\r
                                                                }\r
                                                                break;\r
                                                                case '>':\r
@@ -635,18 +622,11 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                        const uint32_t ti = group.addColourInfo(p);\r
 \r
                                                                        const uint32_t cpi=group.addPoint(p);\r
-                                                                       uint32_t pi[21];\r
-                                                                       for(size_t j=0;j<=20;j++)\r
-                                                                               pi[j]=group.addPoint(p.x+ss*cos(j*M_PI/10),p.y+ss*sin(j*M_PI/10),p.z);\r
-                                                                       for(size_t j=0;j<=20;j++) {\r
-                                                                               prctriangle triangle;\r
-                                                                               triangle.pi[0] = pi[j];\r
-                                                                               triangle.pi[1] = pi[j+1];\r
-                                                                               triangle.pi[2] = cpi;\r
-                                                                               triangle.ti[0] = ti;\r
-                                                                               triangle.ti[1] = ti;\r
-                                                                               triangle.ti[2] = ti;\r
-                                                                               group.triangles.push_back(triangle);\r
+                                                                       uint32_t pnti[21];\r
+                                                                       for(size_t k=0;k<=20;k++)\r
+                                                                               pnti[k]=group.addPoint(p.x+ss*cos(k*M_PI/10),p.y+ss*sin(k*M_PI/10),p.z);\r
+                                                                       for(size_t k=0;k<=20;k++) {\r
+                                                                               group.addTriangle(ti, pnti[k], pnti[k+1], cpi);\r
                                                                        }\r
                                                                }\r
                                                                break;\r
@@ -658,110 +638,199 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                                                case 'o':\r
                                                                {\r
                                                                        double P[21][3];\r
-                                                                       for(size_t j=0;j<=20;j++) {\r
-                                                                               P[j][0] = p.x+ss*cos(j*M_PI/10);\r
-                                                                               P[j][1] = p.y+ss*sin(j*M_PI/10);\r
-                                                                               P[j][2] = p.z;\r
+                                                                       for(size_t k=0;k<=20;k++) {\r
+                                                                               P[k][0] = p.x+ss*cos(k*M_PI/10);\r
+                                                                               P[k][1] = p.y+ss*sin(k*M_PI/10);\r
+                                                                               P[k][2] = p.z;\r
                                                                        }\r
                                                                        file.addLine(21, P, c, w);\r
                                                                }\r
                                                                break;\r
+                                               }\r
+                                       }\r
+                                       break;\r
+\r
+                                       case 1:\r
+                                       if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a) {\r
+                                               const mglPnt p1 = gr->GetPnt(q.n1) - p0, p2 = gr->GetPnt(q.n2) - p0;\r
+\r
+                                               const uint32_t n = 2;\r
+                                               double P[2][3];\r
+                                               P[0][0] = p1.x;\r
+                                               P[0][1] = p1.y;\r
+                                               P[0][2] = p1.z;\r
+                                               P[1][0] = p2.x;\r
+                                               P[1][1] = p2.y;\r
+                                               P[1][2] = p2.z;\r
+                                               const RGBAColour colour((p1.r+p2.r)/2, (p1.g+p2.g)/2, (p1.b+p2.b)/2, (p1.a+p2.a)/2);\r
+                                               file.addLine(n, P, colour, w);\r
+                                       }\r
+                                       break;\r
+\r
+                                       case 2:\r
+                                       if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a || gr->GetPnt(q.n3).a > mgl_min_a) {\r
+                                               const mglPnt p1 = gr->GetPnt(q.n1)      - p0, p2 = gr->GetPnt(q.n2) - p0, p3 = gr->GetPnt(q.n3) - p0;\r
+\r
+                                               prctriangle triangle;\r
+                                               triangle.pi[0] = group.addPoint(p1);\r
+                                               triangle.pi[1] = group.addPoint(p2);\r
+                                               triangle.pi[2] = group.addPoint(p3);\r
+                                               triangle.ti[0] = group.addColourInfo(p1);\r
+                                               triangle.ti[1] = group.addColourInfo(p2);\r
+                                               triangle.ti[2] = group.addColourInfo(p3);\r
+                                               group.triangles.push_back(triangle);\r
+                                       }\r
+                                       break;\r
+                                       case 3:\r
+                                       if (gr->GetPnt(q.n1).a > mgl_min_a || gr->GetPnt(q.n2).a > mgl_min_a || gr->GetPnt(q.n3).a > mgl_min_a || gr->GetPnt(q.n4).a > mgl_min_a) {\r
+                                               const mglPnt p1 = gr->GetPnt(q.n1) - p0;\r
+                                               const uint32_t pi1 = group.addPoint(p1);\r
+                                               const uint32_t ti1 = group.addColourInfo(p1);\r
+\r
+                                               const mglPnt p2 = gr->GetPnt(q.n2) - p0;\r
+                                               const uint32_t pi2 = group.addPoint(p2);\r
+                                               const uint32_t ti2 = group.addColourInfo(p2);\r
+\r
+                                               const mglPnt p3 = gr->GetPnt(q.n3) - p0;\r
+                                               const uint32_t pi3 = group.addPoint(p3);\r
+                                               const uint32_t ti3 = group.addColourInfo(p3);\r
+\r
+                                               const mglPnt p4 = gr->GetPnt(q.n4) - p0;\r
+                                               const uint32_t pi4 = group.addPoint(p4);\r
+                                               const uint32_t ti4 = group.addColourInfo(p4);\r
+\r
+                                               prctriangle triangle1, triangle2;\r
+                                               triangle1.pi[0] = pi1;\r
+                                               triangle1.pi[1] = pi2;\r
+                                               triangle1.pi[2] = pi3;\r
+                                               triangle1.ti[0] = ti1;\r
+                                               triangle1.ti[1] = ti2;\r
+                                               triangle1.ti[2] = ti3;\r
+                                               group.triangles.push_back(triangle1);\r
+                                               triangle2.pi[0] = pi4;\r
+                                               triangle2.pi[1] = pi3;\r
+                                               triangle2.pi[2] = pi2;\r
+                                               triangle2.ti[0] = ti4;\r
+                                               triangle2.ti[1] = ti3;\r
+                                               triangle2.ti[2] = ti2;\r
+                                               group.triangles.push_back(triangle2);\r
+                                       }\r
+                                       break;\r
+                                       case 4:\r
+                                       if (gr->GetPnt(q.n1).a > mgl_min_a) {\r
+                                               const mglPnt p = gr->GetPnt(q.n1) - p0;\r
+                                               \r
+                                               const mreal f = q.p/2, dx=p.u/2, dy=p.v/2;\r
+                                               const mreal c=q.s*cos(q.w*M_PI/180), s=-q.s*sin(q.w*M_PI/180);\r
+                                               const double b[4] = {c,-s, s,c};\r
+                                               long ik,il=0;\r
+                                               \r
+                                               const mglGlyph &g = gr->GetGlf(q.n4);\r
+                                               const mreal dd = 0.004;\r
+                                               if(q.n3&8)\r
+                                               {\r
+                                                       if(!(q.n3&4))   // glyph_line(p,f,true, d);\r
+                                                       {\r
+                                                               const uint32_t ti = group.addColourInfo(p);\r
+                                                               const uint32_t p_4 = group.addPoint(p.x+b[0]*dx+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+                                                               const uint32_t p_3 = group.addPoint(p.x+b[0]*dx+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+                                                               const uint32_t p_2 = group.addPoint(p.x+b[0]*(dx+f)+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z);\r
+                                                               const uint32_t p_1 = group.addPoint(p.x+b[0]*(dx+f)+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z);\r
+                                                               \r
+                                                               group.addTriangle(ti, p_1, p_3, p_2);\r
+                                                               group.addTriangle(ti, p_4, p_2, p_3);\r
                                                        }\r
-                                                       break;\r
-\r
-                                                               case 1:\r
-                                                               {\r
-                                                                       const mglPnt p1 = gr->GetPnt(q.n1) - p0, p2 = gr->GetPnt(q.n2) - p0;\r
-\r
-                                                                       const uint32_t n = 2;\r
-                                                                       double P[2][3];\r
-                                                                       P[0][0] = p1.x;\r
-                                                                       P[0][1] = p1.y;\r
-                                                                       P[0][2] = p1.z;\r
-                                                                       P[1][0] = p2.x;\r
-                                                                       P[1][1] = p2.y;\r
-                                                                       P[1][2] = p2.z;\r
-                                                                       const RGBAColour colour((p1.r+p2.r)/2, (p1.g+p2.g)/2, (p1.b+p2.b)/2, (p1.a+p2.a)/2);\r
-                                                                       file.addLine(n, P, colour, w);\r
-                                                               }\r
-                                                               break;\r
-\r
-                                                               case 2:\r
+                                                       else    // glyph_line(p,f,false, d);\r
+                                                       {\r
+                                                               const RGBAColour c(p.r, p.g, p.b, p.a);\r
+                                                               const double p_4[3] = {p.x+b[0]*dx+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z};\r
+                                                               const double p_3[3] = {p.x+b[0]*dx+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z};\r
+                                                               const double p_2[3] = {p.x+b[0]*(dx+f)+b[1]*(dy-dd),p.y+b[2]*dx+b[3]*(dy-dd),p.z};\r
+                                                               const double p_1[3] = {p.x+b[0]*(dx+f)+b[1]*(dy+dd),p.y+b[2]*dx+b[3]*(dy+dd),p.z};\r
+                                                               \r
+                                                               file.addSegment(p_1, p_2, c, w);\r
+                                                               file.addSegment(p_3, p_4, c, w);\r
+                                                               file.addSegment(p_1, p_3, c, w);\r
+                                                               file.addSegment(p_2, p_4, c, w);\r
+                                                       }\r
+                                               }\r
+                                               else\r
+                                               {\r
+                                                       if(!(q.n3&4))   // glyph_fill(p,f,g, d);\r
+                                                       {\r
+                                                               for(ik=0;ik<g.nt;ik++)\r
                                                                {\r
-                                                                       const mglPnt p1 = gr->GetPnt(q.n1)      - p0, p2 = gr->GetPnt(q.n2) - p0, p3 = gr->GetPnt(q.n3) - p0;\r
-\r
-                                                                       prctriangle triangle;\r
-                                                                       triangle.pi[0] = group.addPoint(p1);\r
-                                                                       triangle.pi[1] = group.addPoint(p2);\r
-                                                                       triangle.pi[2] = group.addPoint(p3);\r
-                                                                       triangle.ti[0] = group.addColourInfo(p1);\r
-                                                                       triangle.ti[1] = group.addColourInfo(p2);\r
-                                                                       triangle.ti[2] = group.addColourInfo(p3);\r
-                                                                       group.triangles.push_back(triangle);\r
+                                                                       const uint32_t ti = group.addColourInfo(p);\r
+                                                                       mreal x,y;\r
+                                                                       x = dx+f*g.trig[6*ik];          y = dy+f*g.trig[6*ik+1];\r
+                                                                       const uint32_t p_3 = group.addPoint(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                                                                       x = dx+f*g.trig[6*ik+2];        y = dy+f*g.trig[6*ik+3];\r
+                                                                       const uint32_t p_2 = group.addPoint(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                                                                       x = dx+f*g.trig[6*ik+4];        y = dy+f*g.trig[6*ik+5];\r
+                                                                       const uint32_t p_1 = group.addPoint(p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z);\r
+                                                                       \r
+                                                                       group.addTriangle(ti, p_1, p_3, p_2);\r
                                                                }\r
-                                                               break;\r
-                                                               case 3:\r
+                                                       }\r
+                                                       else    // glyph_wire(p,f,g, d);\r
+                                                       {\r
+                                                               const RGBAColour c(p.r, p.g, p.b, p.a);\r
+                                                               for(ik=0;ik<g.nl;ik++)\r
                                                                {\r
-                                                                       const mglPnt p1 = gr->GetPnt(q.n1) - p0;\r
-                                                                       const uint32_t pi1 = group.addPoint(p1);\r
-                                                                       const uint32_t ti1 = group.addColourInfo(p1);\r
-\r
-                                                                       const mglPnt p2 = gr->GetPnt(q.n2) - p0;\r
-                                                                       const uint32_t pi2 = group.addPoint(p2);\r
-                                                                       const uint32_t ti2 = group.addColourInfo(p2);\r
-\r
-                                                                       const mglPnt p3 = gr->GetPnt(q.n3) - p0;\r
-                                                                       const uint32_t pi3 = group.addPoint(p3);\r
-                                                                       const uint32_t ti3 = group.addColourInfo(p3);\r
-\r
-                                                                       const mglPnt p4 = gr->GetPnt(q.n4) - p0;\r
-                                                                       const uint32_t pi4 = group.addPoint(p4);\r
-                                                                       const uint32_t ti4 = group.addColourInfo(p4);\r
-\r
-                                                                       prctriangle triangle1, triangle2;\r
-                                                                       triangle1.pi[0] = pi1;\r
-                                                                       triangle1.pi[1] = pi2;\r
-                                                                       triangle1.pi[2] = pi3;\r
-                                                                       triangle1.ti[0] = ti1;\r
-                                                                       triangle1.ti[1] = ti2;\r
-                                                                       triangle1.ti[2] = ti3;\r
-                                                                       group.triangles.push_back(triangle1);\r
-                                                                       triangle2.pi[0] = pi4;\r
-                                                                       triangle2.pi[1] = pi3;\r
-                                                                       triangle2.pi[2] = pi2;\r
-                                                                       triangle2.ti[0] = ti4;\r
-                                                                       triangle2.ti[1] = ti3;\r
-                                                                       triangle2.ti[2] = ti2;\r
-                                                                       group.triangles.push_back(triangle2);\r
+                                                                       mreal x,y;\r
+                                                                       x = g.line[2*ik];       y = g.line[2*ik+1];\r
+                                                                       if(x==0x3fff && y==0x3fff)      // line breakthrough\r
+                                                                       {       il = ik+1;      continue;       }\r
+                                                                       else if(ik==g.nl-1 || (g.line[2*ik+2]==0x3fff && g.line[2*ik+3]==0x3fff))\r
+                                                                       {       // enclose the circle. May be in future this block should be commented\r
+                                                                               x = dx+f*g.line[2*ik];          y = dy+f*g.line[2*ik+1];\r
+                                                                               const double p_2[3] = {p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z};\r
+                                                                               x = dx+f*g.line[2*il];          y = dy+f*g.line[2*il+1];\r
+                                                                               const double p_1[3] = {p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z};\r
+                                                                               file.addSegment(p_1, p_2, c, w);\r
+                                                                       }\r
+                                                                       else\r
+                                                                       {       // normal line\r
+                                                                               x = dx+f*g.line[2*ik];          y = dy+f*g.line[2*ik+1];\r
+                                                                               const double p_2[3] = {p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z};\r
+                                                                               x = dx+f*g.line[2*ik+2];        y = dy+f*g.line[2*ik+3];\r
+                                                                               const double p_1[3] = {p.x+b[0]*x+b[1]*y,p.y+b[2]*x+b[3]*y,p.z};\r
+                                                                               file.addSegment(p_1, p_2, c, w);\r
+                                                                       }\r
+                                                                       \r
                                                                }\r
-                                                               break;\r
-                                                               case 4: break;  // TODO: add glyphs export later\r
+                                                       }\r
+                                               }\r
+                                               \r
+                                       }\r
+                                               break;\r
+\r
                                }\r
                        }\r
                }\r
                if (!group.triangles.empty()) {\r
-                       const uint32_t nP = group.points.size();\r
+                       const uint32_t nP = (uint32_t)group.points.size();\r
                        double (*P)[3] = new double[nP][3];\r
                        group.writePoints(P);\r
-                       const uint32_t nI = group.triangles.size();\r
+                       const uint32_t nI = (uint32_t)group.triangles.size();\r
                        uint32_t (*PI)[3] = new uint32_t[nI][3];\r
-                       for(uint32_t i = 0; i<nI; i++)\r
+                       for(uint32_t k = 0; k<nI; k++)\r
                        {\r
-                               PI[i][0] = group.triangles[i].pi[0];\r
-                               PI[i][1] = group.triangles[i].pi[1];\r
-                               PI[i][2] = group.triangles[i].pi[2];\r
+                               PI[k][0] = group.triangles[k].pi[0];\r
+                               PI[k][1] = group.triangles[k].pi[1];\r
+                               PI[k][2] = group.triangles[k].pi[2];\r
                        }\r
                        if (!group.samecolour) {\r
                                if (gr->get(MGL_PREFERVC)) {\r
-                                       const uint32_t nC = group.colours.size();\r
+                                       const uint32_t nC = (uint32_t)group.colours.size();\r
                                        RGBAColour *C = new RGBAColour[nC];\r
                                        group.writeColours(C);\r
                                        uint32_t (*CI)[3] = new uint32_t[nI][3];\r
-                                       for(uint32_t i = 0; i<nI; i++)\r
+                                       for(uint32_t k = 0; k<nI; k++)\r
                                        {\r
-                                               CI[i][0] = group.triangles[i].ti[0];\r
-                                               CI[i][1] = group.triangles[i].ti[1];\r
-                                               CI[i][2] = group.triangles[i].ti[2];\r
+                                               CI[k][0] = group.triangles[k].ti[0];\r
+                                               CI[k][1] = group.triangles[k].ti[1];\r
+                                               CI[k][2] = group.triangles[k].ti[2];\r
                                        }\r
                                        const uint32_t tess_index = file.createTriangleMesh(nP, P, nI, PI, m1, 0, NULL, NULL, 0, NULL, NULL, nC, C, CI, 0, NULL, NULL, grpopt.crease_angle);\r
                                        uint32_t materialid = materialMathGLid;\r
@@ -780,15 +849,15 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                                        delete [] CI;\r
                                        delete [] C;\r
                                } else {\r
-                                       const uint32_t nT = group.texturecoords.size();\r
+                                       const uint32_t nT = (uint32_t)group.texturecoords.size();\r
                                        double (*T)[2] = new double[nT][2];\r
                                        group.writeTextureCoords(T);\r
                                        uint32_t (*TI)[3] = new uint32_t[nI][3];\r
-                                       for(uint32_t i = 0; i<nI; i++)\r
+                                       for(uint32_t k = 0; k<nI; k++)\r
                                        {\r
-                                               TI[i][0] = group.triangles[i].ti[0];\r
-                                               TI[i][1] = group.triangles[i].ti[1];\r
-                                               TI[i][2] = group.triangles[i].ti[2];\r
+                                               TI[k][0] = group.triangles[k].ti[0];\r
+                                               TI[k][1] = group.triangles[k].ti[1];\r
+                                               TI[k][2] = group.triangles[k].ti[2];\r
                                        }\r
                                        const uint32_t tess_index = file.createTriangleMesh(nP, P, nI, PI, m1, 0, NULL, NULL, nT, T, TI, 0, NULL, NULL, 0, NULL, NULL, grpopt.crease_angle);\r
                                        file.useMesh(tess_index, materialMathGLid);\r
@@ -810,15 +879,15 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                        delete [] P;\r
                }\r
                file.endgroup();\r
-               gr->Grp[i].p.clear();   // we don't need indexes anymore\r
+               prm.clear();    // we don't need indexes anymore\r
        }\r
        file.finish();\r
 \r
        if (make_pdf) {\r
 #if MGL_HAVE_PDF\r
-               const HPDF_REAL width  = dynamic_cast<mglCanvas *>(gr)->GetWidth();\r
-               const HPDF_REAL height = dynamic_cast<mglCanvas *>(gr)->GetHeight();\r
-               const HPDF_REAL depth  = sqrt(width*height);\r
+//             const HPDF_REAL width  = dynamic_cast<mglCanvas *>(gr)->GetWidth();\r
+//             const HPDF_REAL height = dynamic_cast<mglCanvas *>(gr)->GetHeight();\r
+//             const HPDF_REAL depth  = sqrt(width*height);\r
 \r
                const HPDF_Rect rect = {0, 0, width, height};\r
 \r
@@ -861,24 +930,25 @@ void mgl_write_prc(HMGL gr, const char *fname,const char */*descr*/, int make_pd
                //      Create annotation\r
                annot = HPDF_Page_Create3DAnnot (page, rect, u3d );\r
 \r
-    //  Enable toolbar\r
-    HPDF_Dict action = (HPDF_Dict)HPDF_Dict_GetItem (annot, "3DA", HPDF_OCLASS_DICT);\r
-    HPDF_Dict_AddBoolean (action, "TB", HPDF_TRUE);\r
+               //  Enable toolbar\r
+               HPDF_Dict action = (HPDF_Dict)HPDF_Dict_GetItem (annot, "3DA", HPDF_OCLASS_DICT);\r
+               HPDF_Dict_AddBoolean (action, "TB", HPDF_TRUE);\r
 \r
                /* save the document to a file */\r
-               const size_t len = strlen(tname);\r
-               tname[len-2]='p';       tname[len-2]='d';       tname[len-1]='f';\r
+               const size_t tlen = strlen(tname);\r
+               tname[tlen-2]='p';      tname[tlen-2]='d';      tname[tlen-1]='f';\r
                HPDF_SaveToFile (pdf, tname);\r
 \r
                /* clean up */\r
                HPDF_Free (pdf);\r
 #else\r
-               const size_t len = strlen(tname);\r
-               tname[len-2]='p';       tname[len-2]='d';       tname[len-1]='f';\r
-               tname[len+0]='.';       tname[len+1]='t';       tname[len+2]='x';       tname[len+3]='t'; tname[len+4]='\0';\r
+               const size_t tlen = strlen(tname);\r
+               tname[tlen-2]='p';      tname[tlen-2]='d';      tname[tlen-1]='f';\r
+               tname[tlen+0]='.';      tname[tlen+1]='t';      tname[tlen+2]='x';      tname[tlen+3]='t'; tname[tlen+4]='\0';\r
                FILE *fp=fopen(tname,"wt");\r
                fputs("Can not produce PDF file, MathGL compiled without PDF output support\n", fp);\r
                fclose(fp);\r
+               mglGlobalMess += "PDF support was disabled. Please, enable it and rebuild MathGL.\n";\r
 #endif // MGL_HAVE_PDF\r
        }\r
        delete []tname;\r

diff --git a/src/prc/PRC.h b/src/prc/PRC.h
index 9ce6ea70e0e3ab7fc38c7dcfdb2a13e483603362..78ee1bdcd0aa4b19c51af3185b76e8c9c4e59fc3 100644 (file)
--- a/src/prc/PRC.h
+++ b/src/prc/PRC.h
@@ -12,6 +12,8 @@ typedef unsigned char uint8_t;
 typedef unsigned short uint16_t;
 typedef unsigned long uint32_t;
 #endif // _MSC_VER >= 1600
+#elif defined __BORLANDC__
+#include <stdint.h>
 #else
 #include <inttypes.h>
 #endif // _MSC_VER

diff --git a/src/prc/PRCbitStream.cc b/src/prc/PRCbitStream.cc
index bb013dcefe94a1747ccd72e4314e963e413d8b76..27815081213753482e79a87b1943b3d8b1f9fb1d 100644 (file)
--- a/src/prc/PRCbitStream.cc
+++ b/src/prc/PRCbitStream.cc
@@ -23,6 +23,7 @@
 #include <stdlib.h>
 #include <string.h>
 #include <cassert>
+#include <math.h>
 #include "PRCbitStream.h"
 #include "PRCdouble.h"
 

diff --git a/src/prc/PRCbitStream.h b/src/prc/PRCbitStream.h
index 67142586e50557ea5b4e36facce00dd60976928b..f240baf1eaf99689a549ca366ad5d096ebb01560 100644 (file)
--- a/src/prc/PRCbitStream.h
+++ b/src/prc/PRCbitStream.h
@@ -33,6 +33,8 @@ typedef unsigned char uint8_t;
 typedef unsigned short uint16_t;
 typedef unsigned long uint32_t;
 #endif // _MSC_VER >= 1600
+#elif defined __BORLANDC__
+#include <stdint.h>
 #else
 #include <inttypes.h>
 #endif // _MSC_VER

diff --git a/src/prc/oPRCFile.cc b/src/prc/oPRCFile.cc
index 2a7dcc8946f61be92196cef1f0f0b0ce042c5d4f..b090f8aef91b24fb0398163c974da5bb70d800fd 100644 (file)
--- a/src/prc/oPRCFile.cc
+++ b/src/prc/oPRCFile.cc
@@ -39,7 +39,7 @@
 #define SerializeCompressedUniqueId( value ) (value).serializeCompressedUniqueId(out);
 #define SerializeContentPRCBase write(out);
 #define SerializeRgbColor( value ) (value).serializeRgbColor(out);
-#define SerializePicture( value ) (value).serializePicture(out);
+#define SerializePicture( value ) (value)->serializePicture(out);
 #define SerializeTextureDefinition( value ) (value)->serializeTextureDefinition(out);
 #define SerializeMarkup( value ) (value)->serializeMarkup(out);
 #define SerializeAnnotationEntity( value ) (value)->serializeAnnotationEntity(out);
@@ -57,16 +57,9 @@
 #define SerializeGeometrySummary( value ) (value)->serializeGeometrySummary(out);
 #define SerializeContextGraphics( value ) (value)->serializeContextGraphics(out);
 #define SerializeStartHeader serializeStartHeader(out);
-#define SerializeUncompressedFiles  \
- { \
-  const uint32_t number_of_uncompressed_files = uncompressed_files.size(); \
-  WriteUncompressedUnsignedInteger (number_of_uncompressed_files) \
-  for(PRCUncompressedFileList::const_iterator it = uncompressed_files.begin(); it != uncompressed_files.end(); it++) \
-  { \
-    WriteUncompressedUnsignedInteger ((*it)->file_size) \
-    WriteUncompressedBlock ((*it)->data, (*it)->file_size) \
-  } \
- }
+#define SerializeUncompressedFile( value ) (value)->serializeUncompressedFile(out);
+#define SerializeUncompressedFiles  serializeUncompressedFiles(out);
+
 #define SerializeModelFileData serializeModelFileData(modelFile_out); modelFile_out.compress();
 #define SerializeUnit( value ) (value).serializeUnit(out);
 
@@ -276,21 +269,6 @@ void makeAppUUID(PRCUniqueId& UUID)
   UUID.id0 = UUID.id1 = UUID.id2 = UUID.id3 = 0;
 }
 
-void PRCUncompressedFile::write(ostream &out) const
-{
-  if(data!=NULL)
-  {
-    WriteUncompressedUnsignedInteger (file_size)
-    out.write((char*)data,file_size);
-  }
-}
-
-uint32_t PRCUncompressedFile::getSize() const
-{
-  return sizeof(file_size)+file_size;
-}
-
-
 void PRCStartHeader::serializeStartHeader(ostream &out) const
 {
   WriteUncompressedBlock ("PRC",3)
@@ -300,11 +278,26 @@ void PRCStartHeader::serializeStartHeader(ostream &out) const
   SerializeFileStructureUncompressedUniqueId( application_uuid );
 }
 
+void PRCStartHeader::serializeUncompressedFiles(ostream &out) const
+{
+  const uint32_t number_of_uncompressed_files = uncompressed_files.size();
+  WriteUncompressedUnsignedInteger (number_of_uncompressed_files)
+  for (uint32_t i=0; i<number_of_uncompressed_files; i++)
+    SerializeUncompressedFile (uncompressed_files[i])
+}
+
 uint32_t PRCStartHeader::getStartHeaderSize() const
 {
   return 3+(2+2*4)*sizeof(uint32_t);
 }
 
+uint32_t PRCStartHeader::getUncompressedFilesSize() const
+{
+  uint32_t size = 0;
+  for(PRCUncompressedFileList::const_iterator it = uncompressed_files.begin(); it != uncompressed_files.end(); it++)
+    size += (*it)->getSize();
+  return size;
+}
 
 void PRCFileStructure::write(ostream &out)
 {
@@ -329,8 +322,7 @@ void PRCFileStructure::prepare()
   uint32_t size = 0;
   size += getStartHeaderSize();
   size += sizeof(uint32_t);
-  for(PRCUncompressedFileList::const_iterator it = uncompressed_files.begin(); it != uncompressed_files.end(); it++)
-    size += (*it)->getSize();
+  size += getUncompressedFilesSize();
   sizes[0]=size;
 
   SerializeFileStructureGlobals
@@ -394,8 +386,7 @@ uint32_t PRCHeader::getSize()
   for(uint32_t i = 0; i < number_of_file_structures; ++i)
     size += fileStructureInformation[i].getSize();
   size += 3*sizeof(uint32_t);
-  for(PRCUncompressedFileList::const_iterator it = uncompressed_files.begin(); it != uncompressed_files.end(); it++)
-    size += (*it)->getSize();
+  size += getUncompressedFilesSize();
   return size;
 }
 
@@ -987,10 +978,11 @@ std::string oPRCFile::calculate_unique_name(const ContentPRCBase *prc_entity,con
 // WriteUnsignedInteger (unique_identifier)
     serialization << prc_occurence->getPRCID();
   }
-  ss << (prc_entity->name.empty()?"node":prc_entity->name) << '.';
+  ss << (prc_entity->name.empty()?"node":prc_entity->name.c_str()) << '.';
   const uint32_t size_serialization = serialization.getSize();
   for(size_t j=0; j<size_serialization; j++)
     ss << hex << setfill('0') << setw(2) << (uint32_t)(serialization_buffer[j]);
+  free(serialization_buffer);
 
   return ss.str();
 }
@@ -1073,132 +1065,97 @@ uint32_t oPRCFile::getSize()
 uint32_t PRCFileStructure::addPicture(EPRCPictureDataFormat format, uint32_t size, const uint8_t *p, uint32_t width, uint32_t height, string name)
 {
   uint8_t *data = NULL;
-  uint32_t components=0;
-  PRCPicture picture(name);
   if(size==0 || p==NULL)
   { cerr << "image not set" << endl; return m1; }
-  PRCUncompressedFile* uncompressed_file = new PRCUncompressedFile;
   if(format==KEPRCPicture_PNG || format==KEPRCPicture_JPG)
   {
+    width = 0; // width and height are ignored for JPG and PNG pictures - but let us keep things clean
+    height = 0;
     data = new uint8_t[size];
     memcpy(data, p, size);
-    uncompressed_files.push_back(uncompressed_file);
-    uncompressed_files.back()->file_size = size;
-    uncompressed_files.back()->data = data;
-    picture.format = format;
-    picture.uncompressed_file_index = uncompressed_files.size()-1;
-    picture.pixel_width = 0; // width and height are ignored for JPG and PNG pictures - but let us keep things clean
-    picture.pixel_height = 0;
-    pictures.push_back(picture);
-    return pictures.size()-1;
   }
-
-  switch(format)
+  else
   {
-    case KEPRCPicture_BITMAP_RGB_BYTE:
-      components = 3; break;
-    case KEPRCPicture_BITMAP_RGBA_BYTE:
-      components = 4; break;
-    case KEPRCPicture_BITMAP_GREY_BYTE:
-      components = 1; break;
-    case KEPRCPicture_BITMAP_GREYA_BYTE:
-      components = 2; break;
-    default:
+    uint32_t components=0;
+    switch(format)
+    {
+      case KEPRCPicture_BITMAP_RGB_BYTE:
+        components = 3; break;
+      case KEPRCPicture_BITMAP_RGBA_BYTE:
+        components = 4; break;
+      case KEPRCPicture_BITMAP_GREY_BYTE:
+        components = 1; break;
+      case KEPRCPicture_BITMAP_GREYA_BYTE:
+        components = 2; break;
+      default:
       { cerr << "unknown picture format" << endl; return m1; }
-  }
-  if(width==0 || height==0)
+    }
+    if(width==0 || height==0)
     { cerr << "width or height parameter not set" << endl; return m1; }
-  if (size < width*height*components)
+    if (size < width*height*components)
     { cerr << "image too small" << endl; return m1; }
-
-  {
-    uint32_t compressedDataSize = 0;
-    const int CHUNK= 1024; // is this reasonable?
-
-    z_stream strm;
-    strm.zalloc = Z_NULL;
-    strm.zfree = Z_NULL;
-    strm.opaque = Z_NULL;
-    if(deflateInit(&strm,Z_DEFAULT_COMPRESSION) != Z_OK)
-      { cerr << "Compression initialization failed" << endl; return m1; }
-    unsigned int sizeAvailable = deflateBound(&strm,size);
-    uint8_t *compressedData = (uint8_t*) malloc(sizeAvailable);
-    strm.avail_in = size;
-    strm.next_in = (unsigned char*)p;
-    strm.next_out = (unsigned char*)compressedData;
-    strm.avail_out = sizeAvailable;
-
-    int code;
-    unsigned int chunks = 0;
-    while((code = deflate(&strm,Z_FINISH)) == Z_OK)
-    {
-      ++chunks;
-      // strm.avail_out should be 0 if we got Z_OK
-      compressedDataSize = sizeAvailable - strm.avail_out;
-      compressedData = (uint8_t*) realloc(compressedData,CHUNK*chunks);
-      strm.next_out = (Bytef*)(compressedData + compressedDataSize);
-      strm.avail_out += CHUNK;
-      sizeAvailable += CHUNK;
-    }
-    compressedDataSize = sizeAvailable-strm.avail_out;
-
-    if(code != Z_STREAM_END)
     {
+      uint32_t compressedDataSize = 0;
+      const int CHUNK= 1024; // is this reasonable?
+      
+      z_stream strm;
+      strm.zalloc = Z_NULL;
+      strm.zfree = Z_NULL;
+      strm.opaque = Z_NULL;
+      if(deflateInit(&strm,Z_DEFAULT_COMPRESSION) != Z_OK)
+      { cerr << "Compression initialization failed" << endl; return m1; }
+      unsigned int sizeAvailable = deflateBound(&strm,size);
+      uint8_t *compressedData = (uint8_t*) malloc(sizeAvailable);
+      strm.avail_in = size;
+      strm.next_in = (unsigned char*)p;
+      strm.next_out = (unsigned char*)compressedData;
+      strm.avail_out = sizeAvailable;
+      
+      int code;
+      unsigned int chunks = 0;
+      while((code = deflate(&strm,Z_FINISH)) == Z_OK)
+      {
+        ++chunks;
+        // strm.avail_out should be 0 if we got Z_OK
+        compressedDataSize = sizeAvailable - strm.avail_out;
+        compressedData = (uint8_t*) realloc(compressedData,CHUNK*chunks);
+        strm.next_out = (Bytef*)(compressedData + compressedDataSize);
+        strm.avail_out += CHUNK;
+        sizeAvailable += CHUNK;
+      }
+      compressedDataSize = sizeAvailable-strm.avail_out;
+      
+      if(code != Z_STREAM_END)
+      {
+        deflateEnd(&strm);
+        free(compressedData);
+        { cerr << "Compression error" << endl; return m1; }
+      }
+      
       deflateEnd(&strm);
+      size = compressedDataSize;
+      data = new uint8_t[compressedDataSize];
+      memcpy(data, compressedData, compressedDataSize);
       free(compressedData);
-      { cerr << "Compression error" << endl; return m1; }
     }
-
-    deflateEnd(&strm);
-    size = compressedDataSize;
-    data = new uint8_t[compressedDataSize];
-    memcpy(data, compressedData, compressedDataSize);
-    free(compressedData);
   }
-  uncompressed_files.push_back(uncompressed_file);
-  uncompressed_files.back()->file_size = size;
-  uncompressed_files.back()->data = data;
-  picture.format = format;
-  picture.uncompressed_file_index = uncompressed_files.size()-1;
-  picture.pixel_width = width;
-  picture.pixel_height = height;
-  pictures.push_back(picture);
-  return pictures.size()-1;
-}
-
-uint32_t PRCFileStructure::addTextureDefinition(PRCTextureDefinition*& pTextureDefinition)
-{
-  texture_definitions.push_back(pTextureDefinition);
-  pTextureDefinition = NULL;
-  return texture_definitions.size()-1;
-}
-
-uint32_t PRCFileStructure::addRgbColor(const PRCRgbColor &color)
-{
-  colors.push_back(color);
-  return 3*(colors.size()-1);
-}
-
-uint32_t PRCFileStructure::addRgbColorUnique(const PRCRgbColor &color)
-{
-  for(uint32_t i = 0; i < colors.size(); ++i)
+  
+  uint32_t uncompressed_file_index = m1;
   {
-    if(colors[i] == color)
-      return 3*i;
+    PRCUncompressedFile* uncompressed_file = new PRCUncompressedFile(size, data);
+    uncompressed_file_index = addUncompressedFileUnique(uncompressed_file);
+    delete[] data;
   }
-  colors.push_back(color);
-  return 3*(colors.size()-1);
-}
-
-uint32_t oPRCFile::addColor(const PRCRgbColor &color)
-{
-  PRCcolorMap::const_iterator pColor = colorMap.find(color);
-  if(pColor!=colorMap.end())
-    return pColor->second;
-//  color_index = addRgbColorUnique(color);
-  const uint32_t color_index = fileStructures[0]->addRgbColor(color);
-  colorMap.insert(make_pair(color,color_index));
-  return color_index;
+  uint32_t picture_index = m1;
+  {
+    PRCPicture* picture = new PRCPicture(name);
+    picture->format = format;
+    picture->uncompressed_file_index = uncompressed_file_index;
+    picture->pixel_width = width;
+    picture->pixel_height = height;
+    picture_index = addPictureUnique(picture);
+  }
+  return picture_index;
 }
 
 uint32_t oPRCFile::addColour(const RGBAColour &colour)
@@ -1206,7 +1163,7 @@ uint32_t oPRCFile::addColour(const RGBAColour &colour)
   PRCcolourMap::const_iterator pColour = colourMap.find(colour);
   if(pColour!=colourMap.end())
     return pColour->second;
-  const uint32_t color_index = addColor(PRCRgbColor(colour.R, colour.G, colour.B));
+  const uint32_t color_index = addRgbColorUnique(colour.R, colour.G, colour.B);
   PRCStyle *style = new PRCStyle();
   style->line_width = 1.0;
   style->is_vpicture = false;
@@ -1216,18 +1173,18 @@ uint32_t oPRCFile::addColour(const RGBAColour &colour)
   style->is_transparency_defined = (colour.A < 1.0);
   style->transparency = (uint8_t)(colour.A * 256);
   style->additional = 0;
-  const uint32_t style_index = fileStructures[0]->addStyle(style);
+  const uint32_t style_index = addStyle(style);
   colourMap.insert(make_pair(colour,style_index));
   return style_index;
 }
 
 uint32_t oPRCFile::addColourWidth(const RGBAColour &colour, double width)
 {
-  RGBAColourWidth colourwidth(colour.R, colour.G, colour.B, colour.A, width);
+  const RGBAColourWidth colourwidth(colour.R, colour.G, colour.B, colour.A, width);
   PRCcolourwidthMap::const_iterator pColour = colourwidthMap.find(colourwidth);
   if(pColour!=colourwidthMap.end())
     return pColour->second;
-  const uint32_t color_index = addColor(PRCRgbColor(colour.R, colour.G, colour.B));
+  const uint32_t color_index = addRgbColorUnique(colour.R, colour.G, colour.B);
   PRCStyle *style = new PRCStyle();
   style->line_width = width;
   style->is_vpicture = false;
@@ -1237,7 +1194,7 @@ uint32_t oPRCFile::addColourWidth(const RGBAColour &colour, double width)
   style->is_transparency_defined = (colour.A < 1.0);
   style->transparency = (uint8_t)(colour.A * 256);
   style->additional = 0;
-  const uint32_t style_index = fileStructures[0]->addStyle(style);
+  const uint32_t style_index = addStyle(style);
   colourwidthMap.insert(make_pair(colourwidth,style_index));
   return style_index;
 }
@@ -1311,103 +1268,103 @@ uint32_t oPRCFile::addTransform(const double origin[3], const double x_axis[3],
 
 uint32_t oPRCFile::addMaterial(const PRCmaterial& m)
 {
+  PRCmaterialMap::const_iterator pMaterial = materialMap.find(m);
+  if(pMaterial!=materialMap.end())
+    return pMaterial->second;
+
   uint32_t material_index = m1;
-  const PRCmaterialgeneric materialgeneric(m);
-  PRCmaterialgenericMap::const_iterator pMaterialgeneric = materialgenericMap.find(materialgeneric);
-  if(pMaterialgeneric!=materialgenericMap.end())
-    material_index = pMaterialgeneric->second;
-  else
   {
-    PRCMaterialGeneric *materialGeneric = new PRCMaterialGeneric();
-    const PRCRgbColor ambient(m.ambient.R, m.ambient.G, m.ambient.B);
-    materialGeneric->ambient = addColor(ambient);
-    const PRCRgbColor diffuse(m.diffuse.R, m.diffuse.G, m.diffuse.B);
-    materialGeneric->diffuse = addColor(diffuse);
-    const PRCRgbColor emissive(m.emissive.R, m.emissive.G, m.emissive.B);
-    materialGeneric->emissive = addColor(emissive);
-    const PRCRgbColor specular(m.specular.R, m.specular.G, m.specular.B);
-    materialGeneric->specular = addColor(specular);
+    PRCMaterialGeneric *materialGeneric = new PRCMaterialGeneric;
+    materialGeneric->ambient  = addRgbColorUnique(m.ambient.R,  m.ambient.G,  m.ambient.B);
+    materialGeneric->diffuse  = addRgbColorUnique(m.diffuse.R,  m.diffuse.G,  m.diffuse.B);
+    materialGeneric->emissive = addRgbColorUnique(m.emissive.R, m.emissive.G, m.emissive.B);
+    materialGeneric->specular = addRgbColorUnique(m.specular.R, m.specular.G, m.specular.B);
     materialGeneric->shininess = m.shininess;
-    materialGeneric->ambient_alpha = m.ambient.A;
-    materialGeneric->diffuse_alpha = m.diffuse.A;
+    materialGeneric->ambient_alpha  = m.ambient.A;
+    materialGeneric->diffuse_alpha  = m.diffuse.A;
     materialGeneric->emissive_alpha = m.emissive.A;
     materialGeneric->specular_alpha = m.specular.A;
-    material_index = addMaterialGeneric(materialGeneric);
-    materialgenericMap.insert(make_pair(materialgeneric,material_index));
+    material_index = addMaterialGenericUnique(materialGeneric);
   }
-  uint32_t color_material_index = m1;
-  if(m.picture_data!=NULL)
+
+  uint32_t style_index = m1;
   {
-    uint32_t picture_index = m1;
-    PRCpicture picture(m);
-    PRCpictureMap::const_iterator pPicture = pictureMap.find(picture);
-    if(pPicture!=pictureMap.end())
-      picture_index = pPicture->second;
-    else
-    {
-      picture_index = addPicture(picture);
-      uint8_t* data = new uint8_t[picture.size];
-      memcpy(data,picture.data,picture.size);
-      picture.data = data;
-      pictureMap.insert(make_pair(picture,picture_index));
-    }
+    PRCStyle *style = new PRCStyle;
+    style->line_width = m.width;
+    style->is_vpicture = false;
+    style->line_pattern_vpicture_index = 0;
+    style->is_material = true;
+    style->is_transparency_defined = (m.alpha < 1.0);
+    style->transparency = (uint8_t)(m.alpha * 256);
+    style->additional = 0;
+    style->color_material_index = material_index;
+    style_index = addStyleUnique(style);
+  }
+  materialMap.insert(make_pair(m,style_index));
+  return style_index;
+}
+
+uint32_t oPRCFile::addTexturedMaterial(const PRCmaterial& m, uint32_t n, const PRCtexture* const tt[])
+{
+  uint32_t material_generic_index = m1;
+  {
+    PRCMaterialGeneric *materialGeneric = new PRCMaterialGeneric;
+    materialGeneric->ambient  = addRgbColorUnique(m.ambient.R,  m.ambient.G,  m.ambient.B);
+    materialGeneric->diffuse  = addRgbColorUnique(m.diffuse.R,  m.diffuse.G,  m.diffuse.B);
+    materialGeneric->emissive = addRgbColorUnique(m.emissive.R, m.emissive.G, m.emissive.B);
+    materialGeneric->specular = addRgbColorUnique(m.specular.R, m.specular.G, m.specular.B);
+    materialGeneric->shininess = m.shininess;
+    materialGeneric->ambient_alpha  = m.ambient.A;
+    materialGeneric->diffuse_alpha  = m.diffuse.A;
+    materialGeneric->emissive_alpha = m.emissive.A;
+    materialGeneric->specular_alpha = m.specular.A;
+    material_generic_index = addMaterialGenericUnique(materialGeneric);
+  }
+
+  uint32_t color_material_index = material_generic_index;
 
+  uint32_t texture_application_index = m1;
+  for (uint32_t i=n; i>0; i--) {
+    const PRCtexture* t = tt[i-1];
+    if (t == NULL) {
+      continue;
+    }
+    const uint32_t picture_index = addPicture(t->format, t->size, t->data, t->height, t->width);
+    
     uint32_t texture_definition_index = m1;
-    PRCtexturedefinition texturedefinition(picture_index, m);
-    PRCtexturedefinitionMap::const_iterator pTexturedefinition = texturedefinitionMap.find(texturedefinition);
-    if(pTexturedefinition!=texturedefinitionMap.end())
-      texture_definition_index = pTexturedefinition->second;
-    else
     {
-      PRCTextureDefinition *TextureDefinition = new PRCTextureDefinition;
-      TextureDefinition->picture_index = picture_index;
-      TextureDefinition->texture_function = m.picture_replace ? KEPRCTextureFunction_Replace : KEPRCTextureFunction_Modulate;
-      TextureDefinition->texture_wrapping_mode_S = m.picture_repeat ? KEPRCTextureWrappingMode_Repeat : KEPRCTextureWrappingMode_ClampToEdge;
-      TextureDefinition->texture_wrapping_mode_T = m.picture_repeat ? KEPRCTextureWrappingMode_Repeat : KEPRCTextureWrappingMode_ClampToEdge;
-      TextureDefinition->texture_mapping_attribute_components = m.picture_format==KEPRCPicture_BITMAP_RGB_BYTE ? PRC_TEXTURE_MAPPING_COMPONENTS_RGB : PRC_TEXTURE_MAPPING_COMPONENTS_RGBA;
-      texture_definition_index = addTextureDefinition(TextureDefinition);
-      texturedefinitionMap.insert(make_pair(texturedefinition,texture_definition_index));
+      PRCTextureDefinition *textureDefinition = new PRCTextureDefinition;
+      textureDefinition->picture_index = picture_index;
+      textureDefinition->texture_mapping_attribute = t->mapping;
+      textureDefinition->texture_mapping_attribute_components = t->components;
+      textureDefinition->texture_function = t->function;
+      textureDefinition->texture_wrapping_mode_S = t->wrapping_mode_S;
+      textureDefinition->texture_wrapping_mode_T = t->wrapping_mode_T;
+      texture_definition_index = addTextureDefinitionUnique(textureDefinition);
     }
-
-    uint32_t texture_application_index = m1;
-    const PRCtextureapplication textureapplication(material_index, texture_definition_index);
-    PRCtextureapplicationMap::const_iterator pTextureapplication = textureapplicationMap.find(textureapplication);
-    if(pTextureapplication!=textureapplicationMap.end())
-      texture_application_index = pTextureapplication->second;
-    else
     {
-      PRCTextureApplication *TextureApplication = new PRCTextureApplication;
-      TextureApplication->material_generic_index = material_index;
-      TextureApplication->texture_definition_index = texture_definition_index;
-      texture_application_index = addTextureApplication(TextureApplication);
-      textureapplicationMap.insert(make_pair(textureapplication,texture_application_index));
+      PRCTextureApplication *textureApplication = new PRCTextureApplication;
+      textureApplication->material_generic_index=material_generic_index;
+      textureApplication->texture_definition_index=texture_definition_index;
+      textureApplication->next_texture_index = texture_application_index;
+      texture_application_index = addTextureApplicationUnique(textureApplication);
     }
-
     color_material_index = texture_application_index;
   }
-  else
-    color_material_index = material_index;
 
   uint32_t style_index = m1;
-  PRCstyle style(0,m.alpha,true,color_material_index);
-  PRCstyleMap::const_iterator pStyle = styleMap.find(style);
-  if(pStyle!=styleMap.end())
-    style_index = pStyle->second;
-  else
   {
-    PRCStyle *Style = new PRCStyle();
-    Style->line_width = 0.0;
-    Style->is_vpicture = false;
-    Style->line_pattern_vpicture_index = 0;
-    Style->is_material = true;
-    Style->is_transparency_defined = (m.alpha < 1.0);
-    Style->transparency = (uint8_t)(m.alpha * 256);
-    Style->additional = 0;
-    Style->color_material_index = color_material_index;
-    style_index = addStyle(Style);
-    styleMap.insert(make_pair(style,style_index));
+    PRCStyle *style = new PRCStyle;
+    style->line_width = 0.0;
+    style->is_vpicture = false;
+    style->line_pattern_vpicture_index = 0;
+    style->is_material = true;
+    style->is_transparency_defined = (m.alpha < 1.0);
+    style->transparency = (uint8_t)(m.alpha * 256);
+    style->additional = 0;
+    style->color_material_index = color_material_index;
+    style_index = addStyleUnique(style);
   }
-//  materialMap.insert(make_pair(material,style_index));
   return style_index;
 }
 
@@ -1421,7 +1378,7 @@ bool isid(const double* t)
 }
 
 
-void oPRCFile::begingroup(const char *name, PRCoptions *options,
+void oPRCFile::begingroup(const char *name, const PRCoptions *options,
                           const double* t)
 {
   const PRCgroup &parent_group = groups.top();
@@ -1491,6 +1448,13 @@ void oPRCFile::addPoint(const double P[3], const RGBAColour &c, double w)
   group.points[addColourWidth(c,w)].push_back(PRCVector3d(P[0],P[1],P[2]));
 }
 
+void oPRCFile::addPoint(double x, double y, double z, const RGBAColour &c, double w)
+{
+  PRCgroup &group = findGroup();
+  group.points[addColourWidth(c,w)].push_back(PRCVector3d(x,y,z));
+}
+
+
 void oPRCFile::addPoints(uint32_t n, const double P[][3], const RGBAColour &c, double w)
 {
   if(n==0 || P==NULL)
@@ -1504,6 +1468,19 @@ void oPRCFile::addPoints(uint32_t n, const double P[][3], const RGBAColour &c, d
     pointset->point.push_back(PRCVector3d(P[i][0],P[i][1],P[i][2]));
 }
 
+void oPRCFile::addPoints(uint32_t n, const double P[][3], uint32_t style_index)
+{
+  if(n==0 || P==NULL)
+    return;
+  PRCgroup &group = findGroup();
+  PRCPointSet *pointset = new PRCPointSet();
+  group.pointsets.push_back(pointset);
+  pointset->index_of_line_style = style_index;
+  pointset->point.reserve(n);
+  for(uint32_t i=0; i<n; i++)
+    pointset->point.push_back(PRCVector3d(P[i][0],P[i][1],P[i][2]));
+}
+
 void oPRCFile::useMesh(uint32_t tess_index, uint32_t style_index, const double origin[3], const double x_axis[3], const double y_axis[3], double scale)
 {
   PRCgroup &group = findGroup();
@@ -1586,23 +1563,23 @@ uint32_t oPRCFile::createTriangleMesh(uint32_t nP, const double P[][3], uint32_t
   if(has_normals)
   {
     tess->normal_coordinate.reserve(3*nN);
-    for(uint32_t i=0; i<nN; i++)
-    {
-      tess->normal_coordinate.push_back(N[i][0]);
-      tess->normal_coordinate.push_back(N[i][1]);
-      tess->normal_coordinate.push_back(N[i][2]);
-    }
+  for(uint32_t i=0; i<nN; i++)
+  {
+    tess->normal_coordinate.push_back(N[i][0]);
+    tess->normal_coordinate.push_back(N[i][1]);
+    tess->normal_coordinate.push_back(N[i][2]);
+  }
   }
   else
     tess->crease_angle = ca;
   if(textured)
   {
     tess->texture_coordinate.reserve(2*nT);
-    for(uint32_t i=0; i<nT; i++)
-    {
-      tess->texture_coordinate.push_back(T[i][0]);
-      tess->texture_coordinate.push_back(T[i][1]);
-    }
+  for(uint32_t i=0; i<nT; i++)
+  {
+    tess->texture_coordinate.push_back(T[i][0]);
+    tess->texture_coordinate.push_back(T[i][1]);
+  }
   }
   tess->triangulated_index.reserve(3*nI+(has_normals?3:0)*nI+(textured?3:0)*nI);
   for(uint32_t i=0; i<nI; i++)
@@ -1709,23 +1686,23 @@ uint32_t oPRCFile::createQuadMesh(uint32_t nP, const double P[][3], uint32_t nI,
   if(has_normals)
   {
     tess->normal_coordinate.reserve(3*nN);
-    for(uint32_t i=0; i<nN; i++)
-    {
-      tess->normal_coordinate.push_back(N[i][0]);
-      tess->normal_coordinate.push_back(N[i][1]);
-      tess->normal_coordinate.push_back(N[i][2]);
-    }
+  for(uint32_t i=0; i<nN; i++)
+  {
+    tess->normal_coordinate.push_back(N[i][0]);
+    tess->normal_coordinate.push_back(N[i][1]);
+    tess->normal_coordinate.push_back(N[i][2]);
+  }
   }
   else
     tess->crease_angle = ca;
   if(textured)
   {
     tess->texture_coordinate.reserve(2*nT);
-    for(uint32_t i=0; i<nT; i++)
-    {
-      tess->texture_coordinate.push_back(T[i][0]);
-      tess->texture_coordinate.push_back(T[i][1]);
-    }
+  for(uint32_t i=0; i<nT; i++)
+  {
+    tess->texture_coordinate.push_back(T[i][0]);
+    tess->texture_coordinate.push_back(T[i][1]);
+  }
   }
   tess->triangulated_index.reserve(2*(3*nI+(has_normals?3:0)*nI+(textured?3:0)*nI));
   for(uint32_t i=0; i<nI; i++)
@@ -1832,7 +1809,7 @@ uint32_t oPRCFile::createQuadMesh(uint32_t nP, const double P[][3], uint32_t nI,
 void oPRCFile::addQuad(const double P[][3], const RGBAColour C[])
 {
   PRCgroup &group = findGroup();
-  
+
   group.quads.push_back(PRCtessquad());
   PRCtessquad &quad = group.quads.back();
   for(size_t i = 0; i < 4; i++)
@@ -1847,7 +1824,7 @@ void oPRCFile::addQuad(const double P[][3], const RGBAColour C[])
 void oPRCFile::addTriangle(const double P[][3], const double T[][2], uint32_t style_index)
 {
   PRCgroup &group = findGroup();
-  
+
   group.triangles.push_back(PRCtesstriangle());
   PRCtesstriangle &triangle = group.triangles.back();
   for(size_t i = 0; i < 3; i++)
@@ -1920,6 +1897,66 @@ uint32_t oPRCFile::createLines(uint32_t nP, const double P[][3], uint32_t nI, co
   return tess_index;
 }
 
+uint32_t oPRCFile::createSegments(uint32_t nP, const double P[][3], uint32_t nI, const uint32_t PI[][2],
+                               bool segment_color, uint32_t nC, const RGBAColour C[], const uint32_t CI[][2])
+{
+  if(nP==0 || P==NULL || nI==0 || PI==NULL)
+    return m1;
+  
+  const bool vertex_color  = (nC != 0 && C != NULL && CI != NULL);
+  
+  PRC3DWireTess *tess = new PRC3DWireTess();
+  tess->coordinates.reserve(3*nP);
+  for(uint32_t i=0; i<nP; i++)
+  {
+    tess->coordinates.push_back(P[i][0]);
+    tess->coordinates.push_back(P[i][1]);
+    tess->coordinates.push_back(P[i][2]);
+  }
+  tess->wire_indexes.reserve(3*nI);
+  for(uint32_t i=0; i<nI; i++)
+  {
+    tess->wire_indexes.push_back(2);
+    tess->wire_indexes.push_back(3*PI[i][0]);
+    tess->wire_indexes.push_back(3*PI[i][1]);
+  }
+  if(vertex_color)
+  {
+    tess->is_segment_color = segment_color;
+    tess->is_rgba=false;
+    for(uint32_t i=0; i<nI; i++)
+      if(1.0 != C[CI[i][0]].A || 1.0 != C[CI[i][1]].A)
+      {
+        tess->is_rgba=true;
+        break;
+      }
+    tess->rgba_vertices.reserve((tess->is_rgba?4:3)*(segment_color?1:2)*nI);
+    for(uint32_t i=0; i<nI; i++)
+    {
+      if (segment_color) {
+        tess->rgba_vertices.push_back(byte(0.5*C[CI[i][0]].R+0.5*C[CI[i][1]].R));
+        tess->rgba_vertices.push_back(byte(0.5*C[CI[i][0]].G+0.5*C[CI[i][1]].G));
+        tess->rgba_vertices.push_back(byte(0.5*C[CI[i][0]].B+0.5*C[CI[i][1]].B));
+        if(tess->is_rgba)
+          tess->rgba_vertices.push_back(byte(0.5*C[CI[i][0]].A+0.5*C[CI[i][1]].A));
+      } else {
+        tess->rgba_vertices.push_back(byte(C[CI[i][0]].R));
+        tess->rgba_vertices.push_back(byte(C[CI[i][0]].G));
+        tess->rgba_vertices.push_back(byte(C[CI[i][0]].B));
+        if(tess->is_rgba)
+          tess->rgba_vertices.push_back(byte(C[CI[i][0]].A));
+        tess->rgba_vertices.push_back(byte(C[CI[i][1]].R));
+        tess->rgba_vertices.push_back(byte(C[CI[i][1]].G));
+        tess->rgba_vertices.push_back(byte(C[CI[i][1]].B));
+        if(tess->is_rgba)
+          tess->rgba_vertices.push_back(byte(C[CI[i][1]].A));
+      }
+    }
+  }
+  const uint32_t tess_index = add3DWireTess(tess);
+  return tess_index;
+}
+
 void oPRCFile::addLine(uint32_t n, const double P[][3], const RGBAColour &c, double w)
 {
   PRCgroup &group = findGroup();
@@ -1944,6 +1981,30 @@ void oPRCFile::addLine(uint32_t n, const double P[][3], const RGBAColour &c, dou
   }
 }
 
+void oPRCFile::addSegment(const double P1[3], const double P2[3], const RGBAColour &c, double w)
+{
+  PRCgroup &group = findGroup();
+  if(group.options.tess)
+  {
+    group.lines[w].push_back(PRCtessline());
+    PRCtessline& line = group.lines[w].back();
+    line.color.red   = c.R;
+    line.color.green = c.G;
+    line.color.blue  = c.B;
+    line.point.push_back(PRCVector3d(P1[0],P1[1],P1[2]));
+    line.point.push_back(PRCVector3d(P2[0],P2[1],P2[2]));
+  }
+  else
+  {
+    ADDWIRE(PRCPolyLine)
+    curve->point.resize(2);
+    curve->point[0].Set(P1[0],P1[1],P1[2]);
+    curve->point[1].Set(P2[0],P2[1],P2[2]);
+    curve->interval.min = 0;
+    curve->interval.max = curve->point.size()-1;
+  }
+}
+
 void oPRCFile::addBezierCurve(uint32_t n, const double cP[][3],
                               const RGBAColour &c)
 {
@@ -2254,27 +2315,67 @@ void oPRCFile::addTorus(double major_radius, double minor_radius, double angle1,
 #undef ADDWIRE
 #undef SETTRANSF
 
-uint32_t PRCFileStructure::addMaterialGeneric(PRCMaterialGeneric*& pMaterialGeneric)
+uint32_t PRCFileStructure::addRgbColor(double r, double g, double b)
 {
-  materials.push_back(pMaterialGeneric);
-  pMaterialGeneric = NULL;
-  return materials.size()-1;
+  const PRCRgbColor color(r, g, b);
+  colors.push_back(color);
+  return 3*(colors.size()-1);
 }
 
-uint32_t PRCFileStructure::addTextureApplication(PRCTextureApplication*& pTextureApplication)
+uint32_t PRCFileStructure::addRgbColorUnique(double r, double g, double b)
 {
-  materials.push_back(pTextureApplication);
-  pTextureApplication = NULL;
-  return materials.size()-1;
+  const PRCRgbColor color(r, g, b);
+  uint32_t color_index = m1;
+  PRCRgbColorMap::const_iterator iRgbColor = colorMap.find(color);
+  if(iRgbColor!=colorMap.end())
+  {
+    color_index = iRgbColor->second;
+  }
+  else
+  {
+    color_index = 3*colors.size();
+    colors.push_back(color);
+    colorMap.insert(make_pair(color,color_index));
+  }
+  return color_index;
 }
 
-uint32_t PRCFileStructure::addStyle(PRCStyle*& pStyle)
-{
-  styles.push_back(pStyle);
-  pStyle = NULL;
-  return styles.size()-1;
+#define ADD_ADDUNIQ( prctype, prcmap, prclist) \
+uint32_t PRCFileStructure::add##prctype(PRC##prctype *& p##prctype)   \
+{ \
+  prclist.push_back(p##prctype); \
+  p##prctype = NULL; \
+  return prclist.size()-1; \
+} \
+ \
+uint32_t PRCFileStructure::add##prctype##Unique(PRC##prctype*& p##prctype) \
+{ \
+  uint32_t prc_index = m1; \
+  PRC##prctype##Map::const_iterator i##prctype = prcmap.find(p##prctype); \
+  if(i##prctype!=prcmap.end()) \
+  { \
+    delete p##prctype; \
+    prc_index = i##prctype->second; \
+  } \
+  else \
+  { \
+    prc_index = prclist.size(); \
+    prclist.push_back(p##prctype); \
+    prcmap.insert(make_pair(p##prctype,prc_index)); \
+  } \
+  p##prctype = NULL; \
+  return prc_index; \
 }
 
+ADD_ADDUNIQ(UncompressedFile,   uncompressedfileMap,   uncompressed_files  )
+ADD_ADDUNIQ(Picture,            pictureMap,            pictures            )
+ADD_ADDUNIQ(TextureDefinition,  texturedefinitionMap,  texture_definitions )
+ADD_ADDUNIQ(MaterialGeneric,    materialgenericMap,    materials           )
+ADD_ADDUNIQ(TextureApplication, textureapplicationMap, materials           )
+ADD_ADDUNIQ(Style,              styleMap,              styles              )
+
+#undef ADD_ADDUNIQ
+
 uint32_t PRCFileStructure::addPartDefinition(PRCPartDefinition*& pPartDefinition)
 {
   part_definitions.push_back(pPartDefinition);

diff --git a/src/prc/oPRCFile.h b/src/prc/oPRCFile.h
index ca3d58e7a17eb069eb9882253727810e557e22d7..33f97dbefe38e8a3d61a83fb661bcc2850bb9e17 100644 (file)
--- a/src/prc/oPRCFile.h
+++ b/src/prc/oPRCFile.h
@@ -42,6 +42,11 @@
 class oPRCFile;
 class PRCFileStructure;
 
+#define EQFLD(fld) fld==c.fld
+#define COMPFLD(fld) \
+if(fld != c.fld) \
+return (fld < c.fld);
+
 struct RGBAColour
 {
   RGBAColour(double r=0.0, double g=0.0, double b=0.0, double a=1.0) :
@@ -52,29 +57,26 @@ struct RGBAColour
   {
     R = r; G = g; B = b; A = a;
   }
-  bool operator==(const RGBAColour& c) const
+  bool operator==(const RGBAColour &c) const
   {
-    return (R==c.R && G==c.G && B==c.B && A==c.A);
+    return (EQFLD(R) && EQFLD(G) && EQFLD(B) && EQFLD(A));
   }
-  bool operator!=(const RGBAColour& c) const
+  bool operator!=(const RGBAColour &c) const
   {
-    return !(R==c.R && G==c.G && B==c.B && A==c.A);
+    return !(EQFLD(R) && EQFLD(G) && EQFLD(B) && EQFLD(A));
   }
-  bool operator<(const RGBAColour& c) const
+  bool operator<(const RGBAColour &c) const
   {
-    if(R!=c.R)
-      return (R<c.R);
-    if(G!=c.G)
-      return (G<c.G);
-    if(B!=c.B)
-      return (B<c.B);
-    return (A<c.A);
+    COMPFLD(R)
+    COMPFLD(G)
+    COMPFLD(B)
+    COMPFLD(A)
+    return false;
   }
   friend RGBAColour operator * (const RGBAColour& a, const double d)
   { return RGBAColour(a.R*d,a.G*d,a.B*d,a.A*d); }
   friend RGBAColour operator * (const double d, const RGBAColour& a)
   { return RGBAColour(a.R*d,a.G*d,a.B*d,a.A*d); }
-
 };
 typedef std::map<RGBAColour,uint32_t> PRCcolourMap;
 
@@ -84,38 +86,137 @@ struct RGBAColourWidth
     R(r), G(g), B(b), A(a), W(w) {}
   double R,G,B,A,W;
 
-  bool operator==(const RGBAColourWidth& c) const
+  bool operator==(const RGBAColourWidth &c) const
   {
-    return (R==c.R && G==c.G && B==c.B && A==c.A && W==c.W);
+    return (EQFLD(R) && EQFLD(G) && EQFLD(B) && EQFLD(A) && EQFLD(W));
   }
-  bool operator!=(const RGBAColourWidth& c) const
+  bool operator!=(const RGBAColourWidth &c) const
   {
-    return !(R==c.R && G==c.G && B==c.B && A==c.A && W==c.W);
+    return !(EQFLD(R) && EQFLD(G) && EQFLD(B) && EQFLD(A) && EQFLD(W));
   }
-  bool operator<(const RGBAColourWidth& c) const
+  bool operator<(const RGBAColourWidth &c) const
   {
-    if(R!=c.R)
-      return (R<c.R);
-    if(G!=c.G)
-      return (G<c.G);
-    if(B!=c.B)
-      return (B<c.B);
-    if(A!=c.A)
-      return (A<c.A);
-    return (W<c.W);
+    COMPFLD(R)
+    COMPFLD(G)
+    COMPFLD(B)
+    COMPFLD(A)
+    COMPFLD(W)
+    return false;
   }
 };
 typedef std::map<RGBAColourWidth,uint32_t> PRCcolourwidthMap;
 
-typedef std::map<PRCRgbColor,uint32_t> PRCcolorMap;
+struct PRCmaterial
+{
+  PRCmaterial() : alpha(1.0),shininess(1.0),width(1.0) {}
+  PRCmaterial(const RGBAColour &a, const RGBAColour &d, const RGBAColour &e,
+              const RGBAColour &s, double p, double h, double w=1.0) :
+  ambient(a), diffuse(d), emissive(e), specular(s), alpha(p), shininess(h), width(w) {}
+  
+  RGBAColour ambient,diffuse,emissive,specular;
+  double alpha,shininess,width;
+  
+  bool operator==(const PRCmaterial &c) const
+  {
+    return (EQFLD(ambient)   &&
+            EQFLD(diffuse)   &&
+            EQFLD(emissive)  &&
+            EQFLD(specular)  &&
+            EQFLD(alpha)     &&
+            EQFLD(shininess) &&
+            EQFLD(width));
+  }
+  bool operator<(const PRCmaterial &c) const
+  {
+    COMPFLD(ambient)
+    COMPFLD(diffuse)
+    COMPFLD(emissive)
+    COMPFLD(specular)
+    COMPFLD(alpha)
+    COMPFLD(shininess)
+    COMPFLD(width)
+    return false;
+  }
+};
+typedef std::map<PRCmaterial,uint32_t> PRCmaterialMap;
+
+#undef EQFLD
+#undef COMPFLD
+                 
+struct PRCtexture
+{
+  PRCtexture() : 
+  data(NULL), format(KEPRCPicture_BITMAP_RGBA_BYTE), width(0), height(0), size(0),
+  mapping(0), components(PRC_TEXTURE_MAPPING_COMPONENTS_RGBA),
+  function(KEPRCTextureFunction_Modulate),
+  wrapping_mode_S(KEPRCTextureWrappingMode_Repeat), wrapping_mode_T(KEPRCTextureWrappingMode_Repeat) {}
+  
+  const uint8_t* data;
+  EPRCPictureDataFormat format;
+  /*
+    KEPRCPicture_PNG
+    KEPRCPicture_JPG
+    KEPRCPicture_BITMAP_RGB_BYTE
+    KEPRCPicture_BITMAP_RGBA_BYTE
+    KEPRCPicture_BITMAP_GREY_BYTE
+    KEPRCPicture_BITMAP_GREYA_BYTE
+  */
+  uint32_t width;   // may be omitted for PNG and JPEG
+  uint32_t height;  // too
+  uint32_t size;
+  
+  uint32_t mapping;
+  /*
+  PRC_TEXTURE_MAPPING_DIFFUSE
+  PRC_TEXTURE_MAPPING_BUMP
+  PRC_TEXTURE_MAPPING_OPACITY 
+  PRC_TEXTURE_MAPPING_SPHERICAL_REFLECTION
+  */
+  
+  uint8_t components;
+  /*
+    PRC_TEXTURE_MAPPING_COMPONENTS_RED
+    PRC_TEXTURE_MAPPING_COMPONENTS_GREEN
+    PRC_TEXTURE_MAPPING_COMPONENTS_BLUE
+    PRC_TEXTURE_MAPPING_COMPONENTS_RGB
+    PRC_TEXTURE_MAPPING_COMPONENTS_ALPHA
+    PRC_TEXTURE_MAPPING_COMPONENTS_RGBA
+  */
+  
+  EPRCTextureFunction function;
+  /*
+   enum EPRCTextureFunction {                  // Defines how to paint a texture on the surface being rendered.
+   KEPRCTextureFunction_Unknown,                       // Let the application choose.
+   KEPRCTextureFunction_Modulate,              // Combine lighting with texturing. This is the default value.
+   KEPRCTextureFunction_Replace,                       // Replace the object color with texture color data.
+   KEPRCTextureFunction_Blend,                 // Reserved for future use.
+   KEPRCTextureFunction_Decal                  // Reserved for future use.
+   };
+  */
+
+  EPRCTextureWrappingMode wrapping_mode_S;
+  EPRCTextureWrappingMode wrapping_mode_T;
+  /*
+   enum EPRCTextureWrappingMode {                      // Defines repeating and clamping texture modes.
+   KEPRCTextureWrappingMode_Unknown,           // Let the application choose.
+   KEPRCTextureWrappingMode_Repeat,            // Display the repeated texture on the surface.
+   KEPRCTextureWrappingMode_ClampToBorder,     // Clamp the texture to the border. Display the surface color along the texture limits.
+   KEPRCTextureWrappingMode_Clamp,             // Reserved for future use.
+   KEPRCTextureWrappingMode_ClampToEdge,               // Reserved for future use.
+   KEPRCTextureWrappingMode_MirroredRepeat     // Reserved for future use.
+   };
+  */
+
+};
 
+/*
 struct PRCmaterial
 {
   PRCmaterial() : alpha(1.0),shininess(1.0),
       picture_data(NULL), picture_format(KEPRCPicture_BITMAP_RGB_BYTE), picture_width(0), picture_height(0), picture_size(0),
       picture_replace(false), picture_repeat(false) {}
-  PRCmaterial(const RGBAColour& a, const RGBAColour& d, const RGBAColour& e,
-              const RGBAColour& s, double p, double h,
+  PRCmaterial(const RGBAColour &a, const RGBAColour &d, const RGBAColour &e,
+              const RGBAColour &s, double p, double h,
               const uint8_t* pic=NULL, EPRCPictureDataFormat picf=KEPRCPicture_BITMAP_RGB_BYTE,
               uint32_t picw=0, uint32_t pich=0, uint32_t pics=0, bool picreplace=false, bool picrepeat=false) :
       ambient(a), diffuse(d), emissive(e), specular(s), alpha(p), shininess(h),
@@ -143,7 +244,7 @@ struct PRCmaterial
   bool picture_replace; // replace material color with texture color? if false - just modify
   bool picture_repeat;  // repeat texture? if false - clamp to edge
 
-  bool operator==(const PRCmaterial& m) const
+  bool operator==(const PRCmaterial &m) const
   {
     return (ambient==m.ambient && diffuse==m.diffuse && emissive==m.emissive
         && specular==m.specular && alpha==m.alpha && shininess==m.shininess
@@ -152,7 +253,7 @@ struct PRCmaterial
         && picture_width==m.picture_width && picture_height==m.picture_height && picture_size==m.picture_size
         && (picture_data==m.picture_data || memcmp(picture_data,m.picture_data,picture_size)==0) );
   }
-  bool operator<(const PRCmaterial& m) const
+  bool operator<(const PRCmaterial &m) const
   {
     if(ambient!=m.ambient)
       return (ambient<m.ambient);
@@ -184,182 +285,7 @@ struct PRCmaterial
   }
 };
 typedef std::map<PRCmaterial,uint32_t> PRCmaterialMap;
-
-struct PRCpicture
-{
-  PRCpicture() : 
-      data(NULL), format(KEPRCPicture_BITMAP_RGB_BYTE),
-      width(0), height(0), size(0) {}
-  PRCpicture(const uint8_t* pic, EPRCPictureDataFormat picf,
-             uint32_t picw, uint32_t pich, uint32_t pics=0) :
-      data(pic), format(picf),
-      width(picw), height(pich), size(pics)
-  {
-    if(size==0)
-    {
-      if (format==KEPRCPicture_BITMAP_RGB_BYTE)
-         size = width*height*3;
-      if (format==KEPRCPicture_BITMAP_RGBA_BYTE)
-         size = width*height*4;
-      if (format==KEPRCPicture_BITMAP_GREY_BYTE)
-         size = width*height*1;
-      if (format==KEPRCPicture_BITMAP_GREYA_BYTE)
-         size = width*height*2;
-    }
-  }
-  PRCpicture(const PRCmaterial& m) :
-      data(m.picture_data), format(m.picture_format),
-      width(m.picture_width), height(m.picture_height), size(m.picture_size) {}
-
-  const uint8_t* data;
-  EPRCPictureDataFormat format;
-  uint32_t width;
-  uint32_t height;
-  uint32_t size;
-  bool operator==(const PRCpicture& p) const
-  {
-    return ( format==p.format
-        && width==p.width && height==p.height && size==p.size
-        && (data==p.data || memcmp(data,p.data,size)==0) );
-  }
-  bool operator<(const PRCpicture& p) const
-  {
-    if(format!=p.format)
-      return (format<p.format);
-    if(width!=p.width)
-      return (width<p.width);
-    if(height!=p.height)
-      return (height<p.height);
-    if(size!=p.size)
-      return (size<p.size);
-    if(data!=p.data)
-      return (memcmp(data,p.data,size)<0);
-    return false;
-  }
-};
-
-typedef std::map<PRCpicture,uint32_t> PRCpictureMap;
-
-struct PRCmaterialgeneric
-{
-  PRCmaterialgeneric() : alpha(1.0),shininess(1.0) {}
-  PRCmaterialgeneric(const RGBAColour& a, const RGBAColour& d, const RGBAColour& e,
-              const RGBAColour& s, double p, double h) :
-      ambient(a), diffuse(d), emissive(e), specular(s), alpha(p), shininess(h) {}
-  PRCmaterialgeneric(const PRCmaterial& m) :
-      ambient(m.ambient), diffuse(m.diffuse), emissive(m.emissive), specular(m.specular), alpha(m.alpha), shininess(m.shininess) {}
-  RGBAColour ambient,diffuse,emissive,specular;
-  double alpha,shininess;
-
-  bool operator==(const PRCmaterialgeneric& m) const
-  {
-    return (ambient==m.ambient && diffuse==m.diffuse && emissive==m.emissive
-        && specular==m.specular && alpha==m.alpha && shininess==m.shininess);
-  }
-  bool operator<(const PRCmaterialgeneric& m) const
-  {
-    if(ambient!=m.ambient)
-      return (ambient<m.ambient);
-    if(diffuse!=m.diffuse)
-      return (diffuse<m.diffuse);
-    if(emissive!=m.emissive)
-      return (emissive<m.emissive);
-    if(specular!=m.specular)
-      return (specular<m.specular);
-    if(alpha!=m.alpha)
-      return (alpha<m.alpha);
-    if(shininess!=m.shininess)
-      return (shininess<m.shininess);
-    return false;
-  }
-};
-typedef std::map<PRCmaterialgeneric,uint32_t> PRCmaterialgenericMap;
-
-struct PRCtexturedefinition
-{
-  PRCtexturedefinition() : 
-      picture_index(m1), picture_replace(false), picture_repeat(false) {}
-  PRCtexturedefinition(uint32_t picindex, bool picreplace=false, bool picrepeat=false) :
-      picture_index(picindex), picture_replace(picreplace), picture_repeat(picrepeat) {}
-  PRCtexturedefinition(uint32_t picindex, const PRCmaterial& m) :
-      picture_index(picindex), picture_replace(m.picture_replace), picture_repeat(m.picture_repeat) {}
-  uint32_t picture_index;
-  bool picture_replace; // replace material color with texture color? if false - just modify
-  bool picture_repeat;  // repeat texture? if false - clamp to edge
-
-  bool operator==(const PRCtexturedefinition& t) const
-  {
-    return (picture_index==t.picture_index
-        && picture_replace==t.picture_replace && picture_repeat==t.picture_repeat);
-  }
-  bool operator<(const PRCtexturedefinition& t) const
-  {
-    if(picture_index!=t.picture_index)
-      return (picture_index<t.picture_index);
-    if(picture_replace!=t.picture_replace)
-      return (picture_replace<t.picture_replace);
-    if(picture_repeat!=t.picture_repeat)
-      return (picture_repeat<t.picture_repeat);
-    return false;
-  }
-};
-typedef std::map<PRCtexturedefinition,uint32_t> PRCtexturedefinitionMap;
-
-struct PRCtextureapplication
-{
-  PRCtextureapplication() : 
-      material_generic_index(m1), texture_definition_index(m1) {}
-  PRCtextureapplication(uint32_t matindex, uint32_t texindex) :
-      material_generic_index(matindex), texture_definition_index(texindex) {}
-  uint32_t material_generic_index;
-  uint32_t texture_definition_index;
-
-  bool operator==(const PRCtextureapplication& t) const
-  {
-    return (material_generic_index==t.material_generic_index
-        && texture_definition_index==t.texture_definition_index);
-  }
-  bool operator<(const PRCtextureapplication& t) const
-  {
-    if(material_generic_index!=t.material_generic_index)
-      return (material_generic_index<t.material_generic_index);
-    if(texture_definition_index!=t.texture_definition_index)
-      return (texture_definition_index<t.texture_definition_index);
-    return false;
-  }
-};
-typedef std::map<PRCtextureapplication,uint32_t> PRCtextureapplicationMap;
-
-struct PRCstyle
-{
-  PRCstyle() : 
-      line_width(0), alpha(1), is_material(false), color_material_index(m1) {}
-  PRCstyle(double linewidth, double alph, bool ismat, uint32_t colindex=m1) :
-      line_width(linewidth), alpha(alph), is_material(ismat), color_material_index(colindex) {}
-  double line_width;
-  double alpha;
-  bool is_material;
-  uint32_t color_material_index;
-
-  bool operator==(const PRCstyle& s) const
-  {
-    return (line_width==s.line_width && alpha==s.alpha && is_material==s.is_material
-        && color_material_index==s.color_material_index);
-  }
-  bool operator<(const PRCstyle& s) const
-  {
-    if(line_width!=s.line_width)
-      return (line_width<s.line_width);
-    if(alpha!=s.alpha)
-      return (alpha<s.alpha);
-    if(is_material!=s.is_material)
-      return (is_material<s.is_material);
-    if(color_material_index!=s.color_material_index)
-      return (color_material_index<s.color_material_index);
-    return false;
-  }
-};
-typedef std::map<PRCstyle,uint32_t> PRCstyleMap;
+*/
 
 struct PRCtessrectangle // rectangle
 {
@@ -471,21 +397,6 @@ class PRCgroup
 void makeFileUUID(PRCUniqueId&);
 void makeAppUUID(PRCUniqueId&);
 
-class PRCUncompressedFile
-{
-  public:
-    PRCUncompressedFile() : file_size(0), data(NULL) {}
-    PRCUncompressedFile(uint32_t fs, uint8_t* d) : file_size(fs), data(d) {}
-    ~PRCUncompressedFile() { if(data != NULL) delete[] data; }
-    uint32_t file_size;
-    uint8_t* data;
-
-    void write(std::ostream&) const;
-
-    uint32_t getSize() const;
-};
-typedef std::deque <PRCUncompressedFile*>  PRCUncompressedFileList;
-
 class PRCStartHeader
 {
   public:
@@ -497,8 +408,11 @@ class PRCStartHeader
     PRCStartHeader() :
       minimal_version_for_read(PRCVersion), authoring_version(PRCVersion) {}
     void serializeStartHeader(std::ostream&) const;
+    void serializeUncompressedFiles(std::ostream&) const;
 
+    PRCUncompressedFileList uncompressed_files;
     uint32_t getStartHeaderSize() const;
+    uint32_t getUncompressedFilesSize() const;
 };
 
 class PRCFileStructure : public PRCStartHeader
@@ -508,12 +422,19 @@ class PRCFileStructure : public PRCStartHeader
     double tessellation_chord_height_ratio;
     double tessellation_angle_degree;
     std::string default_font_family_name;
-    std::vector<PRCRgbColor> colors;
-    std::vector<PRCPicture> pictures;
-    PRCUncompressedFileList uncompressed_files;
+    PRCRgbColorList colors;
+    PRCRgbColorMap colorMap;
+    PRCPictureList pictures;
+    PRCPictureMap pictureMap;
+    PRCUncompressedFileMap uncompressedfileMap;
     PRCTextureDefinitionList texture_definitions;
+    PRCTextureDefinitionMap texturedefinitionMap;
     PRCMaterialList materials;
+    PRCMaterialGenericMap materialgenericMap;
+    PRCTextureApplicationMap textureapplicationMap;
     PRCStyleList styles;
+    PRCStyleMap styleMap;
+
     PRCCoordinateSystemList reference_coordinate_systems;
     std::vector<PRCFontKeysSameFont> font_keys_of_font;
     PRCPartDefinitionList part_definitions;
@@ -525,19 +446,20 @@ class PRCFileStructure : public PRCStartHeader
     PRCTessList tessellations;
 
     uint32_t sizes[6];
-    uint8_t* globals_data;
+    uint8_t *globals_data;
     PRCbitStream globals_out; // order matters: PRCbitStream must be initialized last
-    uint8_t* tree_data;
+    uint8_t *tree_data;
     PRCbitStream tree_out;
-    uint8_t* tessellations_data;
+    uint8_t *tessellations_data;
     PRCbitStream tessellations_out;
-    uint8_t* geometry_data;
+    uint8_t *geometry_data;
     PRCbitStream geometry_out;
-    uint8_t* extraGeometry_data;
+    uint8_t *extraGeometry_data;
     PRCbitStream extraGeometry_out;
 
     ~PRCFileStructure () {
       for(PRCUncompressedFileList::iterator  it=uncompressed_files.begin();  it!=uncompressed_files.end();  ++it) delete *it;
+      for(PRCPictureList::iterator           it=pictures.begin();            it!=pictures.end();            ++it) delete *it;
       for(PRCTextureDefinitionList::iterator it=texture_definitions.begin(); it!=texture_definitions.end(); ++it) delete *it;
       for(PRCMaterialList::iterator          it=materials.begin();           it!=materials.end();           ++it) delete *it;
       for(PRCStyleList::iterator             it=styles.begin();              it!=styles.end();              ++it) delete *it;
@@ -573,13 +495,22 @@ class PRCFileStructure : public PRCStartHeader
     void serializeFileStructureTessellation(PRCbitStream&);
     void serializeFileStructureGeometry(PRCbitStream&);
     void serializeFileStructureExtraGeometry(PRCbitStream&);
-    uint32_t addPicture(EPRCPictureDataFormat format, uint32_t size, const uint8_t* picture, uint32_t width=0, uint32_t height=0, std::string name="");
-    uint32_t addTextureDefinition(PRCTextureDefinition*& pTextureDefinition);
-    uint32_t addRgbColor(const PRCRgbColor& color);
-    uint32_t addRgbColorUnique(const PRCRgbColor& color);
-    uint32_t addMaterialGeneric(PRCMaterialGeneric*& pMaterialGeneric);
-    uint32_t addTextureApplication(PRCTextureApplication*& pTextureApplication);
-    uint32_t addStyle(PRCStyle*& pStyle);
+    uint32_t addPicture(EPRCPictureDataFormat format, uint32_t size, const uint8_t *picture, uint32_t width=0, uint32_t height=0, std::string name="");
+#define ADD_ADDUNIQ( prctype ) \
+uint32_t add##prctype( PRC##prctype*& p##prctype ); \
+uint32_t add##prctype##Unique( PRC##prctype*& p##prctype);
+  
+  ADD_ADDUNIQ( UncompressedFile   )
+  ADD_ADDUNIQ( Picture            )
+  ADD_ADDUNIQ( TextureDefinition  )
+  ADD_ADDUNIQ( TextureApplication )
+  ADD_ADDUNIQ( MaterialGeneric    )
+  ADD_ADDUNIQ( Style              ) 
+
+#undef ADD_ADDUNIQ
+
+    uint32_t addRgbColor(double r, double g, double b);
+    uint32_t addRgbColorUnique(double r, double g, double b);
     uint32_t addPartDefinition(PRCPartDefinition*& pPartDefinition);
     uint32_t addProductOccurrence(PRCProductOccurrence*& pProductOccurrence);
     uint32_t addTopoContext(PRCTopoContext*& pTopoContext);
@@ -601,7 +532,7 @@ class PRCFileStructureInformation
     PRCUniqueId UUID;
     uint32_t reserved; // 0
     uint32_t number_of_offsets;
-    uint32_t* offsets;
+    uint32_t *offsets;
 
     void write(std::ostream&);
 
@@ -612,10 +543,9 @@ class PRCHeader : public PRCStartHeader
 {
   public :
     uint32_t number_of_file_structures;
-    PRCFileStructureInformation* fileStructureInformation;
+    PRCFileStructureInformation *fileStructureInformation;
     uint32_t model_file_offset;
     uint32_t file_size; // not documented
-    PRCUncompressedFileList uncompressed_files;
 
     void write(std::ostream&);
     uint32_t getSize();
@@ -626,7 +556,7 @@ typedef std::map <PRCGeneralTransformation3d,uint32_t> PRCtransformMap;
 class oPRCFile
 {
   public:
-    oPRCFile(std::ostream& os, double u=1, uint32_t n=1) :
+    oPRCFile(std::ostream &os, double u=1, uint32_t n=1) :
       number_of_file_structures(n),
       fileStructures(new PRCFileStructure*[n]),
       unit(u),
@@ -653,7 +583,7 @@ class oPRCFile
         group.parent_part_definition = NULL;
       }
 
-    oPRCFile(const std::string& name, double u=1, uint32_t n=1) :
+    oPRCFile(const std::string &name, double u=1, uint32_t n=1) :
       number_of_file_structures(n),
       fileStructures(new PRCFileStructure*[n]),
       unit(u),
@@ -680,7 +610,7 @@ class oPRCFile
         group.parent_product_occurrence = NULL;
         group.part_definition = new PRCPartDefinition;
         group.parent_part_definition = NULL;
-     }
+      }
 
     ~oPRCFile()
     {
@@ -690,10 +620,9 @@ class oPRCFile
       if(fout != NULL)
         delete fout;
       free(modelFile_data);
-      for(PRCpictureMap::iterator it=pictureMap.begin(); it!=pictureMap.end(); ++it) delete it->first.data;
     }
 
-    void begingroup(const char* name, PRCoptions* options=NULL,
+    void begingroup(const char *name, const PRCoptions *options=NULL,
                     const double* t=NULL);
     void endgroup();
 
@@ -705,40 +634,40 @@ class oPRCFile
     uint32_t getSize();
 
     const uint32_t number_of_file_structures;
-    PRCFileStructure** fileStructures;
+    PRCFileStructure **fileStructures;
     PRCHeader header;
     PRCUnit unit;
-    uint8_t* modelFile_data;
+    uint8_t *modelFile_data;
     PRCbitStream modelFile_out; // order matters: PRCbitStream must be initialized last
-    PRCcolorMap colorMap;
+    PRCmaterialMap materialMap;
     PRCcolourMap colourMap;
     PRCcolourwidthMap colourwidthMap;
-    PRCmaterialgenericMap materialgenericMap;
-    PRCtexturedefinitionMap texturedefinitionMap;
-    PRCtextureapplicationMap textureapplicationMap;
-    PRCstyleMap styleMap;
-    PRCpictureMap pictureMap;
     PRCgroup rootGroup;
     PRCtransformMap transformMap;
     std::stack<PRCgroup> groups;
     PRCgroup& findGroup();
     void doGroup(PRCgroup& group);
-    uint32_t addColor(const PRCRgbColor& color);
-    uint32_t addColour(const RGBAColour& colour);
-    uint32_t addColourWidth(const RGBAColour& colour, double width);
+    uint32_t addColour(const RGBAColour &colour);
+    uint32_t addColourWidth(const RGBAColour &colour, double width);
     uint32_t addLineMaterial(const RGBAColour& c, double width)
                { return addColourWidth(c,width); }
-    uint32_t addMaterial(const PRCmaterial& material);
+    uint32_t addMaterial(const PRCmaterial &material);
+    uint32_t addTexturedMaterial(const PRCmaterial &material, uint32_t n=0, const PRCtexture* const* tt=NULL);
     uint32_t addTransform(PRCGeneralTransformation3d*& transform);
     uint32_t addTransform(const double* t);
     uint32_t addTransform(const double origin[3], const double x_axis[3], const double y_axis[3], double scale);
-    void addPoint(const double P[3], const RGBAColour& c, double w=1.0);
-    void addPoints(uint32_t n, const double P[][3], const RGBAColour& c, double w=1.0);
+    void addPoint(const double P[3], const RGBAColour &c, double w=1.0);
+    void addPoint(double x, double y, double z, const RGBAColour &c, double w);
+    void addPoints(uint32_t n, const double P[][3], const RGBAColour &c, double w=1.0);
+    void addPoints(uint32_t n, const double P[][3], uint32_t style_index);
     void addLines(uint32_t nP, const double P[][3], uint32_t nI, const uint32_t PI[],
                       const RGBAColour& c, double w,
                       bool segment_color, uint32_t nC, const RGBAColour C[], uint32_t nCI, const uint32_t CI[]);
     uint32_t createLines(uint32_t nP, const double P[][3], uint32_t nI, const uint32_t PI[],
                       bool segment_color, uint32_t nC, const RGBAColour C[], uint32_t nCI, const uint32_t CI[]);
+    uint32_t createSegments(uint32_t nP, const double P[][3], uint32_t nI, const uint32_t PI[][2],
+                            bool segment_color, uint32_t nC, const RGBAColour C[], const uint32_t CI[][2]);
+
     void addTriangles(uint32_t nP, const double P[][3], uint32_t nI, const uint32_t PI[][3], const PRCmaterial& m,
                       uint32_t nN, const double N[][3],   const uint32_t NI[][3],
                       uint32_t nT, const double T[][2],   const uint32_t TI[][3],
@@ -817,15 +746,17 @@ class oPRCFile
 
 //  void addTriangle(const double P[][3], const double T[][2], uint32_t style_index);
   
-    void addLine(uint32_t n, const double P[][3], const RGBAColour& c, double w=1.0);
-    void addBezierCurve(uint32_t n, const double cP[][3], const RGBAColour& c);
-    void addCurve(uint32_t d, uint32_t n, const double cP[][3], const double* k, const RGBAColour& c, const double w[]);
+    void addLine(uint32_t n, const double P[][3], const RGBAColour &c, double w=1.0);
+    void addSegment(const double P1[3], const double P2[3], const RGBAColour &c, double w=1.0);
+
+    void addBezierCurve(uint32_t n, const double cP[][3], const RGBAColour &c);
+    void addCurve(uint32_t d, uint32_t n, const double cP[][3], const double *k, const RGBAColour &c, const double w[]);
     void addQuad(const double P[][3], const RGBAColour C[]);
 
-    void addRectangle(const double P[][3], const PRCmaterial& m);
-    void addPatch(const double cP[][3], const PRCmaterial& m);
+    void addRectangle(const double P[][3], const PRCmaterial &m);
+    void addPatch(const double cP[][3], const PRCmaterial &m);
     void addSurface(uint32_t dU, uint32_t dV, uint32_t nU, uint32_t nV,
-     const double cP[][3], const double* kU, const double* kV, const PRCmaterial& m,
+     const double cP[][3], const double *kU, const double *kV, const PRCmaterial &m,
      const double w[]);
     void addTube(uint32_t n, const double cP[][3], const double oP[][3], bool straight, const PRCmaterial& m, PRCTRANSFORM);
     void addHemisphere(double radius, const PRCmaterial& m, PRCTRANSFORM);
@@ -839,38 +770,30 @@ class oPRCFile
 #undef PRCGENTRANSFORM
 
 
-    uint32_t addPicture(EPRCPictureDataFormat format, uint32_t size, const uint8_t* picture, uint32_t width=0, uint32_t height=0,
+    uint32_t addPicture(EPRCPictureDataFormat format, uint32_t size, const uint8_t *picture, uint32_t width=0, uint32_t height=0,
       std::string name="", uint32_t fileStructure=0)
       { return fileStructures[fileStructure]->addPicture(format, size, picture, width, height, name); }
-    uint32_t addPicture(const PRCpicture& pic,
-      std::string name="", uint32_t fileStructure=0)
-      { return fileStructures[fileStructure]->addPicture(pic.format, pic.size, pic.data, pic.width, pic.height, name); }
-    uint32_t addTextureDefinition(PRCTextureDefinition*& pTextureDefinition, uint32_t fileStructure=0)
-      {
-        return fileStructures[fileStructure]->addTextureDefinition(pTextureDefinition);
-      }
-    uint32_t addTextureApplication(PRCTextureApplication*& pTextureApplication, uint32_t fileStructure=0)
-      {
-        return fileStructures[fileStructure]->addTextureApplication(pTextureApplication);
-      }
-    uint32_t addRgbColor(const PRCRgbColor& color,
-       uint32_t fileStructure=0)
-      {
-        return fileStructures[fileStructure]->addRgbColor(color);
-      }
-    uint32_t addRgbColorUnique(const PRCRgbColor& color,
+
+#define ADD_ADDUNIQ( prctype ) \
+  uint32_t add##prctype(PRC##prctype*& p##prctype, uint32_t fileStructure=0) \
+  { return fileStructures[fileStructure]->add##prctype( p##prctype ); } \
+  uint32_t add##prctype##Unique(PRC##prctype*& p##prctype, uint32_t fileStructure=0) \
+  { return fileStructures[fileStructure]->add##prctype##Unique(p##prctype); }
+  
+  ADD_ADDUNIQ( TextureDefinition  )
+  ADD_ADDUNIQ( TextureApplication )
+  ADD_ADDUNIQ( MaterialGeneric    )
+  ADD_ADDUNIQ( Style              ) 
+#undef ADD_ADDUNIQ
+    uint32_t addRgbColor(double r, double g, double b,
        uint32_t fileStructure=0)
       {
-        return fileStructures[fileStructure]->addRgbColorUnique(color);
+        return fileStructures[fileStructure]->addRgbColor(r, g, b);
       }
-    uint32_t addMaterialGeneric(PRCMaterialGeneric*& pMaterialGeneric,
+    uint32_t addRgbColorUnique(double r, double g, double b,
        uint32_t fileStructure=0)
       {
-        return fileStructures[fileStructure]->addMaterialGeneric(pMaterialGeneric);
-      }
-    uint32_t addStyle(PRCStyle*& pStyle, uint32_t fileStructure=0)
-      {
-        return fileStructures[fileStructure]->addStyle(pStyle);
+        return fileStructures[fileStructure]->addRgbColorUnique(r, g, b);
       }
     uint32_t addPartDefinition(PRCPartDefinition*& pPartDefinition, uint32_t fileStructure=0)
       {
@@ -920,8 +843,8 @@ class oPRCFile
       }
   private:
     void serializeModelFileData(PRCbitStream&);
-    std::ofstream* fout;
-    std::ostream& output;
+    std::ofstream *fout;
+    std::ostream &output;
 };
 
 #endif // __O_PRC_FILE_H

diff --git a/src/prc/writePRC.cc b/src/prc/writePRC.cc
index 8265d0bc7e020ddac9d421917d7a0e73a3dfdae0..098b4b76ac42d98eb7c95c531f4ce18f69e76332 100644 (file)
--- a/src/prc/writePRC.cc
+++ b/src/prc/writePRC.cc
@@ -33,6 +33,8 @@
 #include <vector>
 #endif
 
+#include <iterator>
+
 using namespace std;
 
 #ifndef __GNUC_PREREQ
@@ -166,6 +168,68 @@ bool PRCVector2d::Normalize()
   return true;
 }
 
+void PRCVector2d::serializeVector2d(PRCbitStream &pbs)
+{
+  WriteDouble (x)
+  WriteDouble (y)
+}
+
+uint32_t makeCADID()
+{
+  static uint32_t ID = 1;
+  return ID++;
+}
+
+uint32_t makePRCID()
+{
+  static uint32_t ID = 1;
+  return ID++;
+}
+
+bool type_eligible_for_reference(uint32_t type)
+{
+  if(
+     type == PRC_TYPE_MISC_EntityReference ||
+     type == PRC_TYPE_MISC_MarkupLinkedItem ||
+     type == PRC_TYPE_RI_BrepModel ||
+     type == PRC_TYPE_RI_Curve ||
+     type == PRC_TYPE_RI_Direction ||
+     type == PRC_TYPE_RI_Plane ||
+     type == PRC_TYPE_RI_PointSet ||
+     type == PRC_TYPE_RI_PolyBrepModel ||
+     type == PRC_TYPE_RI_PolyWire ||
+     type == PRC_TYPE_RI_Set ||
+     type == PRC_TYPE_RI_CoordinateSystem ||
+     type == PRC_TYPE_ASM_ProductOccurence ||
+     type == PRC_TYPE_ASM_PartDefinition ||
+     type == PRC_TYPE_ASM_Filter ||
+     type == PRC_TYPE_MKP_View ||
+     type == PRC_TYPE_MKP_Markup ||
+     type == PRC_TYPE_MKP_Leader ||
+     type == PRC_TYPE_MKP_AnnotationItem ||
+     type == PRC_TYPE_MKP_AnnotationSet ||
+     type == PRC_TYPE_MKP_AnnotationReference ||
+     type == PRC_TYPE_GRAPH_Style ||
+     type == PRC_TYPE_GRAPH_Material ||
+     type == PRC_TYPE_GRAPH_TextureApplication ||
+     type == PRC_TYPE_GRAPH_TextureDefinition ||
+     type == PRC_TYPE_GRAPH_LinePattern ||
+     type == PRC_TYPE_GRAPH_DottingPattern ||
+     type == PRC_TYPE_GRAPH_HatchingPattern ||
+     type == PRC_TYPE_GRAPH_SolidPattern ||
+     type == PRC_TYPE_GRAPH_VPicturePattern ||
+     type == PRC_TYPE_GRAPH_AmbientLight ||
+     type == PRC_TYPE_GRAPH_PointLight ||
+     type == PRC_TYPE_GRAPH_DirectionalLight ||
+     type == PRC_TYPE_GRAPH_SpotLight ||
+     type == PRC_TYPE_GRAPH_SceneDisplayParameters ||
+     type == PRC_TYPE_GRAPH_Camera
+    )
+    return true;
+  else
+    return false;
+}
+
 void UserData::write(PRCbitStream &pbs)
 {
   pbs << size;
@@ -267,6 +331,18 @@ void PRCReferenceUniqueIdentifier::serializeReferenceUniqueIdentifier(PRCbitStre
   WriteUnsignedInteger (unique_identifier)
 }
 
+void PRCUncompressedFile::serializeUncompressedFile(ostream &out) const
+{
+  WriteUncompressedUnsignedInteger (file_contents.size())
+  std::ostream_iterator<uint8_t> out_it (out);
+  copy ( file_contents.begin(), file_contents.end(), out_it );
+}
+
+uint32_t PRCUncompressedFile::getSize() const
+{
+  return sizeof(uint32_t)+file_contents.size();
+}
+
 void PRCRgbColor::serializeRgbColor(PRCbitStream &pbs)
 {
   WriteDouble (red)
@@ -1003,68 +1079,6 @@ void  PRCMarkupTess::serializeMarkupTess(PRCbitStream &pbs)
   WriteCharacter (behaviour)
 }
 
-void PRCVector2d::serializeVector2d(PRCbitStream &pbs)
-{
-  WriteDouble (x)
-  WriteDouble (y)
-}
-
-uint32_t makeCADID()
-{
-  static uint32_t ID = 1;
-  return ID++;
-}
-
-uint32_t makePRCID()
-{
-  static uint32_t ID = 1;
-  return ID++;
-}
-
-bool type_eligible_for_reference(uint32_t type)
-{
-  if(
-     type == PRC_TYPE_MISC_EntityReference ||
-     type == PRC_TYPE_MISC_MarkupLinkedItem ||
-     type == PRC_TYPE_RI_BrepModel ||
-     type == PRC_TYPE_RI_Curve ||
-     type == PRC_TYPE_RI_Direction ||
-     type == PRC_TYPE_RI_Plane ||
-     type == PRC_TYPE_RI_PointSet ||
-     type == PRC_TYPE_RI_PolyBrepModel ||
-     type == PRC_TYPE_RI_PolyWire ||
-     type == PRC_TYPE_RI_Set ||
-     type == PRC_TYPE_RI_CoordinateSystem ||
-     type == PRC_TYPE_ASM_ProductOccurence ||
-     type == PRC_TYPE_ASM_PartDefinition ||
-     type == PRC_TYPE_ASM_Filter ||
-     type == PRC_TYPE_MKP_View ||
-     type == PRC_TYPE_MKP_Markup ||
-     type == PRC_TYPE_MKP_Leader ||
-     type == PRC_TYPE_MKP_AnnotationItem ||
-     type == PRC_TYPE_MKP_AnnotationSet ||
-     type == PRC_TYPE_MKP_AnnotationReference ||
-     type == PRC_TYPE_GRAPH_Style ||
-     type == PRC_TYPE_GRAPH_Material ||
-     type == PRC_TYPE_GRAPH_TextureApplication ||
-     type == PRC_TYPE_GRAPH_TextureDefinition ||
-     type == PRC_TYPE_GRAPH_LinePattern ||
-     type == PRC_TYPE_GRAPH_DottingPattern ||
-     type == PRC_TYPE_GRAPH_HatchingPattern ||
-     type == PRC_TYPE_GRAPH_SolidPattern ||
-     type == PRC_TYPE_GRAPH_VPicturePattern ||
-     type == PRC_TYPE_GRAPH_AmbientLight ||
-     type == PRC_TYPE_GRAPH_PointLight ||
-     type == PRC_TYPE_GRAPH_DirectionalLight ||
-     type == PRC_TYPE_GRAPH_SpotLight ||
-     type == PRC_TYPE_GRAPH_SceneDisplayParameters ||
-     type == PRC_TYPE_GRAPH_Camera
-    )
-    return true;
-  else
-    return false;
-}
-
 void writeUnit(PRCbitStream &out,bool fromCAD,double unit)
 {
   out << fromCAD << unit;

diff --git a/src/prc/writePRC.h b/src/prc/writePRC.h
index a1c794c919c6ebae681f6359d5cf15d13fe5e299..92a82151f27fe6994f72c7beddbe7647bb6aaca6 100644 (file)
--- a/src/prc/writePRC.h
+++ b/src/prc/writePRC.h
@@ -29,6 +29,7 @@
 #endif
 #include <map>
 #include <iostream>
+#include <algorithm>
 #include "PRCbitStream.h"
 #include "PRC.h"
 #include <float.h>
@@ -287,43 +288,6 @@ void resetGraphics();
 
 void resetGraphicsAndName();
 
-struct PRCRgbColor
-{
-  PRCRgbColor(double r=0.0, double g=0.0, double b=0.0) :
-    red(r), green(g), blue(b) {}
-  double red,green,blue;
-  void serializeRgbColor(PRCbitStream&);
-
-  bool operator==(const PRCRgbColor &c) const
-  {
-    return (red==c.red && green==c.green && blue==c.blue);
-  }
-  bool operator!=(const PRCRgbColor &c) const
-  {
-    return !(red==c.red && green==c.green && blue==c.blue);
-  }
-  bool operator<(const PRCRgbColor &c) const
-  {
-    if(red!=c.red)
-      return (red<c.red);
-    if(green!=c.green)
-      return (green<c.green);
-    return (blue<c.blue);
-  }
-};
-
-class PRCPicture : public ContentPRCBase
-{
-public:
-  PRCPicture(std::string n="") :
-  ContentPRCBase(PRC_TYPE_GRAPH_Picture,n), format(KEPRCPicture_PNG), uncompressed_file_index(m1), pixel_width(0), pixel_height(0) {}
-  void serializePicture(PRCbitStream&);
-  EPRCPictureDataFormat format;
-  uint32_t uncompressed_file_index;
-  uint32_t pixel_width;
-  uint32_t pixel_height;
-};
-
 struct PRCVector2d
 {
   PRCVector2d() :
@@ -382,6 +346,109 @@ struct PRCVector2d
   }
 };
 
+#define EQFLD(fld) fld==c.fld
+#define COMPFLD(fld) \
+if(fld != c.fld) \
+  return (fld < c.fld);
+#define PRCMAP(PRCtype) \
+struct PRCtype##Cmp : public std::binary_function <const PRCtype*, const PRCtype*, bool> \
+{ bool operator()(const PRCtype* Left, const PRCtype* Right) const  { return (*Left < *Right); } }; \
+typedef std::map<PRCtype*,uint32_t,PRCtype##Cmp> PRCtype##Map;
+#define PRCLIST(PRCtype) \
+typedef std::deque <PRCtype*>  PRCtype##List;
+
+
+struct PRCRgbColor
+{
+  PRCRgbColor(double r=0.0, double g=0.0, double b=0.0) :
+  red(r), green(g), blue(b) {}
+  double red,green,blue;
+  void serializeRgbColor(PRCbitStream&);
+  
+  bool operator==(const PRCRgbColor &c) const
+  {
+    return (EQFLD(red) &&
+            EQFLD(green) &&
+            EQFLD(blue)
+            );
+  }
+  bool operator!=(const PRCRgbColor &c) const
+  {
+    return !(EQFLD(red) &&
+             EQFLD(green) &&
+             EQFLD(blue)
+             );
+  }
+  bool operator<(const PRCRgbColor &c) const
+  {
+    COMPFLD(red)
+    COMPFLD(green)
+    COMPFLD(blue)
+    return false;
+  }
+};
+typedef std::map<PRCRgbColor,uint32_t> PRCRgbColorMap;
+typedef std::deque<PRCRgbColor>  PRCRgbColorList;
+
+class PRCUncompressedFile
+{
+public:
+  PRCUncompressedFile() {}
+  PRCUncompressedFile(uint32_t fs, uint8_t *d) {
+    file_contents.assign( d, d + fs );  
+  }
+
+  std::vector<uint8_t> file_contents;
+  
+  void serializeUncompressedFile(std::ostream&) const;
+  
+  uint32_t getSize() const;
+  
+  bool operator==(const PRCUncompressedFile& c) const
+  {
+    return file_contents==c.file_contents;
+  }
+  bool operator<(const PRCUncompressedFile& c) const
+  {
+    return file_contents<c.file_contents;
+  }
+};
+PRCLIST(PRCUncompressedFile)
+PRCMAP(PRCUncompressedFile)
+
+class PRCPicture : public ContentPRCBase
+{
+public:
+  PRCPicture(std::string n="") :
+  ContentPRCBase(PRC_TYPE_GRAPH_Picture,n), format(KEPRCPicture_PNG), uncompressed_file_index(m1), pixel_width(0), pixel_height(0) {}
+  void serializePicture(PRCbitStream&);
+  EPRCPictureDataFormat format;
+  uint32_t uncompressed_file_index;
+  uint32_t pixel_width;
+  uint32_t pixel_height;
+  bool operator==(const PRCPicture& c) const
+  {
+    return (EQFLD(format) &&
+            EQFLD(uncompressed_file_index) &&
+            EQFLD(pixel_width) &&
+            EQFLD(pixel_height) &&
+            EQFLD(name)
+            );
+  }
+  bool operator<(const PRCPicture& c) const
+  {
+    COMPFLD(format)
+    COMPFLD(uncompressed_file_index)
+    COMPFLD(pixel_width)
+    COMPFLD(pixel_height)
+    COMPFLD(name)
+    return false;
+  }
+};
+PRCLIST(PRCPicture)
+PRCMAP(PRCPicture)
+
+
 class PRCTextureDefinition : public ContentPRCBase
 {
 public:
@@ -414,8 +481,37 @@ public:
   // double X_homegeneous_coord;
   // double Y_homegeneous_coord;
   // double origin_homegeneous_coord;
+  
+  bool operator==(const PRCTextureDefinition& c) const
+  {
+    return (EQFLD(picture_index) &&
+            EQFLD(texture_mapping_attribute) &&
+            EQFLD(texture_mapping_attribute_intensity) &&
+            EQFLD(texture_mapping_attribute_components) &&
+            EQFLD(texture_function) &&
+            EQFLD(texture_applying_mode) &&
+            EQFLD(texture_wrapping_mode_S) &&
+            EQFLD(texture_wrapping_mode_T) &&
+            EQFLD(name)
+            );
+  }
+  bool operator<(const PRCTextureDefinition& c) const
+  {
+    COMPFLD(picture_index)
+    COMPFLD(texture_mapping_attribute)
+    COMPFLD(texture_mapping_attribute_intensity)
+    COMPFLD(texture_mapping_attribute_components)
+    COMPFLD(texture_function)
+    COMPFLD(texture_applying_mode)
+    COMPFLD(texture_wrapping_mode_S)
+    COMPFLD(texture_wrapping_mode_T)
+    COMPFLD(name)
+    return false;
+  }
+
 };
-typedef std::deque <PRCTextureDefinition*>  PRCTextureDefinitionList;
+PRCLIST(PRCTextureDefinition)
+PRCMAP(PRCTextureDefinition)
 
 class PRCMaterial
 {
@@ -423,7 +519,7 @@ public:
   virtual ~PRCMaterial() {}
   virtual void serializeMaterial(PRCbitStream&) = 0;
 };
-typedef std::deque <PRCMaterial*>  PRCMaterialList;
+PRCLIST(PRCMaterial)
 
 class PRCMaterialGeneric : public ContentPRCBase, public PRCMaterial
 {
@@ -436,7 +532,6 @@ public:
     {}
   void serializeMaterialGeneric(PRCbitStream&);
   void serializeMaterial(PRCbitStream &pbs) { serializeMaterialGeneric(pbs); }
-  uint32_t picture_index;
   uint32_t ambient;
   uint32_t diffuse;
   uint32_t emissive;
@@ -447,12 +542,36 @@ public:
   double emissive_alpha;
   double specular_alpha;
 
-  bool operator==(const PRCMaterialGeneric &m) const
+  bool operator==(const PRCMaterialGeneric& c) const
   {
-    return (ambient==m.ambient && diffuse==m.diffuse && emissive==m.emissive && specular==m.specular && shininess==m.shininess &&
-            ambient_alpha==m.ambient_alpha && diffuse_alpha==m.diffuse_alpha && emissive_alpha==m.emissive_alpha && specular_alpha==m.specular_alpha);
+    return (EQFLD(ambient) &&
+            EQFLD(diffuse) &&
+            EQFLD(emissive) &&
+            EQFLD(specular) &&
+            EQFLD(shininess) &&
+            EQFLD(ambient_alpha) &&
+            EQFLD(diffuse_alpha) &&
+            EQFLD(emissive_alpha) &&
+            EQFLD(specular_alpha) &&
+            EQFLD(name)
+            );
+  }
+  bool operator<(const PRCMaterialGeneric& c) const
+  {
+    COMPFLD(ambient)
+    COMPFLD(diffuse)
+    COMPFLD(emissive)
+    COMPFLD(specular)
+    COMPFLD(shininess)
+    COMPFLD(ambient_alpha)
+    COMPFLD(diffuse_alpha)
+    COMPFLD(emissive_alpha)
+    COMPFLD(specular_alpha)
+    COMPFLD(name)
+    return false;
   }
 };
+PRCMAP(PRCMaterialGeneric)
 
 class PRCTextureApplication : public ContentPRCBase, public PRCMaterial
 {
@@ -468,7 +587,27 @@ public:
   uint32_t texture_definition_index;
   uint32_t next_texture_index;
   uint32_t UV_coordinates_index;
+  
+  bool operator==(const PRCTextureApplication& c) const
+  {
+    return (EQFLD(material_generic_index) &&
+            EQFLD(texture_definition_index) &&
+            EQFLD(next_texture_index) &&
+            EQFLD(UV_coordinates_index) &&
+            EQFLD(name)
+            );
+  }
+  bool operator<(const PRCTextureApplication& c) const
+  {
+    COMPFLD(material_generic_index)
+    COMPFLD(texture_definition_index)
+    COMPFLD(next_texture_index)
+    COMPFLD(UV_coordinates_index)
+    COMPFLD(name)
+    return false;
+  }
 };
+PRCMAP(PRCTextureApplication)
 
 class PRCLinePattern : public ContentPRCBase
 {
@@ -499,8 +638,41 @@ public:
   bool is_transparency_defined;
   uint8_t transparency;
   uint8_t additional;
+  bool operator==(const PRCStyle& c) const
+  {
+    return (EQFLD(line_width) &&
+            EQFLD(is_vpicture) &&
+            EQFLD(line_pattern_vpicture_index) &&
+            EQFLD(is_material) &&
+            EQFLD(color_material_index) &&
+            EQFLD(is_transparency_defined) &&
+            EQFLD(transparency) &&
+            EQFLD(additional) &&
+            EQFLD(name)
+            );
+  }
+  bool operator<(const PRCStyle& c) const
+  {
+    COMPFLD(line_width)
+    COMPFLD(is_vpicture)
+    COMPFLD(line_pattern_vpicture_index)
+    COMPFLD(is_material)
+    COMPFLD(color_material_index)
+    COMPFLD(is_transparency_defined)
+    COMPFLD(transparency)
+    COMPFLD(additional)
+    COMPFLD(name)
+    return false;
+  }
+
 };
-typedef std::deque <PRCStyle*>  PRCStyleList;
+PRCLIST(PRCStyle)
+PRCMAP(PRCStyle)
+
+#undef EQFLD
+#undef COMPFLD
+#undef PRCMAP
+
 
 class PRCTessFace
 {
@@ -774,6 +946,14 @@ public:
     else
       setidentity();
   }
+  void set(const float t[])
+  {
+    if(t!=NULL) 
+      for (size_t i=0;i<16;i++)
+        m_coef[i]=t[i];
+    else
+      setidentity();
+  }
   void setidentity()
   {
     m_coef[0]=1; m_coef[4]=0; m_coef[ 8]=0; m_coef[12]=0;
@@ -919,7 +1099,7 @@ class PRCBoundingBox
 {
 public:
   PRCBoundingBox() : min(0.0,0.0,0.0), max(0.0,0.0,0.0) {}
-  PRCBoundingBox(const PRCVector3d &m1, const PRCVector3d& m2) : min(m1),max(m2) {}
+  PRCBoundingBox(const PRCVector3d &m, const PRCVector3d& M) : min(m),max(M) {}
   void serializeBoundingBox(PRCbitStream &pbs);
   PRCVector3d min;
   PRCVector3d max;

diff --git a/src/prim.cpp b/src/prim.cpp
index 79cf00606370b62b528357d93376b3a8a73adbb8..813bb02fe23f52d4249acfc2f532e17127a063f8 100644 (file)
--- a/src/prim.cpp
+++ b/src/prim.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * prim.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -25,29 +25,37 @@
 //     Mark & Curve series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_mark(HMGL gr, mreal x,mreal y,mreal z,const char *mark)\r
+void mgl_mark(HMGL gr, double x, double y, double z,const char *mark)\r
 {\r
        char mk = gr->SetPenPal(mark);\r
        if(!mk) mk = '.';\r
-       gr->mark_plot(gr->AddPnt(mglPoint(x,y,z),gr->CDef,mglPoint(NAN),-1,3),mk);\r
+       if(mgl_isnan(z))        z=2*gr->Max.z-gr->Min.z;\r
+       static int cgid=1;      gr->StartGroup("MarkS",cgid++);\r
+       long k = gr->AddPnt(mglPoint(x,y,z),gr->CDef,mglPoint(NAN),-1,3);\r
+       gr->mark_plot(k,mk);    gr->AddActive(k);\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_mark_(uintptr_t *gr, mreal *x, mreal *y, mreal *z, const char *pen,int l)\r
 {      char *s=new char[l+1];  memcpy(s,pen,l);        s[l]=0;\r
        mgl_mark(_GR_, *x,*y,*z,s);     delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_ball(HMGL gr, mreal x,mreal y,mreal z)\r
+void mgl_ball(HMGL gr, double x, double y, double z)\r
 {\r
-       gr->mark_plot(gr->AddPnt(mglPoint(x,y,z),gr->AddTexture('r'),mglPoint(NAN),-1,3),'.');\r
+       static int cgid=1;      gr->StartGroup("Ball",cgid++);\r
+       if(mgl_isnan(z))        z=2*gr->Max.z-gr->Min.z;\r
+       long k = gr->AddPnt(mglPoint(x,y,z),gr->AddTexture('r'),mglPoint(NAN),-1,3);\r
+       gr->mark_plot(k,'.');   gr->AddActive(k);\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_ball_(uintptr_t *gr, mreal *x,mreal *y,mreal *z)\r
+void mgl_ball_(uintptr_t *gr, mreal *x, mreal *y, mreal *z)\r
 {      mgl_ball(_GR_, *x,*y,*z);       }\r
 //-----------------------------------------------------------------------------\r
-void mgl_line(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, const char *pen,int n)\r
+void mgl_line(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, const char *pen,int n)\r
 {\r
        static int cgid=1;      gr->StartGroup("Line",cgid++);\r
-       if(mgl_isnan(z1) || mgl_isnan(z2))      z1=z2=gr->Min.z;\r
+       if(mgl_isnan(z1) || mgl_isnan(z2))      z1=z2=2*gr->Max.z-gr->Min.z;\r
        mglPoint p1(x1,y1,z1), p2(x2,y2,z2), p=p1,nn=mglPoint(NAN);\r
        gr->SetPenPal(pen);\r
        n = (n<2) ? 2 : n;\r
@@ -55,7 +63,7 @@ void mgl_line(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z
        register long i,k1,k2;\r
        register mreal s;\r
        gr->Reserve(n);\r
-       k1 = gr->AddPnt(p,gr->CDef,nn,-1,3);\r
+       k1 = gr->AddPnt(p,gr->CDef,nn,-1,3);    gr->AddActive(k1);\r
        for(i=1;i<n;i++)\r
        {\r
                if(gr->Stop)    return;\r
@@ -65,16 +73,17 @@ void mgl_line(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z
                if(i==1)        gr->arrow_plot(k2,k1,gr->Arrow1);\r
                if(i==n-1)      gr->arrow_plot(k1,k2,gr->Arrow2);\r
        }\r
-       gr->EndGroup();\r
+       gr->AddActive(k1,1);    gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_line_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal *y2, mreal *z2, const char *pen,int *n,int l)\r
 {      char *s=new char[l+1];  memcpy(s,pen,l);        s[l]=0;\r
        mgl_line(_GR_, *x1,*y1,*z1, *x2,*y2,*z2,s,*n);  delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_curve(HMGL gr, mreal x1, mreal y1, mreal z1, mreal dx1, mreal dy1, mreal dz1, mreal x2, mreal y2, mreal z2, mreal dx2, mreal dy2, mreal dz2, const char *pen,int n)\r
+void mgl_curve(HMGL gr, double x1, double y1, double z1, double dx1, double dy1, double dz1, double x2, double y2, double z2, double dx2, double dy2, double dz2, const char *pen,int n)\r
 {\r
        static int cgid=1;      gr->StartGroup("Curve",cgid++);\r
+       if(mgl_isnan(z1) || mgl_isnan(z2))      z1=z2=2*gr->Max.z-gr->Min.z;\r
        mglPoint p1(x1,y1,z1), p2(x2,y2,z2), d1(dx1,dy1,dz1), d2(dx2,dy2,dz2), a,b,p=p1,nn=mglPoint(NAN);\r
        a = 3*(p2-p1)-d2-2*d1;  b = d1+d2-2*(p2-p1);\r
        n = (n<2) ? 2 : n;\r
@@ -83,8 +92,8 @@ void mgl_curve(HMGL gr, mreal x1, mreal y1, mreal z1, mreal dx1, mreal dy1, mrea
        register long i,k1,k2;\r
        register mreal s;\r
        gr->Reserve(n);\r
-       k1=gr->AddPnt(p,gr->CDef,nn,-1,3);\r
-       for(i=0;i<n;i++)\r
+       k1=gr->AddPnt(p,gr->CDef,nn,-1,3);      gr->AddActive(k1);\r
+       for(i=1;i<n;i++)\r
        {\r
                if(gr->Stop)    return;\r
                s = i/(n-1.);   p = p1+s*(d1+s*(a+s*b));        k2 = k1;\r
@@ -93,14 +102,16 @@ void mgl_curve(HMGL gr, mreal x1, mreal y1, mreal z1, mreal dx1, mreal dy1, mrea
                if(i==1)        gr->arrow_plot(k2,k1,gr->Arrow1);\r
                if(i==n-1)      gr->arrow_plot(k1,k2,gr->Arrow2);\r
        }\r
-       gr->EndGroup();\r
+       gr->AddActive(gr->AddPnt(p1+d1,gr->CDef,nn,-1,3),1);\r
+       gr->AddActive(gr->AddPnt(p2-d2,gr->CDef,nn,-1,3),3);\r
+       gr->AddActive(k1,2);    gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_curve_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *dx1, mreal *dy1, mreal *dz1, mreal *x2, mreal *y2, mreal *z2, mreal *dx2, mreal *dy2, mreal *dz2, const char *pen,int *n, int l)\r
 {      char *s=new char[l+1];  memcpy(s,pen,l);        s[l]=0;\r
        mgl_curve(_GR_, *x1,*y1,*z1, *dx1,*dy1,*dz1, *x2,*y2,*z2, *dx2,*dy2,*dz2, s, *n);       delete []s;}\r
 //-----------------------------------------------------------------------------\r
-void mgl_error_box(HMGL gr, mreal x, mreal y, mreal z, mreal ex, mreal ey, mreal ez, const char *pen)\r
+void mgl_error_box(HMGL gr, double x, double y, double z, double ex, double ey, double ez, const char *pen)\r
 {\r
        static int cgid=1;      gr->StartGroup("ErBox",cgid++);\r
        char mk=gr->SetPenPal(pen);\r
@@ -117,6 +128,8 @@ void mgl_error_box(HMGL gr, mreal x, mreal y, mreal z, mreal ex, mreal ey, mreal
        q = p;  q.z -= ez;      k2 = gr->AddPnt(q,gr->CDef,nn,0,3);\r
        gr->line_plot(k1,k2);   gr->arrow_plot(k1,k2,'I');      gr->arrow_plot(k2,k1,'I');\r
        if(mk)  gr->mark_plot(gr->AddPnt(p,gr->CDef,nn,0,3),mk);\r
+       gr->AddActive(gr->AddPnt(p,gr->CDef,nn,-1,3),0);\r
+       gr->AddActive(gr->AddPnt(p+mglPoint(ex,ey),gr->CDef,nn,-1,3),1);\r
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
@@ -128,12 +141,13 @@ void mgl_error_box_(uintptr_t *gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, m
 //     Face series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_face(HMGL gr, mreal x0, mreal y0, mreal z0, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal x3, mreal y3, mreal z3, const char *stl)\r
+void mgl_face(HMGL gr, double x0, double y0, double z0, double x1, double y1, double z1, double x2, double y2, double z2, double x3, double y3, double z3, const char *stl)\r
 {\r
        static int cgid=1;      gr->StartGroup("Face",cgid++);\r
        long pal;\r
        gr->SetPenPal(stl,&pal);\r
-       mreal c1,c2,c3,c4,zz=(gr->Min.z+gr->Max.z)/2;\r
+//     mreal c1,c2,c3,c4,zz=(gr->Min.z+gr->Max.z)/2;\r
+       mreal c1,c2,c3,c4,zz=2*gr->Max.z-gr->Min.z;\r
        c1=c2=c3=c4=gr->CDef;\r
        if(mgl_isnan(z0))       z0 = zz;        if(mgl_isnan(z1))       z1 = zz;\r
        if(mgl_isnan(z2))       z2 = zz;        if(mgl_isnan(z3))       z3 = zz;\r
@@ -146,10 +160,12 @@ void mgl_face(HMGL gr, mreal x0, mreal y0, mreal z0, mreal x1, mreal y1, mreal z
        gr->Reserve(4);\r
        long k1,k2,k3,k4;\r
        double a = gr->get(MGL_ENABLE_ALPHA)?-1:1;\r
-       k1 = gr->AddPnt(p1,c1,q1,a,11); k2 = gr->AddPnt(p2,c2,q2,a,11);\r
-       k3 = gr->AddPnt(p3,c3,q3,a,11); k4 = gr->AddPnt(p4,c4,q4,a,11);\r
+       k1 = gr->AddPnt(p1,c1,q1,a,11); gr->AddActive(k1,0);\r
+       k2 = gr->AddPnt(p2,c2,q2,a,11); gr->AddActive(k2,1);\r
+       k3 = gr->AddPnt(p3,c3,q3,a,11); gr->AddActive(k3,2);\r
+       k4 = gr->AddPnt(p4,c4,q4,a,11); gr->AddActive(k4,3);\r
        gr->quad_plot(k1,k2,k3,k4);\r
-       if(strchr(stl,'#'))\r
+       if(mglchr(stl,'#'))\r
        {\r
                gr->Reserve(4);\r
                pal = gr->AddTexture('k');\r
@@ -161,13 +177,13 @@ void mgl_face(HMGL gr, mreal x0, mreal y0, mreal z0, mreal x1, mreal y1, mreal z
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_facex(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wy, mreal wz, const char *stl, mreal d1, mreal d2)\r
+void mgl_facex(HMGL gr, double x0, double y0, double z0, double wy, double wz, const char *stl, double d1, double d2)\r
 {      mgl_face(gr, x0,y0,z0, x0,y0+wy,z0, x0,y0,z0+wz, x0,y0+wy+d1,z0+wz+d2, stl);    }\r
 //-----------------------------------------------------------------------------\r
-void mgl_facey(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wx, mreal wz, const char *stl, mreal d1, mreal d2)\r
+void mgl_facey(HMGL gr, double x0, double y0, double z0, double wx, double wz, const char *stl, double d1, double d2)\r
 {      mgl_face(gr, x0,y0,z0, x0+wx,y0,z0, x0,y0,z0+wz, x0+wx+d1,y0,z0+wz+d2, stl);    }\r
 //-----------------------------------------------------------------------------\r
-void mgl_facez(HMGL gr, mreal x0, mreal y0, mreal z0, mreal wx, mreal wy, const char *stl, mreal d1, mreal d2)\r
+void mgl_facez(HMGL gr, double x0, double y0, double z0, double wx, double wy, const char *stl, double d1, double d2)\r
 {      mgl_face(gr, x0,y0,z0, x0,y0+wy,z0, x0+wx,y0,z0, x0+wx+d1,y0+wy+d2,z0, stl);    }\r
 //-----------------------------------------------------------------------------\r
 void mgl_facex_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *wy, mreal *wz, const char *stl, mreal *dx, mreal *dy, int l)\r
@@ -191,7 +207,7 @@ void mgl_face_(uintptr_t* gr, mreal *x0, mreal *y0, mreal *z0, mreal *x1, mreal
 //     Cone\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_cone(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r1, mreal r2, const char *stl)\r
+void mgl_cone(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r1, double r2, const char *stl)\r
 {\r
        if(r2<0)        r2=r1;\r
        if(r1==0 && r2==0)      return;\r
@@ -202,8 +218,8 @@ void mgl_cone(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z
        long ss=gr->AddTexture(stl);\r
        mreal c1=gr->GetC(ss,p1.z), c2=gr->GetC(ss,p2.z);\r
        long *kk=new long[164],k1=-1,k2=-1;\r
-       bool edge = stl && strchr(stl,'@');\r
-       bool wire = stl && strchr(stl,'#');\r
+       bool edge = mglchr(stl,'@');\r
+       bool wire = mglchr(stl,'#');\r
        gr->Reserve(edge?166:82);\r
        if(edge && !wire)\r
        {\r
@@ -263,8 +279,8 @@ void mgl_cones_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const char *pen, const char
        static int cgid=1;      gr->StartGroup("Cones",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = nz > m ? nz : m;\r
 \r
-       bool above= pen && strchr(pen,'a');\r
-       bool wire = pen && strchr(pen,'#');\r
+       bool above= mglchr(pen,'a');\r
+       bool wire = mglchr(pen,'#');\r
        mreal *dd=new mreal[2*n], x1,z0,zz,d, vx,vy,vz,v0,v1;\r
 \r
        gr->SetPenPal(pen,&pal);\r
@@ -338,7 +354,7 @@ void mgl_cones_(uintptr_t *gr, uintptr_t *y,        const char *pen, const char *opt,in
 //     Ellipse & Rhomb\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_ellipse(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl)\r
+void mgl_ellipse(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r, const char *stl)\r
 {\r
        const int n = 41;\r
        long pal=0,n0,n1=-1,n2,m1=-1,m2;\r
@@ -346,34 +362,37 @@ void mgl_ellipse(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mrea
        gr->SetPenPal(stl,&pal);\r
        mreal c=gr->NextColor(pal), d;\r
        mreal k=(gr->GetNumPal(pal)>1)?gr->NextColor(pal):gr->AddTexture('k');\r
-       bool fill = !(stl && strchr(stl,'#')), box = (stl && strchr(stl,'@')) || !fill;\r
+       bool fill = !mglchr(stl,'#'), box = mglchr(stl,'@') || !fill;\r
        if(!fill)       k=c;\r
 \r
        gr->Reserve(2*n+1);\r
+       if(mgl_isnan(z1) || mgl_isnan(z2))      z1=z2=2*gr->Max.z-gr->Min.z;\r
        mglPoint p1(x1,y1,z1), p2(x2,y2,z2), v=p2-p1;\r
        d = v.norm();\r
        if(d==0)        v = mglPoint(1);        else    v /= d;\r
        mglPoint u=mglPoint(0,0,1)^v, q=u^v, p, s=(p1+p2)/2.;\r
        u *= r;         v *= sqrt(d*d/4+r*r);\r
        // central point first\r
-       n0 = gr->AddPnt(p1,c,q,-1,11);\r
+       n0 = gr->AddPnt(p1,c,q,-1,11);  gr->AddActive(n0);\r
+       gr->AddActive(gr->AddPnt(p2,c,q,-1,11),1);\r
        for(long i=0;i<n;i++)\r
        {\r
                if(gr->Stop)    return;\r
                mreal t = i*2*M_PI/(n-1.);\r
                p = s+v*cos(t)+u*sin(t);\r
                n2 = n1;        n1 = gr->AddPnt(p,c,q,-1,11);\r
+               if(i==n/4)      gr->AddActive(n1,2);\r
                m2 = m1;        m1 = gr->CopyNtoC(n1,k);\r
                if(i>0)\r
                {\r
                        if(fill)        gr->trig_plot(n0,n1,n2);\r
-                       if(box)         gr->line_plot(m1,m2);\r
+                       if(box) gr->line_plot(m1,m2);\r
                }\r
        }\r
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_rhomb(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl)\r
+void mgl_rhomb(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r, const char *stl)\r
 {\r
        long pal=0, n1,n2,n3,n4;\r
        static int cgid=1;      gr->StartGroup("Rhomb",cgid++);\r
@@ -381,15 +400,17 @@ void mgl_rhomb(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal
        mreal c=gr->NextColor(pal);\r
        mreal k=(gr->GetNumPal(pal)>1)?gr->NextColor(pal):gr->AddTexture('k');\r
        mreal b=(gr->GetNumPal(pal)>2)?gr->NextColor(pal):c;\r
-       bool fill = !(stl && strchr(stl,'#')), box = (stl && strchr(stl,'@')) || !fill;\r
+       bool fill = !mglchr(stl,'#'), box = mglchr(stl,'@') || !fill;\r
        if(!fill)       k=c;\r
        gr->Reserve(8);\r
+       if(mgl_isnan(z1) || mgl_isnan(z2))      z1=z2=2*gr->Max.z-gr->Min.z;\r
        mglPoint p1(x1,y1,z1), p2(x2,y2,z2), u=mglPoint(0,0,1)^(p1-p2), q=u^(p1-p2), p, s,qq;\r
        u = (r/u.norm())*u;     s = (p1+p2)/2.;\r
        p = p1; q = qq; n1 = gr->AddPnt(p,c,qq,-1,11);\r
        p = s+u;q = qq; n2 = gr->AddPnt(p,b==c?c:k,qq,-1,11);\r
        p = p2; q = qq; n3 = gr->AddPnt(p,b,qq,-1,11);\r
        p = s-u;q = qq; n4 = gr->AddPnt(p,b==c?c:k,qq,-1,11);\r
+       gr->AddActive(n1,0);    gr->AddActive(n2,2);    gr->AddActive(n3,1);\r
        if(fill)        gr->quad_plot(n1,n2,n4,n3);\r
        n1 = gr->CopyNtoC(n1,k);        n2 = gr->CopyNtoC(n2,k);\r
        n3 = gr->CopyNtoC(n3,k);        n4 = gr->CopyNtoC(n4,k);\r
@@ -411,44 +432,52 @@ void mgl_rhomb_(uintptr_t* gr, mreal *x1, mreal *y1, mreal *z1, mreal *x2, mreal
 //     Sphere & Drop\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_sphere(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl)\r
+void mgl_sphere(HMGL gr, double x, double y, double z, double r, const char *stl)\r
 {      mgl_drop(gr,x,y,z,1,0,0,2*r,stl,0,1);   }\r
 //-----------------------------------------------------------------------------\r
 void mgl_sphere_(uintptr_t* gr, mreal *x, mreal *y, mreal *z, mreal *r, const char *stl,int l)\r
 {      char *s=new char[l+1];  memcpy(s,stl,l);        s[l]=0;\r
        mgl_sphere(_GR_, *x,*y,*z,*r,s);        delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_drop(HMGL gr, mglPoint p, mglPoint q, mreal r, mreal c, mreal sh, mreal a)\r
+void mgl_drop(HMGL gr, mglPoint p, mglPoint q, double r, double c, double sh, double a)\r
 {\r
        mglPoint p1,p2,pp,qq;\r
        if(q.norm()==0) {       q = mglPoint(1,0,0);    sh=0;   }\r
        q.Normalize();  p1 = !q;        p2 = q^p1;      r /= 2;\r
 \r
        static int cgid=1;      gr->StartGroup("Drop",cgid++);\r
-       const int n = 41;\r
+       const int n = 24, m = n/2;\r
        register long i,j;\r
-       gr->Reserve(n*n);\r
-       long *nn=new long[2*n];\r
-\r
+       gr->Reserve(n*m);\r
+       long *nn=new long[2*n],n1,n2;\r
        mreal u,v,x,y,z,rr,dr, co,si;\r
-       for(i=0;i<n;i++)        for(j=0;j<n;j++)\r
+\r
+       z = r*(1+sh)*(1+sh);    n1 = gr->AddPnt(p + q*z,c,q,-1,3);\r
+       z = r*(1+sh)*(sh-1);    n2 = gr->AddPnt(p + q*z,c,q,-1,3);\r
+\r
+       for(i=0;i<m;i++)        for(j=0;j<n;j++)\r
        {\r
                if(gr->Stop)    {       delete []nn;    return; }\r
-               u = i*M_PI/(n-1.);      v = 2*M_PI*j/(n-1.)-1;\r
-               si = sin(u);    co = cos(u);\r
-               rr = r*a*si*(1.+sh*co)/(1+sh);\r
-               dr = r*a/(1+sh)*(co*(1.+sh*co) - sh*si*si);\r
-               x = rr*cos(v);  y = rr*sin(v);\r
-               z = r*(1+sh)*(co+sh);\r
-               pp = p + p1*x + p2*y + q*z;\r
-               qq = (p1*sin(v)-p2*cos(v))^(p1*(dr*cos(v)) + p2*(dr*sin(v)) - q*(r*(1+sh)*si));\r
-               nn[j+n]=nn[j];  nn[j]=gr->AddPnt(pp,c,qq,-1,3);\r
+               if(i>0 && i<m-1)\r
+               {\r
+                       u = i*M_PI/(m-1.);      v = 2*M_PI*j/(n-1.)-1;\r
+                       si = sin(u);    co = cos(u);\r
+                       rr = r*a*si*(1.+sh*co)/(1+sh);\r
+                       dr = r*a/(1+sh)*(co*(1.+sh*co) - sh*si*si);\r
+                       x = rr*cos(v);  y = rr*sin(v);\r
+                       z = r*(1+sh)*(co+sh);\r
+                       pp = p + p1*x + p2*y + q*z;\r
+                       qq = (p1*sin(v)-p2*cos(v))^(p1*(dr*cos(v)) + p2*(dr*sin(v)) - q*(r*(1+sh)*si));\r
+                       nn[j+n]=nn[j];  nn[j]=gr->AddPnt(pp,c,qq,-1,3);\r
+               }\r
+               else if(i==0)   nn[j] = n1;\r
+               else if(i==m-1) {       nn[j+n]=nn[j];  nn[j]=n2;       }\r
                if(i*j>0)       gr->quad_plot(nn[j-1], nn[j], nn[j+n-1], nn[j+n]);\r
        }\r
        delete []nn;    gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_drop(HMGL gr, mreal x1, mreal y1, mreal z1, mreal x2, mreal y2, mreal z2, mreal r, const char *stl, mreal sh, mreal a)\r
+void mgl_drop(HMGL gr, double x1, double y1, double z1, double x2, double y2, double z2, double r, const char *stl, double sh, double a)\r
 {\r
        mreal c=gr->AddTexture((stl && stl[0]) ? stl[0]:'r');\r
        mgl_drop(gr,mglPoint(x1,y1,z1), mglPoint(x2,y2,z2), r, c, sh, a);\r
@@ -472,7 +501,7 @@ void mgl_dew_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, cons
 \r
        mreal xm,ym,dx,dy,dd;\r
        long ss = gr->AddTexture(sch);\r
-       bool inv = sch && strchr(sch,'A');\r
+       bool inv = mglchr(sch,'i');\r
        mreal   zVal = gr->Min.z;\r
        long tx=1,ty=1;\r
        if(gr->MeshNum>1)       {       tx=(n-1)/(gr->MeshNum-1);       ty=(m-1)/(gr->MeshNum-1);       }\r
@@ -483,7 +512,7 @@ void mgl_dew_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, cons
                ym = sqrt(ax->v(i,j,k)*ax->v(i,j,k)+ay->v(i,j,k)*ay->v(i,j,k));\r
                xm = xm>ym ? xm : ym;\r
        }\r
-       xm = 1./MGL_EPSILON/(xm==0 ? 1:xm);\r
+       xm = 1./MGL_FEPSILON/(xm==0 ? 1:xm);\r
        mglPoint q;\r
 \r
        for(k=0;k<ax->GetNz();k++)\r
@@ -530,12 +559,12 @@ void mgl_dew_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch, c
 //     Puts series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_puts(HMGL gr, mreal x, mreal y, mreal z,const char *text, const char *font, mreal size)\r
+void mgl_puts(HMGL gr, double x, double y, double z,const char *text, const char *font, double size)\r
 {      mgl_puts_dir(gr, x, y, z, NAN, NAN, 0, text, font, size);       }\r
-void mgl_putsw(HMGL gr, mreal x, mreal y, mreal z,const wchar_t *text, const char *font, mreal size)\r
+void mgl_putsw(HMGL gr, double x, double y, double z,const wchar_t *text, const char *font, double size)\r
 {      mgl_putsw_dir(gr, x, y, z, NAN, NAN, 0, text, font, size);      }\r
 //-----------------------------------------------------------------------------\r
-void mgl_puts_dir(HMGL gr, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, const char *text, const char *font, mreal size)\r
+void mgl_puts_dir(HMGL gr, double x, double y, double z, double dx, double dy, double dz, const char *text, const char *font, double size)\r
 {\r
        long len = strlen(text);\r
        wchar_t *buf = new wchar_t[len+1];\r
@@ -544,9 +573,10 @@ void mgl_puts_dir(HMGL gr, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal
        delete []buf;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_putsw_dir(HMGL gr, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal dz, const wchar_t *text, const char *font, mreal size)\r
+void mgl_putsw_dir(HMGL gr, double x, double y, double z, double dx, double dy, double dz, const wchar_t *text, const char *font, double size)\r
 {\r
-       bool a=font && strchr(font,'a'), A=font && strchr(font,'A');\r
+       bool a=mglchr(font,'a'), A=mglchr(font,'A');\r
+       static int cgid=1;      gr->StartGroup("Puts",cgid++);\r
        mglCanvas *g = dynamic_cast<mglCanvas *>(gr);\r
        if(g && (a||A))\r
        {\r
@@ -556,10 +586,14 @@ void mgl_putsw_dir(HMGL gr, mreal x, mreal y, mreal z, mreal dx, mreal dy, mreal
                x = (2*x-1)*s;  y = (2*y-1)*s;\r
                dx= (2*dx-1)*s; dy= (2*dy-1)*s;\r
        }\r
+       if(mgl_isnan(z))        z=2*gr->Max.z-gr->Min.z;\r
        mglPoint p(x,y,z), d(dx-x,dy-y,dz-z);\r
        long k = gr->AddPnt(p,-1,d,-1,7);\r
+       gr->AddActive(k,0);\r
+       gr->AddActive(gr->AddPnt(mglPoint(dx,dy,dz),-1,d,-1,7),1);\r
        if(g && (a||A)) {       g->Pop();       gr->clr(MGL_DISABLE_SCALE);     }\r
        gr->text_plot(k,text,font,size);\r
+       gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_puts_(uintptr_t *gr, mreal *x, mreal *y, mreal *z,const char *text, const char *font, mreal *size, int l, int n)\r
@@ -581,7 +615,7 @@ void mgl_puts_dir_(uintptr_t *gr, mreal *x, mreal *y, mreal *z, mreal *dx, mreal
 void mgl_textmarkw_xyzr(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT r, const wchar_t *text, const char *fnt, const char *opt)\r
 {\r
        long j,m,mx,my,mz,mr,n=y->GetNx();\r
-       if(mgl_check_dim1(gr,x,y,z,r,"TextMark"))       return;\r
+       if(mgl_check_dim0(gr,x,y,z,r,"TextMark"))       return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("TextMark",cgid++);\r
@@ -618,7 +652,6 @@ void mgl_textmarkw_xyr(HMGL gr, HCDT x, HCDT y, HCDT r, const wchar_t *text, con
 void mgl_textmarkw_yr(HMGL gr, HCDT y, HCDT r, const wchar_t *text, const char *fnt, const char *opt)\r
 {\r
        register long n=y->GetNx();\r
-       if(n<2) {       gr->SetWarn(mglWarnLow,"TextMark");     return; }\r
        gr->SaveState(opt);\r
        mglData x(n);   x.Fill(gr->Min.x,gr->Max.x);\r
        mglData z(n);   z.Fill(gr->Min.z,gr->Min.z);\r
@@ -629,7 +662,6 @@ void mgl_textmarkw_yr(HMGL gr, HCDT y, HCDT r, const wchar_t *text, const char *
 void mgl_textmarkw(HMGL gr, HCDT y, const wchar_t *text, const char *fnt, const char *opt)\r
 {\r
        register long n=y->GetNx();\r
-       if(n<2) {       gr->SetWarn(mglWarnLow,"TextMark");     return; }\r
        gr->SaveState(opt);\r
        mglData r(n);   r.Fill(1,1);\r
        mglData x(n);   x.Fill(gr->Min.x,gr->Max.x);\r
@@ -689,7 +721,7 @@ void mgl_labelw_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const wchar_t *text, const
        long j,m,mx,my,mz,n=y->GetNx();\r
        if(mgl_check_dim1(gr,x,y,z,0,"Label"))  return;\r
 \r
-       mreal size=gr->SaveState(opt);  if(mgl_isnan(size))     size=-0.7;\r
+       gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Label",cgid++);\r
        m = x->GetNy() > y->GetNy() ? x->GetNy() : y->GetNy();  m = z->GetNy() > m ? z->GetNy() : m;\r
 \r
@@ -719,7 +751,7 @@ void mgl_labelw_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, const wchar_t *text, const
                                else if(text[k+1]=='z') mglprintf(buf+l,nn-l,L"%.2g",zz);\r
                                l=wcslen(buf);  k++;\r
                        }\r
-                       gr->text_plot(kk, buf, fnt, size, 0.05);\r
+                       gr->text_plot(kk, buf, fnt, -0.7, 0.05);\r
                }\r
        }\r
        delete []buf;   gr->EndGroup();\r
@@ -776,3 +808,27 @@ void mgl_label_y_(uintptr_t *gr, uintptr_t *y, const char *text, const char *fnt
        char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
        mgl_labelw_y(_GR_, _DA_(y),s,f, o);     delete []o;     delete []s;     delete []f;     }\r
 //-----------------------------------------------------------------------------\r
+//\r
+//     Table series\r
+//\r
+//-----------------------------------------------------------------------------\r
+void mgl_tablew(HMGL gr, double x, double y, HCDT val, const wchar_t *text, const char *fnt, const char *opt)\r
+{\r
+       mglCanvas *g = dynamic_cast<mglCanvas *>(gr);\r
+       if(g)   g->Table(x,y,val,text,fnt,opt);\r
+}\r
+void mgl_table(HMGL gr, double x, double y, HCDT val, const char *text, const char *fnt, const char *opt)\r
+{\r
+       if(!text)       mgl_tablew(gr,x,y,val,L"",fnt,opt);\r
+       else\r
+       {       long s = strlen(text)+1;        wchar_t *wcs = new wchar_t[s];  mbstowcs(wcs,text,s);\r
+               mgl_tablew(gr, x, y, val, wcs, fnt, opt);       delete []wcs;   }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_table_(uintptr_t *gr, mreal *x, mreal *y, uintptr_t *val, const char *text, const char *fnt, const char *opt,int l,int n,int lo)\r
+{      wchar_t *s=new wchar_t[l+1];    mbstowcs(s,text,l);     s[l]=0;\r
+       char *f=new char[n+1];  memcpy(f,fnt,n);        f[n]=0;\r
+       char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
+       mgl_tablew(_GR_, *x, *y, _DA_(val),s,f, o);\r
+       delete []o;     delete []s;     delete []f;     }\r
+//-----------------------------------------------------------------------------\r

diff --git a/src/s_hull/s_hull_pro.cpp b/src/s_hull/s_hull_pro.cpp
index dbe32f3b58711bc986a73c27d862d3eca498dabc..17a5c395c952406415077e7186c786ec2f87648b 100644 (file)
--- a/src/s_hull/s_hull_pro.cpp
+++ b/src/s_hull/s_hull_pro.cpp
@@ -25,6 +25,7 @@ using namespace std;
  */
 
 
+// Global replace int->long by A.Balakin 7 August 2012 -- 64bit version can handle huge data arrays
 
 
 void circle_cent2(float r1,float c1, float r2,float c2, float r3,float c3,
@@ -73,10 +74,10 @@ void circle_cent2(float r1,float c1, float r2,float c2, float r3,float c3,
 
  */
 
-int read_Shx(std::vector<Shx> &pts, char * fname)
+long read_Shx(std::vector<Shx> &pts, char * fname)
 {
        char s0[513];
-       int nump =0;
+       long nump =0;
        float p1,p2;
 
        Shx pt;
@@ -91,10 +92,10 @@ int read_Shx(std::vector<Shx> &pts, char * fname)
        {
 
                getline (myfile,line);
-               //int numc = line.length();
+               //long numc = line.length();
 
                // check string for the string "points"
-               int n = (int) line.find( points_str);
+               long n = (long) line.find( points_str);
                if( n > 0)
                {
                        while ( myfile.good() )
@@ -104,7 +105,7 @@ int read_Shx(std::vector<Shx> &pts, char * fname)
                                {
                                        copy( line.begin(), line.end(), s0);
                                        s0[line.length()] = 0;
-                                       int v = sscanf( s0, "%g %g", &p1,&p2);
+                                       long v = sscanf( s0, "%g %g", &p1,&p2);
                                        if( v>0 )
                                        {
                                                pt.id = nump;
@@ -122,7 +123,7 @@ int read_Shx(std::vector<Shx> &pts, char * fname)
                        {
                                copy( line.begin(), line.end(), s0);
                                s0[line.length()] = 0;
-                               int v = sscanf( s0, "%g %g", &p1,&p2);
+                               long v = sscanf( s0, "%g %g", &p1,&p2);
                                if( v>0 )
                                {
                                        pt.id = nump;
@@ -140,7 +141,7 @@ int read_Shx(std::vector<Shx> &pts, char * fname)
                                {
                                        copy( line.begin(), line.end(), s0);
                                        s0[line.length()] = 0;
-                                       int v = sscanf( s0, "%g %g", &p1,&p2);
+                                       long v = sscanf( s0, "%g %g", &p1,&p2);
                                        if( v>0 )
                                        {
                                                pt.id = nump;
@@ -155,7 +156,7 @@ int read_Shx(std::vector<Shx> &pts, char * fname)
                myfile.close();
        }
 
-       nump = (int) pts.size();
+       nump = (long) pts.size();
 
        return(nump);
 };
@@ -170,10 +171,10 @@ void write_Shx(std::vector<Shx> &pts, char * fname)
 {
        std::ofstream out(fname, ios::out);
 
-       int nr = (int) pts.size();
+       long nr = (long) pts.size();
        out << nr << " 2 points" << endl;
 
-       for (int r = 0; r < nr; r++)
+       for (long r = 0; r < nr; r++)
        {
                out << pts[r].r << ' ' << pts[r].c <<  endl;
        }
@@ -192,10 +193,10 @@ void write_Triads(std::vector<Triad> &ts, char * fname)
 {
        std::ofstream out(fname, ios::out);
 
-       int nr = (int) ts.size();
+       long nr = (long) ts.size();
        out << nr << " 6   point-ids (1,2,3)  adjacent triangle-ids ( limbs ab  ac  bc )" << endl;
 
-       for (int r = 0; r < nr; r++)
+       for (long r = 0; r < nr; r++)
        {
                out << ts[r].a+1 << ' ' << ts[r].b+1 <<' ' << ts[r].c+1 <<' '
                        << ts[r].ab+1 <<' ' << ts[r].ac+1 <<' ' << ts[r].bc+1 << endl; //" " << ts[r].ro <<  endl;
@@ -214,10 +215,10 @@ void write_Triads(std::vector<Triad> &ts, char * fname)
 
  */
 
-int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
+long s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 {
 
-       int nump = (int) pts.size();
+       long nump = (long) pts.size();
 
        if( nump < 3 )
        {
@@ -229,7 +230,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 
        float r = pts[0].r;
        float c = pts[0].c;
-       for( int k=0; k<nump; k++)
+       for( long k=0; k<nump; k++)
        {
                float dr = pts[k].r-r;
                float dc = pts[k].c-c;
@@ -246,10 +247,10 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 
        float r2 = pts[1].r;
        float c2 = pts[1].c;
-       int mid = -1;
+       long mid = -1;
        float romin2 = 100000000.0, ro2, R=0,C=0;       // added by A.Balakin 6 July 2012 -- uninitialised variable
 
-       int k=2;
+       long k=2;
        while (k<nump)
        {
 
@@ -284,7 +285,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
        pts.erase(pts.begin() );
        pts.erase(pts.begin() );
 
-       for( int k=0; k<nump-3; k++)
+       for( long k=0; k<nump-3; k++)
        {
                float dr = pts[k].r-R;
                float dc = pts[k].c-C;
@@ -299,12 +300,12 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
        pts.insert(pts.begin(), pt1);
        pts.insert(pts.begin(), pt0);
 
-       //  int slump [nump];
-//  int * slump  = new int [nump];
-       std::vector<int> slump;
+       //  long slump [nump];
+//  long * slump  = new long [nump];
+       std::vector<long> slump;
        slump.resize(nump);
 
-       for( int k=0; k<nump; k++)
+       for( long k=0; k<nump; k++)
        {
                if( pts[k].id < nump)
                {
@@ -312,8 +313,8 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                }
                else
                {
-                       int mx = pts[k].id+1;
-                       while( (int) slump.size() <= mx)
+                       long mx = pts[k].id+1;
+                       while( (long) slump.size() <= mx)
                        {
                                slump.push_back(0);
                        }
@@ -387,9 +388,9 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 
        float dr, dc, rx,cx;
        Shx  ptx;
-       int numt=0;     // added by A.Balakin 6 July 2012 -- uninitialised variable
+       long numt=0;    // added by A.Balakin 6 July 2012 -- uninitialised variable
 
-       for( int k=3; k<nump; k++)
+       for( long k=3; k<nump; k++)
        {
                rx = pts[k].r;
                cx = pts[k].c;
@@ -397,18 +398,18 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                ptx.c = cx;
                ptx.id = pts[k].id;
 
-               int numh = (int) hull.size()/*, numh_old = numh*/;      // commented by A.Balakin 6 July 2012 -- unused variable
+               long numh = (long) hull.size()/*, numh_old = numh*/;    // commented by A.Balakin 6 July 2012 -- unused variable
                dr = rx- hull[0].r;
                dc = cx- hull[0].c;  // outwards pointing from hull[0] to pt.
 
-               std::vector<int> pidx, tridx;
-               int hidx;  // new hull point location within hull.....
+               std::vector<long> pidx, tridx;
+               long hidx;  // new hull point location within hull.....
 
 
                float df = -dc* hull[0].tr + dr*hull[0].tc;    // visibility test vector.
                if( df < 0 )   // starting with a visible hull facet !!!
                {
-//                     int e1 = 1, e2 = numh;  // commented by A.Balakin 6 July 2012 -- unused variable
+//                     long e1 = 1, e2 = numh; // commented by A.Balakin 6 July 2012 -- unused variable
                        hidx = 0;
 
                        // check to see if segment numh is also visible
@@ -420,7 +421,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                tridx.push_back(hull[numh-1].trid);
 
 
-                               for( int h=0; h<numh-1; h++)
+                               for( long h=0; h<numh-1; h++)
                                {
                                        // if segment h is visible delete h
                                        dr = rx- hull[h].r;
@@ -446,7 +447,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                }
                                // look backwards through the hull structure.
 
-                               for( int h=numh-2; h>0; h--)
+                               for( long h=numh-2; h>0; h--)
                                {
                                        // if segment h is visible delete h + 1
                                        dr = rx- hull[h].r;
@@ -463,7 +464,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                        else
                                        {
 
-                                               h = (int) hull.size()-1;
+                                               h = (long) hull.size()-1;
                                                hull[h].tr = -hull[h].r + ptx.r;   // points at start of chain.
                                                hull[h].tc = -hull[h].c + ptx.c;
                                                break;
@@ -480,7 +481,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                tridx.push_back(hull[0].trid);
                                pidx.push_back(hull[0].id);
 
-                               for( int h=1; h<numh; h++)
+                               for( long h=1; h<numh; h++)
                                {
                                        // if segment h is visible delete h
                                        dr = rx- hull[h].r;
@@ -513,8 +514,8 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                }
                else
                {
-                       int e1 = -1,  e2 = numh;
-                       for( int h=1; h<numh; h++)
+                       long e1 = -1,  e2 = numh;
+                       for( long h=1; h<numh; h++)
                        {
                                dr = rx- hull[h].r;
                                dc = cx- hull[h].c;
@@ -538,7 +539,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                        // triangle pidx starts at e1 and ends at e2 (inclusive).
                        if( e2 < numh )
                        {
-                               for( int e=e1; e<=e2; e++)
+                               for( long e=e1; e<=e2; e++)
                                {
                                        pidx.push_back(hull[e].id);
                                        tridx.push_back(hull[e].trid);
@@ -546,7 +547,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                        }
                        else
                        {
-                               for( int e=e1; e<e2; e++)
+                               for( long e=e1; e<e2; e++)
                                {
                                        pidx.push_back(hull[e].id);
                                        tridx.push_back(hull[e].trid);   // there are only n-1 triangles from n hull pts.
@@ -583,13 +584,13 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                }
 
 
-               int a = ptx.id, T0;
+               long a = ptx.id, T0;
                Triad trx( a, 0,0);
                r1 = pts[slump[a]].r;
                c1 = pts[slump[a]].c;
 
-               int npx = (int) pidx.size()-1;
-               numt = (int) triads.size();
+               long npx = (long) pidx.size()-1;
+               numt = (long) triads.size();
                T0 = numt;
 
                if( npx == 1)
@@ -622,7 +623,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                hull[hidx-1].trid = numt;
                        else
                        {
-                               numh = (int) hull.size();
+                               numh = (long) hull.size();
                                hull[numh-1].trid = numt;
                        }
                        triads.push_back( trx );
@@ -632,7 +633,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                else
                {
                        trx.ab = -1;
-                       for(int p=0; p<npx; p++)
+                       for(long p=0; p<npx; p++)
                        {
                                trx.b = pidx[p];
                                trx.c = pidx[p+1];
@@ -668,7 +669,7 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
                                hull[hidx-1].trid = T0;
                        else
                        {
-                               numh = (int) hull.size();
+                               numh = (long) hull.size();
                                hull[numh-1].trid = T0;
                        }
 
@@ -682,9 +683,9 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 
        //  write_Triads(triads, "tris0.mat");
 
-       std::set<int> ids, ids2;
+       std::set<long> ids, ids2;
 
-       int tf = T_flip_pro( pts, triads, slump, numt, 0, ids);
+       long tf = T_flip_pro( pts, triads, slump, numt, 0, ids);
        if( tf < 0 )
        {
 // Commented by A.Balakin 2 July 2012 -- library shouldn't print anything
@@ -694,12 +695,12 @@ int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads)
 
        //  write_Triads(triads, "tris1.mat");
 
-       int nits = (int) ids.size(), nit=1;
+       long nits = (long) ids.size(), nit=1;
        while(  nits > 0 && nit < 50)
        {
 
                tf = T_flip_pro_idx( pts, triads, slump, ids);
-               nits = (int) ids.size();
+               nits = (long) ids.size();
                nit ++;
                if( tf < 0 )
                {
@@ -755,14 +756,15 @@ void circle_cent4(float r1,float c1, float r2,float c2, float r3,float c3,
    erase duplicate points, do not change point ids.
 
 */
+// Change return type to size_t to be 64 bit compatible -- by A.Balakin 7 August 2012
 
-int de_duplicate( std::vector<Shx> &pts, std::vector<int> &outx )
+size_t de_duplicate( std::vector<Shx> &pts, std::vector<size_t> &outx )
 {
 
-       int nump = (int) pts.size();
+       size_t nump = pts.size();
        std::vector<Dupex> dpx;
        Dupex d;
-       for( int k=0; k<nump; k++)
+       for( size_t k=0; k<nump; k++)
        {
                d.r = pts[k].r;
                d.c = pts[k].c;
@@ -772,7 +774,7 @@ int de_duplicate( std::vector<Shx> &pts, std::vector<int> &outx )
 
        sort(dpx.begin(), dpx.end());
 
-       for( int k=0; k<nump-1; k++)
+       for( size_t k=0; k<nump-1; k++)
        {
                if( dpx[k].r == dpx[k+1].r && dpx[k].c == dpx[k+1].c )
                {
@@ -787,10 +789,10 @@ int de_duplicate( std::vector<Shx> &pts, std::vector<int> &outx )
 
        sort(outx.begin(), outx.end());
 
-       int nx = (int) outx.size();
-       for( int k=nx-1; k>=0; k--)
+       size_t nx = outx.size();
+       for( size_t k=nx; k>0; k--)
        {
-               pts.erase(pts.begin()+outx[k]);
+               pts.erase(pts.begin()+outx[k-1]);
        }
 
        return(nx);
@@ -809,22 +811,22 @@ int de_duplicate( std::vector<Shx> &pts, std::vector<int> &outx )
  */
 
 
-int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<int> &slump, int numt, int start, std::set<int> &ids)
+long T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<long> &slump, long numt, long start, std::set<long> &ids)
 {
 
        float r3,c3;
-       int pa,pb,pc, pd, D, L1, L2, L3, L4, T2;
+       long pa,pb,pc, pd, D, L1, L2, L3, L4, T2;
 
        Triad tx, tx2;
 
 
-       for( int t=start; t<numt; t++)
+       for( long t=start; t<numt; t++)
        {
 
                Triad &tri = triads[t];
                // test all 3 neighbours of tri
 
-               int flipped = 0;
+               long flipped = 0;
 
                if( tri.bc >= 0 )
                {
@@ -894,7 +896,7 @@ int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<i
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pa].r, pts[pa].c, pts[pb].r, pts[pb].c,
+                       long XX = Cline_Renka_test( pts[pa].r, pts[pa].c, pts[pb].r, pts[pb].c,
                                                                           pts[pc].r, pts[pc].c, r3, c3 );
 
                        if( XX < 0 )
@@ -1020,7 +1022,7 @@ int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<i
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pc].r, pts[pc].c, pts[pb].r, pts[pb].c,
+                       long XX = Cline_Renka_test( pts[pc].r, pts[pc].c, pts[pb].r, pts[pb].c,
                                                                           pts[pa].r, pts[pa].c,r3, c3);
 
                        if( XX < 0)
@@ -1149,7 +1151,7 @@ int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<i
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pb].r, pts[pb].c, pts[pa].r, pts[pa].c,
+                       long XX = Cline_Renka_test( pts[pb].r, pts[pb].c, pts[pa].r, pts[pa].c,
                                                                           pts[pc].r, pts[pc].c,r3, c3);
 
                        if( XX < 0 )
@@ -1224,7 +1226,7 @@ int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<i
 
  */
 
-int Cline_Renka_test(float &Ax, float &Ay,
+long Cline_Renka_test(float &Ax, float &Ay,
                                         float &Bx, float &By,
                                         float &Cx, float &Cy,
                                         float &Dx, float &Dy)
@@ -1261,26 +1263,26 @@ int Cline_Renka_test(float &Ax, float &Ay,
 // same again but with set of triangle ids to be iterated over.
 
 
-int T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<int> &slump, std::set<int> &ids)
+long T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<long> &slump, std::set<long> &ids)
 {
 
        float  r3,c3;
-       int pa,pb,pc, pd,  D, L1, L2, L3, L4, T2;
+       long pa,pb,pc, pd,  D, L1, L2, L3, L4, T2;
 
        Triad tx, tx2;
-       std::set<int> ids2;
+       std::set<long> ids2;
        ids2.clear();
 
-       std::set<int> :: const_iterator x=ids.begin();
+       std::set<long> :: const_iterator x=ids.begin();
        while(x != ids.end() )
        {
-               int t = *x;
+               long t = *x;
                x++;
 
 
                Triad &tri = triads[t];
                // test all 3 neighbours of tri
-               int flipped = 0;
+               long flipped = 0;
 
 
 
@@ -1352,7 +1354,7 @@ int T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vect
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pa].r, pts[pa].c, pts[pb].r, pts[pb].c,
+                       long XX = Cline_Renka_test( pts[pa].r, pts[pa].c, pts[pb].r, pts[pb].c,
                                                                           pts[pc].r, pts[pc].c,r3, c3);
 
                        if( XX < 0 )
@@ -1479,7 +1481,7 @@ int T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vect
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pc].r, pts[pc].c, pts[pb].r, pts[pb].c,
+                       long XX = Cline_Renka_test( pts[pc].r, pts[pc].c, pts[pb].r, pts[pb].c,
                                                                           pts[pa].r, pts[pa].c,r3, c3);
 
                        if( XX < 0 )
@@ -1605,7 +1607,7 @@ int T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vect
                        r3 = pts[pd].r;
                        c3 = pts[pd].c;
 
-                       int XX = Cline_Renka_test( pts[pb].r, pts[pb].c, pts[pc].r, pts[pc].c,
+                       long XX = Cline_Renka_test( pts[pb].r, pts[pb].c, pts[pc].r, pts[pc].c,
                                                                           pts[pa].r, pts[pa].c,r3, c3);
 
                        if( XX < 0 )

diff --git a/src/s_hull/s_hull_pro.h b/src/s_hull/s_hull_pro.h
index 68fee004244bd3ad39ec2a6cfc58cdf2fc97fc72..7d4979aebb07dea2bf8300a1b0acfcd34e0d6c16 100644 (file)
--- a/src/s_hull/s_hull_pro.h
+++ b/src/s_hull/s_hull_pro.h
@@ -24,16 +24,18 @@ email david@s-hull.org
 
 */
 
+// Global replace int->long by A.Balakin 7 August 2012 -- 64bit version can handle huge data arrays
+
 struct Triad
 {
-       int a,b, c;
-       int ab, bc, ac;  // adjacent edges index to neighbouring triangle.
+       long a,b, c;
+       long ab, bc, ac;  // adjacent edges index to neighbouring triangle.
        float ro, R,C;
-       //std::set<int> idx;
-       Triad() {a=b=c=ab=bc=ac=0;      ro=R=C=0;};     // added by A.Balakin 6 July 2012 -- uninitialised variable
-       Triad(int x, int y) : a(x), b(y),c(0), ab(-1), bc(-1), ac(-1), ro(-1), R(0), C(0) {};
-       Triad(int x, int y, int z) : a(x), b(y), c(z),  ab(-1), bc(-1), ac(-1), ro(-1), R(0), C(0) {};
-       Triad(const Triad &p) : a(p.a), b(p.b), c(p.c), ab(p.ab), bc(p.bc), ac(p.ac), ro(p.ro), R(p.R), C(p.C) {};
+       //std::set<long> idx;
+       Triad() {a=b=c=ab=bc=ac=0;      ro=R=C=0;}      // added by A.Balakin 6 July 2012 -- uninitialised variable
+       Triad(long x, long y) : a(x), b(y),c(0), ab(-1), bc(-1), ac(-1), ro(-1), R(0), C(0) {}
+       Triad(long x, long y, long z) : a(x), b(y), c(z),  ab(-1), bc(-1), ac(-1), ro(-1), R(0), C(0) {}
+       Triad(const Triad &p) : a(p.a), b(p.b), c(p.c), ab(p.ab), bc(p.bc), ac(p.ac), ro(p.ro), R(p.R), C(p.C) {}
 
        Triad &operator=(const Triad &p)
        {
@@ -50,7 +52,7 @@ struct Triad
                C = p.C;
 
                return *this;
-       };
+       }
 };
 
 
@@ -62,15 +64,15 @@ struct Triad
 
 struct Shx
 {
-       int id, trid;
+       long id, trid;
        float r,c, tr,tc ;
        float ro;
-       Shx() {r=c=tr=tc=ro=0;  id=trid=0;};    // added by A.Balakin 6 July 2012 -- uninitialised variable
-       Shx(float a, float b) : r(a), c(b), tr(0.0), tc(0.0), ro(0.0), id(-1)
-       {       trid=0; };              // added by A.Balakin 6 July 2012 -- uninitialised variable
-       Shx(float a, float b, float x) : r(a), c(b), ro(x), tr(0), tc(0), id(-1)
-       {       trid=0; };      // added by A.Balakin 6 July 2012 -- uninitialised variable
-       Shx(const Shx &p) : id(p.id), trid(p.trid), r(p.r), c(p.c), tr(p.tr), tc(p.tc), ro(p.ro) {};
+       Shx() {r=c=tr=tc=ro=0;  id=trid=0;}     // added by A.Balakin 6 July 2012 -- uninitialised variable
+       Shx(float a, float b) : id(-1), r(a), c(b), tr(0.0), tc(0.0), ro(0.0)
+       {       trid=0; }               // added by A.Balakin 6 July 2012 -- uninitialised variable
+       Shx(float a, float b, float x) : id(-1), r(a), c(b), tr(0), tc(0), ro(x)
+       {       trid=0; }       // added by A.Balakin 6 July 2012 -- uninitialised variable
+       Shx(const Shx &p) : id(p.id), trid(p.trid), r(p.r), c(p.c), tr(p.tr), tc(p.tc), ro(p.ro) {}
 
        Shx &operator=(const Shx &p)
        {
@@ -82,7 +84,7 @@ struct Shx
                tc = p.tc;
                ro = p.ro;
                return *this;
-       };
+       }
 
 };
 
@@ -93,18 +95,18 @@ inline bool operator<(const Shx &a, const Shx &b)
        if( a.ro == b.ro)
                return a.r < b.r;
        return a.ro <  b.ro;
-};
+}
 
 
 struct Dupex
 {
-       int id;
+       long id;
        float r,c;
 
-       Dupex() {};
-       Dupex(float a, float b) : id(-1), r(a), c(b) {};
-       Dupex(float a, float b, int x) : r(a), c(b), id(x) {};
-       Dupex(const Dupex &p) : id(p.id),  r(p.r), c(p.c) {};
+       Dupex() {}
+       Dupex(float a, float b) : id(-1), r(a), c(b) {}
+       Dupex(float a, float b, long x) : id(x), r(a), c(b) {}
+       Dupex(const Dupex &p) : id(p.id),  r(p.r), c(p.c) {}
 
        Dupex &operator=(const Dupex &p)
        {
@@ -112,7 +114,7 @@ struct Dupex
                r = p.r;
                c = p.c;
                return *this;
-       };
+       }
 };
 
 
@@ -123,7 +125,7 @@ inline bool operator<(const Dupex &a, const Dupex &b)
        if( a.r == b.r)
                return a.c < b.c;
        return a.r <  b.r;
-};
+}
 
 
 
@@ -132,18 +134,18 @@ inline bool operator<(const Dupex &a, const Dupex &b)
 // from s_hull.C
 
 
-int s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads);
+long s_hull_pro( std::vector<Shx> &pts, std::vector<Triad> &triads);
 void circle_cent2(float r1,float c1, float r2,float c2, float r3,float c3,float &r,float &c, float &ro2);
 void circle_cent4(float r1,float c1, float r2,float c2, float r3,float c3,float &r,float &c, float &ro2);
 void write_Shx(std::vector<Shx> &pts, char * fname);
 void write_Triads(std::vector<Triad> &ts, char * fname);
-int Cline_Renka_test(float &Ax, float &Ay, float &Bx, float &By, float &Cx, float &Cy, float &Dx, float &Dy);
-int T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<int> &slump, int numt, int start, std::set<int> &ids);
-int T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<int> &slump, std::set<int> &ids);
+long Cline_Renka_test(float &Ax, float &Ay, float &Bx, float &By, float &Cx, float &Cy, float &Dx, float &Dy);
+long T_flip_pro( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<long> &slump, long numt, long start, std::set<long> &ids);
+long T_flip_pro_idx( std::vector<Shx> &pts, std::vector<Triad> &triads, std::vector<long> &slump, std::set<long> &ids);
 
-int read_Shx(std::vector<Shx> &pts, char * fname);
+long read_Shx(std::vector<Shx> &pts, char * fname);
 
 
-int de_duplicate( std::vector<Shx> &pts,  std::vector<int> &outx );
+size_t de_duplicate( std::vector<Shx> &pts,  std::vector<size_t> &outx );
 
 #endif

diff --git a/src/surf.cpp b/src/surf.cpp
index 37ce3850fb9ad47314f9ac2834c314df25058c77..2311ae4af85ccedd9f7ad77e7c16331c4e42bd4b 100644 (file)
--- a/src/surf.cpp
+++ b/src/surf.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * surf.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -25,18 +25,39 @@
 void mgl_mesh_plot(mglBase *gr, long *pos, long n, long m, int how)\r
 {\r
        int d = gr->MeshNum>0 ? gr->MeshNum+1 : n*m, dx = n>d?n/d:1, dy = m>d?m/d:1;\r
-       register long i,j;\r
-       if(how&1)       for(j=0;j<m;j+=dy)      for(i=0;i<n-1;i++)\r
-               gr->line_plot(pos[n*j+i],pos[n*j+i+1]);\r
-       if(how&2)       for(j=0;j<m-1;j++)      for(i=0;i<n;i+=dx)\r
-               gr->line_plot(pos[n*j+i],pos[n*j+i+n]);\r
+       register long i,j,s;\r
+       // NOTE: number of lines in each direction can be reduced too\r
+       if(how&1)       for(j=0;j<m;j+=dy)\r
+       {\r
+               for(s=i=0;i<n-1;i++)    if(pos[n*j+i]>=0 && pos[n*j+i+1]>=0)    s++;\r
+               d = gr->FaceNum>0 ? gr->FaceNum+1 : n;  s = s>d?s/d:1;\r
+               for(i=0;i<n-s;i+=s)\r
+                       gr->line_plot(pos[n*j+i],pos[n*j+i+s]);\r
+\r
+       }\r
+       if(how&2)       for(i=0;i<n;i+=dx)\r
+       {\r
+               for(s=j=0;j<m-1;j++)    if(pos[n*j+i]>=0 && pos[n*j+i+n]>=0)    s++;\r
+               d = gr->FaceNum>0 ? gr->FaceNum+1 : n;  s = s>d?s/d:1;\r
+               for(j=0;j<m-s;j+=s)\r
+                       gr->line_plot(pos[n*j+i],pos[n*j+i+s*n]);\r
+       }\r
 }\r
 //-----------------------------------------------------------------------------\r
 void mgl_surf_plot(mglBase *gr, long *pos, long n, long m)\r
 {\r
-       register long i,j;\r
+       register long i,j,s=0;\r
        for(j=0;j<m-1;j++)      for(i=0;i<n-1;i++)\r
-               gr->quad_plot(pos[n*j+i],pos[n*j+i+1],pos[n*j+i+n],pos[n*j+i+n+1]);\r
+               if(pos[n*j+i]>=0 && pos[n*j+i+1]>=0 && pos[n*j+i+n]>=0 && pos[n*j+i+n+1]>=0)\r
+                       s++;\r
+       long dx=1,dy=1;\r
+       if(gr->FaceNum && s>gr->FaceNum*gr->FaceNum)\r
+       {\r
+               int d = gr->FaceNum+1,ns=n*s/((n-1)*(m-1)),ms=m*s/((n-1)*(m-1));\r
+               dx = ns>d?ns/d:1;               dy = ms>d?ms/d:1;\r
+       }\r
+       for(j=0;j<m-dy;j+=dy)   for(i=0;i<n-dx;i+=dx)\r
+               gr->quad_plot(pos[n*j+i],pos[n*j+i+dx],pos[n*j+i+n*dy],pos[n*j+i+n*dy+dx]);\r
 }\r
 //-----------------------------------------------------------------------------\r
 //\r
@@ -44,7 +65,7 @@ void mgl_surf_plot(mglBase *gr, long *pos, long n, long m)
 //\r
 //-----------------------------------------------------------------------------\r
 void mgl_fsurf(HMGL gr, const char *eqZ, const char *sch, const char *opt)\r
-{      // TODO: Add strong function variation analisys ???\r
+{      // TODO: Add strong function variation analysis ???\r
        if(eqZ==0 || eqZ[0]==0) return;         // nothing to plot\r
        mreal r = gr->SaveState(opt);\r
        long n = (mgl_isnan(r) || r<=0) ? 100:long(r+0.5);\r
@@ -180,7 +201,7 @@ void mgl_fall_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
                        p = mglPoint(GetX(x,i,j,k).x, GetY(y,i,j,k).x, z->v(i,j,k));\r
                        c = gr->GetC(ss,p.z);   pos[i+n*j] = gr->AddPnt(p,c);\r
                }\r
-               mgl_mesh_plot(gr,pos,n,m, (sch && strchr(sch,'x')) ? 2:1);\r
+               mgl_mesh_plot(gr,pos,n,m, (mglchr(sch,'x')) ? 2:1);\r
        }\r
        delete []pos;   gr->EndGroup();\r
 }\r
@@ -269,7 +290,7 @@ void mgl_surf_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
        static int cgid=1;      gr->StartGroup("Surf",cgid++);\r
        long ss = gr->AddTexture(sch);\r
        long *pos = new long[n*m];\r
-       bool wire = (sch && strchr(sch,'#'));\r
+       bool wire = (mglchr(sch,'#'));\r
        gr->Reserve(n*m*z->GetNz()*(wire?2:1));\r
 \r
        mglPoint p,q,s,xx,yy;\r
@@ -286,7 +307,8 @@ void mgl_surf_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
                        c = gr->GetC(ss,p.z);\r
                        pos[i+n*j] = gr->AddPnt(p,c,q^s);\r
                }\r
-               mgl_surf_plot(gr,pos,n,m);\r
+               if(sch && mglchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.');\r
+               else    mgl_surf_plot(gr,pos,n,m);\r
                if(wire)\r
                {\r
                        gr->SetPenPal("k-");\r
@@ -331,7 +353,7 @@ void mgl_belt_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
        long ss = gr->AddTexture(sch);\r
        long *pos = new long[2*(n>m?n:m)];\r
        gr->Reserve(2*n*m*z->GetNz());\r
-       bool how = !(sch && strchr(sch,'x'));\r
+       bool how = !mglchr(sch,'x');\r
 \r
        mglPoint p1,p2,q,s,xx,yy;\r
        mreal c;\r
@@ -424,8 +446,9 @@ void mgl_dens_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
                        if(mgl_isnan(zz))       p.x = NAN;\r
                        pos[i+n*j] = gr->AddPnt(p,c,s);\r
                }\r
-               mgl_surf_plot(gr,pos,n,m);\r
-               if(sch && strchr(sch,'#'))\r
+               if(sch && mglchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.');\r
+               else    mgl_surf_plot(gr,pos,n,m);\r
+               if(mglchr(sch,'#'))\r
                {\r
                        gr->Reserve(n*m);       gr->SetPenPal("k-");\r
                        for(i=0;i<n*m;i++)\r
@@ -505,8 +528,9 @@ void mgl_surfc_xy(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, cons
                        col = gr->GetC(ss,c->v(i,j,k));\r
                        pos[i+n*j] = gr->AddPnt(p,col,q^s);\r
                }\r
-               mgl_surf_plot(gr,pos,n,m);\r
-               if(sch && strchr(sch,'#'))\r
+               if(sch && mglchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.');\r
+               else    mgl_surf_plot(gr,pos,n,m);\r
+               if(mglchr(sch,'#'))\r
                {\r
                        gr->Reserve(n*m);       gr->SetPenPal("k-");\r
                        for(i=0;i<n*m;i++)      pos[i] = gr->CopyNtoC(pos[i],gr->CDef);\r
@@ -564,8 +588,9 @@ void mgl_surfa_xy(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT c, const char *sch, cons
                        s = mglPoint(xx.z, yy.z, z->dvy(i,j,k));\r
                        pos[i+n*j] = gr->AddPnt(p,gr->GetC(ss,vv),q^s,gr->GetA(c->v(i,j,k)));\r
                }\r
-               mgl_surf_plot(gr,pos,n,m);\r
-               if(sch && strchr(sch,'#'))\r
+               if(sch && mglchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.');\r
+               else    mgl_surf_plot(gr,pos,n,m);\r
+               if(mglchr(sch,'#'))\r
                {\r
                        gr->Reserve(n*m);       gr->SetPenPal("k-");\r
                        for(i=0;i<n*m;i++)      pos[i] = gr->CopyNtoC(pos[i],gr->CDef);\r
@@ -609,8 +634,8 @@ void mgl_boxs_xy(HMGL gr, HCDT x, HCDT y, HCDT z, const char *sch, const char *o
        static int cgid=1;      gr->StartGroup("Boxs",cgid++);\r
 \r
        long ss = gr->AddTexture(sch);\r
-       bool wire = sch && strchr(sch,'#');\r
-       bool full = sch && strchr(sch,'@');\r
+       bool wire = mglchr(sch,'#');\r
+       bool full = mglchr(sch,'@');\r
        gr->Reserve(8*n*m*z->GetNz());\r
 \r
        mglPoint p1,p2,p3,p4,q,s,t(wire||full?NAN:0,0,1),xx,yy;\r
@@ -871,11 +896,11 @@ void mgl_map_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, cons
                        xx = (x->v(i) - gr->Min.x)/(gr->Max.x - gr->Min.x);\r
                        yy = (y->v(j) - gr->Min.y)/(gr->Max.y - gr->Min.y);\r
                }\r
-               if(xx<0)        xx=0;   if(xx>=1)       xx=1/MGL_EPSILON;\r
-               if(yy<0)        yy=0;   if(yy>=1)       yy=1/MGL_EPSILON;\r
+               if(xx<0)        xx=0;   if(xx>=1)       xx=1/MGL_FEPSILON;\r
+               if(yy<0)        yy=0;   if(yy>=1)       yy=1/MGL_FEPSILON;\r
                pos[i+n*j] = gr->AddPnt(p,gr->GetC(ss,xx,false),t,yy);\r
        }\r
-       if(sch && strchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.',-1);\r
+       if(sch && mglchr(sch,'.'))      for(i=0;i<n*m;i++)      gr->mark_plot(pos[i],'.');\r
        else    mgl_surf_plot(gr,pos,n,m);\r
        delete []pos;   gr->EndGroup();\r
 }\r

diff --git a/src/tex_table.cpp b/src/tex_table.cpp
index 03c65606e7110fce95b04fd208143277a368f776..9a1953c0c284418415408c72c7f28430797ed350 100644 (file)
--- a/src/tex_table.cpp
+++ b/src/tex_table.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mgl_tex_table.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *

diff --git a/src/vect.cpp b/src/vect.cpp
index a9e60108381ebc46762a070945adaa93248d3e66..b7d375b78360c2565fe93825a9bde7909b4e0200 100644 (file)
--- a/src/vect.cpp
+++ b/src/vect.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * vect.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -102,16 +102,16 @@ void mgl_traj_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uint
 //-----------------------------------------------------------------------------\r
 void mgl_vect_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt)\r
 {\r
-       long i,j,n=ax->GetNx(),m=ax->GetNy(),k;\r
+       long i,j,n=ax->GetNx(),m=ax->GetNy(),l=ax->GetNz(),k;\r
        if(mgl_check_dim2(gr,x,y,ax,ay,"Vect")) return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Vect",cgid++);\r
-       bool dot = sch && strchr(sch,'.');\r
-       bool fix = sch && strchr(sch,'f');\r
-       bool end = sch && strchr(sch,'>');\r
-       bool beg = sch && strchr(sch,'<');\r
-       bool grd = sch && strchr(sch,'=');\r
+       bool dot = sch && mglchr(sch,'.');\r
+       bool fix = mglchr(sch,'f');\r
+       bool end = mglchr(sch,'>');\r
+       bool beg = mglchr(sch,'<');\r
+       bool grd = mglchr(sch,'=');\r
 \r
        long ss = gr->AddTexture(sch);\r
        gr->Reserve(4*n*m);\r
@@ -120,37 +120,43 @@ void mgl_vect_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, con
        long tx=1,ty=1;\r
        if(gr->MeshNum>1)       {       tx=(n-1)/(gr->MeshNum-1);       ty=(m-1)/(gr->MeshNum-1);       }\r
        if(tx<1)        tx=1;   if(ty<1)        ty=1;\r
-       mreal xm=0,ym,dx,dy;\r
-       mreal dd,dm=(fabs(gr->Max.c)+fabs(gr->Min.c))*1e-5;\r
-       mreal vx,vy;\r
 \r
-       for(k=0;k<ax->GetNz();k++)      for(j=0;j<m;j++)        for(i=0;i<n;i++)\r
+       mreal xm=0,cm=0,ca=0;\r
+       mreal dd,dm=(fabs(gr->Max.c)+fabs(gr->Min.c))*1e-5;\r
+       // use whole array for determining maximal vectors length\r
+       mglPoint p1,p2, v, d;\r
+       mreal c1,c2,xx;\r
+       \r
+       for(k=0;k<l;k++)        for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
        {\r
-               vx = ax->v(i,j,k);      vy = ay->v(i,j,k);\r
-               ym = vx*vx+vy*vy;       xm = xm>ym ? xm : ym;\r
+               d = mglPoint(GetX(x,i,j,k).x, GetY(y,i,j,k).x);\r
+               v = mglPoint(ax->v(i,j,k),ay->v(i,j,k));\r
+               c1 = v.norm();  xm = xm<c1 ? c1:xm;     // handle NAN values\r
+               p1 = i<n-1 ? mglPoint(GetX(x,i+tx,j,k).x, GetY(y,i+tx,j,k).x)-d : d-mglPoint(GetX(x,i-tx,j,k).x, GetY(y,i-tx,j,k).x);\r
+               c1 = fabs(v*p1);        xx = p1.norm(); c1 *= xx?1/(xx*xx):0;\r
+               p1 = j<m-1 ? mglPoint(GetX(x,i,j+ty,k).x, GetY(y,i,j+ty,k).x)-d : d-mglPoint(GetX(x,i,j-ty,k).x, GetY(y,i,j-ty,k).x);\r
+               c2 = fabs(v*p1);        xx = p1.norm(); c2 *= xx?1/(xx*xx):0;\r
+               c1 = c1<c2 ? c2:c1;     ca+=c1; cm = cm<c1 ? c1:cm;\r
        }\r
-       xm = 1./(xm==0 ? 1:sqrt(xm));\r
-       long n1,n2;\r
-       mglPoint p1,p2;\r
-       mreal c1,c2, xx,yy;\r
+       ca /= (n*m*l)/(tx*ty);\r
+       //      if(cm>2*ca)     cm = 2*ca;      // disable too narrow grid steps\r
+       xm = xm?1./xm:0;        cm = cm?1./cm:0;\r
 \r
-       for(k=0;k<ax->GetNz();k++)\r
+\r
+       long n1,n2;\r
+       for(k=0;k<l;k++)\r
        {\r
                if(ax->GetNz()>1)       zVal = gr->Min.z+(gr->Max.z-gr->Min.z)*mreal(k)/(ax->GetNz()-1);\r
                for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
                {\r
                        if(gr->Stop)    return;\r
-                       xx = GetX(x,i,j,k).x;   yy = GetY(y,i,j,k).x;\r
-                       dx = i<n-1 ? (GetX(x,i+1,j,k).x-xx) : (xx-GetX(x,i-1,j,k).x);\r
-                       dy = j<m-1 ? (GetY(y,i,j+1,k).x-yy) : (yy-GetY(y,i,j-1,k).x);\r
-                       vx = ax->v(i,j,k);      vy = ay->v(i,j,k);\r
-                       dx *= tx;       dy *= ty;       dd = hypot(vx,vy);\r
-                       dx *= fix ? (dd>dm ? vx/dd : 0) : vx*xm;\r
-                       dy *= fix ? (dd>dm ? vy/dd : 0) : vy*xm;\r
-\r
-                       if(end)                 {       p1 = mglPoint(xx-dx,yy-dy,zVal);        p2 = mglPoint(xx,yy,zVal);      }\r
-                       else if(beg)    {       p1 = mglPoint(xx,yy,zVal);      p2 = mglPoint(xx+dx,yy+dy,zVal);        }\r
-                       else    {       p1=mglPoint(xx-dx/2,yy-dy/2,zVal);      p2=mglPoint(xx+dx/2,yy+dy/2,zVal);      }\r
+                       d = mglPoint(GetX(x,i,j,k).x, GetY(y,i,j,k).x, zVal);\r
+                       v = mglPoint(ax->v(i,j,k),ay->v(i,j,k));\r
+                       dd = v.norm();  v *= cm*(fix?(dd>dm ? 1./dd : 0) : xm);\r
+                       \r
+                       if(end)         {       p1 = d-v;       p2 = d; }\r
+                       else if(beg)    {       p1 = d; p2 = d+v;       }\r
+                       else            {       p1=d-v/2.;      p2=d+v/2.;      }\r
                        if(grd) {       c1=gr->GetC(ss,dd*xm-0.5,false);        c2=gr->GetC(ss,dd*xm,false);}\r
                        else    c1 = c2 = gr->GetC(ss,dd*xm,false);\r
                        n1=gr->AddPnt(p1,c1);   n2=gr->AddPnt(p2,c2);\r
@@ -192,52 +198,58 @@ void mgl_vect_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch,
 void mgl_vect_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt)\r
 {\r
        register long i,j,n=ax->GetNx(),m=ax->GetNy(),l=ax->GetNz(),k;\r
-       if(mgl_check_vec3(gr,x,y,z,ax,ay,az,"Vect3"))   return;\r
+       if(mgl_check_vec3(gr,x,y,z,ax,ay,az,"Vect_3d")) return;\r
 \r
        gr->SaveState(opt);\r
-       static int cgid=1;      gr->StartGroup("Vect3",cgid++);\r
-       bool dot = sch && strchr(sch,'.');\r
-       bool fix = sch && strchr(sch,'f');\r
-       bool end = sch && strchr(sch,'>');\r
-       bool beg = sch && strchr(sch,'<');\r
-       bool grd = sch && strchr(sch,'=');\r
+       static int cgid=1;      gr->StartGroup("Vect_3d",cgid++);\r
+       bool dot = mglchr(sch,'.');\r
+       bool fix = mglchr(sch,'f');\r
+       bool end = mglchr(sch,'>');\r
+       bool beg = mglchr(sch,'<');\r
+       bool grd = mglchr(sch,'=');\r
 \r
-       mreal xm=0,ym,dx,dy,dz,dd,dm=(fabs(gr->Max.c)+fabs(gr->Min.c))*1e-5;\r
        long ss = gr->AddTexture(sch);\r
        gr->Reserve(2*n*m*l);\r
        long tx=1,ty=1,tz=1;\r
        if(gr->MeshNum>1)\r
        {       tx=(n-1)/(gr->MeshNum-1);       ty=(m-1)/(gr->MeshNum-1);       tz=(l-1)/(gr->MeshNum-1);}\r
        if(tx<1)        tx=1;   if(ty<1)        ty=1;   if(tz<1)        tz=1;\r
-       mglPoint p;\r
 \r
-       for(k=0;k<l;k++)        for(j=0;j<m;j++)        for(i=0;i<n;i++)\r
+       mreal xm=0,cm=0,ca=0;\r
+       mreal dd,dm=(fabs(gr->Max.c)+fabs(gr->Min.c))*1e-5;\r
+       // use whole array for determining maximal vectors length\r
+       mglPoint p1,p2,p3, v, d;\r
+       mreal c1,c2,c3,xx;\r
+       \r
+       for(k=0;k<l;k+=tz)      for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
        {\r
-               p = mglPoint(ax->v(i,j,k),ay->v(i,j,k),az->v(i,j,k));\r
-               ym = p.x*p.x+p.y*p.y+p.z*p.z;   xm = xm>ym ? xm : ym;\r
+               d = mglPoint(GetX(x,i,j,k).x, GetY(y,i,j,k).x, GetZ(z,i,j,k).x);\r
+               v = mglPoint(ax->v(i,j,k),ay->v(i,j,k),az->v(i,j,k));\r
+               c1 = v.norm();  xm = xm<c1 ? c1:xm;     // handle NAN values\r
+               p1 = i<n-1 ? mglPoint(GetX(x,i+tx,j,k).x, GetY(y,i+tx,j,k).x, GetZ(z,i+tx,j,k).x)-d : d-mglPoint(GetX(x,i-tx,j,k).x, GetY(y,i-tx,j,k).x, GetZ(z,i-tx,j,k).x);\r
+               c1 = fabs(v*p1);        xx = p1.norm(); c1 *= xx?1/(xx*xx):0;\r
+               p1 = j<m-1 ? mglPoint(GetX(x,i,j+ty,k).x, GetY(y,i,j+ty,k).x, GetZ(z,i,j+ty,k).x)-d : d-mglPoint(GetX(x,i,j-ty,k).x, GetY(y,i,j-ty,k).x, GetZ(z,i,j-ty,k).x);\r
+               c2 = fabs(v*p1);        xx = p1.norm(); c2 *= xx?1/(xx*xx):0;\r
+               p1 = k<l-1 ? mglPoint(GetX(x,i,j,k+tz).x, GetY(y,i,j,k+tz).x, GetZ(z,i,j,k+tz).x)-d : d-mglPoint(GetX(x,i,j,k-tz).x, GetY(y,i,j,k-tz).x, GetZ(z,i,j,k-tz).x);\r
+               c3 = fabs(v*p1);        xx = p1.norm(); c3 *= xx?1/(xx*xx):0;\r
+               c1 = c1<c2 ? c2:c1;     c1 = c1<c3 ? c3:c1;\r
+               ca+=c1; cm = cm<c1 ? c1:cm;\r
        }\r
-       xm = 1./(xm==0 ? 1:sqrt(xm));\r
+       ca /= (n*m*l)/(tx*ty*tz);\r
+       //      if(cm>2*ca)     cm = 2*ca;      // disable too narrow grid steps\r
+       xm = xm?1./xm:0;        cm = cm?1./cm:0;\r
 \r
        long n1,n2;\r
-       mglPoint p1,p2;\r
-       mreal c1,c2, xx,yy,zz;\r
-\r
        for(k=0;k<l;k+=tz)      for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
        {\r
                if(gr->Stop)    return;\r
-               xx = GetX(x,i,j,k).x;   yy = GetY(y,i,j,k).x;   zz = GetZ(z,i,j,k).x;\r
-               dx = i<n-1 ? (GetX(x,i+1,j,k).x-xx) : (xx-GetX(x,i-1,j,k).x);\r
-               dy = j<m-1 ? (GetY(y,i,j+1,k).x-yy) : (yy-GetY(y,i,j-1,k).x);\r
-               dz = k<l-1 ? (GetZ(z,i,j,k+1).x-zz) : (zz-GetZ(z,i,j,k-1).x);\r
-               dx *= tx;       dy *= ty;       dz *= tz;\r
-               p = mglPoint(ax->v(i,j,k),ay->v(i,j,k),az->v(i,j,k));   dd = p.norm();\r
-               dx *= fix ? (dd>dm ? p.x/dd : 0) : p.x*xm;\r
-               dy *= fix ? (dd>dm ? p.y/dd : 0) : p.y*xm;\r
-               dz *= fix ? (dd>dm ? p.z/dd : 0) : p.z*xm;\r
-\r
-               if(end)                 {       p1 = mglPoint(xx-dx,yy-dy,zz-dz);       p2 = mglPoint(xx,yy,zz);        }\r
-               else if(beg)    {       p1 = mglPoint(xx,yy,zz);        p2 = mglPoint(xx+dx,yy+dy,zz+dz);       }\r
-               else    {       p1=mglPoint(xx-dx/2,yy-dy/2,zz-dz/2);   p2=mglPoint(xx+dx/2,yy+dy/2,zz+dz/2);   }\r
+               d=mglPoint(GetX(x,i,j,k).x, GetY(y,i,j,k).x, GetZ(z,i,j,k).x);\r
+               v = mglPoint(ax->v(i,j,k),ay->v(i,j,k),az->v(i,j,k));\r
+               dd = v.norm();  v *= cm*(fix?(dd>dm ? 1./dd : 0) : xm);\r
+               \r
+               if(end)         {       p1 = d-v;       p2 = d; }\r
+               else if(beg)    {       p1 = d; p2 = d+v;       }\r
+               else            {       p1=d-v/2.;      p2=d+v/2.;      }\r
                if(grd) {       c1=gr->GetC(ss,dd*xm-0.5,false);        c2=gr->GetC(ss,dd*xm,false);    }\r
                else    c1 = c2 = gr->GetC(ss,dd*xm,false);\r
                n1=gr->AddPnt(p1,c1);   n2=gr->AddPnt(p2,c2);\r
@@ -273,10 +285,298 @@ void mgl_vect_3d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, co
        mgl_vect_3d(_GR_, _DA_(ax), _DA_(ay), _DA_(az), s, o);  delete []o;     delete []s;     }\r
 //-----------------------------------------------------------------------------\r
 //\r
+//     Vect3 series\r
+//\r
+//-----------------------------------------------------------------------------\r
+struct _mgl_vec_slice  {       mglData x,y,z,ax,ay,az; };\r
+//-----------------------------------------------------------------------------\r
+void mgl_get_slice(_mgl_vec_slice &s, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, char dir, mreal d, bool both)\r
+{\r
+       register long i,j,i0,n=ax->GetNx(),m=ax->GetNy(),l=ax->GetNz(), nx=1,ny=1,p;\r
+\r
+       if(dir=='x')    {       nx = m; ny = l; if(d<0) d = n/2.;       }\r
+       if(dir=='y')    {       nx = n; ny = l; if(d<0) d = m/2.;       }\r
+       if(dir=='z')    {       nx = n; ny = m; if(d<0) d = l/2.;       }\r
+       s.x.Create(nx,ny);      s.y.Create(nx,ny);      s.z.Create(nx,ny);\r
+       s.ax.Create(nx,ny);     s.ay.Create(nx,ny);     s.az.Create(nx,ny);\r
+       p = long(d);    d -= p;\r
+       if(dir=='x' && p>=n-1)  {       d+=p-n+2;       p=n-2;  }\r
+       if(dir=='y' && p>=m-1)  {       d+=p-m+2.;      p=m-2;  }\r
+       if(dir=='z' && p>=l-1)  {       d+=p-l+2;       p=l-2;  }\r
+       mreal v;\r
+\r
+       if(both)\r
+       {\r
+               if(dir=='x')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;\r
+                       s.x.a[i0] = x->v(p,i,j)*(1-d) + x->v(p+1,i,j)*d;\r
+                       s.y.a[i0] = y->v(p,i,j)*(1-d) + y->v(p+1,i,j)*d;\r
+                       s.z.a[i0] = z->v(p,i,j)*(1-d) + z->v(p+1,i,j)*d;\r
+                       s.ax.a[i0] = ax->v(p,i,j)*(1-d) + ax->v(p+1,i,j)*d;\r
+                       s.ay.a[i0] = ay->v(p,i,j)*(1-d) + ay->v(p+1,i,j)*d;\r
+                       s.az.a[i0] = az->v(p,i,j)*(1-d) + az->v(p+1,i,j)*d;\r
+               }\r
+               if(dir=='y')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;\r
+                       s.x.a[i0] = x->v(i,p,j)*(1-d) + x->v(i,p+1,j)*d;\r
+                       s.y.a[i0] = y->v(i,p,j)*(1-d) + y->v(i,p+1,j)*d;\r
+                       s.z.a[i0] = z->v(i,p,j)*(1-d) + z->v(i,p+1,j)*d;\r
+                       s.ax.a[i0] = ax->v(i,p,j)*(1-d) + ax->v(i,p+1,j)*d;\r
+                       s.ay.a[i0] = ay->v(i,p,j)*(1-d) + ay->v(i,p+1,j)*d;\r
+                       s.az.a[i0] = az->v(i,p,j)*(1-d) + az->v(i,p+1,j)*d;\r
+               }\r
+               if(dir=='z')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;\r
+                       s.x.a[i0] = x->v(i,j,p)*(1-d) + x->v(i,j,p+1)*d;\r
+                       s.y.a[i0] = y->v(i,j,p)*(1-d) + y->v(i,j,p+1)*d;\r
+                       s.z.a[i0] = z->v(i,j,p)*(1-d) + z->v(i,j,p+1)*d;\r
+                       s.ax.a[i0] = ax->v(i,j,p)*(1-d) + ax->v(i,j,p+1)*d;\r
+                       s.ay.a[i0] = ay->v(i,j,p)*(1-d) + ay->v(i,j,p+1)*d;\r
+                       s.az.a[i0] = az->v(i,j,p)*(1-d) + az->v(i,j,p+1)*d;\r
+               }\r
+       }\r
+       else    // x, y, z -- vectors\r
+       {\r
+               if(dir=='x')\r
+               {\r
+                       v = x->v(p)*(1-d)+x->v(p+1)*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.x.a[i0] = v;\r
+                               s.y.a[i0] = y->v(i);    s.z.a[i0] = z->v(j);\r
+                               s.ax.a[i0] = ax->v(p,i,j)*(1-d) + ax->v(p+1,i,j)*d;\r
+                               s.ay.a[i0] = ay->v(p,i,j)*(1-d) + ay->v(p+1,i,j)*d;\r
+                               s.az.a[i0] = az->v(p,i,j)*(1-d) + az->v(p+1,i,j)*d;\r
+                       }\r
+               }\r
+               if(dir=='y')\r
+               {\r
+                       v = y->v(p)*(1-d)+y->v(p+1)*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.y.a[i0] = v;\r
+                               s.x.a[i0] = x->v(i);    s.z.a[i0] = z->v(j);\r
+                               s.ax.a[i0] = ax->v(i,p,j)*(1-d) + ax->v(i,p+1,j)*d;\r
+                               s.ay.a[i0] = ay->v(i,p,j)*(1-d) + ay->v(i,p+1,j)*d;\r
+                               s.az.a[i0] = az->v(i,p,j)*(1-d) + az->v(i,p+1,j)*d;\r
+                       }\r
+               }\r
+               if(dir=='z')\r
+               {\r
+                       v = z->v(p)*(1-d)+z->v(p+1)*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.z.a[i0] = v;\r
+                               s.x.a[i0] = x->v(i);    s.y.a[i0] = y->v(j);\r
+                               s.ax.a[i0] = ax->v(i,j,p)*(1-d) + ax->v(i,j,p+1)*d;\r
+                               s.ay.a[i0] = ay->v(i,j,p)*(1-d) + ay->v(i,j,p+1)*d;\r
+                               s.az.a[i0] = az->v(i,j,p)*(1-d) + az->v(i,j,p+1)*d;\r
+                       }\r
+               }\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_get_slice_md(_mgl_vec_slice &s, const mglData *x, const mglData *y, const mglData *z, const mglData *ax, const mglData *ay, const mglData *az, char dir, mreal d, bool both)\r
+{\r
+       register long i,j,i0,i1,n=ax->nx,m=ax->ny,l=ax->nz, nx=1,ny=1,p;\r
+\r
+       if(dir=='x')    {       nx = m; ny = l; if(d<0) d = n/2.;       }\r
+       if(dir=='y')    {       nx = n; ny = l; if(d<0) d = m/2.;       }\r
+       if(dir=='z')    {       nx = n; ny = m; if(d<0) d = l/2.;       }\r
+       s.x.Create(nx,ny);      s.y.Create(nx,ny);      s.z.Create(nx,ny);\r
+       s.ax.Create(nx,ny);     s.ay.Create(nx,ny);     s.az.Create(nx,ny);\r
+       p = long(d);    d -= p;\r
+       if(dir=='x' && p>=n-1)  {       d+=p-n+2;       p=n-2;  }\r
+       if(dir=='y' && p>=m-1)  {       d+=p-m+2.;      p=m-2;  }\r
+       if(dir=='z' && p>=l-1)  {       d+=p-l+2;       p=l-2;  }\r
+       mreal v;\r
+\r
+       if(both)\r
+       {\r
+               if(dir=='x')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;    i1 = p+n*(i+m*j);\r
+                       s.x.a[i0] = x->a[i1]*(1-d) + x->a[i1+1]*d;\r
+                       s.y.a[i0] = y->a[i1]*(1-d) + y->a[i1+1]*d;\r
+                       s.z.a[i0] = z->a[i1]*(1-d) + z->a[i1+1]*d;\r
+                       s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+1]*d;\r
+                       s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+1]*d;\r
+                       s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+1]*d;\r
+               }\r
+               if(dir=='y')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;    i1 = i+n*(p+m*j);\r
+                       s.x.a[i0] = x->a[i1]*(1-d) + x->a[i1+n]*d;\r
+                       s.y.a[i0] = y->a[i1]*(1-d) + y->a[i1+n]*d;\r
+                       s.z.a[i0] = z->a[i1]*(1-d) + z->a[i1+n]*d;\r
+                       s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+n]*d;\r
+                       s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+n]*d;\r
+                       s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+n]*d;\r
+               }\r
+               if(dir=='z')    for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+               {\r
+                       i0 = i+nx*j;    i1 = i+n*(j+m*p);\r
+                       s.x.a[i0] = x->a[i1]*(1-d) + x->a[i1+n*m]*d;\r
+                       s.y.a[i0] = y->a[i1]*(1-d) + y->a[i1+n*m]*d;\r
+                       s.z.a[i0] = z->a[i1]*(1-d) + z->a[i1+n*m]*d;\r
+                       s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+n*m]*d;\r
+                       s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+n*m]*d;\r
+                       s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+n*m]*d;\r
+               }\r
+       }\r
+       else    // x, y, z -- vectors\r
+       {\r
+               if(dir=='x')\r
+               {\r
+                       v = x->a[p]*(1-d)+x->a[p+1]*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.x.a[i0] = v;  i1 = p+n*(i+m*j);\r
+                               s.y.a[i0] = y->a[i];    s.z.a[i0] = z->a[j];\r
+                               s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+1]*d;\r
+                               s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+1]*d;\r
+                               s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+1]*d;\r
+                       }\r
+               }\r
+               if(dir=='y')\r
+               {\r
+                       v = y->a[p]*(1-d)+y->a[p+1]*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.y.a[i0] = v;  i1 = i+n*(p+m*j);\r
+                               s.x.a[i0] = x->a[i];    s.z.a[i0] = z->a[j];\r
+                               s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+n]*d;\r
+                               s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+n]*d;\r
+                               s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+n]*d;\r
+                       }\r
+               }\r
+               if(dir=='z')\r
+               {\r
+                       v = z->a[p]*(1-d)+z->a[p+1]*d;\r
+                       for(j=0;j<ny;j++)       for(i=0;i<nx;i++)\r
+                       {\r
+                               i0 = i+nx*j;    s.z.a[i0] = v;  i1 = i+n*(j+m*p);\r
+                               s.x.a[i0] = x->a[i];    s.y.a[i0] = y->a[j];\r
+                               s.ax.a[i0] = ax->a[i1]*(1-d) + ax->a[i1+n*m]*d;\r
+                               s.ay.a[i0] = ay->a[i1]*(1-d) + ay->a[i1+n*m]*d;\r
+                               s.az.a[i0] = az->a[i1]*(1-d) + az->a[i1+n*m]*d;\r
+                       }\r
+               }\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_vect3_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, double sVal, const char *opt)\r
+{\r
+       bool both = mgl_isboth(x,y,z,ax);\r
+       if(mgl_check_vec3(gr,x,y,z,ax,ay,az,"Vect3"))   return;\r
+\r
+       gr->SaveState(opt);\r
+       static int cgid=1;      gr->StartGroup("Vect3",cgid++);\r
+       char dir='y';\r
+       if(mglchr(sch,'x'))     dir='x';\r
+       if(mglchr(sch,'z'))     dir='z';\r
+\r
+       bool dot = mglchr(sch,'.');\r
+       bool fix = mglchr(sch,'f');\r
+       bool end = mglchr(sch,'>');\r
+       bool beg = mglchr(sch,'<');\r
+       bool grd = mglchr(sch,'=');\r
+       long ss = gr->AddTexture(sch);\r
+\r
+       _mgl_vec_slice s;\r
+       const mglData *mx = dynamic_cast<const mglData *>(x);\r
+       const mglData *my = dynamic_cast<const mglData *>(y);\r
+       const mglData *mz = dynamic_cast<const mglData *>(z);\r
+       const mglData *max = dynamic_cast<const mglData *>(ax);\r
+       const mglData *may = dynamic_cast<const mglData *>(ay);\r
+       const mglData *maz = dynamic_cast<const mglData *>(az);\r
+       if(mx&&my&&mz&&max&&may&&maz)\r
+               mgl_get_slice_md(s,mx,my,mz,max,may,maz,dir,sVal,both);\r
+       else\r
+               mgl_get_slice(s,x,y,z,ax,ay,az,dir,sVal,both);\r
+\r
+       long i,j,n=s.ax.nx,m=s.ax.ny;\r
+       long tx=1,ty=1;\r
+       if(gr->MeshNum>1)       {       tx=(n-1)/(gr->MeshNum-1);       ty=(m-1)/(gr->MeshNum-1);       }\r
+       if(tx<1)        tx=1;   if(ty<1)        ty=1;\r
+       mreal xm=0,cm=0,ca=0;\r
+       mreal dd,dm=(fabs(gr->Max.c)+fabs(gr->Min.c))*1e-5;\r
+       // use whole array for determining maximal vectors length \r
+       mglPoint p1,p2, v, d=(gr->Max-gr->Min)/mglPoint(1./ax->GetNx(),1./ax->GetNy(),1./ax->GetNz());\r
+       mreal c1,c2, xx,yy,zz;\r
+\r
+       register long i0, tn=ty*n;\r
+       for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
+       {\r
+               i0 = i+n*j;     xx = s.x.a[i0]; yy = s.y.a[i0]; zz = s.z.a[i0];\r
+               p1 = i<n-1 ? mglPoint(s.x.a[i0+tx]-xx, s.y.a[i0+tx]-yy, s.z.a[i0+tx]-zz) : mglPoint(xx-s.x.a[i0-tx], yy-s.y.a[i0-tx], zz-s.z.a[i0-tx]);\r
+               p2 = j<m-1 ? mglPoint(s.x.a[i0+tn]-xx, s.y.a[i0+tn]-yy, s.z.a[i0+tn]-zz) : mglPoint(xx-s.x.a[i0-tn], yy-s.y.a[i0-tn], zz-s.z.a[i0-tn]);\r
+               v = mglPoint(s.ax.a[i0], s.ay.a[i0], s.az.a[i0]);\r
+               c1 = v.norm();  xm = xm<c1 ? c1:xm;     // handle NAN values\r
+               yy = fabs(v*d); xx = d.norm();  yy *= xx?1/(xx*xx):0;\r
+               c1 = fabs(v*p1);        xx = p1.norm(); c1 *= xx?1/(xx*xx):0;\r
+               c2 = fabs(v*p2);        xx = p2.norm(); c2 *= xx?1/(xx*xx):0;\r
+               c1 = c1<c2 ? c2:c1;     c1 = c1<yy ? yy:c1;\r
+               ca+=c1; cm = cm<c1 ? c1:cm;\r
+       }\r
+       ca /= (n*m)/(tx*ty);\r
+//     if(cm>2*ca)     cm = 2*ca;      // disable too narrow grid steps\r
+       xm = xm?1./xm:0;        cm = cm?1./cm:0;\r
+\r
+       long n1,n2;\r
+       for(i=0;i<n;i+=tx)      for(j=0;j<m;j+=ty)\r
+       {\r
+               if(gr->Stop)    return;\r
+               i0 = i+n*j;\r
+               d = mglPoint(s.x.a[i0], s.y.a[i0], s.z.a[i0]);\r
+               v = mglPoint(s.ax.a[i0], s.ay.a[i0], s.az.a[i0]);\r
+               dd = v.norm();  v *= cm*(fix?(dd>dm ? 1./dd : 0) : xm);\r
+\r
+               if(end)         {       p1 = d-v;       p2 = d; }\r
+               else if(beg)    {       p1 = d; p2 = d+v;       }\r
+               else            {       p1=d-v/2.;      p2=d+v/2.;      }\r
+               if(grd) {       c1=gr->GetC(ss,dd*xm-0.5,false);        c2=gr->GetC(ss,dd*xm,false);}\r
+               else    c1 = c2 = gr->GetC(ss,dd*xm,false);\r
+               n1=gr->AddPnt(p1,c1);   n2=gr->AddPnt(p2,c2);\r
+               // allow vectors outside bounding box\r
+               if(n1<0 && n2>=0)       n1=gr->AddPnt(p1,c1,mglPoint(NAN),-1,2);\r
+               if(n2<0 && n1>=0)       n2=gr->AddPnt(p2,c2,mglPoint(NAN),-1,2);\r
+               if(dot) {       gr->line_plot(n1,n2);   gr->mark_plot(n1,'.');  }\r
+               else    gr->vect_plot(n1,n2);\r
+       }\r
+       gr->EndGroup();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_vect3(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, double sVal, const char *opt)\r
+{\r
+       gr->SaveState(opt);\r
+       mglData x(ax->GetNx()), y(ax->GetNy()),z(ax->GetNz());\r
+       x.Fill(gr->Min.x,gr->Max.x);\r
+       y.Fill(gr->Min.y,gr->Max.y);\r
+       z.Fill(gr->Min.z,gr->Max.z);\r
+       mgl_vect3_xyz(gr,&x,&y,&z,ax,ay,az,sch,sVal,0);\r
+       gr->LoadState();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_vect3_xyz_(uintptr_t *gr, uintptr_t *x, uintptr_t *y, uintptr_t *z, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *sVal, const char *opt,int l,int lo)\r
+{      char *s=new char[l+1];  memcpy(s,sch,l);        s[l]=0;\r
+       char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
+       mgl_vect3_xyz(_GR_, _DA_(x), _DA_(y), _DA_(z), _DA_(ax), _DA_(ay), _DA_(az), s, *sVal, o);\r
+       delete []o;     delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+void mgl_vect3_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, const char *sch, mreal *sVal, const char *opt,int l,int lo)\r
+{      char *s=new char[l+1];  memcpy(s,sch,l);        s[l]=0;\r
+       char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
+       mgl_vect3(_GR_, _DA_(ax), _DA_(ay), _DA_(az), s, *sVal, o);     delete []o;     delete []s;     }\r
+//-----------------------------------------------------------------------------\r
+//\r
 //     Flow 2d series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void flow(mglBase *gr, mreal zVal, mreal u, mreal v, const mglData &x, const mglData &y, const mglData &ax, const mglData &ay, long ss, bool vv)\r
+void flow(mglBase *gr, double zVal, double u, double v, const mglData &x, const mglData &y, const mglData &ax, const mglData &ay, long ss, bool vv)\r
 {\r
        long n=10*(ax.nx+ax.ny);\r
        bool both = x.nx==ax.nx && y.nx==ax.nx && x.ny==ax.ny && y.ny==ax.ny;\r
@@ -344,10 +644,10 @@ void mgl_flow_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, con
        static int cgid=1;      gr->StartGroup("Flow",cgid++);\r
 \r
        long ss = gr->AddTexture(sch);\r
-       bool vv = sch && strchr(sch,'v');\r
+       bool vv = mglchr(sch,'v');\r
        // allocate memory\r
        mreal zVal = gr->Min.z;\r
-       bool cnt=!(sch && strchr(sch,'#'));\r
+       bool cnt=!mglchr(sch,'#');\r
        mglData xx(x), yy(y), bx(ax), by(ay);\r
 \r
        for(long k=0;k<ax->GetNz();k++)\r
@@ -401,7 +701,7 @@ void mgl_flow_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch,
        char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
        mgl_flow_2d(_GR_, _DA_(ax), _DA_(ay), s, o);    delete []o;     delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_flowp_xy(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt)\r
+void mgl_flowp_xy(HMGL gr, double x0, double y0, double z0, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, const char *opt)\r
 {\r
        mglPoint p(x0,y0,z0);\r
        mreal u,v;\r
@@ -413,7 +713,7 @@ void mgl_flowp_xy(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT ax
        static int cgid=1;      gr->StartGroup("FlowP",cgid++);\r
 \r
        long ss = gr->AddTexture(sch);\r
-       bool vv = sch && strchr(sch,'v');\r
+       bool vv = mglchr(sch,'v');\r
        // find coordinates u, v\r
        register long i,j;\r
        register mreal d, dm=1e7;\r
@@ -448,7 +748,7 @@ void mgl_flowp_xy(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT ax
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_flowp_2d(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT ax, HCDT ay, const char *sch, const char *opt)\r
+void mgl_flowp_2d(HMGL gr, double x0, double y0, double z0, HCDT ax, HCDT ay, const char *sch, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(ax->GetNx()), y(ax->GetNy());\r
@@ -472,7 +772,7 @@ void mgl_flowp_2d_(uintptr_t *gr, mreal *x0, mreal *y0, mreal *z0, uintptr_t *ax
 //     Flow 3d series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void flow(mglBase *gr, mreal u, mreal v, mreal w, const mglData &x, const mglData &y, const mglData &z, const mglData &ax, const mglData &ay, const mglData &az,long ss,bool vv, bool xo, bool zo)\r
+void flow(mglBase *gr, double u, double v, double w, const mglData &x, const mglData &y, const mglData &z, const mglData &ax, const mglData &ay, const mglData &az,long ss,bool vv, bool xo, bool zo)\r
 {\r
        static long n=10*(ax.nx+ax.ny);\r
        long nn = ax.nx*ax.ny*ax.nz;\r
@@ -563,9 +863,9 @@ void mgl_flow_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, co
        mreal r = gr->SaveState(opt);\r
        long num = mgl_isnan(r)?3:long(r+0.5);\r
        static int cgid=1;      gr->StartGroup("Flow3",cgid++);\r
-       bool cnt=!(sch && strchr(sch,'#'));\r
+       bool cnt=!mglchr(sch,'#');\r
        long ss = gr->AddTexture(sch);\r
-       bool vv = sch && strchr(sch,'v'), xo = sch && strchr(sch,'x'), zo = sch && strchr(sch,'z');\r
+       bool vv = mglchr(sch,'v'), xo = mglchr(sch,'x'), zo = mglchr(sch,'z');\r
 \r
        mglData xx(x), yy(y), zz(z), bx(ax), by(ay), bz(az);\r
        for(i=0;i<num;i++)      for(j=0;j<num;j++)\r
@@ -625,7 +925,7 @@ void mgl_flow_3d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, uintptr_t *az, co
        char *o=new char[lo+1]; memcpy(o,opt,lo);       o[lo]=0;\r
        mgl_flow_3d(_GR_, _DA_(ax), _DA_(ay), _DA_(az), s, o);  delete []o;     delete []s;     }\r
 //-----------------------------------------------------------------------------\r
-void mgl_flowp_xyz(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt)\r
+void mgl_flowp_xyz(HMGL gr, double x0, double y0, double z0, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt)\r
 {\r
        mglPoint p(x0,y0,z0);\r
        mreal u,v,w;\r
@@ -636,7 +936,7 @@ void mgl_flowp_xyz(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT z
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("FlowP3",cgid++);\r
        long ss = gr->AddTexture(sch);\r
-       bool vv = sch && strchr(sch,'v'), xo = sch && strchr(sch,'x'), zo = sch && strchr(sch,'z');\r
+       bool vv = mglchr(sch,'v'), xo = mglchr(sch,'x'), zo = mglchr(sch,'z');\r
 \r
        // find coordinates u, v, w\r
        register long i,j,k;\r
@@ -680,7 +980,7 @@ void mgl_flowp_xyz(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT x, HCDT y, HCDT z
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_flowp_3d(HMGL gr, mreal x0, mreal y0, mreal z0, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt)\r
+void mgl_flowp_3d(HMGL gr, double x0, double y0, double z0, HCDT ax, HCDT ay, HCDT az, const char *sch, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(ax->GetNx()), y(ax->GetNy()), z(ax->GetNz());\r
@@ -770,7 +1070,7 @@ void mgl_grad_(uintptr_t *gr, uintptr_t *ph, const char *sch, const char *opt, i
 //     Pipe 2d series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void flowr(mglBase *gr, mreal zVal, mreal u, mreal v, const mglData &x, const mglData &y, const mglData &ax, const mglData &ay, mreal r0,long sc)\r
+void flowr(mglBase *gr, double zVal, double u, double v, const mglData &x, const mglData &y, const mglData &ax, const mglData &ay, double r0,long sc)\r
 {\r
        long n=10*(ax.nx+ax.ny);\r
        bool both = x.nx==ax.nx && y.nx==ax.nx && x.ny==ax.ny && y.ny==ax.ny;\r
@@ -814,7 +1114,7 @@ void flowr(mglBase *gr, mreal zVal, mreal u, mreal v, const mglData &x, const mg
        } while(!end);\r
        if(k>1)\r
        {\r
-               const int num=41;\r
+               const int num=24;\r
                long i,j,*id=new long[2*num];\r
                mglPoint p,l=pp[1]-pp[0],t,q,d;\r
                t = !l; t.Normalize();  q = t^l;        q.Normalize();\r
@@ -849,7 +1149,7 @@ void flowr(mglBase *gr, mreal zVal, mreal u, mreal v, const mglData &x, const mg
        delete []pp;    delete []cc;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, mreal r0, const char *opt)\r
+void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, double r0, const char *opt)\r
 {\r
        mreal u,v;\r
        if(mgl_check_dim2(gr,x,y,ax,ay,"Pipe")) return;\r
@@ -861,8 +1161,8 @@ void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, mre
        long ss = gr->AddTexture(sch);\r
        // allocate memory\r
        mreal zVal = gr->Min.z;\r
-       bool cnt=!(sch && strchr(sch,'#'));\r
-       if(sch && strchr(sch,'i'))      r0 = -fabs(r0);\r
+       bool cnt=!mglchr(sch,'#');\r
+       if(mglchr(sch,'i'))     r0 = -fabs(r0);\r
 \r
        mglData xx(x), yy(y), bx(ax), by(ay);\r
        for(long k=0;k<ax->GetNz();k++)\r
@@ -897,7 +1197,7 @@ void mgl_pipe_xy(HMGL gr, HCDT x, HCDT y, HCDT ax, HCDT ay, const char *sch, mre
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_pipe_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, mreal r0, const char *opt)\r
+void mgl_pipe_2d(HMGL gr, HCDT ax, HCDT ay, const char *sch, double r0, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(ax->GetNx()), y(ax->GetNy());\r
@@ -920,7 +1220,7 @@ void mgl_pipe_2d_(uintptr_t *gr, uintptr_t *ax, uintptr_t *ay, const char *sch,
 //     Pipe 3d series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void flowr(mglBase *gr, mreal u, mreal v, mreal w, const mglData &x, const mglData &y, const mglData &z, const mglData &ax, const mglData &ay, const mglData &az, mreal r0,long sc)\r
+void flowr(mglBase *gr, double u, double v, double w, const mglData &x, const mglData &y, const mglData &z, const mglData &ax, const mglData &ay, const mglData &az, double r0,long sc)\r
 {\r
        static long n=10*(ax.nx+ax.ny);\r
        long nn = ax.nx*ax.ny*ax.nz;\r
@@ -972,7 +1272,7 @@ void flowr(mglBase *gr, mreal u, mreal v, mreal w, const mglData &x, const mglDa
        } while(!end);\r
        if(k>1)\r
        {\r
-               const int num=41;\r
+               const int num=24;\r
                long i,j,*id=new long[2*num];\r
                mglPoint p,l=pp[1]-pp[0],t,q,d;\r
                t = !l; t.Normalize();  q = t^l;        q.Normalize();\r
@@ -1007,7 +1307,7 @@ void flowr(mglBase *gr, mreal u, mreal v, mreal w, const mglData &x, const mglDa
        delete []pp;    delete []cc;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, mreal r0, const char *opt)\r
+void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, const char *sch, double r0, const char *opt)\r
 {\r
        mreal u,v,w;\r
        long i,j;\r
@@ -1016,10 +1316,10 @@ void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, co
        mreal r = gr->SaveState(opt);\r
        long num = mgl_isnan(r)?3:long(r+0.5);\r
        static int cgid=1;      gr->StartGroup("Pipe3",cgid++);\r
-       if(sch && strchr(sch,'i'))      r0 = -fabs(r0);\r
+       if(mglchr(sch,'i'))     r0 = -fabs(r0);\r
 \r
        long ss = gr->AddTexture(sch);\r
-       bool cnt=!(sch && strchr(sch,'#'));\r
+       bool cnt=!mglchr(sch,'#');\r
 \r
        mglData xx(x), yy(y), zz(z), bx(ax), by(ay), bz(az);\r
        for(i=0;i<num;i++)      for(j=0;j<num;j++)\r
@@ -1059,7 +1359,7 @@ void mgl_pipe_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT ax, HCDT ay, HCDT az, co
        gr->EndGroup();\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_pipe_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, mreal r0, const char *opt)\r
+void mgl_pipe_3d(HMGL gr, HCDT ax, HCDT ay, HCDT az, const char *sch, double r0, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(ax->GetNx()), y(ax->GetNy()), z(ax->GetNz());\r

diff --git a/src/volume.cpp b/src/volume.cpp
index 7c40043d0aada907e578f91a38389a13361730d3..6f99e2c34663373f8393982425b094859bee5300 100644 (file)
--- a/src/volume.cpp
+++ b/src/volume.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * surf.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -44,8 +44,8 @@ void mgl_cloud_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, con
        if(tx<1)        tx=1;   if(ty<1)        ty=1;   if(tz<1)        tz=1;\r
 \r
        mreal   alpha = gr->AlphaDef;\r
-       bool inv = sch && strchr(sch,'!');\r
-       bool dot = sch && strchr(sch,'.');\r
+       bool inv = mglchr(sch,'i');\r
+       bool dot = mglchr(sch,'.');\r
        alpha /= pow(n/tx*m/ty*l/tz,1./3)/20;\r
        mreal aa,bb;\r
        if(alpha>1)     alpha = 1;\r
@@ -53,7 +53,7 @@ void mgl_cloud_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, con
 \r
        // x, y, z -- have the same size as a\r
        n /= tx;        m /= ty;        l /= tz;\r
-       long *pos=new long[n*m*l];              // TODO check if n<tx\r
+       long *pos=new long[n*m*l];\r
        gr->Reserve(n*m*l);\r
        mglPoint p,q=mglPoint(NAN);\r
        for(k=0;k<l;k++)        for(j=0;j<m;j++)        for(i=0;i<n;i++)\r
@@ -62,7 +62,7 @@ void mgl_cloud_xyz(HMGL gr, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, con
                p = both ? mglPoint(x->v(i*tx,j*ty,k*tz),y->v(i*tx,j*ty,k*tz),z->v(i*tx,j*ty,k*tz)) : mglPoint(x->v(i*tx),y->v(j*ty),z->v(k*tz));\r
                aa = gr->GetA(a->v(i*tx,j*ty,k*tz));\r
                bb = inv ? (1-aa)*(1-aa)*alpha : aa*aa*alpha;\r
-               pos[i+n*(j+m*k)] = gr->AddPnt(p,gr->GetC(ss,aa,false),q,bb);    // TODO check boundary\r
+               pos[i+n*(j+m*k)] = gr->AddPnt(p,gr->GetC(ss,aa,false),q,bb);\r
        }\r
        if(dot) for(i=0;i<n*m*l;i++)    gr->mark_plot(pos[i],'.');\r
        else    for(i=0;i<n;i++)        for(j=0;j<m;j++)        for(k=0;k<l;k++)\r
@@ -152,7 +152,7 @@ inline mreal mgl_cos_pp(const mglPoint *kk,long i0,long i1,long i2)
        return p1*p2>1e-10 ? pc/sqrt(p1*p2) : NAN;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3_plot(HMGL gr, long n,long m,long *kx1,long *kx2,long *ky1,long *ky2, long *kz, std::vector<mglPoint> kk, bool wire)\r
+void mgl_surf3_plot(HMGL gr, long n,long m,long *kx1,long *kx2,long *ky1,long *ky2, long *kz, std::vector<mglPoint> kk, int wire)\r
 {\r
        register long i,j,k,i0,ii,jj;\r
        long id[12],us[12],pd[12],ni;\r
@@ -214,30 +214,38 @@ void mgl_surf3_plot(HMGL gr, long n,long m,long *kx1,long *kx2,long *ky1,long *k
                        }\r
                        if(i0<0)        break;  // no more triangles. NOTE: should be never here\r
                        jj = i0;        us[jj]=1;       p3 = pd[jj];\r
-                       if(wire)\r
+                       if(wire==1)\r
                        {\r
                                gr->line_plot(p1, p2);\r
                                gr->line_plot(p1, p3);\r
                                gr->line_plot(p2, p3);\r
                        }\r
+                       else if(wire==2)\r
+                       {\r
+                               gr->mark_plot(p1, '.');\r
+                               gr->mark_plot(p2, '.');\r
+                               gr->mark_plot(p3, '.');\r
+                       }\r
                        else    gr->trig_plot(p1, p2, p3);\r
                        p2 = p3;\r
                }\r
        }\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, const char *opt)\r
+void mgl_surf3_xyz_val(HMGL gr, double val, HCDT x, HCDT y, HCDT z, HCDT a, const char *sch, const char *opt)\r
 {\r
        long i,j,k,i1,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        long *kx1,*kx2,*ky1,*ky2,*kz;\r
-       bool both = mgl_isboth(x,y,z,a), wire = sch && strchr(sch,'#');\r
+       bool both = mgl_isboth(x,y,z,a);\r
+       int wire = mglchr(sch,'#')?1:0;\r
+       if(mglchr(sch,'.'))     wire = 2;\r
        mreal d;\r
        if(mgl_check_dim3(gr,both,x,y,z,a,0,"Surf3"))   return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Surf3",cgid++);\r
 \r
-       bool inv = (sch && strchr(sch,'-'));\r
+       bool inv = (mglchr(sch,'-'));\r
        long ss = gr->AddTexture(sch), pos;\r
 \r
        kx1 = new long[n*m];    kx2 = new long[n*m];\r
@@ -317,7 +325,7 @@ void mgl_surf3_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, const
        delete []ky2;   delete []kz;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3_val(HMGL gr, mreal val, HCDT a, const char *sch, const char *opt)\r
+void mgl_surf3_val(HMGL gr, double val, HCDT a, const char *sch, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()), z(a->GetNz());\r
@@ -375,18 +383,20 @@ void mgl_surf3_(uintptr_t *gr, uintptr_t *a, const char *sch, const char *opt,in
 //     Surf3A series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3a_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *sch, const char *opt)\r
+void mgl_surf3a_xyz_val(HMGL gr, double val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *sch, const char *opt)\r
 {\r
        long i,j,k,i1,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        long *kx1,*kx2,*ky1,*ky2,*kz;\r
-       bool both = mgl_isboth(x,y,z,a), wire = sch && strchr(sch,'#');\r
+       bool both = mgl_isboth(x,y,z,a);\r
+       int wire = mglchr(sch,'#')?1:0;\r
+       if(mglchr(sch,'.'))     wire = 2;\r
        mreal d;\r
        if(mgl_check_dim3(gr,both,x,y,z,a,b,"Surf3A"))  return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Surf3A",cgid++);\r
 \r
-       bool inv = (sch && strchr(sch,'-'));\r
+       bool inv = (mglchr(sch,'-'));\r
        long ss = gr->AddTexture(sch), pos;\r
 \r
        kx1 = new long[n*m];    kx2 = new long[n*m];\r
@@ -470,7 +480,7 @@ void mgl_surf3a_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT
        delete []ky2;   delete []kz;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3a_val(HMGL gr, mreal val, HCDT a, HCDT b, const char *sch, const char *opt)\r
+void mgl_surf3a_val(HMGL gr, double val, HCDT a, HCDT b, const char *sch, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()),z(a->GetNz());\r
@@ -541,18 +551,20 @@ void mgl_surf3a_(uintptr_t *gr, uintptr_t *a, uintptr_t *b, const char *sch, con
 //     Surf3C series\r
 //\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3c_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *sch, const char *opt)\r
+void mgl_surf3c_xyz_val(HMGL gr, double val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT b, const char *sch, const char *opt)\r
 {\r
        long i,j,k,i1,n=a->GetNx(),m=a->GetNy(),l=a->GetNz();\r
        long *kx1,*kx2,*ky1,*ky2,*kz;\r
-       bool both = mgl_isboth(x,y,z,a), wire = sch && strchr(sch,'#');\r
+       bool both = mgl_isboth(x,y,z,a);\r
+       int wire = mglchr(sch,'#')?1:0;\r
+       if(mglchr(sch,'.'))     wire = 2;\r
        mreal d;\r
        if(mgl_check_dim3(gr,both,x,y,z,a,b,"Surf3C"))  return;\r
 \r
        gr->SaveState(opt);\r
        static int cgid=1;      gr->StartGroup("Surf3C",cgid++);\r
 \r
-       bool inv = (sch && strchr(sch,'-'));\r
+       bool inv = (mglchr(sch,'-'));\r
        long ss = gr->AddTexture(sch), pos;\r
 \r
        kx1 = new long[n*m];    kx2 = new long[n*m];\r
@@ -636,7 +648,7 @@ void mgl_surf3c_xyz_val(HMGL gr, mreal val, HCDT x, HCDT y, HCDT z, HCDT a, HCDT
        delete []ky2;   delete []kz;\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_surf3c_val(HMGL gr, mreal val, HCDT a, HCDT b, const char *sch, const char *opt)\r
+void mgl_surf3c_val(HMGL gr, double val, HCDT a, HCDT b, const char *sch, const char *opt)\r
 {\r
        gr->SaveState(opt);\r
        mglData x(a->GetNx()), y(a->GetNy()),z(a->GetNz());\r
@@ -699,7 +711,7 @@ void mgl_surf3c_(uintptr_t *gr, uintptr_t *a, uintptr_t *b, const char *sch, con
 // flag & 0x1  --      accompanied coordinates\r
 // flag & 0x2  --      project to r*z\r
 // flag & 0x4  --      normalize field\r
-void mgl_beam_md(HMGL gr, mreal val, const mglData *tr, const mglData *g1, const mglData *g2, const mglData *a, mreal r, const char *stl, int flag)\r
+void mgl_beam_md(HMGL gr, double val, const mglData *tr, const mglData *g1, const mglData *g2, const mglData *a, double r, const char *stl, int flag)\r
 {\r
        long n = a->nz,m=a->nx,l=a->ny;\r
        if(n<2 || m<2 || l<2)   {       gr->SetWarn(mglWarnLow,"Beam"); return; }\r
@@ -748,7 +760,7 @@ void mgl_beam_md(HMGL gr, mreal val, const mglData *tr, const mglData *g1, const
        mgl_surf3_xyz_val(gr,val,&x,&y,&z,&b,stl,0);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_beam_val(HMGL gr, mreal val, HCDT tr, HCDT g1, HCDT g2, HCDT a, mreal r, const char *stl, int flag)\r
+void mgl_beam_val(HMGL gr, double val, HCDT tr, HCDT g1, HCDT g2, HCDT a, double r, const char *stl, int flag)\r
 {\r
 \r
        const mglData *dtr=dynamic_cast<const mglData *>(tr);\r
@@ -805,7 +817,7 @@ void mgl_beam_val(HMGL gr, mreal val, HCDT tr, HCDT g1, HCDT g2, HCDT a, mreal r
        mgl_surf3_xyz_val(gr,val,&x,&y,&z,&b,stl,0);\r
 }\r
 //-----------------------------------------------------------------------------\r
-void mgl_beam(HMGL gr, HCDT tr, HCDT g1, HCDT g2, HCDT a, mreal r, const char *stl, int flag, int num)\r
+void mgl_beam(HMGL gr, HCDT tr, HCDT g1, HCDT g2, HCDT a, double r, const char *stl, int flag, int num)\r
 {\r
        num = num<=0 ? 1 : num;\r
        for(long i=0;i<num;i++)\r

diff --git a/src/window.cpp b/src/window.cpp
new file mode 100644 (file)
index 0000000..a4560e4
--- /dev/null
+++ b/src/window.cpp
@@ -0,0 +1,246 @@
+/***************************************************************************\r
+ * window.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+#include "mgl2/canvas_wnd.h"\r
+//-----------------------------------------------------------------------------\r
+mglCanvasWnd::mglCanvasWnd() : mglCanvas()\r
+{\r
+       Setup();        LoadFunc=0;     FuncPar=0;      DrawFunc=0;     ClickFunc=0;\r
+       GG = 0;         NumFig = 0;     CurFig = -1;\r
+}\r
+//-----------------------------------------------------------------------------\r
+mglCanvasWnd::~mglCanvasWnd()  {       if(GG) free(GG);        }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::SetCurFig(int c)\r
+{\r
+       CurFig=c;\r
+       if(get(MGL_VECT_FRAME) && c>=0 && c<(long)DrwDat.size() && DrawFunc)\r
+               GetFrame(c);\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::ResetFrames()\r
+{\r
+       if(GG)  free(GG);       GG = 0;\r
+       NumFig = CurFig = 0;\r
+       mglCanvas::ResetFrames();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::SetSize(int w,int h)\r
+{\r
+       if(DrawFunc)    ResetFrames();\r
+       mglCanvas::SetSize(w,h);\r
+//     if(Wnd) Wnd->size(w,h);\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::EndFrame()\r
+{\r
+       CurFig = CurFrameId-1;\r
+       if(!GG)\r
+       {\r
+               GG = (unsigned char *)malloc(3*Width*Height);\r
+               NumFig = 1;             CurFig = 0;\r
+       }\r
+       else if(CurFig>NumFig-1)\r
+       {\r
+               GG = (unsigned char *)realloc(GG,3*(CurFig+1)*Width*Height);\r
+               NumFig = CurFig+1;\r
+       }\r
+       mglCanvas::EndFrame();\r
+       memcpy(GG + CurFig*Width*Height*3,G,3*Width*Height);\r
+       CurFig++;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::SetFrame(long i)\r
+{\r
+       mglCanvas::SetFrame(i);\r
+       if(i>=0 && i<NumFig)    memcpy(GG + i*Width*Height*3,G,3*Width*Height);\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::DelFrame(long i)\r
+{\r
+       if(i<0 || i>=CurFrameId)        return;\r
+       if(CurFig>=i)   CurFig--;\r
+       long n = Width*Height*3;\r
+       if(CurFrameId-i>1)      memmove(GG+i*n, GG+i*n+n, n*(CurFrameId-i-1));\r
+       mglCanvas::DelFrame(i);\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::SetDrawFunc(int (*draw)(mglBase *gr, void *p), void *par, void (*reload)(void *p))\r
+{\r
+       ResetFrames();\r
+       if(get(MGL_CLF_ON_UPD)) DefaultPlotParam();\r
+       setlocale(LC_NUMERIC, "C");\r
+       // use frames for quickly redrawing while adding/changing primitives\r
+       if(get(MGL_VECT_FRAME) && !(GetQuality()&4))    NewFrame();\r
+\r
+       int n = draw ? draw(this,par) : 0;\r
+       if(n<NumFig && n>=0)    NumFig = n;\r
+       DrawFunc = draw;                FuncPar = par;\r
+       LoadFunc = reload;\r
+\r
+       if(get(MGL_VECT_FRAME) && !(GetQuality()&4))    EndFrame();\r
+       setlocale(LC_NUMERIC, "");\r
+}\r
+//-----------------------------------------------------------------------------\r
+const unsigned char *mglCanvasWnd::GetBits()\r
+{\r
+       const unsigned char *g = mglCanvas::GetBits();\r
+       if(GG && NumFig>0 && CurFig<NumFig && CurFig>=0 && !get(MGL_VECT_FRAME))\r
+               g = GG + CurFig*Width*Height*3;\r
+       return g;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWnd::ReLoad()\r
+{\r
+       if(LoadFunc)\r
+       {\r
+               LoadFunc(FuncPar);\r
+               // update number of slides\r
+               ResetFrames();\r
+               setlocale(LC_NUMERIC, "C");\r
+               // use frames for quickly redrawing while adding/changing primitives\r
+               if(get(MGL_VECT_FRAME) && !(GetQuality()&4))    NewFrame();\r
+               \r
+               int n = DrawFunc ? DrawFunc(this,FuncPar) : 0;\r
+               if(n<NumFig && n>=0)    NumFig = n;\r
+               \r
+               if(get(MGL_VECT_FRAME) && !(GetQuality()&4))    EndFrame();\r
+               setlocale(LC_NUMERIC, "");\r
+               Update();\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_wnd_toggle_alpha(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleAlpha();       }\r
+void mgl_wnd_toggle_light(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleLight();       }\r
+void mgl_wnd_toggle_zoom(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleZoom();        }\r
+void mgl_wnd_toggle_rotate(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleRotate();      }\r
+void mgl_wnd_toggle_no(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleNo();  }\r
+void mgl_wnd_update(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Update();    }\r
+void mgl_wnd_reload(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ReLoad();    }\r
+void mgl_wnd_adjust(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Adjust();    }\r
+void mgl_wnd_next_frame(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->NextFrame(); }\r
+void mgl_wnd_prev_frame(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->PrevFrame(); }\r
+void mgl_wnd_animation(HMGL gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Animation(); }\r
+void mgl_setup_window(HMGL gr, int clf_upd, int showpos)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Setup(clf_upd, showpos);     }\r
+void mgl_set_click_func(HMGL gr, void (*func)(void *p))\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ClickFunc = func;    }\r
+void mgl_get_last_mouse_pos(HMGL gr, mreal *x, mreal *y, mreal *z)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);\r
+       mglPoint p;     if(g)   p=g->GetMousePos();\r
+       *x=p.x; *y=p.y; *z=p.z; }\r
+//-----------------------------------------------------------------------------\r
+void mgl_wnd_toggle_alpha_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ToggleAlpha();       }\r
+void mgl_wnd_toggle_light_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ToggleLight();       }\r
+void mgl_wnd_toggle_zoom_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ToggleZoom();        }\r
+void mgl_wnd_toggle_rotate_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ToggleRotate();      }\r
+void mgl_wnd_toggle_no_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ToggleNo();  }\r
+void mgl_wnd_update_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->Update();    }\r
+void mgl_wnd_reload_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->ReLoad();    }\r
+void mgl_wnd_adjust_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->Adjust();    }\r
+void mgl_wnd_next_frame_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->NextFrame(); }\r
+void mgl_wnd_prev_frame_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->PrevFrame(); }\r
+void mgl_wnd_animation_(uintptr_t *gr)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->Animation(); }\r
+void mgl_setup_window_(uintptr_t *gr, int *clf_upd, int *showpos)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       if(g)   g->Setup(*clf_upd, *showpos);   }\r
+void mgl_get_last_mouse_pos_(uintptr_t *gr, mreal *x, mreal *y, mreal *z)\r
+{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
+       mglPoint p;     if(g)   p=g->GetMousePos();\r
+       *x=p.x; *y=p.y; *z=p.z; }\r
+//-----------------------------------------------------------------------------\r
+//\r
+//     mglDraw class handling\r
+//\r
+//-----------------------------------------------------------------------------\r
+/*int mgl_draw_class(HMGL gr, void *p) // so stupid way to save mglDraw class inheritance :(\r
+{\r
+       mglGraph g(gr); mglWindow *w = (mglWindow *)p;\r
+       return (w && w->dr) ? w->dr->Draw(&g) : 0;\r
+}\r
+void mgl_reload_class(void *p) // so stupid way to save mglDraw class inheritance :(\r
+{      mglWindow *w = (mglWindow *)p;  if(w && w->dr)  w->dr->Reload();}\r
+void mgl_click_class(void *p)  // so stupid way to save mglDraw class inheritance :(\r
+{      mglWindow *w = (mglWindow *)p;  if(w && w->dr)  w->dr->Click(); }*/\r
+int mgl_draw_class(HMGL gr, void *p)\r
+{      mglGraph g(gr); mglDraw *dr = (mglDraw *)p;     return dr->Draw(&g);    }\r
+void mgl_reload_class(void *p)\r
+{      mglDraw *dr = (mglDraw *)p;     dr->Reload();   }\r
+void mgl_click_class(void *p)\r
+{      mglDraw *dr = (mglDraw *)p;     dr->Click();            }\r
+//-----------------------------------------------------------------------------\r
+typedef int (*draw_func)(mglGraph *gr);\r
+int mgl_draw_graph(HMGL gr, void *p)\r
+{\r
+       mglGraph g(gr);\r
+       draw_func func = (draw_func)(p);\r
+       return func ? func(&g) : 0;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void *mgl_draw_calc(void *p)\r
+{\r
+#if MGL_HAVE_PTHREAD\r
+       ((mglDraw *)p)->Calc();\r
+#endif\r
+       return 0;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mgl_draw_thr(void *p)\r
+{\r
+#if MGL_HAVE_PTHREAD\r
+       mglDraw *d = (mglDraw *)p;\r
+       if(!d || d->running)    return;\r
+       pthread_create(&(d->thr),0,mgl_draw_calc,d);\r
+       pthread_detach(d->thr);\r
+#endif\r
+}\r
+//-----------------------------------------------------------------------------\r

diff --git a/texinfo/CMakeLists.txt b/texinfo/CMakeLists.txt
index b3afc0f2f6b407c163e9effbde323d2606163a5d..299b4d88cd95f632f2e10b4c5a0f747c6dde30e9 100644 (file)
--- a/texinfo/CMakeLists.txt
+++ b/texinfo/CMakeLists.txt
@@ -2,21 +2,32 @@ if(MGL_HAVE_DOC)
        set(MGL_PNG alpha area aspect axial axis barh bars belt boxplot
                box boxs candle chart cloud colorbar combined cones conta contd
                contfa contf contf_xyz cont contv cont_xyz curvcoor cut dat_diff
-               dat_extra densa dens dens_xyz dew dots error fall fit flow
+               dat_extra densa dens dens_xyz dew dots error fall fit flow fonts
                fog grad hist inplot label legend loglog map mark mesh mirror
-               molecule parser pde pipe plot primitives qo2d radar region schemes
-               several_light stem step stereo stfa style surf3a surf3c surf3
-               surfa surfc surf tape tens ternary textmark text ticks tile
-               tiles torus traj triangulation triplot tube type0 type1 type2 vect venn )
+               molecule parser pde pipe plot primitives projection qo2d radar region schemes
+               several_light solve stem step stereo stfa style surf3a surf3c surf3
+               surfa surfc surf table tape tens ternary textmark text ticks tile tiles
+               torus traj triangulation triplot tube type0 type1 type2 vect vecta venn
+               projection5 )
        set(MGL_PNG_N )
        set(MGL_PNG_S )
+       set(MGL_PNG_J )
 
        set(MGL_OUT ${CMAKE_BINARY_DIR}/texinfo)
        set(MGL_TEX ${CMAKE_SOURCE_DIR}/texinfo)
+       file(MAKE_DIRECTORY ${MGL_OUT}/udav)
        file(MAKE_DIRECTORY ${MGL_OUT}/png)
        file(MAKE_DIRECTORY ${MGL_OUT}/small)
-       file(COPY ${MGL_TEX}/qt.png ${MGL_TEX}/fltk.png ${MGL_TEX}/classes.png DESTINATION ${MGL_OUT})
-       file(COPY ${MGL_TEX}/toc_ru.html ${MGL_TEX}/toc_fr.html ${MGL_TEX}/toc_en.html ${MGL_TEX}/title.html ${MGL_TEX}/index.html DESTINATION ${MGL_OUT})
+       file(MAKE_DIRECTORY ${MGL_OUT}/json)
+       file(COPY ${MGL_TEX}/qt.png ${MGL_TEX}/fltk.png ${MGL_TEX}/classes.png ${MGL_TEX}/emblem_sm.png ${MGL_TEX}/datadvance.png DESTINATION ${MGL_OUT})
+       file(COPY ${MGL_TEX}/toc_ru.html ${MGL_TEX}/toc_fr.html ${MGL_TEX}/toc_en.html ${MGL_TEX}/title.html ${MGL_TEX}/index.html ${MGL_TEX}/json.html ${MGL_TEX}/mathgl.js DESTINATION ${MGL_OUT})
+
+       set(UDAV_IMG udav_arg.png udav_calc.png udav_cmd.png udav_data.png 
+               udav_gen_set.png udav_help.png udav_light.png udav_main.png udav_opt.png
+               udav_pen.png udav_prop.png udav_sch.png udav_txt.png udav_var.png)
+       foreach(SAMPLE ${UDAV_IMG})
+               file(COPY ${MGL_TEX}/udav/${SAMPLE} DESTINATION ${MGL_OUT}/udav/)
+       endforeach(SAMPLE)
 
        foreach(SAMPLE ${MGL_PNG})
                set(MGL_PNG_N ${MGL_PNG_N} ${MGL_OUT}/png/${SAMPLE}.png)
@@ -29,12 +40,17 @@ if(MGL_HAVE_DOC)
                        COMMAND ${CMAKE_BINARY_DIR}/examples/mgl_example -kind=${SAMPLE} -mini
                        DEPENDS mgl_example
                        WORKING_DIRECTORY ${MGL_OUT}/small )
+               set(MGL_PNG_J ${MGL_PNG_J} ${MGL_OUT}/json/${SAMPLE}.json)
+               add_custom_command(OUTPUT ${MGL_OUT}/json/${SAMPLE}.json
+                       COMMAND ${CMAKE_BINARY_DIR}/examples/mgl_example -json -kind=${SAMPLE}
+                       DEPENDS mgl_example
+                       WORKING_DIRECTORY ${MGL_OUT}/json )
        endforeach(SAMPLE)
 
-       set(list_texi_files_en mathgl_en.texi mgl_en.texi overview_en.texi example_en.texi ex_mgl_en.texi parse_en.texi
-               core_en.texi concept_en.texi widget_en.texi data_en.texi other_en.texi appendix_en.texi fdl.texi)
-       set(list_texi_files_ru mathgl_ru.texi mgl_ru.texi overview_ru.texi example_ru.texi ex_mgl_ru.texi parse_ru.texi
-               core_ru.texi concept_ru.texi widget_ru.texi data_ru.texi other_ru.texi appendix_ru.texi fdl.texi)
+       set(list_texi_files_en overview_en.texi example_en.texi ex_mgl_en.texi parse_en.texi formats_en.texi udav_en.texi symbols_en.texi
+               core_en.texi concept_en.texi widget_en.texi data_en.texi other_en.texi appendix_en.texi fdl.texi )
+       set(list_texi_files_ru overview_ru.texi example_ru.texi ex_mgl_ru.texi parse_ru.texi formats_ru.texi udav_ru.texi symbols_ru.texi
+               core_ru.texi concept_ru.texi widget_ru.texi data_ru.texi other_ru.texi appendix_ru.texi fdl.texi )
 
        add_custom_command(OUTPUT ${MGL_OUT}/web_en.pdf
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/web_en.texi
@@ -45,28 +61,28 @@ if(MGL_HAVE_DOC)
        )
        add_custom_command(OUTPUT ${MGL_OUT}/web_en/web_en.html
                COMMAND ${findth} -I=${MGL_OUT}/png --split=section -o web_en ${MGL_TEX}/web_en.texi
-               DEPENDS web_en.texi ${MGL_PNG_S}
+               DEPENDS web_en.texi ${MGL_PNG_S} ${MGL_PNG_J}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
        add_custom_command(OUTPUT ${MGL_OUT}/mathgl_en.info
                COMMAND ${findmi} --no-validate ${MGL_TEX}/mathgl_en.texi
-               DEPENDS ${list_texi_files_en} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_en} mathgl_en.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/mathgl_en/mathgl_en.html
                COMMAND ${findth} -I=${MGL_OUT}/png --split=section -o mathgl_en ${MGL_TEX}/mathgl_en.texi
-               DEPENDS ${list_texi_files_en} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_en} mathgl_en.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/doc_en/doc_en.html
-               COMMAND ${findth} -I=${MGL_OUT}/png --split=node --frames -o doc_en ${MGL_TEX}/doc_en.texi
-               DEPENDS ${list_texi_files_en} ${MGL_PNG_N}
+               COMMAND ${findth} -I=${MGL_OUT}/png --split=section --frames -o doc_en ${MGL_TEX}/doc_en.texi
+               DEPENDS ${list_texi_files_en} doc_en.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/mgl_en.html
-               COMMAND ${findth} -I=${MGL_OUT}/png --split=no -o mgl_en.html ${MGL_TEX}/mgl_en.texi
-               DEPENDS ${list_texi_files_en} ${MGL_PNG_N}
+               COMMAND ${findth} -I=${MGL_OUT} --split=no -o mgl_en.html ${MGL_TEX}/mgl_en.texi
+               DEPENDS ${list_texi_files_en} mgl_en.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
@@ -74,7 +90,15 @@ if(MGL_HAVE_DOC)
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_en.texi
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_en.texi
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_en.texi
-               DEPENDS ${list_texi_files_en} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_en} mathgl_en.texi ${MGL_PNG_N}
+               WORKING_DIRECTORY ${MGL_OUT}
+       )
+
+       add_custom_command(OUTPUT ${MGL_OUT}/mgl_en.pdf
+               COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mgl_en.texi
+               COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mgl_en.texi
+               COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mgl_en.texi
+               DEPENDS ${list_texi_files_en} mgl_en.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
@@ -87,28 +111,28 @@ if(MGL_HAVE_DOC)
        )
        add_custom_command(OUTPUT ${MGL_OUT}/web_ru/web_ru.html
                COMMAND ${findth} -I=${MGL_OUT}/png --split=section -o web_ru ${MGL_TEX}/web_ru.texi
-               DEPENDS web_ru.texi ${MGL_PNG_S}
+               DEPENDS web_ru.texi ${MGL_PNG_S} ${MGL_PNG_J}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
        add_custom_command(OUTPUT ${MGL_OUT}/mathgl_ru.info
                COMMAND ${findmi} --no-validate ${MGL_TEX}/mathgl_ru.texi
-               DEPENDS ${list_texi_files_ru} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_ru} mathgl_ru.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/mathgl_ru/mathgl_ru.html
                COMMAND ${findth} -I=${MGL_OUT}/png --split=section -o mathgl_ru ${MGL_TEX}/mathgl_ru.texi
-               DEPENDS ${list_texi_files_ru} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_ru} mathgl_ru.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/doc_ru/doc_ru.html
-               COMMAND ${findth} -I=${MGL_OUT}/png --split=node --frames -o doc_ru ${MGL_TEX}/doc_ru.texi
-               DEPENDS ${list_texi_files_ru} ${MGL_PNG_N}
+               COMMAND ${findth} -I=${MGL_OUT}/png --split=section --frames -o doc_ru ${MGL_TEX}/doc_ru.texi
+               DEPENDS ${list_texi_files_ru} doc_ru.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
        add_custom_command(OUTPUT ${MGL_OUT}/mgl_ru.html
                COMMAND ${findth} -I=${MGL_OUT}/png --split=no -o mgl_ru.html ${MGL_TEX}/mgl_ru.texi
-               DEPENDS ${list_texi_files_ru} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_ru} mgl_ru.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
@@ -116,12 +140,13 @@ if(MGL_HAVE_DOC)
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_ru.texi
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_ru.texi
                COMMAND ${findtp} -I ${MGL_OUT}/png ${MGL_TEX}/mathgl_ru.texi
-               DEPENDS ${list_texi_files_ru} ${MGL_PNG_N}
+               DEPENDS ${list_texi_files_ru} mathgl_ru.texi ${MGL_PNG_N}
                WORKING_DIRECTORY ${MGL_OUT}
        )
 
        add_custom_target(documentation ALL
                DEPENDS ${MGL_OUT}/mathgl_en.info
+               DEPENDS ${MGL_OUT}/mgl_en.pdf
                DEPENDS ${MGL_OUT}/mathgl_en.pdf
                DEPENDS ${MGL_OUT}/mgl_en.html
                DEPENDS ${MGL_OUT}/mathgl_en/mathgl_en.html
@@ -134,18 +159,19 @@ if(MGL_HAVE_DOC)
                DEPENDS ${MGL_OUT}/mgl_ru.html
                DEPENDS ${MGL_OUT}/mathgl_ru/mathgl_ru.html
 
-#              DEPENDS ${MGL_OUT}/doc_ru/doc_ru.html
-#              DEPENDS ${MGL_OUT}/web_ru/web_ru.html
+               DEPENDS ${MGL_OUT}/doc_ru/doc_ru.html
+               DEPENDS ${MGL_OUT}/web_ru/web_ru.html
        )
 #      add_custom_target(clean
 #              COMMAND rm -f * */*
 #              WORKING_DIRECTORY ${MGL_OUT}
 #      )
-       set_directory_properties(PROPERTIES ADDITIONAL_MAKE_CLEAN_FILES "doc_en;mathgl_en;web_en;./mathgl*.*;small/*.*;png/*.*")
-       install(FILES ${MGL_TEX}/qt.png ${MGL_TEX}/fltk.png ${MGL_TEX}/classes.png DESTINATION ${MGL_DOC_PATH})
+       set_directory_properties(PROPERTIES ADDITIONAL_MAKE_CLEAN_FILES "doc_en;mathgl_en;web_en;./mathgl*.*;small/*.*;png/*.*;json/*.*")
+       install(FILES ${MGL_TEX}/qt.png ${MGL_TEX}/fltk.png ${MGL_TEX}/classes.png ${MGL_TEX}/datadvance.png DESTINATION ${MGL_DOC_PATH})
        install(FILES ${MGL_OUT}/mathgl_en.pdf ${MGL_OUT}/mgl_en.html DESTINATION ${MGL_DOC_PATH})
        install(DIRECTORY ${MGL_OUT}/mathgl_en DESTINATION ${MGL_DOC_PATH})
        install(DIRECTORY ${MGL_OUT}/png DESTINATION ${MGL_DOC_PATH})
+       install(DIRECTORY ${MGL_OUT}/udav DESTINATION ${MGL_DOC_PATH})
        install(FILES ${MGL_TEX}/mglconv.1 ${MGL_TEX}/mglview.1 DESTINATION ${MGL_MAN_PATH}/man1)
        install(FILES ${MGL_TEX}/mgl.5 DESTINATION ${MGL_MAN_PATH}/man5)
 # TODO: try to install all mathgl*.info* in future!!!

diff --git a/texinfo/classes.dia b/texinfo/classes.dia
new file mode 100644 (file)
index 0000000..04bf40d
Binary files /dev/null and b/texinfo/classes.dia differ

diff --git a/texinfo/classes.odg b/texinfo/classes.odg
deleted file mode 100644 (file)
index 4d245d2..0000000
Binary files a/texinfo/classes.odg and /dev/null differ

diff --git a/texinfo/classes.pdf b/texinfo/classes.pdf
index 666ff9da08b20ca266a2963f334824d67c52cf03..db68b627132da4f0a3b50809fcffe66ee81dfd83 100644 (file)
Binary files a/texinfo/classes.pdf and b/texinfo/classes.pdf differ

diff --git a/texinfo/classes.png b/texinfo/classes.png
index 6976dfb0e376bc9d1d0bbe8cf097914993088145..a52e30390ef14a14e5094fe90fe0877a6558f81b 100644 (file)
Binary files a/texinfo/classes.png and b/texinfo/classes.png differ

diff --git a/texinfo/concept_en.texi b/texinfo/concept_en.texi
index 05244319221294f846260a199a3eb7950591fee1..9cd7f4da77f1d5c6a5e9a482822e435dadefa421 100644 (file)
--- a/texinfo/concept_en.texi
+++ b/texinfo/concept_en.texi
@@ -54,7 +54,7 @@ The form (appearence) of tick labels is controlled by @code{SetTicks()} function
 Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 @ifhtml
 @html
-<p>The color types are: &lsquo;<samp>k</samp>&rsquo; -- black, &lsquo;<samp>r</samp>&rsquo; -- <span style="color: rgb(255, 0, 0);">red</span>, &lsquo;<samp>R</samp>&rsquo; -- <span style="color: rgb(127, 0, 0);">dark red</span>, &lsquo;<samp>g</samp>&rsquo; -- <span style="color: rgb(0, 255, 0);">green</span>, &lsquo;<samp>G</samp>&rsquo; -- <span style="color: rgb(0, 127, 0);">dark green</span>, &lsquo;<samp>b</samp>&rsquo; -- <span style="color: rgb(0, 0, 255);">blue</span>, &lsquo;<samp>B</samp>&rsquo; -- <span style="color: rgb(0, 0, 127);">dark blue</span>, &lsquo;<samp>c</samp>&rsquo; -- <span style="color: rgb(0, 255, 255);">cyan</span>, &lsquo;<samp>C</samp>&rsquo; -- <span style="color: rgb(0, 127, 127);">dark cyan</span>, &lsquo;<samp>m</samp>&rsquo; -- <span style="color: rgb(255, 0, 255);">magenta</span>, &lsquo;<samp>M</samp>&rsquo; -- <span style="color: rgb(127, 0, 127);">dark magenta</span>, &lsquo;<samp>y</samp>&rsquo; -- <span style="color: rgb(255, 255, 0);">yellow</span>, &lsquo;<samp>Y</samp>&rsquo; -- <span style="color: rgb(127, 127, 0);">dark yellow (gold)</span>, &lsquo;<samp>h</samp>&rsquo; -- <span style="color: rgb(127, 127, 127);">gray</span>, &lsquo;<samp>H</samp>&rsquo; -- <span style="color: rgb(76, 76, 76);">dark gray</span>, &lsquo;<samp>w</samp>&rsquo; -- white, &lsquo;<samp>W</samp>&rsquo; -- <span style="color: rgb(178, 178, 178);">bright gray</span>, &lsquo;<samp>l</samp>&rsquo; -- <span style="color: rgb(0, 255, 127);">green-blue</span>, &lsquo;<samp>L</samp>&rsquo; -- <span style="color: rgb(0, 127, 63);">dark green-blue</span>, &lsquo;<samp>e</samp>&rsquo; -- <span style="color: rgb(127, 255, 0);">green-yellow</span>, &lsquo;<samp>E</samp>&rsquo; -- <span style="color: rgb(63, 127, 0);">dark green-yellow</span>, &lsquo;<samp>n</samp>&rsquo; -- <span style="color: rgb(0, 127, 255);">sky-blue</span>, &lsquo;<samp>N</samp>&rsquo; -- <span style="color: rgb(0, 63, 127);">dark sky-blue</span>, &lsquo;<samp>u</samp>&rsquo; -- <span style="color: rgb(127, 0, 255);">blue-violet</span>, &lsquo;<samp>U</samp>&rsquo; -- <span style="color: rgb(63, 0, 127);">dark blue-violet</span>, &lsquo;<samp>p</samp>&rsquo; -- <span style="color: rgb(255, 0, 127);">purple</span>, &lsquo;<samp>P</samp>&rsquo; -- <span style="color: rgb(127, 0, 63);">dark purple</span>, &lsquo;<samp>q</samp>&rsquo; -- <span style="color: rgb(255, 127, 0);">orange</span>, &lsquo;<samp>Q</samp>&rsquo; -- <span style="color: rgb(127, 63, 0);">dark orange (brown)</span>.</p>
+<p>The color types are: &lsquo;<samp>k</samp>&rsquo; &ndash; black, &lsquo;<samp>r</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 0);">red</span>, &lsquo;<samp>R</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 0);">dark red</span>, &lsquo;<samp>g</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 0);">green</span>, &lsquo;<samp>G</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 0);">dark green</span>, &lsquo;<samp>b</samp>&rsquo; &ndash; <span style="color: rgb(0, 0, 255);">blue</span>, &lsquo;<samp>B</samp>&rsquo; &ndash; <span style="color: rgb(0, 0, 127);">dark blue</span>, &lsquo;<samp>c</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 255);">cyan</span>, &lsquo;<samp>C</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 127);">dark cyan</span>, &lsquo;<samp>m</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 255);">magenta</span>, &lsquo;<samp>M</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 127);">dark magenta</span>, &lsquo;<samp>y</samp>&rsquo; &ndash; <span style="color: rgb(255, 255, 0);">yellow</span>, &lsquo;<samp>Y</samp>&rsquo; &ndash; <span style="color: rgb(127, 127, 0);">dark yellow (gold)</span>, &lsquo;<samp>h</samp>&rsquo; &ndash; <span style="color: rgb(127, 127, 127);">gray</span>, &lsquo;<samp>H</samp>&rsquo; &ndash; <span style="color: rgb(76, 76, 76);">dark gray</span>, &lsquo;<samp>w</samp>&rsquo; &ndash; white, &lsquo;<samp>W</samp>&rsquo; &ndash; <span style="color: rgb(178, 178, 178);">bright gray</span>, &lsquo;<samp>l</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 127);">green-blue</span>, &lsquo;<samp>L</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 63);">dark green-blue</span>, &lsquo;<samp>e</samp>&rsquo; &ndash; <span style="color: rgb(127, 255, 0);">green-yellow</span>, &lsquo;<samp>E</samp>&rsquo; &ndash; <span style="color: rgb(63, 127, 0);">dark green-yellow</span>, &lsquo;<samp>n</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 255);">sky-blue</span>, &lsquo;<samp>N</samp>&rsquo; &ndash; <span style="color: rgb(0, 63, 127);">dark sky-blue</span>, &lsquo;<samp>u</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 255);">blue-violet</span>, &lsquo;<samp>U</samp>&rsquo; &ndash; <span style="color: rgb(63, 0, 127);">dark blue-violet</span>, &lsquo;<samp>p</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 127);">purple</span>, &lsquo;<samp>P</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 63);">dark purple</span>, &lsquo;<samp>q</samp>&rsquo; &ndash; <span style="color: rgb(255, 127, 0);">orange</span>, &lsquo;<samp>Q</samp>&rsquo; &ndash; <span style="color: rgb(127, 63, 0);">dark orange (brown)</span>.</p>
 @end html
 @end ifhtml
 @ifnothtml
@@ -63,6 +63,16 @@ The color types are: @samp{k} -- black, @samp{r} -- red, @samp{R} -- dark red, @
 
 You can also use ``bright'' colors. The ``bright'' color contain 2 symbols in brackets @samp{@{cN@}}: first one is the usual symbol for color id, the second one is a digit for its brightness. The digit can be in range @samp{1}...@samp{9}. Number @samp{5} corresponds to a normal color, @samp{1} is a very dark version of the color (practically black), and @samp{9} is a very bright version of the color (practically white). For example, the colors can be @samp{@{b2@}} @samp{@{b7@}} @samp{@{r7@}} and so on.
 
+Finally, you can specify RGB or RGBA values of a color using format @samp{@{xRRGGBB@}} or @samp{@{xRRGGBBAA@}} correspondingly. For example, @samp{@{xFF9966@}} give you 
+@ifhtml
+@html
+<span style="color: rgb(255, 153, 102);">melone</span> color.
+@end html
+@end ifhtml
+@ifnothtml
+melone color.
+@end ifnothtml
+
 @c ------------------------------------------------------------------
 @external
 @node Line styles, Color scheme, Color styles, General concepts
@@ -77,7 +87,7 @@ The line style is defined by the string which may contain specifications for col
 @html
 By default palette contain following colors: <span style="color: rgb(76, 76, 76);">dark gray</span> &lsquo;<samp>H</samp>&rsquo;, <span style="color: rgb(0, 0, 255);">blue</span> &lsquo;<samp>b</samp>&rsquo;, <span style="color: rgb(0, 255, 0);">green</span> &lsquo;<samp>g</samp>&rsquo;, <span style="color: rgb(255, 0, 0);">red</span> &lsquo;<samp>r</samp>&rsquo;, <span style="color: rgb(0, 255, 255);">cyan</span> &lsquo;<samp>c</samp>&rsquo;, <span style="color: rgb(255, 0, 255);">magenta</span> &lsquo;<samp>m</samp>&rsquo;, <span style="color: rgb(255, 255, 0);">yellow</span> &lsquo;<samp>y</samp>&rsquo;, <span style="color: rgb(127, 127, 127);">gray</span> &lsquo;<samp>h</samp>&rsquo;, <span style="color: rgb(0, 255, 127);">green-blue</span> &lsquo;<samp>l</samp>&rsquo;, <span style="color: rgb(0, 127, 255);">sky-blue</span> &lsquo;<samp>n</samp>&rsquo;, <span style="color: rgb(255, 127, 0);">orange</span> &lsquo;<samp>q</samp>&rsquo;, <span style="color: rgb(127, 255, 0);">green-yellow</span> &lsquo;<samp>e</samp>&rsquo;, <span style="color: rgb(127, 0, 255);">blue-violet</span> &lsquo;<samp>u</samp>&rsquo;, <span style="color: rgb(255, 0, 127);">purple</span> &lsquo;<samp>p</samp>&rsquo;.
 
-<p>Dashing style has the following meaning: space -- no line (usable for plotting only marks), &lsquo;<samp>-</samp>&rsquo; -- solid line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;), &lsquo;<samp>|</samp>&rsquo; -- long dashed line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>;</samp>&rsquo; -- dashed line (&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>=</samp>&rsquo; -- small dashed line (&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;), &lsquo;<samp>:</samp>&rsquo; -- dotted line (&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;), &lsquo;<samp>j</samp>&rsquo; -- dash-dotted line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>i</samp>&rsquo; -- small dash-dotted line (&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;).</p>
+<p>Dashing style has the following meaning: space &ndash; no line (usable for plotting only marks), &lsquo;<samp>-</samp>&rsquo; &ndash; solid line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;), &lsquo;<samp>|</samp>&rsquo; &ndash; long dashed line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>;</samp>&rsquo; &ndash; dashed line (&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>=</samp>&rsquo; &ndash; small dashed line (&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;), &lsquo;<samp>:</samp>&rsquo; &ndash; dotted line (&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;), &lsquo;<samp>j</samp>&rsquo; &ndash; dash-dotted line (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>i</samp>&rsquo; &ndash; small dash-dotted line (&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;).</p>
 @end html
 @end ifhtml
 @ifnothtml
@@ -105,6 +115,8 @@ The final color is a linear interpolation of color array. The color array is con
 
 There are several useful combinations. String @samp{kw} corresponds to the simplest gray color scheme where higher values are brighter. String @samp{wk} presents the inverse gray color scheme where higher value is darker. Strings @samp{kRryw}, @samp{kGgw}, @samp{kBbcw} present the well-known @emph{hot}, @emph{summer} and @emph{winter} color schemes. Strings @samp{BbwrR} and @samp{bBkRr} allow to view bi-color figure on white or black background, where negative values are blue and positive values are red. String @samp{BbcyrR} gives a color scheme similar to the well-known @emph{jet} color scheme.
 
+For more precise coloring, you can change default (equidistant) position of colors in color scheme. The format is @samp{@{CN,pos@}}, @samp{@{CN,pos@}} or @samp{@{xRRGGBB,pos@}}. The position value @var{pos} should be in range [0, 1]. Note, that alternative method for fine tuning of the color scheme is using the formula for coloring (see @ref{Curved coordinates}).
+
 @pfig{schemes, Most popular color schemes.}
 
 When coloring by @emph{coordinate} (used in @ref{map}), the final color is determined by the position of the point in 3d space and is calculated from formula c=x*c[1] + y*c[2]. Here, c[1], c[2] are the first two elements of color array; x, y are normalized to axis range coordinates of the point.
@@ -209,7 +221,7 @@ There is no difference between lower or upper case in formulas. If argument valu
 
 Command options allow the easy setup of the selected plot by changing global settings only for this plot. Each option start from symbol @samp{;}. Options work so that MathGL remember the current settings, change settings as it being set in the option, execute function and return the original settings back. So, the options are most usable for plotting functions.
 
-The most useful options are @code{xrange, yrange, zrange}. They sets the boundaries for data change. This boundaries are used for automatically filled variables. So, these options allow one to change the position of some plots. For example, in command @code{Plot(y,"","xrange 0.1 0.9");} or @code{plot y; xrange 0.1 0.9} the x coordinate will be equidistantly distributed in range 0.1 ... 0.9.
+The most useful options are @code{xrange, yrange, zrange}. They sets the boundaries for data change. This boundaries are used for automatically filled variables. So, these options allow one to change the position of some plots. For example, in command @code{Plot(y,"","xrange 0.1 0.9");} or @code{plot y; xrange 0.1 0.9} the x coordinate will be equidistantly distributed in range 0.1 ... 0.9.  @sref{Using options}
 
 The full list of options are:
 @cindex alpha
@@ -217,14 +229,14 @@ The full list of options are:
 @deffn {MGL option} alpha @code{val}
 Sets alpha value (transparency) of the plot. The value should be in range [0, 1]. See also @ref{alphadef}.
 @end deffn
-@cindex ambient
-@deffn {MGL option} ambient @code{val}
-Sets brightness of ambient light for the plot. The value should be in range [0, 1]. See also @ref{ambient}.
-@end deffn
-@cindex diffuse
-@deffn {MGL option} diffuse @code{val}
-Sets brightness of diffuse light for the plot. The value should be in range [0, 1]. See also @ref{diffuse}.
-@end deffn
+@c @cindex ambient
+@c @deffn {MGL option} ambient @code{val}
+@c Sets brightness of ambient light for the plot. The value should be in range [0, 1]. See also @ref{ambient}.
+@c @end deffn
+@c @cindex diffuse
+@c @deffn {MGL option} diffuse @code{val}
+@c Sets brightness of diffuse light for the plot. The value should be in range [0, 1]. See also @ref{diffuse}.
+@c @end deffn
 
 @cindex xrange
 @deffn {MGL option} xrange @code{val1 val2}
@@ -285,7 +297,7 @@ Finally, a special command language MGL (see @ref{MGL scripts}) was written for
 * C++ interface::
 @end menu
 
-@external
+@comment  @external
 @node C interface, C++ interface, , Interfaces
 @subsection C/Fortran interface
 
@@ -304,7 +316,7 @@ These variables contain identifiers for graphics drawing objects and for the dat
 
 Fortran functions/subroutines have the same names as C functions. However, there is a difference. Variable of type @code{HMGL, HMDT} must be an integer with sufficient size (@code{integer*4} in the 32-bit operating system or @code{integer*8} in the 64-bit operating system). All C functions are subroutines in Fortran, which are called by operator @code{call}. The exceptions are functions, which return variables of types @code{HMGL} or @code{HMDT}. These functions should be declared as integer in Fortran code. Also, one should keep in mind that strings in Fortran are denoted by @code{'} symbol, not the @code{"} symbol.
 
-@external
+@comment  @external
 @node C++ interface, , C interface, Interfaces
 @subsection C++/Python interface
 

diff --git a/texinfo/concept_ru.texi b/texinfo/concept_ru.texi
index 952511474f9f00b4cc37b9f7e0d19e316a34c24d..e90eef9222ef6bbda51d7d1dcf476b98e4a91fb2 100644 (file)
--- a/texinfo/concept_ru.texi
+++ b/texinfo/concept_ru.texi
@@ -52,7 +52,7 @@
 Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 @ifhtml
 @html
-<p>Символы цвета: &lsquo;<samp>k</samp>&rsquo; -- черный, &lsquo;<samp>r</samp>&rsquo; -- <span style="color: rgb(255, 0, 0);">красный</span>, &lsquo;<samp>R</samp>&rsquo; -- <span style="color: rgb(127, 0, 0);">темно красный</span>, &lsquo;<samp>g</samp>&rsquo; -- <span style="color: rgb(0, 255, 0);">зеленый</span>, &lsquo;<samp>G</samp>&rsquo; -- <span style="color: rgb(0, 127, 0);">темно зеленый</span>, &lsquo;<samp>b</samp>&rsquo; -- <span style="color: rgb(0, 0, 255);">синий</span>, &lsquo;<samp>B</samp>&rsquo; -- <span style="color: rgb(0, 0, 127);">темно синий</span>, &lsquo;<samp>c</samp>&rsquo; -- <span style="color: rgb(0, 255, 255);">голубой</span>, &lsquo;<samp>C</samp>&rsquo; -- <span style="color: rgb(0, 127, 127);">темно голубой</span>, &lsquo;<samp>m</samp>&rsquo; -- <span style="color: rgb(255, 0, 255);">пурпурный</span>, &lsquo;<samp>M</samp>&rsquo; -- <span style="color: rgb(127, 0, 127);">темно пурпурный</span>, &lsquo;<samp>y</samp>&rsquo; -- <span style="color: rgb(255, 255, 0);">желтый</span>, &lsquo;<samp>Y</samp>&rsquo; -- <span style="color: rgb(127, 127, 0);">темно желтый (золотой)</span>, &lsquo;<samp>h</samp>&rsquo; -- <span style="color: rgb(127, 127, 127);">серый</span>, &lsquo;<samp>H</samp>&rsquo; -- <span style="color: rgb(76, 76, 76);">темно серый</span>, &lsquo;<samp>w</samp>&rsquo; -- белый, &lsquo;<samp>W</samp>&rsquo; -- <span style="color: rgb(178, 178, 178);">светло серый</span>, &lsquo;<samp>l</samp>&rsquo; -- <span style="color: rgb(0, 255, 127);">сине-зеленый</span>, &lsquo;<samp>L</samp>&rsquo; -- <span style="color: rgb(0, 127, 63);">темно сине-зеленый</span>, &lsquo;<samp>e</samp>&rsquo; -- <span style="color: rgb(127, 255, 0);">желто-зеленый</span>, &lsquo;<samp>E</samp>&rsquo; -- <span style="color: rgb(63, 127, 0);">темно желто-зеленый</span>, &lsquo;<samp>n</samp>&rsquo; -- <span style="color: rgb(0, 127, 255);">небесно-синий</span>, &lsquo;<samp>N</samp>&rsquo; -- <span style="color: rgb(0, 63, 127);">темно небесно-синий</span>, &lsquo;<samp>u</samp>&rsquo; -- <span style="color: rgb(127, 0, 255);">сине-фиолетовый</span>, &lsquo;<samp>U</samp>&rsquo; -- <span style="color: rgb(63, 0, 127);">темно сине-фиолетовый</span>, &lsquo;<samp>p</samp>&rsquo; -- <span style="color: rgb(255, 0, 127);">фиолетовый</span>, &lsquo;<samp>P</samp>&rsquo; -- <span style="color: rgb(127, 0, 63);">темно фиолетовый</span>, &lsquo;<samp>q</samp>&rsquo; -- <span style="color: rgb(255, 127, 0);">оранжевый</span>, &lsquo;<samp>Q</samp>&rsquo; -- <span style="color: rgb(127, 63, 0);">темно оранжевый (коричневый)</span>.</p>
+<p>Символы цвета: &lsquo;<samp>k</samp>&rsquo; &ndash; черный, &lsquo;<samp>r</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 0);">красный</span>, &lsquo;<samp>R</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 0);">темно красный</span>, &lsquo;<samp>g</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 0);">зеленый</span>, &lsquo;<samp>G</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 0);">темно зеленый</span>, &lsquo;<samp>b</samp>&rsquo; &ndash; <span style="color: rgb(0, 0, 255);">синий</span>, &lsquo;<samp>B</samp>&rsquo; &ndash; <span style="color: rgb(0, 0, 127);">темно синий</span>, &lsquo;<samp>c</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 255);">голубой</span>, &lsquo;<samp>C</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 127);">темно голубой</span>, &lsquo;<samp>m</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 255);">пурпурный</span>, &lsquo;<samp>M</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 127);">темно пурпурный</span>, &lsquo;<samp>y</samp>&rsquo; &ndash; <span style="color: rgb(255, 255, 0);">желтый</span>, &lsquo;<samp>Y</samp>&rsquo; &ndash; <span style="color: rgb(127, 127, 0);">темно желтый (золотой)</span>, &lsquo;<samp>h</samp>&rsquo; &ndash; <span style="color: rgb(127, 127, 127);">серый</span>, &lsquo;<samp>H</samp>&rsquo; &ndash; <span style="color: rgb(76, 76, 76);">темно серый</span>, &lsquo;<samp>w</samp>&rsquo; &ndash; белый, &lsquo;<samp>W</samp>&rsquo; &ndash; <span style="color: rgb(178, 178, 178);">светло серый</span>, &lsquo;<samp>l</samp>&rsquo; &ndash; <span style="color: rgb(0, 255, 127);">сине-зеленый</span>, &lsquo;<samp>L</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 63);">темно сине-зеленый</span>, &lsquo;<samp>e</samp>&rsquo; &ndash; <span style="color: rgb(127, 255, 0);">желто-зеленый</span>, &lsquo;<samp>E</samp>&rsquo; &ndash; <span style="color: rgb(63, 127, 0);">темно желто-зеленый</span>, &lsquo;<samp>n</samp>&rsquo; &ndash; <span style="color: rgb(0, 127, 255);">небесно-синий</span>, &lsquo;<samp>N</samp>&rsquo; &ndash; <span style="color: rgb(0, 63, 127);">темно небесно-синий</span>, &lsquo;<samp>u</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 255);">сине-фиолетовый</span>, &lsquo;<samp>U</samp>&rsquo; &ndash; <span style="color: rgb(63, 0, 127);">темно сине-фиолетовый</span>, &lsquo;<samp>p</samp>&rsquo; &ndash; <span style="color: rgb(255, 0, 127);">фиолетовый</span>, &lsquo;<samp>P</samp>&rsquo; &ndash; <span style="color: rgb(127, 0, 63);">темно фиолетовый</span>, &lsquo;<samp>q</samp>&rsquo; &ndash; <span style="color: rgb(255, 127, 0);">оранжевый</span>, &lsquo;<samp>Q</samp>&rsquo; &ndash; <span style="color: rgb(127, 63, 0);">темно оранжевый (коричневый)</span>.</p>
 @end html
 @end ifhtml
 @ifnothtml
@@ -61,6 +61,16 @@ Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 
 В цветовой схеме можно использовать тональные (``подсвеченные'') цвета. Тональный цвет задается двумя символами в фигурных скобках @samp{@{cN@}: первый -- обычный цвет, второй -- его яркость цифрой. Цифра может быть в диапазоне @samp{1}...@samp{9}. При этом @samp{5} соответствует нормальному цвету, @samp{1} -- очень темная версия цвета (почти черный), @samp{9} -- очень светлая версия цвета (почти белый). Например, цвета могут быть @samp{@{b2@}} @samp{@{b7@}} @samp{@{r7@}} и т.д.
 
+Наконец, можно указать явно RGB или RGBA значения цвета, используя формат @samp{@{xRRGGBB@}} или @samp{@{xRRGGBBAA@}} соответственно. Например, @samp{@{xFF9966@}} даст цвет
+@ifhtml
+@html
+<span style="color: rgb(255, 153, 102);">дыни</span>.
+@end html
+@end ifhtml
+@ifnothtml
+дыни.
+@end ifnothtml
+
 @c ------------------------------------------------------------------
 @external
 @node Line styles, Color scheme, Color styles, General concepts
@@ -75,7 +85,7 @@ Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 @html
 По умолчанию палитры содержит следующие цвета: <span style="color: rgb(76, 76, 76);">темно серый</span> &lsquo;<samp>H</samp>&rsquo;, <span style="color: rgb(0, 0, 255);">синий</span> &lsquo;<samp>b</samp>&rsquo;, <span style="color: rgb(0, 255, 0);">зеленый</span> &lsquo;<samp>g</samp>&rsquo;, <span style="color: rgb(255, 0, 0);">красный</span> &lsquo;<samp>r</samp>&rsquo;, <span style="color: rgb(0, 255, 255);">голубой</span> &lsquo;<samp>c</samp>&rsquo;, <span style="color: rgb(255, 0, 255);">пурпурный</span> &lsquo;<samp>m</samp>&rsquo;, <span style="color: rgb(255, 255, 0);">yellow</span> &lsquo;<samp>y</samp>&rsquo;, <span style="color: rgb(127, 127, 127);">серый</span> &lsquo;<samp>h</samp>&rsquo;, <span style="color: rgb(0, 255, 127);">сине-зеленый</span> &lsquo;<samp>l</samp>&rsquo;, <span style="color: rgb(0, 127, 255);">небесно-синий</span> &lsquo;<samp>n</samp>&rsquo;, <span style="color: rgb(255, 127, 0);">оранжевый</span> &lsquo;<samp>q</samp>&rsquo;, <span style="color: rgb(127, 255, 0);">желто-зеленый</span> &lsquo;<samp>e</samp>&rsquo;, <span style="color: rgb(127, 0, 255);">сине-фиолетовый</span> &lsquo;<samp>u</samp>&rsquo;, <span style="color: rgb(255, 0, 127);">фиолетовый</span> &lsquo;<samp>p</samp>&rsquo;.
 
-<p>Тип пунктира: пробел -- нет линии (для рисования только маркеров), &lsquo;<samp>-</samp>&rsquo; -- сплошная линия (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;), &lsquo;<samp>|</samp>&rsquo; -- длинный пунктир (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>;</samp>&rsquo; -- пунктир (&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>=</samp>&rsquo; -- короткий пунктир (&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;), &lsquo;<samp>:</samp>&rsquo; -- точки (&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;), &lsquo;<samp>j</samp>&rsquo; -- пунктир с точками  (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>i</samp>&rsquo; -- мелкий пунктир с точками (&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;).</p>
+<p>Тип пунктира: пробел &ndash; нет линии (для рисования только маркеров), &lsquo;<samp>-</samp>&rsquo; &ndash; сплошная линия (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;), &lsquo;<samp>|</samp>&rsquo; &ndash; длинный пунктир (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>;</samp>&rsquo; &ndash; пунктир (&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>=</samp>&rsquo; &ndash; короткий пунктир (&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;&#9632;&#9632;&#9633;&#9633;), &lsquo;<samp>:</samp>&rsquo; &ndash; точки (&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;), &lsquo;<samp>j</samp>&rsquo; &ndash; пунктир с точками  (&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9632;&#9633;&#9633;&#9633;&#9633;&#9632;&#9633;&#9633;&#9633;&#9633;), &lsquo;<samp>i</samp>&rsquo; &ndash; мелкий пунктир с точками (&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;&#9632;&#9632;&#9632;&#9633;&#9633;&#9632;&#9633;&#9633;).</p>
 @end html
 @end ifhtml
 @ifnothtml
@@ -84,7 +94,7 @@ Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 Тип пунктира: пробел -- нет линии (для рисования только маркеров), @samp{-} -- сплошная линия (################), @samp{|} -- длинный пунктир (########________), @samp{;} -- пунктир (####____####____), @samp{=} -- короткий пунктир (##__##__##__##__), @samp{:} -- точки (#___#___#___#___), @samp{j} -- пунктир с точками  (#######____#____), @samp{i} -- мелкий пунктир с точками (###__#__###__#__).
 @end ifnothtml
 
-Типы маркеров: @samp{o} -- окружность, @samp{+} -- крест, @samp{x} -- косой крест, @samp{s} - квадрат, @samp{d} - ромб, @samp{.} -- точка, @samp{^} -- треугольник вверх, @samp{v} -- треугольник вниз, @samp{<} -- треугольник влево, @samp{>} -- треугольник вправо, @samp{#*} -- знак Y, @samp{#+} -- крест в квадрате, @samp{#x} -- косой крест в квадрате, @samp{#.} -- точка в окружности. Если в строке присутствует символ @samp{#}, то используются символы с заполнением.
+Типы маркеров: @samp{o} -- окружность, @samp{+} -- крест, @samp{x} -- косой крест, @samp{s} -- квадрат, @samp{d} - ромб, @samp{.} -- точка, @samp{^} -- треугольник вверх, @samp{v} -- треугольник вниз, @samp{<} -- треугольник влево, @samp{>} -- треугольник вправо, @samp{#*} -- знак Y, @samp{#+} -- крест в квадрате, @samp{#x} -- косой крест в квадрате, @samp{#.} -- точка в окружности. Если в строке присутствует символ @samp{#}, то используются символы с заполнением.
 
 На конце и в начале линии можно выводить специальный символ (стрелку), если в строке указать один из символов: @samp{A} -- стрелка наружу, @samp{V} -- стрелка внутрь, @samp{I} -- поперечная черта, @samp{K} -- стрелка с чертой, @samp{T} -- треугольник, @samp{S} -- квадрат, @samp{D} -- ромб, @samp{O} -- круг, @samp{_} -- нет стрелки (по умолчанию). При этом действует следующее правило: первый символ определяет стрелку на конце линии, второй символ -- стрелку в начале линии. Например, @samp{r-A} -- красная сплошная линия со стрелкой на конце, @samp{b|AI} -- синий пунктир со стрелкой на конце и чертой вначале, @samp{_O} -- линия с текущим стилем и кружком вначале. Эти стили действуют и при построении графиков (например, @ref{1D plotting}).
 
@@ -103,6 +113,8 @@ Base colors are defined by one of symbol @samp{wkrgbcymhRGBCYMHWlenupqLENUPQ}.
 
 Есть несколько полезных цветовых схем. Строка @samp{kw} дает обычную серую (черно-белую) схему, когда большие значения светлее. Строка @samp{wk} представляет обратную серую схему, когда большие значения темнее. Строки @samp{kRryw}, @samp{kGgw}, @samp{kBbcw} представляют собой хорошо известные схемы @emph{hot}, @emph{summer} и @emph{winter}. Строки @samp{BbwrR} и @samp{bBkRr} позволяют рисовать двухцветные фигуры на белом или черном фоне, когда отрицательные значения показаны синим цветом, а положительные -- красным. Строка @samp{BbcyrR} дает цветовую схему, близкую к хорошо известной схеме @emph{jet}.
 
+Для более точно раскрашивания поверхностей можно изменить равномерное (по умолчанию) положение цветов в цветовой схеме. Формат следующий: @samp{@{CN,pos@}}, @samp{@{CN,pos@}} или @samp{@{xRRGGBB,pos@}}. Здесь значение @var{pos} положения цвета должно быть в диапазоне [0, 1]. Отмечу, что альтернативным механизмом тонкой настройки цветовой схемы может служить использование формул для цветовой координаты (см. @ref{Curved coordinates}).
+
 @pfig{schemes, Most popular color schemes.}
 
 При определении цвета по @emph{положению точки в пространстве} (используется в @ref{map}) окончательный цвет определяется по формуле c=x*c[1] + y*c[2]. Здесь c[1], c[2] -- первые три цвета в цветовом массиве; x, y -- координаты точки, нормированные на @var{Min}x@var{Max}.
@@ -207,7 +219,7 @@ MathGL имеет быстрый парсер текстовых формул
 
 Опции команд позволяют легко настроить вид отдельного графика не меняя глобальных настроек для все рисунка. Каждая опция отделяется от предыдущей символом @samp{;}. Опции работают так, что запоминают текущие настройки рисунка, применяют собственные настройки, выполняют команду и возвращают глобальные настройки обратно. Поэтому использование опций для команд обработки данных или настройки графика бесполезно.
 
-Наиболее часто используемые опции -- @code{xrange, yrange, zrange}, устанавливают границы изменения осей координат (и тем самым автоматических массивов). Например, команда @code{Plot(y,"","xrange 0.1 0.9");} или @code{plot y; xrange 0.1 0.9} построит кривую с x-координатой равно распределенной в интервале 0.1 ... 0.9, а не вдоль текущей оси x.
+Наиболее часто используемые опции -- @code{xrange, yrange, zrange}, устанавливают границы изменения осей координат (и тем самым автоматических массивов). Например, команда @code{Plot(y,"","xrange 0.1 0.9");} или @code{plot y; xrange 0.1 0.9} построит кривую с x-координатой равно распределенной в интервале 0.1 ... 0.9, а не вдоль текущей оси x. @sref{Using options}
 
 Полный список опций:
 @cindex alpha
@@ -215,14 +227,14 @@ MathGL имеет быстрый парсер текстовых формул
 @deffn {Опция MGL} alpha @code{val}
 Задает величину прозрачности поверхности. Значение должно быть в диапазоне [0, 1]. См. также @ref{alphadef}
 @end deffn
-@cindex ambient
-@deffn {Опция MGL} ambient @code{val}
-Задает яркость фонового освещения. Значение должно быть в диапазоне [0, 1]. См. также @ref{ambient}
-@end deffn
-@cindex diffuse
-@deffn {Опция MGL} diffuse @code{val}
-Задает яркость диффузного освещения для поверхности. Значение должно быть в диапазоне [0, 1]. См. также @ref{diffuse}.
-@end deffn
+@c @cindex ambient
+@c @deffn {Опция MGL} ambient @code{val}
+@c Задает яркость фонового освещения. Значение должно быть в диапазоне [0, 1]. См. также @ref{ambient}
+@c @end deffn
+@c @cindex diffuse
+@c @deffn {Опция MGL} diffuse @code{val}
+@c Задает яркость диффузного освещения для поверхности. Значение должно быть в диапазоне [0, 1]. См. также @ref{diffuse}.
+@c @end deffn
 
 @cindex xrange
 @deffn {Опция MGL} xrange @code{val1 val2}
@@ -285,7 +297,7 @@ Finally, a special command language MGL (see @ref{MGL scripts}) was written for
 * C++ interface::
 @end menu
 
-@external
+@comment  @external
 @node C interface, C++ interface, , Interfaces
 @subsection C/Fortran interface
 
@@ -304,7 +316,7 @@ These variables contain identifiers for graphics drawing objects and for the dat
 
 Fortran functions/subroutines have the same names as C functions. However, there is a difference. Variable of type @code{HMGL, HMDT} must be an integer with sufficient size (@code{integer*4} in the 32-bit operating system or @code{integer*8} in the 64-bit operating system). All C functions are subroutines in Fortran, which are called by operator @code{call}. The exceptions are functions, which return variables of types @code{HMGL} or @code{HMDT}. These functions should be declared as integer in Fortran code. Also, one should keep in mind that strings in Fortran are denoted by @code{'} symbol, not the @code{"} symbol.
 
-@external
+@comment  @external
 @node C++ interface, , C interface, Interfaces
 @subsection C++/Python interface
 

diff --git a/texinfo/copyright.texi b/texinfo/copyright.texi
new file mode 100644 (file)
index 0000000..f76c118
--- /dev/null
+++ b/texinfo/copyright.texi
@@ -0,0 +1,11 @@
+Copyright @copyright{} 2008-2012 Alexey A. Balakin.
+
+@quotation
+Permission is granted to copy, distribute and/or modify this document
+under the terms of the GNU Free Documentation License, Version 1.2
+or any later version published by the Free Software Foundation;
+with no Invariant Sections, no Front-Cover Texts, and no Back-Cover
+Texts.  A copy of the license is included in the section entitled ``GNU
+Free Documentation License.''
+@end quotation
+

diff --git a/texinfo/core_en.texi b/texinfo/core_en.texi
index a4e6c407b6f47068f5c9b81871464a885d31260b..b050d369ed59027d8826efe6ef59f7bbf5739917 100644 (file)
--- a/texinfo/core_en.texi
+++ b/texinfo/core_en.texi
@@ -3,7 +3,7 @@
 @cindex mglGraph
 
 @ifset UDAV
-This chapter contains a lot of plotting commands for 1D, 2D and 3D data. It also encapsulates parameters for axes drawing. Moreover an arbitrary coordinate transformation can be used for each axis.  Additional information about colors, fonts, formula parsing can be found in @ref{General concepts}.
+This chapter contains a lot of plotting commands for 1D, 2D and 3D data. It also encapsulates parameters for axes drawing. Moreover an arbitrary coordinate transformation can be used for each axis.  Additional information about colors, fonts, formula parsing can be found in @ref{General concepts}. The full list of symbols used by MathGL for setting up plots can be found in @ref{Symbols for styles}.
 @end ifset
 
 @ifclear UDAV
@@ -72,11 +72,6 @@ Functions and variables in this group influences on overall graphics appearance.
 @deftypefnx {C function} @code{void} mgl_set_def_param (@code{HMGL} gr)
 Restore initial values for all of parameters.
 @end deftypefn
-
-@deftypefn {Method on @code{mglGraph}} @code{void} SetPlotId (@code{const char *}id)
-@deftypefnx {C function} @code{void} mgl_set_plotid (@code{HMGL} gr, @code{const char *}id)
-Sets name of plot for saving filename (in FLTK window for example).
-@end deftypefn
 @end ifclear
 
 @menu
@@ -91,7 +86,7 @@ Sets name of plot for saving filename (in FLTK window for example).
 @end menu
 
 @c ==================================================================
-@external
+@comment  @external
 @node Transparency, Lighting, , Graphics setup
 @subsection Transparency
 @cindex Alpha
@@ -141,7 +136,7 @@ Lamp-like transparency (@samp{2}) -- below and upper things are commutable and a
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Lighting, Fog, Transparency, Graphics setup
 @subsection Lighting
 @ifclear UDAV
@@ -184,8 +179,8 @@ The function adds a light source with identification @var{n} in direction @var{d
 
 @anchor{diffuse}
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} SetDifLight (@code{bool} enable)
-@deftypefnx {Функция С} @code{void} mgl_set_light_dif (@code{HMGL} gr, @code{int} enable)
+@deftypefn {Method on @code{mglGraph}} @code{void} SetDifLight (@code{bool} enable)
+@deftypefnx {C function} @code{void} mgl_set_light_dif (@code{HMGL} gr, @code{int} enable)
 Set on/off to use diffusive light (only for local light sources).
 @end deftypefn
 @end ifclear
@@ -193,14 +188,14 @@ Set on/off to use diffusive light (only for local light sources).
 @anchor{ambient}
 @deftypefn {MGL command} {} ambient @code{val}
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetAmbient (@code{mreal} bright=@code{0.5})
-@deftypefnx {Функция С} @code{void} mgl_set_ambbr (@code{HMGL} gr, @code{mreal} bright)
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetAmbient (@code{mreal} bright=@code{0.5})
+@deftypefnx {C function} @code{void} mgl_set_ambbr (@code{HMGL} gr, @code{mreal} bright)
 @end ifclear
 Sets the brightness of ambient light. The value should be in range [0,1].
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Fog, Default sizes, Lighting, Graphics setup
 @subsection Fog
 @cindex Fog
@@ -215,7 +210,7 @@ Function imitate a fog in the plot. Fog start from relative distance @var{dz} fr
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Default sizes, Cutting, Fog, Graphics setup
 @subsection Default sizes
 @ifclear UDAV
@@ -269,8 +264,26 @@ Sets size of arrows for @ref{1D plotting}, lines and curves (see @ref{Primitives
 Sets approximate number of lines in @ref{mesh}, @ref{fall}, @ref{grid} and also the number of hachures in @ref{vect}, @ref{dew} and the number of cells in @ref{cloud}. By default (=0) it draws all lines/hachures/cells.
 @end deftypefn
 
+@anchor{facenum}
+@deftypefn {MGL command} {} facenum @code{val}
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetFaceNum (@code{int} val)
+@deftypefnx {C function} @code{void} mgl_set_facenum (@code{HMGL} gr, @code{int} num)
+@end ifclear
+Sets approximate number of visible faces. Can be used for speeding up drawing by cost of lower quality. By default (=0) it draws all of them.
+@end deftypefn
+
+@anchor{plotid}
+@deftypefn {MGL command} {} plotid 'id'
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetPlotId (@code{const char *}id)
+@deftypefnx {C function} @code{void} mgl_set_plotid (@code{HMGL} gr, @code{const char *}id)
+@end ifclear
+Sets default name @var{id} as filename for saving (in FLTK window for example).
+@end deftypefn
+
 @c ==================================================================
-@external
+@comment  @external
 @node Cutting, Font settings, Default sizes, Graphics setup
 @subsection Cutting
 @ifclear UDAV
@@ -308,7 +321,7 @@ Sets the cutting off condition by formula @var{cond}. This condition determine w
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Font settings, Palette and colors, Cutting, Graphics setup
 @subsection Font settings
 @ifclear UDAV
@@ -339,6 +352,15 @@ Font style for text and labels (see text). Initial style is 'fnt'=':rC' give Rom
 Sets to use or not text rotation.
 @end deftypefn
 
+@anchor{loadfont}
+@deftypefn {MGL command} {} loadfont ['name'='']
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} LoadFont (@code{const char *}name, @code{const char *}path=@code{""})
+@deftypefnx {C function} @code{void} mgl_load_font (@code{HMGL} gr, @code{const char *}name, @code{const char *}path)
+@end ifclear
+Load font typeface from @var{path}/@var{name}. Empty name will load default font.
+@end deftypefn
+
 @ifclear UDAV
 @deftypefn {Method on @code{mglGraph}} @code{void} SetFontDef (@code{const char *}fnt)
 @deftypefnx {C function} @code{void} mgl_set_font_def (@code{HMGL} gr, @code{const char *} val)
@@ -375,10 +397,14 @@ Copy font data from another @code{mglGraph} object.
 Restore font data to default typeface.
 @end deftypefn
 
+@deftypefn {Функция С} @code{void} mgl_def_font (@code{const char *}name, @code{const char *}path)
+Load default font typeface (for all newly created HMGL/mglGraph objects) from @var{path}/@var{name}.
+@end deftypefn
+
 @end ifclear
 
 @c ==================================================================
-@external
+@comment  @external
 @node Palette and colors, Error handling, Font settings, Graphics setup
 @subsection Palette and colors
 @ifclear UDAV
@@ -407,7 +433,7 @@ Sets RGB values for color with given @var{id}.
 @end ifclear
 
 @c ==================================================================
-@external
+@comment  @external
 @node Error handling, , Palette and colors, Graphics setup
 @subsection Error handling
 @ifclear UDAV
@@ -480,7 +506,7 @@ These large set of variables and functions control how the axis and ticks will b
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Ranges (bounding box), Curved coordinates, , Axis settings
 @subsection Ranges (bounding box)
 @cindex CRange
@@ -516,7 +542,7 @@ Sets the range for @samp{x}-,@samp{y}-,@samp{z}- coordinate or coloring (@samp{c
 @deftypefnx {MGL command} {} zrange dat [@code{add=off}]
 @deftypefnx {MGL command} {} crange dat [@code{add=off}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} SetRange (@code{char} dir, @code{const mglData &}dat, @code{bool} add=@code{false})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetRange (@code{char} dir, @code{const mglDataA &}dat, @code{bool} add=@code{false})
 @deftypefnx {C function} @code{void} mgl_set_range_dat (@code{HMGL} gr, @code{char} dir, @code{const HCDT} a, @code{int} add)
 @end ifclear
 Sets the range for @samp{x}-,@samp{y}-,@samp{z}- coordinate or coloring (@samp{c}) as minimal and maximal values of data @var{dat}. Parameter @code{add=on} shows that the new range will be joined to existed one (not replace it).
@@ -533,9 +559,9 @@ Sets the ranges of coordinates. If minimal and maximal values of the coordinate
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy)
-@deftypefnx {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz)
-@deftypefnx {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz, @code{const mglData &}cc)
+@deftypefn {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy)
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz)
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz, @code{const mglDataA &}cc)
 Sets the ranges of @samp{x}-,@samp{y}-,@samp{z}-coordinates and coloring as minimal and maximal values of data @var{xx}, @var{yy}, @var{zz}, @var{cc} correspondingly.
 @end deftypefn
 @end ifclear
@@ -550,9 +576,18 @@ Sets the ranges of @samp{x}-,@samp{y}-,@samp{z}-coordinates and coloring as mini
 Sets center of axis cross section. If one of values is NAN then MathGL try to select optimal axis position.
 @end deftypefn
 
+@anchor{zoomaxis}
+@deftypefn {MGL command} {} zoomaxis @code{x1 x2 [y1=0 y2=1 [z1=0 z2=1 [c1=0 c2=1]]]}
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} ZoomAxis (@code{mglPoint} p1, @code{mglPoint} p2)
+@deftypefnx {C function} @code{void} mgl_zoom_axis (@code{HMGL} gr, @code{mreal} x1, @code{mreal} x2, @code{mreal} y1, @code{mreal} y2, @code{mreal} z1, @code{mreal} z2, @code{mreal} c1, @code{mreal} c2)
+@end ifclear
+Additionally extend axis range for any settings made by @code{SetRange} or @code{SetRanges} functions according the formula @math{min += (max-min)*p1} and @math{max += (max-min)*p1} (or @math{min *= (max/min)^p1} and @math{max *= (max/min)^p1} for log-axis range when @math{inf>max/min>100} or @math{0<max/min<0.01}). Initial ranges are [0, 1]. Attention! this settings can not be overwritten by any other functions, including @code{DefaultPlotParam()}.
+@end deftypefn
+
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Curved coordinates, Ticks, Ranges (bounding box), Axis settings
 @subsection Curved coordinates
 @cindex Axis
@@ -562,7 +597,7 @@ Sets center of axis cross section. If one of values is NAN then MathGL try to se
 @cindex Ternary
 @end ifclear
 
-@deftypefn {MGL command} {} axis 'fx' 'fy' ['fz'='' 'fa'='']
+@deftypefn {MGL command} {} axis 'fx' 'fy' 'fz' ['fa'='']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} SetFunc (@code{const char *}EqX, @code{const char *}EqY, @code{const char *}EqZ=@code{""}, @code{const char *}EqA=@code{""})
 @deftypefnx {C function} @code{void} mgl_set_func (@code{HMGL} gr, @code{const char *}EqX, @code{const char *}EqY, @code{const char *}EqZ, @code{const char *}EqA)
@@ -584,11 +619,19 @@ Sets one of the predefined transformation formulas for curvilinear coordinate. P
 @deftypefnx {Method on @code{mglGraph}} @code{void} Ternary (@code{int} tern)
 @deftypefnx {C function} @code{void} mgl_set_ternary (@code{HMGL} gr, @code{int} tern)
 @end ifclear
-The function sets to draws Ternary or Quaternary plot. Ternary plot is special plot for 3 dependent coordinates (components) @var{a}, @var{b}, @var{c} so that @var{a}+@var{b}+@var{c}=1. MathGL uses only 2 independent coordinates @var{a}=x and @var{b}=y since it is enough to plot everything. At this third coordinate z act as another parameter to produce contour lines, surfaces and so on. Correspondingly Quaternary plot is plot for 4 dependent coordinates @var{a}, @var{b}, @var{c} and @var{d} so that @var{a}+@var{b}+@var{c}+@var{d}=1. Use @code{Ternary(0)} for returning to usual axis. @sref{Ternary axis}
+The function sets to draws Ternary (@var{tern}=@code{1}), Quaternary (@var{tern}=@code{2}) plot or projections (@var{tern}=@code{4,5,6}).
+
+Ternary plot is special plot for 3 dependent coordinates (components) @var{a}, @var{b}, @var{c} so that @var{a}+@var{b}+@var{c}=1. MathGL uses only 2 independent coordinates @var{a}=x and @var{b}=y since it is enough to plot everything. At this third coordinate z act as another parameter to produce contour lines, surfaces and so on. 
+
+Correspondingly, Quaternary plot is plot for 4 dependent coordinates @var{a}, @var{b}, @var{c} and @var{d} so that @var{a}+@var{b}+@var{c}+@var{d}=1. MathGL uses only 3 independent coordinates @var{a}=x, @var{b}=y and @var{d}=z since it is enough to plot everything.
+
+Projections can be obtained by adding value @code{4} to @var{tern} argument. So, that @var{tern}=@code{4} will draw projections in Cartesian coordinates, @var{tern}=@code{5} will draw projections in Ternary coordinates, @var{tern}=@code{6} will draw projections in Quaternary coordinates.
+
+Use @code{Ternary(0)} for returning to usual axis. @sref{Ternary axis} @sref{Axis projection}
 @end deftypefn
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Ticks, , Curved coordinates, Axis settings
 @subsection Ticks
 @cindex AxisStl
@@ -629,8 +672,7 @@ Set the ticks step, number of sub-ticks and initial ticks position to be the mos
 @deftypefnx {MGL command} {} ctick @code{val [sub=0 org=nan]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} SetTicks (@code{char} dir, @code{mreal} d=@code{0}, @code{int} ns=@code{0}, @code{mreal} org=@code{NAN})
-@deftypefnx {C function} @code{void} mgl_set_ticks_dir (@code{HMGL} gr, @code{char} dir, @code{mreal} d, @code{int} ns, @code{mreal} org)
-@deftypefnx {C function} @code{void} mgl_set_ticks (@code{HMGL} gr, @code{int} nx, @code{int} ny, @code{int} nz)
+@deftypefnx {C function} @code{void} mgl_set_ticks (@code{HMGL} gr, @code{char} dir, @code{mreal} d, @code{int} ns, @code{mreal} org)
 @end ifclear
 Set the ticks step @var{d}, number of sub-ticks @var{ns} (used for positive @var{d}) and initial ticks position @var{org} for the axis along direction @var{dir} (use 'c' for colorbar ticks). Variable @var{d} set step for axis ticks (if positive) or it's number on the axis range (if negative). Zero value set automatic ticks. If @var{org} value is NAN then axis origin is used.
 @end deftypefn
@@ -641,8 +683,8 @@ Set the ticks step @var{d}, number of sub-ticks @var{ns} (used for positive @var
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const char *}lbl, @code{bool} add=@code{false})
 @deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
-@deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglData &}val, @code{const char *}lbl, @code{bool} add=@code{false})
-@deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglData &}val, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglDataA &}val, @code{const char *}lbl, @code{bool} add=@code{false})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglDataA &}val, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
 @deftypefnx {C function} @code{void} mgl_set_ticks_str (@code{HMGL} gr, @code{char} dir, @code{const char *}lbl, @code{bool} add)
 @deftypefnx {C function} @code{void} mgl_set_ticks_wcs (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}lbl, @code{bool} add)
 @deftypefnx {C function} @code{void} mgl_set_ticks_val (@code{HMGL} gr, @code{char} dir, @code{HCDT} val, @code{const char *}lbl, @code{bool} add)
@@ -757,7 +799,9 @@ Puts further plotting in a @var{m}-th cell of @var{nx}*@var{ny} grid of the whol
 @item
 @samp{A} or @samp{^} -- at top side,
 @item
-@samp{U} or @samp{_} -- at bottom side.
+@samp{U} or @samp{_} -- at bottom side,
+@item
+@samp{#} -- reserve none space (use whole region for axis range).
 @end itemize
 From the aesthetical point of view it is not recommended to use this function with different matrices in the same frame. The position of the cell can be shifted from its default position by relative size @var{dx}, @var{dy}.
 @end deftypefn
@@ -890,19 +934,27 @@ Pop (restore last 'pushed') transformation matrix into stack.
 Sets the factor of plot size. It is not recommended to set it lower then 1.5. This is some analogue of function Zoom() but applied not to overall image but for each InPlot. Use negative value or zero to enable automatic selection.
 @end deftypefn
 
-There are 2 functions @code{View()} and @code{Zoom()} which transform whole image. I.e. they act as secondary transformation matrix. They were introduced for rotating/zooming the whole plot by mouse.
+@end ifclear
+
+There are 2 functions @code{View()} and @code{Zoom()} which transform whole image. I.e. they act as secondary transformation matrix. They were introduced for rotating/zooming the whole plot by mouse. It is not recommended to call them for picture drawning.
 
-@deftypefn {Method on @code{mglGraph}} @code{void} View (@code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY=@code{0})
+@anchor{view}
+@deftypefn {MGL command} {} view @code{tetx tetz [tety=0]}
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} View (@code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY=@code{0})
 @deftypefnx {C function} @code{void} mgl_view (@code{HMGL} gr, @code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY)
-Rotates a further plotting relative to each axis @{x, z, y@} consecutively on angles @var{TetX}, @var{TetZ}, @var{TetY}. Rotation is done independently on @ref{rotate}. Use @code{Zoom(0,0,1,1)} to return default view.
+@end ifclear
+Rotates a further plotting relative to each axis @{x, z, y@} consecutively on angles @var{TetX}, @var{TetZ}, @var{TetY}. Rotation is done independently on @ref{rotate}. Attention! this settings can not be overwritten by @code{DefaultPlotParam()}. Use @code{Zoom(0,0,1,1)} to return default view.
 @end deftypefn
 
-@deftypefn {Method on @code{mglGraph} (C++, Python)} @code{void} Zoom (@code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
+@anchor{zoom}
+@deftypefn {MGL command} {} zoom @code{x1 y1 x2 y2}
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph} (C++, Python)} @code{void} Zoom (@code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
 @deftypefnx {C function} @code{void} mgl_set_zoom (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
-The function changes the scale of graphics that correspond to zoom in/out of the picture. After function call the current plot will be cleared and further the picture will contain plotting from its part [x1,x2]*[y1,y2]. Here picture coordinates @var{x1}, @var{x2}, @var{y1}, @var{y2} changes from 0 to 1. Attention! this settings can not be overwritten by any other functions. Use @code{Zoom(0,0,1,1)} to return default view.
-@end deftypefn
-
 @end ifclear
+The function changes the scale of graphics that correspond to zoom in/out of the picture. After function call the current plot will be cleared and further the picture will contain plotting from its part [x1,x2]*[y1,y2]. Here picture coordinates @var{x1}, @var{x2}, @var{y1}, @var{y2} changes from 0 to 1. Attention! this settings can not be overwritten by any other functions, including @code{DefaultPlotParam()}. Use @code{Zoom(0,0,1,1)} to return default view.
+@end deftypefn
 
 @c ##################################################################
 @external
@@ -922,12 +974,12 @@ Sets size of picture in pixels. This function @strong{must be} called before any
 @end deftypefn
 
 @anchor{quality}
-@deftypefn {MGL command} {} quality @code{val}
+@deftypefn {MGL command} {} quality [@code{val}=2]
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} SetQuality (@code{int} val=@code{MGL_DRAW_NORM})
 @deftypefnx {C function} @code{void} mgl_set_quality (@code{HMGL} gr, @code{int} val)
 @end ifclear
-Sets quality of the plot depending on value @var{val}: @code{MGL_DRAW_WIRE=0} --       no face drawing (fastest), @code{MGL_DRAW_FAST=1} -- no color interpolation (fast), @code{MGL_DRAW_NORM=2} -- high quality (normal). If @code{MGL_DRAW_LMEM=0x4} is set then direct bitmap drawing is used (low memory usage).
+Sets quality of the plot depending on value @var{val}: @code{MGL_DRAW_WIRE=0} --       no face drawing (fastest), @code{MGL_DRAW_FAST=1} -- no color interpolation (fast), @code{MGL_DRAW_NORM=2} -- high quality (normal), @code{MGL_DRAW_NORM=3} -- high quality with 3d primitives (arrows and marks). If @code{MGL_DRAW_LMEM=0x4} is set then direct bitmap drawing is used (low memory usage).
 @end deftypefn
 
 @ifclear UDAV
@@ -951,7 +1003,7 @@ Ends group definition.
 @end menu
 
 @c ==================================================================
-@external
+@comment  @external
 @node Export to file, Frames/Animation, , Export picture
 @subsection Export to file
 @cindex Write
@@ -966,6 +1018,7 @@ Ends group definition.
 @cindex WriteBPS
 @cindex WriteTGA
 @cindex WriteTEX
+@cindex WritePRC
 @cindex WriteOBJ
 @cindex WriteWGL
 @cindex WriteJPEG
@@ -980,7 +1033,7 @@ These functions export current view to a graphic file. The filename @var{fname}
 @deftypefnx {Method on @code{mglGraph}} @code{void} WriteFrame (@code{const char *}fname=@code{""}, @code{const char *}descr=@code{""})
 @deftypefnx {C function} @code{void} mgl_write_frame (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
 @end ifclear
-Exports current frame to a file @var{fname} which type is determined by the extension. Parameter @var{descr} adds description to file (can be @code{""}). If @var{fname}=@code{""} then the file @samp{frame####.jpg} is used, where @samp{####} is current frame id and name @samp{frame} is defined by @var{PlotId} class property.
+Exports current frame to a file @var{fname} which type is determined by the extension. Parameter @var{descr} adds description to file (can be @code{""}). If @var{fname}=@code{""} then the file @samp{frame####.jpg} is used, where @samp{####} is current frame id and name @samp{frame} is defined by @ref{plotid} class property.
 @end deftypefn
 
 @ifclear UDAV
@@ -1028,9 +1081,13 @@ Exports current frame to SVG (Scalable Vector Graphics) file using vector repres
 
 @deftypefn {Method on @code{mglGraph}} @code{void} WriteTEX (@code{const char *}fname, @code{const char *}descr=@code{""})
 @deftypefnx {C function} @code{void} mgl_write_tex (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
-Exports current frame to LaTeX (package Tikz/PGF) file using vector representation. Note, the output file may be too large for graphic of large data array (especially for surfaces). It is better to use bitmap format (for example PNG or JPEG). However, program has no internal limitations for size of output file. Parameter @var{fname} specifies the file name, @var{descr} adds description to file (default is file name).
+Exports current frame to LaTeX (package Tikz/PGF) file using vector representation. Note, the output file may be too large for graphic of large data array (especially for surfaces). It is better to use bitmap format (for example PNG or JPEG). However, program has no internal limitations for size of output file. Parameter @var{fname} specifies the file name, @var{descr} adds description to file (default is file name). Note, there is no text scaling now (for example, in subplots), what may produce miss-aligned labels.
 @end deftypefn
 
+@deftypefn {Method on @code{mglGraph}} @code{void} WritePRC (@code{const char *}fname, @code{const char *}descr=@code{""}, @code{bool} make_pdf=@code{true})
+@deftypefnx {C function} @code{void} mgl_write_prc (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr, @code{int} make_pdf)
+Exports current frame to PRC file using vector representation (see @url{http://en.wikipedia.org/wiki/PRC_%28file_format%29}). Note, the output file may be too large for graphic of large data array (especially for surfaces). It is better to use bitmap format (for example PNG or JPEG). However, program has no internal limitations for size of output file. Parameter @var{fname} specifies the file name, @var{descr} adds description to file (default is file name). If parameter @var{make_pdf}=@code{true} and PDF was enabled at MathGL configure then corresponding PDF file with 3D image will be created.
+@end deftypefn
 
 @deftypefn {Method on @code{mglGraph}} @code{void} WriteOBJ (@code{const char *}fname, @code{const char *}descr=@code{""})
 @deftypefnx {C function} @code{void} mgl_write_obj (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
@@ -1069,21 +1126,26 @@ Displays the current picture using external program @var{viewer} for viewing. Th
 @end deftypefn
 
 
+@deftypefn {Method on @code{mglGraph}} @code{void} WriteJSON (@code{const char *}fname, @code{const char *}descr=@code{""})
+@deftypefnx {C function} @code{void} mgl_write_json (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
+Exports current frame to textual file using @ref{JSON format}. Later this file can be used for faster loading and viewing by JavaScript script. Parameter @var{fname} specifies the file name, @var{descr} adds description to file.
+@end deftypefn
+
 @deftypefn {Method on @code{mglGraph}} @code{void} ExportMGLD (@code{const char *}fname, @code{const char *}descr=@code{""})
 @deftypefnx {C function} @code{void} mgl_export_mgld (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
-Exports points and primitives in file using MGLD format. Later this file can be used for faster loading and viewing by @code{mglview} utility. Parameter @var{fname} specifies the file name, @var{descr} adds description to file (default is file name).
+Exports points and primitives in file using @ref{MGLD format}. Later this file can be used for faster loading and viewing by @code{mglview} utility. Parameter @var{fname} specifies the file name, @var{descr} adds description to file (default is file name).
 @end deftypefn
 
 @deftypefn {Method on @code{mglGraph}} @code{void} ImportMGLD (@code{const char *}fname, @code{bool} add=@code{false})
 @deftypefnx {C function} @code{void} mgl_import_mgld (@code{HMGL} gr, @code{const char *}fname, @code{int} add)
-Imports points and primitives in file using MGLD format. Later this file can be used for faster loading and viewing by @code{mglview} utility. Parameter @var{fname} specifies the file name, @var{add} sets to append or replace primitives to existed ones.
+Imports points and primitives in file using @ref{MGLD format}. Later this file can be used for faster loading and viewing by @code{mglview} utility. Parameter @var{fname} specifies the file name, @var{add} sets to append or replace primitives to existed ones.
 @end deftypefn
 
 @end ifclear
 
 
 @c ##################################################################
-@external
+@comment  @external
 @node Frames/Animation, Bitmap in memory, Export to file, Export picture
 @subsection Frames/Animation
 
@@ -1101,8 +1163,8 @@ There are no commands for making animation in MGL. However you can use features
 
 These functions provide ability to create several pictures simultaneously. For most of cases it is useless but for widget classes (see @ref{Widget classes}) they can provide a way to show animation. Also you can write several frames into animated GIF file.
 
-@deftypefn {Method on @code{mglGraph}} @code{int} NewFrame ()
-@deftypefnx {C function} @code{int} mgl_new_frame (@code{HMGL} gr)
+@deftypefn {Method on @code{mglGraph}} @code{void} NewFrame ()
+@deftypefnx {C function} @code{void} mgl_new_frame (@code{HMGL} gr)
 Creates new frame. Function returns current frame id. This is not thread safe function in OpenGL mode! Use direct list creation in multi-threading drawing. The function @code{EndFrame()} @strong{must} be call after the finishing of the frame drawing for each call of this function.
 @end deftypefn
 
@@ -1116,8 +1178,28 @@ Finishes the frame drawing.
 Gets the number of created frames.
 @end deftypefn
 
+@deftypefn {Method on @code{mglGraph}} @code{void} SetFrame (@code{int} i)
+@deftypefnx {C function} @code{void} mgl_set_frame (@code{HMGL} gr, @code{int} i)
+Finishes the frame drawing and sets drawing data to frame @var{i}, which should be in range [0, @code{GetNumFrame()}-1]. This function is similar to @code{EndFrame()} but don't add frame to the GIF image.
+@end deftypefn
+
+@deftypefn {Method on @code{mglGraph}} @code{void} GetFrame (@code{int} i)
+@deftypefnx {C function} @code{void} mgl_get_frame (@code{HMGL} gr, @code{int} i)
+Replaces drawing data by one from frame @var{i}. Function work if @code{MGL_VECT_FRAME} is set on (by default).
+@end deftypefn
+
+@deftypefn {Method on @code{mglGraph}} @code{void} ShowFrame (@code{int} i)
+@deftypefnx {C function} @code{void} mgl_show_frame (@code{HMGL} gr, @code{int} i)
+Appends drawing data from frame @var{i} to current one. Function work if @code{MGL_VECT_FRAME} is set on (by default).
+@end deftypefn
+
+@deftypefn {Method on @code{mglGraph}} @code{void} DelFrame (@code{int} i)
+@deftypefnx {C function} @code{void} mgl_del_frame (@code{HMGL} gr, @code{int} i)
+Deletes drawing data for frame @var{i} and shift all later frame indexes. Function work if @code{MGL_VECT_FRAME} is set on (by default). Do nothing in OpenGL mode.
+@end deftypefn
+
 @deftypefn {Method on @code{mglGraph}} @code{void} ResetFrames ()
-@deftypefnx {C function} @code{int} mgl_reset_frames (@code{HMGL} gr)
+@deftypefnx {C function} @code{void} mgl_reset_frames (@code{HMGL} gr)
 Reset frames counter (start it from zero).
 @end deftypefn
 
@@ -1126,14 +1208,14 @@ Reset frames counter (start it from zero).
 Start writing frames into animated GIF file @var{fname}. Parameter @var{ms} set the delay between frames in milliseconds. You @strong{should not} change the picture size during writing the cinema. Use @code{CloseGIF()} to finalize writing. Note, that this function is disabled in OpenGL mode.
 @end deftypefn
 
-@deftypefn {Method on @code{mglGraph}} @code{int} CloseGIF ()
+@deftypefn {Method on @code{mglGraph}} @code{void} CloseGIF ()
 @deftypefnx {C function} @code{void} mgl_close_gif (@code{HMGL} gr)
 Finish writing animated GIF and close connected pointers.
 @end deftypefn
 @end ifclear
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Bitmap in memory, Parallelization, Frames/Animation, Export picture
 @subsection Bitmap in memory
 
@@ -1183,13 +1265,13 @@ Calculate screen point @{xs,ys@} for 3D coordinate @{x,y,z@}. The calculation ar
 Set the numeric id for object or subplot/inplot.
 @end deftypefn
 
-@deftypefn {Method on @code{mglGraph}} @code{int} GetObjId (@code{long} xs, @code{long} ys)
-@deftypefnx {C function} @code{int} mgl_get_obj_id (@code{HMGL} gr, @code{long} xs, @code{long} ys)
+@deftypefn {Method on @code{mglGraph}} @code{int} GetObjId (@code{int} xs, @code{int} ys)
+@deftypefnx {C function} @code{int} mgl_get_obj_id (@code{HMGL} gr, @code{int} xs, @code{int} ys)
 Get the numeric id for most upper object at pixel @{xs, ys@} of the picture.
 @end deftypefn
 
-@deftypefn {Method on @code{mglGraph}} @code{int} GetSplId (@code{long} xs, @code{long} ys)
-@deftypefnx {C function} @code{int} mgl_get_spl_id (@code{HMGL} gr, @code{long} xs, @code{long} ys)
+@deftypefn {Method on @code{mglGraph}} @code{int} GetSplId (@code{int} xs, @code{int} ys)
+@deftypefnx {C function} @code{int} mgl_get_spl_id (@code{HMGL} gr, @code{int} xs, @code{int} ys)
 Get the numeric id for most subplot/inplot at pixel @{xs, ys@} of the picture.
 @end deftypefn
 
@@ -1198,10 +1280,15 @@ Get the numeric id for most subplot/inplot at pixel @{xs, ys@} of the picture.
 Highlight the object with given @var{id}.
 @end deftypefn
 
+@deftypefn {Method on @code{mglGraph}} @code{long} IsActive (@code{int} xs, @code{int} ys, @code{int} d=@code{1})
+@deftypefnx {C function} @code{long} mgl_is_active (@code{HMGL} gr, @code{int} xs, @code{int} ys, @code{int} d)
+Checks if point @{@var{xs}, @var{ys}@} is close to one of active point (i.e. mglBase::Act) with accuracy @var{d} and return its index or @code{-1} if not found. Active points are special points which characterize primitives (like edges and so on). This function for advanced users only.
+@end deftypefn
+
 @end ifclear
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Parallelization, , Bitmap in memory, Export picture
 @subsection Parallelization
 
@@ -1281,12 +1368,15 @@ Clear the picture and fill it by color specified color.
 Draws a mark (point @samp{.} by default) at position @var{p}=@{@var{x}, @var{y}, @var{z}@} with color @var{col}.
 @end deftypefn
 
+@anchor{errbox}
+@deftypefn {MGL command} {} errbox @code{x y ex ey} ['stl'='']
+@deftypefnx {MGL command} {} errbox @code{x y z ex ey ez} ['stl'='']
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} Error (@code{mglPoint} p, @code{mglPoint} e, @code{char} *stl=@code{""})
-@deftypefnx {C function} @code{void} mgl_error_box (@code{HMGL} gr, @code{mreal} px, @code{mreal} py, @code{mreal} pz, @code{mreal} ex, @code{mreal} ey, @code{mreal} ez, @code{char *}stl)
-Draws a 3d error box at position @var{p} with sizes @var{e} and style @var{stl}. Use NAN for component of @var{e} to reduce number of drawn elements.
-@end deftypefn
+@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{mglPoint} p, @code{mglPoint} e, @code{char} *stl=@code{""})
+@deftypefnx {C function} @code{void} mgl_error_box (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{mreal} ex, @code{mreal} ey, @code{mreal} ez, @code{char *}stl)
 @end ifclear
+Draws a 3d error box at position @var{p}=@{@var{x}, @var{y}, @var{z}@} with sizes @var{e}=@{@var{ex}, @var{ey}, @var{ez}@} and style @var{stl}. Use NAN for component of @var{e} to reduce number of drawn elements.
+@end deftypefn
 
 @anchor{line}
 @deftypefn {MGL command} {} line @code{x1 y1 x2 y2} ['stl'='']
@@ -1308,12 +1398,21 @@ Draws a geodesic line (straight line in Cartesian coordinates) from point @var{p
 Draws Bezier-like curve from point @var{p1} to @var{p2} using line style @var{stl}. At this tangent is codirected with @var{d1}, @var{d2} and proportional to its amplitude. Parameter @var{num} define the ``quality'' of the curve. If @var{num}=@code{2} then the straight line will be drawn in all coordinate system (independently on transformation formulas, see @ref{Curved coordinates}). Contrary, for large values (for example, =@code{100}) the spline like Bezier curve will be drawn in corresponding coordinate system. Curve will be drawn even if it lies out of bounding box.
 @end deftypefn
 
+@anchor{face}
+@deftypefn {MGL command} {} face @code{x1 y1 x2 y2 x3 y3 x4 y4} ['stl'='']
+@deftypefnx {MGL command} {} face @code{x1 y1 z1 x2 y2 z2 x3 y3 z3 x4 y4 z4} ['stl'='']
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} Face (@code{mglPoint} p1, @code{mglPoint} p2, @code{mglPoint} p3, @code{mglPoint} p4, @code{const char *}stl=@code{"w"})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Face (@code{mglPoint} p1, @code{mglPoint} p2, @code{mglPoint} p3, @code{mglPoint} p4, @code{const char *}stl=@code{"w"})
 @deftypefnx {C function} @code{void} mgl_face (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} x3, @code{mreal} y3, @code{mreal} z3, @code{mreal} x4, @code{mreal} y4, @code{mreal} z4, @code{const char *}stl)
+@end ifclear
 Draws the solid quadrangle (face) with vertexes @var{p1}, @var{p2}, @var{p3}, @var{p4} and with color(s) @var{stl}. At this colors can be the same for all vertexes or different if all 4 colors are specified for each vertex. Face will be drawn even if it lies out of bounding box.
 @end deftypefn
-@end ifclear
+
+@anchor{rect}
+@deftypefn {MGL command} {} rect @code{x1 y1 x2 y2} ['stl'='']
+@deftypefnx {MGL command} {} rect @code{x1 y1 z1 x2 y2 z2} ['stl'='']
+Draws the solid rectangle (face) with vertexes @{@var{x1}, @var{y1}, @var{z1}@} and @{@var{x2}, @var{y2}, @var{z2}@} with color @var{stl}. At this colors can be the same for all vertexes or separately if all 4 colors are specified for each vertex. Face will be drawn even if it lies out of bounding box.
+@end deftypefn
 
 @anchor{facex}
 @anchor{facey}
@@ -1353,12 +1452,12 @@ Draw the drop with radius @var{r} at point @var{p} elongated in direction @var{d
 @end deftypefn
 
 @anchor{cone}
-@deftypefn {MGL command} {} cone @code{x1 y1 z1 x2 y2 z2 r1} [@code{r2=-1} 'stl'='' @code{edge=off}]
+@deftypefn {MGL command} {} cone @code{x1 y1 z1 x2 y2 z2 r1} [@code{r2=-1} 'stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cone (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r1, @code{mreal} r2=@code{-1}, @code{const char *}stl=@code{"B"}, @code{bool} edge=@code{false})
-@deftypefnx {C function} @code{void} mgl_cone (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r1, @code{mreal} r2, @code{const char *}stl, @code{int} draw_edge)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cone (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r1, @code{mreal} r2=@code{-1}, @code{const char *}stl=@code{"B"})
+@deftypefnx {C function} @code{void} mgl_cone (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r1, @code{mreal} r2, @code{const char *}stl)
 @end ifclear
-Draw tube (or truncated cone if @var{edge}=@code{false}) between points @var{p1}, @var{p2} with radius at the edges @var{r1}, @var{r2}. If @var{r2}<0 then it is supposed that @var{r2}=@var{r1}. The cone color is defined by string @var{stl}.
+Draw tube (or truncated cone if @var{edge}=@code{false}) between points @var{p1}, @var{p2} with radius at the edges @var{r1}, @var{r2}. If @var{r2}<0 then it is supposed that @var{r2}=@var{r1}. The cone color is defined by string @var{stl}. If style contain @samp{@@} then edges will be drawn.
 @end deftypefn
 
 @anchor{circle}
@@ -1379,8 +1478,8 @@ colors for filling and boundary (second one if style @samp{@@} is used, black co
 @end deftypefn
 
 @anchor{ellipse}
-@deftypefn {MGL command} {} ellipse @code{x1 y1 x2 y2 r} ['col'='r' @code{sh=1 asp=1}]
-@deftypefnx {MGL command} {} ellipse @code{x1 y1 z1 x2 y2 z2 r} ['col'='r' @code{sh=1 asp=1}]
+@deftypefn {MGL command} {} ellipse @code{x1 y1 x2 y2 r} ['col'='r']
+@deftypefnx {MGL command} {} ellipse @code{x1 y1 z1 x2 y2 z2 r} ['col'='r']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} Ellipse (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r, @code{const char *}col=@code{"r"})
 @deftypefnx {C function} @code{void} mgl_ellipse (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r, @code{const char *}col)
@@ -1397,8 +1496,8 @@ colors for filling and boundary (second one if style @samp{@@} is used, black co
 @end deftypefn
 
 @anchor{rhomb}
-@deftypefn {MGL command} {} rhomb @code{x1 y1 x2 y2 r} ['col'='r' @code{sh=1 asp=1}]
-@deftypefnx {MGL command} {} rhomb @code{x1 y1 z1 x2 y2 z2 r} ['col'='r' @code{sh=1 asp=1}]
+@deftypefn {MGL command} {} rhomb @code{x1 y1 x2 y2 r} ['col'='r']
+@deftypefnx {MGL command} {} rhomb @code{x1 y1 z1 x2 y2 z2 r} ['col'='r']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} Rhomb (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r, @code{const char *}col=@code{"r"})
 @deftypefnx {C function} @code{void} mgl_rhomb (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r, @code{const char *}col)
@@ -1469,12 +1568,12 @@ Draws unrotated @var{n}-th line of file @var{fname} at position @{@var{x},@var{y
 @deftypefnx {MGL command} {} text xdat ydat 'text' ['fnt'='']
 @deftypefnx {MGL command} {} text xdat ydat zdat 'text' ['fnt'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_text_y (@code{HMGL} gr, @code{HCDT} y, @code{const char *}text, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_textw_y (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}text, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_text_xy (@code{HCDT} x, @code{HCDT} y, @code{const char *}text, @code{const char *}fnt, @code{const char *}opt)
@@ -1500,14 +1599,16 @@ These functions draw the ``things for measuring'', like axis with ticks, colorba
 @anchor{axis}
 @deftypefn {MGL command} {} axis ['dir'='xyz' 'stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Axis (@code{const char *}dir=@code{"xyz"}, @code{const char *}stl=@code{""})
-@deftypefnx {C function} @code{void} mgl_axis (@code{HMGL} gr, @code{const char *}dir, @code{const char *}stl)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Axis (@code{const char *}dir=@code{"xyz"}, @code{const char *}stl=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_axis (@code{HMGL} gr, @code{const char *}dir, @code{const char *}stl, @code{const char *}opt)
 @end ifclear
 Draws axes with ticks (see @ref{Axis settings}). Parameter @var{dir} may contain:
 @itemize @bullet
 @item
 @samp{xyz} for drawing axis in corresponding direction;
 @item
+@samp{XYZ} for drawing axis in corresponding direction but with inverted positions of labels;
+@item
 @samp{_} for disabling tick labels;
 @item
 @samp{U} for disabling rotation of tick labels;
@@ -1541,7 +1642,7 @@ color scheme (see @ref{Color scheme});
 
 @deftypefn {MGL command} {} colorbar vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Colorbar (@code{const mglData &}v, @code{const char *}sch=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Colorbar (@code{const mglDataA &}v, @code{const char *}sch=@code{""})
 @deftypefnx {C function} @code{void} mgl_colorbar_val (@code{HMGL} gr, @code{HCDT} v, @code{const char *}sch)
 @end ifclear
 The same as previous but with sharp colors @var{sch} (current palette if @code{sch=""}) for values @var{v}. @sref{ContD sample}
@@ -1557,7 +1658,7 @@ The same as first one but at arbitrary position of subplot @{@var{x}, @var{y}@}
 
 @deftypefn {MGL command} {} colorbar vdat 'sch' @code{x y [w=1 h=1]}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Colorbar (@code{const mglData &}v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w=@code{1}, @code{mreal} h=@code{1})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Colorbar (@code{const mglDataA &}v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w=@code{1}, @code{mreal} h=@code{1})
 @deftypefnx {C function} @code{void} mgl_colorbar_val_ext (@code{HMGL} gr, @code{HCDT} v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w, @code{mreal} h)
 @end ifclear
 The same as previous but with sharp colors @var{sch} (current palette if @code{sch=""}) for values @var{v}. @sref{ContD sample}
@@ -1566,8 +1667,8 @@ The same as previous but with sharp colors @var{sch} (current palette if @code{s
 @anchor{grid}
 @deftypefn {MGL command} {} grid ['dir'='xyz' 'pen'='B']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const char *}dir=@code{"xyz"}, @code{const char *}pen=@code{"B"})
-@deftypefnx {C function} @code{void} mgl_axis_grid (@code{HMGL} gr, @code{const char *}dir, @code{const char *}pen)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const char *}dir=@code{"xyz"}, @code{const char *}pen=@code{"B"}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_axis_grid (@code{HMGL} gr, @code{const char *}dir, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
 Draws grid lines perpendicular to direction determined by string parameter @var{dir}. The step of grid lines is the same as tick step for @ref{axis}. The style of lines is determined by @var{pen} parameter (default value is dark blue solid line @samp{B-}).
 @end deftypefn
@@ -1586,18 +1687,17 @@ Draws bounding box outside the plotting volume with color @var{col}. If @var{col
 @anchor{ylabel}
 @anchor{zlabel}
 @anchor{tlabel}
-@deftypefn {MGL command} {} xlabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {MGL command} {} ylabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {MGL command} {} zlabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {MGL command} {} tlabel 'text' [@code{pos=1 shift=0}]
+@deftypefn {MGL command} {} xlabel 'text' [@code{pos=1}]
+@deftypefnx {MGL command} {} ylabel 'text' [@code{pos=1}]
+@deftypefnx {MGL command} {} zlabel 'text' [@code{pos=1}]
+@deftypefnx {MGL command} {} tlabel 'text' [@code{pos=1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const char *}text, @code{mreal} pos=@code{1}, @code{mreal} shift=@code{0})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const wchar_t *}text, @code{mreal} pos=@code{1}, @code{mreal} shift=@code{0})
-@deftypefnx {C function} @code{void} mgl_label (@code{HMGL} gr, @code{char} dir, @code{const char *}text)
-@deftypefnx {C function} @code{void} mgl_label_ext (@code{HMGL} gr, @code{char} dir, @code{const char *}text, @code{mreal} pos, @code{mreal} shift)
-@deftypefnx {C function} @code{void} mgl_labelw_ext (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}text, @code{mreal} pos, @code{mreal} shift)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const char *}text, @code{mreal} pos=@code{1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const wchar_t *}text, @code{mreal} pos=@code{1}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_label (@code{HMGL} gr, @code{char} dir, @code{const char *}text, @code{mreal} pos, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_labelw (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}text, @code{mreal} pos, @code{const char *}opt)
 @end ifclear
-Prints the label @var{text} for axis @var{dir}=@samp{x},@samp{y},@samp{z},@samp{t} (here @samp{t} is ``ternary'' axis @math{t=1-x-y}). The position of label is determined by @var{pos} parameter. If @var{pos}=0 then label is printed at the center of axis. If @var{pos}>0 then label is printed at the maximum of axis. If @var{pos}<0 then label is printed at the minimum of axis. @xref{Text printing}.
+Prints the label @var{text} for axis @var{dir}=@samp{x},@samp{y},@samp{z},@samp{t} (here @samp{t} is ``ternary'' axis @math{t=1-x-y}). The position of label is determined by @var{pos} parameter. If @var{pos}=0 then label is printed at the center of axis. If @var{pos}>0 then label is printed at the maximum of axis. If @var{pos}<0 then label is printed at the minimum of axis. Value option set additional shifting of the label. @xref{Text printing}.
 @end deftypefn
 
 @c ##################################################################
@@ -1624,18 +1724,18 @@ colors for background (first one) and border (second one) of legend. Note, that
 @sref{Legend sample}
 
 @anchor{legend}
-@deftypefn {MGL command} {} legend [@code{pos=3} 'fnt'='#' @code{size=-0.8 llen=0.1}]
+@deftypefn {MGL command} {} legend [@code{pos=3} 'fnt'='#']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Legend (@code{int} pos=@code{0x3}, @code{const char *}fnt=@code{"#"}, @code{mreal} size=@code{-0.8}, @code{mreal} llen=@code{0.1})
-@deftypefnx {C function} @code{void} mgl_legend (@code{HMGL} gr, @code{int} pos, @code{const char *}fnt, @code{mreal} size, @code{mreal} llen)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Legend (@code{int} pos=@code{0x3}, @code{const char *}fnt=@code{"#"}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_legend (@code{HMGL} gr, @code{int} pos, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
-Draws legend of accumulated legend entries by font @var{fnt} with @var{size}. Parameter @var{pos} sets the position of the legend: @samp{0} is bottom left corner, @samp{1} is bottom right corner, @samp{2} is top left corner, @samp{3} is top right corner (is default). Parameter @var{fnt} can contain colors for face (1st one), for border (2nd one) and for text (last one). If less than 3 colors are specified then the color for border is black (for 2 and less colors), and the color for face is white (for 1 or none colors). If string @var{fnt} contain @samp{#} then border around the legend is drawn.
+Draws legend of accumulated legend entries by font @var{fnt} with @var{size}. Parameter @var{pos} sets the position of the legend: @samp{0} is bottom left corner, @samp{1} is bottom right corner, @samp{2} is top left corner, @samp{3} is top right corner (is default). Parameter @var{fnt} can contain colors for face (1st one), for border (2nd one) and for text (last one). If less than 3 colors are specified then the color for border is black (for 2 and less colors), and the color for face is white (for 1 or none colors). If string @var{fnt} contain @samp{#} then border around the legend is drawn. If string @var{fnt} contain @samp{-} then legend entries will arranged horizontally.
 @end deftypefn
 
-@deftypefn {MGL command} {} legend @code{x y} ['fnt'='#' @code{size=-1 llen=0.1}]
+@deftypefn {MGL command} {} legend @code{x y} ['fnt'='#']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Legend (@code{mreal} x, @code{mreal} y, @code{const char *}fnt=@code{"#"}, @code{mreal} size=@code{-0.8}, @code{mreal} llen=@code{0.1})
-@deftypefnx {C function} @code{void} mgl_legend_pos (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{const char *}fnt, @code{mreal} size, @code{mreal} llen)
+@deftypefnx {Method on @code{mglGraph}} @code{void} Legend (@code{mreal} x, @code{mreal} y, @code{const char *}fnt=@code{"#"}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_legend_pos (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
 Draws legend of accumulated legend entries by font @var{fnt} with @var{size}. Position of legend is determined by parameter @var{x}, @var{y} which supposed to be normalized to interval [0,1].
 @end deftypefn
@@ -1703,9 +1803,9 @@ String @var{pen} specifies the color and style of line and marks (see @ref{Line
 @deftypefnx {MGL command} {} plot xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} plot xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_plot (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_plot_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_plot_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1716,7 +1816,7 @@ These functions draw continuous lines between points @{@var{x}[i], @var{y}[i], @
 @anchor{radar}
 @deftypefn {MGL command} {} radar adat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Radar (@code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Radar (@code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_radar (@code{HMGL} gr, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
 This functions draws radar chart which is continuous lines between points located on an radial lines (like plot in Polar coordinates). Parameter @var{value} in options @var{opt} set the additional shift of data (i.e. the data @var{a}+@var{value} is used instead of @var{a}). If @code{value<0} then @code{r=max(0, -min(value)}. If @var{pen} containt @samp{#} symbol then "grid" (radial lines and circle for @var{r}) is drawn. See also @ref{plot}. @sref{Radar sample}
@@ -1727,9 +1827,9 @@ This functions draws radar chart which is continuous lines between points locate
 @deftypefnx {MGL command} {} step xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} step xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Step (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_step (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_step_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_step_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1742,9 +1842,9 @@ These functions draw continuous stairs for points to axis plane. See also @ref{p
 @deftypefnx {MGL command} {} tens xdat ydat cdat ['stl'='']
 @deftypefnx {MGL command} {} tens xdat ydat zdat cdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglData &}y, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}y, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tens (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tens_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tens_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
@@ -1757,9 +1857,9 @@ These functions draw continuous lines between points @{@var{x}[i], @var{y}[i], @
 @deftypefnx {MGL command} {} tape xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} tape xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tape (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tape_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tape_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1772,9 +1872,9 @@ These functions draw tapes of normals for curve between points @{@var{x}[i], @va
 @deftypefnx {MGL command} {} area xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} area xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Area (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_area (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_area_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_area_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1786,8 +1886,8 @@ These functions draw continuous lines between points and fills it to axis plane.
 @deftypefn {MGL command} {} region ydat1 ydat2 ['stl'='']
 @deftypefnx {MGL command} {} region xdat ydat1 ydat2 ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Region (@code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Region (@code{const mglData &}x, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Region (@code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Region (@code{const mglDataA &}x, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_region (@code{HMGL} gr, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_region_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1799,9 +1899,9 @@ These functions fill area between 2 curves. Dimensions of arrays @var{y1} and @v
 @deftypefnx {MGL command} {} stem xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} stem xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_stem (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_stem_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_stem_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1814,9 +1914,9 @@ These functions draw vertical lines from points to axis plane. See also @ref{are
 @deftypefnx {MGL command} {} bars xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} bars xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_bars (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_bars_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_bars_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1828,8 +1928,8 @@ These functions draw vertical bars from points to axis plane. If string @var{pen
 @deftypefn {MGL command} {} barh vdat ['stl'='']
 @deftypefnx {MGL command} {} barh ydat vdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Barh (@code{const mglData &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Barh (@code{const mglData &}y, @code{const mglData &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Barh (@code{const mglDataA &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Barh (@code{const mglDataA &}y, @code{const mglDataA &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_barh (@code{HMGL} gr, @code{HCDT} v, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_barh_xy (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} v, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1841,9 +1941,9 @@ These functions draw horizontal bars from points to axis plane. If string contai
 @deftypefnx {MGL command} {} cones xdat ydat ['stl'='']
 @deftypefnx {MGL command} {} cones xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cones (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cones_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cones_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1856,7 +1956,7 @@ These functions draw cones from points to axis plane. If string contain symbol @
 @anchor{chart}
 @deftypefn {MGL command} {} chart adat ['col'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Chart (@code{const mglData &}a, @code{const char *}col=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Chart (@code{const mglDataA &}a, @code{const char *}col=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_chart (@code{HMGL} gr, @code{HCDT} a, @code{const char *}col, @code{const char *}opt)
 @end ifclear
 The function draws colored stripes (boxes) for data in array @var{a}. The number of stripes is equal to the number of rows in @var{a} (equal to @var{a.ny}). The color of each next stripe is cyclically changed from colors specified in string @var{col} or in palette Pal (see @ref{Palette and colors}). Spaces in colors denote transparent ``color'' (i.e. corresponding stripe(s) are not drawn). The stripe width is proportional to value of element in @var{a}. Chart is plotted only for data with non-negative elements. If string @var{col} have symbol @samp{#} then black border lines are drawn. The most nice form the chart have in 3d (after rotation of coordinates) or in cylindrical coordinates (becomes so called Pie chart). @sref{Chart sample}
@@ -1866,8 +1966,8 @@ The function draws colored stripes (boxes) for data in array @var{a}. The number
 @deftypefn {MGL command} {} boxplot adat ['stl'='']
 @deftypefnx {MGL command} {} boxplot xdat adat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} BoxPlot (@code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} BoxPlot (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} BoxPlot (@code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} BoxPlot (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_boxplot (@code{HMGL} gr, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_boxplot_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1881,11 +1981,11 @@ These functions draw boxplot (also known as a box-and-whisker diagram) at points
 @deftypefnx {MGL command} {} candle vdat1 vdat2 ydat1 ydat2 ['stl'='']
 @deftypefnx {MGL command} {} candle xdat vdat1 vdat2 ydat1 ydat2 ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}v2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}v2, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglData &}x, @code{const mglData &}v1, @code{const mglData &}v2, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}x, @code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_candle (@code{HMGL} gr, @code{HCDT} v1, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_candle_yv (@code{HMGL} gr, @code{HCDT} v1, @code{HCDT} v2, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_candle_xyv (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} v1, @code{HCDT} v2, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
@@ -1899,9 +1999,9 @@ These functions draw candlestick chart at points @var{x}[i]. This is a combinati
 @deftypefnx {MGL command} {} error xdat ydat yerr ['stl'='']
 @deftypefnx {MGL command} {} error xdat ydat xerr yerr ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglData &}y, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ex, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglDataA &}y, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Error (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ex, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_error (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_error_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_error_exy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ex, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
@@ -1914,9 +2014,9 @@ These functions draw error boxes @{@var{ex}[i], @var{ey}[i]@} at points @{@var{x
 @deftypefnx {MGL command} {} mark xdat ydat rdat ['stl'='']
 @deftypefnx {MGL command} {} mark xdat ydat zdat rdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_mark_y (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_mark_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_mark_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
@@ -1930,14 +2030,14 @@ These functions draw marks with size @var{r}[i]*@ref{marksize} at points @{@var{
 @deftypefnx {MGL command} {} textmark xdat ydat rdat 'txt' ['stl'='']
 @deftypefnx {MGL command} {} textmark xdat ydat zdat rdat 'txt' ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_textmark (@code{HMGL} gr, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_textmarkw (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_textmark_yr (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
@@ -1955,12 +2055,12 @@ These functions draw string @var{txt} as marks with size proportional to @var{r}
 @deftypefnx {MGL command} {} label xdat ydat 'txt' ['stl'='']
 @deftypefnx {MGL command} {} label xdat ydat zdat 'txt' ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_label (@code{HMGL} gr, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_labelw (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_label_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
@@ -1968,7 +2068,21 @@ These functions draw string @var{txt} as marks with size proportional to @var{r}
 @deftypefnx {C function} @code{void} mgl_label_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_labelw_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
-These functions draw string @var{txt} at points @{@var{x}[i], @var{y}[i], @var{z}[i]@}. If string @var{txt} contain @samp{%x}, @samp{%y}, @samp{%z} or @samp{%n} then it will be replaced by the value of x-,y-,z-coordinate of the point or its index. See also @ref{plot}, @ref{mark}, @ref{textmark}. @sref{Label sample}
+These functions draw string @var{txt} at points @{@var{x}[i], @var{y}[i], @var{z}[i]@}. If string @var{txt} contain @samp{%x}, @samp{%y}, @samp{%z} or @samp{%n} then it will be replaced by the value of x-,y-,z-coordinate of the point or its index. See also @ref{plot}, @ref{mark}, @ref{textmark}, @ref{table}. @sref{Label sample}
+@end deftypefn
+
+@anchor{table}
+@deftypefn {MGL command} {} table vdat 'txt' ['stl'='#']
+@deftypefnx {MGL command} {} table x y vdat 'txt' ['stl'='#']
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{const mglDataA &}val, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{const mglDataA &}val, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{mreal} x, @code{mreal} y, @code{const mglDataA &}val, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{mreal} x, @code{mreal} y, @code{const mglDataA &}val, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_table (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{HCDT} val, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_tablew (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{HCDT} val, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
+@end ifclear
+These functions draw table with values of @var{val} and captions from string @var{txt} (separated by newline symbol @samp{\n}) at points @{@var{x}, @var{y}@} (default at @{0,0@}) related to current subplot. If string @var{fnt} contain @samp{#} then cell border will be drawn. If string @var{fnt} contain @samp{|} then table width is limited by subplot width (equivalent option @samp{value 1}). If string @var{fnt} contain @samp{=} then widths of all cells are the same. Option @code{value} set the width of the table (default is 1). See also @ref{plot}, @ref{label}. @sref{Table sample}
 @end deftypefn
 
 @anchor{tube}
@@ -1979,12 +2093,12 @@ These functions draw string @var{txt} at points @{@var{x}[i], @var{y}[i], @var{z
 @deftypefnx {MGL command} {} tube xdat ydat zdat rdat ['stl'='']
 @deftypefnx {MGL command} {} tube xdat ydat zdat @code{rval} ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tube_r (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tube (@code{HMGL} gr, @code{HCDT} y, @code{mreal} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tube_xyr (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
@@ -1998,10 +2112,10 @@ These functions draw the tube with variable radius @var{r}[i] along the curve be
 @anchor{torus}
 @deftypefn {MGL command} {} torus rdat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Torus (@code{const mglData &}r, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Torus (@code{const mglDataA &}r, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_torus (@code{HMGL} gr, @code{HCDT} r, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
-These functions draw surface which is result of curve @{@var{r}, @var{z}@} rotation around axis. If string @var{pen} contain symbols @samp{x} or @samp{z} then rotation axis will be set to specified direction (default is @samp{y}). See also @ref{plot}, @ref{axial}. @sref{Torus sample}
+These functions draw surface which is result of curve @{@var{r}, @var{z}@} rotation around axis. If string @var{pen} contain symbols @samp{x} or @samp{z} then rotation axis will be set to specified direction (default is @samp{y}). If string @var{pen} have symbol @samp{#} then wire plot is produced. If string @var{pen} have symbol @samp{.} then plot by dots is produced. See also @ref{plot}, @ref{axial}. @sref{Torus sample}
 @end deftypefn
 
 @c ##################################################################
@@ -2028,20 +2142,20 @@ These functions perform plotting of 2D data. 2D means that data depend from 2 in
 @deftypefn {MGL command} {} surf zdat ['sch'='']
 @deftypefnx {MGL command} {} surf xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. If string @var{sch} have symbol @samp{#} then grid lines are drawn. See also @ref{mesh}, @ref{dens}, @ref{belt}, @ref{tile}, @ref{boxs}, @ref{surfc}, @ref{surfa}. @sref{Surf sample}
+The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. If string @var{sch} have symbol @samp{#} then grid lines are drawn. If string @var{sch} have symbol @samp{.} then plot by dots is produced. See also @ref{mesh}, @ref{dens}, @ref{belt}, @ref{tile}, @ref{boxs}, @ref{surfc}, @ref{surfa}. @sref{Surf sample}
 @end deftypefn
 
 @anchor{mesh}
 @deftypefn {MGL command} {} mesh zdat ['sch'='']
 @deftypefnx {MGL command} {} mesh xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Mesh (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Mesh (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Mesh (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Mesh (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_mesh (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_mesh_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2052,8 +2166,8 @@ The function draws mesh lines for surface specified parametrically @{@var{x}[i,j
 @deftypefn {MGL command} {} fall zdat ['sch'='']
 @deftypefnx {MGL command} {} fall xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Fall (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Fall (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Fall (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Fall (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_fall (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_fall_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2064,8 +2178,8 @@ The function draws fall lines for surface specified parametrically @{@var{x}[i,j
 @deftypefn {MGL command} {} belt zdat ['sch'='']
 @deftypefnx {MGL command} {} belt xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Belt (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Belt (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Belt (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Belt (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_belt (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_belt_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2076,20 +2190,20 @@ The function draws belts for surface specified parametrically @{@var{x}[i,j], @v
 @deftypefn {MGL command} {} boxs zdat ['sch'='']
 @deftypefnx {MGL command} {} boxs xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Boxs (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Boxs (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Boxs (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Boxs (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_boxs (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_boxs_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws vertical boxes for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. See also @ref{surf}, @ref{dens}, @ref{tile}, @ref{step}. @sref{Boxs sample}
+The function draws vertical boxes for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Symbol @samp{@@} in @var{sch} set to draw filled boxes. See also @ref{surf}, @ref{dens}, @ref{tile}, @ref{step}. @sref{Boxs sample}
 @end deftypefn
 
 @anchor{tile}
 @deftypefn {MGL command} {} tile zdat ['sch'='']
 @deftypefnx {MGL command} {} tile xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tile (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Tile (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tile (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Tile (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tile (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tile_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2100,20 +2214,20 @@ The function draws horizontal tiles for surface specified parametrically @{@var{
 @deftypefn {MGL command} {} dens zdat ['sch'='']
 @deftypefnx {MGL command} {} dens xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dens (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dens (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
 @deftypefnx {C function} @code{void} mgl_dens (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dens_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws density plot for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} at @var{z} = @var{Min}.z. If string @var{sch} have symbol @samp{#} then grid lines are drawn. See also @ref{surf}, @ref{cont}, @ref{contf}, @ref{boxs}, @ref{tile}, @code{dens[xyz]}. @sref{Dens sample}
+The function draws density plot for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} at @var{z} = @var{Min}.z. If string @var{sch} have symbol @samp{#} then grid lines are drawn. If string @var{sch} have symbol @samp{.} then plot by dots is produced. See also @ref{surf}, @ref{cont}, @ref{contf}, @ref{boxs}, @ref{tile}, @code{dens[xyz]}. @sref{Dens sample}
 @end deftypefn
 
 @anchor{cont}
 @deftypefn {MGL command} {} cont vdat zdat ['sch'='']
 @deftypefnx {MGL command} {} cont vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont__val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2123,8 +2237,8 @@ The function draws contour lines for surface specified parametrically @{@var{x}[
 @deftypefn {MGL command} {} cont zdat ['sch'='']
 @deftypefnx {MGL command} {} cont xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2135,8 +2249,8 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} contf vdat zdat ['sch'='']
 @deftypefnx {MGL command} {} contf vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2146,8 +2260,8 @@ The function draws solid (or filled) contour lines for surface specified paramet
 @deftypefn {MGL command} {} contf zdat ['sch'='']
 @deftypefnx {MGL command} {} contf xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2158,8 +2272,8 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} contd vdat zdat ['sch'='']
 @deftypefnx {MGL command} {} contd vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contd_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contd_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2169,8 +2283,8 @@ The function draws solid (or filled) contour lines for surface specified paramet
 @deftypefn {MGL command} {} contd zdat ['sch'='']
 @deftypefnx {MGL command} {} contd xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contd (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contd_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2181,19 +2295,19 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} contv vdat zdat ['sch'='']
 @deftypefnx {MGL command} {} contv vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contv_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contv_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws vertical cylinder at contour lines for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} at @var{z}=@var{v}[k] or at @var{z} = @var{Min}.z if @var{sch} contain symbol @samp{_}. Contours are plotted for @var{z}[i,j]=@var{v}[k] where @var{v}[k] are values of data array @var{v}. See also @ref{cont}, @ref{contf}. @sref{ContV sample}
+The function draws vertical cylinder (tube) at contour lines for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} at @var{z}=@var{v}[k] or at @var{z} = @var{Min}.z if @var{sch} contain symbol @samp{_}. Contours are plotted for @var{z}[i,j]=@var{v}[k] where @var{v}[k] are values of data array @var{v}. See also @ref{cont}, @ref{contf}. @sref{ContV sample}
 @end deftypefn
 
 @deftypefn {MGL command} {} contv zdat ['sch'='']
 @deftypefnx {MGL command} {} contv xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contv (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contv_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2204,19 +2318,19 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} axial vdat zdat ['sch'='']
 @deftypefnx {MGL command} {} axial vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_axial_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_axial_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws surface which is result of contour plot rotation for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Contours are plotted for @var{z}[i,j]=@var{v}[k] where @var{v}[k] are values of data array @var{v}. If string @var{sch} have symbol @samp{#} then wire plot is produced. If string contain symbols @samp{x} or @samp{z} then rotation axis will be set to specified direction (default is @samp{y}). See also @ref{cont}, @ref{contf}, @ref{torus}, @ref{surf3}. @sref{Axial sample}
+The function draws surface which is result of contour plot rotation for surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Contours are plotted for @var{z}[i,j]=@var{v}[k] where @var{v}[k] are values of data array @var{v}. If string @var{sch} have symbol @samp{#} then wire plot is produced. If string @var{sch} have symbol @samp{.} then plot by dots is produced. If string contain symbols @samp{x} or @samp{z} then rotation axis will be set to specified direction (default is @samp{y}). See also @ref{cont}, @ref{contf}, @ref{torus}, @ref{surf3}. @sref{Axial sample}
 @end deftypefn
 
 @deftypefn {MGL command} {} axial zdat ['sch'='']
 @deftypefnx {MGL command} {} axial xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
 @deftypefnx {C function} @code{void} mgl_axial (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_axial_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2227,8 +2341,8 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} grid2 zdat ['sch'='']
 @deftypefnx {MGL command} {} grid2 xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grid (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_grid (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_grid_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2254,19 +2368,19 @@ These functions perform plotting of 3D data. 3D means that data depend from 3 in
 @deftypefn {MGL command} {} surf3 adat @code{val} ['sch'='']
 @deftypefnx {MGL command} {} surf3 xdat ydat zdat adat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. If string contain @samp{#} then wire plot is produced. Note, that there is possibility of incorrect plotting due to uncertainty of cross-section defining if there are two or more isosurface intersections inside one cell. See also @ref{cloud}, @ref{dens3}, @ref{surf3c}, @ref{surf3a}, @ref{axial}. @sref{Surf3 sample}
+The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. If string contain @samp{#} then wire plot is produced. If string @var{sch} have symbol @samp{.} then plot by dots is produced. Note, that there is possibility of incorrect plotting due to uncertainty of cross-section defining if there are two or more isosurface intersections inside one cell. See also @ref{cloud}, @ref{dens3}, @ref{surf3c}, @ref{surf3a}, @ref{axial}. @sref{Surf3 sample}
 @end deftypefn
 
 @deftypefn {MGL command} {} surf3 adat ['sch'='']
 @deftypefnx {MGL command} {} surf3 xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2277,20 +2391,20 @@ Draws @var{num}-th uniformly distributed in color range isosurfaces for 3d data.
 @deftypefn {MGL command} {} cloud adat ['sch'='']
 @deftypefnx {MGL command} {} cloud xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cloud (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cloud (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cloud (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cloud (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cloud (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cloud_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws cloud plot for 3d data specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]). This plot is a set of cubes with color and transparency proportional to value of @var{a}. The resulting plot is like cloud -- low value is transparent but higher ones are not. The number of plotting cells depend on @ref{meshnum}. If string @var{sch} contain symbol @samp{.} then lower quality plot will produced with much low memory usage. If string @var{sch} contain symbol @samp{!} then transparency will be inversed, i.e. higher become transparent and lower become not transparent. See also @ref{surf3}, @ref{meshnum}. @sref{Cloud sample}
+The function draws cloud plot for 3d data specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]). This plot is a set of cubes with color and transparency proportional to value of @var{a}. The resulting plot is like cloud -- low value is transparent but higher ones are not. The number of plotting cells depend on @ref{meshnum}. If string @var{sch} contain symbol @samp{.} then lower quality plot will produced with much low memory usage. If string @var{sch} contain symbol @samp{i} then transparency will be inversed, i.e. higher become transparent and lower become not transparent. See also @ref{surf3}, @ref{meshnum}. @sref{Cloud sample}
 @end deftypefn
 
 @anchor{dens3}
 @deftypefn {MGL command} {} dens3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} dens3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dens3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dens3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dens3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dens3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_dens3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dens3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2301,8 +2415,8 @@ The function draws density plot for 3d data specified parametrically @var{a}[i,j
 @deftypefn {MGL command} {} cont3 vdat adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} cont3 vdat xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont3_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont3_xyz_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2312,8 +2426,8 @@ The function draws contour plot for 3d data specified parametrically @var{a}[i,j
 @deftypefn {MGL command} {} cont3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} cont3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2324,8 +2438,8 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} contf3 vdat adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} contf3 vdat xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf3_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf3_xyz_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2335,8 +2449,8 @@ The function draws solid (or filled) contour plot for 3d data specified parametr
 @deftypefn {MGL command} {} contf3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} contf3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2347,8 +2461,8 @@ The same as previous with vector @var{v} of @var{num}-th elements equidistantly
 @deftypefn {MGL command} {} grid3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {MGL command} {} grid3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grid3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grid3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grid3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grid3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_grid3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_grid3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2358,8 +2472,8 @@ The function draws grid for 3d data specified parametrically @var{a}[i,j,k](@var
 @anchor{beam}
 @deftypefn {MGL command} {} beam tr g1 g2 adat @code{rval} ['sch'='' @code{flag=0 num=3}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Beam (@code{const mglData &}tr, @code{const mglData &}g1, @code{const mglData &}g2, @code{const mglData &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0}, @code{int} num=@code{3})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Beam (@code{mreal} val, @code{const mglData &}tr, @code{const mglData &}g1, @code{const mglData &}g2, @code{const mglData &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Beam (@code{const mglDataA &}tr, @code{const mglDataA &}g1, @code{const mglDataA &}g2, @code{const mglDataA &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0}, @code{int} num=@code{3})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Beam (@code{mreal} val, @code{const mglDataA &}tr, @code{const mglDataA &}g1, @code{const mglDataA &}g2, @code{const mglDataA &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0})
 @deftypefnx {C function} @code{void} mgl_beam (@code{HMGL} gr, @code{HCDT} tr, @code{HCDT} g1, @code{HCDT} g2, @code{HCDT} a, @code{mreal} r, @code{const char *}stl, @code{int} flag, @code{int} num)
 @deftypefnx {C function} @code{void} mgl_beam_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} tr, @code{HCDT} g1, @code{HCDT} g2, @code{HCDT} a, @code{mreal} r, @code{const char *}stl, @code{int} flag)
 @end ifclear
@@ -2385,31 +2499,31 @@ These plotting functions draw @emph{two matrix} simultaneously. There are 5 gene
 @deftypefn {MGL command} {} surfc zdat cdat ['sch'='']
 @deftypefnx {MGL command} {} surfc xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} SurfC (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} SurfC (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SurfC (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SurfC (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surfc (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surfc_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} and color it by matrix @var{c}[i,j]. If string @var{sch} have symbol @samp{#} then grid lines are drawn. All dimensions of arrays @var{z} and @var{c} must be equal. Surface is plotted for each z slice of the data. See also @ref{surf}, @ref{surfa}, @ref{surf3c}. @sref{SurfC sample}
+The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} and color it by matrix @var{c}[i,j]. If string @var{sch} have symbol @samp{#} then grid lines are drawn. If string @var{sch} have symbol @samp{.} then plot by dots is produced. All dimensions of arrays @var{z} and @var{c} must be equal. Surface is plotted for each z slice of the data. See also @ref{surf}, @ref{surfa}, @ref{surf3c}. @sref{SurfC sample}
 @end deftypefn
 
 @anchor{surf3c}
 @deftypefn {MGL command} {} surf3c adat cdat @code{val} ['sch'='']
 @deftypefnx {MGL command} {} surf3c xdat ydat zdat adat cdat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3c_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3c_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. It is mostly the same as @ref{surf3} function but the color of isosurface depends on values of array @var{c}. If string @var{sch} contain @samp{#} then wire plot is produced. See also @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3C sample}
+The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. It is mostly the same as @ref{surf3} function but the color of isosurface depends on values of array @var{c}. If string @var{sch} contain @samp{#} then wire plot is produced. If string @var{sch} have symbol @samp{.} then plot by dots is produced. See also @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3C sample}
 @end deftypefn
 
 @deftypefn {MGL command} {} surf3c adat cdat ['sch'='']
 @deftypefnx {MGL command} {} surf3c xdat ydat zdat adat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3C (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3c (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3c_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2421,31 +2535,31 @@ Draws @var{num}-th uniformly distributed in color range isosurfaces for 3d data.
 @deftypefn {MGL command} {} surfa zdat cdat ['sch'='']
 @deftypefnx {MGL command} {} surfa xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} SurfA (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} SurfA (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SurfA (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} SurfA (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surfa (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surfa_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} and transparent it by matrix @var{c}[i,j]. If string @var{sch} have symbol @samp{#} then grid lines are drawn. All dimensions of arrays @var{z} and @var{c} must be equal. Surface is plotted for each z slice of the data. See also @ref{surf}, @ref{surfc}, @ref{surf3a}. @sref{SurfA sample}
+The function draws surface specified parametrically @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} and transparent it by matrix @var{c}[i,j]. If string @var{sch} have symbol @samp{#} then grid lines are drawn. If string @var{sch} have symbol @samp{.} then plot by dots is produced. All dimensions of arrays @var{z} and @var{c} must be equal. Surface is plotted for each z slice of the data. See also @ref{surf}, @ref{surfc}, @ref{surf3a}. @sref{SurfA sample}
 @end deftypefn
 
 @anchor{surf3a}
 @deftypefn {MGL command} {} surf3a adat cdat @code{val} ['sch'='']
 @deftypefnx {MGL command} {} surf3a xdat ydat zdat adat cdat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3a_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3a_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. It is mostly the same as @ref{surf3} function but the color of isosurface depends on values of array @var{c}. If string @var{sch} contain @samp{#} then wire plot is produced. See also @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3A sample}
+The function draws isosurface plot for 3d array specified parametrically @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) at @var{a}(x,y,z)=@var{val}. It is mostly the same as @ref{surf3} function but the color of isosurface depends on values of array @var{c}. If string @var{sch} contain @samp{#} then wire plot is produced. If string @var{sch} have symbol @samp{.} then plot by dots is produced. See also @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3A sample}
 @end deftypefn
 
 @deftypefn {MGL command} {} surf3a adat cdat ['sch'='']
 @deftypefnx {MGL command} {} surf3a xdat ydat zdat adat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Surf3A (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_surf3a (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_surf3a_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2456,8 +2570,8 @@ Draws @var{num}-th uniformly distributed in color range isosurfaces for 3d data.
 @deftypefn {MGL command} {} tiles zdat rdat ['sch'='']
 @deftypefnx {MGL command} {} tiles xdat ydat zdat rdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} TileS (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TileS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TileS (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TileS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tiles (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tiles_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} r, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2468,8 +2582,8 @@ The function draws horizontal tiles for surface specified parametrically @{@var{
 @deftypefn {MGL command} {} map udat vdat ['sch'='']
 @deftypefnx {MGL command} {} map xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Map (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Map (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Map (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Map (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_map (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_map_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2480,8 +2594,8 @@ The function draws mapping plot for matrices @{@var{ax}, @var{ay} @} which param
 @deftypefn {MGL command} {} stfa re im @code{dn} ['sch'='']
 @deftypefnx {MGL command} {} stfa xdat ydat re im @code{dn} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} STFA (@code{const mglData &}re, @code{const mglData &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} STFA (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}re, @code{const mglData &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} STFA (@code{const mglDataA &}re, @code{const mglDataA &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} STFA (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}re, @code{const mglDataA &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_stfa (@code{HMGL} gr, @code{HCDT} re, @code{HCDT} im, @code{int} dn, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_stfa_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} re, @code{HCDT} im, @code{int} dn, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2506,8 +2620,8 @@ These functions perform plotting of 2D and 3D vector fields. There are 5 general
 @deftypefn {MGL command} {} traj xdat ydat udat vdat ['sch'='']
 @deftypefnx {MGL command} {} traj xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Traj (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Traj (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Traj (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Traj (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_traj_xyz (@code{HMGL} gr, @code{HCDT}x, @code{HCDT}y, @code{HCDT}z, @code{HCDT}ax, @code{HCDT}ay, @code{HCDT}az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_traj_xy (@code{HMGL} gr, @code{HCDT}x, @code{HCDT}y, @code{HCDT}ax, @code{HCDT}ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2518,12 +2632,12 @@ The function draws vectors @{@var{ax}, @var{ay}, @var{az}@} along a curve @{@var
 @deftypefn {MGL command} {} vect udat vdat ['sch'='']
 @deftypefnx {MGL command} {} vect xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_vect_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_vect_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-The function draws plane vector field plot for the field @{@var{ax}, @var{ay}@} depending parametrically on coordinates @var{x}, @var{y} at level @var{z}=@var{Min}.z. The length and color of arrows are proportional to @math{\sqrt@{ax^2+ay^2@}}. The number of arrows depend on @ref{meshnum}. The apperance of the hachures (arrows) can be changed by symbols:
+The function draws plane vector field plot for the field @{@var{ax}, @var{ay}@} depending parametrically on coordinates @var{x}, @var{y} at level @var{z}=@var{Min}.z. The length and color of arrows are proportional to @math{\sqrt@{ax^2+ay^2@}}. The number of arrows depend on @ref{meshnum}. The appearance of the hachures (arrows) can be changed by symbols:
 @itemize @bullet
 @item
 @samp{f} for drawing arrows with fixed lengths,
@@ -2540,20 +2654,43 @@ See also @ref{flow}, @ref{dew}. @sref{Vect sample}
 @deftypefn {MGL command} {} vect udat vdat wdat ['sch'='']
 @deftypefnx {MGL command} {} vect xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_vect_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_vect_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
 This is 3D version of the first functions. Here arrays @var{ax}, @var{ay}, @var{az} must be 3-ranged tensors with equal sizes and the length and color of arrows is proportional to @math{\sqrt@{ax^2+ay^2+az^2@}}.
 @end deftypefn
 
+@anchor{vect3}
+@deftypefn {MGL command} {} vect3 udat vdat wdat ['sch'='' sval]
+@deftypefnx {MGL command} {} vect3 xdat ydat zdat udat vdat wdat ['sch'='' sval]
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect3 (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_vect3 (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_vect3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
+@end ifclear
+The function draws 3D vector field plot for the field @{@var{ax}, @var{ay}, @var{az}@} depending parametrically on coordinates @var{x}, @var{y}, @var{z}. Vector field is drawn at slice @var{sVal} in direction @{@samp{x}, @samp{y}, @samp{z}@} if @var{sch} contain corresponding symbol (by default, @samp{y} direction is used). The length and color of arrows are proportional to @math{\sqrt@{ax^2+ay^2+az^2@}}. The number of arrows depend on @ref{meshnum}. The appearance of the hachures (arrows) can be changed by symbols:
+@itemize @bullet
+@item
+@samp{f} for drawing arrows with fixed lengths,
+@item
+@samp{>}, @samp{<} for drawing arrows to or from the cell point (default is centering),
+@item
+@samp{.} for drawing hachures with dots instead of arrows,
+@item
+@samp{=} for enabling color gradient along arrows.
+@end itemize
+See also @ref{vect}, @ref{flow}, @ref{dew}. @sref{Vect3 sample}
+@end deftypefn
+
 @anchor{dew}
 @deftypefn {MGL command} {} dew udat vdat ['sch'='']
 @deftypefnx {MGL command} {} dew xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dew (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dew (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dew (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dew (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_dew (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dew_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2564,8 +2701,8 @@ The function draws dew-drops for plane vector field @{@var{ax}, @var{ay}@} depen
 @deftypefn {MGL command} {} flow udat vdat ['sch'='']
 @deftypefnx {MGL command} {} flow xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_flow_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_flow_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2586,8 +2723,8 @@ See also @ref{pipe}, @ref{vect}, @ref{tape}, @ref{barwidth}. @sref{Flow sample}
 @deftypefn {MGL command} {} flow udat vdat wdat ['sch'='']
 @deftypefnx {MGL command} {} flow xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_flow_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_flow_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2597,8 +2734,8 @@ This is 3D version of the first functions. Here arrays @var{ax}, @var{ay}, @var{
 @deftypefn {MGL command} {} flow @code{x0 y0} udat vdat ['sch'='']
 @deftypefnx {MGL command} {} flow @code{x0 y0} xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_flowp_2d (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_flowp_xy (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2608,8 +2745,8 @@ The same as first one (@ref{flow}) but draws single flow thread starting from po
 @deftypefn {MGL command} {} flow @code{x0 y0 z0} udat vdat wdat ['sch'='']
 @deftypefnx {MGL command} {} flow @code{x0 y0 z0} xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_flowp_3d (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_flowp_xyz (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2621,9 +2758,9 @@ This is 3D version of the previous functions.
 @deftypefnx {MGL command} {} grad xdat ydat pdat ['sch'='']
 @deftypefnx {MGL command} {} grad xdat ydat zdat pdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_grad (@code{HMGL} gr, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_grad_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_grad_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
@@ -2635,8 +2772,8 @@ The function draws gradient lines for scalar field @var{phi}[i,j] (or @var{phi}[
 @deftypefn {MGL command} {} pipe udat vdat ['sch'='' @code{r0=0.05}]
 @deftypefnx {MGL command} {} pipe xdat ydat udat vdat ['sch'='' @code{r0=0.05}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_pipe_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_pipe_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @end ifclear
@@ -2646,8 +2783,8 @@ The function draws flow pipes for the plane vector field @{@var{ax}, @var{ay}@}
 @deftypefn {MGL command} {} pipe udat vdat wdat ['sch'='' @code{r0=0.05}]
 @deftypefnx {MGL command} {} pipe xdat ydat zdat udat vdat wdat ['sch'='' @code{r0=0.05}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_pipe_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_pipe_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @end ifclear
@@ -2677,9 +2814,9 @@ These functions perform miscellaneous plotting. There is unstructured data point
 @deftypefnx {MGL command} {} densy dat ['sch'='' @code{sval=nan}]
 @deftypefnx {MGL command} {} densz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} DensX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} DensY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} DensZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} DensX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} DensY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} DensZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_dens_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dens_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dens_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2692,9 +2829,9 @@ These plotting functions draw density plot in x, y, or z plain. If @var{a} is a
 @deftypefnx {MGL command} {} conty dat ['sch'='' @code{sval=nan}]
 @deftypefnx {MGL command} {} contz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2703,9 +2840,9 @@ These plotting functions draw contour lines in x, y, or z plain. If @var{a} is a
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} ContX (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContY (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContZ (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefn {Method on @code{mglGraph}} @code{void} ContX (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContY (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContZ (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_cont_x_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_y_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_cont_z_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2718,9 +2855,9 @@ The same as previous with manual contour levels.
 @deftypefnx {MGL command} {} contfy dat ['sch'='' @code{sval=nan}]
 @deftypefnx {MGL command} {} contfz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContFX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContFY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContFZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContFX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContFY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContFZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2729,9 +2866,9 @@ These plotting functions draw solid contours in x, y, or z plain. If @var{a} is
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} ContFX (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContFY (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} ContFZ (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefn {Method on @code{mglGraph}} @code{void} ContFX (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContFY (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} ContFZ (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_contf_x_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_y_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_contf_z_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2778,9 +2915,9 @@ Draws command parametrical surface @{@samp{x(u,v)}, @samp{y(u,v)}, @samp{z(u,v)}
 @deftypefnx {MGL command} {} triplot idat xdat ydat zdat ['sch'='']
 @deftypefnx {MGL command} {} triplot idat xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_triplot_xy (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_triplot_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_triplot_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2793,10 +2930,10 @@ The function draws the surface of triangles. Triangle vertexes are set by indexe
 @deftypefnx {MGL command} {} tricont vdat idat xdat ydat zdat ['sch'='']
 @deftypefnx {MGL command} {} tricont idat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriCont (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriCont (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriContV (@code{const mglData &}v, @code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} TriContV (@code{const mglData &}v, @code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriCont (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriCont (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriContV (@code{const mglDataA &}v, @code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} TriContV (@code{const mglDataA &}v, @code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_tricont_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tricont_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_tricont_xyzcv (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2810,9 +2947,9 @@ The function draws contour lines for surface of triangles at @var{z}=@var{v}[k]
 @deftypefnx {MGL command} {} quadplot idat xdat ydat zdat ['sch'='']
 @deftypefnx {MGL command} {} quadplot idat xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_quadplot_xy (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_quadplot_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_quadplot_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2824,8 +2961,8 @@ The function draws the surface of quadrangles. Quadrangles vertexes are set by i
 @deftypefn {MGL command} {} dots xdat ydat zdat ['sch'='']
 @deftypefnx {MGL command} {} dots xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dots (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Dots (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dots (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Dots (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_dots (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {C function} @code{void} mgl_dots_a (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2835,7 +2972,7 @@ The function draws the arbitrary placed points @{@var{x}[i], @var{y}[i], @var{z}
 @anchor{crust}
 @deftypefn {MGL command} {} crust xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} Crust (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Crust (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_crust (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
 The function reconstruct and draws the surface for arbitrary placed points @{@var{x}[i], @var{y}[i], @var{z}[i]@}. String @var{sch} sets the color scheme. If string contain @samp{#} then wire plot is produced. Arrays @var{x}, @var{y}, @var{z} must have equal sizes. See also @ref{dots}, @ref{triplot}. @c @sref{Crust sample}
@@ -2862,14 +2999,14 @@ Functions Fit() and FitS() do not draw the obtained data themselves. They fill t
 @deftypefnx {MGL command} {} fits res xdat ydat adat sdat 'func' 'var' [ini=0]
 @deftypefnx {MGL command} {} fits res xdat ydat zdat adat sdat 'func' 'var' [ini=0]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_fit_ys (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_fit_xys (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_fit_xyzs (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
@@ -2884,14 +3021,14 @@ Fit data along x-, y- and z-directions for array specified parametrically @var{a
 @deftypefnx {MGL command} {} fit res xdat ydat adat sdat 'func' 'var' [ini=0]
 @deftypefnx {MGL command} {} fit res xdat ydat zdat adat sdat 'func' 'var' [ini=0]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_fit_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_fit_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_fit_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
@@ -2902,10 +3039,10 @@ Fit data along x-, y- and z-directions for array specified parametrically @var{a
 
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{mglData} Fit2 (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit2 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefn {Method on @code{mglGraph}} @code{mglData} Fit2 (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit2 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_fit_2 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_fit_3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 Fit data along all directions for 2d or 3d arrays @var{a} with @var{s}=1 and @var{x}, @var{y}, @var{z} equidistantly distributed in interval [@var{Min}, @var{Max}].
@@ -2941,9 +3078,9 @@ Get last fitted formula with found coefficients (as numbers).
 @deftypefnx {MGL command} {} hist @sc{res} xdat ydat adat
 @deftypefnx {MGL command} {} hist @sc{res} xdat ydat zdat adat
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_hist_x (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_hist_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{const char *}opt)
 @deftypefnx {C function} @code{HMDT} mgl_hist_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}opt)
@@ -2957,8 +3094,8 @@ These functions make distribution (histogram) of data. They do not draw the obta
 @deftypefnx {MGL command} {} fill dat 'eq' vdat wdat
 @ifclear UDAV
 @deftypefnx {Method on @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglData &}v, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglData &}v, @code{const mglData &}w, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglDataA &}v, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglDataA &}v, @code{const mglDataA &}w, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} u, @code{const char *}eq, @code{HCDT}v, @code{HCDT}w, @code{const char *}opt)
 @end ifclear
 Fills the value of array @samp{u} according to the formula in string @var{eq}. Formula is an arbitrary expression depending  on variables @samp{x}, @samp{y}, @samp{z}, @samp{u}, @samp{v}, @samp{w}. Coordinates @samp{x}, @samp{y}, @samp{z} are supposed to be normalized in axis range. Variable @samp{u} is the original value of the array. Variables @samp{v} and @samp{w} are values of arrays @var{v}, @var{w} which can be @code{NULL} (i.e. can be omitted).
@@ -2966,7 +3103,7 @@ Fills the value of array @samp{u} according to the formula in string @var{eq}. F
 
 @deftypefn {MGL command} {} datagrid dat xdat ydat zdat
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} DataGrid (@code{mglData &}u, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} DataGrid (@code{mglData &}u, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_data_grid (@code{HMGL} gr, @code{HMDT} u, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}opt)
 @end ifclear
 Fills the value of array @samp{u} according to the linear interpolation of triangulated surface, found for arbitrary placed points @samp{x}, @samp{y}, @samp{z}. Interpolation is done at points equidistantly distributed in axis range. NAN value is used for grid points placed outside of triangulated surface.
@@ -2976,7 +3113,7 @@ Fills the value of array @samp{u} according to the linear interpolation of trian
 
 @deftypefn {MGL command} {} pde @sc{res} 'ham' ini_re ini_im [@code{dz=0.1 k0=100}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{mglData} PDE (@code{const char *}ham, @code{const mglData &}ini_re, @code{const mglData &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{mglData} PDE (@code{const char *}ham, @code{const mglDataA &}ini_re, @code{const mglDataA &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_pde_solve (@code{HMGL} gr, @code{const char *}ham, @code{HCDT} ini_re, @code{HCDT} ini_im, @code{mreal} dz, @code{mreal} k0, @code{const char *}opt)
 @end ifclear
 Solves equation du/dz = i*k0*@var{ham}(p,q,x,y,z,|u|)[u], where p=-i/k0*d/dx, q=-i/k0*d/dy are pseudo-differential operators. Parameters @var{ini_re}, @var{ini_im} specify real and imaginary part of initial field distribution. Coordinates @samp{x}, @samp{y}, @samp{z} are supposed to be normalized in axis range. Note, that really this ranges are increased by factor 3/2 for purpose of reducing reflection from boundaries. Parameter @var{dz} set the step along evolutionary coordinate z. At this moment, simplified form of function @var{ham} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this function is effectively @math{ham = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed. Here variable @samp{u} is used for field amplitude |u|. This allow one solve nonlinear problems -- for example, for nonlinear Shrodinger equation you may set @code{ham="p^2 + q^2 - u^2"}. You may specify imaginary part for wave absorption, like @code{ham = "p^2 + i*x*(x>0)"}, but only if dependence on variable @samp{i} is linear (i.e. @math{ham = hre+i*him}). @sref{PDE solving hints}

diff --git a/texinfo/core_ru.texi b/texinfo/core_ru.texi
index 9e7ee0a7e1a6e825f819b0a6b01f0d497da6ecab..e74a51d5fbcc1c16cd26caeeac2208ce59cea3a8 100644 (file)
--- a/texinfo/core_ru.texi
+++ b/texinfo/core_ru.texi
@@ -72,11 +72,6 @@ MGL не требует создания данного типа объекто
 @deftypefnx {Функция С} @code{void} mgl_set_def_param (@code{HMGL} gr)
 Устанавливает все настройки по умолчанию.
 @end deftypefn
-
-@deftypefn {Метод класса @code{mglGraph}} @code{void} SetPlotId (@code{const char *}id)
-@deftypefnx {Функция С} @code{void} mgl_set_plotid (@code{HMGL} gr, @code{const char *}id)
-Задает имя графика для сохранения в файл (например, в окне FLTK).
-@end deftypefn
 @end ifclear
 
 @menu
@@ -91,7 +86,7 @@ MGL не требует создания данного типа объекто
 @end menu
 
 @c ==================================================================
-@external
+@comment  @external
 @node Transparency, Lighting, , Graphics setup
 @subsection Прозрачность
 @cindex Alpha
@@ -132,7 +127,7 @@ MGL не требует создания данного типа объекто
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Lighting, Fog, Transparency, Graphics setup
 @subsection Освещение
 @ifclear UDAV
@@ -191,7 +186,7 @@ MGL не требует создания данного типа объекто
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Fog, Default sizes, Lighting, Graphics setup
 @subsection Туман
 @cindex Fog
@@ -206,7 +201,7 @@ MGL не требует создания данного типа объекто
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Default sizes, Cutting, Fog, Graphics setup
 @subsection Базовые размеры
 @ifclear UDAV
@@ -260,8 +255,26 @@ MGL не требует создания данного типа объекто
 Задает ориентировочное число линий в @ref{mesh}, @ref{fall}, @ref{grid} и число стрелок (штрихов) в @ref{vect}, @ref{dew} и число ячеек в @ref{cloud}. По умолчанию (=0) рисуются все линии, стрелки, ячейки.
 @end deftypefn
 
+@anchor{facenum}
+@deftypefn {Команда MGL} {} facenum @code{val}
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetFaceNum (@code{int} val)
+@deftypefnx {Функция С} @code{void} mgl_set_facenum (@code{HMGL} gr, @code{int} num)
+@end ifclear
+Задает ориентировочное число видимых граней. Может быть использована для ускорения рисования за счет более грубого рисунка. По умолчанию (=0) рисуются все грани.
+@end deftypefn
+
+@anchor{plotid}
+@deftypefn {Команда MGL} {} plotid 'id'
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetPlotId (@code{const char *}id)
+@deftypefnx {Функция С} @code{void} mgl_set_plotid (@code{HMGL} gr, @code{const char *}id)
+@end ifclear
+Задает имя графика для сохранения в файл (например, в окне FLTK).
+@end deftypefn
+
 @c ==================================================================
-@external
+@comment  @external
 @node Cutting, Font settings, Default sizes, Graphics setup
 @subsection Обрезание
 @ifclear UDAV
@@ -299,7 +312,7 @@ MGL не требует создания данного типа объекто
 @end deftypefn
 
 @c ==================================================================
-@external
+@comment  @external
 @node Font settings, Palette and colors, Cutting, Graphics setup
 @subsection Шрифты
 @ifclear UDAV
@@ -330,6 +343,15 @@ MGL не требует создания данного типа объекто
 Включает/выключает вращение меток и подписей осей координат вдоль оси.
 @end deftypefn
 
+@anchor{loadfont}
+@deftypefn {MGL command} {} loadfont ['name'='']
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} LoadFont (@code{const char *}name, @code{const char *}path=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_load_font (@code{HMGL} gr, @code{const char *}name, @code{const char *}path)
+@end ifclear
+Загружает начертание шрифта из файла @var{path}/@var{name}. Пустая строка загрузит шрифт по умолчанию.
+@end deftypefn
+
 @ifclear UDAV
 @deftypefn {Метод класса @code{mglGraph}} @code{void} SetFontDef (@code{const char *}fnt)
 @deftypefnx {Функция С} @code{void} mgl_set_font_def (@code{HMGL} gr, @code{const char *} val)
@@ -351,11 +373,6 @@ MGL не требует создания данного типа объекто
 Задает размер шрифта в дюймах для заданного DPI (по умолчанию 0.22 in = 16 pt).
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglGraph}} @code{void} LoadFont (@code{const char *}name, @code{const char *}path=@code{""})
-@deftypefnx {Функция С} @code{void} mgl_load_font (@code{HMGL} gr, @code{const char *}name, @code{const char *}path)
-Загружает начертание шрифта из файла @var{path}/@var{name}.
-@end deftypefn
-
 @deftypefn {Метод класса @code{mglGraph}} @code{void} CopyFont (@code{mglGraph *} from)
 @deftypefnx {Функция С} @code{void} mgl_copy_font (@code{HMGL} gr, @code{HMGL} gr_from)
 Копирует начертание шрифта из другого объекта @code{mglGraph}.
@@ -366,10 +383,14 @@ MGL не требует создания данного типа объекто
 Восстанавливает начертание шрифта по умолчанию.
 @end deftypefn
 
+@deftypefn {Функция С} @code{void} mgl_def_font (@code{const char *}name, @code{const char *}path)
+Загружает начертание шрифта по умолчанию (для всех вновь создаваемых HMGL/mglGraph объектов) из файла @var{path}/@var{name}.
+@end deftypefn
+
 @end ifclear
 
 @c ==================================================================
-@external
+@comment  @external
 @node Palette and colors, Error handling, Font settings, Graphics setup
 @subsection Палитра и цвета
 @ifclear UDAV
@@ -387,18 +408,18 @@ MGL не требует создания данного типа объекто
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglGraph}} @code{void} SetDefScheme (@code{const char *}sch)
-@deftypefnx {C function} @code{void} mgl_set_def_sch (@code{HMGL} gr, @code{const char *}sch)
+@deftypefn {Метод класса @code{mglGraph}} @code{void} SetDefScheme (@code{const char *}sch)
+@deftypefnx {Функция С} @code{void} mgl_set_def_sch (@code{HMGL} gr, @code{const char *}sch)
 Устанавливает @var{sch} в качестве цветовой схемы по умолчанию. Начальное значение @code{"BbcyrR"}.
 @end deftypefn
 
-@deftypefn {C function} @code{void} mgl_set_color (@code{char} id, @code{mreal} r, @code{mreal} g, @code{mreal} b)
+@deftypefn {Функция С} @code{void} mgl_set_color (@code{char} id, @code{mreal} r, @code{mreal} g, @code{mreal} b)
 Задает RGB значения для цвета с заданным @var{id}.
 @end deftypefn
 @end ifclear
 
 @c ==================================================================
-@external
+@comment  @external
 @node Error handling, , Palette and colors, Graphics setup
 @subsection Обработка ошибок
 @ifclear UDAV
@@ -471,7 +492,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Ranges (bounding box), Curved coordinates, , Axis settings
 @subsection Масштаб осей координат
 @cindex CRange
@@ -506,7 +527,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @deftypefnx {Команда MGL} {} zrange dat [@code{add=off}]
 @deftypefnx {Команда MGL} {} crange dat [@code{add=off}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRange (@code{char} dir, @code{const mglData &}dat, @code{bool} add=@code{false})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRange (@code{char} dir, @code{const mglDataA &}dat, @code{bool} add=@code{false})
 @deftypefnx {Функция С} @code{void} mgl_set_range_dat (@code{HMGL} gr, @code{char} dir, @code{const HCDT} a, @code{int} add)
 @end ifclear
 Задает диапазон изменения @samp{x}-,@samp{y}-,@samp{z}-,@samp{c}-координат как минимальное и максимальное значение массива @var{dat}. Параметр @code{add=on} указывает добавлять новый диапазон к существующему (не заменять его).
@@ -523,9 +544,9 @@ Setsize: размер(ы) равны нулю или отрицательны
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy)
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz)
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz, @code{const mglData &}cc)
+@deftypefn {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetRanges (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz, @code{const mglDataA &}cc)
 Задает диапазон изменения @samp{x}-,@samp{y}-,@samp{z}-,@samp{c}-координат как минимальное и максимальное значение массивов @var{xx}, @var{yy}, @var{zz}, @var{cc} соответственно.
 @end deftypefn
 @end ifclear
@@ -540,9 +561,18 @@ Setsize: размер(ы) равны нулю или отрицательны
 Задает центр пересечения осей координат. Если одно из значений равно NAN, то MathGL попытается выбрать оптимальное положение осей координат по этому направлению.
 @end deftypefn
 
+@anchor{zoomaxis}
+@deftypefn {Команда MGL} {} zoomaxis @code{x1 x2 [y1=0 y2=1 [z1=0 z2=1 [c1=0 c2=1]]]}
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ZoomAxis (@code{mglPoint} p1, @code{mglPoint} p2)
+@deftypefnx {Функция С} @code{void} mgl_zoom_axis (@code{HMGL} gr, @code{mreal} x1, @code{mreal} x2, @code{mreal} y1, @code{mreal} y2, @code{mreal} z1, @code{mreal} z2, @code{mreal} c1, @code{mreal} c2)
+@end ifclear
+Дополнительно расширяет диапазон осей координат, задаваемый функциями @code{SetRange} или @code{SetRanges}, в соответствии с формулами @math{min += (max-min)*p1} и @math{max += (max-min)*p1} (или @math{min *= (max/min)^p1} и @math{max *= (max/min)^p1} для "логарифмических" диапазонов, когда @math{inf>max/min>100} или @math{0<max/min<0.01}). Начальные значения [0, 1]. Внимание! эти настройки не могут быть переписаны никакими другими функциями, включая  @code{DefaultPlotParam()}.
+@end deftypefn
+
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Curved coordinates, Ticks, Ranges (bounding box), Axis settings
 @subsection Криволинейные координаты
 @cindex Axis
@@ -574,11 +604,19 @@ Setsize: размер(ы) равны нулю или отрицательны
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} Ternary (@code{int} tern)
 @deftypefnx {Функция С} @code{void} mgl_set_ternary (@code{HMGL} gr, @code{int} tern)
 @end ifclear
-Задает рисование треугольных (Ternary) или пирамидальных (Quaternary) осей координат. Это специальный тип графика для 3 зависимых координат (компонент) @var{a}, @var{b}, @var{c} таких, что @var{a}+@var{b}+@var{c}=1. MathGL использует только 2 независимые координаты @var{a}=x и @var{b}=y поскольку их достаточно для построения всех графиков. При этом третья координата z является независимым параметром для построения линий уровня, поверхностей и т.д. Соответственно Quaternary координаты -- 4 зависимые координаты @var{a}, @var{b}, @var{c} и @var{d}, такие что @var{a}+@var{b}+@var{c}+@var{d}=1. Используйте @code{Ternary(0)}. @sref{Ternary axis}
+Задает рисование треугольных (Ternary, @var{tern}=@code{1}), пирамидальных (Quaternary, @var{tern}=@code{2}) осей координат и проекций осей координат (@var{tern}=@code{4,5,6}). 
+
+Ternary -- специальный тип графика для 3 зависимых координат (компонент) @var{a}, @var{b}, @var{c} таких, что @var{a}+@var{b}+@var{c}=1. MathGL использует только 2 независимые координаты @var{a}=x и @var{b}=y поскольку их достаточно для построения всех графиков. При этом третья координата z является независимым параметром для построения линий уровня, поверхностей и т.д. 
+
+Соответственно Quaternary координаты -- 4 зависимые координаты @var{a}, @var{b}, @var{c} и @var{d}, такие что @var{a}+@var{b}+@var{c}+@var{d}=1. MathGL использует только 2 независимые координаты @var{a}=x, @var{b}=y и @var{d}=z поскольку их достаточно для построения всех графиков.
+
+Проекции строятся если к переменной @var{tern} добавить число @code{4}. Так что @var{tern}=@code{4} нарисует проекции в декартовых координатах, @var{tern}=@code{5} нарисует проекции в треугольных координатах, @var{tern}=@code{6} нарисует проекции в пирамидальных координатах.
+
+Используйте @code{Ternary(0)} для возвращения к привычным координатам. @sref{Ternary axis} @sref{Axis projection}
 @end deftypefn
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Ticks, , Curved coordinates, Axis settings
 @subsection Метки осей
 @cindex AxisStl
@@ -619,8 +657,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @deftypefnx {Команда MGL} {} ctick @code{val [sub=0 org=nan]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicks (@code{char} dir, @code{mreal} d=@code{0}, @code{int} ns=@code{0}, @code{mreal} org=@code{NAN})
-@deftypefnx {Функция С} @code{void} mgl_set_ticks_dir (@code{HMGL} gr, @code{char} dir, @code{mreal} d, @code{int} ns, @code{mreal} org)
-@deftypefnx {Функция С} @code{void} mgl_set_ticks (@code{HMGL} gr, @code{int} nx, @code{int} ny, @code{int} nz)
+@deftypefnx {Функция С} @code{void} mgl_set_ticks (@code{HMGL} gr, @code{char} dir, @code{mreal} d, @code{int} ns, @code{mreal} org)
 @end ifclear
 Задает шаг меток осей @var{d}, число подметок @var{ns} и начальное положение меток @var{org} для оси вдоль направления @var{dir} (используйте 'c' для меток colorbar). Переменная @var{d} задает шаг меток (если положительна) или их число на оси (если отрицательна). Нулевое значение задает автоматическую расстановку меток. Если @var{org}=@code{NAN}, то используется значение из переменной @var{Org}.
 @end deftypefn
@@ -631,8 +668,8 @@ Setsize: размер(ы) равны нулю или отрицательны
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const char *}lbl, @code{bool} add=@code{false})
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglData &}val, @code{const char *}lbl, @code{bool} add=@code{false})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglData &}val, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglDataA &}val, @code{const char *}lbl, @code{bool} add=@code{false})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SetTicksVal (@code{char} dir, @code{const mglDataA &}val, @code{const wchar_t *}lbl, @code{bool} add=@code{false})
 @deftypefnx {Функция С} @code{void} mgl_set_ticks_str (@code{HMGL} gr, @code{char} dir, @code{const char *}lbl, @code{bool} add)
 @deftypefnx {Функция С} @code{void} mgl_set_ticks_wcs (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}lbl, @code{bool} add)
 @deftypefnx {Функция С} @code{void} mgl_set_ticks_val (@code{HMGL} gr, @code{char} dir, @code{HCDT} val, @code{const char *}lbl, @code{bool} add)
@@ -672,8 +709,8 @@ Setsize: размер(ы) равны нулю или отрицательны
 
 @ifclear UDAV
 
-@deftypefn {Method on @code{mglGraph}} @code{void} SetTickShift (@code{mglPoint} d)
-@deftypefnx {C function} @code{void} mgl_set_tick_shift (@code{HMGL} gr, @code{mreal} dx, @code{mreal} dy, @code{mreal} dz, @code{mreal} dc)
+@deftypefn {Метод класса @code{mglGraph}} @code{void} SetTickShift (@code{mglPoint} d)
+@deftypefnx {Функция С} @code{void} mgl_set_tick_shift (@code{HMGL} gr, @code{mreal} dx, @code{mreal} dy, @code{mreal} dz, @code{mreal} dc)
 Задает значение дополнительного сдвига меток осей координат.
 @end deftypefn
 
@@ -687,8 +724,8 @@ Setsize: размер(ы) равны нулю или отрицательны
 Включает/выключает пропуск меток если их число или длина меток слишком велики.
 @end deftypefn
 
-@deftypefn {Method on @code{mglGraph}} @code{void} SetTimeUTC (@code{bool} val)
-@c @deftypefnx {C function} @code{void} mgl_set_tick_skip (@code{HMGL} gr, @code{bool} val)
+@deftypefn {Метод класса @code{mglGraph}} @code{void} SetTimeUTC (@code{bool} val)
+@c @deftypefnx {Функция С} @code{void} mgl_set_tick_skip (@code{HMGL} gr, @code{bool} val)
 Разрешает/запрещает использование UTC времени в метках осей координат. В C/Fortran следует использовать @code{mgl_set_flag(gr,val, MGL_USE_GMTIME);}.
 @end deftypefn
 
@@ -738,7 +775,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @deftypefnx {Функция С} @code{void} mgl_subplot (@code{HMGL} gr, @code{int} nx, @code{int} ny, @code{int} m, @code{const char *}stl)
 @deftypefnx {Функция С} @code{void} mgl_subplot_d (@code{HMGL} gr, @code{int} nx, @code{int} ny, @code{int} m, @code{const char *}stl, @code{mreal} dx, @code{mreal} dy)
 @end ifclear
-Помещает последующий вывод в @var{m}-ую ячейку сетки размером @var{nx}*@var{ny} от всего рисунка. Функция сбрасывает матрицу трансформации (повороты и сжатие графика) и должна вызываться первой для создания "подграфика". С эстетической точки зрения не рекомендуется вызывать эту функцию с различными (или не кратными) размерами сетки. Место для осей/colorbar резервируется только если строка @var{stl} содержит: @samp{L} или @samp{<} -- с левого края, @samp{R} или @samp{>} -- с правого края, @samp{A} или @samp{^} -- с верхнего края, @samp{U} или @samp{_} -- с нижнего края. Ячейка может быть дополнительно сдвинута относительно своего обычного положения на относительный размер @var{dx}, @var{dy}.
+Ð\9fомеÑ\89аеÑ\82 поÑ\81ледÑ\83Ñ\8eÑ\89ий вÑ\8bвод в @var{m}-Ñ\83Ñ\8e Ñ\8fÑ\87ейкÑ\83 Ñ\81еÑ\82ки Ñ\80азмеÑ\80ом @var{nx}*@var{ny} оÑ\82 вÑ\81его Ñ\80иÑ\81Ñ\83нка. ФÑ\83нкÑ\86иÑ\8f Ñ\81бÑ\80аÑ\81Ñ\8bваеÑ\82 маÑ\82Ñ\80иÑ\86Ñ\83 Ñ\82Ñ\80анÑ\81Ñ\84оÑ\80маÑ\86ии (повоÑ\80оÑ\82Ñ\8b и Ñ\81жаÑ\82ие гÑ\80аÑ\84ика) и должна вÑ\8bзÑ\8bваÑ\82Ñ\8cÑ\81Ñ\8f пеÑ\80вой длÑ\8f Ñ\81озданиÑ\8f "подгÑ\80аÑ\84ика". С Ñ\8dÑ\81Ñ\82еÑ\82иÑ\87еÑ\81кой Ñ\82оÑ\87ки зÑ\80ениÑ\8f не Ñ\80екомендÑ\83еÑ\82Ñ\81Ñ\8f вÑ\8bзÑ\8bваÑ\82Ñ\8c Ñ\8dÑ\82Ñ\83 Ñ\84Ñ\83нкÑ\86иÑ\8e Ñ\81 Ñ\80азлиÑ\87нÑ\8bми (или не кÑ\80аÑ\82нÑ\8bми) Ñ\80азмеÑ\80ами Ñ\81еÑ\82ки. Ð\9cеÑ\81Ñ\82о длÑ\8f оÑ\81ей/colorbar Ñ\80езеÑ\80виÑ\80Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\82олÑ\8cко еÑ\81ли Ñ\81Ñ\82Ñ\80ока @var{stl} Ñ\81одеÑ\80жиÑ\82: @samp{L} или @samp{<} -- Ñ\81 левого кÑ\80аÑ\8f, @samp{R} или @samp{>} -- Ñ\81 пÑ\80авого кÑ\80аÑ\8f, @samp{A} или @samp{^} -- Ñ\81 веÑ\80Ñ\85него кÑ\80аÑ\8f, @samp{U} или @samp{_} -- Ñ\81 нижнего кÑ\80аÑ\8f. Ð\95Ñ\81ли Ñ\81Ñ\82Ñ\80ока @var{stl} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о оÑ\81и кооÑ\80динаÑ\82 бÑ\83дÑ\83Ñ\82 занимаÑ\82Ñ\8c вÑ\81е доÑ\81Ñ\82Ñ\83пное пÑ\80оÑ\81Ñ\82Ñ\80анÑ\81Ñ\82во (меÑ\81Ñ\82о Ñ\80езеÑ\80виÑ\80оваÑ\82Ñ\8cÑ\81Ñ\8f не бÑ\83деÑ\82). ЯÑ\87ейка можеÑ\82 бÑ\8bÑ\82Ñ\8c дополниÑ\82елÑ\8cно Ñ\81двинÑ\83Ñ\82а оÑ\82ноÑ\81иÑ\82елÑ\8cно Ñ\81воего обÑ\8bÑ\87ного положениÑ\8f на оÑ\82ноÑ\81иÑ\82елÑ\8cнÑ\8bй Ñ\80азмеÑ\80 @var{dx}, @var{dy}.
 @end deftypefn
 
 @anchor{multiplot}
@@ -852,19 +889,28 @@ Setsize: размер(ы) равны нулю или отрицательны
 Задает масштаб картинки. Не рекомендуется устанавливать значения меньше 1.5. Это аналог функции Zoom(), но применяется только к конкретному подграфику. Используйте ноль для включения автоматического масштабирования.
 @end deftypefn
 
-Также есть 2 функции, которые управляют масштабированием @code{Zoom()} и вращением @code{View()} всего рисунка. Т.е. они действуют как ещё одна матрица трансформации. Они были введены для вращения/приближения графика с помощью мыши.
+@end ifclear
+
 
-@deftypefn {Метод класса @code{mglGraph}} @code{void} View (@code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY=@code{0})
+Также есть 2 функции, которые управляют масштабированием @code{Zoom()} и вращением @code{View()} всего рисунка. Т.е. они действуют как ещё одна матрица трансформации. Они были введены для вращения/приближения графика с помощью мыши. Не рекомендуется вызывать их при рисовании графика.
+
+@anchor{view}
+@deftypefn {Команда MGL} {} view @code{tetx tetz [tety=0]}
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} View (@code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY=@code{0})
 @deftypefnx {Функция С} @code{void} mgl_view (@code{HMGL} gr, @code{mreal} TetX, @code{mreal} TetZ, @code{mreal} TetY)
-Вращает систему координат относительно осей @{x, z, y@} последовательно на углы @var{TetX}, @var{TetZ}, @var{TetY}. Вращение происходит независимо от @ref{rotate}. Используйте @code{Zoom(0,0,1,1)} для возвращения к виду по умолчанию.
+@end ifclear
+Вращает систему координат относительно осей @{x, z, y@} последовательно на углы @var{TetX}, @var{TetZ}, @var{TetY}. Вращение происходит независимо от @ref{rotate}. Внимание! эти настройки не могут быть переписаны функцией  @code{DefaultPlotParam()}. Используйте @code{Zoom(0,0,1,1)} для возвращения к виду по умолчанию.
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglGraph}} @code{void} Zoom (@code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
+@anchor{zoom}
+@deftypefn {Команда MGL} {} zoom @code{x1 y1 x2 y2}
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Zoom (@code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
 @deftypefnx {Функция С} @code{void} mgl_set_zoom (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} x2, @code{mreal} y2)
-Масштабирует весь рисунок. После вызова функции текущий график будет очищен и в дальнейшем рисунок будет содержать только область [x1,x2]*[y1,y2] от исходного рисунка. Координаты @var{x1}, @var{x2}, @var{y1}, @var{y2} меняются в диапазоне от 0 до 1. Внимание! эти настройки не могут быть переписаны никакими другими функциями. Используйте @code{Zoom(0,0,1,1)} для возвращения к виду по умолчанию.
-@end deftypefn
-
 @end ifclear
+Масштабирует весь рисунок. После вызова функции текущий график будет очищен и в дальнейшем рисунок будет содержать только область [x1,x2]*[y1,y2] от исходного рисунка. Координаты @var{x1}, @var{x2}, @var{y1}, @var{y2} меняются в диапазоне от 0 до 1. Внимание! эти настройки не могут быть переписаны никакими другими функциями, включая  @code{DefaultPlotParam()}. Используйте @code{Zoom(0,0,1,1)} для возвращения к виду по умолчанию.
+@end deftypefn
 
 @c ##################################################################
 @external
@@ -884,12 +930,12 @@ Setsize: размер(ы) равны нулю или отрицательны
 @end deftypefn
 
 @anchor{quality}
-@deftypefn {Команда MGL} {} quality @code{val}
+@deftypefn {Команда MGL} {} quality [@code{val}=2]
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} SetQuality (@code{int} val=@code{MGL_DRAW_NORM})
 @deftypefnx {Функция С} @code{void} mgl_set_quality (@code{HMGL} gr, @code{int} val)
 @end ifclear
-Задает качество графика в зависимости от значения @var{val}: @code{MGL_DRAW_WIRE=0} -- нет рисования граней (наиболее быстрый), @code{MGL_DRAW_FAST=1} -- нет интерполяции цвета (быстрый), @code{MGL_DRAW_NORM=2} -- высокое качество (нормальный). Если установлен бит @code{MGL_DRAW_LMEM=0x4}, то происходит прямое рисование в растровое изображение (меньше затраты памяти).
+Задает качество графика в зависимости от значения @var{val}: @code{MGL_DRAW_WIRE=0} -- нет рисования граней (наиболее быстрый), @code{MGL_DRAW_FAST=1} -- нет интерполяции цвета (быстрый), @code{MGL_DRAW_NORM=2} -- высокое качество (нормальный), @code{MGL_DRAW_NORM=3} -- высокое качество с рисованием 3d примитивов (стрелок и маркеров). Если установлен бит @code{MGL_DRAW_LMEM=0x4}, то происходит прямое рисование в растровое изображение (меньше затраты памяти).
 @end deftypefn
 
 @ifclear UDAV
@@ -912,7 +958,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @end menu
 
 @c ==================================================================
-@external
+@comment  @external
 @node Export to file, Frames/Animation, , Export picture
 @subsection Экспорт в файл
 @cindex Write
@@ -927,6 +973,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @cindex WriteBPS
 @cindex WriteTGA
 @cindex WriteTEX
+@cindex WritePRC
 @cindex WriteOBJ
 @cindex WriteWGL
 @cindex WriteJPEG
@@ -941,7 +988,7 @@ Setsize: размер(ы) равны нулю или отрицательны
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} WriteFrame (@code{const char *}fname=@code{""}, @code{const char *}descr=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_write_frame (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
 @end ifclear
-Экспортирует текущий кадр в файл @var{fname} с типом, определяемым по расширению. Параметр @var{descr} добавляет описание (может быть пустым). Если @var{fname} пустой, то используется имя @samp{frame####.jpg}, где @samp{####} -- текущий номер кадра и имя @samp{frame} определяется переменной @var{PlotId}.
+Экспортирует текущий кадр в файл @var{fname} с типом, определяемым по расширению. Параметр @var{descr} добавляет описание (может быть пустым). Если @var{fname} пустой, то используется имя @samp{frame####.jpg}, где @samp{####} -- текущий номер кадра и имя @samp{frame} определяется переменной @ref{plotid}.
 @end deftypefn
 
 @ifclear UDAV
@@ -989,7 +1036,13 @@ Setsize: размер(ы) равны нулю или отрицательны
 
 @deftypefn {Метод класса @code{mglGraph}} @code{void} WriteTEX (@code{const char *}fname, @code{const char *}descr=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_write_tex (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
-Экспортирует текущий кадр в LaTeX файл (пакет Tikz/PGF), используя векторное представление графика. Вследствие чего не рекомендуется сохранять большие графики (поверхности, а особенно поверхности уровня) из-за большого размера файла. Хотя никаких внутренних ограничений на размер выходного файла нет. Для них лучше использовать растровый формат (например, PNG или JPEG). Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла.
+Экспортирует текущий кадр в LaTeX файл (пакет Tikz/PGF), используя векторное представление графика. Вследствие чего не рекомендуется сохранять большие графики (поверхности, а особенно поверхности уровня) из-за большого размера файла. Хотя никаких внутренних ограничений на размер выходного файла нет. Для них лучше использовать растровый формат (например, PNG или JPEG). Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла. Отмечу, что сейчас отсутствует изменение размера текста (например, в subplot), что может приводить к неправильному положению надписей.
+@end deftypefn
+
+
+@deftypefn {Метод класса @code{mglGraph}} @code{void} WritePRC (@code{const char *}fname, @code{const char *}descr=@code{""}, @code{bool} make_pdf=@code{true})
+@deftypefnx {Функция С} @code{void} mgl_write_prc (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr, @code{int} make_pdf)
+Экспортирует текущий кадр в PRC файл, используя векторное представление графика (см. @url{http://en.wikipedia.org/wiki/PRC_%28file_format%29}). Вследствие чего не рекомендуется сохранять большие графики (поверхности, а особенно поверхности уровня) из-за большого размера файла. Хотя никаких внутренних ограничений на размер выходного файла нет. Для них лучше использовать растровый формат (например, PNG или JPEG). Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла. Если параметр @var{make_pdf}=@code{true} и PDF был выбран при конфигурировании MathGL, то также создается соответствующий PDF файл с 3D изображением.
 @end deftypefn
 
 @deftypefn {Метод класса @code{mglGraph}} @code{void} WriteOBJ (@code{const char *}fname, @code{const char *}descr=@code{""})
@@ -1030,21 +1083,26 @@ Setsize: размер(ы) равны нулю или отрицательны
 @end deftypefn
 
 
+@deftypefn {Метод класса @code{mglGraph}} @code{void} WriteJSON (@code{const char *}fname, @code{const char *}descr=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_write_json (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
+Экспортирует точки и примитивы в текстовый файл используя @ref{JSON format}. В дальнейшем этот файл можно загрузить и просмотреть в JavaScript скрипте. Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла.
+@end deftypefn
+
 @deftypefn {Метод класса @code{mglGraph}} @code{void} ExportMGLD (@code{const char *}fname, @code{const char *}descr=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_export_mgld (@code{HMGL} gr, @code{const char *}fname, @code{const char *}descr)
-Экспортирует точки и примитивы в файл MGLD формата. В дальнейшем этот файл можно загрузить и просмотреть с помощью @code{mglview}. Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла.
+Экспортирует точки и примитивы в файл @ref{MGLD format}. В дальнейшем этот файл можно загрузить и просмотреть с помощью @code{mglview}. Параметры функции следующие: @var{fname} -- имя файла, @var{descr} -- описание файла.
 @end deftypefn
 
 @deftypefn {Метод класса @code{mglGraph}} @code{void} ImportMGLD (@code{const char *}fname, @code{bool} add=@code{false})
 @deftypefnx {Функция С} @code{void} mgl_import_mgld (@code{HMGL} gr, @code{const char *}fname, @code{int} add)
-Импортирует точки и примитивы из файла в формате MGLD. Параметры функции следующие: @var{fname} -- имя файла, @var{add} -- флаг добавления или замены существующих точек и примитивов.
+Импортирует точки и примитивы из файла в @ref{MGLD format}. Параметры функции следующие: @var{fname} -- имя файла, @var{add} -- флаг добавления или замены существующих точек и примитивов.
 @end deftypefn
 
 @end ifclear
 
 
 @c ##################################################################
-@external
+@comment  @external
 @node Frames/Animation, Bitmap in memory, Export to file, Export picture
 @subsection Кадры/Анимация
 
@@ -1062,8 +1120,8 @@ Setsize: размер(ы) равны нулю или отрицательны
 
 Эти функции позволяют создавать несколько картинок одновременно. В большинстве случаев это бесполезно, но для органов управления (см. @ref{Widget classes}) это позволяет показывать анимацию. Также можно записать несколько кадров в анимированный GIF файл.
 
-@deftypefn {Метод класса @code{mglGraph}} @code{int} NewFrame ()
-@deftypefnx {Функция С} @code{int} mgl_new_frame (@code{HMGL} gr)
+@deftypefn {Метод класса @code{mglGraph}} @code{void} NewFrame ()
+@deftypefnx {Функция С} @code{void} mgl_new_frame (@code{HMGL} gr)
 Создает новый кадр. Функция возвращает номер текущего кадра. В режиме OpenGL функция не должны вызываться в параллельных потоках! -- используйте прямое создание списка. Функция @code{EndFrame()} @strong{должна} быть вызвана после рисования кадра для каждого вызова этой функции.
 @end deftypefn
 
@@ -1077,8 +1135,28 @@ Setsize: размер(ы) равны нулю или отрицательны
 Возвращает число созданных кадров.
 @end deftypefn
 
+@deftypefn {Метод класса @code{mglGraph}} @code{void} GetFrame (@code{int} i)
+@deftypefnx {Функция С} @code{void} mgl_get_frame (@code{HMGL} gr, @code{int} i)
+Завершает рисование кадра и сохраняет объекты рисования в кадр с номером @var{i}, который должен быть в диапазоне [0, @code{GetNumFrame()}-1]. Функция аналогична @code{EndFrame()}, но не добавляет кадр в GIF изображение.
+@end deftypefn
+
+@deftypefn {Метод класса @code{mglGraph}} @code{void} GetFrame (@code{int} i)
+@deftypefnx {Функция С} @code{void} mgl_get_frame (@code{HMGL} gr, @code{int} i)
+Заменяет объекты рисования на объекты из кадра с номером @var{i}. Функция работает если установлен флаг @code{MGL_VECT_FRAME} (по умолчанию).
+@end deftypefn
+
+@deftypefn {Метод класса @code{mglGraph}} @code{void} ShowFrame (@code{int} i)
+@deftypefnx {Функция С} @code{void} mgl_show_frame (@code{HMGL} gr, @code{int} i)
+Добавляет объекты рисования из кадра с номером @var{i} к уже существующим. Функция работает если установлен флаг @code{MGL_VECT_FRAME} (по умолчанию).
+@end deftypefn
+
+@deftypefn {Метод класса @code{mglGraph}} @code{void} DelFrame (@code{int} i)
+@deftypefnx {Функция С} @code{void} mgl_del_frame (@code{HMGL} gr, @code{int} i)
+Удаляет объекты рисования для кадра с номером @var{i} и сдвигает нумерацию всех последующих кадров. Функция работает если установлен флаг @code{MGL_VECT_FRAME} (по умолчанию).
+@end deftypefn
+
 @deftypefn {Метод класса @code{mglGraph}} @code{void} ResetFrames ()
-@deftypefnx {Функция С} @code{int} mgl_reset_frames (@code{HMGL} gr)
+@deftypefnx {Функция С} @code{void} mgl_reset_frames (@code{HMGL} gr)
 Сбрасывает счетчик кадров в 0.
 @end deftypefn
 
@@ -1087,14 +1165,14 @@ Setsize: размер(ы) равны нулю или отрицательны
 Начинает запись кадров в анимированный GIF файл @var{fname}. Параметр @var{ms} задает задержку между кадрами в миллисекундах. Вы @strong{не должны} менять размер рисунка во время создания кино. Используйте CloseGIF() для завершения записи. Эта функция не работает в режиме OpenGL.
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglGraph}} @code{int} CloseGIF ()
+@deftypefn {Метод класса @code{mglGraph}} @code{void} CloseGIF ()
 @deftypefnx {Функция С} @code{void} mgl_close_gif (@code{HMGL} gr)
 Завершает запись анимированного GIF файла.
 @end deftypefn
 @end ifclear
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Bitmap in memory, Parallelization, Frames/Animation, Export picture
 @subsection Рисование в памяти
 
@@ -1144,13 +1222,13 @@ gr.GetBGRN(bits, len(bits));
 Задает числовой идентификатор для объектов или subplot/inplot.
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglGraph}} @code{int} GetObjId (@code{long} xs, @code{long} ys)
-@deftypefnx {Функция С} @code{int} mgl_get_obj_id (@code{HMGL} gr, @code{long} xs, @code{long} ys)
+@deftypefn {Метод класса @code{mglGraph}} @code{int} GetObjId (@code{int} xs, @code{int} ys)
+@deftypefnx {Функция С} @code{int} mgl_get_obj_id (@code{HMGL} gr, @code{int} xs, @code{int} ys)
 Возвращает числовой идентификатор верхнего объекта в точке @{xs, ys@} рисунка.
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglGraph}} @code{int} GetSplId (@code{long} xs, @code{long} ys)
-@deftypefnx {Функция С} @code{int} mgl_get_spl_id (@code{HMGL} gr, @code{long} xs, @code{long} ys)
+@deftypefn {Метод класса @code{mglGraph}} @code{int} GetSplId (@code{int} xs, @code{int} ys)
+@deftypefnx {Функция С} @code{int} mgl_get_spl_id (@code{HMGL} gr, @code{int} xs, @code{int} ys)
 Возвращает числовой идентификатор верхнего "подграфика" в точке @{xs, ys@} рисунка.
 @end deftypefn
 
@@ -1159,10 +1237,15 @@ gr.GetBGRN(bits, len(bits));
 Выделяет объект с заданным @var{id}.
 @end deftypefn
 
+@deftypefn {Метод класса @code{mglGraph}} @code{long} IsActive (@code{int} xs, @code{int} ys, @code{int} d=@code{1})
+@deftypefnx {Функция С} @code{long} mgl_is_active (@code{HMGL} gr, @code{int} xs, @code{int} ys, @code{int} d)
+Проверяет близка ли точка @{@var{xs}, @var{ys}@} к активной точке (т.е. mglBase::Act) с точностью @var{d} и возвращает индекс активной точки или @code{-1} если не найдено. Активные точки -- специальные точки, которые характеризуют примитивы (например, вершины). Это функция только для опытных пользователей.
+@end deftypefn
+
 @end ifclear
 
 @c ------------------------------------------------------------------
-@external
+@comment  @external
 @node Parallelization, , Bitmap in memory, Export picture
 @subsection Распараллеливание
 
@@ -1242,12 +1325,15 @@ gr.GetBGRN(bits, len(bits));
 Рисует маркер (точку по умолчанию) с координатами @var{p}=@{@var{x}, @var{y}, @var{z}@} и цветом @var{col}.
 @end deftypefn
 
+@anchor{errbox}
+@deftypefn {Команда MGL} {} errbox @code{x y ex ey} ['stl'='']
+@deftypefnx {Команда MGL} {} errbox @code{x y z ex ey ez} ['stl'='']
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} Error (@code{mglPoint} p, @code{mglPoint} e, @code{char} *stl=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{mglPoint} p, @code{mglPoint} e, @code{char} *stl=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_error_box (@code{HMGL} gr, @code{mreal} px, @code{mreal} py, @code{mreal} pz, @code{mreal} ex, @code{mreal} ey, @code{mreal} ez, @code{char *}stl)
-Рисует 3d error box в точке @var{p} размером @var{e} и стилем @var{stl}. Используйте NAN в компонентах @var{e} для уменьшения рисуемых элементов.
-@end deftypefn
 @end ifclear
+Рисует 3d error box в точке @var{p}=@{@var{x}, @var{y}, @var{z}@} размером @var{e}=@{@var{ex}, @var{ey}, @var{ez}@} и стилем @var{stl}. Используйте NAN в компонентах @var{e} для уменьшения рисуемых элементов.
+@end deftypefn
 
 @anchor{line}
 @deftypefn {Команда MGL} {} line @code{x1 y1 x2 y2} ['stl'='']
@@ -1269,12 +1355,21 @@ gr.GetBGRN(bits, len(bits));
 Рисует кривую Безье из точки @var{p1} в @var{p2} используя стиль линии @var{stl}. Касательные в точках пропорциональны @var{d1}, @var{d2}. Параметр @var{num} определяет гладкость линии (число точек на линии). Если @var{num}=@code{2}, то рисуется прямая даже в криволинейных координатах (см. @ref{Curved coordinates}). Наоборот, для больших значений (например, =@code{100}) рисуется геодезическая линия (окружность в полярных координатах, парабола в параболических и т.д.). Кривая рисуется даже если часть ее лежит вне диапазона осей координат.
 @end deftypefn
 
+@anchor{face}
+@deftypefn {Команда MGL} {} face @code{x1 y1 x2 y2 x3 y3 x4 y4} ['stl'='']
+@deftypefnx {Команда MGL} {} face @code{x1 y1 z1 x2 y2 z2 x3 y3 z3 x4 y4 z4} ['stl'='']
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} Face (@code{mglPoint} p1, @code{mglPoint} p2, @code{mglPoint} p3, @code{mglPoint} p4, @code{const char *}stl=@code{"w"})
-@deftypefnx {Функция С} @code{void} mgl_curve (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} x3, @code{mreal} y3, @code{mreal} z3, @code{mreal} x4, @code{mreal} y4, @code{mreal} z4, @code{const char *}stl)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Face (@code{mglPoint} p1, @code{mglPoint} p2, @code{mglPoint} p3, @code{mglPoint} p4, @code{const char *}stl=@code{"w"})
+@deftypefnx {Функция С} @code{void} mgl_face (@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} x3, @code{mreal} y3, @code{mreal} z3, @code{mreal} x4, @code{mreal} y4, @code{mreal} z4, @code{const char *}stl)
+@end ifclear
 Рисует заполненный четырехугольник (грань) с углами в точках @var{p1}, @var{p2}, @var{p3}, @var{p4} и цветом(-ами) @var{stl}. При этом цвет может быть один для всей грани, или различным если указаны все 4 цвета. Грань будет нарисована даже если часть ее лежит вне диапазона осей координат.
 @end deftypefn
-@end ifclear
+
+@anchor{rect}
+@deftypefn {MGL command} {} rect @code{x1 y1 x2 y2} ['stl'='']
+@deftypefnx {MGL command} {} rect @code{x1 y1 z1 x2 y2 z2} ['stl'='']
+Рисует закрашенный прямоугольник (грань) с вершинами @{@var{x1}, @var{y1}, @var{z1}@} и @{@var{x2}, @var{y2}, @var{z2}@} цветом @var{stl}. При этом цвет может быть один для всей грани, или различным для разных вершин если указаны все 4 цвета. Грань будет нарисована даже если часть ее лежит вне диапазона осей координат.
+@end deftypefn
 
 @anchor{facex}
 @anchor{facey}
@@ -1332,8 +1427,8 @@ gr.GetBGRN(bits, len(bits));
 @end deftypefn
 
 @anchor{ellipse}
-@deftypefn {Команда MGL} {} ellipse @code{x1 y1 x2 y2 r} ['col'='r' @code{sh=1 asp=1}]
-@deftypefnx {Команда MGL} {} ellipse @code{x1 y1 z1 x2 y2 z2 r} ['col'='r' @code{sh=1 asp=1}]
+@deftypefn {Команда MGL} {} ellipse @code{x1 y1 x2 y2 r} ['col'='r']
+@deftypefnx {Команда MGL} {} ellipse @code{x1 y1 z1 x2 y2 z2 r} ['col'='r']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} Ellipse (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r, @code{const char *}col=@code{"r"})
 @deftypefnx {Функция С} @code{void} mgl_ellipse(@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r, @code{const char *}col)
@@ -1342,8 +1437,8 @@ gr.GetBGRN(bits, len(bits));
 @end deftypefn
 
 @anchor{rhomb}
-@deftypefn {Команда MGL} {} rhomb @code{x1 y1 x2 y2 r} ['col'='r' @code{sh=1 asp=1}]
-@deftypefnx {Команда MGL} {} rhomb @code{x1 y1 z1 x2 y2 z2 r} ['col'='r' @code{sh=1 asp=1}]
+@deftypefn {Команда MGL} {} rhomb @code{x1 y1 x2 y2 r} ['col'='r']
+@deftypefnx {Команда MGL} {} rhomb @code{x1 y1 z1 x2 y2 z2 r} ['col'='r']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} Rhomb (@code{mglPoint} p1, @code{mglPoint} p2, @code{mreal} r, @code{const char *}col=@code{"r"})
 @deftypefnx {Функция С} @code{void} mgl_rhomb(@code{HMGL} gr, @code{mreal} x1, @code{mreal} y1, @code{mreal} z1, @code{mreal} x2, @code{mreal} y2, @code{mreal} z2, @code{mreal} r, @code{const char *}col)
@@ -1360,7 +1455,6 @@ gr.GetBGRN(bits, len(bits));
 @cindex Putsw
 @end ifclear
 @cindex Text
-@cindex Label
 @cindex fgets
 
 Функции для вывода текста позволяют вывести строку текста в произвольном месте рисунка, в произвольном направлении и вдоль произвольной кривой. MathGL позволяет использовать произвольное начертание шрифта и многие ТеХ-ие команды (детальнее см. @ref{Font styles}). Все функции вывода текста имеют варианты для 8-bit строк (@code{char *}) и для Unicode строк (@code{wchar_t *}). В первом случае используется конверсия из текущей локали, т.е. иногда вам требуется явно указать локаль с помощью функции @code{setlocale()}. Аргумент @var{size} определяет размер текста: размер шрифта если положителен или относительный размер (=-@var{size}*@code{SetFontSize()}) если отрицателен. Начертание шрифта (STIX, arial, courier, times и др.) можно изменить с помощью функции LoadFont(). @xref{Font settings}.
@@ -1406,12 +1500,12 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} text xdat ydat 'text' ['fnt'='' @code{size=-1 zval=nan}]
 @deftypefnx {Команда MGL} {} text xdat ydat zdat 'text' ['fnt'='' @code{size=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Text (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const wchar_t *}text, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_text_y (@code{HMGL} gr, @code{HCDT} y, @code{const char *}text, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_textw_y (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}text, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_text_xy (@code{HCDT} x, @code{HCDT} y, @code{const char *}text, @code{const char *}fnt, @code{const char *}opt)
@@ -1437,10 +1531,10 @@ gr.GetBGRN(bits, len(bits));
 @anchor{axis}
 @deftypefn {Команда MGL} {} axis ['dir'='xyz' 'stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axis (@code{const char *}dir=@code{"xyz"}, @code{const char *}stl=@code{""})
-@deftypefnx {Функция С} @code{void} mgl_axis (@code{HMGL} gr, @code{const char *}dir, @code{const char *}stl)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axis (@code{const char *}dir=@code{"xyz"}, @code{const char *}stl=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_axis (@code{HMGL} gr, @code{const char *}dir, @code{const char *}stl, @code{const char *}opt)
 @end ifclear
-Рисует оси координат и метки на них (см. @ref{Axis settings}) в направлениях @samp{xyz}, указанных строкой @var{dir}. Если строка содержит символ @samp{_}, то подписи меток отображаться не будут. Если строка содержит символ @samp{AKDTVISO}, то будет нарисована соответствующая стрелка на конце оси. Стиль меток и оси(ей) задается строкой @var{stl}. @sref{Axis and ticks}
+РиÑ\81Ñ\83еÑ\82 оÑ\81и кооÑ\80динаÑ\82 и меÑ\82ки на ниÑ\85 (Ñ\81м. @ref{Axis settings}) в напÑ\80авлениÑ\8fÑ\85 @samp{xyz}, Ñ\83казаннÑ\8bÑ\85 Ñ\81Ñ\82Ñ\80окой @var{dir}. Ð\97аглавнÑ\8bе бÑ\83квÑ\8b @samp{XYZ} пÑ\80иведÑ\83Ñ\82 к Ñ\80аÑ\81положениÑ\8e меÑ\82ок Ñ\81 дÑ\80Ñ\83гой Ñ\81Ñ\82оÑ\80онÑ\8b оÑ\82 оÑ\81и. Ð\95Ñ\81ли Ñ\81Ñ\82Ñ\80ока Ñ\81одеÑ\80жиÑ\82 Ñ\81имвол @samp{_}, Ñ\82о подпиÑ\81и меÑ\82ок оÑ\82обÑ\80ажаÑ\82Ñ\8cÑ\81Ñ\8f не бÑ\83дÑ\83Ñ\82. Ð\95Ñ\81ли Ñ\81Ñ\82Ñ\80ока Ñ\81одеÑ\80жиÑ\82 Ñ\81имвол @samp{AKDTVISO}, Ñ\82о бÑ\83деÑ\82 наÑ\80иÑ\81ована Ñ\81ооÑ\82веÑ\82Ñ\81Ñ\82вÑ\83Ñ\8eÑ\89аÑ\8f Ñ\81Ñ\82Ñ\80елка на конÑ\86е оÑ\81и. СÑ\82илÑ\8c меÑ\82ок и оÑ\81и(ей) задаеÑ\82Ñ\81Ñ\8f Ñ\81Ñ\82Ñ\80окой @var{stl}. @sref{Axis and ticks}
 @end deftypefn
 
 @anchor{colorbar}
@@ -1454,7 +1548,7 @@ gr.GetBGRN(bits, len(bits));
 
 @deftypefn {Команда MGL} {} colorbar vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Colorbar (@code{const mglData &}v, @code{const char *}sch=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Colorbar (@code{const mglDataA &}v, @code{const char *}sch=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_colorbar_val (@code{HMGL} gr, @code{HCDT} v, @code{const char *}sch)
 @end ifclear
 Аналогично предыдущему, но для цветовой схемы без сглаживания с заданными значениями @var{v}. @sref{ContD sample}
@@ -1470,7 +1564,7 @@ gr.GetBGRN(bits, len(bits));
 
 @deftypefn {Команда MGL} {} colorbar vdat 'sch' @code{x y [w=1 h=1]}
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Colorbar (@code{const mglData &}v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w=@code{1}, @code{mreal} h=@code{1})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Colorbar (@code{const mglDataA &}v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w=@code{1}, @code{mreal} h=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_colorbar_val_ext (@code{HMGL} gr, @code{HCDT} v, @code{const char *}sch, @code{mreal} x, @code{mreal} y, @code{mreal} w, @code{mreal} h)
 @end ifclear
 Аналогично предыдущему, но для цветовой схемы @var{sch} без сглаживания с заданными значениями @var{v}. @sref{ContD sample}
@@ -1479,8 +1573,8 @@ gr.GetBGRN(bits, len(bits));
 @anchor{grid}
 @deftypefn {Команда MGL} {} grid ['dir'='xyz' 'pen'='B']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const char *}dir=@code{"xyz"}, @code{const char *}pen=@code{"B"})
-@deftypefnx {Функция С} @code{void} mgl_axis_grid (@code{HMGL} gr, @code{const char *}dir, @code{const char *}pen)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const char *}dir=@code{"xyz"}, @code{const char *}pen=@code{"B"}, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_axis_grid (@code{HMGL} gr, @code{const char *}dir, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
 Рисует линии сетки в направлениях перпендикулярным @var{dir}. Шаг сетки такой же как у меток осей координат. Стиль линий задается параметром @var{pen} (по умолчанию -- сплошная темно синяя линия @samp{B-}).
 @end deftypefn
@@ -1499,18 +1593,17 @@ gr.GetBGRN(bits, len(bits));
 @anchor{ylabel}
 @anchor{zlabel}
 @anchor{tlabel}
-@deftypefn {Команда MGL} {} xlabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {Команда MGL} {} ylabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {Команда MGL} {} zlabel 'text' [@code{pos=1 shift=0}]
-@deftypefnx {Команда MGL} {} tlabel 'text' [@code{pos=1 shift=0}]
+@deftypefn {Команда MGL} {} xlabel 'text' [@code{pos=1}]
+@deftypefnx {Команда MGL} {} ylabel 'text' [@code{pos=1}]
+@deftypefnx {Команда MGL} {} zlabel 'text' [@code{pos=1}]
+@deftypefnx {Команда MGL} {} tlabel 'text' [@code{pos=1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const char *}text, @code{mreal} pos=@code{1}, @code{mreal} shift=@code{0})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const wchar_t *}text, @code{mreal} pos=@code{1}, @code{mreal} shift=@code{0})
-@deftypefnx {Функция С} @code{void} mgl_label (@code{HMGL} gr, @code{char} dir, @code{const char *}text)
-@deftypefnx {Функция С} @code{void} mgl_label_ext (@code{HMGL} gr, @code{char} dir, @code{const char *}text, @code{mreal} pos, @code{mreal} shift)
-@deftypefnx {Функция С} @code{void} mgl_labelw_ext (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}text, @code{mreal} pos, @code{mreal} shift)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const char *}text, @code{mreal} pos=@code{1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{char} dir, @code{const wchar_t *}text, @code{mreal} pos=@code{1}, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_label (@code{HMGL} gr, @code{char} dir, @code{const char *}text, @code{mreal} pos, @code{const char *}opt)
+@deftypefnx {Функция С} @code{void} mgl_labelw (@code{HMGL} gr, @code{char} dir, @code{const wchar_t *}text, @code{mreal} pos, @code{const char *}opt)
 @end ifclear
-Выводит подпись @var{text} для оси @var{dir}=@samp{x},@samp{y},@samp{z},@samp{t} (где @samp{t} -- ``тернарная'' ось @math{t=1-x-y}). Параметр @var{pos} задает положение подписи: при @var{pos}=0 -- по центру оси, при @var{pos}>0 -- около максимальных значений, при @var{pos}<0 -- около минимальных значений. @xref{Text printing}.
+Выводит подпись @var{text} для оси @var{dir}=@samp{x},@samp{y},@samp{z},@samp{t} (где @samp{t} -- ``тернарная'' ось @math{t=1-x-y}). Параметр @var{pos} задает положение подписи: при @var{pos}=0 -- по центру оси, при @var{pos}>0 -- около максимальных значений, при @var{pos}<0 -- около минимальных значений. Опция @code{value} задает дополнительный сдвиг текста. @xref{Text printing}.
 @end deftypefn
 
 @c ##################################################################
@@ -1526,18 +1619,18 @@ gr.GetBGRN(bits, len(bits));
 Эти функции обеспечивают рисование легенды графика (полезно для @ref{1D plotting}). Запись в легенде состоит из двух строк: одна для стиля линии и маркеров, другая с текстом описания (с включенным разбором TeX-их команд). Можно использовать непосредственно массивы строк, или накопление во внутренние массивы с помощью функции AddLegend() с последующим отображением. Положение легенды можно задать автоматически или вручную. Параметры @var{fnt} и @var{size} задают стиль и размер шрифта (см. @ref{Font settings}). Параметр @var{llen} задает относительную ширину примера линии. Ели стиль линии пустой, то соответствующий текст печатается без отступа. Если строка @var{fnt} содержит символ @samp{A}, то координаты легенды считаются относительно картинки (а не текущего subplot). Если строка @var{fnt} содержит символ @samp{#}, то рисуется прямоугольник вокруг легенды. @sref{Legend sample}
 
 @anchor{legend}
-@deftypefn {Команда MGL} {} legend [@code{pos=3} 'fnt'='#' @code{size=-0.8 llen=0.1}]
+@deftypefn {Команда MGL} {} legend [@code{pos=3} 'fnt'='#']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Legend (@code{int} pos=@code{0x3}, @code{const char *}fnt=@code{"#"}, @code{mreal} size=@code{-0.8}, @code{mreal} llen=@code{0.1})
-@deftypefnx {Функция С} @code{void} mgl_legend (@code{HMGL} gr, @code{int} pos, @code{const char *}fnt, @code{mreal} size, @code{mreal} llen)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Legend (@code{int} pos=@code{0x3}, @code{const char *}fnt=@code{"#"}, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_legend (@code{HMGL} gr, @code{int} pos, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
-Рисует легенду из накопленных записей шрифтом @var{fnt} размером @var{size}. Параметр @var{pos} задает положение легенды: @samp{0} -- в нижнем левом углу, @samp{1} -- нижнем правом углу, @samp{2} -- верхнем левом углу, @samp{3} -- верхнем правом углу (по умолчанию). Строка @var{fnt} может содержать вет для прямоугольника (1-ый цвет), для его границы (2-ой цвет) и для текста (последний). Если указано менее 3 цветов, то цвет рёбер будет чёрным (2 и менее цвета), а цвет прямоугольника белым (1 и менее цвета). Прямоугольник рисуется если строка @var{fnt} содержит @samp{#}.
+Рисует легенду из накопленных записей шрифтом @var{fnt} размером @var{size}. Параметр @var{pos} задает положение легенды: @samp{0} -- в нижнем левом углу, @samp{1} -- нижнем правом углу, @samp{2} -- верхнем левом углу, @samp{3} -- верхнем правом углу (по умолчанию). Строка @var{fnt} может содержать вет для прямоугольника (1-ый цвет), для его границы (2-ой цвет) и для текста (последний). Если указано менее 3 цветов, то цвет рёбер будет чёрным (2 и менее цвета), а цвет прямоугольника белым (1 и менее цвета). Прямоугольник рисуется если строка @var{fnt} содержит @samp{#}. Если строка @var{fnt} содержит @samp{-}, то записи располагаются горизонтально.
 @end deftypefn
 
-@deftypefn {Команда MGL} {} legend @code{x y} ['fnt'='#' @code{size=-1 llen=0.1}]
+@deftypefn {Команда MGL} {} legend @code{x y} ['fnt'='#']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Legend (@code{mreal} x, @code{mreal} y, @code{const char *}fnt=@code{"#"}, @code{mreal} size=@code{-0.8}, @code{mreal} llen=@code{0.1})
-@deftypefnx {Функция С} @code{void} mgl_legend_pos (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{const char *}fnt, @code{mreal} size, @code{mreal} llen)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Legend (@code{mreal} x, @code{mreal} y, @code{const char *}fnt=@code{"#"}, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_legend_pos (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
 Рисует легенду из накопленных записей шрифтом @var{fnt} размером @var{size}. Положение легенды задается параметрами @var{x}, @var{y}, которые полагаются нормированными в диапазоне [0,1].
 @end deftypefn
@@ -1605,9 +1698,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} plot xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} plot xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Plot (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_plot (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_plot_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_plot_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1618,7 +1711,7 @@ gr.GetBGRN(bits, len(bits));
 @anchor{radar}
 @deftypefn {Команда MGL} {} radar adat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Radar (@code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Radar (@code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_radar (@code{HMGL} gr, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
 Функции рисуют radar chart, представляющий собой ломанную с вершинами на радиальных линиях (типа ломанной в полярных координатах). Параметр @var{value} в опциях @var{opt} задает дополнительный сдвиг данных (т.е. использование @var{a}+@var{value} вместо @var{a}). Если @var{pen} содержит @samp{#}, то рисуется "сетка" (радиальные линии). См. также @ref{plot}. @sref{Radar sample}
@@ -1629,9 +1722,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} step xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} step xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Step (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_step (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_step_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_step_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1644,9 +1737,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} tens xdat ydat cdat ['stl'='']
 @deftypefnx {Команда MGL} {} tens xdat ydat zdat cdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglData &}y, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}y, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tens (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tens_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tens_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}pen, @code{const char *}opt)
@@ -1659,9 +1752,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} tape xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} tape xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tape (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tape (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tape_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tape_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1674,9 +1767,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} area xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} area xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Area (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_area (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_area_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_area_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1688,8 +1781,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} region ydat1 ydat2 ['stl'='']
 @deftypefnx {Команда MGL} {} region xdat ydat1 ydat2 ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Region (@code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Region (@code{const mglData &}x, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Region (@code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Region (@code{const mglDataA &}x, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_region (@code{HMGL} gr, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_region_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1701,9 +1794,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} stem xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} stem xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Stem (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_stem (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_stem_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_stem_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1716,9 +1809,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} bars xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} bars xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Bars (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_bars (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_bars_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_bars_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1730,8 +1823,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} barh vdat ['stl'='']
 @deftypefnx {Команда MGL} {} barh ydat vdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Barh (@code{const mglData &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Barh (@code{const mglData &}y, @code{const mglData &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Barh (@code{const mglDataA &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Barh (@code{const mglDataA &}y, @code{const mglDataA &}v, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_barh (@code{HMGL} gr, @code{HCDT} v, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_barh_xy (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} v, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1743,9 +1836,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} cones xdat ydat ['stl'='']
 @deftypefnx {Команда MGL} {} cones xdat ydat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cones (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cones (@code{HMGL} gr, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cones_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cones_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
@@ -1758,7 +1851,7 @@ gr.GetBGRN(bits, len(bits));
 @anchor{chart}
 @deftypefn {Команда MGL} {} chart adat ['col'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Chart (@code{const mglData &}a, @code{const char *}col=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Chart (@code{const mglDataA &}a, @code{const char *}col=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_chart (@code{HMGL} gr, @code{HCDT} a, @code{const char *}col, @code{const char *}opt)
 @end ifclear
 Рисует цветные полосы (пояса) для массива данных @var{a}. Число полос равно числу строк @var{a} (равно @var{a.ny}). Цвет полос поочерёдно меняется из цветов указанных в @var{col} или в палитре (см. @ref{Palette and colors}). Пробел в цветах соответствует прозрачному "цвету", т.е. если @var{col} содержит пробел(ы), то соответствующая полоса не рисуется. Ширина полосы пропорциональна значению элемента в @var{a}. График строится только для массивов не содержащих отрицательных значений. Если строка @var{col} содержит @samp{#}, то рисуется также чёрная граница полос. График выглядит лучше в (после вращения системы координат) и/или в полярной системе координат (становится Pie chart). @sref{Chart sample}
@@ -1768,8 +1861,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} boxplot adat ['stl'='']
 @deftypefnx {Команда MGL} {} boxplot xdat adat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} BoxPlot (@code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} BoxPlot (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} BoxPlot (@code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} BoxPlot (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_boxplot (@code{HMGL} gr, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_boxplot_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
@@ -1783,11 +1876,11 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} candle vdat1 vdat2 ydat1 ydat2 ['stl'='']
 @deftypefnx {Команда MGL} {} candle xdat vdat1 vdat2 ydat1 ydat2 ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}v2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglData &}v1, @code{const mglData &}v2, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglData &}x, @code{const mglData &}v1, @code{const mglData &}v2, @code{const mglData &}y1, @code{const mglData &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Candle (@code{const mglDataA &}x, @code{const mglDataA &}v1, @code{const mglDataA &}v2, @code{const mglDataA &}y1, @code{const mglDataA &}y2, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_candle (@code{HMGL} gr, @code{HCDT} v1, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_candle_yv (@code{HMGL} gr, @code{HCDT} v1, @code{HCDT} v2, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_candle_xyv (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} v1, @code{HCDT} v2, @code{HCDT} y1, @code{HCDT} y2, @code{const char *}pen, @code{const char *}opt)
@@ -1801,9 +1894,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} error xdat ydat yerr ['stl'='']
 @deftypefnx {Команда MGL} {} error xdat ydat xerr yerr ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglData &}y, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ex, @code{const mglData &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglDataA &}y, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Error (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ex, @code{const mglDataA &}ey, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_error (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_error_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_error_exy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ex, @code{HCDT} ey, @code{const char *}pen, @code{const char *}opt)
@@ -1816,9 +1909,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} mark xdat ydat rdat ['stl'='']
 @deftypefnx {Команда MGL} {} mark xdat ydat zdat rdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_mark_y (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_mark_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_mark_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
@@ -1832,14 +1925,14 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} textmark xdat ydat rdat 'txt' ['stl'='']
 @deftypefnx {Команда MGL} {} textmark xdat ydat zdat rdat 'txt' ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}y, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TextMark (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_textmark (@code{HMGL} gr, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_textmarkw (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_textmark_yr (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
@@ -1857,12 +1950,12 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} label xdat ydat 'txt' ['stl'='']
 @deftypefnx {Команда MGL} {} label xdat ydat zdat 'txt' ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Label (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_label (@code{HMGL} gr, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_labelw (@code{HMGL} gr, @code{HCDT} y, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_label_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
@@ -1870,7 +1963,21 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Функция С} @code{void} mgl_label_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_labelw_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
 @end ifclear
-Функции выводят текстовую строку @var{txt} в точках @{@var{x}[i], @var{y}[i], @var{z}[i]@}. Если строка @var{txt} содержит @samp{%x}, @samp{%y}, @samp{%z} или @samp{%n}, то они будут заменены на значения соответствующих координат или на номер точки. См. также @ref{plot}, @ref{mark}, @ref{textmark}. @sref{Label sample}
+Функции выводят текстовую строку @var{txt} в точках @{@var{x}[i], @var{y}[i], @var{z}[i]@}. Если строка @var{txt} содержит @samp{%x}, @samp{%y}, @samp{%z} или @samp{%n}, то они будут заменены на значения соответствующих координат или на номер точки. См. также @ref{plot}, @ref{mark}, @ref{textmark}, @ref{table}. @sref{Label sample}
+@end deftypefn
+
+@anchor{table}
+@deftypefn {MGL command} {} table vdat 'txt' ['stl'='#']
+@deftypefnx {MGL command} {} table x y vdat 'txt' ['stl'='#']
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{const mglDataA &}val, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{const mglDataA &}val, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{mreal} x, @code{mreal} y, @code{const mglDataA &}val, @code{const char *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Table (@code{mreal} x, @code{mreal} y, @code{const mglDataA &}val, @code{const wchar_t *}txt, @code{const char *}fnt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_table (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{HCDT} val, @code{const char *}txt, @code{const char *}fnt, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_tablew (@code{HMGL} gr, @code{mreal} x, @code{mreal} y, @code{HCDT} val, @code{const wchar_t *}txt, @code{const char *}fnt, @code{const char *}opt)
+@end ifclear
+Рисует таблицу значений массива @var{val} с заголовками @var{txt} (разделенными символом новой строки @samp{\n}) в точке @{@var{x}, @var{y}@} (по умолчанию @{0,0@}) относительно текущего subplot. Если строка @var{fnt} содержит @samp{#}, то рисуются границы ячеек. Если строка @var{fnt} содержит @samp{=}, то ширина всех ячеек одинакова. Если строка @var{fnt} содержит @samp{|}, то ширина таблицы ограничена шириной subplot (эквивалентно опции @samp{value 1}). Опция @code{value} задает ширину таблицы (по умолчанию 1). См. также @ref{label}. @sref{Table sample}
 @end deftypefn
 
 @anchor{tube}
@@ -1881,12 +1988,12 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} tube xdat ydat zdat rdat ['stl'='']
 @deftypefnx {Команда MGL} {} tube xdat ydat zdat @code{rval} ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tube (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{mreal} r, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tube_r (@code{HMGL} gr, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tube (@code{HMGL} gr, @code{HCDT} y, @code{mreal} r, @code{const char *}pen, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tube_xyr (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} r, @code{const char *}pen, @code{const char *}opt)
@@ -1900,10 +2007,10 @@ gr.GetBGRN(bits, len(bits));
 @anchor{torus}
 @deftypefn {Команда MGL} {} torus rdat zdat ['stl'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Torus (@code{const mglData &}r, @code{const mglData &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Torus (@code{const mglDataA &}r, @code{const mglDataA &}z, @code{const char *}pen=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_torus (@code{HMGL} gr, @code{HCDT} r, @code{HCDT} z, @code{const char *}pen, @code{const char *}opt)
 @end ifclear
-Функции рисуют поверхность вращения кривой @{@var{r}, @var{z}@} относительно оси. Если строка @var{pen} содержит @samp{x} или @samp{z}, то ось вращения будет выбрана в указанном направлении (по умолчанию вдоль оси y). См. также @ref{plot}, @ref{axial}. @sref{Torus sample}
+ФÑ\83нкÑ\86ии Ñ\80иÑ\81Ñ\83Ñ\8eÑ\82 повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c вÑ\80аÑ\89ениÑ\8f кÑ\80ивой @{@var{r}, @var{z}@} оÑ\82ноÑ\81иÑ\82елÑ\8cно оÑ\81и. Ð\95Ñ\81ли Ñ\81Ñ\82Ñ\80ока @var{pen} Ñ\81одеÑ\80жиÑ\82 @samp{x} или @samp{z}, Ñ\82о оÑ\81Ñ\8c вÑ\80аÑ\89ениÑ\8f бÑ\83деÑ\82 вÑ\8bбÑ\80ана в Ñ\83казанном напÑ\80авлении (по Ñ\83молÑ\87аниÑ\8e вдолÑ\8c оÑ\81и y). Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82Ñ\87аÑ\82аÑ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. См. Ñ\82акже @ref{plot}, @ref{axial}. @sref{Torus sample}
 @end deftypefn
 
 
@@ -1933,20 +2040,20 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} surf zdat ['sch'='']
 @deftypefnx {Команда MGL} {} surf xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует параметрически заданную поверхность @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Если @var{sch} содержит @samp{#}, то рисуется сетка на поверхности. См. также @ref{mesh}, @ref{dens}, @ref{belt}, @ref{tile}, @ref{boxs}, @ref{surfc}, @ref{surfa}. @sref{Surf sample}
+РиÑ\81Ñ\83еÑ\82 паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки заданнÑ\83Ñ\8e повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82ка на повеÑ\80Ñ\85ноÑ\81Ñ\82и. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. См. Ñ\82акже @ref{mesh}, @ref{dens}, @ref{belt}, @ref{tile}, @ref{boxs}, @ref{surfc}, @ref{surfa}. @sref{Surf sample}
 @end deftypefn
 
 @anchor{mesh}
 @deftypefn {Команда MGL} {} mesh zdat ['sch'='']
 @deftypefnx {Команда MGL} {} mesh xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mesh (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mesh (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mesh (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Mesh (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_mesh (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_mesh_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -1957,8 +2064,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} fall zdat ['sch'='']
 @deftypefnx {Команда MGL} {} fall xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fall (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fall (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fall (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fall (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_fall (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_fall_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -1969,8 +2076,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} belt zdat ['sch'='']
 @deftypefnx {Команда MGL} {} belt xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Belt (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Belt (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Belt (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Belt (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_belt (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_belt_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -1981,8 +2088,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} boxs zdat ['sch'='']
 @deftypefnx {Команда MGL} {} boxs xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Boxs (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Boxs (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Boxs (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Boxs (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_boxs (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_boxs_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -1993,8 +2100,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} tile zdat ['sch'='']
 @deftypefnx {Команда MGL} {} tile xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tile (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tile (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tile (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Tile (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tile (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tile_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2005,20 +2112,20 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} dens zdat ['sch'='']
 @deftypefnx {Команда MGL} {} dens xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{mreal} zVal=@code{NAN})
 @deftypefnx {Функция С} @code{void} mgl_dens (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dens_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует график плотности для параметрически заданной поверхности @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} при @var{z} = @var{Min}.z. Если @var{sch} содержит @samp{#}, то рисуется сетка. См. также @ref{surf}, @ref{cont}, @ref{contf}, @ref{boxs}, @ref{tile}, @code{dens[xyz]}. @sref{Dens sample}
+РиÑ\81Ñ\83еÑ\82 гÑ\80аÑ\84ик плоÑ\82ноÑ\81Ñ\82и длÑ\8f паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки заданной повеÑ\80Ñ\85ноÑ\81Ñ\82и @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} пÑ\80и @var{z} = @var{Min}.z. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82ка. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. См. Ñ\82акже @ref{surf}, @ref{cont}, @ref{contf}, @ref{boxs}, @ref{tile}, @code{dens[xyz]}. @sref{Dens sample}
 @end deftypefn
 
 @anchor{cont}
 @deftypefn {Команда MGL} {} cont vdat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} cont vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont__val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2028,8 +2135,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} cont zdat ['sch'='']
 @deftypefnx {Команда MGL} {} cont xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2040,8 +2147,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contf vdat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contf vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2051,8 +2158,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contf zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contf xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContF (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2063,8 +2170,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contd vdat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contd vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contd_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contd_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2074,8 +2181,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contd zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contd xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContD (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contd (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contd_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2086,8 +2193,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contv vdat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contv vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contv_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contv_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2097,8 +2204,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contv zdat ['sch'='']
 @deftypefnx {Команда MGL} {} contv xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContV (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contv (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contv_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2109,19 +2216,19 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} axial vdat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} axial vdat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglData &}v, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}v, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_axial_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_axial_xy_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует поверхность вращения линии уровня для параметрически заданной поверхности @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Линии уровня рисуются для @var{z}[i,j]=@var{v}[k]. Если @var{sch} содержит @samp{#}, то рисуется сетчатая поверхность. Если строка содержит символы @samp{x} или @samp{z}, то ось вращения устанавливается в указанное направление (по умолчанию вдоль @samp{y}). См. также @ref{cont}, @ref{contf}, @ref{torus}, @ref{surf3}. @sref{Axial sample}
+Рисует поверхность вращения линии уровня для параметрически заданной поверхности @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@}. Линии уровня рисуются для @var{z}[i,j]=@var{v}[k]. Если @var{sch} содержит @samp{#}, то рисуется сетчатая поверхность. Если @var{sch} содержит @samp{.}, то рисуется поверхность из точек. Если строка содержит символы @samp{x} или @samp{z}, то ось вращения устанавливается в указанное направление (по умолчанию вдоль @samp{y}). См. также @ref{cont}, @ref{contf}, @ref{torus}, @ref{surf3}. @sref{Axial sample}
 @end deftypefn
 
 @deftypefn {Команда MGL} {} axial zdat ['sch'='']
 @deftypefnx {Команда MGL} {} axial xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Axial (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""}, @code{int} num=@code{3})
 @deftypefnx {Функция С} @code{void} mgl_axial (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_axial_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2132,8 +2239,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} grid2 zdat ['sch'='']
 @deftypefnx {Команда MGL} {} grid2 xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_grid (@code{HMGL} gr, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_grid_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2160,19 +2267,19 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} surf3 adat @code{val} ['sch'='']
 @deftypefnx {Команда MGL} {} surf3 xdat ydat zdat adat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует поверхность уровня для 3d массива, заданного параметрически @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) при @var{a}(x,y,z)=@var{val}. Если @var{sch} содержит @samp{#}, то рисуется сетчатая поверхность. Замечу, что возможно некорректная отрисовка граней вследствие неопределённости построения сечения если поверхность пересекает ячейку данных 2 и более раз. См. также @ref{cloud}, @ref{dens3}, @ref{surf3c}, @ref{surf3a}, @ref{axial}. @sref{Surf3 sample}
+РиÑ\81Ñ\83еÑ\82 повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c Ñ\83Ñ\80овнÑ\8f длÑ\8f 3d маÑ\81Ñ\81ива, заданного паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) пÑ\80и @var{a}(x,y,z)=@var{val}. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82Ñ\87аÑ\82аÑ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. Ð\97амеÑ\87Ñ\83, Ñ\87Ñ\82о возможно некоÑ\80Ñ\80екÑ\82наÑ\8f оÑ\82Ñ\80иÑ\81овка гÑ\80аней вÑ\81ледÑ\81Ñ\82вие неопÑ\80еделÑ\91нноÑ\81Ñ\82и поÑ\81Ñ\82Ñ\80оениÑ\8f Ñ\81еÑ\87ениÑ\8f еÑ\81ли повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c пеÑ\80еÑ\81екаеÑ\82 Ñ\8fÑ\87ейкÑ\83 даннÑ\8bÑ\85 2 и более Ñ\80аз. См. Ñ\82акже @ref{cloud}, @ref{dens3}, @ref{surf3c}, @ref{surf3a}, @ref{axial}. @sref{Surf3 sample}
 @end deftypefn
 
 @deftypefn {Команда MGL} {} surf3 adat ['sch'='']
 @deftypefnx {Команда MGL} {} surf3 xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2183,20 +2290,20 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} cloud adat ['sch'='']
 @deftypefnx {Команда MGL} {} cloud xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cloud (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cloud (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cloud (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cloud (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cloud (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cloud_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует облачный график для 3d массива, заданного параметрически @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]). График состоит из кубиков с цветом и прозрачностью пропорциональной значениям @var{a}. Результат похож на облако -- малые значения прозрачны, а большие нет. Число кубиков зависит от @ref{meshnum}. Если @var{sch} содержит @samp{.}, то будет построен график более низкого качества, но с заметно меньшим использованием памяти. Если @var{sch} содержит @samp{!}, то прозрачность будет инвертирована, т.е. области с более высокими значениями будут более прозрачны, а с более низким -- менее прозрачны. См. также @ref{surf3}, @ref{meshnum}. @sref{Cloud sample}
+Рисует облачный график для 3d массива, заданного параметрически @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]). График состоит из кубиков с цветом и прозрачностью пропорциональной значениям @var{a}. Результат похож на облако -- малые значения прозрачны, а большие нет. Число кубиков зависит от @ref{meshnum}. Если @var{sch} содержит @samp{.}, то будет построен график более низкого качества, но с заметно меньшим использованием памяти. Если @var{sch} содержит @samp{i}, то прозрачность будет инвертирована, т.е. области с более высокими значениями будут более прозрачны, а с более низким -- менее прозрачны. См. также @ref{surf3}, @ref{meshnum}. @sref{Cloud sample}
 @end deftypefn
 
 @anchor{dens3}
 @deftypefn {Команда MGL} {} dens3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} dens3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dens3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_dens3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dens3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2207,8 +2314,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} cont3 vdat adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} cont3 vdat xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont3_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont3_xyz_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2218,8 +2325,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} cont3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} cont3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Cont3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2230,8 +2337,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contf3 vdat adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} contf3 vdat xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}v, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}v, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf3_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf3_xyz_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2241,8 +2348,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} contf3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} contf3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Contf3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2253,8 +2360,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} grid3 adat ['sch'='' @code{sval=-1}]
 @deftypefnx {Команда MGL} {} grid3 xdat ydat zdat adat ['sch'='' @code{sval=-1}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid3 (@code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid3 (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid3 (@code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grid3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_grid3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_grid3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
 @end ifclear
@@ -2264,8 +2371,8 @@ gr.GetBGRN(bits, len(bits));
 @anchor{beam}
 @deftypefn {Команда MGL} {} beam tr g1 g2 adat @code{rval} ['sch'='' @code{flag=0 num=3}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Beam (@code{const mglData &}tr, @code{const mglData &}g1, @code{const mglData &}g2, @code{const mglData &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0}, @code{int} num=@code{3})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Beam (@code{mreal} val, @code{const mglData &}tr, @code{const mglData &}g1, @code{const mglData &}g2, @code{const mglData &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Beam (@code{const mglDataA &}tr, @code{const mglDataA &}g1, @code{const mglDataA &}g2, @code{const mglDataA &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0}, @code{int} num=@code{3})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Beam (@code{mreal} val, @code{const mglDataA &}tr, @code{const mglDataA &}g1, @code{const mglDataA &}g2, @code{const mglDataA &}a, @code{mreal} r, @code{const char *}stl=@code{""}, @code{int} flag=@code{0})
 @deftypefnx {Функция С} @code{void} mgl_beam (@code{HMGL} gr, @code{HCDT} tr, @code{HCDT} g1, @code{HCDT} g2, @code{HCDT} a, @code{mreal} r, @code{const char *}stl, @code{int} flag, @code{int} num)
 @deftypefnx {Функция С} @code{void} mgl_beam_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} tr, @code{HCDT} g1, @code{HCDT} g2, @code{HCDT} a, @code{mreal} r, @code{const char *}stl, @code{int} flag)
 @end ifclear
@@ -2292,31 +2399,31 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} surfc zdat cdat ['sch'='']
 @deftypefnx {Команда MGL} {} surfc xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfC (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfC (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfC (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfC (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surfc (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surfc_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует параметрически заданную поверхность @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} с цветом, заданным массивом @var{c}[i,j]. Если @var{sch} содержит @samp{#}, то на поверхности рисуется сетка. Размерность массивов @var{z} и @var{c} должна быть одинакова. График строится для каждого z среза данных. См. также @ref{surf}, @ref{surfa}, @ref{surf3c}. @sref{SurfC sample}
+РиÑ\81Ñ\83еÑ\82 паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки заданнÑ\83Ñ\8e повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} Ñ\81 Ñ\86веÑ\82ом, заданнÑ\8bм маÑ\81Ñ\81ивом @var{c}[i,j]. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о на повеÑ\80Ñ\85ноÑ\81Ñ\82и Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82ка. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. РазмеÑ\80ноÑ\81Ñ\82Ñ\8c маÑ\81Ñ\81ивов @var{z} и @var{c} должна бÑ\8bÑ\82Ñ\8c одинакова. Ð\93Ñ\80аÑ\84ик Ñ\81Ñ\82Ñ\80оиÑ\82Ñ\81Ñ\8f длÑ\8f каждого z Ñ\81Ñ\80еза даннÑ\8bÑ\85. См. Ñ\82акже @ref{surf}, @ref{surfa}, @ref{surf3c}. @sref{SurfC sample}
 @end deftypefn
 
 @anchor{surf3c}
 @deftypefn {Команда MGL} {} surf3c adat cdat @code{val} ['sch'='']
 @deftypefnx {Команда MGL} {} surf3c xdat ydat zdat adat cdat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3c_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3c_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует поверхность уровня для 3d массива, заданного параметрически @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) при @var{a}(x,y,z)=@var{val}. Аналогично @ref{surf3}, но цвет задается массивом @var{c}. Если @var{sch} содержит @samp{#}, то рисуется сетчатая поверхность. См. также @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3C sample}
+РиÑ\81Ñ\83еÑ\82 повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c Ñ\83Ñ\80овнÑ\8f длÑ\8f 3d маÑ\81Ñ\81ива, заданного паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) пÑ\80и @var{a}(x,y,z)=@var{val}. Ð\90налогиÑ\87но @ref{surf3}, но Ñ\86веÑ\82 задаеÑ\82Ñ\81Ñ\8f маÑ\81Ñ\81ивом @var{c}. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82Ñ\87аÑ\82аÑ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. См. Ñ\82акже @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3C sample}
 @end deftypefn
 
 @deftypefn {Команда MGL} {} surf3c adat cdat ['sch'='']
 @deftypefnx {Команда MGL} {} surf3c xdat ydat zdat adat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3C (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3c (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3c_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2328,31 +2435,31 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} surfa zdat cdat ['sch'='']
 @deftypefnx {Команда MGL} {} surfa xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfA (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfA (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfA (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} SurfA (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surfa (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surfa_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует параметрически заданную поверхность @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} с прозрачностью, заданной массивом @var{c}[i,j]. Если @var{sch} содержит @samp{#}, то на поверхности рисуется сетка. Размерность массивов @var{z} и @var{c} должна быть одинакова. График строится для каждого z среза данных. См. также @ref{surf}, @ref{surfc}, @ref{surf3a}. @sref{SurfA sample}
+РиÑ\81Ñ\83еÑ\82 паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки заданнÑ\83Ñ\8e повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c @{@var{x}[i,j], @var{y}[i,j], @var{z}[i,j]@} Ñ\81 пÑ\80озÑ\80аÑ\87ноÑ\81Ñ\82Ñ\8cÑ\8e, заданной маÑ\81Ñ\81ивом @var{c}[i,j]. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о на повеÑ\80Ñ\85ноÑ\81Ñ\82и Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82ка. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. РазмеÑ\80ноÑ\81Ñ\82Ñ\8c маÑ\81Ñ\81ивов @var{z} и @var{c} должна бÑ\8bÑ\82Ñ\8c одинакова. Ð\93Ñ\80аÑ\84ик Ñ\81Ñ\82Ñ\80оиÑ\82Ñ\81Ñ\8f длÑ\8f каждого z Ñ\81Ñ\80еза даннÑ\8bÑ\85. См. Ñ\82акже @ref{surf}, @ref{surfc}, @ref{surf3a}. @sref{SurfA sample}
 @end deftypefn
 
 @anchor{surf3a}
 @deftypefn {Команда MGL} {} surf3a adat cdat @code{val} ['sch'='']
 @deftypefnx {Команда MGL} {} surf3a xdat ydat zdat adat cdat @code{val} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{mreal} val, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3a_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3a_xyz_val (@code{HMGL} gr, @code{mreal} val, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
-Рисует поверхность уровня для 3d массива, заданного параметрически @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) при @var{a}(x,y,z)=@var{val}. Аналогично @ref{surf3}, но прозрачность задается массивом @var{c}. Если @var{sch} содержит @samp{#}, то рисуется сетчатая поверхность. См. также @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3A sample}
+РиÑ\81Ñ\83еÑ\82 повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c Ñ\83Ñ\80овнÑ\8f длÑ\8f 3d маÑ\81Ñ\81ива, заданного паÑ\80амеÑ\82Ñ\80иÑ\87еÑ\81ки @var{a}[i,j,k](@var{x}[i,j,k], @var{y}[i,j,k], @var{z}[i,j,k]) пÑ\80и @var{a}(x,y,z)=@var{val}. Ð\90налогиÑ\87но @ref{surf3}, но пÑ\80озÑ\80аÑ\87ноÑ\81Ñ\82Ñ\8c задаеÑ\82Ñ\81Ñ\8f маÑ\81Ñ\81ивом @var{c}. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{#}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f Ñ\81еÑ\82Ñ\87аÑ\82аÑ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c. Ð\95Ñ\81ли @var{sch} Ñ\81одеÑ\80жиÑ\82 @samp{.}, Ñ\82о Ñ\80иÑ\81Ñ\83еÑ\82Ñ\81Ñ\8f повеÑ\80Ñ\85ноÑ\81Ñ\82Ñ\8c из Ñ\82оÑ\87ек. См. Ñ\82акже @ref{surf3}, @ref{surfc}, @ref{surf3a}. @sref{Surf3A sample}
 @end deftypefn
 
 @deftypefn {Команда MGL} {} surf3a adat cdat ['sch'='']
 @deftypefnx {Команда MGL} {} surf3a xdat ydat zdat adat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Surf3A (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_surf3a (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_surf3a_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2363,8 +2470,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} tiles zdat rdat ['sch'='']
 @deftypefnx {Команда MGL} {} tiles xdat ydat zdat rdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TileS (@code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TileS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}r, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TileS (@code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TileS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}r, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tiles (@code{HMGL} gr, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tiles_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} r, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2375,8 +2482,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} map udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} map xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Map (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Map (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Map (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Map (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_map (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_map_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2387,8 +2494,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} stfa re im @code{dn} ['sch'='']
 @deftypefnx {Команда MGL} {} stfa xdat ydat re im @code{dn} ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} STFA (@code{const mglData &}re, @code{const mglData &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} STFA (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}re, @code{const mglData &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} STFA (@code{const mglDataA &}re, @code{const mglDataA &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} STFA (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}re, @code{const mglDataA &}im, @code{int} dn, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_stfa (@code{HMGL} gr, @code{HCDT} re, @code{HCDT} im, @code{int} dn, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_stfa_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} re, @code{HCDT} im, @code{int} dn, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2413,8 +2520,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} traj xdat ydat udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} traj xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Traj (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Traj (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Traj (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Traj (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_traj_xyz (@code{HMGL} gr, @code{HCDT}x, @code{HCDT}y, @code{HCDT}z, @code{HCDT}ax, @code{HCDT}ay, @code{HCDT}az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_traj_xy (@code{HMGL} gr, @code{HCDT}x, @code{HCDT}y, @code{HCDT}ax, @code{HCDT}ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2425,8 +2532,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} vect udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} vect xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_vect_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_vect_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2447,20 +2554,43 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} vect udat vdat wdat ['sch'='']
 @deftypefnx {Команда MGL} {} vect xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Vect (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_vect_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_vect_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
 Это 3d версия графика. Здесь массивы @var{ax}, @var{ay}, @var{az} должны трёхмерными тензорами и длина вектора пропорциональна @math{\sqrt@{ax^2+ay^2+az^2@}}.
 @end deftypefn
 
+@anchor{vect3}
+@deftypefn {MGL command} {} vect3 udat vdat wdat ['sch'='' sval]
+@deftypefnx {MGL command} {} vect3 xdat ydat zdat udat vdat wdat ['sch'='' sval]
+@ifclear UDAV
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect3 (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglGraph}} @code{void} Vect3 (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} sVal=@code{-1}, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_vect3 (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_vect3_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} sVal, @code{const char *}opt)
+@end ifclear
+Рисует 3D векторное поле @{@var{ax}, @var{ay}, @var{az}@} параметрически зависящее от координат @var{x}, @var{y}, @var{z}. График рисуется на срезе @var{sVal} в направлении @{@samp{x}, @samp{y}, @samp{z}@}, указанном в строке @var{sch} (по умолчанию, в напралении @samp{y}). Длина и цвет векторов пропорциональна @math{\sqrt@{ax^2+ay^2+az^2@}}. Число рисуемых векторов зависит от @ref{meshnum}. Вид стрелок/штрихов может быть изменён символами:
+@itemize @bullet
+@item
+@samp{f} для стрелок одинаковой длины,
+@item
+@samp{>}, @samp{<} для стрелок начинающихся или заканчивающихся в ячейке сетки (по умолчанию центрированы),
+@item
+@samp{.} для рисования штрихов с точкой в начале вместо стрелок,
+@item
+@samp{=} для использования градиента цвета вдоль стрелок.
+@end itemize
+См. также @ref{vect}, @ref{flow}, @ref{dew}. @sref{Vect sample}
+@end deftypefn
+
 @anchor{dew}
 @deftypefn {Команда MGL} {} dew udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} dew xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dew (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dew (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dew (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dew (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_dew (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dew_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2471,8 +2601,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} flow udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} flow xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_flow_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_flow_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2493,8 +2623,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} flow udat vdat wdat ['sch'='']
 @deftypefnx {Команда MGL} {} flow xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Flow (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_flow_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_flow_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2504,8 +2634,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} flow @code{x0 y0} udat vdat ['sch'='']
 @deftypefnx {Команда MGL} {} flow @code{x0 y0} xdat ydat udat vdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_flowp_2d (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_flowp_xy (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2515,8 +2645,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} flow @code{x0 y0 z0} udat vdat wdat ['sch'='']
 @deftypefnx {Команда MGL} {} flow @code{x0 y0 z0} xdat ydat zdat udat vdat wdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} FlowP (@code{mglPoint} p0, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_flowp_3d (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_flowp_xyz (@code{HMGL} gr, @code{mreal} x0, @code{mreal} y0, @code{mreal} z0, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2528,9 +2658,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} grad xdat ydat pdat ['sch'='']
 @deftypefnx {Команда MGL} {} grad xdat ydat zdat pdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Grad (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}phi, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_grad (@code{HMGL} gr, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_grad_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_grad_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} phi, @code{const char *}sch, @code{const char *}opt)
@@ -2542,8 +2672,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} pipe udat vdat ['sch'='' @code{r0=0.05}]
 @deftypefnx {Команда MGL} {} pipe xdat ydat udat vdat ['sch'='' @code{r0=0.05}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}ax, @code{const mglData &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_pipe_2d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_pipe_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} ax, @code{HCDT} ay, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @end ifclear
@@ -2553,8 +2683,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} pipe udat vdat wdat ['sch'='' @code{r0=0.05}]
 @deftypefnx {Команда MGL} {} pipe xdat ydat zdat udat vdat wdat ['sch'='' @code{r0=0.05}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}ax, @code{const mglData &}ay, @code{const mglData &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Pipe (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}ax, @code{const mglDataA &}ay, @code{const mglDataA &}az, @code{const char *}sch=@code{""}, @code{mreal} r0=@code{0.05}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_pipe_3d (@code{HMGL} gr, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_pipe_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} ax, @code{HCDT} ay, @code{HCDT} az, @code{const char *}sch, @code{mreal} r0, @code{const char *}opt)
 @end ifclear
@@ -2584,9 +2714,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} densy dat ['sch'='' @code{sval=nan}]
 @deftypefnx {Команда MGL} {} densz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} DensZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_dens_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dens_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dens_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2599,9 +2729,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} conty dat ['sch'='' @code{sval=nan}]
 @deftypefnx {Команда MGL} {} contz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2610,9 +2740,9 @@ gr.GetBGRN(bits, len(bits));
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} ContX (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContY (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContZ (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefn {Метод класса @code{mglGraph}} @code{void} ContX (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContY (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContZ (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_cont_x_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_y_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_cont_z_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2625,9 +2755,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} contfy dat ['sch'='' @code{sval=nan}]
 @deftypefnx {Команда MGL} {} contfz dat ['sch'='' @code{sval=nan}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFX (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFY (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFZ (@code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFX (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFY (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFZ (@code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf_x (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_z (@code{HMGL} gr, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2636,9 +2766,9 @@ gr.GetBGRN(bits, len(bits));
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{void} ContFX (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFY (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFZ (@code{const mglData &}v, @code{const mglData &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefn {Метод класса @code{mglGraph}} @code{void} ContFX (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFY (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} ContFZ (@code{const mglDataA &}v, @code{const mglDataA &}a, @code{const char *}stl=@code{""}, @code{mreal} sVal=@code{NAN}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_contf_x_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_y_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_contf_z_val (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} a, @code{const char *}stl, @code{mreal} sVal, @code{const char *}opt)
@@ -2685,9 +2815,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} triplot idat xdat ydat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} triplot idat xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_triplot_xy (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_triplot_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_triplot_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2700,10 +2830,10 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} tricont vdat idat xdat ydat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} tricont idat xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriCont (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriCont (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriContV (@code{const mglData &}v, @code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriContV (@code{const mglData &}v, @code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriCont (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriCont (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriContV (@code{const mglDataA &}v, @code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} TriContV (@code{const mglDataA &}v, @code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_tricont_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tricont_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_tricont_xyzcv (@code{HMGL} gr, @code{HCDT} v, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2717,9 +2847,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} quadplot idat xdat ydat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} quadplot idat xdat ydat zdat cdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglData &}id, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}c, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} QuadPlot (@code{const mglDataA &}id, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_quadplot_xy (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_quadplot_xyz (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_quadplot_xyzc (@code{HMGL} gr, @code{HCDT} id, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} c, @code{const char *}sch, @code{const char *}opt)
@@ -2731,8 +2861,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefn {Команда MGL} {} dots xdat ydat zdat ['sch'='']
 @deftypefnx {Команда MGL} {} dots xdat ydat zdat adat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dots (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dots (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dots (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Dots (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_dots (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @deftypefnx {Функция С} @code{void} mgl_dots_a (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
@@ -2742,7 +2872,7 @@ gr.GetBGRN(bits, len(bits));
 @anchor{crust}
 @deftypefn {Команда MGL} {} crust xdat ydat zdat ['sch'='']
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Crust (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Crust (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}sch=@code{""}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_crust (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}sch, @code{const char *}opt)
 @end ifclear
 Реконструирует и рисует поверхность по произвольно расположенным точкам @{@var{x}[i], @var{y}[i], @var{z}[i]@}. Опция @var{value} задает радиус ошибки (увеличите для удаления дыр). Строка @var{sch} задает цветовую схему. Если строка содержит @samp{#}, то рисуется сетчатая поверхность. Массивы @var{x}, @var{y}, @var{z} должны иметь одинаковые размеры. См. также @ref{dots}, @ref{triplot}. @c @sref{Crust sample}
@@ -2769,14 +2899,14 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} fits res xdat ydat adat sdat 'func' 'var' [ini=0]
 @deftypefnx {Команда MGL} {} fits res xdat ydat zdat adat sdat 'func' 'var' [ini=0]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const mglData &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} FitS (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const mglDataA &}s, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_ys (@code{HMGL} gr, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_xys (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_xyzs (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{HCDT} s, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
@@ -2791,14 +2921,14 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} fit res xdat ydat adat sdat 'func' 'var' [ini=0]
 @deftypefnx {Команда MGL} {} fit res xdat ydat zdat adat sdat 'func' 'var' [ini=0]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_y (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
@@ -2809,10 +2939,10 @@ gr.GetBGRN(bits, len(bits));
 
 
 @ifclear UDAV
-@deftypefn {Метод класса @code{mglGraph}} @code{mglData} Fit2 (@code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit2 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglData &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefn {Метод класса @code{mglGraph}} @code{mglData} Fit2 (@code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit2 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Fit3 (@code{mglData &}fit, @code{const mglDataA &}a, @code{const char *}func, @code{const char *}var, @code{mglData &}ini, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_2 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_fit_3 (@code{HMGL} gr, @code{HCDT} a, @code{const char *}func, @code{const char *}var, @code{HMDT} ini, @code{const char *}opt)
 "Подгоняют" формулу вдоль всех направлений для 2d или 3d массива @var{a} с @var{s}=1 и @var{x}, @var{y}, @var{z} равно распределёнными в диапазоне осей координат.
@@ -2848,9 +2978,9 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} hist @sc{res} xdat ydat adat
 @deftypefnx {Команда MGL} {} hist @sc{res} xdat ydat zdat adat
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}a, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}a, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const mglData &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} Hist (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const mglDataA &}a, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{HMDT} mgl_hist_x (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} a, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_hist_xy (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} a, @code{const char *}opt)
 @deftypefnx {Функция С} @code{HMDT} mgl_hist_xyz (@code{HMGL} gr, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{HCDT} a, @code{const char *}opt)
@@ -2864,8 +2994,8 @@ gr.GetBGRN(bits, len(bits));
 @deftypefnx {Команда MGL} {} fill dat 'eq' vdat wdat
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglData &}v, @code{const char *}opt=@code{""})
-@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglData &}v, @code{const mglData &}w, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglDataA &}v, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} Fill (@code{mglData &}u, @code{const char *}eq, @code{const mglDataA &}v, @code{const mglDataA &}w, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} u, @code{const char *}eq, @code{HCDT}v, @code{HCDT}w, @code{const char *}opt)
 @end ifclear
 Заполняют значения массива @samp{u} в соответствии с формулой в строке @var{eq}. Формула -- произвольное выражение, зависящее от переменных @samp{x}, @samp{y}, @samp{z}, @samp{u}, @samp{v}, @samp{w}. Координаты @samp{x}, @samp{y}, @samp{z} полагаются в диапазоне изменения осей координат. Переменная @samp{u} -- значение исходного массива. Переменные @samp{v} и @samp{w} -- значения массивов @var{v}, @var{w}, которые могут быть @code{NULL} (т.е. могут быть опущены).
@@ -2873,8 +3003,8 @@ gr.GetBGRN(bits, len(bits));
 
 @deftypefn {MGL command} {} datagrid dat xdat ydat zdat
 @ifclear UDAV
-@deftypefnx {Method on @code{mglGraph}} @code{void} DataGrid (@code{mglData &}u, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}opt=@code{""})
-@deftypefnx {C function} @code{void} mgl_data_grid (@code{HMGL} gr, @code{HMDT} u, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}opt)
+@deftypefnx {Метод класса @code{mglGraph}} @code{void} DataGrid (@code{mglData &}u, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_data_grid (@code{HMGL} gr, @code{HMDT} u, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}opt)
 @end ifclear
 Заполняет значения массива @samp{u} результатом линейной интерполяции по триангулированной поверхности, найденной по произвольно расположенным точкам @samp{x}, @samp{y}, @samp{z}. NAN значение используется для точек сетки вне триангулированной поверхности.
 @end deftypefn
@@ -2883,7 +3013,7 @@ gr.GetBGRN(bits, len(bits));
 
 @deftypefn {Команда MGL} {} pde @sc{res} 'ham' ini_re ini_im [@code{dz=0.1 k0=100}]
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} PDE (@code{const char *}ham, @code{const mglData &}ini_re, @code{const mglData &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglGraph}} @code{mglData} PDE (@code{const char *}ham, @code{const mglDataA &}ini_re, @code{const mglDataA &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
 @deftypefnx {Функция С} @code{HMDT} mgl_pde_solve (@code{HMGL} gr, @code{const char *}ham, @code{HCDT} ini_re, @code{HCDT} ini_im, @code{mreal} dz, @code{mreal} k0, @code{const char *}opt)
 @end ifclear
 Решает уравнение в частных производных du/dz = i*k0*@var{ham}(p,q,x,y,z,|u|)[u], где p=-i/k0*d/dx, q=-i/k0*d/dy -- псевдо-дифференциальные оперторы. Параметры @var{ini_re}, @var{ini_im} задают действительную и мнимую часть начального распределения поля. Координаты @samp{x}, @samp{y}, @samp{z} полагаются в диапазоне изменения осей координат. Отмечу, ято в действительности этот диапазон увеличен на 3/2 для уменьшения отражения от границ сетки. Параметр @var{dz} задает шаг по эволюционной координате z. Сейчас используется упрощенный вид функции @var{ham} -- исключены все ``смешанные'' члены (типа @samp{x*p}->x*d/dx). Например, в 2D случае это функция вида @math{ham = f(p,z) + g(x,z,u)}. Однако, коммутирующие члены (типа @samp{x*q}->x*d/dy) разрешены. Переменная @samp{u} используется для амплитуды поля |u|, что позволяет решать нелинейные задачи -- например уравнение Шредингера @code{ham="p^2 + q^2 - u^2"}. Вы можете задавать мнимую часть для поглощения волн, например @code{ham = "p^2 + i*x*(x>0)"}, но только для линейной зависимости от переменной @samp{i} (т.е. @math{ham = hre+i*him}). @sref{PDE solving hints}

diff --git a/texinfo/data_en.texi b/texinfo/data_en.texi
index 585e29de701c49d44eb21ae53bfbb9b10c1b3b31..24382b56f5438bde0afe93f1b488f216ed25fec3 100644 (file)
--- a/texinfo/data_en.texi
+++ b/texinfo/data_en.texi
@@ -6,7 +6,7 @@ This chapter describe commands for allocation, resizing, loading and saving, mod
 @end ifset
 
 @ifclear UDAV
-This chapter describe class @code{mglData} for working with data array. This class is defined in @code{#include <mgl2/data.h>}. The class has functions for easy and safe allocation, resizing, loading and saving, modifying of data arrays. Also it can numerically differentiate and integrate data, interpolate, fill data by formula and so on. Class supports data with dimensions up to 3 (like function of 3 variables -- x,y,z). The internal representation of numbers is mreal. Float type was chosen because it has smaller size in memory and usually it has enough precision in plotting purposes. You can change it by selecting option @code{--enable-double} at the library configuring (see @ref{Installation}). Data arrays are denoted by Small Caps (like @sc{dat}) if it can be (re-)created by MGL commands.
+This chapter describe classes @code{mglData} and @code{mglDataC} for working with data arrays of real and complex numbers. Both classes are derived from abstract class @code{mglDataA}, and can be used as arguments of any plotting functions (see @ref{MathGL core}). These classes are defined in @code{#include <mgl2/data.h>} and @code{#include <mgl2/datac.h>} correspondengly. The classes have mostly the same set of functions for easy and safe allocation, resizing, loading, saving, modifying of data arrays. Also it can numerically differentiate and integrate data, interpolate, fill data by formula and so on. Classes support data with dimensions up to 3 (like function of 3 variables -- x,y,z). The internal representation of numbers is mreal (or dual=std::complex<mreal> for @code{mglDataC}), which can be configured as float or double by selecting option @code{--enable-double} at the MathGL configuring (see @ref{Installation}). Float type have smaller size in memory and usually it has enough precision in plotting purposes. However, double type provide high accuracy what can be important for time-axis, for example. Data arrays are denoted by Small Caps (like @sc{dat}) if it can be (re-)created by MGL commands.
 @end ifclear
 
 @menu
@@ -22,6 +22,7 @@ This chapter describe class @code{mglData} for working with data array. This cla
 * Operators::
 * Global functions::
 * Evaluate expression::
+* MGL variables::
 @end menu
 
 @c ------------------------------------------------------------------
@@ -35,32 +36,43 @@ MGL don't support direct access to data arrays. See section @ref{Data filling}
 
 @ifclear UDAV
 @deftypecv {Variable} mglData @code{mreal *} a
+@deftypecvx {Variable} mglDataC @code{dual *} a
 Data array itself. The flat data representation is used. For example, matrix [nx x ny] is presented as flat (1d-) array with length nx*ny. The element with indexes @{i, j, k@} is a[i+nx*j+nx*ny*k] (indexes are zero based).
 @end deftypecv
-@deftypecv {Variable} mglData @code{int} nx
+@deftypecv {Variable} mglData @code{long} nx
+@deftypecvx {Variable} mglDataC @code{long} nx
 Number of points in 1st dimensions ('x' dimension).
 @end deftypecv
-@deftypecv {Variable} mglData @code{int} ny
+@deftypecv {Variable} mglData @code{long} ny
+@deftypecvx {Variable} mglDataC @code{long} ny
 Number of points in 2nd dimensions ('y' dimension).
 @end deftypecv
-@deftypecv {Variable} mglData @code{int} nz
+@deftypecv {Variable} mglData @code{long} nz
+@deftypecvx {Variable} mglDataC @code{long} nz
 Number of points in 3d dimensions ('z' dimension).
 @end deftypecv
-@deftypecv {Variable} mglData @code{char *} id
-Column (or slice if nz>1) names -- one character per column.
+@deftypecv {Variable} mglData @code{std::string} id
+@deftypecvx {Variable} mglDataC @code{std::string} id
+Names of column (or slice if nz>1)  -- one character per column.
 @end deftypecv
 @deftypecv {Variable} mglData @code{bool} link
+@deftypecvx {Variable} mglDataC @code{bool} link
 Flag to use external data, i.e. don't delete it.
 @end deftypecv
 
 @deftypefn {Method on @code{mglData}} @code{mreal} GetVal (@code{long} i)
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} GetVal (@code{long} i)
 @deftypefnx {Method on @code{mglData}} @code{void} SetVal (@code{mreal} val, @code{long} i)
+@deftypefnx {Method on @code{mglDataC}} @code{void} SetVal (@code{mreal} val, @code{long} i)
 Gets or sets the value in by "flat" index @var{i} without border checking. Index @var{i} should be in range [0, nx*ny*nz-1].
 @end deftypefn
 
 @deftypefn {Method on @code{mglData}} @code{long} GetNx ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNx ()
 @deftypefnx {Method on @code{mglData}} @code{long} GetNy ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNy ()
 @deftypefnx {Method on @code{mglData}} @code{long} GetNz ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNz ()
 @deftypefnx {C function} @code{long} mgl_data_get_nx (@code{HCDT} dat)
 @deftypefnx {C function} @code{long} mgl_data_get_ny (@code{HCDT} dat)
 @deftypefnx {C function} @code{long} mgl_data_get_nz (@code{HCDT} dat)
@@ -68,11 +80,15 @@ Gets the x-, y-, z-size of the data.
 @end deftypefn
 
 @deftypefn {C function} @code{mreal} mgl_data_get_value (@code{HCDT} dat, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {C function} @code{dual} mgl_datac_get_value (@code{HCDT} dat, @code{int} i, @code{int} j, @code{int} k)
 @deftypefnx {C function} @code{mreal *} mgl_data_value (@code{HMDT} dat, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {C function} @code{dual *} mgl_datac_value (@code{HADT} dat, @code{int} i, @code{int} j, @code{int} k)
 @deftypefnx {C function} @code{void} mgl_data_set_value (@code{HMDT} dat, @code{mreal} v, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {C function} @code{void} mgl_datac_set_value (@code{HADT} dat, @code{dual} v, @code{int} i, @code{int} j, @code{int} k)
 Gets or sets the value in specified cell of the data with border checking.
 @end deftypefn
 @deftypefn {C function} @code{const mreal *} mgl_data_data (@code{HCDT} dat)
+@deftypefnx {C function} @code{const dual *} mgl_datac_data (@code{HCDT} dat)
 Returns pointer to internal data array.
 @end deftypefn
 @end ifclear
@@ -93,8 +109,11 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefnx {MGL command} {} new @sc{dat} @code{nx ny nz} ['eq']
 @ifclear UDAV
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} mx=@code{1}, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} mx=@code{1}, @code{int} my=@code{1}, @code{int} mz=@code{1})
 @deftypefnx {C function} @code{HMDT} mgl_create_data ()
 @deftypefnx {C function} @code{HMDT} mgl_create_data_size (@code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {C function} @code{HADT} mgl_create_datac ()
+@deftypefnx {C function} @code{HADT} mgl_create_datac_size (@code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Default constructor. Allocates the memory for data array and initializes it by zero. If string @var{eq} is specified then data will be filled by corresponding formula as in @ref{fill}.
 @end deftypefn
@@ -103,14 +122,22 @@ Default constructor. Allocates the memory for data array and initializes it by z
 @deftypefn {MGL command} {} copy @sc{dat} dat2 ['eq'='']
 @deftypefnx {MGL command} {} copy @sc{dat} @code{val}
 @ifclear UDAV
-@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const mglData &}dat2)
+@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const mglDataA &}dat2)
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const mglDataA *}dat2)
-@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{const mreal *}dat2)
-@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{int} cols, @code{const mreal *}dat2)
+@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{const float *}dat2)
+@deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{int} cols, @code{const float *}dat2)
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{const double *}dat2)
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{int} size, @code{int} cols, @code{const double *}dat2)
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const double *}dat2, @code{int} size)
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const double *}dat2, @code{int} size, @code{int} cols)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{const mglDataA &}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{const mglDataA *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{const float *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const float *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{const double *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const double *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{const dual *}dat2)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const dual *}dat2)
 @end ifclear
 Copy constructor. Allocates the memory for data array and copy values from other array. At this, if parameter @var{eq} is specified then the data will be modified by corresponding formula similarly to @ref{fill}.
 @end deftypefn
@@ -118,7 +145,9 @@ Copy constructor. Allocates the memory for data array and copy values from other
 @deftypefn {MGL command} {} read @sc{dat} 'fname'
 @ifclear UDAV
 @deftypefnx {Constructor on @code{mglData}} {} mglData (@code{const char *}fname)
+@deftypefnx {Constructor on @code{mglDataC}} {} mglDataC (@code{const char *}fname)
 @deftypefnx {C function} @code{HMDT} mgl_create_data_file (@code{const char *}fname)
+@deftypefnx {C function} @code{HADT} mgl_create_datac_file (@code{const char *}fname)
 @end ifclear
 Reads data from tab-separated text file with auto determining sizes of the data.
 @end deftypefn
@@ -127,6 +156,8 @@ Reads data from tab-separated text file with auto determining sizes of the data.
 @ifclear UDAV
 @deftypefnx {Destructor on @code{mglData}} {} ~mglData ()
 @deftypefnx {C function} @code{void} mgl_delete_data (@code{HMDT} dat)
+@deftypefnx {Destructor on @code{mglDataC}} {} ~mglDataC ()
+@deftypefnx {C function} @code{void} mgl_delete_datac (@code{HADT} dat)
 @end ifclear
 Deletes the instance of class mglData.
 @end deftypefn
@@ -149,7 +180,9 @@ Deletes the instance of class mglData.
 @deftypefn {MGL command} {} new @sc{dat} [@code{nx=1 ny=1 nz=1}]
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Create (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Create (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
 @deftypefnx {C function} @code{void} mgl_data_create (@code{HMDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {C function} @code{void} mgl_datac_create (@code{HADT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Creates or recreates the array with specified size and fills it by zero. This function does nothing if one of parameters @var{mx}, @var{my}, @var{mz} is zero or negative.
 @end deftypefn
@@ -158,7 +191,9 @@ Creates or recreates the array with specified size and fills it by zero. This fu
 @deftypefn {MGL command} {} rearrange dat @code{mx [my=0 mz=0]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Rearrange (@code{int} mx, @code{int} my=@code{0}, @code{int} mz=@code{0})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Rearrange (@code{int} mx, @code{int} my=@code{0}, @code{int} mz=@code{0})
 @deftypefnx {C function} @code{void} mgl_data_rearrange (@code{HMDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {C function} @code{void} mgl_datac_rearrange (@code{HADT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Rearrange dimensions without changing data array so that resulting sizes should  be @var{mx}*@var{my}*@var{mz} < nx*ny*nz. If some of parameter @var{my} or @var{mz} are zero then it will be selected to optimal fill of data array. For example, if @var{my}=0 then it will be change to @var{my}=nx*ny*nz/@var{mx} and @var{mz}=1.
 @end deftypefn
@@ -167,7 +202,9 @@ Rearrange dimensions without changing data array so that resulting sizes should
 @deftypefn {MGL command} {} transpose dat ['dim'='yxz']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Transpose (@code{const char *}dim=@code{"yx"})
-@deftypefnx {C function} @code{void} mgl_data_transpose (@code{const char *}dim)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Transpose (@code{const char *}dim=@code{"yx"})
+@deftypefnx {C function} @code{void} mgl_data_transpose (@code{HMDT} dat, @code{const char *}dim)
+@deftypefnx {C function} @code{void} mgl_datac_transpose (@code{HADT} dat, @code{const char *}dim)
 @end ifclear
 Transposes (shift order of) dimensions of the data. New order of dimensions is specified in string @var{dim}. This function can be useful also after reading of one-dimensional data.
 @end deftypefn
@@ -176,7 +213,9 @@ Transposes (shift order of) dimensions of the data. New order of dimensions is s
 @deftypefn {MGL command} {} extend dat @code{n1 [n2=0]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Extend (@code{int} n1, @code{int} n2=@code{0})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Extend (@code{int} n1, @code{int} n2=@code{0})
 @deftypefnx {C function} @code{void} mgl_data_extend (@code{HMDT} dat, @code{int} n1, @code{int} n2)
+@deftypefnx {C function} @code{void} mgl_datac_extend (@code{HADT} dat, @code{int} n1, @code{int} n2)
 @end ifclear
 Increase the dimensions of the data by inserting new (|@var{n1}|+1)-th slices after (for @var{n1}>0) or before (for @var{n1}<0) of existed one. It is possible to insert 2 dimensions simultaneously for 1d data by using parameter @var{n2}. Data to new slices is copy from existed one. For example, for @var{n1}>0 new array will be
 @iftex
@@ -191,7 +230,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Correspondingly, for @var{n1}<0 new arr
 @deftypefn {MGL command} {} squeeze dat @code{rx [ry=1 rz=1 sm=off]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Squeeze (@code{int} rx, @code{int} ry=@code{1}, @code{int} rz=@code{1}, @code{bool} smooth=@code{false})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Squeeze (@code{int} rx, @code{int} ry=@code{1}, @code{int} rz=@code{1}, @code{bool} smooth=@code{false})
 @deftypefnx {C function} @code{void} mgl_data_squeeze (@code{HMDT} dat, @code{int} rx, @code{int} ry, @code{int} rz, @code{int} smooth)
+@deftypefnx {C function} @code{void} mgl_datac_squeeze (@code{HADT} dat, @code{int} rx, @code{int} ry, @code{int} rz, @code{int} smooth)
 @end ifclear
 Reduces the data size by excluding data elements which indexes are not divisible by @var{rx}, @var{ry}, @var{rz} correspondingly. Parameter @var{smooth} set to use smoothing
 @iftex
@@ -206,7 +247,9 @@ Reduces the data size by excluding data elements which indexes are not divisible
 @deftypefn {MGL command} {} crop dat @code{n1 n2} 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Crop (@code{int} n1, @code{int} n2, @code{char} dir=@code{'x'})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Crop (@code{int} n1, @code{int} n2, @code{char} dir=@code{'x'})
 @deftypefnx {C function} @code{void} mgl_data_crop (@code{HMDT} dat, @code{int} n1, @code{int} n2, @code{char} dir)
+@deftypefnx {C function} @code{void} mgl_datac_crop (@code{HADT} dat, @code{int} n1, @code{int} n2, @code{char} dir)
 @end ifclear
 Cuts off edges of the data @var{i}<@var{n1} and @var{i}>@var{n2} if @var{n2}>0 or @var{i}>@code{n[xyz]}-@var{n2} if @var{n2}<=0 along direction @var{dir}.
 @end deftypefn
@@ -215,7 +258,9 @@ Cuts off edges of the data @var{i}<@var{n1} and @var{i}>@var{n2} if @var{n2}>0 o
 @deftypefn {MGL command} {} insert dat 'dir' @code{[pos=off num=0]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Insert (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Insert (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
 @deftypefnx {C function} @code{void} mgl_data_insert (@code{HMDT} dat, @code{char} dir, @code{int} pos, @code{char} num)
+@deftypefnx {C function} @code{void} mgl_datac_insert (@code{HADT} dat, @code{char} dir, @code{int} pos, @code{char} num)
 @end ifclear
 Insert @var{num} slices along @var{dir}-direction at position @var{pos} and fill it by zeros.
 @end deftypefn
@@ -224,7 +269,9 @@ Insert @var{num} slices along @var{dir}-direction at position @var{pos} and fill
 @deftypefn {MGL command} {} delete dat 'dir' @code{[pos=off num=0]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Delete (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Delete (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
 @deftypefnx {C function} @code{void} mgl_data_delete (@code{HMDT} dat, @code{char} dir, @code{int} pos, @code{char} num)
+@deftypefnx {C function} @code{void} mgl_datac_delete (@code{HADT} dat, @code{char} dir, @code{int} pos, @code{char} num)
 @end ifclear
 Delete @var{num} slices along @var{dir}-direction at position @var{pos}.
 @end deftypefn
@@ -238,6 +285,15 @@ Delete @var{num} slices along @var{dir}-direction at position @var{pos}.
 Sort data rows (or slices in 3D case) by values of specified column @var{idx} (or cell @{@var{idx},@var{idy}@} for 3D case). Note, this function is not thread safe!
 @end deftypefn
 
+@anchor{clean}
+@deftypefn {MGL command} {} clean dat @code{idx}
+@ifclear UDAV
+@deftypefnx {Method on @code{mglData}} @code{void} Clean (@code{lond} idx)
+@deftypefnx {C function} @code{void} mgl_data_clean (@code{HMDT} dat, @code{lond} idx)
+@end ifclear
+Delete rows which values are equal to next row for given column @var{idx}.
+@end deftypefn
+
 
 @c ------------------------------------------------------------------
 @external
@@ -258,55 +314,86 @@ Creates new variable with name @var{dat} and fills it by data values of arrays o
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const mreal *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const float *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
 @deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const double *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
-@deftypefnx {C function} @code{void} mgl_data_set_mreal (@code{HMDT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {C function} @code{void} mgl_data_set_float (@code{HMDT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
 @deftypefnx {C function} @code{void} mgl_data_set_double (@code{HMDT} dat, @code{const double *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
-Allocates memory and copies the data from the @strong{flat} @code{mreal*} or @code{double*} array.
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const float *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const double *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const dual *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {C function} @code{void} mgl_datac_set_float (@code{HADT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {C function} @code{void} mgl_datac_set_double (@code{HADT} dat, @code{const double *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {C function} @code{void} mgl_datac_set_complex (@code{HADT} dat, @code{const dual *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+Allocates memory and copies the data from the @strong{flat} @code{float*} or @code{double*} array.
 @end deftypefn
 
-@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const mreal **}A, @code{int} N1, @code{int} N2)
+@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const float **}A, @code{int} N1, @code{int} N2)
 @deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const double **}A, @code{int} N1, @code{int} N2)
 @deftypefnx {C function} @code{void} mgl_data_set_mreal2 (@code{HMDT} dat, @code{const mreal **}A, @code{int} N1, @code{int} N2)
 @deftypefnx {C function} @code{void} mgl_data_set_double2 (@code{HMDT} dat, @code{const double **}A, @code{int} N1, @code{int} N2)
-Allocates memory and copies the data from the @code{mreal**} or @code{double**} array with dimensions @var{N1}, @var{N2}, i.e. from array defined as @code{mreal a[N1][N2];}.
+Allocates memory and copies the data from the @code{float**} or @code{double**} array with dimensions @var{N1}, @var{N2}, i.e. from array defined as @code{mreal a[N1][N2];}.
 @end deftypefn
 
-@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const mreal ***}A, @code{int} N1, @code{int} N2)
+@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const float ***}A, @code{int} N1, @code{int} N2)
 @deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const double ***}A, @code{int} N1, @code{int} N2)
 @deftypefnx {C function} @code{void} mgl_data_set_mreal3 (@code{HMDT} dat, @code{const mreal ***}A, @code{int} N1, @code{int} N2)
 @deftypefnx {C function} @code{void} mgl_data_set_double3 (@code{HMDT} dat, @code{const double ***}A, @code{int} N1, @code{int} N2)
-Allocates memory and copies the data from the @code{mreal***} or @code{double***} array with dimensions @var{N1}, @var{N2}, @var{N3}, i.e. from array defined as @code{mreal a[N1][N2][N3];}.
+Allocates memory and copies the data from the @code{float***} or @code{double***} array with dimensions @var{N1}, @var{N2}, @var{N3}, i.e. from array defined as @code{mreal a[N1][N2][N3];}.
 @end deftypefn
 
 @deftypefn {Method on @code{mglData}} @code{void} Set (@code{gsl_vector *}v)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{gsl_vector *}v)
 @deftypefnx {C function} @code{void} mgl_data_set_vector (@code{HMDT} dat, @code{gsl_vector *}v)
+@deftypefnx {C function} @code{void} mgl_datac_set_vector (@code{HADT} dat, @code{gsl_vector *}v)
 Allocates memory and copies the data from the @code{gsl_vector *} structure.
 @end deftypefn
 @deftypefn {Method on @code{mglData}} @code{void} Set (@code{gsl_matrix *}m)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{gsl_matrix *}m)
 @deftypefnx {C function} @code{void} mgl_data_set_matrix (@code{HMDT} dat, @code{gsl_matrix *}m)
+@deftypefnx {C function} @code{void} mgl_datac_set_matrix (@code{HADT} dat, @code{gsl_matrix *}m)
 Allocates memory and copies the data from the @code{gsl_matrix *} structure.
 @end deftypefn
-@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const mglData &}from)
+
+@deftypefn {Method on @code{mglData}} @code{void} Set (@code{const mglDataA &}from)
 @deftypefnx {Method on @code{mglData}} @code{void} Set (@code{HCDT} from)
 @deftypefnx {C function} @code{void} mgl_data_set (@code{HMDT} dat, @code{HCDT} from)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const mglDataA &}from)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{HCDT} from)
+@deftypefnx {C function} @code{void} mgl_datac_set (@code{HADT} dat, @code{HCDT} from)
 Copies the data from @code{mglData} (or @code{mglDataA}) instance @var{from}.
 @end deftypefn
 
+@deftypefn {Method on @code{mglDataC}} @code{void} Set (@code{const mglDataA &}re, @code{const mglDataA &}im)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{HCDT} re, @code{HCDT} im)
+@deftypefnx {Method on @code{mglDataC}} @code{void} SetAmpl (@code{HCDT} ampl, @code{const mglDataA &}phase)
+@deftypefnx {C function} @code{void} mgl_datac_set_ri (@code{HADT} dat, @code{HCDT} re, @code{HCDT} im)
+@deftypefnx {C function} @code{void} mgl_datac_set_ap (@code{HADT} dat, @code{HCDT} ampl, @code{HCDT} phase)
+Copies the data from @code{mglData} instances for real and imaginary parts of complex data arrays.
+@end deftypefn
+
 @deftypefn {Method on @code{mglData}} @code{void} Set (@code{const std::vector<int> &}d)
-@deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const std::vector<mreal> &}d)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const std::vector<int> &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const std::vector<float> &}d)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const std::vector<float> &}d)
 @deftypefnx {Method on @code{mglData}} @code{void} Set (@code{const std::vector<double> &}d)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const std::vector<double> &}d)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const std::vector<dual> &}d)
 Allocates memory and copies the data from the @code{std::vector<T>} array.
 @end deftypefn
 
 @deftypefn {Method on @code{mglData}} @code{void} Set (@code{const char *}str, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
 @deftypefnx {C function} @code{void} mgl_data_set_values (@code{const char *}str, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Set (@code{const char *}str, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {C function} @code{void} mgl_datac_set_values (@code{const char *}str, @code{int} NX, @code{int} NY, @code{int} NZ)
 Allocates memory and scanf the data from the string.
 @end deftypefn
 
-@deftypefn {Method on @code{mglData}} @code{void} Link (@code{const mglData &}from)
-@deftypefnx {Method on @code{mglData}} @code{void} Link (@code{const mreal *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
-@deftypefnx {C function} @code{void} mgl_data_link (@code{HMDT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefn {Method on @code{mglData}} @code{void} Link (@code{mglData &}from)
+@deftypefnx {Method on @code{mglData}} @code{void} Link (@code{mreal *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {C function} @code{void} mgl_data_link (@code{HMDT} dat, @code{mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Link (@code{mglDataC &}from)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Link (@code{dual *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {C function} @code{void} mgl_datac_link (@code{HADT} dat, @code{dual *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
 Links external data array, i.e. don't delete this array at exit.
 @end deftypefn
 @end ifclear
@@ -320,7 +407,9 @@ Creates new variable with name @var{dat} for one-dimensional array of size @var{
 @deftypefn {MGL command} {} fill dat v1 v2 ['dir'='x']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{mreal} v1, @code{mreal} v2, @code{char} dir=@code{'x'})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Fill (@code{dual} v1, @code{dual} v2, @code{char} dir=@code{'x'})
 @deftypefnx {C function} @code{void} mgl_data_fill (@code{HMDT} dat, @code{mreal} v1, @code{mreal} v2, @code{char} dir)
+@deftypefnx {C function} @code{void} mgl_datac_fill (@code{HADT} dat, @code{dual} v1, @code{dual} v2, @code{char} dir)
 @end ifclear
 Equidistantly fills the data values to range [@var{v1}, @var{v2}] in direction @var{dir}=@{@samp{x},@samp{y},@samp{z}@}.
 @end deftypefn
@@ -330,9 +419,13 @@ Equidistantly fills the data values to range [@var{v1}, @var{v2}] in direction @
 @deftypefnx {MGL command} {} fill dat 'eq' vdat wdat
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglData &}vdat, @code{const char *}opt=@code{""})
-@deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglData &}vdat, @code{const mglData &}wdat, @code{const char *}opt=@code{""})
-@deftypefnx {C function} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} dat, @code{const char *}eq, @code{const HMDT *}vdat, @code{const HMDT *}wdat, @code{const char *}opt)
+@deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const mglDataA &}wdat, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const mglDataA &}wdat, @code{const char *}opt=@code{""})
+@deftypefnx {C function} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} dat, @code{const char *}eq, @code{HCDT} vdat, @code{HCDT} wdat, @code{const char *}opt)
+@deftypefnx {C function} @code{void} mgl_datac_fill_eq (@code{HMGL} gr, @code{HADT} dat, @code{const char *}eq, @code{HCDT} vdat, @code{HCDT} wdat, @code{const char *}opt)
 @end ifclear
 Fills the value of array according to the formula in string @var{eq}. Formula is an arbitrary expression depending  on variables @samp{x}, @samp{y}, @samp{z}, @samp{u}, @samp{v}, @samp{w}. Coordinates @samp{x}, @samp{y}, @samp{z} are supposed to be normalized in axis range of canvas @var{gr} (in difference from @code{Modify} functions). Variable @samp{u} is the original value of the array. Variables @samp{v} and @samp{w} are values of @var{vdat}, @var{wdat} which can be @code{NULL} (i.e. can be omitted).
 @end deftypefn
@@ -343,10 +436,15 @@ Fills the value of array according to the formula in string @var{eq}. Formula is
 @deftypefnx {MGL command} {} modify dat 'eq' vdat wdat
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{int} dim=@code{0})
-@deftypefnx {Method on @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglData &}v)
-@deftypefnx {Method on @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglData &}v, @code{const mglData &}w)
+@deftypefnx {Method on @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v)
+@deftypefnx {Method on @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v, @code{const mglDataA &}w)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{int} dim=@code{0})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v, @code{const mglDataA &}w)
 @deftypefnx {C function} @code{void} mgl_data_modify (@code{HMDT} dat, @code{const char *}eq, @code{int} dim)
 @deftypefnx {C function} @code{void} mgl_data_modify_vw (@code{HMDT} dat, @code{const char *}eq, @code{HCDT} v, @code{HCDT} w)
+@deftypefnx {C function} @code{void} mgl_datac_modify (@code{HADT} dat, @code{const char *}eq, @code{int} dim)
+@deftypefnx {C function} @code{void} mgl_datac_modify_vw (@code{HADT} dat, @code{const char *}eq, @code{HCDT} v, @code{HCDT} w)
 @end ifclear
 The same as previous ones but coordinates @samp{x}, @samp{y}, @samp{z} are supposed to be normalized in range [0,1]. If @var{dim}>0 is specified then modification will be fulfilled only for slices >=@var{dim}.
 @end deftypefn
@@ -364,7 +462,7 @@ Fills data by 'x' or 'k' samples for Hankel ('h') or Fourier ('f') transform.
 @anchor{datagrid}
 @deftypefn {MGL command} {} datagrid dat xdat ydat zdat
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{mglData} Grid (@code{HMGL} gr, @code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z, @code{const char *}opt=@code{""})
+@deftypefnx {Method on @code{mglData}} @code{mglData} Grid (@code{HMGL} gr, @code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{void} mgl_data_grid (@code{HMGL} gr, @code{HMDT} u, @code{HCDT} x, @code{HCDT} y, @code{HCDT} z, @code{const char *}opt)
 @end ifclear
 Fills the value of array according to the linear interpolation of triangulated surface, found for arbitrary placed points @samp{x}, @samp{y}, @samp{z}. NAN value is used for grid points placed outside of triangulated surface.
@@ -382,7 +480,7 @@ Sets value(s) of array a[@var{i}, @var{j}, @var{k}] = @var{val}. Negative indexe
 
 @deftypefn {MGL command} {} put dat vdat [@code{i=: j=: k=:}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} Put (@code{const mglData &}v, @code{int} i=@code{-1}, @code{int} j=@code{-1}, @code{int} k=@code{-1})
+@deftypefnx {Method on @code{mglData}} @code{void} Put (@code{const mglDataA &}v, @code{int} i=@code{-1}, @code{int} j=@code{-1}, @code{int} k=@code{-1})
 @deftypefnx mglData @code{void} mgl_data_put_dat (@code{HMDT} a, @code{HCDT} v, @code{int} i, @code{int} j, @code{int} k)
 @end ifclear
 Copies value(s) from array @var{v} to the range of original array. Negative indexes @var{i}, @var{j}, @var{k}=-1 set the range in corresponding direction(s). At this minor dimensions of array @var{v} should be large than corresponding dimensions of this array. For example, @code{Put(v,-1,0,-1);} sets a[i,0,j]=v.ny>nz ? v[i,j] : v[i], where i=0...(nx-1), j=0...(nz-1) and condition v.nx>=nx is true.
@@ -392,7 +490,9 @@ Copies value(s) from array @var{v} to the range of original array. Negative inde
 @deftypefn {MGL command} {} idset dat 'ids'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} SetColumnId (@code{const char *}ids)
-@deftypefnx mglData @code{void} mgl_data_set_id (@code{const char *}ids)
+@deftypefnx mglData @code{void} mgl_data_set_id (@code{HMDT} a, @code{const char *}ids)
+@deftypefnx {Method on @code{mglDataC}} @code{void} SetColumnId (@code{const char *}ids)
+@deftypefnx mglData @code{void} mgl_datac_set_id (@code{HADT} a, @code{const char *}ids)
 @end ifclear
 Sets the symbol @var{ids} for data columns. The string should contain one symbol 'a'...'z' per column. These ids are used in @ref{column}.
 @end deftypefn
@@ -415,16 +515,20 @@ Sets the symbol @var{ids} for data columns. The string should contain one symbol
 @anchor{read}
 @deftypefn {MGL command} {} read @sc{dat} 'fname'
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} Read (@code{const char *}fname)
-@deftypefnx {C function} @code{void} mgl_data_read (@code{HMDT} dat, @code{const char *}fname)
+@deftypefnx {Method on @code{mglData}} @code{bool} Read (@code{const char *}fname)
+@deftypefnx {Method on @code{mglDataC}} @code{bool} Read (@code{const char *}fname)
+@deftypefnx {C function} @code{int} mgl_data_read (@code{HMDT} dat, @code{const char *}fname)
+@deftypefnx {C function} @code{int} mgl_datac_read (@code{HADT} dat, @code{const char *}fname)
 @end ifclear
 Reads data from tab-separated text file with auto determining sizes of the data. Double newline means the beginning of new z-slice.
 @end deftypefn
 
 @deftypefn {MGL command} {} read @sc{dat} 'fname' @code{mx [my=1 mz=1]}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} Read (@code{const char *}fname, @code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
-@deftypefnx {C function} @code{void} mgl_data_read_dim (@code{HMDT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {Method on @code{mglData}} @code{bool} Read (@code{const char *}fname, @code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Method on @code{mglDataC}} @code{bool} Read (@code{const char *}fname, @code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {C function} @code{int} mgl_data_read_dim (@code{HMDT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {C function} @code{int} mgl_datac_read_dim (@code{HADT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Reads data from text file with specified data sizes. This function does nothing if one of parameters @var{mx}, @var{my} or @var{mz} is zero or negative.
 @end deftypefn
@@ -432,8 +536,10 @@ Reads data from text file with specified data sizes. This function does nothing
 @anchor{readmat}
 @deftypefn {MGL command} {} readmat @sc{dat} 'fname' [@code{dim=2}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} ReadMat (@code{const char *}fname, @code{int} dim=@code{2})
-@deftypefnx {C function} @code{void} mgl_data_read_mat (@code{HMDT} dat, @code{const char *}fname, @code{int} dim)
+@deftypefnx {Method on @code{mglData}} @code{bool} ReadMat (@code{const char *}fname, @code{int} dim=@code{2})
+@deftypefnx {Method on @code{mglDataC}} @code{bool} ReadMat (@code{const char *}fname, @code{int} dim=@code{2})
+@deftypefnx {C function} @code{int} mgl_data_read_mat (@code{HMDT} dat, @code{const char *}fname, @code{int} dim)
+@deftypefnx {C function} @code{int} mgl_datac_read_mat (@code{HADT} dat, @code{const char *}fname, @code{int} dim)
 @end ifclear
 Read data from text file with size specified at beginning of the file by first @var{dim} numbers. At this, variable @var{dim} set data dimensions.
 @end deftypefn
@@ -441,7 +547,10 @@ Read data from text file with size specified at beginning of the file by first @
 @anchor{readall}
 @deftypefn {MGL command} {} readall @sc{dat} 'templ' @code{v1 v2 [dv=1 slice=off]}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} ReadRange (@code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step=@code{1.f}, @code{bool} as_slice=@code{false})
+@deftypefnx {Method on @code{mglData}} @code{void} ReadRange (@code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step=@code{1}, @code{bool} as_slice=@code{false})
+@deftypefnx {Method on @code{mglDataC}} @code{void} ReadRange (@code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step=@code{1}, @code{bool} as_slice=@code{false})
+@deftypefnx {C function} @code{int} mgl_data_read_range (@code{HMDT} dat, @code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step, @code{int} as_slice)
+@deftypefnx {C function} @code{int} mgl_datac_read_range (@code{HADT} dat, @code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step, @code{int} as_slice)
 @end ifclear
 Join data arrays from several text files. The file names are determined by function call @code{sprintf(fname,templ,val);}, where @var{val} changes from @var{from} to @var{to} with step @var{step}. The data load one-by-one in the same slice if @var{as_slice}=@code{false} or as slice-by-slice if @var{as_slice}=@code{true}.
 @end deftypefn
@@ -449,6 +558,9 @@ Join data arrays from several text files. The file names are determined by funct
 @deftypefn {MGL command} {} readall @sc{dat} 'templ' @code{[slice=off]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} ReadAll (@code{const char *}templ, @code{bool} as_slice=@code{false})
+@deftypefnx {Method on @code{mglDataC}} @code{void} ReadAll (@code{const char *}templ, @code{bool} as_slice=@code{false})
+@deftypefnx {C function} @code{int} mgl_data_read_all (@code{HMDT} dat, @code{const char *}templ, @code{int} as_slice)
+@deftypefnx {C function} @code{int} mgl_datac_read_all (@code{HADT} dat, @code{const char *}templ, @code{int} as_slice)
 @end ifclear
 Join data arrays from several text files which filenames satisfied the template @var{templ} (for example, @var{templ}=@code{"t_*.dat"}). The data load one-by-one in the same slice if @var{as_slice}=@code{false} or as slice-by-slice if @var{as_slice}=@code{true}.
 @end deftypefn
@@ -457,7 +569,9 @@ Join data arrays from several text files which filenames satisfied the template
 @deftypefn {MGL command} {} save dat 'fname'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Save (@code{const char *}fname, @code{int} ns=@code{-1}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{void} Save (@code{const char *}fname, @code{int} ns=@code{-1}) @code{const}
 @deftypefnx {C function} @code{void} mgl_data_save (@code{HCDT} dat, @code{const char *}fname, @code{int} ns)
+@deftypefnx {C function} @code{void} mgl_datac_save (@code{HCDT} dat, @code{const char *}fname, @code{int} ns)
 @end ifclear
 Saves the whole data array (for @var{ns}=@code{-1}) or only @var{ns}-th slice to text file.
 @end deftypefn
@@ -466,7 +580,9 @@ Saves the whole data array (for @var{ns}=@code{-1}) or only @var{ns}-th slice to
 @deftypefn {MGL command} {} readhdf @sc{dat} 'fname' 'dname'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} ReadHDF (@code{const char *}fname, @code{const char *}dname)
+@deftypefnx {Method on @code{mglDataC}} @code{void} ReadHDF (@code{const char *}fname, @code{const char *}dname)
 @deftypefnx {C function} @code{void} mgl_data_read_hdf (@code{HMDT} dat, @code{const char *}fname, @code{const char *}dname)
+@deftypefnx {C function} @code{void} mgl_datac_read_hdf (@code{HADT} dat, @code{const char *}fname, @code{const char *}dname)
 @end ifclear
 Reads data array named @var{dname} from HDF5 or HDF4 file. This function does nothing if HDF5|HDF4 was disabled during library compilation.
 @end deftypefn
@@ -475,7 +591,9 @@ Reads data array named @var{dname} from HDF5 or HDF4 file. This function does no
 @deftypefn {MGL command} {} savehdf dat 'fname' 'dname'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} SaveHDF (@code{const char *}fname, @code{const char *}dname, @code{bool} rewrite=@code{false}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{void} SaveHDF (@code{const char *}fname, @code{const char *}dname, @code{bool} rewrite=@code{false}) @code{const}
 @deftypefnx {C function} @code{void} mgl_data_save_hdf (@code{HCDT} dat, @code{const char *}fname, @code{const char *}dname, @code{int} rewrite)
+@deftypefnx {C function} @code{void} mgl_datac_save_hdf (@code{HCDT} dat, @code{const char *}fname, @code{const char *}dname, @code{int} rewrite)
 @end ifclear
 Saves data array named @var{dname} to HDF5 file. This function does nothing if HDF5 was disabled during library compilation.
 @end deftypefn
@@ -483,8 +601,9 @@ Saves data array named @var{dname} to HDF5 file. This function does nothing if H
 @anchor{datas}
 @deftypefn {MGL command} {} datas 'fname'
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{const}
-@deftypefnx {C function} @code{void} mgl_datas_hdf (@code{const char *}fname, @code{char *}buf, @code{long} size)
+@deftypefnx {Method on @code{mglData}} @code{int} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{static}
+@deftypefnx {Method on @code{mglDataC}} @code{int} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{static}
+@deftypefnx {C function} @code{int} mgl_datas_hdf (@code{const char *}fname, @code{char *}buf, @code{long} size)
 @end ifclear
 Put data names from HDF5 file @var{fname} into @var{buf} as '\t' separated fields. In MGL version the list of data names will be printed as message. This function does nothing if HDF5 was disabled during library compilation.
 @end deftypefn
@@ -527,6 +646,7 @@ Saves data matrix (or @code{ns}-th slice for 3d data) to bitmap file (now suppor
 @deftypefn {MGL command} {} subdata @sc{res} dat @code{xx [yy=: zz=:]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} SubData (@code{mreal} xx, @code{mreal} yy=@code{-1}, @code{mreal} zz=@code{-1}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} SubData (@code{mreal} xx, @code{mreal} yy=@code{-1}, @code{mreal} zz=@code{-1}) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_subdata (@code{HCDT} dat, @code{mreal} xx, @code{mreal} yy, @code{mreal} zz)
 @end ifclear
 Extracts sub-array data from the original data array keeping fixed positive index. For example @code{SubData(-1,2)} extracts 3d row (indexes are zero based), @code{SubData(4,-1)} extracts 5th column, @code{SubData(-1,-1,3)} extracts 4th slice and so on. If argument(s) are non-integer then linear interpolation between slices is used. In MGL version this command usually is used as inline one @code{dat(xx,yy,zz)}.
@@ -534,7 +654,8 @@ Extracts sub-array data from the original data array keeping fixed positive inde
 
 @deftypefn {MGL command} {} subdata @sc{res} dat xdat [ydat=: zdat=:]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{mglData} SubData (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} SubData (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} SubData (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_subdata_ext (@code{HCDT} dat, @code{HCDT} xx, @code{HCDT} yy, @code{HCDT} zz)
 @end ifclear
 Extracts sub-array data from the original data array for indexes specified by arrays @var{xx}, @var{yy}, @var{zz} (indirect access). This function work like previous one for 1D arguments or numbers, and resulting array dimensions are equal dimensions of 1D arrays for corresponding direction. For 2D and 3D arrays in arguments, the resulting array have the same dimensions as input arrays. The dimensions of all argument must be the same (or to be scalar 1*1*1) if they are 2D or 3D arrays. In MGL version this command usually is used as inline one @code{dat(xx,yy,zz)}.
@@ -544,6 +665,7 @@ Extracts sub-array data from the original data array for indexes specified by ar
 @deftypefn {MGL command} {} column @sc{res} dat 'eq'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Column (@code{const char *}eq) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Column (@code{const char *}eq) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_column (@code{HCDT} dat, @code{const char *}eq)
 @end ifclear
 Get column (or slice) of the data filled by formula @var{eq} on column ids. For example, @code{Column("n*w^2/exp(t)");}. The column ids must be defined first by @ref{idset} function or read from files. In MGL version this command usually is used as inline one @code{dat('eq')}.
@@ -553,6 +675,7 @@ Get column (or slice) of the data filled by formula @var{eq} on column ids. For
 @deftypefn {MGL command} {} resize @sc{res} dat @code{mx [my=1 mz=1]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Resize (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1}, @code{mreal} x1=@code{0}, @code{mreal} x2=@code{1}, @code{mreal} y1=@code{0}, @code{mreal} y2=@code{1}, @code{mreal} z1=@code{0}, @code{mreal} z2=@code{1}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Resize (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1}, @code{mreal} x1=@code{0}, @code{mreal} x2=@code{1}, @code{mreal} y1=@code{0}, @code{mreal} y2=@code{1}, @code{mreal} z1=@code{0}, @code{mreal} z2=@code{1}) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_resize (@code{HCDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @deftypefnx {C function} @code{HMDT} mgl_data_resize_box (@code{HCDT} dat, @code{int} mx, @code{int} my, @code{int} mz, @code{mreal} x1, @code{mreal} x2, @code{mreal} y1, @code{mreal} y2, @code{mreal} z1, @code{mreal} z2)
 @end ifclear
@@ -564,20 +687,36 @@ Resizes the data to new size @var{mx}, @var{my}, @var{mz} from box (part) [@var{
 @deftypefnx {MGL command} {} evaluate @sc{res} dat idat jdat [@code{norm=on}]
 @deftypefnx {MGL command} {} evaluate @sc{res} dat idat jdat kdat [@code{norm=on}]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{bool} norm=@code{true}) @code{const}
-@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{const mglData &}jdat, @code{bool} norm=@code{true}) @code{const}
-@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{const mglData &}jdat, @code{const mglData &}kdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{const mglDataA &}kdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{const mglDataA &}kdat, @code{bool} norm=@code{true}) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_evaluate (@code{HCDT} dat, @code{HCDT} idat, @code{HCDT} jdat, @code{HCDT} kdat, @code{int} norm)
 @end ifclear
 Gets array which values is result of interpolation of original array for coordinates from other arrays. All dimensions must be the same for data @var{idat}, @var{jdat}, @var{kdat}. Coordinates from @var{idat}, @var{jdat}, @var{kdat} are supposed to be normalized in range [0,1] (if @var{norm}=@code{true}) or in ranges [0,nx], [0,ny], [0,nz] correspondingly.
 @end deftypefn
 
+@anchor{solve}
+@deftypefn {MGL command} {} solve @sc{res} dat @code{val} 'dir' [@code{norm=on}]
+@deftypefnx {MGL command} {} solve @sc{res} dat @code{val} 'dir' idat [@code{norm=on}]
+@ifclear UDAV
+@deftypefnx {Method on @code{mglData}} @code{mglData} Solve (@code{mreal} val, @code{char} dir, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Solve (@code{mreal} val, @code{char} dir, @code{const mglDataA &}idat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_data_solve (@code{HCDT} dat, @code{mreal} val, @code{char} dir, @code{HCDT} idat, @code{int} norm)
+@end ifclear
+Gets array which values is indexes (roots) along given direction @var{dir}, where interpolated values of data @var{dat} are equal to @var{val}. Output data will have the sizes of @var{dat} in directions transverse to @var{dir}. If data @var{idat} is provided then its values are used as starting points. This allows to find several branches by consequentive calls. Indexes are supposed to be normalized in range [0,1] (if @var{norm}=@code{true}) or in ranges [0,nx], [0,ny], [0,nz] correspondingly. @sref{Solve sample}
+@end deftypefn
+
 @anchor{hist}
 @deftypefn {MGL command} {} hist @sc{res} dat @code{num v1 v2 [nsub=0]}
 @deftypefnx {MGL command} {} hist @sc{res} dat wdat @code{num v1 v2 [nsub=0]}
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Hist (@code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
-@deftypefnx {Method on @code{mglData}} @code{mglData} Hist (@code{const mglData &}w, @code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Hist (@code{const mglDataA &}w, @code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Hist (@code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Hist (@code{const mglDataA &}w, @code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_hist (@code{HCDT} dat, @code{int} n, @code{mreal} v1, @code{mreal} v2, @code{int} nsub)
 @deftypefnx {C function} @code{HMDT} mgl_data_hist_w (@code{HCDT} dat, @code{HCDT} w, @code{int} n, @code{mreal} v1, @code{mreal} v2, @code{int} nsub)
 @end ifclear
@@ -588,6 +727,7 @@ Creates @var{n}-th points distribution of the data values in range [@var{v1}, @v
 @deftypefn {MGL command} {} momentum @sc{res} dat 'how' ['dir'='z']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Momentum (@code{char} dir, @code{const char *}how) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Momentum (@code{char} dir, @code{const char *}how) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_momentum (@code{HCDT} dat, @code{char} dir, @code{const char *}how)
 @end ifclear
 Gets momentum (1d-array) of the data along direction @var{dir}. String @var{how} contain kind of momentum. The momentum is defined like as
@@ -604,6 +744,7 @@ if @var{dir}=@samp{z} and so on. Coordinates @samp{x}, @samp{y}, @samp{z} are da
 @deftypefn {MGL command} {} sum @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Sum (@code{const char *}dir) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Sum (@code{const char *}dir) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_sum (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Gets array which is the result of summation in given direction or direction(s).
@@ -613,6 +754,7 @@ Gets array which is the result of summation in given direction or direction(s).
 @deftypefn {MGL command} {} max @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Max (@code{const char *}dir) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Max (@code{const char *}dir) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_max_dir (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Gets array which is the maximal data values in given direction or direction(s).
@@ -622,6 +764,7 @@ Gets array which is the maximal data values in given direction or direction(s).
 @deftypefn {MGL command} {} min @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Min (@code{const char *}dir) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Min (@code{const char *}dir) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_min_dir (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Gets array which is the maximal data values in given direction or direction(s).
@@ -630,7 +773,8 @@ Gets array which is the maximal data values in given direction or direction(s).
 @anchor{combine}
 @deftypefn {MGL command} {} combine @sc{res} adat bdat
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{mglData} Combine (@code{const mglData &}a) @code{const}
+@deftypefnx {Method on @code{mglData}} @code{mglData} Combine (@code{const mglDataA &}a) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Combine (@code{const mglDataA &}a) @code{const}
 @deftypefnx {C function} @code{HMDT} mgl_data_combine (@code{HCDT} dat, @code{HCDT} a)
 @end ifclear
 Returns direct multiplication of arrays (like, res[i,j] = this[i]*a[j] and so on).
@@ -640,10 +784,31 @@ Returns direct multiplication of arrays (like, res[i,j] = this[i]*a[j] and so on
 @deftypefn {MGL command} {} trace @sc{res} dat
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mglData} Trace () @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mglData} Trace () @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_data_trace (@code{HCDT} dat)
 @end ifclear
 Gets array of diagonal elements a[i,i] (for 2D case) or a[i,i,i] (for 3D case) where i=0...nx-1. Function return copy of itself for 1D case. Data array must have dimensions ny,nz >= nx or ny,nz = 1.
 @end deftypefn
 
+@ifclear UDAV
+@deftypefn {Method on @code{mglDataC}} @code{mglData} Real () @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_datac_real (@code{HCDT} dat)
+Gets array of real parts of the data.
+@end deftypefn
+@deftypefn {Method on @code{mglDataC}} @code{mglData} Imag () @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_datac_imag (@code{HCDT} dat)
+Gets array of imaginary parts of the data.
+@end deftypefn
+@deftypefn {Method on @code{mglDataC}} @code{mglData} Abs () @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_datac_abs (@code{HCDT} dat)
+Gets array of absolute values of the data.
+@end deftypefn
+@deftypefn {Method on @code{mglDataC}} @code{mglData} Arg () @code{const}
+@deftypefnx {C function} @code{HMDT} mgl_datac_arg (@code{HCDT} dat)
+Gets array of arguments of the data.
+@end deftypefn
+@end ifclear
+
 @c ------------------------------------------------------------------
 @external
 @node Data changing, Interpolation, Make another data, Data processing
@@ -670,7 +835,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {MGL command} {} cumsum dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} CumSum (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} CumSum (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_cumsum (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_cumsum (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Cumulative summation of the data in given direction or directions.
 @end deftypefn
@@ -679,7 +846,9 @@ Cumulative summation of the data in given direction or directions.
 @deftypefn {MGL command} {} integrate dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Integral (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Integral (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_integral (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_integral (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Integrates (like cumulative summation) the data in given direction or directions.
 @end deftypefn
@@ -688,15 +857,17 @@ Integrates (like cumulative summation) the data in given direction or directions
 @deftypefn {MGL command} {} diff dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Diff (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Diff (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_diff (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_diff (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Differentiates the data in given direction or directions.
 @end deftypefn
 
 @deftypefn {MGL command} {} diff dat xdat ydat [zdat=0]
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} Diff (@code{const mglData &}x, @code{const mglData &}y)
-@deftypefnx {Method on @code{mglData}} @code{void} Diff (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z)
+@deftypefnx {Method on @code{mglData}} @code{void} Diff (@code{const mglDataA &}x, @code{const mglDataA &}y)
+@deftypefnx {Method on @code{mglData}} @code{void} Diff (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z)
 @deftypefnx {C function} @code{void} mgl_data_diff_par (@code{HMDT} dat, @code{HCDT} x, @code{HCDT}y, @code{HCDT}z)
 @end ifclear
 Differentiates the data specified parametrically in direction @var{x} with @var{y}, @var{z}=constant. Parametrical differentiation uses the formula (for 2D case): @math{da/dx = (a_j*y_i-a_i*y_j)/(x_j*y_i-x_i*y_j)} where @math{a_i=da/di, a_j=da/dj} denotes usual differentiation along 1st and 2nd dimensions. The similar formula is used for 3D case. Note, that you may change the order of arguments -- for example, if you have 2D data a(i,j) which depend on coordinates @{x(i,j), y(i,j)@} then usual derivative along @samp{x} will be @code{Diff(x,y);} and usual derivative along @samp{y} will be @code{Diff(y,x);}.
@@ -706,7 +877,9 @@ Differentiates the data specified parametrically in direction @var{x} with @var{
 @deftypefn {MGL command} {} diff2 dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Diff2 (@code{const char *}dir)
-@deftypefnx {C function} @code{void} mgl_data_diff2 (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Diff2 (@code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_data_diff2 (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_diff2 (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Double-differentiates (like Laplace operator) the data in given direction.
 @end deftypefn
@@ -717,7 +890,7 @@ Double-differentiates (like Laplace operator) the data in given direction.
 @deftypefnx {Method on @code{mglData}} @code{void} SinFFT (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_sinfft (@code{HMDT} dat, @code{const char *}dir)
 @end ifclear
-Do Sine transform of the data in given direction or directions. The Sine transform is @math{\sum a_i \sin(k i)}.
+Do Sine transform of the data in given direction or directions. The Sine transform is @math{\sum a_j \sin(k j)}.
 @end deftypefn
 
 @anchor{cosfft}
@@ -726,23 +899,34 @@ Do Sine transform of the data in given direction or directions. The Sine transfo
 @deftypefnx {Method on @code{mglData}} @code{void} CosFFT (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_cosfft (@code{HMDT} dat, @code{const char *}dir)
 @end ifclear
-Do Cosine transform of the data in given direction or directions. The Cosine transform is @math{\sum a_i \cos(k i)}.
+Do Cosine transform of the data in given direction or directions. The Cosine transform is @math{\sum a_j \cos(k j)}.
+@end deftypefn
+
+@ifclear UDAV
+@deftypefn {Method on @code{mglDataC}} @code{void} FFT (@code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_fft (@code{HADT} dat, @code{const char *}dir)
+Do Fourier transform of the data in given direction or directions. If @var{dir} contain @samp{i} then inverse Fourier is used. The Fourier transform is @math{\sum a_j \exp(i k j)}.
 @end deftypefn
+@end ifclear
 
 @anchor{hankel}
 @deftypefn {MGL command} {} hankel dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Hankel (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Hankel (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_hankel (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_hankel (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
-Do Hankel transform of the data in given direction or directions. The Hankel transform is @math{\sum a_i J_0(k i)}.
+Do Hankel transform of the data in given direction or directions. The Hankel transform is @math{\sum a_j J_0(k j)}.
 @end deftypefn
 
 @anchor{swap}
 @deftypefn {MGL command} {} swap dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Swap (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Swap (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_swap (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_swap (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Swaps the left and right part of the data in given direction (useful for Fourier spectrum).
 @end deftypefn
@@ -751,7 +935,9 @@ Swaps the left and right part of the data in given direction (useful for Fourier
 @deftypefn {MGL command} {} roll dat 'dir' num
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Roll (@code{char} dir, @code{num})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Roll (@code{char} dir, @code{num})
 @deftypefnx {C function} @code{void} mgl_data_roll (@code{HMDT} dat, @code{char} dir, @code{num})
+@deftypefnx {C function} @code{void} mgl_datac_roll (@code{HADT} dat, @code{char} dir, @code{num})
 @end ifclear
 Rolls the data along direction @var{dir}. Resulting array will be out[i] = ini[(i+@var{num})%nx] if @code{dir='x'}.
 @end deftypefn
@@ -760,7 +946,9 @@ Rolls the data along direction @var{dir}. Resulting array will be out[i] = ini[(
 @deftypefn {MGL command} {} mirror dat 'dir'
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Mirror (@code{const char *}dir)
+@deftypefnx {Method on @code{mglDataC}} @code{void} Mirror (@code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_mirror (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {C function} @code{void} mgl_datac_mirror (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Mirror the left-to-right part of the data in given direction. Looks like change the value index @var{i}->@var{n-i}. Note, that the similar effect in graphics you can reach by using options (@pxref{Command options}), for example, @code{surf dat; xrange 1 -1}.
 @end deftypefn
@@ -778,7 +966,9 @@ Remove value steps (like phase jumps after inverse trigonometric functions) with
 @deftypefn {MGL command} {} smooth data @code{type} ['dir'='xyz']
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{void} Smooth (@code{const char *}dir=@code{"xyz"}, @code{mreal} delta=@code{0})
+@deftypefnx {Method on @code{mglDataC}} @code{void} Smooth (@code{const char *}dir=@code{"xyz"}, @code{mreal} delta=@code{0})
 @deftypefnx {C function} @code{void} mgl_data_smooth (@code{HMDT} dat, @code{const char *}dir, @code{mreal} delta)
+@deftypefnx {C function} @code{void} mgl_datac_smooth (@code{HADT} dat, @code{const char *}dir, @code{mreal} delta)
 @end ifclear
 Smooths the data on specified direction or directions. String @var{dirs} specifies the dimensions which will be smoothed. It may contain characters: @samp{x} for 1st dimension, @samp{y} for 2nd dimension, @samp{z} for 3d dimension. If string @var{dir} contain: @samp{0} then does nothing, @samp{3} -- linear averaging over 3 points, @samp{5} -- linear averaging over 5 points. By default quadratic averaging over 5 points is used.
 @end deftypefn
@@ -835,16 +1025,41 @@ Interpolates data by cubic spline to the given point @var{x} in [0...nx-1], @var
 @deftypefn {Method on @code{mglData}} @code{mreal} Spline1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 Interpolates data by cubic spline to the given point @var{x}, @var{y}, @var{z} which assumed to be normalized in range [0, 1].
 @end deftypefn
+
+@deftypefn {Method on @code{mglData}} @code{mreal} Spline (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {C function} @code{mreal} mgl_data_spline_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{mreal *}dx, @code{mreal *}dy, @code{mreal *}dz)
+Interpolates data by cubic spline to the given point @var{x} in [0...nx-1], @var{y} in [0...ny-1], @var{z} in [0...nz-1]. The values of derivatives at the point are saved in @var{dif}.
+@end deftypefn
+@cindex Spline1
+@deftypefn {Method on @code{mglData}} @code{mreal} Spline1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+Interpolates data by cubic spline to the given point @var{x}, @var{y}, @var{z} which assumed to be normalized in range [0, 1]. The values of derivatives at the point are saved in @var{dif}.
+@end deftypefn
+
 @cindex Linear
 @deftypefn {Method on @code{mglData}} @code{mreal} Linear (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{dual} Linear (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_linear (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z)
+@deftypefnx {C function} @code{dual} mgl_datac_linear (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z)
 Interpolates data by linear function to the given point @var{x} in [0...nx-1], @var{y} in [0...ny-1], @var{z} in [0...nz-1].
 @end deftypefn
 @cindex Linear1
 @deftypefn {Method on @code{mglData}} @code{mreal} Linear1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{dual} Linear1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 Interpolates data by linear function to the given point @var{x}, @var{y}, @var{z} which assumed to be normalized in range [0, 1].
 @end deftypefn
 
+@deftypefn {Method on @code{mglData}} @code{mreal} Linear (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{dual} Linear (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {C function} @code{mreal} mgl_data_linear_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{mreal *}dx, @code{mreal *}dy, @code{mreal *}dz)
+@deftypefnx {C function} @code{dual} mgl_datac_linear_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{dual *}dx, @code{dual *}dy, @code{dual *}dz)
+Interpolates data by linear function to the given point @var{x} in [0...nx-1], @var{y} in [0...ny-1], @var{z} in [0...nz-1]. The values of derivatives at the point are saved in @var{dif}.
+@end deftypefn
+@cindex Linear1
+@deftypefn {Method on @code{mglData}} @code{mreal} Linear1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{dual} Linear1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+Interpolates data by linear function to the given point @var{x}, @var{y}, @var{z} which assumed to be normalized in range [0, 1]. The values of derivatives at the point are saved in @var{dif}.
+@end deftypefn
+
 @end ifclear
 
 @c ------------------------------------------------------------------
@@ -861,6 +1076,8 @@ There are a set of functions for obtaining data properties in MGL language. Howe
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{const char *} PrintInfo () @code{const}
 @deftypefnx {Method on @code{mglData}} @code{void} PrintInfo (@code{FILE *}fp) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{const char *} PrintInfo () @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{void} PrintInfo (@code{FILE *}fp) @code{const}
 @deftypefnx {C function} @code{const char *} mgl_data_info (@code{HCDT} dat)
 @end ifclear
 Gets or prints to file @var{fp} or as message (in MGL) information about the data (sizes, maximum/minimum, momentums and so on).
@@ -885,6 +1102,9 @@ Prints value of number @var{val} as message.
 @deftypefnx {Method on @code{mglData}} @code{long} GetNx ()
 @deftypefnx {Method on @code{mglData}} @code{long} GetNy ()
 @deftypefnx {Method on @code{mglData}} @code{long} GetNz ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNx ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNy ()
+@deftypefnx {Method on @code{mglDataC}} @code{long} GetNz ()
 @deftypefnx {C function} @code{long} mgl_data_get_nx (@code{HCDT} dat)
 @deftypefnx {C function} @code{long} mgl_data_get_ny (@code{HCDT} dat)
 @deftypefnx {C function} @code{long} mgl_data_get_nz (@code{HCDT} dat)
@@ -899,6 +1119,7 @@ Gets the x-, y-, z-size of the data.
 @deftypefn {MGL suffix} {(dat)} .max
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mreal} Maximal () @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Maximal () @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_max (@code{HCDT} dat)
 @end ifclear
 Gets maximal value of the data.
@@ -909,6 +1130,7 @@ Gets maximal value of the data.
 @deftypefn {MGL suffix} {(dat)} .min
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mreal} Minimal () @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Minimal () @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_min (@code{HMDT} dat) @code{const}
 @end ifclear
 Gets minimal value of the data.
@@ -916,14 +1138,17 @@ Gets minimal value of the data.
 
 @ifclear UDAV
 @deftypefn {Method on @code{mglData}} @code{mreal} Minimal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Minimal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_min_int (@code{HCDT} dat, @code{int} *i, @code{int} *j, @code{int} *k)
 Gets position of minimum to variables @var{i}, @var{j}, @var{k} and returns the minimal value.
 @end deftypefn
 @deftypefn {Method on @code{mglData}} @code{mreal} Maximal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Maximal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_max_int (@code{HCDT} dat, @code{int} *i, @code{int} *j, @code{int} *k)
 Gets position of maximum to variables @var{i}, @var{j}, @var{k} and returns the maximal value.
 @end deftypefn
 @deftypefn {Method on @code{mglData}} @code{mreal} Minimal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Minimal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_min_real (@code{HCDT} dat, @code{mreal} *x, @code{mreal} *y, @code{mreal} *z)
 Gets approximated (interpolated) position of minimum to variables @var{x}, @var{y}, @var{z} and returns the minimal value.
 @end deftypefn
@@ -935,6 +1160,7 @@ Gets approximated (interpolated) position of minimum to variables @var{x}, @var{
 @deftypefnx {MGL suffix} {(dat)} .mz
 @ifclear UDAV
 @deftypefnx {Method on @code{mglData}} @code{mreal} Maximal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
+@deftypefnx {Method on @code{mglDataC}} @code{mreal} Maximal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
 @deftypefnx {C function} @code{mreal} mgl_data_max_real (@code{HCDT} dat, @code{mreal} *x, @code{mreal} *y, @code{mreal} *z)
 @end ifclear
 Gets approximated (interpolated) position of maximum to variables @var{x}, @var{y}, @var{z} and returns the maximal value.
@@ -1016,7 +1242,7 @@ Give first (for @code{.a}, i.e. @code{dat->a[0]}).
 
 @deftypefn {MGL command} {} copy @sc{dat} dat2 ['eq'='']
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} operator= (@code{const mglData &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} operator= (@code{const mglDataA &}d)
 @end ifclear
 Copies data from other variable.
 @end deftypefn
@@ -1032,7 +1258,7 @@ Set all data values equal to @var{val}.
 @deftypefn {MGL command} {} multo dat dat2
 @deftypefnx {MGL command} {} multo dat @code{val}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} operator*= (@code{const mglData &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} operator*= (@code{const mglDataA &}d)
 @deftypefnx {Method on @code{mglData}} @code{void} operator*= (@code{mreal} d)
 @deftypefnx {C function} @code{void} mgl_data_mul_dat (@code{HMDT} dat, @code{HCDT} d)
 @deftypefnx {C function} @code{void} mgl_data_mul_num (@code{HMDT} dat, @code{mreal} d)
@@ -1044,7 +1270,7 @@ Multiplies data element by the other one or by value.
 @deftypefn {MGL command} {} divto dat dat2
 @deftypefnx {MGL command} {} divto dat @code{val}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} operator/= (@code{const mglData &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} operator/= (@code{const mglDataA &}d)
 @deftypefnx {Method on @code{mglData}} @code{void} operator/= (@code{mreal} d)
 @deftypefnx {C function} @code{void} mgl_data_div_dat (@code{HMDT} dat, @code{HCDT} d)
 @deftypefnx {C function} @code{void} mgl_data_div_num (@code{HMDT} dat, @code{mreal} d)
@@ -1056,7 +1282,7 @@ Divides each data element by the other one or by value.
 @deftypefn {MGL command} {} addto dat dat2
 @deftypefnx {MGL command} {} addto dat @code{val}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} operator+= (@code{const mglData &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} operator+= (@code{const mglDataA &}d)
 @deftypefnx {Method on @code{mglData}} @code{void} operator+= (@code{mreal} d)
 @deftypefnx {C function} @code{void} mgl_data_add_dat (@code{HMDT} dat, @code{HCDT} d)
 @deftypefnx {C function} @code{void} mgl_data_add_num (@code{HMDT} dat, @code{mreal} d)
@@ -1068,7 +1294,7 @@ Adds to each data element the other one or the value.
 @deftypefn {MGL command} {} subto dat dat2
 @deftypefnx {MGL command} {} subto dat @code{val}
 @ifclear UDAV
-@deftypefnx {Method on @code{mglData}} @code{void} operator-= (@code{const mglData &}d)
+@deftypefnx {Method on @code{mglData}} @code{void} operator-= (@code{const mglDataA &}d)
 @deftypefnx {Method on @code{mglData}} @code{void} operator-= (@code{mreal} d)
 @deftypefnx {C function} @code{void} mgl_data_sub_dat (@code{HMDT} dat, @code{HCDT} d)
 @deftypefnx {C function} @code{void} mgl_data_sub_num (@code{HMDT} dat, @code{mreal} d)
@@ -1077,26 +1303,26 @@ Subtracts from each data element the other one or the value.
 @end deftypefn
 
 @ifclear UDAV
-@deftypefn {Library Function} mglData operator+ (@code{const mglData &}a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator+ (@code{mreal} a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator+ (@code{const mglData &}a, @code{mreal} b)
+@deftypefn {Library Function} mglData operator+ (@code{const mglDataA &}a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator+ (@code{mreal} a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator+ (@code{const mglDataA &}a, @code{mreal} b)
 Adds the other data or the number.
 @end deftypefn
 
-@deftypefn {Library Function} mglData operator- (@code{const mglData &}a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator- (@code{mreal} a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator- (@code{const mglData &}a, @code{mreal} b)
+@deftypefn {Library Function} mglData operator- (@code{const mglDataA &}a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator- (@code{mreal} a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator- (@code{const mglDataA &}a, @code{mreal} b)
 Subtracts the other data or the number.
 @end deftypefn
 
-@deftypefn {Library Function} mglData operator* (@code{const mglData &}a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator* (@code{mreal} a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator* (@code{const mglData &}a, @code{mreal} b)
+@deftypefn {Library Function} mglData operator* (@code{const mglDataA &}a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator* (@code{mreal} a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator* (@code{const mglDataA &}a, @code{mreal} b)
 Multiplies by the other data or the number.
 @end deftypefn
 
-@deftypefn {Library Function} mglData operator/ (@code{const mglData &}a, @code{const mglData &}b)
-@deftypefnx {Library Function} mglData operator/ (@code{const mglData &}a, @code{mreal} b)
+@deftypefn {Library Function} mglData operator/ (@code{const mglDataA &}a, @code{const mglDataA &}b)
+@deftypefnx {Library Function} mglData operator/ (@code{const mglDataA &}a, @code{mreal} b)
 Divides by the other data or the number.
 @end deftypefn
 @end ifclear
@@ -1113,7 +1339,7 @@ These functions are not methods of @code{mglData} class. However it provide addi
 @anchor{transform}
 @deftypefn {MGL command} {} transform @sc{dat} 'type' real imag
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglTransform (@code{const mglData &}real, @code{const mglData &}imag, @code{const char *}type)
+@deftypefnx {Global function} @code{mglData} mglTransform (@code{const mglDataA &}real, @code{const mglDataA &}imag, @code{const char *}type)
 @deftypefnx {C function} @code{HMDT} mgl_transform (@code{HCDT} real, @code{HCDT} imag, @code{const char *}type)
 @end ifclear
 Does integral transformation of complex data @var{real}, @var{imag} on specified direction. The order of transformations is specified in string @var{type}: first character for x-dimension, second one for y-dimension, third one for z-dimension. The possible character are: @samp{f} is forward Fourier transformation, @samp{i} is inverse Fourier transformation, @samp{s} is Sine transform, @samp{c} is Cosine transform, @samp{h} is Hankel transform, @samp{n} or @samp{ } is no transformation.
@@ -1122,7 +1348,7 @@ Does integral transformation of complex data @var{real}, @var{imag} on specified
 @anchor{transforma}
 @deftypefn {MGL command} {} transforma @sc{dat} 'type' ampl phase
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglTransformA @code{const mglData &}ampl, @code{const mglData &}phase, @code{const char *}type)
+@deftypefnx {Global function} @code{mglData} mglTransformA @code{const mglDataA &}ampl, @code{const mglDataA &}phase, @code{const char *}type)
 @deftypefnx {C function} @code{HMDT} mgl_transform_a @code{HCDT} ampl, @code{HCDT} phase, @code{const char *}type)
 @end ifclear
 The same as previous but with specified amplitude @var{ampl} and phase @var{phase} of complex numbers.
@@ -1131,7 +1357,7 @@ The same as previous but with specified amplitude @var{ampl} and phase @var{phas
 @anchor{fourier}
 @deftypefn {MGL command} {} fourier reDat imDat 'dir'
 @ifclear UDAV
-@deftypefnx {Global function} @code{void} mglFourier @code{const mglData &}re, @code{const mglData &}im, @code{const char *}dir)
+@deftypefnx {Global function} @code{void} mglFourier @code{const mglDataA &}re, @code{const mglDataA &}im, @code{const char *}dir)
 @deftypefnx {C function} @code{void} mgl_data_fourier @code{HCDT} re, @code{HCDT} im, @code{const char *}dir)
 @end ifclear
 Does Fourier transform of complex data @var{re}+i*@var{im} in directions @var{dir}. Result is placed back into @var{re} and @var{im} data arrays.
@@ -1140,7 +1366,7 @@ Does Fourier transform of complex data @var{re}+i*@var{im} in directions @var{di
 @anchor{stfad}
 @deftypefn {MGL command} {} stfad @sc{res} real imag @code{dn} ['dir'='x']
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglSTFA (@code{const mglData &}real, @code{const mglData &}imag, @code{int} dn, @code{char} dir=@code{'x'})
+@deftypefnx {Global function} @code{mglData} mglSTFA (@code{const mglDataA &}real, @code{const mglDataA &}imag, @code{int} dn, @code{char} dir=@code{'x'})
 @deftypefnx {C function} @code{HMDT} mgl_data_stfa (@code{HCDT} real, @code{HCDT} imag, @code{int} dn,@code{char} dir)
 @end ifclear
 Short time Fourier transformation for real and imaginary parts. Output  is amplitude of partial Fourier of length @var{dn}. For example if @var{dir}=@samp{x}, result will have size @{int(nx/dn), dn, ny@} and it will contain @math{res[i,j,k]=|\sum_d^dn exp(I*j*d)*(real[i*dn+d,k]+I*imag[i*dn+d,k])|/dn}.
@@ -1149,7 +1375,7 @@ Short time Fourier transformation for real and imaginary parts. Output  is ampli
 @anchor{pde}
 @deftypefn {MGL command} {} pde @sc{res} 'ham' ini_re ini_im [@code{dz=0.1 k0=100}]
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglPDE (@code{HMGL} gr, @code{const char *}ham, @code{const mglData &}ini_re, @code{const mglData &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
+@deftypefnx {Global function} @code{mglData} mglPDE (@code{HMGL} gr, @code{const char *}ham, @code{const mglDataA &}ini_re, @code{const mglDataA &}ini_im, @code{mreal} dz=@code{0.1}, @code{mreal} k0=@code{100}, @code{const char *}opt=@code{""})
 @deftypefnx {C function} @code{HMDT} mgl_pde_solve (@code{HMGL} gr, @code{const char *}ham, @code{HCDT} ini_re, @code{HCDT} ini_im, @code{mreal} dz, @code{mreal} k0, @code{const char *}opt)
 @end ifclear
 Solves equation du/dz = i*k0*@var{ham}(p,q,x,y,z,|u|)[u], where p=-i/k0*d/dx, q=-i/k0*d/dy are pseudo-differential operators. Parameters @var{ini_re}, @var{ini_im} specify real and imaginary part of initial field distribution. Parameters @var{Min}, @var{Max} set the bounding box for the solution. Note, that really this ranges are increased by factor 3/2 for purpose of reducing reflection from boundaries. Parameter @var{dz} set the step along evolutionary coordinate z. At this moment, simplified form of function @var{ham} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this function is effectively @math{ham = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed. Here variable @samp{u} is used for field amplitude |u|. This allow one solve nonlinear problems -- for example, for nonlinear Shrodinger equation you may set @code{ham="p^2 + q^2 - u^2"}. You may specify imaginary part for wave absorption, like @code{ham = "p^2 + i*x*(x>0)"}, but only if dependence on variable @samp{i} is linear (i.e. @math{ham = hre+i*him}). @sref{PDE solving hints}
@@ -1167,8 +1393,8 @@ Solves GO ray equation like dr/dt = d @var{ham}/dp, dp/dt = -d @var{ham}/dr. Thi
 @anchor{qo2d}
 @deftypefn {MGL command} {} qo2d @sc{res} 'ham' ini_re ini_im ray [@code{r=1 k0=100} xx yy]
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglQO2d (@code{const char *}ham, @code{const mglData &}ini_re, @code{const mglData &}ini_im, @code{const mglData &}ray, @code{mreal} r=@code{1}, @code{mreal} k0=@code{100}, @code{mglData *}xx=@code{0}, @code{mglData *}yy=@code{0})
-@deftypefnx {Global function} @code{mglData} mglQO2d (@code{const char *}ham, @code{const mglData &}ini_re, @code{const mglData &}ini_im, @code{const mglData &}ray, @code{mglData &}xx, @code{mglData &}yy, @code{mreal} r=@code{1}, @code{mreal} k0=@code{100})
+@deftypefnx {Global function} @code{mglData} mglQO2d (@code{const char *}ham, @code{const mglDataA &}ini_re, @code{const mglDataA &}ini_im, @code{const mglDataA &}ray, @code{mreal} r=@code{1}, @code{mreal} k0=@code{100}, @code{mglData *}xx=@code{0}, @code{mglData *}yy=@code{0})
+@deftypefnx {Global function} @code{mglData} mglQO2d (@code{const char *}ham, @code{const mglDataA &}ini_re, @code{const mglDataA &}ini_im, @code{const mglDataA &}ray, @code{mglData &}xx, @code{mglData &}yy, @code{mreal} r=@code{1}, @code{mreal} k0=@code{100})
 @deftypefnx {C function} @code{HMDT} mgl_qo2d_solve (@code{const char *}ham, @code{HCDT} ini_re, @code{HCDT} ini_im, @code{HCDT} ray, @code{mreal} r, @code{mreal} k0, @code{HMDT} xx, @code{HMDT} yy)
 @end ifclear
 Solves equation du/dt = i*k0*@var{ham}(p,q,x,y,|u|)[u], where p=-i/k0*d/dx, q=-i/k0*d/dy are pseudo-differential operators (see @code{mglPDE()} for details). Parameters @var{ini_re}, @var{ini_im} specify real and imaginary part of initial field distribution. Parameters @var{ray} set the reference ray, i.e. the ray around which the accompanied coordinate system will be maked. You may use, for example, the array created by @code{mglRay()} function. Note, that the reference ray @strong{must be} smooth enough to make accompanied coodrinates unambiguity. Otherwise errors in the solution may appear. If @var{xx} and @var{yy} are non-zero then Cartesian coordinates for each point will be written into them. See also @code{mglPDE()}. @sref{PDE solving hints}
@@ -1177,8 +1403,8 @@ Solves equation du/dt = i*k0*@var{ham}(p,q,x,y,|u|)[u], where p=-i/k0*d/dx, q=-i
 @anchor{jacobian}
 @deftypefn {MGL command} {} jacobian @sc{res} xdat ydat [zdat]
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglJacobian (@code{const mglData &}x, @code{const mglData &}y)
-@deftypefnx {Global function} @code{mglData} mglJacobian (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z)
+@deftypefnx {Global function} @code{mglData} mglJacobian (@code{const mglDataA &}x, @code{const mglDataA &}y)
+@deftypefnx {Global function} @code{mglData} mglJacobian (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z)
 @deftypefnx {C function} @code{HMDT} mgl_jacobian_2d (@code{HCDT} x, @code{HCDT} y)
 @deftypefnx {C function} @code{HMDT} mgl_jacobian_3d (@code{HCDT} x, @code{HCDT} y, @code{HCDT} z)
 @end ifclear
@@ -1189,8 +1415,8 @@ Computes the Jacobian for transformation @{i,j,k@} to @{@var{x},@var{y},@var{z}@
 @deftypefn {MGL command} {} triangulation @sc{res} xdat ydat
 @c @deftypefn {MGL command} {} triangulation @sc{res} xdat ydat [zdat]
 @ifclear UDAV
-@deftypefnx {Global function} @code{mglData} mglTriangulation (@code{const mglData &}x, @code{const mglData &}y)
-@c @deftypefnx {Global function} @code{mglData} mglTriangulation (@code{const mglData &}x, @code{const mglData &}y, @code{const mglData &}z)
+@deftypefnx {Global function} @code{mglData} mglTriangulation (@code{const mglDataA &}x, @code{const mglDataA &}y)
+@c @deftypefnx {Global function} @code{mglData} mglTriangulation (@code{const mglDataA &}x, @code{const mglDataA &}y, @code{const mglDataA &}z)
 @deftypefnx {C function} @code{HMDT} mgl_triangulation_2d (@code{HCDT} x, @code{HCDT} y)
 @c @deftypefnx {C function} @code{HMDT} mgl_triangulation_3d (@code{HCDT} x, @code{HCDT} y, @code{HCDT} z)
 @end ifclear
@@ -1200,7 +1426,7 @@ Computes triangulation for arbitrary placed points with coordinates @{@var{x},@v
 
 @c ------------------------------------------------------------------
 @external
-@node Evaluate expression, , Global functions, Data processing
+@node Evaluate expression, MGL variables, Global functions, Data processing
 @section Evaluate expression
 
 @ifset UDAV
@@ -1243,5 +1469,53 @@ Evaluates the formula derivation respect to @var{dir} for variables in array @va
 
 @end ifclear
 
+@c ------------------------------------------------------------------
+@external
+@node MGL variables, , Evaluate expression, Data processing
+@section MGL variables
+
+@ifset UDAV
+For information about MGL variables see @ref{MGL definition}.
+@end ifset
+
+@ifclear UDAV
+
+Class mglVar represent MGL variables. It is needed for parsing MGL scripts (see @ref{mglParse class}). This class is derived from @code{mglData} and is defined in @code{#include <mgl2/mgl.h>}.
+
+@deftypecv {Variable} mglVar @code{std::wstring} s
+Name of variable.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{mglVar *} next
+@deftypecvx {Variable} mglVar @code{mglVar *} prev
+Next and previous variable in the list.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{bool} temp
+Flag of the temporary variable. If @code{true} the this variable will be removed after script execution.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{void} (*func)(void *)
+Callback function, which will be called at variable destroying.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{void *} o
+Pointer to external object for callback function.
+@end deftypecv
+
+@deftypefn {Constructor on @code{mglVar}} @code{} mglVar ()
+Create variable with size 1*1*1.
+@end deftypefn
+
+@deftypefn {Destructor on @code{mglVar}} @code{} ~mglVar ()
+Deletes the instance of class mglVar.
+@end deftypefn
+
+@deftypefn {Method on @code{mglVar}} @code{void} MoveAfter (@code{mglVar *}var)
+Evaluates the formula for @code{'x','r'}=@var{x}, @code{'y','n'}=@var{y}, @code{'z','t'}=@var{z}, @code{'a','u'}=@var{u}.
+@end deftypefn
+
+@end ifclear
+
 @external
 

diff --git a/texinfo/data_ru.texi b/texinfo/data_ru.texi
index 085364a6c958d5f90297f2fb8a5ee9b95dab74f0..afe69d0c59813804c6a7003731a0773bfe78b60f 100644 (file)
--- a/texinfo/data_ru.texi
+++ b/texinfo/data_ru.texi
@@ -6,7 +6,7 @@
 @end ifset
 
 @ifclear UDAV
-В данной главе описывается класс @code{mglData} для работы с массивами данных, определённый в @code{#include <mgl2/data.h>}. Он содержит функции для выделения памяти и изменения размера данных, чтения данных из файла, численного дифференцирования, интегрирования, интерполяции и пр., заполнения по текстовой формуле и т.д. Класс позволяет работать с данными размерности не более 3 (как функции от трёх переменных -- x,y,z). По умолчанию внутреннее представление данных -- mreal, выбранный в силу меньшего размера занимаемой памяти и достаточной для построения графиков точности. Базовый тип можно сменить на этапе установки указав опцию @code{--enable-double} (см. @ref{Installation}). Однако, в дальнейшем в документации будет использован тип @code{mreal}. Массивы которые могут быть созданы командами MGL отображаются Small Caps шрифтом (например, @sc{dat}).
+В данной главе описываются классы @code{mglData} и @code{mglDataC} для работы с массивами действительных и комплексных данных, определённые в @code{#include <mgl2/data.h>} и @code{#include <mgl2/datac.h>} соответственно. Оба класса являются наследниками абстрактного класса @code{mglDataA}, и могут быть использованы в аргументах всех функций рисования (см. @ref{MathGL core}). Классы содержат функции для выделения памяти и изменения размера данных, чтения данных из файла, численного дифференцирования, интегрирования, интерполяции и пр., заполнения по текстовой формуле и т.д. Классы позволяют работать с данными размерности не более 3 (как функции от трёх переменных -- x,y,z). По умолчанию внутреннее представление данных использует тип mreal (и dual=std::complex<mreal> для @code{mglDataC}), который может быть сконфигурирован как float или double на этапе установки указав опцию @code{--enable-double} (см. @ref{Installation}). Тип float удобен в силу меньшего размера занимаемой памяти и, как правило, достаточной для построения графиков точности. Однако, тип double имеет большую точность, что может быть важно, например, для осей с метками времени. Массивы которые могут быть созданы командами MGL отображаются Small Caps шрифтом (например, @sc{dat}).
 @end ifclear
 
 @menu
@@ -22,6 +22,7 @@
 * Operators::
 * Global functions::
 * Evaluate expression::
+* MGL variables::
 @end menu
 
 @c ------------------------------------------------------------------
@@ -35,32 +36,43 @@ MGL не поддерживает прямой доступ к элемента
 
 @ifclear UDAV
 @deftypecv {Variable} mglData @code{mreal *} a
+@deftypecvx {Variable} mglDataC @code{dual *} a
 Указатель на массив данных. Это одномерный массив. Например, матрица [nx x ny x nz] представляется одномерным массивом длиной nx*ny*nz, где элемент с индексами @{i, j, k@} находится как a[i+nx*j+nx*ny*k] (индексы отсчитываются от нуля).
 @end deftypecv
 @deftypecv {Variable} mglData @code{int} nx
+@deftypecvx {Variable} mglDataC @code{long} nx
 Размер массива по 1-ой размерности ('x' размерности).
 @end deftypecv
 @deftypecv {Variable} mglData @code{int} ny
+@deftypecvx {Variable} mglDataC @code{long} ny
 Размер массива по 2-ой размерности ('y' размерности).
 @end deftypecv
 @deftypecv {Variable} mglData @code{int} nz
+@deftypecvx {Variable} mglDataC @code{long} nz
 Размер массива по 3-ей размерности ('z' размерности).
 @end deftypecv
-@deftypecv {Variable} mglData @code{char *} id
+@deftypecv {Variable} mglData @code{std::string} id
+@deftypecvx {Variable} mglDataC @code{std::string} id
 Имена колонки (или среза при nz>1) -- один символ на колонку.
 @end deftypecv
 @deftypecv {Variable} mglData @code{bool} link
+@deftypecvx {Variable} mglDataC @code{bool} link
 Флаг использования указателя на внешние данные, включает запрет на удаление массива данных.
 @end deftypecv
 
 @deftypefn {Метод класса @code{mglData}} @code{mreal} GetVal (@code{long} i)
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} GetVal (@code{long} i)
 @deftypefnx {Метод класса @code{mglData}} @code{void} SetVal (@code{mreal} val, @code{long} i)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} SetVal (@code{mreal} val, @code{long} i)
 Присваивает или возвращает значение используя "непрерывную" индексацию без проверки выхода за границы массива. Индекс @var{i} должен быть в диапазоне [0, nx*ny*nz-1].
 @end deftypefn
 
 @deftypefn {Метод класса @code{mglData}} @code{long} GetNx ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNx ()
 @deftypefnx {Метод класса @code{mglData}} @code{long} GetNy ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNy ()
 @deftypefnx {Метод класса @code{mglData}} @code{long} GetNz ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNz ()
 @deftypefnx {Функция С} @code{long} mgl_data_get_nx (@code{HCDT} dat)
 @deftypefnx {Функция С} @code{long} mgl_data_get_ny (@code{HCDT} dat)
 @deftypefnx {Функция С} @code{long} mgl_data_get_nz (@code{HCDT} dat)
@@ -68,8 +80,11 @@ MGL не поддерживает прямой доступ к элемента
 @end deftypefn
 
 @deftypefn {Функция С} @code{mreal} mgl_data_get_value (@code{HCDT} dat, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {Функция С} @code{dual} mgl_datac_get_value (@code{HCDT} dat, @code{int} i, @code{int} j, @code{int} k)
 @deftypefnx {Функция С} @code{mreal *} mgl_data_value (@code{HMDT} dat, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {Функция С} @code{dual *} mgl_datac_value (@code{HADT} dat, @code{int} i, @code{int} j, @code{int} k)
 @deftypefnx {Функция С} @code{void} mgl_data_set_value (@code{HMDT} dat, @code{mreal} v, @code{int} i, @code{int} j, @code{int} k)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_value (@code{HADT} dat, @code{dual} v, @code{int} i, @code{int} j, @code{int} k)
 Присваивает или возвращает значение ячейки данных с проверкой выхода за пределы массива.
 @end deftypefn
 @deftypefn {Функция С} @code{const mreal *} mgl_data_data (@code{HCDT} dat)
@@ -93,6 +108,7 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefnx {Команда MGL} {} new @sc{dat} @code{nx ny nz} ['eq']
 @ifclear UDAV
 @deftypefnx {Конструктор класса @code{mglData}} {} mglData (@code{int} mx=@code{1}, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} mx=@code{1}, @code{int} my=@code{1}, @code{int} mz=@code{1})
 @deftypefnx {Функция С} @code{HMDT} mgl_create_data ()
 @deftypefnx {Функция С} @code{HMDT} mgl_create_data_size (@code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
@@ -111,6 +127,14 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefnx {Конструктор класса @code{mglData}} {} mglData (@code{int} size, @code{int} cols, @code{const double *}dat2)
 @deftypefnx {Конструктор класса @code{mglData}} {} mglData (@code{const double *}dat2, @code{int} size)
 @deftypefnx {Конструктор класса @code{mglData}} {} mglData (@code{const double *}dat2, @code{int} size, @code{int} cols)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{const mglDataA &}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{const mglDataA *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{const float *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const float *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{const double *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const double *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{const dual *}dat2)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{int} size, @code{int} cols, @code{const dual *}dat2)
 @end ifclear
 Копирует данные из другого экземпляра данных. Если указана формула @var{eq}, то данные заполняются также как при использовании @ref{fill}.
 @end deftypefn
@@ -118,7 +142,9 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefn {Команда MGL} {} read @sc{dat} 'fname'
 @ifclear UDAV
 @deftypefnx {Конструктор класса @code{mglData}} {} mglData (@code{const char *}fname)
+@deftypefnx {Конструктор класса @code{mglDataC}} {} mglDataC (@code{const char *}fname)
 @deftypefnx {Функция С} @code{HMDT} mgl_create_data_file (@code{const char *}fname)
+@deftypefnx {Функция С} @code{HADT} mgl_create_datac_file (@code{const char *}fname)
 @end ifclear
 Читает данные из текстового файла с автоматическим определением размеров массива.
 @end deftypefn
@@ -127,6 +153,8 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @ifclear UDAV
 @deftypefnx {Destructor on @code{mglData}} {} ~mglData ()
 @deftypefnx {Функция С} @code{void} mgl_delete_data (@code{HMDT} dat)
+@deftypefnx {Destructor on @code{mglDataC}} {} ~mglDataC ()
+@deftypefnx {Функция С} @code{void} mgl_delete_datac (@code{HADT} dat)
 @end ifclear
 Удаляет массив данных из памяти.
 @end deftypefn
@@ -149,7 +177,9 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefn {Команда MGL} {} new @sc{dat} [@code{nx=1 ny=1 nz=1}]
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Create (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Create (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_create (@code{HMDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {Функция С} @code{void} mgl_datac_create (@code{HADT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Создает/пересоздает массив данных указанного размера и заполняет его нулями. Ничего не делает при @var{mx}, @var{my}, @var{mz} отрицательных или равных нулю.
 @end deftypefn
@@ -158,7 +188,9 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefn {Команда MGL} {} rearrange dat @code{mx [my=0 mz=0]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Rearrange (@code{int} mx, @code{int} my=@code{0}, @code{int} mz=@code{0})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Rearrange (@code{int} mx, @code{int} my=@code{0}, @code{int} mz=@code{0})
 @deftypefnx {Функция С} @code{void} mgl_data_rearrange (@code{HMDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {Функция С} @code{void} mgl_datac_rearrange (@code{HADT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Изменяет размерность данных без изменения самого массива данных, так что результирующий массив @var{mx}*@var{my}*@var{mz} < nx*ny*nz. Если один из параметров @var{my} или @var{mz} ноль, то он будет выбран оптимальным образом. Например, если @var{my}=0, то будет @var{my}=nx*ny*nz/@var{mx} и @var{mz}=1.
 @end deftypefn
@@ -167,7 +199,9 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefn {Команда MGL} {} transpose dat ['dim'='yxz']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Transpose (@code{const char *}dim=@code{"yx"})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Transpose (@code{const char *}dim=@code{"yx"})
 @deftypefnx {Функция С} @code{void} mgl_data_transpose (@code{const char *}dim)
+@deftypefnx {Функция С} @code{void} mgl_datac_transpose (@code{HADT} dat, @code{const char *}dim)
 @end ifclear
 Транспонирует (меняет порядок размерностей) массив данных. Новый порядок размерностей задается строкой @var{dim}. Функция может быть полезна для транспонирования одномерных (или квазиодномерных) массивов после чтения их из файла.
 @end deftypefn
@@ -176,7 +210,9 @@ There are many functions, which can create data for output (see @ref{Data fillin
 @deftypefn {Команда MGL} {} extend dat @code{n1 [n2=0]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Extend (@code{int} n1, @code{int} n2=@code{0})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Extend (@code{int} n1, @code{int} n2=@code{0})
 @deftypefnx {Функция С} @code{void} mgl_data_extend (@code{HMDT} dat, @code{int} n1, @code{int} n2)
+@deftypefnx {Функция С} @code{void} mgl_datac_extend (@code{HADT} dat, @code{int} n1, @code{int} n2)
 @end ifclear
 Увеличивает размер данных путем вставки (|@var{n1}|+1) новых срезов после (для @var{n1}>0) или перед (для @var{n1}<0) существующими данными. Можно добавить сразу 2 размерности для 1d массива, используя второй параметр @var{n2}. Данные в новые срезы будут скопированы из существующих. Например, для @var{n1}>0 новый массив будет
 @iftex
@@ -191,7 +227,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} squeeze dat @code{rx [ry=1 rz=1 sm=off]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Squeeze (@code{int} rx, @code{int} ry=@code{1}, @code{int} rz=@code{1}, @code{bool} smooth=@code{false})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Squeeze (@code{int} rx, @code{int} ry=@code{1}, @code{int} rz=@code{1}, @code{bool} smooth=@code{false})
 @deftypefnx {Функция С} @code{void} mgl_data_squeeze (@code{HMDT} dat, @code{int} rx, @code{int} ry, @code{int} rz, @code{int} smooth)
+@deftypefnx {Функция С} @code{void} mgl_datac_squeeze (@code{HADT} dat, @code{int} rx, @code{int} ry, @code{int} rz, @code{int} smooth)
 @end ifclear
 Уменьшает размер данных путём удаления элементов с индексами не кратными @var{rx}, @var{ry}, @var{rz} соответственно. Параметр @var{smooth} задает использовать сглаживания
 @iftex
@@ -206,7 +244,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} crop dat @code{n1 n2} 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Crop (@code{int} n1, @code{int} n2, @code{char} dir=@code{'x'})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Crop (@code{int} n1, @code{int} n2, @code{char} dir=@code{'x'})
 @deftypefnx {Функция С} @code{void} mgl_data_crop (@code{HMDT} dat, @code{int} n1, @code{int} n2, @code{char} dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_crop (@code{HADT} dat, @code{int} n1, @code{int} n2, @code{char} dir)
 @end ifclear
 Обрезает границы данных при @var{i}<@var{n1} и @var{i}>@var{n2} (при @var{n2}>0) или @var{i}>@code{n[xyz]}-@var{n2} (при @var{n2}<=0) вдоль направления @var{dir}.
 @end deftypefn
@@ -215,7 +255,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} insert dat 'dir' @code{[pos=off num=0]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Insert (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Insert (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_insert (@code{HMDT} dat, @code{char} dir, @code{int} pos, @code{char} num)
+@deftypefnx {Функция С} @code{void} mgl_datac_insert (@code{HADT} dat, @code{char} dir, @code{int} pos, @code{char} num)
 @end ifclear
 Вставляет @var{num} срезов вдоль направления @var{dir} с позиции @var{pos} и заполняет их нулями.
 @end deftypefn
@@ -224,7 +266,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} delete dat 'dir' @code{[pos=off num=0]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Delete (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Delete (@code{char} dir, @code{int} pos=@code{0}, @code{int} num=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_delete (@code{HMDT} dat, @code{char} dir, @code{int} pos, @code{char} num)
+@deftypefnx {Функция С} @code{void} mgl_datac_delete (@code{HADT} dat, @code{char} dir, @code{int} pos, @code{char} num)
 @end ifclear
 Удаляет @var{num} срезов вдоль направления @var{dir} с позиции @var{pos}.
 @end deftypefn
@@ -238,6 +282,15 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 Сортирует строки (или срезы в 3D случае) по значениям в указанной колонке @var{idx} (или ячейках @{@var{idx},@var{idy}@} для 3D случая). Не используйте в многопоточных функциях!
 @end deftypefn
 
+@anchor{clean}
+@deftypefn {Команда MGL} {} clean dat @code{idx}
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglData}} @code{void} Clean (@code{lond} idx)
+@deftypefnx {Функция С} @code{void} mgl_data_clean (@code{HMDT} dat, @code{lond} idx)
+@end ifclear
+Удаляет строки в которых значения для заданной колонки @var{idx} совпадают со значениями в следующей строке.
+@end deftypefn
+
 
 @c ------------------------------------------------------------------
 @external
@@ -262,6 +315,12 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefnx {Метод класса @code{mglData}} @code{void} Set (@code{const double *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_set_mreal (@code{HMDT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
 @deftypefnx {Функция С} @code{void} mgl_data_set_double (@code{HMDT} dat, @code{const double *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const float *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const double *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const dual *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Функция С} @code{void} mgl_datac_set_float (@code{HADT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_double (@code{HADT} dat, @code{const double *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_complex (@code{HADT} dat, @code{const dual *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
 Выделяет память и копирует данные из массивов типа @code{mreal*} или @code{double*}, т.е. из массивов определённых как @code{mreal a[NX*NY*NZ];}.
 @end deftypefn
 
@@ -280,33 +339,57 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @end deftypefn
 
 @deftypefn {Метод класса @code{mglData}} @code{void} Set (@code{gsl_vector *}v)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{gsl_vector *}v)
 @deftypefnx {Функция С} @code{void} mgl_data_set_vector (@code{HMDT} dat, @code{gsl_vector *}v)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_vector (@code{HADT} dat, @code{gsl_vector *}v)
 Выделяет память и копирует данные из структуры типа @code{gsl_vector *}.
 @end deftypefn
 @deftypefn {Метод класса @code{mglData}} @code{void} Set (@code{gsl_matrix *}m)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{gsl_matrix *}m)
 @deftypefnx {Функция С} @code{void} mgl_data_set_matrix (@code{HMDT} dat, @code{gsl_matrix *}m)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_matrix (@code{HADT} dat, @code{gsl_matrix *}m)
 Выделяет память и копирует данные из структуры типа @code{gsl_matrix *}.
 @end deftypefn
 @deftypefn {Метод класса @code{mglData}} @code{void} Set (@code{const mglData &}from)
 @deftypefnx {Метод класса @code{mglData}} @code{void} Set (@code{HCDT} from)
 @deftypefnx {Функция С} @code{void} mgl_data_set (@code{HMDT} dat, @code{HCDT} from)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const mglDataA &}from)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{HCDT} from)
+@deftypefnx {Функция С} @code{void} mgl_datac_set (@code{HADT} dat, @code{HCDT} from)
 Выделяет память и копирует данные из другого экземпляра данных @var{from}.
 @end deftypefn
 
+@deftypefn {Метод класса @code{mglDataC}} @code{void} Set (@code{const mglDataA &}re, @code{const mglDataA &}im)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{HCDT} re, @code{HCDT} im)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} SetAmpl (@code{HCDT} ampl, @code{const mglDataA &}phase)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_ri (@code{HADT} dat, @code{HCDT} re, @code{HCDT} im)
+@deftypefnx {Функция С} @code{void} mgl_datac_set_ap (@code{HADT} dat, @code{HCDT} ampl, @code{HCDT} phase)
+Выделяет память и копирует данные из экземпляра данных для действительной @var{re} и мнимой @var{im} частей комплексного массива данных.
+@end deftypefn
+
 @deftypefn {Метод класса @code{mglData}} @code{void} Set (@code{const std::vector<int> &}d)
-@deftypefnx {Метод класса @code{mglData}} @code{void} Set (@code{const std::vector<mreal> &}d)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const std::vector<int> &}d)
+@deftypefnx {Метод класса @code{mglData}} @code{void} Set (@code{const std::vector<float> &}d)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const std::vector<float> &}d)
 @deftypefnx {Метод класса @code{mglData}} @code{void} Set (@code{const std::vector<double> &}d)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const std::vector<double> &}d)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const std::vector<dual> &}d)
 Выделяет память и копирует данные из массива типа @code{std::vector<T>}.
 @end deftypefn
 
 @deftypefn {Метод класса @code{mglData}} @code{void} Set (@code{const char *}str, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_set_values (@code{const char *}str, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Set (@code{const char *}str, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Функция С} @code{void} mgl_datac_set_values (@code{const char *}str, @code{int} NX, @code{int} NY, @code{int} NZ)
 Выделяет память и сканирует массив данных из строки.
 @end deftypefn
 
-@deftypefn {Метод класса @code{mglData}} @code{void} Link (@code{const mglData &}from)
-@deftypefnx {Метод класса @code{mglData}} @code{void} Link (@code{const mreal *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefn {Метод класса @code{mglData}} @code{void} Link (@code{mglData &}from)
+@deftypefnx {Метод класса @code{mglData}} @code{void} Link (@code{mreal *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
 @deftypefnx {Функция С} @code{void} mgl_data_link (@code{HMDT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Link (@code{mglDataC &}from)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Link (@code{dual *}A, @code{int} NX, @code{int} NY=@code{1}, @code{int} NZ=@code{1})
+@deftypefnx {Функция С} @code{void} mgl_datac_link (@code{HADT} dat, @code{const mreal *}A, @code{int} NX, @code{int} NY, @code{int} NZ)
 Устанавливает флаг использования внешнего массива данных, которые не будут удалены. Флаг может быть возвращён в исходное состояние и создан новый внутренний массив если использовались функции изменяющие размер данных.
 @end deftypefn
 @end ifclear
@@ -320,7 +403,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} fill dat v1 v2 ['dir'='x']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Fill (@code{mreal} v1, @code{mreal} v2, @code{char} dir=@code{'x'})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Fill (@code{dual} v1, @code{dual} v2, @code{char} dir=@code{'x'})
 @deftypefnx {Функция С} @code{void} mgl_data_fill (@code{HMDT} dat, @code{mreal} v1, @code{mreal} v2, @code{char} dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_fill (@code{HADT} dat, @code{dual} v1, @code{dual} v2, @code{char} dir)
 @end ifclear
 Заполняет значениями равно распределёнными в диапазоне [@var{x1}, @var{x2}] в направлении @var{dir}=@{@samp{x},@samp{y},@samp{z}@}.
 @end deftypefn
@@ -332,7 +417,11 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefnx {Метод класса @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const char *}opt=@code{""})
 @deftypefnx {Метод класса @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglData &}vdat, @code{const char *}opt=@code{""})
 @deftypefnx {Метод класса @code{mglData}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglData &}vdat, @code{const mglData &}wdat, @code{const char *}opt=@code{""})
-@deftypefnx {Функция С} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} dat, @code{const char *}eq, @code{const HMDT *}vdat, @code{const HMDT *}wdat, @code{const char *}opt)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const char *}opt=@code{""})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Fill (@code{HMGL} gr, @code{const char *}eq, @code{const mglDataA &}vdat, @code{const mglDataA &}wdat, @code{const char *}opt=@code{""})
+@deftypefnx {Функция С} @code{void} mgl_data_fill_eq (@code{HMGL} gr, @code{HMDT} dat, @code{const char *}eq, @code{HCDT} vdat, @code{HCDT} wdat, @code{const char *}opt)
+@deftypefnx {Функция С} @code{void} mgl_datac_fill_eq (@code{HMGL} gr, @code{HADT} dat, @code{const char *}eq, @code{HCDT} vdat, @code{HCDT} wdat, @code{const char *}opt)
 @end ifclear
 Заполняет значениями вычисленными по формуле @var{eq}. Формула представляет собой произвольное выражение, зависящее от переменных @samp{x}, @samp{y}, @samp{z}, @samp{u}, @samp{v}, @samp{w}. Координаты @samp{x}, @samp{y}, @samp{z} полагаются меняющимися в диапазоне @var{Min} x @var{Max} (в отличие от функции @code{Modify}). Переменная @samp{u} -- значения исходного массива, переменные @samp{v}, @samp{w} -- значения массивов @var{vdat}, @var{wdat}. Последние могут быть @code{NULL}, т.е. опущены.
 @end deftypefn
@@ -345,8 +434,13 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefnx {Метод класса @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{int} dim=@code{0})
 @deftypefnx {Метод класса @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglData &}v)
 @deftypefnx {Метод класса @code{mglData}} @code{void} Modify (@code{const char *}eq, @code{const mglData &}v, @code{const mglData &}w)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{int} dim=@code{0})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Modify (@code{const char *}eq, @code{const mglDataA &}v, @code{const mglDataA &}w)
 @deftypefnx {Функция С} @code{void} mgl_data_modify (@code{HMDT} dat, @code{const char *}eq, @code{int} dim)
 @deftypefnx {Функция С} @code{void} mgl_data_modify_vw (@code{HMDT} dat, @code{const char *}eq, @code{HCDT} v, @code{HCDT} w)
+@deftypefnx {Функция С} @code{void} mgl_datac_modify (@code{HADT} dat, @code{const char *}eq, @code{int} dim)
+@deftypefnx {Функция С} @code{void} mgl_datac_modify_vw (@code{HADT} dat, @code{const char *}eq, @code{HCDT} v, @code{HCDT} w)
 @end ifclear
 Аналогично предыдущему с координатами @samp{x}, @samp{y}, @samp{z}, меняющимися в диапазоне [0,1]. Если указан @var{dim}>0, то изменяются только слои >=@var{dim}.
 @end deftypefn
@@ -393,6 +487,8 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} SetColumnId (@code{const char *}ids)
 @deftypefnx mglData @code{void} mgl_data_set_id (@code{const char *}ids)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} SetColumnId (@code{const char *}ids)
+@deftypefnx mglData @code{void} mgl_datac_set_id (@code{HADT} a, @code{const char *}ids)
 @end ifclear
 Задает названия @var{ids} для колонок массива данных. Строка должна содержать один символ 'a'...'z' на колонку. Эти названия используются в функции @ref{column}.
 @end deftypefn
@@ -416,7 +512,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} read @sc{dat} 'fname'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Read (@code{const char *}fname)
-@deftypefnx {Функция С} @code{void} mgl_data_read (@code{HMDT} dat, @code{const char *}fname)
+@deftypefnx {Метод класса @code{mglDataC}} @code{bool} Read (@code{const char *}fname)
+@deftypefnx {Функция С} @code{int} mgl_data_read (@code{HMDT} dat, @code{const char *}fname)
+@deftypefnx {Функция С} @code{int} mgl_datac_read (@code{HADT} dat, @code{const char *}fname)
 @end ifclear
 Читает данные из текстового файла с разделителями символом пробела/табуляции с автоматическим определением размера массива. Двойной перевод строки начинает новый срез данных (по направлению z).
 @end deftypefn
@@ -424,7 +522,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} read @sc{dat} 'fname' @code{mx [my=1 mz=1]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Read (@code{const char *}fname, @code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
-@deftypefnx {Функция С} @code{void} mgl_data_read_dim (@code{HMDT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {Метод класса @code{mglDataC}} @code{bool} Read (@code{const char *}fname, @code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1})
+@deftypefnx {Функция С} @code{int} mgl_data_read_dim (@code{HMDT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
+@deftypefnx {Функция С} @code{int} mgl_datac_read_dim (@code{HADT} dat, @code{const char *}fname, @code{int} mx, @code{int} my, @code{int} mz)
 @end ifclear
 Читает данные из текстового файла с заданными размерами. Ничего не делается если параметры @var{mx}, @var{my} или @var{mz} равны нулю или отрицательны.
 @end deftypefn
@@ -433,7 +533,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} readmat @sc{dat} 'fname' [@code{dim=2}]
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} ReadMat (@code{const char *}fname, @code{int} dim=@code{2})
-@deftypefnx {Функция С} @code{void} mgl_data_read_mat (@code{HMDT} dat, @code{const char *}fname, @code{int} dim)
+@deftypefnx {Метод класса @code{mglDataC}} @code{bool} ReadMat (@code{const char *}fname, @code{int} dim=@code{2})
+@deftypefnx {Функция С} @code{int} mgl_data_read_mat (@code{HMDT} dat, @code{const char *}fname, @code{int} dim)
+@deftypefnx {Функция С} @code{int} mgl_datac_read_mat (@code{HADT} dat, @code{const char *}fname, @code{int} dim)
 @end ifclear
 Читает данные из текстового файла с размерами, указанными в первых @var{dim} числах файла. При этом переменная @var{dim} задает размерность (1d, 2d, 3d) данных.
 @end deftypefn
@@ -442,6 +544,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} readall @sc{dat} 'templ' @code{v1 v2 [dv=1 slice=off]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} ReadRange (@code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step=@code{1.f}, @code{bool} as_slice=@code{false})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} ReadRange (@code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step=@code{1}, @code{bool} as_slice=@code{false})
+@deftypefnx {Функция С} @code{int} mgl_data_read_range (@code{HMDT} dat, @code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step, @code{int} as_slice)
+@deftypefnx {Функция С} @code{int} mgl_datac_read_range (@code{HADT} dat, @code{const char *}templ, @code{mreal} from, @code{mreal} to, @code{mreal} step, @code{int} as_slice)
 @end ifclear
 Объединяет данные из нескольких текстовых файлов. Имена файлов определяются вызовом функции @code{sprintf(fname,templ,val);}, где @var{val} меняется от @var{from} до @var{to} с шагом @var{step}. Данные загружаются один за другим в один и тот же срез данных (при @var{as_slice}=@code{false}) или срез-за-срезом (при @var{as_slice}=@code{true}).
 @end deftypefn
@@ -449,6 +554,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} readall @sc{dat} 'templ' @code{[slice=off]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} ReadAll (@code{const char *}templ, @code{bool} as_slice=@code{false})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} ReadAll (@code{const char *}templ, @code{bool} as_slice=@code{false})
+@deftypefnx {Функция С} @code{int} mgl_data_read_all (@code{HMDT} dat, @code{const char *}templ, @code{int} as_slice)
+@deftypefnx {Функция С} @code{int} mgl_datac_read_all (@code{HADT} dat, @code{const char *}templ, @code{int} as_slice)
 @end ifclear
 Объединяет данные из нескольких текстовых файлов, чьи имена удовлетворяют шаблону @var{templ} (например, @var{templ}=@code{"t_*.dat"}). Данные загружаются один за другим в один и тот же срез данных (при @var{as_slice}=@code{false}) или срез-за-срезом (при @var{as_slice}=@code{true}).
 @end deftypefn
@@ -457,7 +565,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} save dat 'fname'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Save (@code{const char *}fname, @code{int} ns=@code{-1}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Save (@code{const char *}fname, @code{int} ns=@code{-1}) @code{const}
 @deftypefnx {Функция С} @code{void} mgl_data_save (@code{HCDT} dat, @code{const char *}fname, @code{int} ns)
+@deftypefnx {Функция С} @code{void} mgl_datac_save (@code{HCDT} dat, @code{const char *}fname, @code{int} ns)
 @end ifclear
 Сохраняет весь массив данных при @var{ns}=@code{-1} или только @var{ns}-ый срез в текстовый файл.
 @end deftypefn
@@ -466,7 +576,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} readhdf @sc{dat} 'fname' 'dname'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} ReadHDF (@code{const char *}fname, @code{const char *}dname)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} ReadHDF (@code{const char *}fname, @code{const char *}dname)
 @deftypefnx {Функция С} @code{void} mgl_data_read_hdf (@code{HMDT} dat, @code{const char *}fname, @code{const char *}dname)
+@deftypefnx {Функция С} @code{void} mgl_datac_read_hdf (@code{HADT} dat, @code{const char *}fname, @code{const char *}dname)
 @end ifclear
 Читает массив с именем @var{dname} из HDF5 или HDF4 файла @var{fname}. Функция ничего не делает если библиотека была собрана без поддержки HDF5|HDF4.
 @end deftypefn
@@ -475,7 +587,9 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} savehdf dat 'fname' 'dname'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} SaveHDF (@code{const char *}fname, @code{const char *}dname, @code{bool} rewrite=@code{false}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} SaveHDF (@code{const char *}fname, @code{const char *}dname, @code{bool} rewrite=@code{false}) @code{const}
 @deftypefnx {Функция С} @code{void} mgl_data_save_hdf (@code{HCDT} dat, @code{const char *}fname, @code{const char *}dname, @code{int} rewrite)
+@deftypefnx {Функция С} @code{void} mgl_datac_save_hdf (@code{HCDT} dat, @code{const char *}fname, @code{const char *}dname, @code{int} rewrite)
 @end ifclear
 Сохраняет массив под именем @var{dname} в HDF5 или HDF4 файл @var{fname}. Функция ничего не делает если библиотека была собрана без поддержки HDF5|HDF4.
 @end deftypefn
@@ -483,7 +597,8 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @anchor{datas}
 @deftypefn {Команда MGL} {} datas 'fname'
 @ifclear UDAV
-@deftypefnx {Метод класса @code{mglData}} @code{void} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{const}
+@deftypefnx {Метод класса @code{mglData}} @code{void} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{static}
+@deftypefnx {Метод класса @code{mglDataC}} @code{int} DatasHDF (@code{const char *}fname, @code{char *}buf, @code{long} size) @code{static}
 @deftypefnx {Функция С} @code{void} mgl_datas_hdf (@code{const char *}fname, @code{char *}buf, @code{long} size)
 @end ifclear
 Помещает имена массивов данных в HDF5 файле @var{fname} в строку @var{buf} разделёнными символом табуляции '\t'. В версии MGL имена массивов будут выведены как сообщение. Функция ничего не делает если библиотека была собрана без поддержки HDF5.
@@ -527,6 +642,7 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} subdata @sc{res} dat @code{xx [yy=: zz=:]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} SubData (@code{mreal} xx, @code{mreal} yy=@code{-1}, @code{mreal} zz=@code{-1}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} SubData (@code{mreal} xx, @code{mreal} yy=@code{-1}, @code{mreal} zz=@code{-1}) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_subdata (@code{HCDT} dat, @code{mreal} xx, @code{mreal} yy, @code{mreal} zz)
 @end ifclear
 Возвращает в @var{res} подмассив массива данных @var{dat} с фиксированными значениями индексов с положительными значениями. Например, @code{SubData(-1,2)} выделяет третью строку (индексы начинаются с нуля), @code{SubData(4,-1)} выделяет 5-ую колонку, @code{SubData(-1,-1,3)} выделяет 4-ый срез и т.д. В MGL скриптах обычно используется упрощенная версия @code{dat(xx,yy,zz)}.
@@ -535,6 +651,7 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} subdata @sc{res} dat xdat [ydat=: zdat=:]
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} SubData (@code{const mglData &}xx, @code{const mglData &}yy, @code{const mglData &}zz) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} SubData (@code{const mglDataA &}xx, @code{const mglDataA &}yy, @code{const mglDataA &}zz) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_subdata_ext (@code{HCDT} dat, @code{HCDT} xx, @code{HCDT} yy, @code{HCDT} zz)
 @end ifclear
 Возвращает в @var{res} подмассив массива данных @var{dat} с индексами, заданными в массивах @var{xx}, @var{yy}, @var{zz} (косвенная адресация). Результат будет иметь размерность массивов с индексами. Размеры массивов @var{xx}, @var{yy}, @var{zz} с индексами должна быть одинакова, либо должны быть "скаляром" (т.е. 1*1*1). В MGL скриптах обычно используется упрощенная версия @code{dat(xx,yy,zz)}.
@@ -544,6 +661,7 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} column @sc{res} dat 'eq'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Column (@code{const char *}eq) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Column (@code{const char *}eq) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_column (@code{HCDT} dat, @code{const char *}eq)
 @end ifclear
 Возвращает массив данных заполненный по формуле @var{eq}, вычисленной для именованных колонок (или срезов). Например, @code{Column("n*w^2/exp(t)");}. Имена колонок должны быть предварительно заданы функцией @ref{idset} или при чтении файлов данных. В MGL скриптах обычно используется упрощенная версия @code{dat('eq')}.
@@ -553,6 +671,7 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} resize @sc{res} dat @code{mx [my=1 mz=1]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Resize (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1}, @code{mreal} x1=@code{0}, @code{mreal} x2=@code{1}, @code{mreal} y1=@code{0}, @code{mreal} y2=@code{1}, @code{mreal} z1=@code{0}, @code{mreal} z2=@code{1}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Resize (@code{int} mx, @code{int} my=@code{1}, @code{int} mz=@code{1}, @code{mreal} x1=@code{0}, @code{mreal} x2=@code{1}, @code{mreal} y1=@code{0}, @code{mreal} y2=@code{1}, @code{mreal} z1=@code{0}, @code{mreal} z2=@code{1}) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_resize (@code{HCDT} dat, @code{int} mx, @code{int} my, @code{int} mz)
 @deftypefnx {Функция С} @code{HMDT} mgl_data_resize_box (@code{HCDT} dat, @code{int} mx, @code{int} my, @code{int} mz, @code{mreal} x1, @code{mreal} x2, @code{mreal} y1, @code{mreal} y2, @code{mreal} z1, @code{mreal} z2)
 @end ifclear
@@ -567,17 +686,33 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{bool} norm=@code{true}) @code{const}
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{const mglData &}jdat, @code{bool} norm=@code{true}) @code{const}
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Evaluate (@code{const mglData &}idat, @code{const mglData &}jdat, @code{const mglData &}kdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Evaluate (@code{const mglDataA &}idat, @code{const mglDataA &}jdat, @code{const mglDataA &}kdat, @code{bool} norm=@code{true}) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_evaluate (@code{HCDT} dat, @code{HCDT} idat, @code{HCDT} jdat, @code{HCDT} kdat, @code{int} norm)
 @end ifclear
 Возвращает массив данных, полученный в результате интерполяции исходного массива в точках других массивов (например, res[i,j]=dat[idat[i,j],jdat[i,j]]). Размеры массивов @var{idat}, @var{jdat}, @var{kdat} должны совпадать. Координаты в @var{idat}, @var{jdat}, @var{kdat} полагаются нормированными в диапазон [0,1] (при @var{norm}=@code{true}) или в диапазоны [0,nx], [0,ny], [0,nz] соответственно.
 @end deftypefn
 
+@anchor{solve}
+@deftypefn {Команда MGL} {} solve @sc{res} dat @code{val} 'dir' [@code{norm=on}]
+@deftypefnx {Команда MGL} {} solve @sc{res} dat @code{val} 'dir' idat [@code{norm=on}]
+@ifclear UDAV
+@deftypefnx {Метод класса @code{mglData}} @code{mglData} Solve (@code{mreal} val, @code{char} dir, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Метод класса @code{mglData}} @code{mglData} Solve (@code{mreal} val, @code{char} dir, @code{const mglDataA &}idat, @code{bool} norm=@code{true}) @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_data_solve (@code{HCDT} dat, @code{mreal} val, @code{char} dir, @code{HCDT} idat, @code{int} norm)
+@end ifclear
+Возвращает массив индексов (корней) вдоль выбранного направления @var{dir} в которых значения массива @var{dat} равны @var{val}. Выходной массив будет иметь размеры массива @var{dat} в направлениях поперечных @var{dir}. Если предоставлен массив @var{idat}, то его значения используются как стартовые при поиске. Это позволяет найти несколько веток с помощью последовательного вызова функции. Индексы полагаются нормированными в диапазон [0,1] (при @var{norm}=@code{true}) или в диапазоны [0,nx], [0,ny], [0,nz] соответственно. @sref{Solve sample}
+@end deftypefn
+
 @anchor{hist}
 @deftypefn {Команда MGL} {} hist @sc{res} dat @code{num v1 v2 [nsub=0]}
 @deftypefnx {Команда MGL} {} hist @sc{res} dat wdat @code{num v1 v2 [nsub=0]}
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Hist (@code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Hist (@code{const mglData &}w, @code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Hist (@code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Hist (@code{const mglDataA &}w, @code{int} n, @code{mreal} v1=@code{0}, @code{mreal} v2=@code{1}, @code{int} nsub=@code{0}) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_hist (@code{HCDT} dat, @code{int} n, @code{mreal} v1, @code{mreal} v2, @code{int} nsub)
 @deftypefnx {Функция С} @code{HMDT} mgl_data_hist_w (@code{HCDT} dat, @code{HCDT} w, @code{int} n, @code{mreal} v1, @code{mreal} v2, @code{int} nsub)
 @end ifclear
@@ -588,6 +723,7 @@ a_ij^new = a_i^old where j=0...@var{n1}. Соответственно, для @v
 @deftypefn {Команда MGL} {} momentum @sc{res} dat 'how' ['dir'='z']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Momentum (@code{char} dir, @code{const char *}how) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Momentum (@code{char} dir, @code{const char *}how) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_momentum (@code{HCDT} dat, @code{char} dir, @code{const char *}how)
 @end ifclear
 Возвращает момент (1d массив) данных вдоль направления @var{dir}. Строка @var{how} определяет тип момента. Момент определяется как
@@ -604,6 +740,7 @@ res_k = \sum_ij how(x_i,y_j,z_k) a_ij/ \sum_ij a_ij
 @deftypefn {Команда MGL} {} sum @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Sum (@code{const char *}dir) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Sum (@code{const char *}dir) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_sum (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Возвращает результат суммирования данных вдоль направления(ий) @var{dir}.
@@ -613,6 +750,7 @@ res_k = \sum_ij how(x_i,y_j,z_k) a_ij/ \sum_ij a_ij
 @deftypefn {Команда MGL} {} max @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Max (@code{const char *}dir) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Max (@code{const char *}dir) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_max_dir (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Возвращает максимальное значение данных вдоль направления(ий) @var{dir}.
@@ -622,6 +760,7 @@ res_k = \sum_ij how(x_i,y_j,z_k) a_ij/ \sum_ij a_ij
 @deftypefn {Команда MGL} {} min @sc{res} dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Min (@code{const char *}dir) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Min (@code{const char *}dir) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_min_dir (@code{HCDT} dat, @code{const char *}dir)
 @end ifclear
 Возвращает минимальное значение данных вдоль направления(ий) @var{dir}.
@@ -631,6 +770,7 @@ res_k = \sum_ij how(x_i,y_j,z_k) a_ij/ \sum_ij a_ij
 @deftypefn {Команда MGL} {} combine @sc{res} adat bdat
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Combine (@code{const mglData &}a) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Combine (@code{const mglDataA &}a) @code{const}
 @deftypefnx {Функция С} @code{HMDT} mgl_data_combine (@code{HCDT} dat, @code{HCDT} a)
 @end ifclear
 Возвращает прямое произведение массивов (наподобие, res[i,j] = adat[i]*bdat[j] и т.д.).
@@ -640,10 +780,31 @@ res_k = \sum_ij how(x_i,y_j,z_k) a_ij/ \sum_ij a_ij
 @deftypefn {Команда MGL} {} trace @sc{res} dat
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mglData} Trace () @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mglData} Trace () @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_data_trace (@code{HCDT} dat)
 @end ifclear
 Возвращает массив диагональных элементов a[i,i] (для 2D данных) или a[i,i,i] (для 3D данных) где i=0...nx-1. В 1D случае возвращается сам массив данных. Размеры массива данных должен быть ny,nz >= nx или ny,nz = 1.
 @end deftypefn
 
+@ifclear UDAV
+@deftypefn {Метод класса @code{mglDataC}} @code{mglData} Real () @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_datac_real (@code{HCDT} dat)
+Возвращает массив действительных частей массива данных.
+@end deftypefn
+@deftypefn {Метод класса @code{mglDataC}} @code{mglData} Imag () @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_datac_imag (@code{HCDT} dat)
+Возвращает массив мнимых частей массива данных.
+@end deftypefn
+@deftypefn {Метод класса @code{mglDataC}} @code{mglData} Abs () @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_datac_abs (@code{HCDT} dat)
+Возвращает массив абсолютных значений массива данных.
+@end deftypefn
+@deftypefn {Метод класса @code{mglDataC}} @code{mglData} Arg () @code{const}
+@deftypefnx {Функция С} @code{HMDT} mgl_datac_arg (@code{HCDT} dat)
+Возвращает массив аргументов массива данных.
+@end deftypefn
+@end ifclear
+
 @c ------------------------------------------------------------------
 @external
 @node Data changing, Interpolation, Make another data, Data processing
@@ -670,7 +831,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} cumsum dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} CumSum (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} CumSum (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_cumsum (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_cumsum (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Суммирует с накоплением в выбранном направлении(ях).
 @end deftypefn
@@ -679,7 +842,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} integrate dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Integral (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Integral (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_integral (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_integral (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Выполняет интегрирование (методом трапеций) в выбранном направлении(ях).
 @end deftypefn
@@ -688,7 +853,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} diff dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Diff (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Diff (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_diff (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_diff (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Выполняет дифференцирование в выбранном направлении(ях).
 @end deftypefn
@@ -706,7 +873,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} diff2 dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Diff2 (@code{const char *}dir)
-@deftypefnx {Функция С} @code{void} mgl_data_diff2 (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Diff2 (@code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_data_diff2 (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_diff2 (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Выполняет двойное дифференцирование (как в операторе Лапласа) в выбранном направлении(ях).
 @end deftypefn
@@ -717,7 +886,7 @@ These functions change the data in some direction like differentiations, integra
 @deftypefnx {Метод класса @code{mglData}} @code{void} SinFFT (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_sinfft (@code{HMDT} dat, @code{const char *}dir)
 @end ifclear
-Выполняет синус преобразование в выбранном направлении(ях). Синус преобразование есть @math{\sum a_i \sin(k i)}.
+Выполняет синус преобразование в выбранном направлении(ях). Синус преобразование есть @math{\sum a_j \sin(k j)}.
 @end deftypefn
 
 @anchor{cosfft}
@@ -726,23 +895,34 @@ These functions change the data in some direction like differentiations, integra
 @deftypefnx {Метод класса @code{mglData}} @code{void} CosFFT (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_cosfft (@code{HMDT} dat, @code{const char *}dir)
 @end ifclear
-Выполняет косинус преобразование в выбранном направлении(ях). Синус преобразование есть @math{\sum a_i \cos(k i)}.
+Выполняет косинус преобразование в выбранном направлении(ях). Синус преобразование есть @math{\sum a_j \cos(k j)}.
 @end deftypefn
 
+@ifclear UDAV
+@deftypefn {Метод класса @code{mglDataC}} @code{void} FFT (@code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_fft (@code{HADT} dat, @code{const char *}dir)
+Выполняет фурье преобразование в выбранном направлении(ях). Если строка @var{dir} содержит @samp{i}, то используется обратное преобразование фурье. Фурье преобразование есть @math{\sum a_j \exp(i k j)}.
+@end deftypefn
+@end ifclear
+
 @anchor{hankel}
 @deftypefn {Команда MGL} {} hankel dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Hankel (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Hankel (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_hankel (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_hankel (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
-Выполняет преобразование Ханкеля в выбранном направлении(ях). Преобразование Ханкеля есть @math{\sum a_i J_0(k i)}.
+Выполняет преобразование Ханкеля в выбранном направлении(ях). Преобразование Ханкеля есть @math{\sum a_j J_0(k j)}.
 @end deftypefn
 
 @anchor{swap}
 @deftypefn {Команда MGL} {} swap dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Swap (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Swap (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_swap (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_swap (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Меняет местами левую и правую части данных в выбранном направлении(ях). Полезно для отображения результата FFT.
 @end deftypefn
@@ -751,7 +931,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} roll dat 'dir' num
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Roll (@code{char} dir, @code{num})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Roll (@code{char} dir, @code{num})
 @deftypefnx {Функция С} @code{void} mgl_data_roll (@code{HMDT} dat, @code{char} dir, @code{num})
+@deftypefnx {Функция С} @code{void} mgl_datac_roll (@code{HADT} dat, @code{char} dir, @code{num})
 @end ifclear
 Сдвигает данные на @var{num} ячеек в выбранном направлении(ях). Соответствует замене индекса на @var{i}->(i+@var{num})%nx при @code{dir='x'}.
 @end deftypefn
@@ -760,7 +942,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} mirror dat 'dir'
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Mirror (@code{const char *}dir)
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Mirror (@code{const char *}dir)
 @deftypefnx {Функция С} @code{void} mgl_data_mirror (@code{HMDT} dat, @code{const char *}dir)
+@deftypefnx {Функция С} @code{void} mgl_datac_mirror (@code{HADT} dat, @code{const char *}dir)
 @end ifclear
 Отражает данные в выбранном направлении(ях). Соответствует замене индекса на @var{i}->@var{n}-@var{i}. Отмечу, что похожего эффекта на графике можно достичь используя опции (@pxref{Command options}), например, @code{surf dat; xrange 1 -1}.
 @end deftypefn
@@ -778,7 +962,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Команда MGL} {} smooth data @code{type} ['dir'='xyz']
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{void} Smooth (@code{const char *}dir=@code{"xyz"}, @code{mreal} delta=@code{0})
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} Smooth (@code{const char *}dir=@code{"xyz"}, @code{mreal} delta=@code{0})
 @deftypefnx {Функция С} @code{void} mgl_data_smooth (@code{HMDT} dat, @code{const char *}dir, @code{mreal} delta)
+@deftypefnx {Функция С} @code{void} mgl_datac_smooth (@code{HADT} dat, @code{const char *}dir, @code{mreal} delta)
 @end ifclear
 Сглаживает данные в выбранном направлении(ях) @var{dir}. Строка @var{dirs} задает направления вдоль которых будет производиться сглаживание. Если @var{dirs} содержит: @samp{0} -- ничего не делает, @samp{3} линейное усреднение по 3 точкам, @samp{5} линейное усреднение по 5 точкам. По умолчанию используется квадратичное усреднение по 5 точкам.
 @end deftypefn
@@ -835,16 +1021,42 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Spline1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 Интерполирует данные кубическим сплайном в точке @var{x}, @var{y}, @var{z}, где координаты полагаются в интервале [0, 1].
 @end deftypefn
+
+@deftypefn {Метод класса @code{mglData}} @code{mreal} Spline (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Функция С} @code{mreal} mgl_data_spline_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{mreal *}dx, @code{mreal *}dy, @code{mreal *}dz)
+Интерполирует данные кубическим сплайном в точке @var{x} в [0...nx-1], @var{y} в [0...ny-1], @var{z} в [0...nz-1]. Значения производных в точке записываются в @var{dif}.
+@end deftypefn
+@cindex Spline1
+@deftypefn {Метод класса @code{mglData}} @code{mreal} Spline1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+Интерполирует данные кубическим сплайном в точке @var{x}, @var{y}, @var{z}, где координаты полагаются в интервале [0, 1]. Значения производных в точке записываются в @var{dif}.
+@end deftypefn
+
+
 @cindex Linear
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Linear (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{dual} Linear (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_linear (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z)
+@deftypefnx {Функция С} @code{dual} mgl_datac_linear (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z)
 Интерполирует данные линейной функцией в точке @var{x} в [0...nx-1], @var{y} в [0...ny-1], @var{z} в [0...nz-1].
 @end deftypefn
 @cindex Linear1
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Linear1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{dual} Linear1 (@code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
 Интерполирует данные линейной функцией в точке @var{x}, @var{y}, @var{z}, где координаты полагаются в интервале [0, 1].
 @end deftypefn
 
+@deftypefn {Метод класса @code{mglData}} @code{mreal} Linear (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{dual} Linear (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Функция С} @code{mreal} mgl_data_linear_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{mreal *}dx, @code{mreal *}dy, @code{mreal *}dz)
+@deftypefnx {Функция С} @code{dual} mgl_datac_linear_ext (@code{HCDT} dat, @code{mreal} x, @code{mreal} y, @code{mreal} z, @code{dual *}dx, @code{dual *}dy, @code{dual *}dz)
+Интерполирует данные линейной функцией в точке @var{x}, @var{y}, @var{z}, где координаты полагаются в интервале [0, 1]. Значения производных в точке записываются в @var{dif}.
+@end deftypefn
+@cindex Linear1
+@deftypefn {Метод класса @code{mglData}} @code{mreal} Linear1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{dual} Linear1 (@code{mglPoint} &dif, @code{mreal} x, @code{mreal} y=@code{0}, @code{mreal} z=@code{0}) @code{const}
+Интерполирует данные линейной функцией в точке @var{x}, @var{y}, @var{z}, где координаты полагаются в интервале [0, 1]. Значения производных в точке записываются в @var{dif}.
+@end deftypefn
+
 @end ifclear
 
 @c ------------------------------------------------------------------
@@ -861,6 +1073,8 @@ These functions change the data in some direction like differentiations, integra
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{const char *} PrintInfo () @code{const}
 @deftypefnx {Метод класса @code{mglData}} @code{void} PrintInfo (@code{FILE *}fp) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{const char *} PrintInfo () @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{void} PrintInfo (@code{FILE *}fp) @code{const}
 @deftypefnx {Функция С} @code{const char *} mgl_data_info (@code{HCDT} dat)
 @end ifclear
 Возвращает строку с информацией о данных (размеры, моменты и пр.) или пишет её в файл. В MGL скрипте печатает её как сообщение.
@@ -885,6 +1099,9 @@ These functions change the data in some direction like differentiations, integra
 @deftypefnx {Метод класса @code{mglData}} @code{long} GetNx ()
 @deftypefnx {Метод класса @code{mglData}} @code{long} GetNy ()
 @deftypefnx {Метод класса @code{mglData}} @code{long} GetNz ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNx ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNy ()
+@deftypefnx {Метод класса @code{mglDataC}} @code{long} GetNz ()
 @deftypefnx {Функция С} @code{long} mgl_data_get_nx (@code{HCDT} dat)
 @deftypefnx {Функция С} @code{long} mgl_data_get_ny (@code{HCDT} dat)
 @deftypefnx {Функция С} @code{long} mgl_data_get_nz (@code{HCDT} dat)
@@ -899,6 +1116,7 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {MGL suffix} {(dat)} .max
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mreal} Maximal () @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Maximal () @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_max (@code{HCDT} dat)
 @end ifclear
 Возвращает максимальное значение массива данных.
@@ -909,6 +1127,7 @@ These functions change the data in some direction like differentiations, integra
 @deftypefn {MGL suffix} {(dat)} .min
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mreal} Minimal () @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Minimal () @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_min (@code{HMDT} dat) @code{const}
 @end ifclear
 Возвращает минимальное значение массива данных.
@@ -916,14 +1135,17 @@ These functions change the data in some direction like differentiations, integra
 
 @ifclear UDAV
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Minimal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Minimal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_min_int (@code{HCDT} dat, @code{int} *i, @code{int} *j, @code{int} *k)
 Возвращает максимальное значение массива данных и сохраняет его положение в переменные @var{i}, @var{j}, @var{k}.
 @end deftypefn
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Maximal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Maximal (@code{int} &i, @code{int} &j, @code{int} &k) @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_max_int (@code{HCDT} dat, @code{int} *i, @code{int} *j, @code{int} *k)
 Возвращает минимальное значение массива данных и сохраняет его положение в переменные @var{i}, @var{j}, @var{k}.
 @end deftypefn
 @deftypefn {Метод класса @code{mglData}} @code{mreal} Minimal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Minimal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_min_real (@code{HCDT} dat, @code{mreal} *x, @code{mreal} *y, @code{mreal} *z)
 Возвращает максимальное значение массива данных и его приближенное (интерполированное) положение в переменные @var{x}, @var{y}, @var{z}.
 @end deftypefn
@@ -935,6 +1157,7 @@ These functions change the data in some direction like differentiations, integra
 @deftypefnx {MGL suffix} {(dat)} .mz
 @ifclear UDAV
 @deftypefnx {Метод класса @code{mglData}} @code{mreal} Maximal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
+@deftypefnx {Метод класса @code{mglDataC}} @code{mreal} Maximal (@code{mreal} &x, @code{mreal} &y, @code{mreal} &z) @code{const}
 @deftypefnx {Функция С} @code{mreal} mgl_data_max_real (@code{HCDT} dat, @code{mreal} *x, @code{mreal} *y, @code{mreal} *z)
 @end ifclear
 Возвращает минимальное значение массива данных и его приближенное (интерполированное) положение в переменные @var{x}, @var{y}, @var{z}.
@@ -1200,7 +1423,7 @@ These functions change the data in some direction like differentiations, integra
 
 @c ------------------------------------------------------------------
 @external
-@node Evaluate expression, , Global functions, Data processing
+@node Evaluate expression, MGL variables, Global functions, Data processing
 @section Вычисление выражений
 
 @ifset UDAV
@@ -1243,5 +1466,53 @@ These functions change the data in some direction like differentiations, integra
 
 @end ifclear
 
+@c ------------------------------------------------------------------
+@external
+@node MGL variables, , Evaluate expression, Data processing
+@section MGL variables
+
+@ifset UDAV
+For information about MGL variables see @ref{MGL definition}.
+@end ifset
+
+@ifclear UDAV
+
+Class mglVar represent MGL variables. It is needed for parsing MGL scripts (see @ref{mglParse class}). This class is derived from @code{mglData} and is defined in @code{#include <mgl2/mgl.h>}.
+
+@deftypecv {Variable} mglVar @code{std::wstring} s
+Name of variable.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{mglVar *} next
+@deftypecvx {Variable} mglVar @code{mglVar *} prev
+Next and previous variable in the list.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{bool} temp
+Flag of the temporary variable. If @code{true} the this variable will be removed after script execution.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{void (*}func@code{)(void *)}
+Callback function, which will be called at variable destroying.
+@end deftypecv
+
+@deftypecv {Variable} mglVar @code{void *} o
+Pointer to external object for callback function.
+@end deftypecv
+
+@deftypefn {Constructor on @code{mglVar}} @code{} mglVar ()
+Create variable with size 1*1*1.
+@end deftypefn
+
+@deftypefn {Destructor on @code{mglVar}} @code{} ~mglVar ()
+Deletes the instance of class mglVar.
+@end deftypefn
+
+@deftypefn {Method on @code{mglVar}} @code{void} MoveAfter (@code{mglVar *}var)
+Evaluates the formula for @code{'x','r'}=@var{x}, @code{'y','n'}=@var{y}, @code{'z','t'}=@var{z}, @code{'a','u'}=@var{u}.
+@end deftypefn
+
+@end ifclear
+
 @external
 

diff --git a/texinfo/datadvance.png b/texinfo/datadvance.png
new file mode 100644 (file)
index 0000000..72b95be
Binary files /dev/null and b/texinfo/datadvance.png differ

diff --git a/texinfo/doc_en.texi b/texinfo/doc_en.texi
index fe56a04d6809a32d5c7173d973dafc2977d61b3d..1da2cab223cee0cfa49f3e3ef71e275a47034cd5 100644 (file)
--- a/texinfo/doc_en.texi
+++ b/texinfo/doc_en.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mathgl_en.info
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This manual is for MathGL (version @value{VERSION}), a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -47,21 +33,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This file documents the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -73,7 +45,10 @@ supports it in developing GNU and promoting software freedom.''
 * Widget classes::
 * Data processing::
 * MGL scripts::
+* UDAV::
 * Other classes::
+* Symbols and hot-keys::
+* File formats::
 * TeX-like symbols::
 * Copying This Manual::
 * Index::
@@ -81,6 +56,19 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro external {}
+@comment  @html
+@comment  <script type="text/javascript"><!--
+@comment  google_ad_client = "ca-pub-1128070552722622";
+@comment  /* 728x90, создано 23.12.09 */
+@comment  google_ad_slot = "9958083480";
+@comment  google_ad_width = 728;
+@comment  google_ad_height = 90;
+@comment  //-->
+@comment  </script>
+@comment  <script type="text/javascript"
+@comment  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+@comment  </script>
+@comment  <br/>
 @html
 <!--LiveInternet counter--><script type="text/javascript"><!--
 document.write("<a href='http://www.liveinternet.ru/click' "+
@@ -108,6 +96,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @center @image{../png/\fname\, 11cm, , \text\, .png}
 @c @center @image{../png/\fname\, 11cm, , \text\. See also @uref{../pdf/\fname\.pdf, U3D PDF} sample, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{../udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end ifhtml
 
 @ifnothtml
@@ -121,6 +112,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @macro pfig {fname,text}
 @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end iftex
 
 @ifnottex
@@ -130,6 +124,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @macro pfig {fname,text}
 @c @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@c @center @image{../udav/\fname\, 11cm, , \text\, .png}
+@end macro
 @end ifnottex
 @end ifnothtml
 
@@ -160,13 +157,24 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @node Data processing, MGL scripts, Widget classes, Top
 @include data_en.texi
 
-@node MGL scripts, Other classes, Data processing, Top
+@node MGL scripts, UDAV, Data processing, Top
 @include parse_en.texi
 
-@node Other classes, TeX-like symbols, MGL scripts, Top
+@node UDAV, Other classes, MGL scripts, Top
+@include udav_en.texi
+
+@node Other classes, Symbols and hot-keys, UDAV, Top
 @include other_en.texi
 
-@node TeX-like symbols, Copying This Manual, Other classes, Top
+@node Symbols and hot-keys, File formats, Other classes, Top
+@appendix Symbols and hot-keys
+@include symbols_en.texi
+
+@node File formats, TeX-like symbols, Symbols and hot-keys, Top
+@appendix File formats
+@include formats_en.texi
+
+@node TeX-like symbols, Copying This Manual, File formats, Top
 @appendix TeX-like symbols
 @include appendix_en.texi
 

diff --git a/texinfo/doc_ru.texi b/texinfo/doc_ru.texi
index a614480194e36215e84921a6ea5a5791e06a10fd..8f784ba171ffad2870d4abe940c2df505ef6285b 100644 (file)
--- a/texinfo/doc_ru.texi
+++ b/texinfo/doc_ru.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mathgl_en.info
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This manual is for MathGL (version @value{VERSION}), a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -47,21 +33,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This file documents the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -73,7 +45,10 @@ supports it in developing GNU and promoting software freedom.''
 * Widget classes::
 * Data processing::
 * MGL scripts::
+* UDAV ::
 * Other classes::
+* Symbols and hot-keys::
+* File formats::
 * TeX-like symbols::
 * Copying This Manual::
 * Index::
@@ -81,6 +56,19 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro external {}
+@comment  @html
+@comment  <script type="text/javascript"><!--
+@comment  google_ad_client = "ca-pub-1128070552722622";
+@comment  /* 728x90, создано 23.12.09 */
+@comment  google_ad_slot = "9958083480";
+@comment  google_ad_width = 728;
+@comment  google_ad_height = 90;
+@comment  //-->
+@comment  </script>
+@comment  <script type="text/javascript"
+@comment  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+@comment  </script>
+@comment  <br/>
 @html
 <!--LiveInternet counter--><script type="text/javascript"><!--
 document.write("<a href='http://www.liveinternet.ru/click' "+
@@ -108,6 +96,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @center @image{../png/\fname\, 11cm, , \text\, .png}
 @c @center @image{../png/\fname\, 11cm, , \text\. See also @uref{../pdf/\fname\.pdf, U3D PDF} sample, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{../udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end ifhtml
 
 @ifnothtml
@@ -121,6 +112,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @macro pfig {fname,text}
 @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end iftex
 
 @ifnottex
@@ -130,6 +124,9 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @macro pfig {fname,text}
 @c @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@c @center @image{../udav/\fname\, 11cm, , \text\, .png}
+@end macro
 @end ifnottex
 @end ifnothtml
 
@@ -160,13 +157,24 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 @node Data processing, MGL scripts, Widget classes, Top
 @include data_ru.texi
 
-@node MGL scripts, Other classes, Data processing, Top
+@node MGL scripts, UDAV, Data processing, Top
 @include parse_ru.texi
 
-@node Other classes, TeX-like symbols, MGL scripts, Top
+@node UDAV, Other classes, MGL scripts, Top
+@include udav_ru.texi
+
+@node Other classes, Symbols and hot-keys, UDAV, Top
 @include other_ru.texi
 
-@node TeX-like symbols, Copying This Manual, Other classes, Top
+@node Symbols and hot-keys, File formats, Other classes, Top
+@appendix Symbols and hot-keys
+@include symbols_ru.texi
+
+@node File formats, TeX-like symbols, Symbols and hot-keys, Top
+@appendix File formats
+@include formats_ru.texi
+
+@node TeX-like symbols, Copying This Manual, File formats, Top
 @appendix TeX-like symbols
 @include appendix_ru.texi
 

diff --git a/texinfo/ex_mgl_en.texi b/texinfo/ex_mgl_en.texi
index 491ed50d611a0e5016be4718898fd58a0995efe1..edc2baf24f59f963411edcad94881ab22284707e 100644 (file)
--- a/texinfo/ex_mgl_en.texi
+++ b/texinfo/ex_mgl_en.texi
@@ -1,14 +1,57 @@
 @c ------------------------------------------------------------------
 @chapter MathGL examples
 
-This chapter contain information about basic and advanced MathGL, hints and samples for all types of graphics. I recommend you read first 2 sections one after another and at least look on ``Hints'' section. Also I recommend you to look at @ref{General concepts}. Sample code for some of these examples can be found in @uref{http://mathgl.sf.net/pictures.html} and in @ref{Samples}.
+This chapter contain information about basic and advanced MathGL, hints and samples for all types of graphics. I recommend you read first 2 sections one after another and at least look on @ref{Hints} section. Also I recommend you to look at @ref{General concepts} and @ref{FAQ}.
+
+Most of sample scripts placed below use a set of functions for preparing the data.
+@verbatim
+func 'prepare1d'
+new y 50 3
+modify y '0.7*sin(2*pi*x)+0.5*cos(3*pi*x)+0.2*sin(pi*x)'
+modify y 'sin(2*pi*x)' 1
+modify y 'cos(2*pi*x)' 2
+new x1 50 'x'
+new x2 50 '0.05-0.03*cos(pi*x)'
+new y1 50 '0.5-0.3*cos(pi*x)'
+new y2 50 '-0.3*sin(pi*x)'
+return
+
+func 'prepare2d'
+new a 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 50 40 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3d'
+new c 61 50 40 '-2*(x^2+y^2+z^4-z^2)+0.2'
+new d 61 50 40 '1-2*tanh((x+y)*(x+y))'
+return
+
+func 'prepare2v'
+new a 20 30 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 20 30 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3v'
+define $1 pow(x*x+y*y+(z-0.3)*(z-0.3)+0.03,1.5)
+define $2 pow(x*x+y*y+(z+0.3)*(z+0.3)+0.03,1.5)
+new ex 10 10 10 '0.2*x/$1-0.2*x/$2'
+new ey 10 10 10 '0.2*y/$1-0.2*y/$2'
+new ez 10 10 10 '0.2*(z-0.3)/$1-0.2*(z+0.3)/$2'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
 
 @menu
-* Basic usage:: 
-* Advanced usage:: 
-* Data handling:: 
-* Data plotting:: 
+* Basic usage::
+* Advanced usage::
+* Data handling::
+* Data plotting::
+* 1D samples::
+* 2D samples::
+* 3D samples::
+* Vector field samples::
 * Hints::
+* FAQ::
 @end menu
 
 @c ------------------------------------------------------------------
@@ -19,16 +62,27 @@ This chapter contain information about basic and advanced MathGL, hints and samp
 MGL script can be used by several manners. Each has positive and negative sides:
 @itemize @bullet
 @item
-@emph{The using of MGL in UDAV.}
+@emph{Using UDAV.}
 
-Positive side is the possibility to view the plot at once and to modify it, rotate, zoom or switch on transparency or lighting) by hand or by mouse. Negative sides are: the need of X-terminal.
+Positive sides are possibilities to view the plot at once and to modify it, rotate, zoom or switch on transparency or lighting by hands or by mouse. Negative side is the needness of the X-terminal. @c For more details, see @ref{UDAV}.
 
 @item
-@emph{Direct writing to file in bitmap or vector format without creation of graphical window.}
+@emph{Using command line tools.}
 
 Positive aspects are: batch processing of similar data set, for example, a set of resulting data files for different calculation parameters), running from the console program, including the cluster calculation), fast and automated drawing, saving pictures for further analysis, or demonstration). Negative sides are: the usage of the external program for picture viewing. Also, the data plotting is non-visual. So, you have to imagine the picture, view angles, lighting and so on) before the plotting. I recommend to use graphical window for determining the optimal parameters of plotting on the base of some typical data set. And later use these parameters for batch processing in console program.
 
-In this case you can use a set of programs: @code{mgl2png}, @code{mgl2gif}, @code{mgl2eps}, @code{mgl2svg} or @code{mglview} for viewing.
+In this case you can use the program: @code{mglconv} or @code{mglview} for viewing.
+
+@item
+@emph{Using C/C++/... code.}
+
+You can easily execute MGL script within C/C++/Fortan code. This can be useful for fast data plotting, for example, in web applications, where textual string (MGL script) may contain all necessary information for plot. The basic C++ code may look as following
+@verbatim
+const char *mgl_script; // script itself, can be of type const wchar_t*
+mglGraph gr;
+mglParse pr;
+pr.Execute(&gr, mgl_script);
+@end verbatim
 @end itemize
 
 The simplest script is
@@ -38,174 +92,433 @@ axis        # draw axis
 fplot 'x^3' # draw some function
 @end verbatim
 
-Just type it in UDAV and press F5. Also you can save it in text file @samp{test.mgl} and type in the console @code{mgl2png test.mgl} what produce file @samp{test.mgl.png} with resulting picture.
+Just type it in UDAV and press F5. Also you can save it in text file @samp{test.mgl} and type in the console @code{mglconv test.mgl} what produce file @samp{test.mgl.png} with resulting picture.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Advanced usage, Data handling, Basic usage, Examples
 @section Advanced usage
 
 Now I show several non-obvious features of MGL: several subplots in a single picture, curvilinear coordinates, text printing and so on. Generally you may miss this section at first reading, but I don't recommend it.
 
 @menu
-* Subplots:: 
-* Axis and grids:: 
-* Curvilinear coordinates:: 
-* Text printing example:: 
+* Subplots::
+* Axis and ticks::
+* Curvilinear coordinates::
+* Colorbars::
+* Bounding box::
+* Ternary axis::
+* Text features::
+* Legend sample::
+* Cutting sample::
 @end menu
 
 @c ------------------------------------------------------------------
-@external
-@node Subplots, Axis and grids, , Advanced usage
+@c @external
+@node Subplots, Axis and ticks, , Advanced usage
 @subsection Subplots
 
-Let me demonstrate possibilities of axes transformation. MathGL has the following functions: @code{SubPlot}, @code{InPlot}, @code{Aspect} and @code{Rotate}, @pxref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of axes in image area, functions @code{SubPlot} and @code{InPlot}). After that one may rotate the plot, function @code{Rotate}). Finally, one may change aspects of axes, function @code{Aspect}). The following code illustrates the aforesaid it:
+Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @ref{subplot}, @ref{inplot}, @ref{title}, @ref{aspect} and @ref{rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @ref{subplot}, @ref{inplot} and @ref{multiplot}). Secondly, you can add the title of plot by @ref{title} function. After that one may rotate the plot (command @ref{rotate}). Finally, one may change aspects of axes (command @ref{aspect}). The following code illustrates the aforesaid it:
 @verbatim
-subplot 2 2 0:box
-text -1 1.1 'Just box' 'L'
-inplot 0.2 0.5 0.7 1:box
-text 0 1.2 'Inplot example'
+subplot 2 2 0
+box:text -1 1.1 'Just box' ':L'
+inplot 0.2 0.5 0.7 1
+box:text 0 1.2 'InPlot example'
 
-subplot 2 2 1
-rotate 60 40:aspect 1 1 1
-box:text 1 1 1.5 'rotate only' 'R'
+subplot 2 2 1:title 'Rotate only'
+rotate 50 60:box
 
-subplot 2 2 2
-rotate 60 40:aspect 1 1 2
-box:text 0 0 2 'aspect and rotate'
+subplot 2 2 2:title 'Rotate and Aspect'
+rotate 50 60:aspect 1 1 2:box
 
-subplot 2 2 3
-rotate 60 40:aspect 1 2 2
-box:text 0 0 1.5 'Aspect in other direction'
+subplot 2 2 3:title 'Aspect in other direction'
+rotate 50 60:aspect 1 2 2:box
 @end verbatim
-Here I used function @code{text} for printing the text in arbitrary position of picture, @pxref{Text printing}). Text coordinates and size are connected with axes. However, text coordinates may be everywhere, including the outside the bounding box. I shall show its features later in @xref{Text printing example}.
+Here I used function @code{Puts} for printing the text in arbitrary position of picture (see @ref{Text printing}). Text coordinates and size are connected with axes. However, text coordinates may be everywhere, including the outside the bounding box. I'll show its features later in @ref{Text features}.
 
 Note that several commands can be placed in a string if they are separated by @samp{:} symbol.
 
-@mreal
-@image{../png/sample1, 7cm}
-@caption{Example of several subplots on the single picture.}
-@end mreal
+@pfig{aspect, Example of several subplots on the single picture.}
+
+More complicated sample show how to use most of positioning functions:
+@verbatim
+subplot 3 2 0:title 'StickPlot'
+stickplot 3 0 20 30:box 'r':text 0 0 '0' 'r'
+stickplot 3 1 20 30:box 'g':text 0 0 '1' 'g'
+stickplot 3 2 20 30:box 'b':text 0 0 '2' 'b'
+
+subplot 3 2 3 '':title 'ColumnPlot'
+columnplot 3 0:box 'r':text 0 0 '0' 'r'
+columnplot 3 1:box 'g':text 0 0 '1' 'g'
+columnplot 3 2:box 'b':text 0 0 '2' 'b'
+
+subplot 3 2 4 '':title 'GridPlot'
+gridplot 2 2 0:box 'r':text 0 0 '0' 'r'
+gridplot 2 2 1:box 'g':text 0 0 '1' 'g'
+gridplot 2 2 2:box 'b':text 0 0 '2' 'b'
+gridplot 2 2 3:box 'm':text 0 0 '3' 'm'
+
+subplot 3 2 5 '':title 'InPlot':box
+inplot 0.4 1 0.6 1 on:box 'r'
+
+multiplot 3 2 1 2 1 '':title 'MultiPlot':box
+@end verbatim
+
+@pfig{inplot, Example for most of positioning functions.}
 
 @c ------------------------------------------------------------------
-@external
-@node Axis and grids, Curvilinear coordinates, Subplots, Advanced usage
-@subsection Axis and grids
+@c @external
+@node Axis and ticks, Curvilinear coordinates, Subplots, Advanced usage
+@subsection Axis and ticks
 
-MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The limits of axes and their origin (the point of intersection) are determined by function @code{axis}. Also you can use @code{xrange, yrange, zrange} functions (@pxref{Axis settings}). Ticks on axis are specified by functions @code{xtick, ytick, ztick, ttick}. First argument the direction for each change will be applied. Second argument gives the step between ticks (if positive) or gives the number of ticks on the axis (if negative) or set to use logarithmic ticks (if zero). Third argument gives numbers of sub-ticks between ticks (default is zero). Last argument define the initial ticks position.
+MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The ranges of axes and their origin (the point of intersection) are determined by functions @code{SetRange()}, @code{SetRanges()}, @code{SetOrigin()} (see @ref{Ranges (bounding box)}). Ticks on axis are specified by function @code{SetTicks}, @code{SetTicksVal}, @code{SetTicksTime} (see @ref{Ticks}). But usually
 
-Function @code{Axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{'xyz'}, function draws axes in all directions). Function @code{Grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
+Command @ref{axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Command @ref{grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
 @verbatim
-subplot 2 2 0
-xtick 0.4 3     # sets tick step to 0.5
-ytick 0.4 3     # and draws 3 subticks
-box             # should be after the ticks change
-axis 'xy': grid
-text 0 1.3 1 'axis and grid'
+subplot 2 2 0:title 'Axis origin, Grid'
+origin 0 0:axis:grid:fplot 'x^3'
+
+subplot 2 2 1:title '2 axis'
+ranges -1 1 -1 1:origin -1 -1:axis
+ylabel 'axis_1':fplot 'sin(pi*x)' 'r2'
+ranges 0 1 0 1:origin 1 1:axis
+ylabel 'axis_2':fplot 'cos(pi*x)'
+
+subplot 2 2 3:title 'More axis'
+origin nan nan:xrange -1 1:axis
+xlabel 'x' 0:ylabel 'y_1' 0:fplot 'x^2' 'k'
+yrange -1 1:origin -1.3 -1:axis 'y' 'r'
+ylabel '#r{y_2}' 0.2:fplot 'x^3' 'r'
+
+subplot 2 2 2:title '4 segments, inverted axis':origin 0 0:
+inplot 0.5 1 0.5 1 on:ranges 0 10 0 2:axis
+fplot 'sqrt(x/2)':xlabel 'W' 1:ylabel 'U' 1
+inplot 0 0.5 0.5 1 on:ranges 1 0 0 2:axis 'x'
+fplot 'sqrt(x)+x^3':xlabel '\tau' 1
+inplot 0.5 1 0 0.5 on:ranges 0 10 4 0:axis 'y'
+fplot 'x/4':ylabel 'L' -1
+inplot 0 0.5 0 0.5 on:ranges 1 0 4 0:fplot '4*x^2'
+@end verbatim
 
-xtick -5: ytick -5  # restore back
-subplot 2 2 1:rotate 60 40
-origin 0 0 0
+Note, that MathGL can draw not only single axis (which is default). But also several axis on the plot (see right plots). The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes I setup the first axis and draw everything concerning it. Then I setup the second axis and draw things for the second axis. Generally, the similar idea allows one to draw rather complicated plot of 4 axis with different ranges (see bottom left plot).
+
+At this inverted axis can be created by 2 methods. First one is used in this sample -- just specify minimal axis value to be large than maximal one. This method work well for 2D axis, but can wrongly place labels in 3D case. Second method is more general and work in 3D case too -- just use @ref{aspect} function with negative arguments. For example, following code will produce exactly the same result for 2D case, but 2nd variant will look better in 3D.
+@verbatim
+# variant 1
+ranges 0 10 4 0:axis
+
+# variant 2
+ranges 0 10 0 4:aspect 1 -1:axis
+@end verbatim
+
+@pfig{axis, Example of axis.}
+
+Another MathGL feature is fine ticks tunning. By default (if it is not changed by @code{SetTicks} function), MathGL try to adjust ticks positioning, so that they looks most human readable. At this, MathGL try to extract common factor for too large or too small axis ranges, as well as for too narrow ranges. Last one is non-common notation and can be disabled by @code{SetTuneTicks} function.
+
+Also, one can specify its own ticks with arbitrary labels by help of @code{SetTicksVal} function. Or one can set ticks in time format. In last case MathGL will try to select optimal format for labels with automatic switching between years, months/days, hours/minutes/seconds or microseconds. However, you can specify its own time representation using formats described in @url{http://www.manpagez.com/man/3/strftime/}. Most common variants are @samp{%X} for national representation of time, @samp{%x} for national representation of date, @samp{%Y} for year with century.
+
+The sample code, demonstrated ticks feature is
+@verbatim
+subplot 3 2 0:title 'Usual axis'
 axis
-xlabel 'x' 1
-ylabel 'y' 1
-zlabel 'z' 1
-text 0 0 1.5 'axis and labels'
 
-subplot 2 2 2:rotate 60 40
-xtick 0.2: ytick 0.2: ztick 0.2 # too low step of ticks
-origin -1 -1 -1
-axis:grid
-text 0 0 1.5 'shift origin and add grid'
-text 0 0 1.2 '(note, too many ticks)'
+subplot 3 2 1:title 'Too big/small range'
+ranges -1000 1000 0 0.001:axis
 
-subplot 2 2 3:rotate 60 40
-xtick -6: ytick -6  # decrease the number of ticks
-axis 'yz'
-ylabel 'y axis'
-zlabel 'z axis'
-text 0 0 1.5 'remove x axis, and'
-text 0 0 1.2 'decrease number of ticks'
+subplot 3 2 3:title 'Too narrow range'
+ranges 100 100.1 10 10.01:axis
+
+subplot 3 2 4:title 'Disable ticks tuning'
+tuneticks off:axis
+
+subplot 3 2 2:title 'Manual ticks'
+ranges -pi pi 0 2
+xtick -pi '\pi' -pi/2 '-\pi/2' 0 '0' 0.886 'x^*' pi/2 '\pi/2' pi 'pi'
+# or you can use:
+#list v -pi -pi/2 0 0.886 pi/2 pi:xtick v '-\pi\n-\pi/2\n{}0\n{}x^*\n\pi/2\n\pi'
+axis:grid:fplot '2*cos(x^2)^2' 'r2'
+
+subplot 3 2 5:title 'Time ticks'
+xrange 0 3e5:ticktime 'x':axis
+@end verbatim
+
+@pfig{ticks, Features of axis ticks.}
+
+The last sample I want to show in this subsection is Log-axis. From MathGL's point of view, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
+@verbatim
+subplot 2 2 0 '<_':title 'Semi-log axis'
+ranges 0.01 100 -1 1:axis 'lg(x)' '' ''
+axis:grid 'xy' 'g':fplot 'sin(1/x)'
+xlabel 'x' 0:ylabel 'y = sin 1/x' 0
+
+subplot 2 2 1 '<_':title 'Log-log axis'
+ranges 0.01 100 0.1 100:axis 'lg(x)' 'lg(y)' ''
+axis:fplot 'sqrt(1+x^2)'
+xlabel 'x' 0:ylabel 'y = \sqrt{1+x^2}' 0
+
+subplot 2 2 2 '<_':title 'Minus-log axis'
+ranges -100 -0.01 -100 -0.1:axis '-lg(-x)' '-lg(-y)' ''
+axis:fplot '-sqrt(1+x^2)'
+xlabel 'x' 0:ylabel 'y = -\sqrt{1+x^2}' 0
+
+subplot 2 2 3 '<_':title 'Log-ticks'
+ranges 0.01 100 0 100:axis 'sqrt(x)' '' ''
+axis:fplot 'x'
+xlabel 'x' 1:ylabel 'y = x' 0
 @end verbatim
 
-This example shows the importance of the correct choosing of the number of ticks on axis. If tick step is too small then its text may overlap and becomes unreadable. This code has the example of @code{Label} function. It draws label for axis in specified direction. The text position on axis is specified by third argument of @code{Label} function. If it is positive then then text is drawn near the axis maximum, if negative then the same takes place near the minimum of axis, if zero - then at the center of axis.
+@pfig{loglog, Features of axis ticks.}
 
-@mreal
-@image{../png/sample2, 7cm}
-@caption{Example of setting up axis range and axis ticks.}
-@end mreal
+You can see that MathGL automatically switch to log-ticks as we define log-axis formula (in difference from v.1.*). Moreover, it switch to log-ticks for any formula if axis range will be large enough (see right bottom plot). Another interesting feature is that you not necessary define usual log-axis (i.e. when coordinates are positive), but you can define ``minus-log'' axis when coordinate is negative (see left bottom plot).
 
 @c ------------------------------------------------------------------
-@external
-@node Curvilinear coordinates, Text printing example, Axis and grids, Advanced usage
+@c @external
+@node Curvilinear coordinates, Colorbars, Axis and ticks, Advanced usage
 @subsection Curvilinear coordinates
 
-
-Now let use curvilinear coordinates. In difference from other systems of plot creation, MathGL uses textual formulas for connection of the old (data) and new (output) coordinates. This allows one to plot in arbitrary coordinates. The following code plots the line @var{y}=0, @var{z}=0 in Cartesian, polar, parabolic and spiral coordinates:
+As I noted in previous subsection, MathGL support curvilinear coordinates. In difference from other plotting programs and libraries, MathGL uses textual formulas for connection of the old (data) and new (output) coordinates. This allows one to plot in arbitrary coordinates. The following code plots the line @var{y}=0, @var{z}=0 in Cartesian, polar, parabolic and spiral coordinates:
 @verbatim
-new x 50: new y 50: new z 50
-fill y 0.5 0.5: fill x -1 1 # creates data arrays
 origin -1 1 -1
+subplot 2 2 0:title 'Cartesian':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 0:rotate 60 40
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'cartesian'
-
-subplot 2 2 1:rotate 60 40
-axis 'y*sin(pi*x)' 'y*cos(pi*x)' ''
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'cylindrical'
+axis 'y*sin(pi*x)' 'y*cos(pi*x)' '':
+subplot 2 2 1:title 'Cylindrical':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 2:rotate 60 40
 axis '2*y*x' 'y*y - x*x' ''
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'parabolic'
+subplot 2 2 2:title 'Parabolic':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 3:rotate 60 40
 axis 'y*sin(pi*x)' 'y*cos(pi*x)' 'x+z'
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'spiral'
+subplot 2 2 3:title 'Spiral':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 @end verbatim
 
-@mreal
-@image{../png/sample3, 7cm}
-@caption{Example of curvilinear coordinates}
-@end mreal
+@pfig{curvcoor, Example of curvilinear coordinates}
 
 
 @c ------------------------------------------------------------------
-@external
-@node Text printing example, , Curvilinear coordinates, Advanced usage
-@subsection Text printing example
+@c @external
+@node Colorbars, Bounding box, Curvilinear coordinates, Advanced usage
+@subsection Colorbars
+
+MathGL handle @ref{colorbar} as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
+
+But of course, there are differences -- colorbars usually located out of bounding box. At this, colorbars can be at subplot boundaries (by default), or at bounding box (if symbol @samp{I} is specified). Colorbars can handle sharp colors. And they can be located at arbitrary position too. The sample code, which demonstrate colorbar features is:
+@verbatim
+call 'prepare2d'
+new v 9 'x'
+
+subplot 2 2 0:title 'Colorbar out of box':box
+colorbar '<':colorbar '>':colorbar '_':colorbar '^'
+
+subplot 2 2 1:title 'Colorbar near box':box
+colorbar '<I':colorbar '>I':colorbar '_I':colorbar '^I'
+
+subplot 2 2 2:title 'manual colors':box:contd v a
+colorbar v '<':colorbar v '>':colorbar v '_':colorbar v '^'
+
+subplot 2 2 3:title '':text -0.5 1.55 'Color positions' ':C' -2
+
+colorbar 'bwr>' 0.25 0:text -0.9 1.2 'Default'
+colorbar 'b{w,0.3}r>' 0.5 0:text -0.1 1.2 'Manual'
+
+crange 0.01 1e3
+colorbar '>' 0.75 0:text 0.65 1.2 'Normal scale'
+colorbar '>':text 1.35 1.2 'Log scale'
+@end verbatim
+
+@pfig{colorbar, Example of colorbars}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Bounding box, Ternary axis, Colorbars, Advanced usage
+@subsection Bounding box
+
+Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @ref{box} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @ref{box} features is:
+@verbatim
+subplot 2 2 0:title 'Box (default)':rotate 50 60:box
+
+subplot 2 2 1:title 'colored':rotate 50 60:box 'r'
 
-MathGL prints text by vector font. There are functions for manual specifying of text position (like @code{Puts}) and for its automatic selection (like @code{Label}, @code{legend} and so on). MathGL prints text always in specified position even if it lies outside the bounding box. The default size of font is specified by command @var{fontsize}. However, the actual size of output string depends on position of axes (depends on functions @code{SubPlot}, @code{InPlot}). The switching of the font style (italic, bold, wire and so on) can be done for the whole string (by function parameter) or inside the string. By default MathGL parses TeX-like commands for symbols and indexes (see @pxref{Font styles}). Example of MathGL font drawing is:
+subplot 2 2 2:title 'with faces':rotate 50 60:box '@'
+
+subplot 2 2 3:title 'both':rotate 50 60:box '@cm'
+@end verbatim
+
+@pfig{box, Example of Box()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Ternary axis, Text features, Bounding box, Advanced usage
+@subsection Ternary axis
+
+There are another unusual axis types which are supported by MathGL. These are ternary and quaternary axis. Ternary axis is special axis of 3 coordinates @var{a}, @var{b}, @var{c} which satisfy relation @var{a}+@var{b}+@var{c}=1. Correspondingly, quaternary axis is special axis of 4 coordinates @var{a}, @var{b}, @var{c}, @var{d} which satisfy relation @var{a}+@var{b}+@var{c}+@var{d}=1.
+
+Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @ref{ternary} function for switching to ternary/quaternary coordinates. The sample code is:
+@verbatim
+ranges 0 1 0 1 0 1
+new x 50 '0.25*(1+cos(2*pi*x))'
+new y 50 '0.25*(1+sin(2*pi*x))'
+new z 50 'x'
+new a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'
+new rx 10 'rnd':copy ry (1-rx)*rnd
+light on
+
+subplot 2 2 0:title 'Ordinary axis 3D':rotate 50 60
+box:axis:grid
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':zlabel 'Z'
+
+subplot 2 2 1:title 'Ternary axis (x+y+t=1)':ternary 1
+box:axis:grid 'xyz' 'B;'
+plot x y 'r2':plot rx ry 'q^ ':cont a:line 0.5 0 0 0.75 'g2'
+xlabel 'B':ylabel 'C':tlabel 'A'
+
+subplot 2 2 2:title 'Quaternary axis 3D':rotate 50 60:ternary 2
+box:axis:grid 'xyz' 'B;'
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':tlabel 'A':zlabel 'D'
+
+subplot 2 2 3:title 'Ternary axis 3D':rotate 50 60:ternary 1
+box:axis:grid 'xyz' 'B;'
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':tlabel 'A':zlabel 'Z'
+@end verbatim
+
+@pfig{ternary, Ternary and Quaternary axis}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Text features, Legend sample, Ternary axis, Advanced usage
+@subsection Text features
+
+MathGL prints text by vector font. There are functions for manual specifying of text position (like @code{Puts}) and for its automatic selection (like @code{Label}, @code{Legend} and so on). MathGL prints text always in specified position even if it lies outside the bounding box. The default size of font is specified by functions @var{SetFontSize*} (see @ref{Font settings}). However, the actual size of output string depends on subplot size (depends on functions @code{SubPlot}, @code{InPlot}). The switching of the font style (italic, bold, wire and so on) can be done for the whole string (by function parameter) or inside the string. By default MathGL parses TeX-like commands for symbols and indexes (see @ref{Font styles}).
+
+Text can be printed as usual one (from left to right), along some direction (rotated text), or along a curve. Text can be printed on several lines, divided by new line symbol @samp{\n}.
+
+Example of MathGL font drawing is:
 @verbatim
+call 'prepare1d'
+
+subplot 2 2 0 ''
 text 0 1 'Text can be in ASCII and in Unicode'
 text 0 0.6 'It can be \wire{wire}, \big{big} or #r{colored}'
 text 0 0.2 'One can change style in string: \b{bold}, \i{italic, \b{both}}'
 text 0 -0.2 'Easy to \a{overline} or \u{underline}'
 text 0 -0.6 'Easy to change indexes ^{up} _{down} @{center}'
-text 0 -1 'It parse TeX: \int \alpha \cdot \sqrt3{sin(\pi x)^2 + \gamma_{i_k}} dx'
+text 0 -1 'It parse TeX: \int \alpha \cdot \
+\sqrt3{sin(\pi x)^2 + \gamma_{i_k}} dx'
+
+subplot 2 2 1 ''
+ text 0 0.5 '\sqrt{\frac{\alpha^{\gamma^2}+\overset 1{\big\infty}}{\sqrt3{2+b}}}' '@' -2
+text 0 -0.5 'Text can be printed\n{}on several lines'
+
+subplot 2 2 2 '':box:plot y(:,0)
+text y 'This is very very long string drawn along a curve' 'k'
+text y 'Another string drawn above a curve' 'Tr'
+
+subplot 2 2 3 '':line -1 -1 1 -1 'rA':text 0 -1 1 -1 'Horizontal'
+line -1 -1 1 1 'rA':text 0 0 1 1 'At angle' '@'
+line -1 -1 -1 1 'rA':text -1 0 -1 1 'Vertical'
+@end verbatim
+
+@pfig{text, Example of text printing}
+
+You can change font faces by loading font files by function @ref{loadfont}. Note, that this is long-run procedure. Font faces can be downloaded from @uref{http://mathgl.sourceforge.net/download.html, MathGL website} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. The sample code is:
+@verbatim
+define d 0.25
+loadfont 'STIX':text 0 1.1 'default font (STIX)'
+loadfont 'adventor':text 0 1.1-d 'adventor font'
+loadfont 'bonum':text 0 1.1-2*d 'bonum font'
+loadfont 'chorus':text 0 1.1-3*d 'chorus font'
+loadfont 'cursor':text 0 1.1-4*d 'cursor font'
+loadfont 'heros':text 0 1.1-5*d 'heros font'
+loadfont 'heroscn':text 0 1.1-6*d 'heroscn font'
+loadfont 'pagella':text 0 1.1-7*d 'pagella font'
+loadfont 'schola':text 0 1.1-8*d 'schola font'
+loadfont 'termes':text 0 1.1-9*d 'termes font'
+@end verbatim
+
+@pfig{fonts, Example of font faces}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Legend sample, Cutting sample, Text features, Advanced usage
+@subsection Legend sample
+
+Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @ref{addlegend} function; or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @ref{clearlegend} function allow you to remove all saved legend entries.
+
+There are 2 features. If plot style is empty then text will be printed without indent. If you want to plot the text with indent but without plot sample then you need to use space @samp{ } as plot style. Such style @samp{ } will draw a plot sample (line with marker(s)) which is invisible line (i.e. nothing) and print the text with indent as usual one.
+
+Command @ref{legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
+@verbatim
+addlegend 'sin(\pi {x^2})' 'b'
+addlegend 'sin(\pi x)' 'g*'
+addlegend 'sin(\pi \sqrt{x})' 'rd'
+addlegend 'jsut text' ' '
+addlegend 'no indent for this' ''
+
+subplot 2 2 0 '':title 'Legend (default)':box
+legend
+
+text 0.75 0.65 'Absolute position' 'A'
+legend 3 'A#'
+
+subplot 2 2 2 '':title 'coloring':box
+legend 0 'r#':legend 1 'Wb#':legend 2 'ygr#'
+
+subplot 2 2 3 '':title 'manual position':box
+legend 0.5 1:text 0.5 0.55 'at x=0.5, y=1' 'a'
+legend 1 '#-':text 0.75 0.25 'Horizontal legend' 'a'
 @end verbatim
 
-@mreal
-@image{../png/sample4, 7cm}
-@caption{Example of text printing with different font effects}
-@end mreal
+@pfig{legend, Example of legend}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cutting sample, , Legend sample, Advanced usage
+@subsection Cutting sample
+
+The last common thing which I want to show in this section is how one can cut off points from plot. There are 4 mechanism for that.
+@itemize @bullet
+@item
+You can set one of coordinate to NAN value. All points with NAN values will be omitted.
+
+@item
+You can enable cutting at edges by @code{SetCut} function. As result all points out of bounding box will be omitted.
+
+@item
+You can set cutting box by @code{SetCutBox} function. All points inside this box will be omitted.
+
+@item
+You can define cutting formula by @code{SetCutOff} function. All points for which the value of formula is nonzero will be omitted. Note, that this is the slowest variant.
+@end itemize
 
-Another example demonstrate the features of TeX formula parsing.
+Below I place the code which demonstrate last 3 possibilities:
 @verbatim
-text 0 0 '\sqrt{\frac{\alpha^{\gamma^2}+\overset 1{\big\infty}}{\sqrt3{2+b}}}', 0, -4
+call 'prepare2d'
+call 'prepare3d'
+
+subplot 2 2 0:title 'Cut on (default)':rotate 50 60
+light on:box:surf a; zrange -1 0.5
+
+subplot 2 2 1:title 'Cut off':rotate 50 60
+box:surf a; zrange -1 0.5; cut off
+
+subplot 2 2 2:title 'Cut in box':rotate 50 60:box:alpha on
+cut 0 -1 -1 1 0 1.1:surf3 c
+cut 0 0 0 0 0 0        # restore back
+
+subplot 2 2 3:title 'Cut by formula':rotate 50 60:box
+cut '(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)':surf3 c
 @end verbatim
 
-@mreal
-@image{../png/samplee, 7cm}
-@caption{Example of TeX formula parsing}
-@end mreal
+@pfig{cut, Example of point cutting}
+
 
 
 @c ------------------------------------------------------------------
@@ -213,19 +526,19 @@ text 0 0 '\sqrt{\frac{\alpha^{\gamma^2}+\overset 1{\big\infty}}{\sqrt3{2+b}}}',
 @node Data handling, Data plotting, Advanced usage, Examples
 @section Data handling
 
-@c Class @code{mglData} contains all functions for the data handling in MathGL (@pxref{mglData class}). There are several matters why I use class @code{mglData} but not a single array: it does not depend on type of data (mreal or double), sizes of data arrays are kept with data, memory working is simpler and safer.
+Class @code{mglData} contains all functions for the data handling in MathGL (@pxref{Data processing}). There are several matters why I use class @code{mglData} but not a single array: it does not depend on type of data (mreal or double), sizes of data arrays are kept with data, memory working is simpler and safer.
 
 @menu
-* Array creation::              
+* Array creation::
 * Change data::
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Array creation, Change data, , Data handling
 @subsection Array creation
 
-One can put numbers into the data instance by several ways. Let us do it for sinus function:
+One can put numbers into the data instance by several ways. Let us do it for square function:
 @itemize @bullet
 @item
 one can create array by @code{list} command
@@ -260,11 +573,15 @@ or fill the array using current axis range
 new a 6
 fill a '(x+1)^2/4'
 @end verbatim
+or use single line
+@verbatim
+new a 6 '(x+1)^2/4'
+@end verbatim
 
 @item
 finally it can be loaded from file
 @verbatim
-new s 6: modify s 'x^2'
+new s 6 '(x+1)^2/4'
 save s 'sqr.dat'    # create file first
 read a 'sqr.dat'    # load it
 @end verbatim
@@ -272,7 +589,7 @@ read a 'sqr.dat'    # load it
 @item
 at this one can read only part of data
 @verbatim
-new s 6: modify s 'x^2'
+new s 6 '(x+1)^2/4'
 save s 'sqr.dat'    # create file first
 read a 'sqr.dat' 5  # load it
 @end verbatim
@@ -288,117 +605,159 @@ copy a [[11,12,13],[21,22,23],[31,32,33]]
 @end verbatim
 Also data can be filled by formula
 @verbatim
-new z 30 40
-fill z 'sin(pi*x)*cos(pi*y)'
+new z 30 40 'sin(pi*x)*cos(pi*y)'
 @end verbatim
-or loaded from file.
-
-The only non-obvious thing here is using multidimensional arrays in C/C++, i.e. arrays defined like @code{mreal dat[40][30];}. Since, formaly this arrays element @code{dat[i]} can address the memory in arbitrary place you should use the proper function to convert such arrays to @code{mglData} object. For C++ this is functions like @code{mglData::Set(mreal **dat, int N1, int N2}. For C this is functions like @code{mgl_data_set_mreal2(HMDT d, const mreal **dat, int N1, int N2}. At this, you should keep in mind that @code{nx=N2} and @code{ny=N1} after conversion.
+or loaded from a file.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Change data, , Array creation, Data handling
 @subsection Change data
 
-MathGL has functions for data processing: differentiating, integrating, smoothing and so on. Let us consider some examples. The simplest ones are integration and differentiation. The direction in which operation will be performed is specified by textual string, which may contain symbols @samp{x}, @samp{y} or @samp{z}. For example, the call of @code{diff a 'x'} will differentiate data along @samp{x} direction; the call of @code{integrate a 'xy'} perform the double integration of data along @samp{x} and @samp{y} directions; the call of @code{diff2 a 'xyz'} will apply 3d Laplace operator to data and so on. Example of this operations on 2d array a=x*y is presented in code:
+MathGL has functions for data processing: differentiating, integrating, smoothing and so on (for more detail, see @ref{Data processing}). Let us consider some examples. The simplest ones are integration and differentiation. The direction in which operation will be performed is specified by textual string, which may contain symbols @samp{x}, @samp{y} or @samp{z}. For example, the call of @code{diff 'x'} will differentiate data along @samp{x} direction; the call of @code{integrate 'xy'} perform the double integration of data along @samp{x} and @samp{y} directions; the call of @code{diff2 'xyz'} will apply 3d Laplace operator to data and so on. Example of this operations on 2d array a=x*y is presented in code:
 @verbatim
-new a 30 40: modify a 'x*y'
-axis 0 0 0 1 1 1
-subplot 2 2 0:rotate 60 40
-surf a: box
-text 0.7 1 1.2 'a(x,y)'
-subplot 2 2 1:rotate 60 40
-diff a 'x': surf a: box
-text 0.7 1 1.2 'da/dx'
-subplot 2 2 2:rotate 60 40
-integrate a 'xy': surf a: box
-text 0.7 1 1.2 '\int da/dx dxdy'
-subplot 2 2 3:rotate 60 40
-diff2 a 'y': surf a: box
-text 0.7 1 1.2 '\int {d^2}a/dxdy dx'
+ranges 0 1 0 1 0 1:new a 30 40 'x*y'
+subplot 2 2 0:title 'a(x,y)':rotate 60 40
+surf a:box
+
+subplot 2 2 1:title 'da/dx':rotate 60 40
+diff a 'x':surf a:box
+
+subplot 2 2 2:title '\int da/dx dxdy':rotate 60 40
+integrate a 'xy':surf a:box
+
+subplot 2 2 3:title '\int {d^2}a/dxdy dx':rotate 60 40
+diff2 a 'y':surf a:box
 @end verbatim
 
-@mreal
-@image{../png/sample6, 7cm}
-@caption{Example of data differentiation and integration}
-@end mreal
+@pfig{dat_diff, Example of data differentiation and integration}
 
-Data smoothing (function @code{Smooth}) is more interesting and important. This function has 2 main arguments: type of smoothing and its direction. Now 4 methods are supported: @code{0} does nothing for delta=0 or approaches data to zero with the step delta, @code{1} linear averaging by 3 points, @code{2} linear averaging by 5 points, @code{3} quadratic averaging by 5 points. Let me demonstrate it for 1d case:
-@verbatim
-new y0 30
-modify y0 '0.4*sin(2*pi*x)+0.3*cos(3*pi*x)-0.4*sin(4*pi*x)+0.2*rnd'
-copy y1 y0: smooth y1 1
-copy y2 y0: smooth y2 2
-copy y3 y0: smooth y3 3
+Data smoothing (command @ref{smooth}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
 
-plot y0 'k': addlegend 'none' 'k'
-plot y1 'r': addlegend 'line 3' 'r'
-plot y2 'g': addlegend 'line 5' 'g'
-plot y3 'b': addlegend 'quad 5' 'b'
-legend: box
+MathGL also have some amazing functions which is not so important for data processing as useful for data plotting. There are functions for finding envelope (useful for plotting rapidly oscillating data), for data sewing (useful to removing jumps on the phase), for data resizing (interpolation). Let me demonstrate it:
+@verbatim
+subplot 2 2 0 '':title 'Envelop sample'
+new d1 1000 'exp(-8*x^2)*sin(10*pi*x)'
+axis:plot d1 'b'
+envelop d1 'x'
+plot d1 'r'
+
+subplot 2 2 1 '':title 'Smooth sample':ranges 0 1 0 1
+new y0 30 '0.4*sin(pi*x) + 0.3*cos(1.5*pi*x) - 0.4*sin(2*pi*x)+0.5*rnd'
+copy y1 y0:smooth y1 'x3':plot y1 'r';legend '"3" style'
+copy y2 y0:smooth y2 'x5':plot y2 'g';legend '"5" style'
+copy y3 y0:smooth y3 'x':plot y3 'b';legend 'default'
+plot y0 '{m7}:s';legend 'none':legend:box
+
+subplot 2 2 2:title 'Sew sample':rotate 50 60:light on:alpha on
+new d2 100 100 'mod((y^2-(1-x)^2)/2,0.1)'
+box:surf d2 'b'
+sew d2 'xy' 0.1
+surf d2 'r'
+
+subplot 2 2 3:title 'Resize sample (interpolation)'
+new x0 10 'rnd':new v0 10 'rnd'
+resize x1 x0 100:resize v1 v0 100
+plot x0 v0 'b+ ':plot x1 v1 'r-':label x0 v0 '%n'
 @end verbatim
 
-@mreal
-@image{../png/sample7, 7cm}
-@caption{Example of data smoothing}
-@end mreal
+@pfig{dat_extra, Example of data smoothing}
 
-Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@code{SubData}), summarize along some of direction(s) (@code{Sum}), find distribution of data elements (@code{Hist}). Note, that all these functions are not thread-safe because they use static internal variable for output array. In particular, the using of several of them in arguments of the same function will lead to unpredictable result.
+Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@ref{subdata}), summarize along a direction(s) (@ref{sum}), find distribution of data elements (@ref{hist}) and so on.
 
-@c ------------------------------------------------------------------
-@external
-@node Data plotting, Hints, Data handling, Examples
-@section Data plotting
+@anchor{Solve sample}
+Another interesting feature of MathGL is interpolation and root-finding. There are several functions for linear and cubic spline interpolation (see @ref{Interpolation}). Also there is a function @ref{evaluate} which do interpolation of data array for values of each data element of index data. It look as indirect access to the data elements.
 
-Let me now show how to plot the data. MathGL generally has 2 types of plotting functions. Simple variant requires a single data array for plotting, other data (coordinates) are considered uniformly distributed in interval @var{Min}*@var{Max}. Second variant requires data arrays for all coordinates. It allows one to plot rather complex multivalent curves and surfaces (in case of parametric dependencies). Argument setting to default values allows one to plot data in standard form. Manual arguments setting gives possibility for fine tuning of colors, positions and view of graphics. Note, that the call of drawing function adds something to picture but does not clear the previous plots (as it does in Matlab). Another difference from Matlab is that all setup (like transparency, lightning, axis borders and so on) must be specified @strong{before} plotting functions.
+This function have inverse function @ref{solve} which find array of indexes at which data array is equal to given value (i.e. work as root finding). But @ref{solve} function have the issue -- usually multidimensional data (2d and 3d ones) have an infinite number of indexes which give some value. This is contour lines for 2d data, or isosurface(s) for 3d data. So, @ref{solve} function will return index only in given direction, assuming that other index(es) are the same as equidistant index(es) of original data. Let me demonstrate this on the following sample.
 
-@menu
-* Plots for 1D data::           
-* Plots for 2D data::           
-* Plots for 3D data::           
-* Surface transparency::        
-@end menu
+@verbatim
+zrange 0 1
+new x 20 30 '(x+2)/3*cos(pi*y)'
+new y 20 30 '(x+2)/3*sin(pi*y)'
+new z 20 30 'exp(-6*x^2-2*sin(pi*y)^2)'
+
+subplot 2 1 0:title 'Cartesian space':rotate 30 -40
+axis 'xyzU':box
+xlabel 'x':ylabel 'y'origin 1 1:grid 'xy'
+mesh x y z
+
+# section along 'x' direction
+solve u x 0.5 'x'
+var v u.nx 0 1
+evaluate yy y u v
+evaluate xx x u v
+evaluate zz z u v
+plot xx yy zz 'k2o'
+
+# 1st section along 'y' direction
+solve u1 x -0.5 'y'
+var v1 u1.nx 0 1
+evaluate yy y v1 u1
+evaluate xx x v1 u1
+evaluate zz z v1 u1
+plot xx yy zz 'b2^'
+
+# 2nd section along 'y' direction
+solve u2 x -0.5 'y' u1
+evaluate yy y v1 u2
+evaluate xx x v1 u2
+evaluate zz z v1 u2
+plot xx yy zz 'r2v'
+
+subplot 2 1 1:title 'Accompanied space'
+ranges 0 1 0 1:origin 0 0
+axis:box:xlabel 'i':ylabel 'j':grid2 z 'h'
+
+plot u v 'k2o':line 0.4 0.5 0.8 0.5 'kA'
+plot v1 u1 'b2^':line 0.5 0.15 0.5 0.3 'bA'
+plot v1 u2 'r2v':line 0.5 0.7 0.5 0.85 'rA'
+@end verbatim
+
+@pfig{solve, Example of data interpolation and root finding}
 
 @c ------------------------------------------------------------------
 @external
-@node Plots for 1D data, Plots for 2D data, , Data plotting
-@subsection Plots for 1D data
+@node Data plotting, 1D samples, Data handling, Examples
+@section Data plotting
 
-Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. There are 5 generally different types of data representations: simple line plot, line plot with filling under it, stairs plot, bar plot and vertical lines (@pxref{1D plotting}). Each type of plotting has similar interface. There are 3D version and two 2D versions. One of last requires single array. The parameters of line and marks (@pxref{Line styles}) are specified by the string argument. If the string parameter is @code{NULL} then solid line with color from palette is used.
+Let me now show how to plot the data. Next section will give much more examples for all plotting functions. Here I just show some basics. MathGL generally has 2 types of plotting functions. Simple variant requires a single data array for plotting, other data (coordinates) are considered uniformly distributed in axis range. Second variant requires data arrays for all coordinates. It allows one to plot rather complex multivalent curves and surfaces (in case of parametric dependencies). Usually each function have one textual argument for plot style and accept options (see @ref{Command options}).
 
-Below I shall show the features of 1D plotting on base of @code{plot} function (@pxref{1D plotting}). Let us start from sinus plot:
+Note, that the call of drawing function adds something to picture but does not clear the previous plots (as it does in Matlab). Another difference from Matlab is that all setup (like transparency, lightning, axis borders and so on) must be specified @strong{before} plotting functions.
+
+Let start for plots for 1D data. Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. The textual argument allow you specify styles of line and marks (see @ref{Line styles}). If this parameter is empty @code{''} then solid line with color from palette is used (see @ref{Palette and colors}).
+
+Below I shall show the features of 1D plotting on base of @ref{plot} function. Let us start from sinus plot:
 @verbatim
-new y0 50: modify y0 'sin(pi*(2*x-1))'
+new y0 50 'sin(pi*x)'
 subplot 2 2 0
-plot y0: box
+plot y0:box
 @end verbatim
-Style of line is not specified in @code{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
+Style of line is not specified in @ref{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
 @verbatim
 subplot 2 2 1
 new y1 50 2
-modify y1 'sin(pi*2*x-pi)'
-modify y1 'cos(pi*2*x-pi)/2' 1
-plot y1: box
+fill y1 'cos(pi*(x+y/4))*2/(y+3)'
+plot y1:box
 @end verbatim
 As previously I did not specify the style of lines. As a result, MathGL again uses solid line with next colors in palette (there are green and red). Now let us plot a circle on the same subplot. The circle is parametric curve @math{x=cos(\pi t), y=sin(\pi t)}. I will set the color of the circle (dark yellow, @samp{Y}) and put marks @samp{+} at point position:
 @verbatim
-new x 50: modify x 'cos(pi*2*x-pi)'
+new x 50 'cos(pi*x)'
 plot x y0 'Y+'
 @end verbatim
-Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @code{Plot2} function. Let us draw ellipse by orange dash line:
+Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @ref{plot} and @ref{subdata} functions. Let us draw ellipse by orange dash line:
 @verbatim
-plot y1(:,0) y(:,1) 'q|'
+plot y1(:,0) y1(:,1) 'q|'
 @end verbatim
 
 Drawing in 3D space is mostly the same. Let us draw spiral with default line style. Now its color is 4-th color from palette (this is cyan):
 @verbatim
 subplot 2 2 2:rotate 60 40
-new z 50: modify z '2*x-1'
+new z 50 'x'
 plot x y0 z:box
 @end verbatim
-Function @code{Plot3} does 3D curve plot but for single array. Use it to put circle marks on the previous plot:
+Functions @ref{plot} and @ref{subdata} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
 @verbatim
-new y2 10 3:modify y2 'cos(pi*(2*x-1+y))'
+new y2 10 3 'cos(pi*(x+y/2))'
 modify y2 '2*x-1' 2
 plot y2(:,0) y2(:,1) y2(:,2) 'bo '
 @end verbatim
@@ -408,39 +767,27 @@ subplot 2 2 3:rotate 60 40
 bars x y0 z 'r':box
 @end verbatim
 
-@mreal
-@image{../png/sample8, 7cm}
-@caption{Example of 1D data plot}
-@end mreal
-
-@c ------------------------------------------------------------------
-@external
-@node Plots for 2D data, Plots for 3D data, Plots for 1D data, Data plotting
-@subsection Plots for 2D data
-
-Surfaces @code{Surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not by line style but by the color scheme of the plot (@pxref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{'BbwrR'}). Last one is the popular ``jet'' scheme (string @samp{'BbcyrR'}).
+Surfaces @ref{surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
 
 Now I shall show the example of a surface drawing. At first let us switch lightning on
 @verbatim
-light on: light 0 0 0 1
+light on
 @end verbatim
 and draw the surface, considering coordinates x,y to be uniformly distributed in interval @var{Min}*@var{Max}
 @verbatim
-new a0 50 40
-modify a0 '0.6*sin(2*pi*x)*sin(3*pi*y)+0.4*cos(3*pi*(x*y))'
+new a0 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
 subplot 2 2 0:rotate 60 40
-surf a0: box
+surf a0:box
 @end verbatim
 Color scheme was not specified. So previous color scheme is used. In this case it is default color scheme (``jet'') for the first plot. Next example is a sphere. The sphere is parametrically specified surface:
 @verbatim
-new x 50 40: new y 50 40: new z 50 40
-modify x '0.8*sin(2*pi*x)*sin(pi*y)'
-modify y '0.8*cos(2*pi*x)*sin(pi*y)'
-modify z '0.8*cos(pi*y)'
+new x 50 40 '0.8*sin(pi*x)*cos(pi*y/2)'
+new y 50 40 '0.8*cos(pi*x)*cos(pi*y/2)'
+new z 50 40 '0.8*sin(pi*y/2)'
 subplot 2 2 1:rotate 60 40
-surf x y z 'bbwrr': box
+surf x y z 'BbwrR':box
 @end verbatim
-I set color scheme to @code{'BbwrR'} that corresponds to red top and blue bottom of the sphere.
+I set color scheme to @code{"BbwrR"} that corresponds to red top and blue bottom of the sphere.
 
 Surfaces will be plotted for each of slice of the data if @var{nz}>1. Next example draws surfaces for data arrays with @var{nz}=3:
 @verbatim
@@ -450,355 +797,1841 @@ modify a1 '0.6*cos(2*pi*x)*cos(3*pi*y)+0.4*sin(3*pi*(x*y))' 1
 modify a1 '0.6*cos(2*pi*x)*cos(3*pi*y)+0.4*cos(3*pi*(x*y))' 2
 subplot 2 2 2:rotate 60 40
 alpha on
-surf a1: box
+surf a1:box
 @end verbatim
 Note, that it may entail a confusion. However, if one will use density plot then the picture will look better:
 @verbatim
-subplot 2 2 3: rotate 60 40
-dens a1: box
+subplot 2 2 3:rotate 60 40
+dens a1:box
 @end verbatim
-Note, that the previous color scheme is used in last plots because there are no direct specification of the one.
 
-@mreal
-@image{../png/sample9, 7cm}
-@caption{Example of surface plot for 2D data}
-@end mreal
+Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@ref{grid} or @ref{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @ref{axial}) this flag switches the  face drawing off and figure becomes wired.
+@c ------------------------------------------------------------------
+@external
+@node 1D samples, 2D samples, Data plotting, Examples
+@section 1D samples
 
-Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@code{grid} or @code{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @code{axial}) this flag switches the  face drawing off. Figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
+This section is devoted to visualization of 1D data arrays. 1D means the data which depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. Most of samples will use the same data for plotting. So, I put its initialization in separate function
 @verbatim
-alpha on: light on: light 0 0 0 1
-new a 30 20
-modify a '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
-
-subplot 2 2 0: rotate 40 60
-surf a 'bbcyrr#': box
-subplot 2 2 1: rotate 40 60
-dens a 'bbcyrr#': box
-subplot 2 2 2: rotate 40 60
-cont a 'bbcyrr#': box
-subplot 2 2 3: rotate 40 60
-axial a 'bbcyrr#': box
+func 'prepare1d'
+new y 50 3
+modify y '0.7*sin(2*pi*x)+0.5*cos(3*pi*x)+0.2*sin(pi*x)'
+modify y 'sin(2*pi*x)' 1
+modify y 'cos(2*pi*x)' 2
+new x1 50 'x'
+new x2 50 '0.05-0.03*cos(pi*x)'
+new y1 50 '0.5-0.3*cos(pi*x)'
+new y2 50 '-0.3*sin(pi*x)'
+return
 @end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Plot sample::
+* Radar sample::
+* Step sample::
+* Tens sample::
+* Area sample::
+* Region sample::
+* Stem sample::
+* Bars sample::
+* Barh sample::
+* Cones sample::
+* Chart sample::
+* BoxPlot sample::
+* Candle sample::
+* Error sample::
+* Mark sample::
+* TextMark sample::
+* Label sample::
+* Table sample::
+* Tube sample::
+* Tape sample::
+* Torus sample::
+@end menu
 
-@mreal
-@image{../png/samplea, 7cm}
-@caption{Example of 2D data plot with color scheme contained @samp{#} symbol}
-@end mreal
 
 @c ------------------------------------------------------------------
-@external
-@node Plots for 3D data, Surface transparency, Plots for 2D data, Data plotting
-@subsection Plots for 3D data
+@c @external
+@node Plot sample, Radar sample, , 1D samples
+@subsection Plot sample
 
-Drawing procedures for 3D plot looks similarly to 1D and 2D plots described above. There are 3 general types of 3D plots (@pxref{3D plotting}): (i) plots on slices or on projections, (ii) isosurfaces, (iii) cloud-like plots. Plots on slice are clear enough -- one specifies a slice (as its index or as coordinate value) and MathGL draws contour lines or density plot on slice plane. Isosurface gives more information. Isosurface is 3D analogue of the contour line @code{cont}. It shows the region where data array values exceed specified isosurface level. Plot becomes more informative if one adds transparency, lightning or sets color scheme depending on coordinates. Generalization of isosurface is the cloud-like plot. For this plot the darker color and less transparent regions correspond to higher values of data. Contrary, the regions with low values are transparent. For plotting of the phase of fields (or beams or pulses) one can use isosurface which transparency depends on the other data array (see function @code{surf3a}). As example of 3D data plots let us draw the Gaussian beam diffraction in space. Beam propagates along @var{x} axis:
+Command @ref{plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
 @verbatim
-alpha on: light on
-light 0 0 0 1
-new a 30 30 30: new b 30 30 30
-modify a 'exp(-16*((z-0.5)^2+(y-0.5)^2)/(1+4*x^2))'
-modify b '16*((z-0.5)^2+(y-0.5)^2)*(x)/(1+4*x^2)'
-caxis 0 1
+call 'prepare1d'
+subplot 2 2 0 '':title 'Plot plot (default)':box
+plot y
+
+subplot 2 2 2 '':title ''!' style; 'rgb' palette':box
+plot y 'o!rgb'
+
+subplot 2 2 3 '':title 'just markers':box
+plot y ' +'
 
-subplot 2 2 0: rotate 40 60
-surf3 a 'wgk': box
-subplot 2 2 1: rotate 40 60
-densa a: box: axis
-subplot 2 2 2: rotate 40 60
-cloud a: box
-subplot 2 2 3: rotate 40 60
-surf3a b a 'q': box
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+plot xc yc z 'rs'
 @end verbatim
 
-@mreal
-@image{../png/sampleb, 7cm}
-@caption{Example of Gaussian beam diffraction (3D data)}
-@end mreal
+@pfig{plot, Example of Plot()}
 
 
 @c ------------------------------------------------------------------
-@external
-@node Surface transparency, , Plots for 3D data, Data plotting
-@subsection Surface transparency
-
-MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @code{Alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+@c @external
+@node Radar sample, Step sample, Plot sample, 1D samples
+@subsection Radar sample
 
-First, the selected surface will be non-transparent if one sets the flag @code{transparent} before the surface drawing and sets it off after the drawing.
+Command @ref{radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
+@verbatim
+new yr 10 3 '0.4*sin(pi*(x+1.5+y/2)+0.1*rnd)'
+subplot 1 1 0 '':title 'Radar plot (with grid, "\#")'
+radar yr '#'
+@end verbatim
 
-Second, the value of transparency can be different from surface to surface. To do it just change the value of @code{alphadef} before the drawing of the selected surface. If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent. This is some analogue of @code{transparent on}.
+@pfig{radar, Example of Radar()}
 
-Third feature is the changing of the way how the light goes through overlapped surfaces. The variable @code{transptype} defines it. By default the usual transparency is used (@code{transptype 0}) -- surfaces below is less visible than the upper ones. A ``glass-like'' transparency (@code{transptype 1}) has a different look when the surface just decreases the background light (the surfaces are commutable in this case).
+@c ------------------------------------------------------------------
+@c @external
+@node Step sample, Tens sample, Radar sample, 1D samples
+@subsection Step sample
 
-A ``neon-like'' transparency (@code{transptype 2}) has more interesting look. In this case a surface is the light source (like a lamp on the dark background) and just adds some intensity to the color. At this, the library sets automatically the black color for the background and changes the default line color to white.
+Command @ref{step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
+@verbatim
+call 'prepare1d'
+origin 0 0 0:subplot 2 2 0 '':title 'Step plot (default)':box
+step y
 
-As example I shall show the variant of plot from @ref{Plots for 2D data} (grid drawing is disabled) for different types of transparency.
-@mreal
-@image{../png/type0, 7cm}
-@caption{Example of @code{TranspType=0}.}
-@end mreal
-@mreal
-@image{../png/type1, 7cm}
-@caption{Example of @code{TranspType=1}.}
-@end mreal
-@mreal
-@image{../png/type2, 7cm}
-@caption{Example of @code{TranspType=2}.}
-@end mreal
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+step xc yc z 'r'
 
+subplot 2 2 2 '':title '"!" style':box
+step y 's!rgb'
+@end verbatim
 
+@pfig{step, Example of Step()}
 
 @c ------------------------------------------------------------------
-@external
-@node Hints, , Data plotting, Examples
-@section Hints
+@c @external
+@node Tens sample, Area sample, Step sample, 1D samples
+@subsection Tens sample
 
-In this section I have included some small hints and advices for the improving of the quality of plots and for the demonstration of some non-trivial features of MathGL library. In contrast to previous examples I showed mostly the idea but not the whole drawing function. More examples with the source code can be find at @uref{http://mathgl.sf.net/} or in section @ref{Samples}.
+Command @ref{tens} is variant of @ref{plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
+@verbatim
+call 'prepare1d'
+subplot 2 2 0 '':title 'Tens plot (default)':box
+tens y(:,0) y(:,1)
 
-@menu
-* ``Compound'' graphics::       
-* Two axes in one plot::        
-* Titles for the plot::         
-* Changing of the color range:: 
-* Management of a point cutting::
-* Vector field visualization::  
-* Several light sources::       
-* CutMin and CutMax features::  
-* Mapping visualization::       
-* Log-scaled plot::             
-* Nonlinear fitting hints::     
-* PDE solving hints::           
-* Stereo image::                
-@end menu
+subplot 2 2 2 '':title ' style':box
+tens y(:,0) y(:,1) 'o '
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+tens xc yc z z 's'
+@end verbatim
+
+@pfig{tens, Example of Tens()}
 
 @c ------------------------------------------------------------------
-@external
-@node ``Compound'' graphics, Two axes in one plot, , Hints
-@subsection ``Compound'' graphics
+@c @external
+@node Area sample, Region sample, Tens sample, 1D samples
+@subsection Area sample
 
-As I noted above, MathGL functions (except the special one, like @code{clf}) do  not erase the previous plotting but just add the new one. It allows one to draw ``compound'' plots easily. For example, popular Matlab command @code{surfc} can be emulated in MathGL by 2 calls:
+Command @ref{area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
 @verbatim
-surf a
-cont a 0 7 -1   # draw contours at z = -1
-@end verbatim
-Here @var{a} is 2-dimensional data for the plotting, @code{-1} is the value of z-coordinate at which the contour should be plotted (at the bottom in this example). Analogously, one can draw density plot instead of contour lines and so on.
+call 'prepare1d'
+origin 0 0 0
+subplot 2 2 0 '':title 'Area plot (default)':box
+area y
 
-Another nice plot is contour lines plotted directly on the surface:
-@verbatim
-light on        # switch on light for the surface
-surf a 'bbcyrr' # select 'jet' colormap for the surface
-cont a 'y'      # and yellow color for contours
+subplot 2 2 1 '':title '2 colors':box
+area y 'cbgGyr'
+
+subplot 2 2 2 '':title '"!" style':box
+area y '!'
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+area xc yc z 'r'
 @end verbatim
-The possible difficulties arise in black&white case, when the color of the surface can be close to the color of a contour line. In that case I may suggest the following code:
+
+@pfig{area, Example of Area()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Region sample, Stem sample, Area sample, 1D samples
+@subsection Region sample
+
+Command @ref{region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
 @verbatim
-light on        # switch on light for the surface
-surf a 'kw'     # select 'gray' colormap for the surface
-caxis -1 0      # first draw for darker surface colors
-conta 'w'       # white contours
-caxis 0 1       # now draw for brighter surface colors
-cont a 'k'      # black contours
+call 'prepare1d'
+copy y1 y(:,1):copy y2 y(:,2)
+subplot 2 2 0 '':title 'Region plot (default)':box
+region y1 y2:plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 1 '':title '2 colors':box
+region y1 y2 'yr':plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 2 '':title '"!" style':box
+region y1 y2 '!':plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 3 '':title '"i" style':box
+region y1 y2 'ir':plot y1 'k2':plot y2 'k2'
 @end verbatim
-The idea is to divide the color range on 2 parts (dark and bright) and to select the contrasting color for contour lines for each of part.
 
-Similarly, one can plot flow thread over density plot of vector field amplitude (this is another amusing plot from Matlab) and so on. The list of compound graphics can be prolonged but I hope that the general idea is clear.
+@pfig{region, Example of Region()}
 
 @c ------------------------------------------------------------------
-@external
-@node Two axes in one plot, Titles for the plot, ``Compound'' graphics, Hints
-@subsection Two axes in one plot
+@c @external
+@node Stem sample, Bars sample, Region sample, 1D samples
+@subsection Stem sample
 
-Developing the previous hint one can make a plot with 2 or more axes. The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes plot let us set the first axis and draw everything concerning it. Then let us setup the second axis and draw things for the second axis. The corresponding code is (@pxref{2-axes sample}):
+Command @ref{stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
 @verbatim
-# set up first axis
-axis -1 -1 1 1: origin -1 -1
-axis:fplot 'sin(pi*x)'      # draw something in first axis
-# set up second axis
-axis 0 0 1 1: origin 1 1
-axis: fplot 'cos(4*pi*x^2)' # draw something in second axis
+call 'prepare1d'
+origin 0 0 0:subplot 2 2 0 '':title 'Stem plot (default)':box
+stem y
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+stem xc yc z 'rx'
+
+subplot 2 2 2 '':title '"!" style':box
+stem y 'o!rgb'
 @end verbatim
-Note, that the first and the second axes look better if being placed in different corners. In the code presented above the first axis is placed in the left-bottom corner, and the second one is placed in the right-top corner.
+
+@pfig{stem, Example of Stem()}
 
 @c ------------------------------------------------------------------
-@external
-@node Titles for the plot, Changing of the color range, Two axes in one plot, Hints
-@subsection Titles for the plot
+@c @external
+@node Bars sample, Barh sample, Stem sample, 1D samples
+@subsection Bars sample
 
-The printing of nice titles for the plot is not so trivial task in general case. The problem is that the rotation and aspect change lead to different looks for titles of different subplots. So, the resulting look is not so good as it could be. The solution is simple -- to print titles exactly after @code{subplot} call and before any rotation, aspect change and so on! Analogously, the title for the whole picture looks better if it is printed first (before any @code{subplot} calls). Alternatively you can use function @code{title} for plotting title for the picture at any time.
+Command @ref{bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
+@verbatim
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0
+subplot 3 2 0 '':title 'Bars plot (default)':box
+bars ys
 
-@c ------------------------------------------------------------------
-@external
-@node Changing of the color range, Management of a point cutting, Titles for the plot, Hints
-@subsection Changing of the color range
+subplot 3 2 1 '':title '2 colors':box
+bars ys 'cbgGyr'
 
-By default (for the user comfort), the color range is set equal to z-range of the plot. However, there are different ranges. So, one can obtain amusing plot by the change of color range manually. For example, there are plots with one-color bottom (or top) or practically bi-color picture and so on.
+subplot 3 2 4 '':title '"\#" style':box
+bars ys '#'
 
-For example, compare 2 surfaces:
-@verbatim
-subplot 2 1 0
-surf a          # usual coloring range
-subplot 2 1 1
-caxis 0 1
-surf a          # bottom of the surface have one-colour filling
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 3 2 5:title '3d variant':rotate 50 60:box
+bars xc yc z 'r'
+
+subplot 3 2 2 '':title '"a" style':ranges -1 1 -3 3:box
+bars ys 'a'
+
+subplot 3 2 3 '':title '"f" style':box
+bars ys 'f'
 @end verbatim
 
-@c ------------------------------------------------------------------
-@external
-@node Management of a point cutting, Vector field visualization, Changing of the color range, Hints
-@subsection Management of a point cutting
+@pfig{bars, Example of Bars()}
 
-Sometimes an experimental or numerical surface has outstanding points. Visualization of such surface will lead to the hole(s) in place of such points. The standard method of ``fighting'' -- to change data values -- is not always good and is not so convenient. MathGL library has another method -- to set variable @code{cut off}. As a consequence, all outstanding points will be projected on the bounding box.
+@c ------------------------------------------------------------------
+@c @external
+@node Barh sample, Cones sample, Bars sample, 1D samples
+@subsection Barh sample
 
-Such method is good not only for outstanding points but also for the case when one need to plane the bottom or the top of the plot. Exactly such case is demonstrated in the code:
+Command @ref{barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
 @verbatim
-new a 20 30     # create some data
-modify a '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
-# set lower border above the data minimal value
-axis -1 -1 0 1 1 1:rotate 40 60
-cut off         # set off cutting flag
-surf a          # and draw the surface
-@end verbatim
-It is an interesting result, is not it?
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0
+subplot 2 2 0 '':title 'Barh plot (default)':box
+barh ys
 
-@c ------------------------------------------------------------------
-@external
-@node Vector field visualization, Several light sources, Management of a point cutting, Hints
-@subsection Vector field visualization
+subplot 2 2 1 '':title '2 colors':box
+barh ys 'cbgGyr'
 
-Vector field visualization (especially in 3d case @code{vect3} or @code{vectc}) may look tangly -- there are too many overlapping lines. I may suggest 2 ways to solve this problem. The first one is to change @code{meshnum} for decreasing the number of hachures. The second way is to use the flow thread chart @code{Flow}. Unfortunately, I don't know any other methods to visualize 3d vector field. If you know any, e-mail me and I shall add it to MathGL.
+ranges -3 3 -1 1:subplot 2 2 2 '':title '"a" style':box:barh ys 'a'
+subplot 2 2 3 '': title '"f" style':box
+barh ys 'f'
+@end verbatim
+
+@pfig{barh, Example of Barh()}
 
 @c ------------------------------------------------------------------
-@external
-@node Several light sources, CutMin and CutMax features, Vector field visualization, Hints
-@subsection Several light sources
+@c @external
+@node Cones sample, Chart sample, Bars sample, 1D samples
+@subsection Cones sample
 
-In contrast to the most of other programs, MathGL supports several (up to 10) light sources. Moreover, the color each of them can be different: white (this is usual), yellow, red, cyan, green and so on. The use of several light sources may be interesting for the highlighting of some peculiarities of the plot or just to make an amusing picture. Note, each light source can be switched on/off individually (@pxref{Several light sample}).
+Command @ref{cones} is similar to @code{Bars} but draw cones. The sample code is:
+@verbatim
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'
+origin 0 0 0:light on
+subplot 2 2 0:title 'Cones plot':rotate 50 60:box
+cones ys
 
-@c ------------------------------------------------------------------
-@external
-@node CutMin and CutMax features, Mapping visualization, Several light sources, Hints
-@subsection CutMin and CutMax features
+subplot 2 2 1:title '2 colors':rotate 50 60:box
+cones ys 'cbgGyr'
 
-MathGL library has a feature for cutting of points in some region @var{CutMin*CutMax}. Such an excision can be used to improve the look of the graphics. Moreover, this cutting may help to show an internal structure of an object (like @code{isocaps} plot in Matlab). For example, let us use the standard 3D data array and show its interior (@pxref{CutMinMax sample}).
+subplot 2 2 2:title '"\#" style':rotate 50 60:box
+cones ys '#'
 
-@verbatim
-new c 61 51 40      # create the data
-new v 10: fill v -0.5 1
-modify c '(-2*((2*x-1)^2 + (2*y-1)^2 + (2*z-1)^4 - (2*z-1)^2 - 0.1))'
-cut 0 -1 -1 1 0 1.1
-rotate 40 60:       surf3 c -0.5 'bbcyrr'
-contf3 v c 'x' -1 'bbcyrr': contf3 v c 'y' -1 'bbcyrr'
-contf3 v c 'z' 0 'bbcyrr':  contf3 v c 'z' 39 'bbcyrr'
+subplot 2 2 3:title '"a" style':rotate 50 60:zrange -2 2:box
+cones ys 'a'
 @end verbatim
 
-One can also exclude points from arbitrary area in space. This area defined by textual formula @code{cut} (@pxref{Cutting}). The algorithm is the same as shown for ``rectangular cutting''.
+@pfig{cones, Example of Cones()}
 
 @c ------------------------------------------------------------------
-@external
-@node Mapping visualization, Log-scaled plot, CutMin and CutMax features, Hints
-@subsection Mapping visualization
+@c @external
+@node Chart sample, BoxPlot sample, Cones sample, 1D samples
+@subsection Chart sample
+
+Command @ref{chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
+@verbatim
+new ch 7 2 'rnd+0.1':light on
+subplot 2 2 0:title 'Chart plot (default)':rotate 50 60:box
+chart ch
 
-Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @code{surfc}, @code{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+subplot 2 2 1:title '"\#" style':rotate 50 60:box
+chart ch '#'
 
-I tried to make such plot in @code{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+subplot 2 2 2:title 'Pie chart; " " color':rotate 50 60:
+axis '(y+1)/2*cos(pi*x)' '(y+1)/2*sin(pi*x)' '':box
+chart ch 'bgr cmy#'
 
-@c ------------------------------------------------------------------
-@external
-@node Log-scaled plot, Nonlinear fitting hints, Mapping visualization, Hints
-@subsection Log-scaled plot
+subplot 2 2 3:title 'Ring chart; " " color':rotate 50 60:
+axis '(y+2)/3*cos(pi*x)' '(y+2)/3*sin(pi*x)' '':box
+chart ch 'bgr cmy#'
+@end verbatim
 
-Log-scaled plot can be drawn by 2 steps. First, one should change the scale of axis by call @code{axis 'lg(x)' 'lg(y)'} (in this example, x- and y-axis will be log-scaled). Second, one should set logarithmic scale for axis ticks by changing variables: @code{xtick 0: yticks 0}. Finally, one should check (or change) the axis ranges and origin so that their values to be positive. For example of log-log plot @pxref{Log-log sample}.
+@pfig{chart, Example of Chart()}
 
 @c ------------------------------------------------------------------
-@external
-@node Nonlinear fitting hints, PDE solving hints, Log-scaled plot, Hints
-@subsection Nonlinear fitting hints
+@c @external
+@node BoxPlot sample, Candle sample, Chart sample, 1D samples
+@subsection BoxPlot sample
 
-Nonlinear fitting is rather simple. All that you need is the data to fit, the approximation formula and the list of coefficients to fit (better with its initial guess values). Let me demonstrate it on the following simple example (@pxref{Fitting sample}). First, let us use sin function with some random noise:
-@verbatim
-new rnd 100: new idl 50 # data to be fitted and ideal data
-modify rnd '0.4*rnd+0.1+sin(4*pi*x)'
-modify idl '0.3+sin(4*pi*x)'
-@end verbatim
-and plot it to see that data we will fit
+Command @ref{boxplot} draw box-and-whisker diagram. The sample code is:
 @verbatim
-axis -1 -2 1 2
-plot rnd '. ':plot idl 'b'
-box:text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'C:b' -1
+new a 10 7 '(2*rnd-1)^3/2'
+subplot 1 1 0 '':title 'Boxplot plot':box
+boxplot a
 @end verbatim
 
-The next step is the fitting itself. For that let me specify an initial values @var{ini} for coefficients @samp{abc} and do the fitting for approximation formula @samp{a+b*sin(c*x)}
-@verbatim
-new res     # The data for found formula
-fit res rnd 'a+b*sin(c*x)' 'abc' [1, 1, 3]
-@end verbatim
-Now display it
+@pfig{boxplot, Example of BoxPlot()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Candle sample, Error sample, BoxPlot sample, 1D samples
+@subsection Candle sample
+
+Command @ref{candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
 @verbatim
-plot res 'r'
-text -1 -1.3 'fitted:' 'L:r' -1
-putsfit 0 -1.8 'y = ' 'C:r' -1
+new y 30 'sin(pi*x/2)^2':copy y1 y/2:copy y2 (y+1)/2
+subplot 1 1 0 '':title 'Candle plot (default)':yrange 0 1:box
+candle y y1 y2
 @end verbatim
 
-NOTE! the fitting results may have strong dependence on initial values for coefficients due to algorithm features. The problem is that in general case there are several local 'optimums' for coefficients and the program returns only first found one! There are no guaranties that it will be the best. Try for example to set @code{ini = [0, 0, 0]} in the code above.
+@pfig{candle, Example of Candle()}
 
 @c ------------------------------------------------------------------
-@external
-@node PDE solving hints, Stereo image, Nonlinear fitting hints, Hints
-@subsection PDE solving hints
+@c @external
+@node Error sample, Mark sample, Candle sample, 1D samples
+@subsection Error sample
 
-Solving of Partial Differential Equations (PDE, including beam tracing) and ray tracing (or finding particle trajectory) are more or less common task. So, MathGL have several functions for that. There are @code{ray} for ray tracing, @code{pde} for PDE solving, @code{qo2d} for beam tracing in 2D case. Note, that these functions take ``Hamiltonian'' or equations as string values. And I don't plan now to allow one to use user-defined functions. There are 2 reasons: the complexity of corresponding interface; and the basic nature of used methods which are good for samples but may not good for serious scientific calculations.
-
-The ray tracing can be done by @code{ray} function. Really ray tracing equation is Hamiltonian equation for 3D space. So, the function can be also used for finding a particle trajectory (i.e. solve Hamiltonian ODE) for 1D, 2D or 3D cases. The function have a set of arguments. First of all, it is Hamiltonian which defined the media (or the equation) you are planning to use. The Hamiltonian is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z}, time @samp{t} (for particle dynamics) and momentums @samp{p}=@math{p_x}, @samp{q}=@math{p_y}, @samp{v}=@math{p_z}. Next, you have to define the initial conditions for coordinates and momentums at @samp{t}=0 and set the integrations step (default is 0.1) and its duration (default is 10). The Runge-Kutta method of 4-th order is used for integration.
+Command @ref{error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
 @verbatim
-new re 128:new im 128
-ray r 'p^2+q^2-x-1' -0.7 -1 0 0 0.5 0
-plot r(0) r(1)
-@end verbatim
-This example calculate the reflection from linear layer (media with Hamiltonian @samp{p^2+q^2-x-1}=@math{p_x^2+p_y^2-x-1}). This is parabolic curve. The resulting array have 7 columns which contain data for @{x,y,z,p,q,v,t@}.
+call 'prepare1d'
+new y 50 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2)'
+new x0 10 'x + 0.1*rnd-0.05':new ex 10 '0.1':new ey 10 '0.2'
+new y0 10 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2) + 0.2*rnd-0.1'
+
+subplot 2 2 0 '':title 'Error plot (default)':box:plot y
+error x0 y0 ex ey 'k'
+
+subplot 2 2 1 '':title '"!" style; no e_x':box:plot y
+error x0 y0 ey 'o!rgb'
+
+subplot 2 2 2 '':title '"\@" style':box:plot y
+error x0 y0 ex ey '@'; alpha 0.5
 
-The solution of PDE is a bit more complicated. As previous you have to specify the equation as pseudo-differential operator @math{\hat H(x, \nabla)} which is called sometime as ``Hamiltonian'' (for example, in beam tracing). As previously, it is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z} (but not time!), momentums @samp{p}=@math{(d/dx)/i k_0}, @samp{q}=@math{(d/dy)/i k_0} and field amplitude @samp{u}=@math{|u|}. The evolutionary coordinate is @samp{z} in all cases. So that, the equation look like @math{du/dz = ik_0 H(x,y,\hat p, \hat q, |u|)[u]}. Dependence on field amplitude @samp{u}=@math{|u|} allows one to solve nonlinear problems too. For example, for nonlinear Shrodinger equation you may set @code{ham='p^2 + q^2 - u^2'}. Also you may specify imaginary part for wave absorption, like @code{ham = 'p^2 + i*x*(x>0)'}, but only if dependence on variable @samp{i} is linear (i.e. @math{H = Hre+i*Him}).
+subplot 2 2 3:title '3d variant':rotate 50 60:axis
+for $1 0 9
+  errbox 2*rnd-1 2*rnd-1 2*rnd-1 0.2 0.2 0.2 'bo'
+next
+@end verbatim
 
-Next step is specifing the initial conditions at @samp{z}=@code{Min.z}. The function need 2 arrays for real and for imaginary part. Note, that coordinates x,y,z are supposed to be in specified range [Min, Max]. So, the data arrays should have corresponding scales. Finally, you may set the integration step and paramter k0=@math{k_0}. Also keep in mind, that internally the 2 times large box is used (for suppressing numerical reflection from boundaries) and the equation should well defined even in this extended range.
+@pfig{error, Example of Error()}
 
-Final comment is concerning the possible form of pseudo-differential operator @math{H}. At this moment, simplified form of operator @math{H} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this operator is effectively @math{H = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed for 3D case. 
+@c ------------------------------------------------------------------
+@c @external
+@node Mark sample, TextMark sample, Error sample, 1D samples
+@subsection Mark sample
 
-So, for example let solve the equation for beam deflected from linear layer and absorbed later. The operator will have the form @samp{'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)'} that correspond to equation @math{ik_0 \partial_z u + \Delta u + x \cdot u + i (x+z)/2 \cdot u = 0}. This is typical equation for Electron Cyclotron (EC) absorption in magnetized plasmas. For initial conditions let me select the beam with plane phase front @math{exp(-48*(x+0.7)^2)}. The corresponding code looks like this (@pxref{PDE sample}):
+Command @ref{mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
 @verbatim
-new re 128: new im 128
-fill re 'exp(-48*(x+0.7)^2)'
-pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01, 30
-transpose a 'yxz'
-caxis 0 1
-dens a 'wyrRk'
+call 'prepare1d'
+subplot 1 1 0 '':title 'Mark plot (default)':box
+mark y y1 's'
 @end verbatim
 
-The last example is example of beam tracing. Beam tracing equation is special kind of PDE equation written in coordinates accompanied to a ray. Generally this is the same parameters and limitation as for PDE solving but the coordinates are defined by the ray and by parameter of grid width @var{w} in direction transverse the ray. So, you don't need to specify the range of coordinates. @strong{BUT} there is limitation. The accompanied coordinates are well defined only for smooth enough rays, i.e. then the ray curvature @math{K} (which is defined as @math{1/K^2 = (|\ddot r|^2 |\dot r|^2 - (\ddot r, \dot r)^2)/|\dot r|^6}) is much large then the grid width: @math{K>>w}. So, you may receive incorrect results if this condition will be broken.
+@pfig{mark, Example of Mark()}
 
-You may use following code for obtaining the same solution as in previous example:
+@c ------------------------------------------------------------------
+@c @external
+@node TextMark sample, Label sample, Mark sample, 1D samples
+@subsection TextMark sample
+
+Command @ref{textmark} like @code{Mark} but draw text instead of markers. The sample code is:
 @verbatim
-new re 128: new im 128
-define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'
-ray r $1 -0.7 -1 0 0 0.5 0 0.02 2
-# now start beam tracing
-fill re 'exp(-48*x^2)'
-new xx: new yy
-qo2d a $1 re im r 1 30 xx yy
-caxis 0 1
-dens xx yy a 'wyrRk'
+call 'prepare1d'
+subplot 1 1 0 '':title 'TextMark plot (default)':box
+textmark y y1 '\gamma' 'r'
 @end verbatim
 
+@pfig{textmark, Example of TextMark()}
 
 @c ------------------------------------------------------------------
-@external
-@node Stereo image, , PDE solving hints, Hints
-@subsection Stereo image
+@c @external
+@node Label sample, Table sample, TextMark sample, 1D samples
+@subsection Label sample
 
-One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this (@pxref{Stereo image sample}):
+Command @ref{label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
 @verbatim
-subplot 2 1 0   # left image
-rotate 40 60+3
-# draw something here
-subplot 2 1 1   # right image
-rotate 40 60-3
-# draw the same here
+new ys 10 '0.2*rnd-0.8*sin(pi*x)'
+subplot 1 1 0 '':title 'Label plot':box
+plot ys ' *':label ys 'y=%y'
 @end verbatim
 
+@pfig{label, Example of Label()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Table sample, Tube sample, Label sample, 1D samples
+@subsection Table sample
+
+Command @ref{table} draw table with data values. The sample code is:
+@verbatim
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'
+subplot 2 2 0:title 'Table sample':box
+table ys 'y_1\n{}y_2\n{}y_3'
+
+subplot 2 2 1:title 'no borders, colored'
+table ys 'y_1\n{}y_2\n{}y_3' 'r|'
+
+subplot 2 2 2:title 'no font decrease'
+table ys 'y_1\n{}y_2\n{}y_3' '#'
+
+subplot 2 2 3:title 'manual width and position':box
+table 0.5 0.95 ys 'y_1\n{}y_2\n{}y_3' '#';value 0.7
+@end verbatim
+
+@pfig{table, Example of Table()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Tube sample, Tape sample, Table sample, 1D samples
+@subsection Tube sample
+
+Command @ref{tube} draw tube with variable radius. The sample code is:
+@verbatim
+light on:call 'prepare1d'
+new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x':divto y1 20
+
+subplot 2 2 0 '':title 'Tube plot (default)':box
+tube y 0.05
+
+subplot 2 2 1 '':title 'variable radius':box
+tube y y1
+
+subplot 2 2 2 '':title '"\#" style':box
+tube y 0.05 '#'
+
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+tube xc yc z y2 'r'
+@end verbatim
+
+@pfig{tube, Example of Tube()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Tape sample, Torus sample, Tube sample, 1D samples
+@subsection Tape sample
+
+Command @ref{tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
+@verbatim
+call 'prepare1d'
+new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x'
+
+subplot 2 2 0 '':title 'Tape plot (default)':box
+tape y:plot y 'k'
+
+subplot 2 2 1:title '3d variant, 2 colors':rotate 50 60:light on:box
+plot xc yc z 'k':tape xc yc z 'rg'
+
+subplot 2 2 2:title '3d variant, x only':rotate 50 60:box
+plot xc yc z 'k':tape xc yc z 'xr':tape xc yc z 'xr#'
+
+subplot 2 2 3:title '3d variant, z only':rotate 50 60:box
+plot xc yc z 'k':tape xc yc z 'zg':tape xc yc z 'zg#'
+@end verbatim
+
+@pfig{tape, Example of Tape()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Torus sample, , Tape sample, 1D samples
+@subsection Torus sample
+
+Command @ref{torus} draw surface of the curve rotation. The sample code is:
+@verbatim
+call 'prepare1d'
+subplot 2 2 0:title 'Torus plot (default)':light on:rotate 50 60:box
+torus y1 y2
+
+subplot 2 2 1:title '"x" style':light on:rotate 50 60:box
+torus y1 y2 'x'
+
+subplot 2 2 2:title '"z" style':light on:rotate 50 60:box
+torus y1 y2 'z'
+
+subplot 2 2 3:title '"\#" style':light on:rotate 50 60:box
+torus y1 y2 '#'
+@end verbatim
+
+@pfig{torus, Example of Torus()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node 2D samples, 3D samples, 1D samples, Examples
+@section 2D samples
+
+This section is devoted to visualization of 2D data arrays. 2D means the data which depend on 2 indexes (parameters) like matrix z(i,j)=z(x(i),y(j)), i=1...n, j=1...m or in parametric form @{x(i,j),y(i,j),z(i,j)@}. Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare2d'
+new a 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 50 40 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Surf sample::
+* SurfC sample::
+* SurfA sample::
+* Mesh sample::
+* Fall sample::
+* Belt sample::
+* Boxs sample::
+* Tile sample::
+* TileS sample::
+* Dens sample::
+* Cont sample::
+* ContF sample::
+* ContD sample::
+* ContV sample::
+* Axial sample::
+* Grad sample::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf sample, SurfC sample, , 2D samples
+@subsection Surf sample
+
+Command @ref{surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0:title 'Surf plot (default)':rotate 50 60:light on:box:surf a
+
+subplot 2 2 1:title '"\#" style; meshnum 10':rotate 50 60:box
+surf a '#'; meshnum 10
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+surf a '.'
+
+new x 50 40 '0.8*sin(pi*x)*sin(pi*(y+1)/2)'
+new y 50 40 '0.8*cos(pi*x)*sin(pi*(y+1)/2)'
+new z 50 40 '0.8*cos(pi*(y+1)/2)'
+subplot 2 2 3:title 'parametric form':rotate 50 60:box
+surf x y z 'BbwrR'
+@end verbatim
+
+@pfig{surf, Example of Surf()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node SurfC sample, SurfA sample, Surf sample, 2D samples
+@subsection SurfC sample
+
+Command @ref{surfc} is similar to @ref{surf} but its coloring is determined by another data. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'SurfC plot':rotate 50 60:light on:box
+surfc a b
+@end verbatim
+
+@pfig{surfc, Example of SurfC()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node SurfA sample, Mesh sample, SurfC sample, 2D samples
+@subsection SurfA sample
+
+Command @ref{surfa} is similar to @ref{surf} but its transparency is determined by another data. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'SurfC plot':rotate 50 60:light on:alpha on:box
+surfa a b
+@end verbatim
+
+@pfig{surfa, Example of SurfA()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Mesh sample, Fall sample, SurfA sample, 2D samples
+@subsection Mesh sample
+
+Command @ref{mesh} draw wired surface. You can use @ref{meshnum} for changing number of lines to be drawn. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Mesh plot':rotate 50 60:box
+mesh a
+@end verbatim
+
+@pfig{mesh, Example of Mesh()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Fall sample, Belt sample, Mesh sample, 2D samples
+@subsection Fall sample
+
+Command @ref{fall} draw waterfall surface. You can use @ref{meshnum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Fall plot':rotate 50 60:box
+fall a
+@end verbatim
+
+@pfig{fall, Example of Fall()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Belt sample, Boxs sample, Fall sample, 2D samples
+@subsection Belt sample
+
+Command @ref{belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Belt plot':rotate 50 60:box
+belt a
+@end verbatim
+
+@pfig{belt, Example of Belt()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Boxs sample, Tile sample, Fall sample, 2D samples
+@subsection Boxs sample
+
+Command @ref{boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
+@verbatim
+call 'prepare2d'
+origin 0 0 0
+subplot 2 2 0:title 'Boxs plot (default)':rotate 40 60:light on:box
+boxs a
+
+subplot 2 2 1:title '"\@" style':rotate 50 60:box
+boxs a '@'
+
+subplot 2 2 2:title '"\#" style':rotate 50 60:box
+boxs a '#'
+
+subplot 2 2 3:title 'compare with Tile':rotate 50 60:box
+tile a
+@end verbatim
+
+@pfig{boxs, Example of Boxs()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Tile sample, TileS sample, Boxs sample, 2D samples
+@subsection Tile sample
+
+Command @ref{tile} draw surface by tiles. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Tiles plot':box
+tile a
+@end verbatim
+
+@pfig{tile, Example of Tile()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node TileS sample, Dens sample, Tile sample, 2D samples
+@subsection TileS sample
+
+Command @ref{tiles} is similar to @ref{tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Tiles plot':box
+tiles a b
+@end verbatim
+
+@pfig{tiles, Example of TileS()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens sample, Cont sample, TileS sample, 2D samples
+@subsection Dens sample
+
+Command @ref{dens} draw density plot for surface. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0 '':title 'Dens plot (default)':box
+dens a
+
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+dens a
+
+subplot 2 2 2 '':title '"\#" style; meshnum 10':box
+dens a '#'; meshnum 10
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+dens a1
+@end verbatim
+
+@pfig{dens, Example of Dens()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont sample, ContF sample, Dens sample, 2D samples
+@subsection Cont sample
+
+Command @ref{cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'Cont plot (default)':rotate 50 60:box
+cont a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+cont v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+cont a '_'
+
+subplot 2 2 3 '':title '"t" style':box
+cont a 't'
+@end verbatim
+
+@pfig{cont, Example of Cont()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF sample, ContD sample, Cont sample, 2D samples
+@subsection ContF sample
+
+Command @ref{contf} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContF plot (default)':rotate 50 60:box
+contf a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contf v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contf a '_'
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+contf a1
+@end verbatim
+
+@pfig{contf, Example of ContF()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContD sample, ContV sample, ContF sample, 2D samples
+@subsection ContD sample
+
+Command @ref{contd} is similar to @code{ContF} but with manual contour colors. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContD plot (default)':rotate 50 60:box
+contd a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contd v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contd a '_'
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+contd a1
+@end verbatim
+
+@pfig{contd, Example of ContD()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContV sample, Axial sample, ContD sample, 2D samples
+@subsection ContV sample
+
+Command @ref{contv} draw vertical cylinders (belts) at contour lines. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContV plot (default)':rotate 50 60:box
+contv a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contv v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contv a '_'
+
+subplot 2 2 3:title 'ContV and ContF':rotate 50 60:light on:box
+contv a:contf a:cont a 'k'
+@end verbatim
+
+@pfig{contv, Example of ContV()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Axial sample, Grad sample, ContV sample, 2D samples
+@subsection Axial sample
+
+Command @ref{axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
+@verbatim
+light on:alpha on:call 'prepare2d'
+subplot 2 2 0:title 'Axial plot (default)':rotate 50 60:box
+axial a
+
+subplot 2 2 1:title '"x" style;\".\" style':light on:rotate 50 60:box
+axial a 'x.'
+
+subplot 2 2 2:title '"z" style':light on:rotate 50 60:box
+axial a 'z'
+
+subplot 2 2 3:title '"\#" style':light on:rotate 50 60:box
+axial a '#'
+@end verbatim
+
+@pfig{axial, Example of Axial()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Grad sample, , Axial sample, 2D samples
+@subsection Grad sample
+
+Command @ref{grad} draw gradient lines for matrix. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Grad plot':box
+grad a:dens a '{u8}w{q8}'
+@end verbatim
+
+@pfig{grad, Example of Grad()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node 3D samples, Vector field samples, 2D samples, Examples
+@section 3D samples
+
+This section is devoted to visualization of 3D data arrays. 3D means the data which depend on 3 indexes (parameters) like tensor a(i,j,k)=a(x(i),y(j),x(k)), i=1...n, j=1...m, k=1...l or in parametric form @{x(i,j,k),y(i,j,k),z(i,j,k),a(i,j,k)@}. Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare3d'
+new c 61 50 40 '-2*(x^2+y^2+z^4-z^2)+0.2'
+new d 61 50 40 '1-2*tanh((x+y)*(x+y))'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Surf3 sample::
+* Surf3C sample::
+* Surf3A sample::
+* Cloud sample::
+* Dens3 sample::
+* Cont3 sample::
+* ContF3 sample::
+* Dens projection sample::
+* Cont projection sample::
+* ContF projection sample::
+* TriPlot and QuadPlot::
+* Dots sample::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3 sample, Surf3C sample, , 3D samples
+@subsection Surf3 sample
+
+Command @ref{surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
+@verbatim
+call 'prepare3d'
+light on:alpha on
+subplot 2 2 1:title 'Surf3 plot':rotate 50 60:box
+surf3 c
+
+subplot 2 2 1:title '"\#" style':rotate 50 60:box
+surf3 c '#'
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+surf3 c '.'
+@end verbatim
+
+@pfig{surf3, Example of Surf3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3C sample, Surf3A sample, Surf3 sample, 3D samples
+@subsection Surf3C sample
+
+Command @ref{surf3c} is similar to @ref{surf3} but its coloring is determined by another data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Surf3 plot':rotate 50 60:light on:alpha on:box
+surf3c c d
+@end verbatim
+
+@pfig{surf3c, Example of Surf3C()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3A sample, Cloud sample, Surf3C sample, 3D samples
+@subsection Surf3A sample
+
+Command @ref{surf3a} is similar to @ref{surf3} but its transparency is determined by another data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Surf3 plot':rotate 50 60:light on:alpha on:box
+surf3a c d
+@end verbatim
+
+@pfig{surf3a, Example of Surf3A()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cloud sample, Dens3 sample, Surf3A sample, 3D samples
+@subsection Cloud sample
+
+Command @ref{cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
+@verbatim
+call 'prepare3d'
+subplot 2 2 0:title 'Cloud plot':rotate 50 60:alpha on:box
+cloud c 'wyrRk'
+
+subplot 2 2 1:title '"!" style':rotate 50 60:box
+cloud c '!wyrRk'
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+cloud c '.wyrRk'
+
+subplot 2 2 3:title 'meshnum 10':rotate 50 60:box
+cloud c 'wyrRk'; meshnum 10
+@end verbatim
+
+@pfig{cloud, Example of Cloud()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens3 sample, Cont3 sample, Cloud sample, 3D samples
+@subsection Dens3 sample
+
+Command @ref{dens3} draw just usual density plot but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Dens3 sample':rotate 50 60:alpha on:alphadef 0.7
+origin 0 0 0:box:axis '_xyz'
+dens3 c 'x':dens3 c ':y':dens3 c 'z'
+@end verbatim
+
+@pfig{densa, Example of Dens3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont3 sample, ContF3 sample, Dens3 sample, 3D samples
+@subsection Cont3 sample
+
+Command @ref{cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont3 sample':rotate 50 60:box
+cont3 c 'x':cont3 c:cont3 c 'z'
+@end verbatim
+
+@pfig{conta, Example of Cont3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF3 sample, Dens projection sample, Cont3 sample, 3D samples
+@subsection ContF3 sample
+
+Command @ref{contf3} draw just usual filled contours but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont3 sample':rotate 50 60:box:light on
+contf3 c 'x':contf3 c:contf3 c 'z'
+cont3 c 'xk':cont3 c 'k':cont3 c 'zk'
+@end verbatim
+
+@pfig{contfa, Example of ContF3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens projection sample, Cont projection sample, ContF3 sample, 3D samples
+@subsection Dens projection sample
+
+Functions @ref{DensXYZ} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Dens[XYZ] sample':rotate 50 60:box
+densx {sum c 'x'} '' -1
+densy {sum c 'y'} '' 1
+densz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{dens_xyz, {Example of DensX(), DensY(), DensZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont projection sample, ContF projection sample, Dens projection sample, 3D samples
+@subsection Cont projection sample
+
+Functions @ref{ContXYZ} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont[XYZ] sample':rotate 50 60:box
+contx {sum c 'x'} '' -1
+conty {sum c 'y'} '' 1
+contz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{cont_xyz, {Example of ContX(), ContY(), ContZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF projection sample, TriPlot and QuadPlot, Cont projection sample, 3D samples
+@subsection ContF projection sample
+
+Functions @code{ContFXYZ} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'ContF[XYZ] sample':rotate 50 60:box
+contfx {sum c 'x'} '' -1
+contfy {sum c 'y'} '' 1
+contfz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{contf_xyz, {Example of ContFX(), ContFY(), ContFZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node TriPlot and QuadPlot, Axial sample, ContF projection sample, 3D samples
+@subsection TriPlot and QuadPlot
+
+Command @ref{triplot} and @ref{quadplot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
+@verbatim
+list q 0 1 2 3 | 4 5 6 7 | 0 2 4 6 | 1 3 5 7 | 0 4 1 5 | 2 6 3 7
+list xq -1 1 -1 1 -1 1 -1 1
+list yq -1 -1 1 1 -1 -1 1 1
+list zq -1 -1 -1 -1 1 1 1 1
+light on
+subplot 2 1 0:title 'QuadPlot sample':rotate 50 60
+quadplot q xq yq zq 'yr'
+quadplot q xq yq zq '#k'
+
+list t 0 1 2 | 0 1 3 | 0 2 3 | 1 2 3
+list xt -1 1 0 0
+list yt -1 -1 1 0
+list zt -1 -1 -1 1
+subplot 2 1 1:title 'TriPlot sample':rotate 50 60
+triplot t xt yt zt 'b'
+triplot t xt yt zt '#k'
+@end verbatim
+
+@pfig{triplot, Example of TriPlot() and QuadPlot()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dots sample, , TriPlot and QuadPlot, 3D samples
+@subsection Dots sample
+
+Command @ref{dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+@verbatim
+new t 1000 'pi*(rnd-0.5)':new f 1000 '2*pi*rnd'
+copy x 0.9*cos(t)*cos(f)
+copy y 0.9*cos(t)*sin(f)
+copy z 0.6*sin(t)
+title 'Dots sample':rotate 50 60:box
+dots x y z
+@end verbatim
+
+@pfig{dots, Example of Dots()}
+
+@c ------------------------------------------------------------------
+@external
+@node Vector field samples, Hints, 3D samples, Examples
+@section Vector field samples
+
+Vector field visualization (especially in 3d case) is more or less complex task. MathGL provides 3 general types of plots: vector field itself (@code{Vect}), flow threads (@code{Flow}), and flow pipes with radius proportional to field amplitude (@code{Pipe}).
+
+However, the plot may look tangly -- there are too many overlapping lines. I may suggest 2 ways to solve this problem. The first one is to change @code{SetMeshNum} for decreasing the number of hachures. The second way is to use the flow thread chart @code{Flow}, or possible many flow thread from manual position (@code{FlowP}). Unfortunately, I don't know any other methods to visualize 3d vector field. If you know any, e-mail me and I shall add it to MathGL.
+
+Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare2v'
+new a 20 30 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 20 30 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3v'
+define $1 pow(x*x+y*y+(z-0.3)*(z-0.3)+0.03,1.5)
+define $2 pow(x*x+y*y+(z+0.3)*(z+0.3)+0.03,1.5)
+new ex 10 10 10 '0.2*x/$1-0.2*x/$2'
+new ey 10 10 10 '0.2*y/$1-0.2*y/$2'
+new ez 10 10 10 '0.2*(z-0.3)/$1-0.2*(z+0.3)/$2'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Vect sample::
+* Vect3 sample::
+* Traj sample::
+* Flow sample::
+* Pipe sample::
+* Dew sample::
+@end menu
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Vect sample, Vect3 sample, , Vector field samples
+@subsection Vect sample
+
+Command @ref{vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 3 2 0 '':title 'Vect plot (default)':box
+vect a b
+
+subplot 3 2 1 '':title '"." style; "=" style':box
+vect a b '.='
+
+subplot 3 2 2 '':title '"f" style':box
+vect a b 'f'
+
+subplot 3 2 3 '':title '">" style':box
+vect a b '>'
+
+subplot 3 2 4 '':title '"<" style':box
+vect a b '<'
+
+call 'prepare3v'
+subplot 3 2 5:title '3d variant':rotate 50 60:box
+vect ex ey ez
+@end verbatim
+
+@pfig{vect, Example of Vect()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Vect3 sample, Traj sample, Vect sample, Vector field samples
+@subsection Vect3 sample
+
+Command @ref{vect3} draw just usual vector field plot but at slices of 3D data. The sample code is:
+@verbatim
+origin 0 0 0:call 'prepare3v'
+subplot 2 1 0:title 'Vect3 sample':rotate 50 60
+box:axis '_xyz'
+vect3 ex ey ez 'x':vect3 ex ey ez:vect3 ex ey ez 'z'
+
+subplot 2 1 1:title '"f" style':rotate 50 60
+box:axis '_xyz'
+vect3 ex ey ez 'fx':vect3 ex ey ez 'f':vect3 ex ey ez 'fz'
+grid3 ex 'Wx':grid3 ex 'W':grid3 ex 'Wz'
+@end verbatim
+
+@pfig{vecta, Example of Vect3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Traj sample, Flow sample, Vect3 sample, Vector field samples
+@subsection Traj sample
+
+Command @ref{traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
+@verbatim
+call 'prepare1d'
+subplot 1 1 0 '':title 'Traj plot':box
+plot x1 y:traj x1 y y1 y2
+@end verbatim
+
+@pfig{traj, Example of Traj()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Flow sample, Pipe sample, Traj sample, Vector field samples
+@subsection Flow sample
+
+Command @ref{flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 2 2 0 '':title 'Flow plot (default)':box
+flow a b
+
+subplot 2 2 1 '':title '"v" style':box
+flow a b 'v'
+
+subplot 2 2 2 '':title 'from edges only':box
+flow a b '#'
+
+call 'prepare3v'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+flow ex ey ez
+@end verbatim
+
+@pfig{flow, Example of Flow()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Pipe sample, Dew sample, Flow sample, Vector field samples
+@subsection Pipe sample
+
+Command @ref{pipe} is similar to @ref{flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 2 2 0 '':title 'Pipe plot (default)':light on:box
+pipe a b
+
+subplot 2 2 1 '':title '"i" style':box
+pipe a b 'i'
+
+subplot 2 2 2 '':title 'from edges only':box
+pipe a b '#'
+
+call 'prepare3v'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+pipe ex ey ez '' 0.1
+@end verbatim
+
+@pfig{pipe, Example of Pipe()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dew sample, , Pipe sample, Vector field samples
+@subsection Dew sample
+
+Command @ref{dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 1 1 0 '':title 'Dew plot':light on:box
+dew a b
+@end verbatim
+
+@pfig{dew, Example of Dew()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node Hints, FAQ, Vector field samples, Examples
+@section Hints
+
+In this section I've included some small hints and advices for the improving of the quality of plots and for the demonstration of some non-trivial features of MathGL library. In contrast to previous examples I showed mostly the idea but not the whole drawing function.
+
+@menu
+* ``Compound'' graphics::
+* Transparency and lighting::
+* Types of transparency::
+* Axis projection::
+* Adding fog::
+* Several light sources::
+* Using primitives::
+* STFA sample::
+* Mapping visualization::
+* Making histogram::
+* Nonlinear fitting sample::
+* PDE solving hints::
+* MGL parser using::
+* Using options::
+* ``Templates''::
+* Stereo image::
+* Reduce memory usage::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Compound'' graphics, Transparency and lighting, , Hints
+@subsection ``Compound'' graphics
+
+As I noted above, MathGL functions (except the special one, like Clf()) do  not erase the previous plotting but just add the new one. It allows one to draw ``compound'' plots easily. For example, popular Matlab command @code{surfc} can be emulated in MathGL by 2 calls:
+@verbatim
+  Surf(a);
+  Cont(a, "_");     // draw contours at bottom
+@end verbatim
+Here @var{a} is 2-dimensional data for the plotting, @code{-1} is the value of z-coordinate at which the contour should be plotted (at the bottom in this example). Analogously, one can draw density plot instead of contour lines and so on.
+
+Another nice plot is contour lines plotted directly on the surface:
+@verbatim
+  Light(true);       // switch on light for the surface
+  Surf(a, "BbcyrR"); // select 'jet' colormap for the surface
+  Cont(a, "y");      // and yellow color for contours
+@end verbatim
+The possible difficulties arise in black&white case, when the color of the surface can be close to the color of a contour line. In that case I may suggest the following code:
+@verbatim
+  Light(true);   // switch on light for the surface
+  Surf(a, "kw"); // select 'gray' colormap for the surface
+  CAxis(-1,0);   // first draw for darker surface colors
+  Cont(a, "w");  // white contours
+  CAxis(0,1);    // now draw for brighter surface colors
+  Cont(a, "k");  // black contours
+  CAxis(-1,1);   // return color range to original state
+@end verbatim
+The idea is to divide the color range on 2 parts (dark and bright) and to select the contrasting color for contour lines for each of part.
+
+Similarly, one can plot flow thread over density plot of vector field amplitude (this is another amusing plot from Matlab) and so on. The list of compound graphics can be prolonged but I hope that the general idea is clear.
+
+Just for illustration I put here following sample code:
+@verbatim
+call 'prepare2v'
+call 'prepare3d'
+new v 10:fill v -0.5 1:copy d sqrt(a^2+b^2)
+subplot 2 2 0:title 'Surf + Cont':rotate 50 60:light on:box
+surf a:cont a 'y'
+
+subplot 2 2 1 '':title 'Flow + Dens':light off:box
+flow a b 'br':dens d
+
+subplot 2 2 2:title 'Mesh + Cont':rotate 50 60:box
+mesh a:cont a '_'
+
+subplot 2 2 3:title 'Surf3 + ContF3':rotate 50 60:light on
+box:contf3 v c 'z' 0:contf3 v c 'x':contf3 v c
+cut 0 -1 -1 1 0 1.1
+contf3 v c 'z' c.nz-1:surf3 c -0.5
+@end verbatim
+
+@pfig{combined, Example of ``combined'' plots}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Transparency and lighting, Types of transparency, ``Compound'' graphics, Hints
+@subsection Transparency and lighting
+
+Here I want to show how transparency and lighting both and separately change the look of a surface. So, there is code and picture for that:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0:title 'default':rotate 50 60:box
+surf a
+
+subplot 2 2 1:title 'light on':rotate 50 60:box
+light on:surf a
+
+subplot 2 2 3:title 'light on; alpha on':rotate 50 60:box
+alpha on:surf a
+
+subplot 2 2 2:title 'alpha on':rotate 50 60:box
+light off:surf a
+@end verbatim
+
+@pfig{alpha, Example of transparency and lightings}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Types of transparency, Axis projection, Transparency and lighting, Hints
+@subsection Types of transparency
+
+MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of command @ref{alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+
+The value of transparency can be different from surface to surface. To do it just use @code{SetAlphaDef} before the drawing of the surface, or use option @code{alpha} (see @ref{Command options}). If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent.
+
+Also you can change the way how the light goes through overlapped surfaces. The function @code{SetTranspType} defines it. By default the usual transparency is used (@samp{0}) -- surfaces below is less visible than the upper ones. A ``glass-like'' transparency (@samp{1}) has a different look -- each surface just decreases the background light (the surfaces are commutable in this case).
+
+A ``neon-like'' transparency (@samp{2}) has more interesting look. In this case a surface is the light source (like a lamp on the dark background) and just adds some intensity to the color. At this, the library sets automatically the black color for the background and changes the default line color to white.
+
+As example I shall show several plots for different types of transparency. The code is the same except the values of @code{SetTranspType} function:
+@verbatim
+call 'prepare2d'
+alpha on:light on
+transptype 0:clf
+subplot 2 2 0:rotate 50 60:surf a:box
+subplot 2 2 1:rotate 50 60:dens a:box
+subplot 2 2 2:rotate 50 60:cont a:box
+subplot 2 2 3:rotate 50 60:axial a:box
+@end verbatim
+
+@pfig{type0, Example of @code{SetTranspType(0)}.}
+@pfig{type1, Example of @code{SetTranspType(1)}.}
+@pfig{type2, Example of @code{SetTranspType(2)}.}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Axis projection, Adding fog, Ternary axis, Hints
+@subsection Axis projection
+
+You can easily make 3D plot and draw its x-,y-,z-projections (like in CAD) by using @ref{ternary} function with arguments: 4 for Cartesian, 5 for Ternary and 6 for Quaternary coordinates. The sample code is:
+@verbatim
+ranges 0 1 0 1 0 1
+new x 50 '0.25*(1+cos(2*pi*x))'
+new y 50 '0.25*(1+sin(2*pi*x))'
+new z 50 'x'
+new a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'
+new rx 10 'rnd':new ry 10:fill ry '(1-v)*rnd' rx
+light on
+
+title 'Projection sample':ternary 4:rotate 50 60
+box:axis:grid
+plot x y z 'r2':surf a '#'
+xlabel 'X':ylabel 'Y':zlabel 'Z'
+@end verbatim
+
+@pfig{projection, Example of axis projections}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Adding fog, Several light sources, Axis projection, Hints
+@subsection Adding fog
+
+MathGL can add a fog to the image. Its switching on is rather simple -- just use @ref{fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Fog sample':rotate 50 60:light on
+fog 1
+box:surf a
+@end verbatim
+
+@pfig{fog, Example of @code{Fog()}.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Several light sources, Using primitives, Adding fog, Hints
+@subsection Several light sources
+
+In contrast to the most of other programs, MathGL supports several (up to 10) light sources. Moreover, the color each of them can be different: white (this is usual), yellow, red, cyan, green and so on. The use of several light sources may be interesting for the highlighting of some peculiarities of the plot or just to make an amusing picture. Note, each light source can be switched on/off individually. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Several light sources':rotate 50 60:light on
+light 1 0 1 0 'c':light 2 1 0 0 'y':light 3 0 -1 0 'm'
+box:surf a 'h'
+@end verbatim
+
+@pfig{several_light, Example of several light sources.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Using primitives, STFA sample, Several light sources, Hints
+@subsection Using primitives
+
+MathGL provide a set of functions for drawing primitives (see @ref{Primitives}). Primitives are low level object, which used by most of plotting functions. Picture below demonstrate some of commonly used primitives.
+@verbatim
+subplot 2 2 0 '':title 'Line, Curve, Rhomb, Ellipse' '' -1.5
+line -1 -1 -0.5 1 'qAI'
+curve -0.6 -1 1 1 0 1 1 1 'rA'
+ball 0 -0.5 '*':ball 1 -0.1 '*'
+rhomb 0 0.4 1 0.9 0.2 'b#'
+rhomb 0 0 1 0.4 0.2 'cg@'
+ellipse 0 -0.5 1 -0.1 0.2 'u#'
+ellipse 0 -1 1 -0.6 0.2 'm@'
+
+light on
+subplot 2 2 1:title 'Face[xyz]':rotate 50 60:box
+facex 1 0 -1 1 1 'r':facey -1 -1 -1 1 1 'g':facez 1 -1 -1 -1 1 'b'
+face -1 -1 1 -1 1 1 1 -1 0 1 1 1 'm'
+
+subplot 2 2 3 '':title 'Cone'
+cone -0.7 -0.3 0 -0.7 0.7 0.5 0.2 0.1 'b':text -0.7 -0.7 'no edges\n(default)'
+cone 0 -0.3 0 0 0.7 0.5 0.2 0.1 'g@':text 0 -0.7 'with edges\n('\@' style)'
+cone 0.7 -0.3 0 0.7 0.7 0.5 0.2 0.1 'ry':text 0.7 -0.7 '"arrow" with\n{}gradient'
+
+subplot 2 2 2 '':title 'Sphere and Drop'
+line -0.9 0 1 0.9 0 1
+text -0.9 -0.7 'sh=0':drop -0.9 0 0 1 0.5 'r' 0:ball -0.9 0 1 'k'
+text -0.3 -0.7 'sh=0.33':drop -0.3 0 0 1 0.5 'r' 0.33:ball -0.3 0 1 'k'
+text 0.3 -0.7 'sh=0.67':drop 0.3 0 0 1 0.5 'r' 0.67:ball 0.3 0 1 'k'
+text 0.9 -0.7 'sh=1':drop 0.9 0 0 1 0.5 'r' 1:ball 0.9 0 1 'k'
+@end verbatim
+
+@pfig{primitives, Primitives in MathGL.}
+
+Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @ref{drop}. The sample code is:
+@verbatim
+alpha on:light on
+subplot 2 2 0 '':title 'Methane, CH_4':rotate 60 120
+sphere 0 0 0 0.25 'k':drop 0 0 0 0 0 1 0.35 'h' 1 2:sphere 0 0 0.7 0.25 'g'
+drop 0 0 0 -0.94 0 -0.33 0.35 'h' 1 2:sphere -0.66 0 -0.23 0.25 'g'
+drop 0 0 0 0.47 0.82 -0.33 0.35 'h' 1 2:sphere 0.33 0.57 -0.23 0.25 'g'
+drop 0 0 0 0.47 -0.82 -0.33 0.35 'h' 1 2:sphere 0.33 -0.57 -0.23 0.25 'g'
+
+subplot 2 2 1 '':title 'Water, H{_2}O':rotate 60 100
+sphere 0 0 0 0.25 'r':drop 0 0 0 0.3 0.5 0 0.3 'm' 1 2:sphere 0.3 0.5 0 0.25 'g'
+drop 0 0 0 0.3 -0.5 0 0.3 'm' 1 2:sphere 0.3 -0.5 0 0.25 'g'
+
+subplot 2 2 2 '':title 'Oxygen, O_2':rotate 60 120
+drop 0 0.5 0 0 -0.3 0 0.3 'm' 1 2:sphere 0 0.5 0 0.25 'r'
+drop 0 -0.5 0 0 0.3 0 0.3 'm' 1 2:sphere 0 -0.5 0 0.25 'r'
+
+subplot 2 2 3 '':title 'Ammonia, NH_3':rotate 60 120
+sphere 0 0 0 0.25 'b':drop 0 0 0 0.33 0.57 0 0.32 'n' 1 2
+sphere 0.33 0.57 0 0.25 'g':drop 0 0 0 0.33 -0.57 0 0.32 'n' 1 2
+sphere 0.33 -0.57 0 0.25 'g':drop 0 0 0 -0.65 0 0 0.32 'n' 1 2
+sphere -0.65 0 0 0.25 'g'
+@end verbatim
+
+@pfig{molecule, Example of molecules drawing.}
+
+Moreover, some of special plots can be more easily produced by primitives rather than by specialized function. For example, Venn diagram can be produced by @code{Error} plot:
+@verbatim
+list x -0.3 0 0.3:list y 0.3 -0.3 0.3:list e 0.7 0.7 0.7
+title 'Venn-like diagram':alpha on
+error x y e e '!rgb@#o'
+@end verbatim
+You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @ref{circle} function:
+@verbatim
+title 'Venn-like diagram':alpha on
+circle -0.3 0.3 0.7 'rr@'
+circle 0 -0.3 0.7 'gg@'
+circle 0.3 0.3 0.7 'bb@'
+@end verbatim
+Of course, the first variant is more suitable if you need to plot a lot of circles. But for few ones the usage of primitives looks easy.
+
+@pfig{venn, Example of Venn diagram.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node STFA sample, Mapping visualization, Using primitives, Hints
+@subsection STFA sample
+
+Short-time Fourier Analysis (@ref{stfa}) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
+
+MathGL can find and draw STFA result. Just to show this feature I give following sample. Initial data arrays is 1D arrays with step-like frequency. Exactly this you can see at bottom on the STFA plot. The sample code is:
+@verbatim
+new a 2000:new b 2000
+fill a 'cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+\
+cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)'
+
+subplot 1 2 0 '<_':title 'Initial signal'
+plot a:axis:xlabel '\i t'
+
+subplot 1 2 1 '<_':title 'STFA plot'
+stfa a b 64:axis:ylabel '\omega' 0:xlabel '\i t'
+@end verbatim
+
+@pfig{stfa, Example of STFA().}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Mapping visualization, Making histogram, STFA sample, Hints
+@subsection Mapping visualization
+
+Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @ref{surfc}, @ref{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+
+I tried to make such plot in @ref{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+
+The sample code for mapping visualization is:
+@verbatim
+new a 50 40 'x':new b 50 40 'y':zrange -2 2:text 0 0 '\to'
+subplot 2 1 0:text 0 1.1 '\{x, y\}' '' -2:box
+map a b 'brgk' 0 0
+
+subplot 2 1 1:box
+text 0 1.1 '\{\frac{x^3+y^3}{2}, \frac{x-y}{2}\}' '' -2
+fill a '(x^3+y^3)/2':fill b '(x-y)/2':map a b 'brgk' 0 0
+@end verbatim
+
+@pfig{map, Example of Map().}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Making histogram, Nonlinear fitting sample, Mapping visualization, Hints
+@subsection Making histogram
+
+Using the @ref{hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @ref{hist} usage:
+@verbatim
+new x 10000 '2*rnd-1':new y 10000 '2*rnd-1':copy z exp(-6*(x^2+y^2))
+hist xx x z:norm xx 0 1:hist yy y z:norm yy 0 1
+multiplot 3 3 3 2 2 '':ranges -1 1 -1 1 0 1:box:dots x y z 'wyrRk'
+multiplot 3 3 0 2 1 '':ranges -1 1 0 1:box:bars xx
+multiplot 3 3 5 1 2 '':ranges 0 1 -1 1:box:barh yy
+subplot 3 3 2:text 0.5 0.5 'Hist and\n{}MultiPlot\n{}sample' 'a' -3
+@end verbatim
+
+@pfig{hist, Example of Hist().}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Nonlinear fitting sample, PDE solving hints, Making histogram, Hints
+@subsection Nonlinear fitting hints
+
+Nonlinear fitting is rather simple. All that you need is the data to fit, the approximation formula and the list of coefficients to fit (better with its initial guess values). Let me demonstrate it on the following simple example. First, let us use sin function with some random noise:
+@verbatim
+new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'
+new in 100 '0.3+sin(2*pi*x)'
+@end verbatim
+and plot it to see that data we will fit
+@verbatim
+title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '
+@end verbatim
+
+The next step is the fitting itself. For that let me specify an initial values @var{ini} for coefficients @samp{abc} and do the fitting for approximation formula @samp{a+b*sin(c*x)}
+@verbatim
+list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini
+@end verbatim
+Now display it
+@verbatim
+plot res 'r':plot in 'b'
+text -0.9 -1.3 'fitted:' 'r:L'
+putsfit 0 -1.8 'y = ' 'r'
+text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'b'
+@end verbatim
+
+NOTE! the fitting results may have strong dependence on initial values for coefficients due to algorithm features. The problem is that in general case there are several local "optimums" for coefficients and the program returns only first found one! There are no guaranties that it will be the best. Try for example to set @code{ini[3] = @{0, 0, 0@}} in the code above.
+
+The full sample code for nonlinear fitting is:
+@verbatim
+new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'
+new in 100 '0.3+sin(2*pi*x)'
+list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini
+title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '
+plot res 'r':plot in 'b'
+text -0.9 -1.3 'fitted:' 'r:L'
+putsfit 0 -1.8 'y = ' 'r'
+text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'b'
+@end verbatim
+
+@pfig{fit, Example of nonlinear fitting.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node PDE solving hints, MGL parser using, Nonlinear fitting sample, Hints
+@subsection PDE solving hints
+
+Solving of Partial Differential Equations (PDE, including beam tracing) and ray tracing (or finding particle trajectory) are more or less common task. So, MathGL have several functions for that. There are @code{mglRay()} for ray tracing, @code{mglPDE()} for PDE solving, @code{mglQO2d()} for beam tracing in 2D case (see @ref{Global functions}). Note, that these functions take ``Hamiltonian'' or equations as string values. And I don't plan now to allow one to use user-defined functions. There are 2 reasons: the complexity of corresponding interface; and the basic nature of used methods which are good for samples but may not good for serious scientific calculations.
+
+The ray tracing can be done by @code{mglRay()} function. Really ray tracing equation is Hamiltonian equation for 3D space. So, the function can be also used for finding a particle trajectory (i.e. solve Hamiltonian ODE) for 1D, 2D or 3D cases. The function have a set of arguments. First of all, it is Hamiltonian which defined the media (or the equation) you are planning to use. The Hamiltonian is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z}, time @samp{t} (for particle dynamics) and momentums @samp{p}=@math{p_x}, @samp{q}=@math{p_y}, @samp{v}=@math{p_z}. Next, you have to define the initial conditions for coordinates and momentums at @samp{t}=0 and set the integrations step (default is 0.1) and its duration (default is 10). The Runge-Kutta method of 4-th order is used for integration.
+@verbatim
+  const char *ham = "p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)";
+  mglData r = mglRay(ham, mglPoint(-0.7, -1), mglPoint(0, 0.5), 0.02, 2);
+@end verbatim
+This example calculate the reflection from linear layer (media with Hamiltonian @samp{p^2+q^2-x-1}=@math{p_x^2+p_y^2-x-1}). This is parabolic curve. The resulting array have 7 columns which contain data for @{x,y,z,p,q,v,t@}.
+
+The solution of PDE is a bit more complicated. As previous you have to specify the equation as pseudo-differential operator @math{\hat H(x, \nabla)} which is called sometime as ``Hamiltonian'' (for example, in beam tracing). As previously, it is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z} (but not time!), momentums @samp{p}=@math{(d/dx)/i k_0}, @samp{q}=@math{(d/dy)/i k_0} and field amplitude @samp{u}=@math{|u|}. The evolutionary coordinate is @samp{z} in all cases. So that, the equation look like @math{du/dz = ik_0 H(x,y,\hat p, \hat q, |u|)[u]}. Dependence on field amplitude @samp{u}=@math{|u|} allows one to solve nonlinear problems too. For example, for nonlinear Shrodinger equation you may set @code{ham="p^2 + q^2 - u^2"}. Also you may specify imaginary part for wave absorption, like @code{ham = "p^2 + i*x*(x>0)"}, but only if dependence on variable @samp{i} is linear (i.e. @math{H = Hre+i*Him}).
+
+Next step is specifying the initial conditions at @samp{z}=@code{Min.z}. The function need 2 arrays for real and for imaginary part. Note, that coordinates x,y,z are supposed to be in specified range [Min, Max]. So, the data arrays should have corresponding scales. Finally, you may set the integration step and parameter k0=@math{k_0}. Also keep in mind, that internally the 2 times large box is used (for suppressing numerical reflection from boundaries) and the equation should well defined even in this extended range.
+
+Final comment is concerning the possible form of pseudo-differential operator @math{H}. At this moment, simplified form of operator @math{H} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this operator is effectively @math{H = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed for 3D case.
+
+So, for example let solve the equation for beam deflected from linear layer and absorbed later. The operator will have the form @samp{"p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)"} that correspond to equation @math{ik_0 \partial_z u + \Delta u + x \cdot u + i (x+z)/2 \cdot u = 0}. This is typical equation for Electron Cyclotron (EC) absorption in magnetized plasmas. For initial conditions let me select the beam with plane phase front @math{exp(-48*(x+0.7)^2)}. The corresponding code looks like this:
+@verbatim
+new re 128 'exp(-48*(x+0.7)^2)':new im 128
+pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01 30
+transpose a
+subplot 1 1 0 '<_':title 'PDE solver'
+axis:xlabel '\i x':ylabel '\i z'
+crange 0 1:dens a 'wyrRk'
+fplot '-x' 'k|'
+text 0 0.95 'Equation: ik_0\partial_zu + \Delta u + x\cdot u +\
+ i \frac{x+z}{2}\cdot u = 0\n{}absorption: (x+z)/2 for x+z>0'
+@end verbatim
+
+@pfig{pde, Example of PDE solving.}
+
+The last example is example of beam tracing. Beam tracing equation is special kind of PDE equation written in coordinates accompanied to a ray. Generally this is the same parameters and limitation as for PDE solving but the coordinates are defined by the ray and by parameter of grid width @var{w} in direction transverse the ray. So, you don't need to specify the range of coordinates. @strong{BUT} there is limitation. The accompanied coordinates are well defined only for smooth enough rays, i.e. then the ray curvature @math{K} (which is defined as @math{1/K^2 = (|\ddot r|^2 |\dot r|^2 - (\ddot r, \dot r)^2)/|\dot r|^6}) is much large then the grid width: @math{K>>w}. So, you may receive incorrect results if this condition will be broken.
+
+You may use following code for obtaining the same solution as in previous example:
+@verbatim
+define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'
+subplot 1 1 0 '<_':title 'Beam and ray tracing'
+ray r $1 -0.7 -1 0 0 0.5 0 0.02 2:plot r(0) r(1) 'k'
+axis:xlabel '\i x':ylabel '\i z'
+new re 128 'exp(-48*x^2)':new im 128
+new xx 1:new yy 1
+qo2d a $1 re im r 1 30 xx yy
+crange 0 1:dens xx yy a 'wyrRk':fplot '-x' 'k|'
+text 0 0.85 'absorption: (x+y)/2 for x+y>0'
+text 0.7 -0.05 'central ray'
+@end verbatim
+
+@pfig{qo2d, Example of beam tracing.}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node MGL parser using, Using options, PDE solving hints, Hints
+@subsection MGL parser using
+
+MGL scripts can contain loops, conditions and user-defined functions. Below I show very simple example of its usage:
+@verbatim
+title 'MGL parser sample'
+call 'sample'
+stop
+
+func 'sample'
+new dat 100 'sin(2*pi*(x+1))'
+plot dat; xrange 0 1
+box:axis:xlabel 'x':ylabel 'y'
+for $0 -1 1 0.1
+if $0<0
+line 0 0 -1 $0 'r'
+else
+line 0 0 -1 $0 'r'
+endif
+next
+@end verbatim
+
+@pfig{parser, Example of MGL script parsing.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Using options, ``Templates'', MGL parser using, Hints
+@subsection Using options
+
+@ref{Command options} allow the easy setup of the selected plot by changing global settings only for this plot. Often, options are used for specifying the range of automatic variables (coordinates). However, options allows easily change plot transparency, numbers of line or faces to be drawn, or add legend entries. The sample function for options usage is:
+@verbatim
+new a 31 41 '-pi*x*exp(-(y+1)^2-4*x^2)'
+alpha on:light on
+subplot 2 2 0:title 'Options for coordinates':rotate 40 60:box
+surf a 'r';yrange 0 1
+surf a 'b';yrange 0 -1
+
+subplot 2 2 1:title 'Option "meshnum"':rotate 40 60:box
+mesh a 'r'; yrange 0 1
+mesh a 'b';yrange 0 -1; meshnum 5
+
+subplot 2 2 2:title 'Option "alpha"':rotate 40 60:box
+surf a 'r';yrange 0 1; alpha 0.7
+surf a 'b';yrange 0 -1; alpha 0.3
+
+subplot 2 2 3 '<_':title 'Option "legend"'
+fplot 'x^3' 'r'; legend 'y = x^3'
+fplot 'cos(pi*x)' 'b'; legend 'y = cos \pi x'
+box:axis:legend 2
+@end verbatim
+
+@pfig{mirror, Example of options usage.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Templates'', Nonlinear fitting sample, Using options, Hints
+@subsection ``Templates''
+
+As I have noted before, the change of settings will influence only for the further plotting commands. This allows one to create ``template'' function which will contain settings and primitive drawing for often used plots. Correspondingly one may call this template-function for drawing simplification.
+
+For example, let one has a set of points (experimental or numerical) and wants to compare it with theoretical law (for example, with exponent law @math{\exp(-x/2), x \in [0, 20]}). The template-function for this task is:
+@verbatim
+void template(mglGraph *gr)
+{
+  mglData  law(100);      // create the law
+  law.Modify("exp(-10*x)");
+  gr->SetRanges(0,20, 0.0001,1);
+  gr->SetFunc(0,"lg(y)",0);
+  gr->Plot(law,"r2");
+  gr->Puts(mglPoint(10,0.2),"Theoretical law: e^x","r:L");
+  gr->Label('x',"x val."); gr->Label('y',"y val.");
+  gr->Axis(); gr->Grid("xy","g;"); gr->Box();
+}
+@end verbatim
+At this, one will only write a few lines for data drawing:
+@verbatim
+  template(gr);     // apply settings and default drawing from template
+  mglData dat("fname.dat"); // load the data
+  // and draw it (suppose that data file have 2 columns)
+  gr->Plot(dat.SubData(0),dat.SubData(1),"bx ");
+@end verbatim
+A template-function can also contain settings for font, transparency, lightning, color scheme and so on.
+
+I understand that this is obvious thing for any professional programmer, but I several times receive suggestion about ``templates'' ... So, I decide to point out it here.
+
+@c ------------------------------------------------------------------
+@c @external
+@node Stereo image, Reduce memory usage, ``Templates'', Hints
+@subsection Stereo image
+
+One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this:
+@verbatim
+call 'prepare2d'
+light on
+subplot 2 1 0:rotate 50 60+1:box:surf a
+subplot 2 1 1:rotate 50 60-1:box:surf a
+@end verbatim
+
+@pfig{stereo, Example of stereo image.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Reduce memory usage, , Stereo image, Hints
+@subsection Reduce memory usage
+
+By default MathGL save all primitives in memory, rearrange it and only later draw them on bitmaps. Usually, this speed up drawing, but may require a lot of memory for plots which contain a lot of faces (like @ref{cloud}, @ref{dew}). You can use @ref{quality} function for setting to use direct drawing on bitmap and bypassing keeping any primitives in memory. This function also allow you to decrease the quality of the resulting image but increase the speed of the drawing.
+
+The code for lower memory usage looks like this:
+@verbatim
+quality 6  # firstly, set to draw directly on bitmap
+for $1 0 1000
+  sphere 2*rnd-1 2*rnd-1 0.05
+next
+@end verbatim
+
+@c ==================================================================
+
+@external
+@node FAQ, , Hints, Examples
+@section FAQ
+
+@table @strong
+@item The plot does not appear
+Check that points of the plot are located inside the bounding box and resize the bounding box using @ref{ranges} function. Check that the data have correct dimensions for selected type of plot. Sometimes the light reflection from flat surfaces (like, @ref{dens}) can look as if the plot were absent.
+
+@item I can not find some special kind of plot.
+Most ``new'' types of plots can be created by using the existing drawing functions. For example, the surface of curve rotation can be created by a special function @ref{torus}, or as a parametrically specified surface by @ref{surf}. See also, @ref{Hints}. If you can not find a specific type of plot, please e-mail me and this plot will appear in the next version of MathGL library.
+
+@item How can I print in Russian/Spanish/Arabic/Japanese, and so on?
+The standard way is to use Unicode encoding for the text output. But the MathGL library also has interface for 8-bit (char *) strings with internal conversion to Unicode. This conversion depends on the current locale OS.
+
+@item How can I exclude a point or a region of plot from the drawing?
+There are 3 general ways. First, the point with @code{nan} value as one of the coordinates (including color/alpha range) will never be plotted. Second, special functions define the condition when the points should be omitted (see @ref{Cutting}). Last, you may change the transparency of a part of the plot by the help of functions @ref{surfa}, @ref{surf3a} (see @ref{Dual plotting}). In last case the transparency is switched on smoothly.
+
+@item How many people write this library?
+Most of the library was written by one person. This is a result of nearly a year of work (mostly in the evening and on holidays): I spent half a year to write the kernel and half a year to a year on extending, improving the library and writing documentation. This process continues now :). The build system (cmake files) was written mostly by D.Kulagin, and the export to PRC/IDTF was written mostly by M.Vidassov.
+
+@item How can I display a bitmap on the figure?
+You can import data by command @ref{import} and display it by @ref{dens} function. For example, for black-and-white bitmap you can use the code: @code{import bmp 'fname.png' 'wk':dens  bmp 'wk'}.
+
+
+@item How can I create 3D in PDF?
+Just use command @code{write fname.pdf}, which create PDF file if enable-pdf=ON at MathGL configure.
+
+@item How can I create TeX figure?
+Just use command @code{write fname.tex}, which create LaTeX files with figure itself @samp{@var{fname}.tex}, with MathGL colors @samp{mglcolors.tex} and main file @samp{mglmain.tex}. Last one can be used for viewing image by command like @code{pdflatex mglmain.tex}.
+
+
+@item How I can change the font family?
+First, you should download new font files from @uref{http://mathgl.sourceforge.net/download.html, here} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. Next, you should load the font files into by the following command: @code{loadfont 'fontname'}. Here @var{fontname} is the base font name like @samp{STIX}. Use @code{loadfont ''} to start using the default font.
+
+@item How can I draw tick out of a bounding box?
+Just set a negative value in @ref{ticklen}. For example, use @code{ticklen -0.1}.
+
+@item How can I prevent text rotation?
+Just use @code{rotatetext off}. Also you can use axis style @samp{U} for disable only tick labels rotation.
+
+@end table
+
 @external
 

diff --git a/texinfo/ex_mgl_ru.texi b/texinfo/ex_mgl_ru.texi
index c9477c16b128e08457d7e69b9d459f7bb865e429..cbb34444d72a9f9060513c11850caf37cb72b05c 100644 (file)
--- a/texinfo/ex_mgl_ru.texi
+++ b/texinfo/ex_mgl_ru.texi
@@ -1,33 +1,88 @@
 @c ------------------------------------------------------------------
 @chapter MathGL examples
 
-This chapter contain information about basic and advanced MathGL, hints and samples for all types of graphics. I recommend you read first 2 sections one after another and at least look on ``Hints'' section. Also I recommend you to look at @ref{General concepts}. Sample code for some of these examples can be found in @uref{http://mathgl.sf.net/pictures.html} and in @ref{Samples}.
+This chapter contain information about basic and advanced MathGL, hints and samples for all types of graphics. I recommend you read first 2 sections one after another and at least look on @ref{Hints} section. Also I recommend you to look at @ref{General concepts} and @ref{FAQ}.
+
+Most of sample scripts placed below use a set of functions for preparing the data.
+@verbatim
+func 'prepare1d'
+new y 50 3
+modify y '0.7*sin(2*pi*x)+0.5*cos(3*pi*x)+0.2*sin(pi*x)'
+modify y 'sin(2*pi*x)' 1
+modify y 'cos(2*pi*x)' 2
+new x1 50 'x'
+new x2 50 '0.05-0.03*cos(pi*x)'
+new y1 50 '0.5-0.3*cos(pi*x)'
+new y2 50 '-0.3*sin(pi*x)'
+return
+
+func 'prepare2d'
+new a 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 50 40 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3d'
+new c 61 50 40 '-2*(x^2+y^2+z^4-z^2)+0.2'
+new d 61 50 40 '1-2*tanh((x+y)*(x+y))'
+return
+
+func 'prepare2v'
+new a 20 30 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 20 30 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3v'
+define $1 pow(x*x+y*y+(z-0.3)*(z-0.3)+0.03,1.5)
+define $2 pow(x*x+y*y+(z+0.3)*(z+0.3)+0.03,1.5)
+new ex 10 10 10 '0.2*x/$1-0.2*x/$2'
+new ey 10 10 10 '0.2*y/$1-0.2*y/$2'
+new ez 10 10 10 '0.2*(z-0.3)/$1-0.2*(z+0.3)/$2'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
 
 @menu
-* Basic usage:: 
-* Advanced usage:: 
-* Data handling:: 
-* Data plotting:: 
+* Basic usage::
+* Advanced usage::
+* Data handling::
+* Data plotting::
+* 1D samples::
+* 2D samples::
+* 3D samples::
+* Vector field samples::
 * Hints::
+* FAQ::
 @end menu
 
 @c ------------------------------------------------------------------
+@external
 @node Basic usage, Advanced usage, , Examples
 @section Basic usage
 
 MGL script can be used by several manners. Each has positive and negative sides:
 @itemize @bullet
 @item
-@emph{The using of MGL in UDAV.}
+@emph{Using UDAV.}
 
-Positive side is the possibility to view the plot at once and to modify it, rotate, zoom or switch on transparency or lighting) by hand or by mouse. Negative sides are: the need of X-terminal.
+Positive sides are possibilities to view the plot at once and to modify it, rotate, zoom or switch on transparency or lighting by hands or by mouse. Negative side is the needness of the X-terminal. @c For more details, see @ref{UDAV}.
 
 @item
-@emph{Direct writing to file in bitmap or vector format without creation of graphical window.}
+@emph{Using command line tools.}
 
 Positive aspects are: batch processing of similar data set, for example, a set of resulting data files for different calculation parameters), running from the console program, including the cluster calculation), fast and automated drawing, saving pictures for further analysis, or demonstration). Negative sides are: the usage of the external program for picture viewing. Also, the data plotting is non-visual. So, you have to imagine the picture, view angles, lighting and so on) before the plotting. I recommend to use graphical window for determining the optimal parameters of plotting on the base of some typical data set. And later use these parameters for batch processing in console program.
 
-In this case you can use a set of programs: @code{mgl2png}, @code{mgl2gif}, @code{mgl2eps}, @code{mgl2svg} or @code{mglview} for viewing.
+In this case you can use the program: @code{mglconv} or @code{mglview} for viewing.
+
+@item
+@emph{Using C/C++/... code.}
+
+You can easily execute MGL script within C/C++/Fortan code. This can be useful for fast data plotting, for example, in web applications, where textual string (MGL script) may contain all necessary information for plot. The basic C++ code may look as following
+@verbatim
+const char *mgl_script; // script itself, can be of type const wchar_t*
+mglGraph gr;
+mglParse pr;
+pr.Execute(&gr, mgl_script);
+@end verbatim
 @end itemize
 
 The simplest script is
@@ -37,187 +92,453 @@ axis        # draw axis
 fplot 'x^3' # draw some function
 @end verbatim
 
-Just type it in UDAV and press F5. Also you can save it in text file @samp{test.mgl} and type in the console @code{mgl2png test.mgl} what produce file @samp{test.mgl.png} with resulting picture.
+Just type it in UDAV and press F5. Also you can save it in text file @samp{test.mgl} and type in the console @code{mglconv test.mgl} what produce file @samp{test.mgl.png} with resulting picture.
 
 @c ------------------------------------------------------------------
+@external
 @node Advanced usage, Data handling, Basic usage, Examples
 @section Advanced usage
 
 Now I show several non-obvious features of MGL: several subplots in a single picture, curvilinear coordinates, text printing and so on. Generally you may miss this section at first reading, but I don't recommend it.
 
 @menu
-* Subplots:: 
-* Axis and grids:: 
-* Curvilinear coordinates:: 
-* Text printing example:: 
+* Subplots::
+* Axis and ticks::
+* Curvilinear coordinates::
+* Colorbars::
+* Bounding box::
+* Ternary axis::
+* Text features::
+* Legend sample::
+* Cutting sample::
 @end menu
 
 @c ------------------------------------------------------------------
-@node Subplots, Axis and grids, , Advanced usage
+@c @external
+@node Subplots, Axis and ticks, , Advanced usage
 @subsection Subplots
 
-Let me demonstrate possibilities of axes transformation. MathGL has the following functions: @code{SubPlot}, @code{InPlot}, @code{Aspect} and @code{Rotate}, @pxref{Transformation matrix}). The order of their calling is strictly determined. First, one changes the position of axes in image area, functions @code{SubPlot} and @code{InPlot}). After that one may rotate the plot, function @code{Rotate}). Finally, one may change aspects of axes, function @code{Aspect}). The following code illustrates the aforesaid it:
+Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @ref{subplot}, @ref{inplot}, @ref{title}, @ref{aspect} and @ref{rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @ref{subplot}, @ref{inplot} and @ref{multiplot}). Secondly, you can add the title of plot by @ref{title} function. After that one may rotate the plot (command @ref{rotate}). Finally, one may change aspects of axes (command @ref{aspect}). The following code illustrates the aforesaid it:
 @verbatim
-subplot 2 2 0:box
-text -1 1.1 'Just box' 'L'
-inplot 0.2 0.5 0.7 1:box
-text 0 1.2 'Inplot example'
+subplot 2 2 0
+box:text -1 1.1 'Just box' ':L'
+inplot 0.2 0.5 0.7 1
+box:text 0 1.2 'InPlot example'
 
-subplot 2 2 1
-rotate 60 40:aspect 1 1 1
-box:text 1 1 1.5 'rotate only' 'R'
+subplot 2 2 1:title 'Rotate only'
+rotate 50 60:box
 
-subplot 2 2 2
-rotate 60 40:aspect 1 1 2
-box:text 0 0 2 'aspect and rotate'
+subplot 2 2 2:title 'Rotate and Aspect'
+rotate 50 60:aspect 1 1 2:box
 
-subplot 2 2 3
-rotate 60 40:aspect 1 2 2
-box:text 0 0 1.5 'Aspect in other direction'
+subplot 2 2 3:title 'Aspect in other direction'
+rotate 50 60:aspect 1 2 2:box
 @end verbatim
-Here I used function @code{text} for printing the text in arbitrary position of picture, @pxref{Text printing}). Text coordinates and size are connected with axes. However, text coordinates may be everywhere, including the outside the bounding box. I shall show its features later in @xref{Text printing example}.
+Here I used function @code{Puts} for printing the text in arbitrary position of picture (see @ref{Text printing}). Text coordinates and size are connected with axes. However, text coordinates may be everywhere, including the outside the bounding box. I'll show its features later in @ref{Text features}.
 
 Note that several commands can be placed in a string if they are separated by @samp{:} symbol.
 
-@mreal
-@image{../png/sample1, 7cm}
-@caption{Example of several subplots on the single picture.}
-@end mreal
+@pfig{aspect, Example of several subplots on the single picture.}
+
+More complicated sample show how to use most of positioning functions:
+@verbatim
+subplot 3 2 0:title 'StickPlot'
+stickplot 3 0 20 30:box 'r':text 0 0 '0' 'r'
+stickplot 3 1 20 30:box 'g':text 0 0 '1' 'g'
+stickplot 3 2 20 30:box 'b':text 0 0 '2' 'b'
+
+subplot 3 2 3 '':title 'ColumnPlot'
+columnplot 3 0:box 'r':text 0 0 '0' 'r'
+columnplot 3 1:box 'g':text 0 0 '1' 'g'
+columnplot 3 2:box 'b':text 0 0 '2' 'b'
+
+subplot 3 2 4 '':title 'GridPlot'
+gridplot 2 2 0:box 'r':text 0 0 '0' 'r'
+gridplot 2 2 1:box 'g':text 0 0 '1' 'g'
+gridplot 2 2 2:box 'b':text 0 0 '2' 'b'
+gridplot 2 2 3:box 'm':text 0 0 '3' 'm'
+
+subplot 3 2 5 '':title 'InPlot':box
+inplot 0.4 1 0.6 1 on:box 'r'
+
+multiplot 3 2 1 2 1 '':title 'MultiPlot':box
+@end verbatim
+
+@pfig{inplot, Example for most of positioning functions.}
 
 @c ------------------------------------------------------------------
-@node Axis and grids, Curvilinear coordinates, Subplots, Advanced usage
-@subsection Axis and grids
+@c @external
+@node Axis and ticks, Curvilinear coordinates, Subplots, Advanced usage
+@subsection Axis and ticks
 
-MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The limits of axes and their origin (the point of intersection) are determined by function @code{axis}. Also you can use @code{xrange, yrange, zrange} functions (@pxref{Axis settings}). Ticks on axis are specified by functions @code{xtick, ytick, ztick, ttick}. First argument the direction for each change will be applied. Second argument gives the step between ticks (if positive) or gives the number of ticks on the axis (if negative) or set to use logarithmic ticks (if zero). Third argument gives numbers of sub-ticks between ticks (default is zero). Last argument define the initial ticks position.
+MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The ranges of axes and their origin (the point of intersection) are determined by functions @code{SetRange()}, @code{SetRanges()}, @code{SetOrigin()} (see @ref{Ranges (bounding box)}). Ticks on axis are specified by function @code{SetTicks}, @code{SetTicksVal}, @code{SetTicksTime} (see @ref{Ticks}). But usually
 
-Function @code{Axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{'xyz'}, function draws axes in all directions). Function @code{Grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
+Command @ref{axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Command @ref{grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
 @verbatim
-subplot 2 2 0
-xtick 0.4 3     # sets tick step to 0.5
-ytick 0.4 3     # and draws 3 subticks
-box             # should be after the ticks change
-axis 'xy': grid
-text 0 1.3 1 'axis and grid'
+subplot 2 2 0:title 'Axis origin, Grid'
+origin 0 0:axis:grid:fplot 'x^3'
+
+subplot 2 2 1:title '2 axis'
+ranges -1 1 -1 1:origin -1 -1:axis
+ylabel 'axis_1':fplot 'sin(pi*x)' 'r2'
+ranges 0 1 0 1:origin 1 1:axis
+ylabel 'axis_2':fplot 'cos(pi*x)'
+
+subplot 2 2 3:title 'More axis'
+origin nan nan:xrange -1 1:axis
+xlabel 'x' 0:ylabel 'y_1' 0:fplot 'x^2' 'k'
+yrange -1 1:origin -1.3 -1:axis 'y' 'r'
+ylabel '#r{y_2}' 0.2:fplot 'x^3' 'r'
+
+subplot 2 2 2:title '4 segments, inverted axis':origin 0 0:
+inplot 0.5 1 0.5 1 on:ranges 0 10 0 2:axis
+fplot 'sqrt(x/2)':xlabel 'W' 1:ylabel 'U' 1
+inplot 0 0.5 0.5 1 on:ranges 1 0 0 2:axis 'x'
+fplot 'sqrt(x)+x^3':xlabel '\tau' 1
+inplot 0.5 1 0 0.5 on:ranges 0 10 4 0:axis 'y'
+fplot 'x/4':ylabel 'L' -1
+inplot 0 0.5 0 0.5 on:ranges 1 0 4 0:fplot '4*x^2'
+@end verbatim
 
-xtick -5: ytick -5  # restore back
-subplot 2 2 1:rotate 60 40
-origin 0 0 0
+Note, that MathGL can draw not only single axis (which is default). But also several axis on the plot (see right plots). The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes I setup the first axis and draw everything concerning it. Then I setup the second axis and draw things for the second axis. Generally, the similar idea allows one to draw rather complicated plot of 4 axis with different ranges (see bottom left plot).
+
+At this inverted axis can be created by 2 methods. First one is used in this sample -- just specify minimal axis value to be large than maximal one. This method work well for 2D axis, but can wrongly place labels in 3D case. Second method is more general and work in 3D case too -- just use @ref{aspect} function with negative arguments. For example, following code will produce exactly the same result for 2D case, but 2nd variant will look better in 3D.
+@verbatim
+# variant 1
+ranges 0 10 4 0:axis
+
+# variant 2
+ranges 0 10 0 4:aspect 1 -1:axis
+@end verbatim
+
+@pfig{axis, Example of axis.}
+
+Another MathGL feature is fine ticks tunning. By default (if it is not changed by @code{SetTicks} function), MathGL try to adjust ticks positioning, so that they looks most human readable. At this, MathGL try to extract common factor for too large or too small axis ranges, as well as for too narrow ranges. Last one is non-common notation and can be disabled by @code{SetTuneTicks} function.
+
+Also, one can specify its own ticks with arbitrary labels by help of @code{SetTicksVal} function. Or one can set ticks in time format. In last case MathGL will try to select optimal format for labels with automatic switching between years, months/days, hours/minutes/seconds or microseconds. However, you can specify its own time representation using formats described in @url{http://www.manpagez.com/man/3/strftime/}. Most common variants are @samp{%X} for national representation of time, @samp{%x} for national representation of date, @samp{%Y} for year with century.
+
+The sample code, demonstrated ticks feature is
+@verbatim
+subplot 3 2 0:title 'Usual axis'
 axis
-xlabel 'x' 1
-ylabel 'y' 1
-zlabel 'z' 1
-text 0 0 1.5 'axis and labels'
 
-subplot 2 2 2:rotate 60 40
-xtick 0.2: ytick 0.2: ztick 0.2 # too low step of ticks
-origin -1 -1 -1
-axis:grid
-text 0 0 1.5 'shift origin and add grid'
-text 0 0 1.2 '(note, too many ticks)'
+subplot 3 2 1:title 'Too big/small range'
+ranges -1000 1000 0 0.001:axis
 
-subplot 2 2 3:rotate 60 40
-xtick -6: ytick -6  # decrease the number of ticks
-axis 'yz'
-ylabel 'y axis'
-zlabel 'z axis'
-text 0 0 1.5 'remove x axis, and'
-text 0 0 1.2 'decrease number of ticks'
+subplot 3 2 3:title 'Too narrow range'
+ranges 100 100.1 10 10.01:axis
+
+subplot 3 2 4:title 'Disable ticks tuning'
+tuneticks off:axis
+
+subplot 3 2 2:title 'Manual ticks'
+ranges -pi pi 0 2
+xtick -pi '\pi' -pi/2 '-\pi/2' 0 '0' 0.886 'x^*' pi/2 '\pi/2' pi 'pi'
+# or you can use:
+#list v -pi -pi/2 0 0.886 pi/2 pi:xtick v '-\pi\n-\pi/2\n{}0\n{}x^*\n\pi/2\n\pi'
+axis:grid:fplot '2*cos(x^2)^2' 'r2'
+
+subplot 3 2 5:title 'Time ticks'
+xrange 0 3e5:ticktime 'x':axis
 @end verbatim
 
-This example shows the importance of the correct choosing of the number of ticks on axis. If tick step is too small then its text may overlap and becomes unreadable. This code has the example of @code{Label} function. It draws label for axis in specified direction. The text position on axis is specified by third argument of @code{Label} function. If it is positive then then text is drawn near the axis maximum, if negative then the same takes place near the minimum of axis, if zero - then at the center of axis.
+@pfig{ticks, Features of axis ticks.}
 
-@mreal
-@image{../png/sample2, 7cm}
-@caption{Example of setting up axis range and axis ticks.}
-@end mreal
+The last sample I want to show in this subsection is Log-axis. From MathGL's point of view, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
+@verbatim
+subplot 2 2 0 '<_':title 'Semi-log axis'
+ranges 0.01 100 -1 1:axis 'lg(x)' '' ''
+axis:grid 'xy' 'g':fplot 'sin(1/x)'
+xlabel 'x' 0:ylabel 'y = sin 1/x' 0
+
+subplot 2 2 1 '<_':title 'Log-log axis'
+ranges 0.01 100 0.1 100:axis 'lg(x)' 'lg(y)' ''
+axis:fplot 'sqrt(1+x^2)'
+xlabel 'x' 0:ylabel 'y = \sqrt{1+x^2}' 0
+
+subplot 2 2 2 '<_':title 'Minus-log axis'
+ranges -100 -0.01 -100 -0.1:axis '-lg(-x)' '-lg(-y)' ''
+axis:fplot '-sqrt(1+x^2)'
+xlabel 'x' 0:ylabel 'y = -\sqrt{1+x^2}' 0
+
+subplot 2 2 3 '<_':title 'Log-ticks'
+ranges 0.01 100 0 100:axis 'sqrt(x)' '' ''
+axis:fplot 'x'
+xlabel 'x' 1:ylabel 'y = x' 0
+@end verbatim
+
+@pfig{loglog, Features of axis ticks.}
+
+You can see that MathGL automatically switch to log-ticks as we define log-axis formula (in difference from v.1.*). Moreover, it switch to log-ticks for any formula if axis range will be large enough (see right bottom plot). Another interesting feature is that you not necessary define usual log-axis (i.e. when coordinates are positive), but you can define ``minus-log'' axis when coordinate is negative (see left bottom plot).
 
 @c ------------------------------------------------------------------
-@node Curvilinear coordinates, Text printing example, Axis and grids, Advanced usage
+@c @external
+@node Curvilinear coordinates, Colorbars, Axis and ticks, Advanced usage
 @subsection Curvilinear coordinates
 
-
-Now let use curvilinear coordinates. In difference from other systems of plot creation, MathGL uses textual formulas for connection of the old (data) and new (output) coordinates. This allows one to plot in arbitrary coordinates. The following code plots the line @var{y}=0, @var{z}=0 in Cartesian, polar, parabolic and spiral coordinates:
+As I noted in previous subsection, MathGL support curvilinear coordinates. In difference from other plotting programs and libraries, MathGL uses textual formulas for connection of the old (data) and new (output) coordinates. This allows one to plot in arbitrary coordinates. The following code plots the line @var{y}=0, @var{z}=0 in Cartesian, polar, parabolic and spiral coordinates:
 @verbatim
-new x 50: new y 50: new z 50
-fill y 0.5 0.5: fill x -1 1 # creates data arrays
 origin -1 1 -1
+subplot 2 2 0:title 'Cartesian':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 0:rotate 60 40
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'cartesian'
-
-subplot 2 2 1:rotate 60 40
-axis 'y*sin(pi*x)' 'y*cos(pi*x)' ''
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'cylindrical'
+axis 'y*sin(pi*x)' 'y*cos(pi*x)' '':
+subplot 2 2 1:title 'Cylindrical':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 2:rotate 60 40
 axis '2*y*x' 'y*y - x*x' ''
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'parabolic'
+subplot 2 2 2:title 'Parabolic':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
 
-subplot 2 2 3:rotate 60 40
 axis 'y*sin(pi*x)' 'y*cos(pi*x)' 'x+z'
-plot x y z 'r2'
-axis: grid
-text 0 1.3 1 'spiral'
+subplot 2 2 3:title 'Spiral':rotate 50 60
+fplot '2*t-1' '0.5' '0' '2r':axis:grid
+@end verbatim
+
+@pfig{curvcoor, Example of curvilinear coordinates}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Colorbars, Bounding box, Curvilinear coordinates, Advanced usage
+@subsection Colorbars
+
+MathGL handle @ref{colorbar} as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
+
+But of course, there are differences -- colorbars usually located out of bounding box. At this, colorbars can be at subplot boundaries (by default), or at bounding box (if symbol @samp{I} is specified). Colorbars can handle sharp colors. And they can be located at arbitrary position too. The sample code, which demonstrate colorbar features is:
+@verbatim
+call 'prepare2d'
+new v 9 'x'
+
+subplot 2 2 0:title 'Colorbar out of box':box
+colorbar '<':colorbar '>':colorbar '_':colorbar '^'
+
+subplot 2 2 1:title 'Colorbar near box':box
+colorbar '<I':colorbar '>I':colorbar '_I':colorbar '^I'
+
+subplot 2 2 2:title 'manual colors':box:contd v a
+colorbar v '<':colorbar v '>':colorbar v '_':colorbar v '^'
+
+subplot 2 2 3:title '':text -0.5 1.55 'Color positions' ':C' -2
+
+colorbar 'bwr>' 0.25 0:text -0.9 1.2 'Default'
+colorbar 'b{w,0.3}r>' 0.5 0:text -0.1 1.2 'Manual'
+
+crange 0.01 1e3
+colorbar '>' 0.75 0:text 0.65 1.2 'Normal scale'
+colorbar '>':text 1.35 1.2 'Log scale'
+@end verbatim
+
+@pfig{colorbar, Example of colorbars}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Bounding box, Ternary axis, Colorbars, Advanced usage
+@subsection Bounding box
+
+Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @ref{box} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @ref{box} features is:
+@verbatim
+subplot 2 2 0:title 'Box (default)':rotate 50 60:box
+
+subplot 2 2 1:title 'colored':rotate 50 60:box 'r'
+
+subplot 2 2 2:title 'with faces':rotate 50 60:box '@'
+
+subplot 2 2 3:title 'both':rotate 50 60:box '@cm'
 @end verbatim
 
-@mreal
-@image{../png/sample3, 7cm}
-@caption{Example of curvilinear coordinates}
-@end mreal
+@pfig{box, Example of Box()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Ternary axis, Text features, Bounding box, Advanced usage
+@subsection Ternary axis
+
+There are another unusual axis types which are supported by MathGL. These are ternary and quaternary axis. Ternary axis is special axis of 3 coordinates @var{a}, @var{b}, @var{c} which satisfy relation @var{a}+@var{b}+@var{c}=1. Correspondingly, quaternary axis is special axis of 4 coordinates @var{a}, @var{b}, @var{c}, @var{d} which satisfy relation @var{a}+@var{b}+@var{c}+@var{d}=1.
+
+Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @ref{ternary} function for switching to ternary/quaternary coordinates. The sample code is:
+@verbatim
+ranges 0 1 0 1 0 1
+new x 50 '0.25*(1+cos(2*pi*x))'
+new y 50 '0.25*(1+sin(2*pi*x))'
+new z 50 'x'
+new a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'
+new rx 10 'rnd':copy ry (1-rx)*rnd
+light on
+
+subplot 2 2 0:title 'Ordinary axis 3D':rotate 50 60
+box:axis:grid
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':zlabel 'Z'
+
+subplot 2 2 1:title 'Ternary axis (x+y+t=1)':ternary 1
+box:axis:grid 'xyz' 'B;'
+plot x y 'r2':plot rx ry 'q^ ':cont a:line 0.5 0 0 0.75 'g2'
+xlabel 'B':ylabel 'C':tlabel 'A'
+
+subplot 2 2 2:title 'Quaternary axis 3D':rotate 50 60:ternary 2
+box:axis:grid 'xyz' 'B;'
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':tlabel 'A':zlabel 'D'
+
+subplot 2 2 3:title 'Ternary axis 3D':rotate 50 60:ternary 1
+box:axis:grid 'xyz' 'B;'
+plot x y z 'r2':surf a '#'
+xlabel 'B':ylabel 'C':tlabel 'A':zlabel 'Z'
+@end verbatim
 
+@pfig{ternary, Ternary and Quaternary axis}
 
 @c ------------------------------------------------------------------
-@node Text printing example, , Curvilinear coordinates, Advanced usage
-@subsection Text printing example
+@c @external
+@node Text features, Legend sample, Ternary axis, Advanced usage
+@subsection Text features
+
+MathGL prints text by vector font. There are functions for manual specifying of text position (like @code{Puts}) and for its automatic selection (like @code{Label}, @code{Legend} and so on). MathGL prints text always in specified position even if it lies outside the bounding box. The default size of font is specified by functions @var{SetFontSize*} (see @ref{Font settings}). However, the actual size of output string depends on subplot size (depends on functions @code{SubPlot}, @code{InPlot}). The switching of the font style (italic, bold, wire and so on) can be done for the whole string (by function parameter) or inside the string. By default MathGL parses TeX-like commands for symbols and indexes (see @ref{Font styles}).
 
-MathGL prints text by vector font. There are functions for manual specifying of text position (like @code{Puts}) and for its automatic selection (like @code{Label}, @code{legend} and so on). MathGL prints text always in specified position even if it lies outside the bounding box. The default size of font is specified by command @var{fontsize}. However, the actual size of output string depends on position of axes (depends on functions @code{SubPlot}, @code{InPlot}). The switching of the font style (italic, bold, wire and so on) can be done for the whole string (by function parameter) or inside the string. By default MathGL parses TeX-like commands for symbols and indexes (see @pxref{Font styles}). Example of MathGL font drawing is:
+Text can be printed as usual one (from left to right), along some direction (rotated text), or along a curve. Text can be printed on several lines, divided by new line symbol @samp{\n}.
+
+Example of MathGL font drawing is:
 @verbatim
+call 'prepare1d'
+
+subplot 2 2 0 ''
 text 0 1 'Text can be in ASCII and in Unicode'
 text 0 0.6 'It can be \wire{wire}, \big{big} or #r{colored}'
 text 0 0.2 'One can change style in string: \b{bold}, \i{italic, \b{both}}'
 text 0 -0.2 'Easy to \a{overline} or \u{underline}'
 text 0 -0.6 'Easy to change indexes ^{up} _{down} @{center}'
-text 0 -1 'It parse TeX: \int \alpha \cdot \sqrt3{sin(\pi x)^2 + \gamma_{i_k}} dx'
+text 0 -1 'It parse TeX: \int \alpha \cdot \
+\sqrt3{sin(\pi x)^2 + \gamma_{i_k}} dx'
+
+subplot 2 2 1 ''
+ text 0 0.5 '\sqrt{\frac{\alpha^{\gamma^2}+\overset 1{\big\infty}}{\sqrt3{2+b}}}' '@' -2
+text 0 -0.5 'Text can be printed\n{}on several lines'
+
+subplot 2 2 2 '':box:plot y(:,0)
+text y 'This is very very long string drawn along a curve' 'k'
+text y 'Another string drawn above a curve' 'Tr'
+
+subplot 2 2 3 '':line -1 -1 1 -1 'rA':text 0 -1 1 -1 'Horizontal'
+line -1 -1 1 1 'rA':text 0 0 1 1 'At angle' '@'
+line -1 -1 -1 1 'rA':text -1 0 -1 1 'Vertical'
+@end verbatim
+
+@pfig{text, Example of text printing}
+
+You can change font faces by loading font files by function @ref{loadfont}. Note, that this is long-run procedure. Font faces can be downloaded from @uref{http://mathgl.sourceforge.net/download.html, MathGL website} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. The sample code is:
+@verbatim
+define d 0.25
+loadfont 'STIX':text 0 1.1 'default font (STIX)'
+loadfont 'adventor':text 0 1.1-d 'adventor font'
+loadfont 'bonum':text 0 1.1-2*d 'bonum font'
+loadfont 'chorus':text 0 1.1-3*d 'chorus font'
+loadfont 'cursor':text 0 1.1-4*d 'cursor font'
+loadfont 'heros':text 0 1.1-5*d 'heros font'
+loadfont 'heroscn':text 0 1.1-6*d 'heroscn font'
+loadfont 'pagella':text 0 1.1-7*d 'pagella font'
+loadfont 'schola':text 0 1.1-8*d 'schola font'
+loadfont 'termes':text 0 1.1-9*d 'termes font'
+@end verbatim
+
+@pfig{fonts, Example of font faces}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Legend sample, Cutting sample, Text features, Advanced usage
+@subsection Legend sample
+
+Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @ref{addlegend} function; or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @ref{clearlegend} function allow you to remove all saved legend entries.
+
+There are 2 features. If plot style is empty then text will be printed without indent. If you want to plot the text with indent but without plot sample then you need to use space @samp{ } as plot style. Such style @samp{ } will draw a plot sample (line with marker(s)) which is invisible line (i.e. nothing) and print the text with indent as usual one.
+
+Command @ref{legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
+@verbatim
+addlegend 'sin(\pi {x^2})' 'b'
+addlegend 'sin(\pi x)' 'g*'
+addlegend 'sin(\pi \sqrt{x})' 'rd'
+addlegend 'jsut text' ' '
+addlegend 'no indent for this' ''
+
+subplot 2 2 0 '':title 'Legend (default)':box
+legend
+
+text 0.75 0.65 'Absolute position' 'A'
+legend 3 'A#'
+
+subplot 2 2 2 '':title 'coloring':box
+legend 0 'r#':legend 1 'Wb#':legend 2 'ygr#'
+
+subplot 2 2 3 '':title 'manual position':box
+legend 0.5 1:text 0.5 0.55 'at x=0.5, y=1' 'a'
+legend 1 '#-':text 0.75 0.25 'Horizontal legend' 'a'
 @end verbatim
 
-@mreal
-@image{../png/sample4, 7cm}
-@caption{Example of text printing with different font effects}
-@end mreal
+@pfig{legend, Example of legend}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cutting sample, , Legend sample, Advanced usage
+@subsection Cutting sample
+
+The last common thing which I want to show in this section is how one can cut off points from plot. There are 4 mechanism for that.
+@itemize @bullet
+@item
+You can set one of coordinate to NAN value. All points with NAN values will be omitted.
+
+@item
+You can enable cutting at edges by @code{SetCut} function. As result all points out of bounding box will be omitted.
+
+@item
+You can set cutting box by @code{SetCutBox} function. All points inside this box will be omitted.
+
+@item
+You can define cutting formula by @code{SetCutOff} function. All points for which the value of formula is nonzero will be omitted. Note, that this is the slowest variant.
+@end itemize
 
-Another example demonstrate the features of TeX formula parsing.
+Below I place the code which demonstrate last 3 possibilities:
 @verbatim
-text 0 0 '\sqrt{\frac{\alpha^{\gamma^2}+\overset 1{\big\infty}}{\sqrt3{2+b}}}', 0, -4
+call 'prepare2d'
+call 'prepare3d'
+
+subplot 2 2 0:title 'Cut on (default)':rotate 50 60
+light on:box:surf a; zrange -1 0.5
+
+subplot 2 2 1:title 'Cut off':rotate 50 60
+box:surf a; zrange -1 0.5; cut off
+
+subplot 2 2 2:title 'Cut in box':rotate 50 60:box:alpha on
+cut 0 -1 -1 1 0 1.1:surf3 c
+cut 0 0 0 0 0 0        # restore back
+
+subplot 2 2 3:title 'Cut by formula':rotate 50 60:box
+cut '(z>(x+0.5*y-1)^2-1) & (z>(x-0.5*y-1)^2-1)':surf3 c
 @end verbatim
 
-@mreal
-@image{../png/samplee, 7cm}
-@caption{Example of TeX formula parsing}
-@end mreal
+@pfig{cut, Example of point cutting}
+
 
 
 @c ------------------------------------------------------------------
+@external
 @node Data handling, Data plotting, Advanced usage, Examples
 @section Data handling
 
-@c Class @code{mglData} contains all functions for the data handling in MathGL (@pxref{mglData class}). There are several matters why I use class @code{mglData} but not a single array: it does not depend on type of data (mreal or double), sizes of data arrays are kept with data, memory working is simpler and safer.
+Class @code{mglData} contains all functions for the data handling in MathGL (@pxref{Data processing}). There are several matters why I use class @code{mglData} but not a single array: it does not depend on type of data (mreal or double), sizes of data arrays are kept with data, memory working is simpler and safer.
 
 @menu
-* Array creation::              
-* Data changing::               
+* Array creation::
+* Change data::
 @end menu
 
 @c ------------------------------------------------------------------
-@node Array creation, Data changing, , Data handling
+@c @external
+@node Array creation, Change data, , Data handling
 @subsection Array creation
 
-One can put numbers into the data instance by several ways. Let us do it for sinus function:
+One can put numbers into the data instance by several ways. Let us do it for square function:
 @itemize @bullet
 @item
 one can create array by @code{list} command
@@ -252,11 +573,15 @@ or fill the array using current axis range
 new a 6
 fill a '(x+1)^2/4'
 @end verbatim
+or use single line
+@verbatim
+new a 6 '(x+1)^2/4'
+@end verbatim
 
 @item
 finally it can be loaded from file
 @verbatim
-new s 6: modify s 'x^2'
+new s 6 '(x+1)^2/4'
 save s 'sqr.dat'    # create file first
 read a 'sqr.dat'    # load it
 @end verbatim
@@ -264,7 +589,7 @@ read a 'sqr.dat'    # load it
 @item
 at this one can read only part of data
 @verbatim
-new s 6: modify s 'x^2'
+new s 6 '(x+1)^2/4'
 save s 'sqr.dat'    # create file first
 read a 'sqr.dat' 5  # load it
 @end verbatim
@@ -280,115 +605,159 @@ copy a [[11,12,13],[21,22,23],[31,32,33]]
 @end verbatim
 Also data can be filled by formula
 @verbatim
-new z 30 40
-fill z 'sin(pi*x)*cos(pi*y)'
+new z 30 40 'sin(pi*x)*cos(pi*y)'
 @end verbatim
-or loaded from file.
-
-The only non-obvious thing here is using multidimensional arrays in C/C++, i.e. arrays defined like @code{mreal dat[40][30];}. Since, formaly this arrays element @code{dat[i]} can address the memory in arbitrary place you should use the proper function to convert such arrays to @code{mglData} object. For C++ this is functions like @code{mglData::Set(mreal **dat, int N1, int N2}. For C this is functions like @code{mgl_data_set_mreal2(HMDT d, const mreal **dat, int N1, int N2}. At this, you should keep in mind that @code{nx=N2} and @code{ny=N1} after conversion.
+or loaded from a file.
 
 @c ------------------------------------------------------------------
-@node Data changing, , Array creation, Data handling
-@subsection Data changing
+@c @external
+@node Change data, , Array creation, Data handling
+@subsection Change data
 
-MathGL has functions for data processing: differentiating, integrating, smoothing and so on. Let us consider some examples. The simplest ones are integration and differentiation. The direction in which operation will be performed is specified by textual string, which may contain symbols @samp{x}, @samp{y} or @samp{z}. For example, the call of @code{diff a 'x'} will differentiate data along @samp{x} direction; the call of @code{integrate a 'xy'} perform the double integration of data along @samp{x} and @samp{y} directions; the call of @code{diff2 a 'xyz'} will apply 3d Laplace operator to data and so on. Example of this operations on 2d array a=x*y is presented in code:
+MathGL has functions for data processing: differentiating, integrating, smoothing and so on (for more detail, see @ref{Data processing}). Let us consider some examples. The simplest ones are integration and differentiation. The direction in which operation will be performed is specified by textual string, which may contain symbols @samp{x}, @samp{y} or @samp{z}. For example, the call of @code{diff 'x'} will differentiate data along @samp{x} direction; the call of @code{integrate 'xy'} perform the double integration of data along @samp{x} and @samp{y} directions; the call of @code{diff2 'xyz'} will apply 3d Laplace operator to data and so on. Example of this operations on 2d array a=x*y is presented in code:
 @verbatim
-new a 30 40: modify a 'x*y'
-axis 0 0 0 1 1 1
-subplot 2 2 0:rotate 60 40
-surf a: box
-text 0.7 1 1.2 'a(x,y)'
-subplot 2 2 1:rotate 60 40
-diff a 'x': surf a: box
-text 0.7 1 1.2 'da/dx'
-subplot 2 2 2:rotate 60 40
-integrate a 'xy': surf a: box
-text 0.7 1 1.2 '\int da/dx dxdy'
-subplot 2 2 3:rotate 60 40
-diff2 a 'y': surf a: box
-text 0.7 1 1.2 '\int {d^2}a/dxdy dx'
+ranges 0 1 0 1 0 1:new a 30 40 'x*y'
+subplot 2 2 0:title 'a(x,y)':rotate 60 40
+surf a:box
+
+subplot 2 2 1:title 'da/dx':rotate 60 40
+diff a 'x':surf a:box
+
+subplot 2 2 2:title '\int da/dx dxdy':rotate 60 40
+integrate a 'xy':surf a:box
+
+subplot 2 2 3:title '\int {d^2}a/dxdy dx':rotate 60 40
+diff2 a 'y':surf a:box
 @end verbatim
 
-@mreal
-@image{../png/sample6, 7cm}
-@caption{Example of data differentiation and integration}
-@end mreal
+@pfig{dat_diff, Example of data differentiation and integration}
 
-Data smoothing (function @code{Smooth}) is more interesting and important. This function has 2 main arguments: type of smoothing and its direction. Now 4 methods are supported: @code{0} does nothing for delta=0 or approaches data to zero with the step delta, @code{1} linear averaging by 3 points, @code{2} linear averaging by 5 points, @code{3} quadratic averaging by 5 points. Let me demonstrate it for 1d case:
-@verbatim
-new y0 30
-modify y0 '0.4*sin(2*pi*x)+0.3*cos(3*pi*x)-0.4*sin(4*pi*x)+0.2*rnd'
-copy y1 y0: smooth y1 1
-copy y2 y0: smooth y2 2
-copy y3 y0: smooth y3 3
+Data smoothing (command @ref{smooth}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
 
-plot y0 'k': addlegend 'none' 'k'
-plot y1 'r': addlegend 'line 3' 'r'
-plot y2 'g': addlegend 'line 5' 'g'
-plot y3 'b': addlegend 'quad 5' 'b'
-legend: box
+MathGL also have some amazing functions which is not so important for data processing as useful for data plotting. There are functions for finding envelope (useful for plotting rapidly oscillating data), for data sewing (useful to removing jumps on the phase), for data resizing (interpolation). Let me demonstrate it:
+@verbatim
+subplot 2 2 0 '':title 'Envelop sample'
+new d1 1000 'exp(-8*x^2)*sin(10*pi*x)'
+axis:plot d1 'b'
+envelop d1 'x'
+plot d1 'r'
+
+subplot 2 2 1 '':title 'Smooth sample':ranges 0 1 0 1
+new y0 30 '0.4*sin(pi*x) + 0.3*cos(1.5*pi*x) - 0.4*sin(2*pi*x)+0.5*rnd'
+copy y1 y0:smooth y1 'x3':plot y1 'r';legend '"3" style'
+copy y2 y0:smooth y2 'x5':plot y2 'g';legend '"5" style'
+copy y3 y0:smooth y3 'x':plot y3 'b';legend 'default'
+plot y0 '{m7}:s';legend 'none':legend:box
+
+subplot 2 2 2:title 'Sew sample':rotate 50 60:light on:alpha on
+new d2 100 100 'mod((y^2-(1-x)^2)/2,0.1)'
+box:surf d2 'b'
+sew d2 'xy' 0.1
+surf d2 'r'
+
+subplot 2 2 3:title 'Resize sample (interpolation)'
+new x0 10 'rnd':new v0 10 'rnd'
+resize x1 x0 100:resize v1 v0 100
+plot x0 v0 'b+ ':plot x1 v1 'r-':label x0 v0 '%n'
 @end verbatim
 
-@mreal
-@image{../png/sample7, 7cm}
-@caption{Example of data smoothing}
-@end mreal
+@pfig{dat_extra, Example of data smoothing}
 
-Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@code{SubData}), summarize along some of direction(s) (@code{Sum}), find distribution of data elements (@code{Hist}). Note, that all these functions are not thread-safe because they use static internal variable for output array. In particular, the using of several of them in arguments of the same function will lead to unpredictable result.
+Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@ref{subdata}), summarize along a direction(s) (@ref{sum}), find distribution of data elements (@ref{hist}) and so on.
 
-@c ------------------------------------------------------------------
-@node Data plotting, Hints, Data handling, Examples
-@section Data plotting
+@anchor{Solve sample}
+Another interesting feature of MathGL is interpolation and root-finding. There are several functions for linear and cubic spline interpolation (see @ref{Interpolation}). Also there is a function @ref{evaluate} which do interpolation of data array for values of each data element of index data. It look as indirect access to the data elements.
 
-Let me now show how to plot the data. MathGL generally has 2 types of plotting functions. Simple variant requires a single data array for plotting, other data (coordinates) are considered uniformly distributed in interval @var{Min}*@var{Max}. Second variant requires data arrays for all coordinates. It allows one to plot rather complex multivalent curves and surfaces (in case of parametric dependencies). Argument setting to default values allows one to plot data in standard form. Manual arguments setting gives possibility for fine tuning of colors, positions and view of graphics. Note, that the call of drawing function adds something to picture but does not clear the previous plots (as it does in Matlab). Another difference from Matlab is that all setup (like transparency, lightning, axis borders and so on) must be specified @strong{before} plotting functions.
+This function have inverse function @ref{solve} which find array of indexes at which data array is equal to given value (i.e. work as root finding). But @ref{solve} function have the issue -- usually multidimensional data (2d and 3d ones) have an infinite number of indexes which give some value. This is contour lines for 2d data, or isosurface(s) for 3d data. So, @ref{solve} function will return index only in given direction, assuming that other index(es) are the same as equidistant index(es) of original data. Let me demonstrate this on the following sample.
 
-@menu
-* Plots for 1D data::           
-* Plots for 2D data::           
-* Plots for 3D data::           
-* Surface transparency::        
-@end menu
+@verbatim
+zrange 0 1
+new x 20 30 '(x+2)/3*cos(pi*y)'
+new y 20 30 '(x+2)/3*sin(pi*y)'
+new z 20 30 'exp(-6*x^2-2*sin(pi*y)^2)'
+
+subplot 2 1 0:title 'Cartesian space':rotate 30 -40
+axis 'xyzU':box
+xlabel 'x':ylabel 'y'origin 1 1:grid 'xy'
+mesh x y z
+
+# section along 'x' direction
+solve u x 0.5 'x'
+var v u.nx 0 1
+evaluate yy y u v
+evaluate xx x u v
+evaluate zz z u v
+plot xx yy zz 'k2o'
+
+# 1st section along 'y' direction
+solve u1 x -0.5 'y'
+var v1 u1.nx 0 1
+evaluate yy y v1 u1
+evaluate xx x v1 u1
+evaluate zz z v1 u1
+plot xx yy zz 'b2^'
+
+# 2nd section along 'y' direction
+solve u2 x -0.5 'y' u1
+evaluate yy y v1 u2
+evaluate xx x v1 u2
+evaluate zz z v1 u2
+plot xx yy zz 'r2v'
+
+subplot 2 1 1:title 'Accompanied space'
+ranges 0 1 0 1:origin 0 0
+axis:box:xlabel 'i':ylabel 'j':grid2 z 'h'
+
+plot u v 'k2o':line 0.4 0.5 0.8 0.5 'kA'
+plot v1 u1 'b2^':line 0.5 0.15 0.5 0.3 'bA'
+plot v1 u2 'r2v':line 0.5 0.7 0.5 0.85 'rA'
+@end verbatim
+
+@pfig{solve, Example of data interpolation and root finding}
 
 @c ------------------------------------------------------------------
-@node Plots for 1D data, Plots for 2D data, , Data plotting
-@subsection Plots for 1D data
+@external
+@node Data plotting, 1D samples, Data handling, Examples
+@section Data plotting
+
+Let me now show how to plot the data. Next section will give much more examples for all plotting functions. Here I just show some basics. MathGL generally has 2 types of plotting functions. Simple variant requires a single data array for plotting, other data (coordinates) are considered uniformly distributed in axis range. Second variant requires data arrays for all coordinates. It allows one to plot rather complex multivalent curves and surfaces (in case of parametric dependencies). Usually each function have one textual argument for plot style and accept options (see @ref{Command options}).
+
+Note, that the call of drawing function adds something to picture but does not clear the previous plots (as it does in Matlab). Another difference from Matlab is that all setup (like transparency, lightning, axis borders and so on) must be specified @strong{before} plotting functions.
 
-Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. There are 5 generally different types of data representations: simple line plot, line plot with filling under it, stairs plot, bar plot and vertical lines (@pxref{1D plotting}). Each type of plotting has similar interface. There are 3D version and two 2D versions. One of last requires single array. The parameters of line and marks (@pxref{Line styles}) are specified by the string argument. If the string parameter is @code{NULL} then solid line with color from palette is used.
+Let start for plots for 1D data. Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. The textual argument allow you specify styles of line and marks (see @ref{Line styles}). If this parameter is empty @code{''} then solid line with color from palette is used (see @ref{Palette and colors}).
 
-Below I shall show the features of 1D plotting on base of @code{plot} function (@pxref{1D plotting}). Let us start from sinus plot:
+Below I shall show the features of 1D plotting on base of @ref{plot} function. Let us start from sinus plot:
 @verbatim
-new y0 50: modify y0 'sin(pi*(2*x-1))'
+new y0 50 'sin(pi*x)'
 subplot 2 2 0
-plot y0: box
+plot y0:box
 @end verbatim
-Style of line is not specified in @code{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
+Style of line is not specified in @ref{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
 @verbatim
 subplot 2 2 1
 new y1 50 2
-modify y1 'sin(pi*2*x-pi)'
-modify y1 'cos(pi*2*x-pi)/2' 1
-plot y1: box
+fill y1 'cos(pi*(x+y/4))*2/(y+3)'
+plot y1:box
 @end verbatim
 As previously I did not specify the style of lines. As a result, MathGL again uses solid line with next colors in palette (there are green and red). Now let us plot a circle on the same subplot. The circle is parametric curve @math{x=cos(\pi t), y=sin(\pi t)}. I will set the color of the circle (dark yellow, @samp{Y}) and put marks @samp{+} at point position:
 @verbatim
-new x 50: modify x 'cos(pi*2*x-pi)'
+new x 50 'cos(pi*x)'
 plot x y0 'Y+'
 @end verbatim
-Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @code{Plot2} function. Let us draw ellipse by orange dash line:
+Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @ref{plot} and @ref{subdata} functions. Let us draw ellipse by orange dash line:
 @verbatim
-plot y1(:,0) y(:,1) 'q|'
+plot y1(:,0) y1(:,1) 'q|'
 @end verbatim
 
 Drawing in 3D space is mostly the same. Let us draw spiral with default line style. Now its color is 4-th color from palette (this is cyan):
 @verbatim
 subplot 2 2 2:rotate 60 40
-new z 50: modify z '2*x-1'
-plot x y0 z 'g':box
+new z 50 'x'
+plot x y0 z:box
 @end verbatim
-Function @code{Plot3} does 3D curve plot but for single array. Use it to put circle marks on the previous plot:
+Functions @ref{plot} and @ref{subdata} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
 @verbatim
-new y2 10 3
-modify y2 'cos(pi*(2*x-1-y))'
+new y2 10 3 'cos(pi*(x+y/2))'
 modify y2 '2*x-1' 2
 plot y2(:,0) y2(:,1) y2(:,2) 'bo '
 @end verbatim
@@ -398,16 +767,7 @@ subplot 2 2 3:rotate 60 40
 bars x y0 z 'r':box
 @end verbatim
 
-@mreal
-@image{../png/sample8, 7cm}
-@caption{Example of 1D data plot}
-@end mreal
-
-@c ------------------------------------------------------------------
-@node Plots for 2D data, Plots for 3D data, Plots for 1D data, Data plotting
-@subsection Plots for 2D data
-
-Surfaces @code{Surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not by line style but by the color scheme of the plot (@pxref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{'BbwrR'}). Last one is the popular ``jet'' scheme (string @samp{'BbcyrR'}).
+Surfaces @ref{surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
 
 Now I shall show the example of a surface drawing. At first let us switch lightning on
 @verbatim
@@ -415,21 +775,19 @@ light on
 @end verbatim
 and draw the surface, considering coordinates x,y to be uniformly distributed in interval @var{Min}*@var{Max}
 @verbatim
-new a0 50 40
-modify a0 '0.6*sin(2*pi*x)*sin(3*pi*y)+0.4*cos(3*pi*(x*y))'
+new a0 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
 subplot 2 2 0:rotate 60 40
-surf a0: box
+surf a0:box
 @end verbatim
 Color scheme was not specified. So previous color scheme is used. In this case it is default color scheme (``jet'') for the first plot. Next example is a sphere. The sphere is parametrically specified surface:
 @verbatim
-new x 50 40: new y 50 40: new z 50 40
-modify x '0.8*sin(2*pi*x)*sin(pi*y)'
-modify y '0.8*cos(2*pi*x)*sin(pi*y)'
-modify z '0.8*cos(pi*y)'
+new x 50 40 '0.8*sin(pi*x)*cos(pi*y/2)'
+new y 50 40 '0.8*cos(pi*x)*cos(pi*y/2)'
+new z 50 40 '0.8*sin(pi*y/2)'
 subplot 2 2 1:rotate 60 40
-surf x y z 'bbwrr': box
+surf x y z 'BbwrR':box
 @end verbatim
-I set color scheme to @code{'BbwrR'} that corresponds to red top and blue bottom of the sphere.
+I set color scheme to @code{"BbwrR"} that corresponds to red top and blue bottom of the sphere.
 
 Surfaces will be plotted for each of slice of the data if @var{nz}>1. Next example draws surfaces for data arrays with @var{nz}=3:
 @verbatim
@@ -439,337 +797,1833 @@ modify a1 '0.6*cos(2*pi*x)*cos(3*pi*y)+0.4*sin(3*pi*(x*y))' 1
 modify a1 '0.6*cos(2*pi*x)*cos(3*pi*y)+0.4*cos(3*pi*(x*y))' 2
 subplot 2 2 2:rotate 60 40
 alpha on
-surf a1: box
+surf a1:box
 @end verbatim
 Note, that it may entail a confusion. However, if one will use density plot then the picture will look better:
 @verbatim
-subplot 2 2 3: rotate 60 40
-dens a1: box
+subplot 2 2 3:rotate 60 40
+dens a1:box
 @end verbatim
-Note, that the previous color scheme is used in last plots because there are no direct specification of the one.
 
-@mreal
-@image{../png/sample9, 7cm}
-@caption{Example of surface plot for 2D data}
-@end mreal
+Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@ref{grid} or @ref{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @ref{axial}) this flag switches the  face drawing off and figure becomes wired.
+@c ------------------------------------------------------------------
+@external
+@node 1D samples, 2D samples, Data plotting, Examples
+@section 1D samples
 
-Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@code{grid} or @code{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @code{axial}) this flag switches the  face drawing off. Figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
+This section is devoted to visualization of 1D data arrays. 1D means the data which depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. Most of samples will use the same data for plotting. So, I put its initialization in separate function
 @verbatim
-alpha on: light on: light 0 0 0 1
-new a 30 20
-modify a '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
-
-subplot 2 2 0: rotate 40 60
-surf a 'bbcyrr#': box
-subplot 2 2 1: rotate 40 60
-dens a 'bbcyrr#': box
-subplot 2 2 2: rotate 40 60
-cont a 'bbcyrr#': box
-subplot 2 2 3: rotate 40 60
-axial a 'bbcyrr#': box
+func 'prepare1d'
+new y 50 3
+modify y '0.7*sin(2*pi*x)+0.5*cos(3*pi*x)+0.2*sin(pi*x)'
+modify y 'sin(2*pi*x)' 1
+modify y 'cos(2*pi*x)' 2
+new x1 50 'x'
+new x2 50 '0.05-0.03*cos(pi*x)'
+new y1 50 '0.5-0.3*cos(pi*x)'
+new y2 50 '-0.3*sin(pi*x)'
+return
 @end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Plot sample::
+* Radar sample::
+* Step sample::
+* Tens sample::
+* Area sample::
+* Region sample::
+* Stem sample::
+* Bars sample::
+* Barh sample::
+* Cones sample::
+* Chart sample::
+* BoxPlot sample::
+* Candle sample::
+* Error sample::
+* Mark sample::
+* TextMark sample::
+* Label sample::
+* Table sample::
+* Tube sample::
+* Tape sample::
+* Torus sample::
+@end menu
 
-@mreal
-@image{../png/samplea, 7cm}
-@caption{Example of 2D data plot with color scheme contained @samp{#} symbol}
-@end mreal
 
 @c ------------------------------------------------------------------
-@node Plots for 3D data, Surface transparency, Plots for 2D data, Data plotting
-@subsection Plots for 3D data
+@c @external
+@node Plot sample, Radar sample, , 1D samples
+@subsection Plot sample
 
-Drawing procedures for 3D plot looks similarly to 1D and 2D plots described above. There are 3 general types of 3D plots (@pxref{3D plotting}): (i) plots on slices or on projections, (ii) isosurfaces, (iii) cloud-like plots. Plots on slice are clear enough -- one specifies a slice (as its index or as coordinate value) and MathGL draws contour lines or density plot on slice plane. Isosurface gives more information. Isosurface is 3D analogue of the contour line @code{cont}. It shows the region where data array values exceed specified isosurface level. Plot becomes more informative if one adds transparency, lightning or sets color scheme depending on coordinates. Generalization of isosurface is the cloud-like plot. For this plot the darker color and less transparent regions correspond to higher values of data. Contrary, the regions with low values are transparent. For plotting of the phase of fields (or beams or pulses) one can use isosurface which transparency depends on the other data array (see function @code{surf3a}). As example of 3D data plots let us draw the Gaussian beam diffraction in space. Beam propagates along @var{x} axis:
+Command @ref{plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
 @verbatim
-alpha on: light on
-light 0 0 0 1
-new a 30 30 30: new b 30 30 30
-modify a 'exp(-16*((z-0.5)^2+(y-0.5)^2)/(1+4*x^2))'
-modify b '16*((z-0.5)^2+(y-0.5)^2)*(x)/(1+4*x^2)'
-caxis 0 1
+call 'prepare1d'
+subplot 2 2 0 '':title 'Plot plot (default)':box
+plot y
+
+subplot 2 2 2 '':title ''!' style; 'rgb' palette':box
+plot y 'o!rgb'
 
-subplot 2 2 0: rotate 40 60
-surf3 a 'wgk': box
-subplot 2 2 1: rotate 40 60
-densa a: box: axis
-subplot 2 2 2: rotate 40 60
-cloud a: box
-subplot 2 2 3: rotate 40 60
-surf3a b a 'q': box
+subplot 2 2 3 '':title 'just markers':box
+plot y ' +'
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+plot xc yc z 'rs'
 @end verbatim
 
-@mreal
-@image{../png/sampleb, 7cm}
-@caption{Example of Gaussian beam diffraction (3D data)}
-@end mreal
+@pfig{plot, Example of Plot()}
 
 
 @c ------------------------------------------------------------------
-@node Surface transparency, , Plots for 3D data, Data plotting
-@subsection Surface transparency
-
-MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @code{Alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+@c @external
+@node Radar sample, Step sample, Plot sample, 1D samples
+@subsection Radar sample
 
-First, the selected surface will be non-transparent if one sets the flag @code{transparent} before the surface drawing and sets it off after the drawing.
+Command @ref{radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
+@verbatim
+new yr 10 3 '0.4*sin(pi*(x+1.5+y/2)+0.1*rnd)'
+subplot 1 1 0 '':title 'Radar plot (with grid, "\#")'
+radar yr '#'
+@end verbatim
 
-Second, the value of transparency can be different from surface to surface. To do it just change the value of @code{alphadef} before the drawing of the selected surface. If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent. This is some analogue of @code{transparent on}.
+@pfig{radar, Example of Radar()}
 
-Third feature is the changing of the way how the light goes through overlapped surfaces. The variable @code{transptype} defines it. By default the usual transparency is used (@code{transptype 0}) -- surfaces below is less visible than the upper ones. A ``glass-like'' transparency (@code{transptype 1}) has a different look when the surface just decreases the background light (the surfaces are commutable in this case).
+@c ------------------------------------------------------------------
+@c @external
+@node Step sample, Tens sample, Radar sample, 1D samples
+@subsection Step sample
 
-A ``neon-like'' transparency (@code{transptype 2}) has more interesting look. In this case a surface is the light source (like a lamp on the dark background) and just adds some intensity to the color. At this, the library sets automatically the black color for the background and changes the default line color to white.
+Command @ref{step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
+@verbatim
+call 'prepare1d'
+origin 0 0 0:subplot 2 2 0 '':title 'Step plot (default)':box
+step y
 
-As example I shall show the variant of plot from @ref{Plots for 2D data} (grid drawing is disabled) for different types of transparency.
-@mreal
-@image{../png/type0, 7cm}
-@caption{Example of @code{TranspType=0}.}
-@end mreal
-@mreal
-@image{../png/type1, 7cm}
-@caption{Example of @code{TranspType=1}.}
-@end mreal
-@mreal
-@image{../png/type2, 7cm}
-@caption{Example of @code{TranspType=2}.}
-@end mreal
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+step xc yc z 'r'
 
+subplot 2 2 2 '':title '"!" style':box
+step y 's!rgb'
+@end verbatim
 
+@pfig{step, Example of Step()}
 
 @c ------------------------------------------------------------------
-@node Hints, , Data plotting, Examples
-@section Hints
+@c @external
+@node Tens sample, Area sample, Step sample, 1D samples
+@subsection Tens sample
 
-In this section I have included some small hints and advices for the improving of the quality of plots and for the demonstration of some non-trivial features of MathGL library. In contrast to previous examples I showed mostly the idea but not the whole drawing function. More examples with the source code can be find at @uref{http://mathgl.sf.net/} or in section @ref{Samples}.
+Command @ref{tens} is variant of @ref{plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
+@verbatim
+call 'prepare1d'
+subplot 2 2 0 '':title 'Tens plot (default)':box
+tens y(:,0) y(:,1)
 
-@menu
-* ``Compound'' graphics::       
-* Two axes in one plot::        
-* Titles for the plot::         
-* Changing of the color range:: 
-* Management of a point cutting::
-* Vector field visualization::  
-* Several light sources::       
-* CutMin and CutMax features::  
-* Mapping visualization::       
-* Log-scaled plot::             
-* Nonlinear fitting hints::     
-* PDE solving hints::           
-* Stereo image::                
-@end menu
+subplot 2 2 2 '':title ' style':box
+tens y(:,0) y(:,1) 'o '
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+tens xc yc z z 's'
+@end verbatim
+
+@pfig{tens, Example of Tens()}
 
 @c ------------------------------------------------------------------
-@node ``Compound'' graphics, Two axes in one plot, , Hints
-@subsection ``Compound'' graphics
+@c @external
+@node Area sample, Region sample, Tens sample, 1D samples
+@subsection Area sample
 
-As I noted above, MathGL functions (except the special one, like @code{clf}) do  not erase the previous plotting but just add the new one. It allows one to draw ``compound'' plots easily. For example, popular Matlab command @code{surfc} can be emulated in MathGL by 2 calls:
+Command @ref{area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
 @verbatim
-surf a
-cont a 0 7 -1   # draw contours at z = -1
-@end verbatim
-Here @var{a} is 2-dimensional data for the plotting, @code{-1} is the value of z-coordinate at which the contour should be plotted (at the bottom in this example). Analogously, one can draw density plot instead of contour lines and so on.
+call 'prepare1d'
+origin 0 0 0
+subplot 2 2 0 '':title 'Area plot (default)':box
+area y
 
-Another nice plot is contour lines plotted directly on the surface:
-@verbatim
-light on        # switch on light for the surface
-surf a 'bbcyrr' # select 'jet' colormap for the surface
-cont a 'y'      # and yellow color for contours
+subplot 2 2 1 '':title '2 colors':box
+area y 'cbgGyr'
+
+subplot 2 2 2 '':title '"!" style':box
+area y '!'
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+area xc yc z 'r'
 @end verbatim
-The possible difficulties arise in black&white case, when the color of the surface can be close to the color of a contour line. In that case I may suggest the following code:
+
+@pfig{area, Example of Area()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Region sample, Stem sample, Area sample, 1D samples
+@subsection Region sample
+
+Command @ref{region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
 @verbatim
-light on        # switch on light for the surface
-surf a 'kw'     # select 'gray' colormap for the surface
-caxis -1 0      # first draw for darker surface colors
-conta 'w'       # white contours
-caxis 0 1       # now draw for brighter surface colors
-cont a 'k'      # black contours
+call 'prepare1d'
+copy y1 y(:,1):copy y2 y(:,2)
+subplot 2 2 0 '':title 'Region plot (default)':box
+region y1 y2:plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 1 '':title '2 colors':box
+region y1 y2 'yr':plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 2 '':title '"!" style':box
+region y1 y2 '!':plot y1 'k2':plot y2 'k2'
+
+subplot 2 2 3 '':title '"i" style':box
+region y1 y2 'ir':plot y1 'k2':plot y2 'k2'
 @end verbatim
-The idea is to divide the color range on 2 parts (dark and bright) and to select the contrasting color for contour lines for each of part.
 
-Similarly, one can plot flow thread over density plot of vector field amplitude (this is another amusing plot from Matlab) and so on. The list of compound graphics can be prolonged but I hope that the general idea is clear.
+@pfig{region, Example of Region()}
 
 @c ------------------------------------------------------------------
-@node Two axes in one plot, Titles for the plot, ``Compound'' graphics, Hints
-@subsection Two axes in one plot
+@c @external
+@node Stem sample, Bars sample, Region sample, 1D samples
+@subsection Stem sample
 
-Developing the previous hint one can make a plot with 2 or more axes. The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes plot let us set the first axis and draw everything concerning it. Then let us setup the second axis and draw things for the second axis. The corresponding code is (@pxref{2-axes sample}):
+Command @ref{stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
 @verbatim
-# set up first axis
-axis -1 -1 1 1: origin -1 -1
-axis:fplot 'sin(pi*x)'      # draw something in first axis
-# set up second axis
-axis 0 0 1 1: origin 1 1
-axis: fplot 'cos(4*pi*x^2)' # draw something in second axis
+call 'prepare1d'
+origin 0 0 0:subplot 2 2 0 '':title 'Stem plot (default)':box
+stem y
+
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+stem xc yc z 'rx'
+
+subplot 2 2 2 '':title '"!" style':box
+stem y 'o!rgb'
 @end verbatim
-Note, that the first and the second axes look better if being placed in different corners. In the code presented above the first axis is placed in the left-bottom corner, and the second one is placed in the right-top corner.
+
+@pfig{stem, Example of Stem()}
 
 @c ------------------------------------------------------------------
-@node Titles for the plot, Changing of the color range, Two axes in one plot, Hints
-@subsection Titles for the plot
+@c @external
+@node Bars sample, Barh sample, Stem sample, 1D samples
+@subsection Bars sample
 
-The printing of nice titles for the plot is not so trivial task in general case. The problem is that the rotation and aspect change lead to different looks for titles of different subplots. So, the resulting look is not so good as it could be. The solution is simple -- to print titles exactly after @code{subplot} call and before any rotation, aspect change and so on! Analogously, the title for the whole picture looks better if it is printed first (before any @code{subplot} calls). Alternatively you can use function @code{title} for plotting title for the picture at any time.
+Command @ref{bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
+@verbatim
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0
+subplot 3 2 0 '':title 'Bars plot (default)':box
+bars ys
 
-@c ------------------------------------------------------------------
-@node Changing of the color range, Management of a point cutting, Titles for the plot, Hints
-@subsection Changing of the color range
+subplot 3 2 1 '':title '2 colors':box
+bars ys 'cbgGyr'
 
-By default (for the user comfort), the color range is set equal to z-range of the plot. However, there are different ranges. So, one can obtain amusing plot by the change of color range manually. For example, there are plots with one-color bottom (or top) or practically bi-color picture and so on.
+subplot 3 2 4 '':title '"\#" style':box
+bars ys '#'
 
-For example, compare 2 surfaces:
-@verbatim
-subplot 2 1 0
-surf a          # usual coloring range
-subplot 2 1 1
-caxis 0 1
-surf a          # bottom of the surface have one-colour filling
+new yc 30 'sin(pi*x)':new xc 30 'cos(pi*x)':new z 30 'x'
+subplot 3 2 5:title '3d variant':rotate 50 60:box
+bars xc yc z 'r'
+
+subplot 3 2 2 '':title '"a" style':ranges -1 1 -3 3:box
+bars ys 'a'
+
+subplot 3 2 3 '':title '"f" style':box
+bars ys 'f'
 @end verbatim
 
-@c ------------------------------------------------------------------
-@node Management of a point cutting, Vector field visualization, Changing of the color range, Hints
-@subsection Management of a point cutting
+@pfig{bars, Example of Bars()}
 
-Sometimes an experimental or numerical surface has outstanding points. Visualization of such surface will lead to the hole(s) in place of such points. The standard method of ``fighting'' -- to change data values -- is not always good and is not so convenient. MathGL library has another method -- to set variable @code{cut off}. As a consequence, all outstanding points will be projected on the bounding box.
+@c ------------------------------------------------------------------
+@c @external
+@node Barh sample, Cones sample, Bars sample, 1D samples
+@subsection Barh sample
 
-Such method is good not only for outstanding points but also for the case when one need to plane the bottom or the top of the plot. Exactly such case is demonstrated in the code:
+Command @ref{barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
 @verbatim
-new a 20 30     # create some data
-modify a '0.6*sin(2*pi*x)*sin(3*pi*y) + 0.4*cos(3*pi*(x*y))'
-# set lower border above the data minimal value
-axis -1 -1 0 1 1 1:rotate 40 60
-cut off         # set off cutting flag
-surf a          # and draw the surface
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd':origin 0 0 0
+subplot 2 2 0 '':title 'Barh plot (default)':box
+barh ys
+
+subplot 2 2 1 '':title '2 colors':box
+barh ys 'cbgGyr'
+
+ranges -3 3 -1 1:subplot 2 2 2 '':title '"a" style':box:barh ys 'a'
+subplot 2 2 3 '': title '"f" style':box
+barh ys 'f'
 @end verbatim
-It is an interesting result, is not it?
+
+@pfig{barh, Example of Barh()}
 
 @c ------------------------------------------------------------------
-@node Vector field visualization, Several light sources, Management of a point cutting, Hints
-@subsection Vector field visualization
+@c @external
+@node Cones sample, Chart sample, Bars sample, 1D samples
+@subsection Cones sample
 
-Vector field visualization (especially in 3d case @code{vect3} or @code{vectc}) may look tangly -- there are too many overlapping lines. I may suggest 2 ways to solve this problem. The first one is to change @code{meshnum} for decreasing the number of hachures. The second way is to use the flow thread chart @code{Flow}. Unfortunately, I don't know any other methods to visualize 3d vector field. If you know any, e-mail me and I shall add it to MatGL.
+Command @ref{cones} is similar to @code{Bars} but draw cones. The sample code is:
+@verbatim
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'
+origin 0 0 0:light on
+subplot 2 2 0:title 'Cones plot':rotate 50 60:box
+cones ys
 
-@c ------------------------------------------------------------------
-@node Several light sources, CutMin and CutMax features, Vector field visualization, Hints
-@subsection Several light sources
+subplot 2 2 1:title '2 colors':rotate 50 60:box
+cones ys 'cbgGyr'
 
-In contrast to the most of other programs, MathGL supports several (up to 10) light sources. Moreover, the color each of them can be different: white (this is usual), yellow, red, cyan, green and so on. The use of several light sources may be interesting for the highlighting of some peculiarities of the plot or just to make an amusing picture. Note, each light source can be switched on/off individually (@pxref{Several light sample}).
+subplot 2 2 2:title '"\#" style':rotate 50 60:box
+cones ys '#'
 
-@c ------------------------------------------------------------------
-@node CutMin and CutMax features, Mapping visualization, Several light sources, Hints
-@subsection CutMin and CutMax features
+subplot 2 2 3:title '"a" style':rotate 50 60:zrange -2 2:box
+cones ys 'a'
+@end verbatim
+
+@pfig{cones, Example of Cones()}
 
-MathGL library has a feature for cutting of points in some region @var{CutMin*CutMax}. Such an excision can be used to improve the look of the graphics. Moreover, this cutting may help to show an internal structure of an object (like @code{isocaps} plot in Matlab). For example, let us use the standard 3D data array and show its interior (@pxref{CutMinMax sample}).
+@c ------------------------------------------------------------------
+@c @external
+@node Chart sample, BoxPlot sample, Cones sample, 1D samples
+@subsection Chart sample
 
+Command @ref{chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
 @verbatim
-new c 61 51 40      # create the data
-new v 10: fill v -0.5 1
-modify c '(-2*((2*x-1)^2 + (2*y-1)^2 + (2*z-1)^4 - (2*z-1)^2 - 0.1))'
-cut 0 -1 -1 1 0 1.1
-rotate 40 60:       surf3 c -0.5 'bbcyrr'
-contf3 v c 'x' -1 'bbcyrr': contf3 v c 'y' -1 'bbcyrr'
-contf3 v c 'z' 0 'bbcyrr':  contf3 v c 'z' 39 'bbcyrr'
+new ch 7 2 'rnd+0.1':light on
+subplot 2 2 0:title 'Chart plot (default)':rotate 50 60:box
+chart ch
+
+subplot 2 2 1:title '"\#" style':rotate 50 60:box
+chart ch '#'
+
+subplot 2 2 2:title 'Pie chart; " " color':rotate 50 60:
+axis '(y+1)/2*cos(pi*x)' '(y+1)/2*sin(pi*x)' '':box
+chart ch 'bgr cmy#'
+
+subplot 2 2 3:title 'Ring chart; " " color':rotate 50 60:
+axis '(y+2)/3*cos(pi*x)' '(y+2)/3*sin(pi*x)' '':box
+chart ch 'bgr cmy#'
 @end verbatim
 
-One can also exclude points from arbitrary area in space. This area defined by textual formula @code{cut} (@pxref{Cutting}). The algorithm is the same as shown for ``rectangular cutting''.
+@pfig{chart, Example of Chart()}
 
 @c ------------------------------------------------------------------
-@node Mapping visualization, Log-scaled plot, CutMin and CutMax features, Hints
-@subsection Mapping visualization
+@c @external
+@node BoxPlot sample, Candle sample, Chart sample, 1D samples
+@subsection BoxPlot sample
 
-Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @code{surfc}, @code{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+Command @ref{boxplot} draw box-and-whisker diagram. The sample code is:
+@verbatim
+new a 10 7 '(2*rnd-1)^3/2'
+subplot 1 1 0 '':title 'Boxplot plot':box
+boxplot a
+@end verbatim
 
-I tried to make such plot in @code{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+@pfig{boxplot, Example of BoxPlot()}
 
 @c ------------------------------------------------------------------
-@node Log-scaled plot, Nonlinear fitting hints, Mapping visualization, Hints
-@subsection Log-scaled plot
+@c @external
+@node Candle sample, Error sample, BoxPlot sample, 1D samples
+@subsection Candle sample
+
+Command @ref{candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
+@verbatim
+new y 30 'sin(pi*x/2)^2':copy y1 y/2:copy y2 (y+1)/2
+subplot 1 1 0 '':title 'Candle plot (default)':yrange 0 1:box
+candle y y1 y2
+@end verbatim
 
-Log-scaled plot can be drawn by 2 steps. First, one should change the scale of axis by call @code{axis 'lg(x)' 'lg(y)'} (in this example, x- and y-axis will be log-scaled). Second, one should set logarithmic scale for axis ticks by changing variables: @code{xtick 0: yticks 0}. Finally, one should check (or change) the axis ranges and origin so that their values to be positive. For example of log-log plot @pxref{Log-log sample}.
+@pfig{candle, Example of Candle()}
 
 @c ------------------------------------------------------------------
-@node Nonlinear fitting hints, PDE solving hints, Log-scaled plot, Hints
-@subsection Nonlinear fitting hints
+@c @external
+@node Error sample, Mark sample, Candle sample, 1D samples
+@subsection Error sample
 
-Nonlinear fitting is rather simple. All that you need is the data to fit, the approximation formula and the list of coefficients to fit (better with its initial guess values). Let me demonstrate it on the following simple example (@pxref{Fitting sample}). First, let us use sin function with some random noise:
+Command @ref{error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
 @verbatim
-new rnd 100: new idl 50 # data to be fitted and ideal data
-modify rnd '0.4*rnd+0.1+sin(4*pi*x)'
-modify idl '0.3+sin(4*pi*x)'
+call 'prepare1d'
+new y 50 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2)'
+new x0 10 'x + 0.1*rnd-0.05':new ex 10 '0.1':new ey 10 '0.2'
+new y0 10 '0.7*sin(pi*x-pi) + 0.5*cos(3*pi*(x+1)/2) + 0.2*sin(pi*(x+1)/2) + 0.2*rnd-0.1'
+
+subplot 2 2 0 '':title 'Error plot (default)':box:plot y
+error x0 y0 ex ey 'k'
+
+subplot 2 2 1 '':title '"!" style; no e_x':box:plot y
+error x0 y0 ey 'o!rgb'
+
+subplot 2 2 2 '':title '"\@" style':box:plot y
+error x0 y0 ex ey '@'; alpha 0.5
+
+subplot 2 2 3:title '3d variant':rotate 50 60:axis
+for $1 0 9
+  errbox 2*rnd-1 2*rnd-1 2*rnd-1 0.2 0.2 0.2 'bo'
+next
 @end verbatim
-and plot it to see that data we will fit
+
+@pfig{error, Example of Error()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Mark sample, TextMark sample, Error sample, 1D samples
+@subsection Mark sample
+
+Command @ref{mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
 @verbatim
-axis -1 -2 1 2
-plot rnd '. ':plot idl 'b'
-box:text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'C:b' -1
+call 'prepare1d'
+subplot 1 1 0 '':title 'Mark plot (default)':box
+mark y y1 's'
 @end verbatim
 
-The next step is the fitting itself. For that let me specify an initial values @var{ini} for coefficients @samp{abc} and do the fitting for approximation formula @samp{a+b*sin(c*x)}
+@pfig{mark, Example of Mark()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node TextMark sample, Label sample, Mark sample, 1D samples
+@subsection TextMark sample
+
+Command @ref{textmark} like @code{Mark} but draw text instead of markers. The sample code is:
 @verbatim
-new res     # The data for found formula
-fit res rnd 'a+b*sin(c*x)' 'abc' [1, 1, 3]
+call 'prepare1d'
+subplot 1 1 0 '':title 'TextMark plot (default)':box
+textmark y y1 '\gamma' 'r'
 @end verbatim
-Now display it
+
+@pfig{textmark, Example of TextMark()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Label sample, Table sample, TextMark sample, 1D samples
+@subsection Label sample
+
+Command @ref{label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
 @verbatim
-plot res 'r'
-text -1 -1.3 'fitted:' 'L:r' -1
-putsfit 0 -1.8 'y = ' 'C:r' -1
+new ys 10 '0.2*rnd-0.8*sin(pi*x)'
+subplot 1 1 0 '':title 'Label plot':box
+plot ys ' *':label ys 'y=%y'
 @end verbatim
 
-NOTE! the fitting results may have strong dependence on initial values for coefficients due to algorithm features. The problem is that in general case there are several local 'optimums' for coefficients and the program returns only first found one! There are no guaranties that it will be the best. Try for example to set @code{ini = [0, 0, 0]} in the code above.
+@pfig{label, Example of Label()}
 
-@c ------------------------------------------------------------------
-@node PDE solving hints, Stereo image, Nonlinear fitting hints, Hints
-@subsection PDE solving hints
 
-Solving of Partial Differential Equations (PDE, including beam tracing) and ray tracing (or finding particle trajectory) are more or less common task. So, MathGL have several functions for that. There are @code{ray} for ray tracing, @code{pde} for PDE solving, @code{qo2d} for beam tracing in 2D case. Note, that these functions take ``Hamiltonian'' or equations as string values. And I don't plan now to allow one to use user-defined functions. There are 2 reasons: the complexity of corresponding interface; and the basic nature of used methods which are good for samples but may not good for serious scientific calculations.
+@c ------------------------------------------------------------------
+@c @external
+@node Table sample, Tube sample, Label sample, 1D samples
+@subsection Table sample
 
-The ray tracing can be done by @code{ray} function. Really ray tracing equation is Hamiltonian equation for 3D space. So, the function can be also used for finding a particle trajectory (i.e. solve Hamiltonian ODE) for 1D, 2D or 3D cases. The function have a set of arguments. First of all, it is Hamiltonian which defined the media (or the equation) you are planning to use. The Hamiltonian is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z}, time @samp{t} (for particle dynamics) and momentums @samp{p}=@math{p_x}, @samp{q}=@math{p_y}, @samp{v}=@math{p_z}. Next, you have to define the initial conditions for coordinates and momentums at @samp{t}=0 and set the integrations step (default is 0.1) and its duration (default is 10). The Runge-Kutta method of 4-th order is used for integration.
+Command @ref{table} draw table with data values. The sample code is:
 @verbatim
-new re 128:new im 128
-ray r 'p^2+q^2-x-1' -0.7 -1 0 0 0.5 0
-plot r(0) r(1)
+new ys 10 3 '0.8*sin(pi*(x+y/4+1.25))+0.2*rnd'
+subplot 2 2 0:title 'Table sample':box
+table ys 'y_1\n{}y_2\n{}y_3'
+
+subplot 2 2 1:title 'no borders, colored'
+table ys 'y_1\n{}y_2\n{}y_3' 'r|'
+
+subplot 2 2 2:title 'no font decrease'
+table ys 'y_1\n{}y_2\n{}y_3' '#'
+
+subplot 2 2 3:title 'manual width and position':box
+table 0.5 0.95 ys 'y_1\n{}y_2\n{}y_3' '#';value 0.7
 @end verbatim
-This example calculate the reflection from linear layer (media with Hamiltonian @samp{p^2+q^2-x-1}=@math{p_x^2+p_y^2-x-1}). This is parabolic curve. The resulting array have 7 columns which contain data for @{x,y,z,p,q,v,t@}.
 
-The solution of PDE is a bit more complicated. As previous you have to specify the equation as pseudo-differential operator @math{\hat H(x, \nabla)} which is called sometime as ``Hamiltonian'' (for example, in beam tracing). As previously, it is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z} (but not time!), momentums @samp{p}=@math{(d/dx)/i k_0}, @samp{q}=@math{(d/dy)/i k_0} and field amplitude @samp{u}=@math{|u|}. The evolutionary coordinate is @samp{z} in all cases. So that, the equation look like @math{du/dz = ik_0 H(x,y,\hat p, \hat q, |u|)[u]}. Dependence on field amplitude @samp{u}=@math{|u|} allows one to solve nonlinear problems too. For example, for nonlinear Shrodinger equation you may set @code{ham='p^2 + q^2 - u^2'}. Also you may specify imaginary part for wave absorption, like @code{ham = 'p^2 + i*x*(x>0)'}, but only if dependence on variable @samp{i} is linear (i.e. @math{H = Hre+i*Him}).
+@pfig{table, Example of Table()}
 
-Next step is specifing the initial conditions at @samp{z}=@code{Min.z}. The function need 2 arrays for real and for imaginary part. Note, that coordinates x,y,z are supposed to be in specified range [Min, Max]. So, the data arrays should have corresponding scales. Finally, you may set the integration step and paramter k0=@math{k_0}. Also keep in mind, that internally the 2 times large box is used (for suppressing numerical reflection from boundaries) and the equation should well defined even in this extended range.
 
-Final comment is concerning the possible form of pseudo-differential operator @math{H}. At this moment, simplified form of operator @math{H} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this operator is effectively @math{H = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed for 3D case. 
+@c ------------------------------------------------------------------
+@c @external
+@node Tube sample, Tape sample, Table sample, 1D samples
+@subsection Tube sample
 
-So, for example let solve the equation for beam deflected from linear layer and absorbed later. The operator will have the form @samp{'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)'} that correspond to equation @math{ik_0 \partial_z u + \Delta u + x \cdot u + i (x+z)/2 \cdot u = 0}. This is typical equation for Electron Cyclotron (EC) absorption in magnetized plasmas. For initial conditions let me select the beam with plane phase front @math{exp(-48*(x+0.7)^2)}. The corresponding code looks like this (@pxref{PDE sample}):
+Command @ref{tube} draw tube with variable radius. The sample code is:
 @verbatim
-new re 128: new im 128
-fill re 'exp(-48*(x+0.7)^2)'
-pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01, 30
-transpose a 'yxz'
-caxis 0 1
-dens a 'wyrRk'
+light on:call 'prepare1d'
+new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x':divto y1 20
+
+subplot 2 2 0 '':title 'Tube plot (default)':box
+tube y 0.05
+
+subplot 2 2 1 '':title 'variable radius':box
+tube y y1
+
+subplot 2 2 2 '':title '"\#" style':box
+tube y 0.05 '#'
+
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+tube xc yc z y2 'r'
 @end verbatim
 
-The last example is example of beam tracing. Beam tracing equation is special kind of PDE equation written in coordinates accompanied to a ray. Generally this is the same parameters and limitation as for PDE solving but the coordinates are defined by the ray and by parameter of grid width @var{w} in direction transverse the ray. So, you don't need to specify the range of coordinates. @strong{BUT} there is limitation. The accompanied coordinates are well defined only for smooth enough rays, i.e. then the ray curvature @math{K} (which is defined as @math{1/K^2 = (|\ddot r|^2 |\dot r|^2 - (\ddot r, \dot r)^2)/|\dot r|^6}) is much large then the grid width: @math{K>>w}. So, you may receive incorrect results if this condition will be broken.
+@pfig{tube, Example of Tube()}
 
-You may use following code for obtaining the same solution as in previous example:
+
+@c ------------------------------------------------------------------
+@c @external
+@node Tape sample, Torus sample, Tube sample, 1D samples
+@subsection Tape sample
+
+Command @ref{tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
 @verbatim
-new re 128: new im 128
-define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'
-ray r $1 -0.7 -1 0 0 0.5 0 0.02 2
-# now start beam tracing
-fill re 'exp(-48*x^2)'
-new xx: new yy
-qo2d a $1 re im r 1 30 xx yy
-caxis 0 1
-dens xx yy a 'wyrRk'
+call 'prepare1d'
+new yc 50 'sin(pi*x)':new xc 50 'cos(pi*x)':new z 50 'x'
+
+subplot 2 2 0 '':title 'Tape plot (default)':box
+tape y:plot y 'k'
+
+subplot 2 2 1:title '3d variant, 2 colors':rotate 50 60:light on:box
+plot xc yc z 'k':tape xc yc z 'rg'
+
+subplot 2 2 2:title '3d variant, x only':rotate 50 60:box
+plot xc yc z 'k':tape xc yc z 'xr':tape xc yc z 'xr#'
+
+subplot 2 2 3:title '3d variant, z only':rotate 50 60:box
+plot xc yc z 'k':tape xc yc z 'zg':tape xc yc z 'zg#'
 @end verbatim
 
+@pfig{tape, Example of Tape()}
+
 
 @c ------------------------------------------------------------------
-@node Stereo image, , PDE solving hints, Hints
-@subsection Stereo image
+@c @external
+@node Torus sample, , Tape sample, 1D samples
+@subsection Torus sample
 
-One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this (@pxref{Stereo image sample}):
+Command @ref{torus} draw surface of the curve rotation. The sample code is:
 @verbatim
-subplot 2 1 0   # left image
-rotate 40 60+3
-# draw something here
-subplot 2 1 1   # right image
-rotate 40 60-3
-# draw the same here
+call 'prepare1d'
+subplot 2 2 0:title 'Torus plot (default)':light on:rotate 50 60:box
+torus y1 y2
+
+subplot 2 2 1:title '"x" style':light on:rotate 50 60:box
+torus y1 y2 'x'
+
+subplot 2 2 2:title '"z" style':light on:rotate 50 60:box
+torus y1 y2 'z'
+
+subplot 2 2 3:title '"\#" style':light on:rotate 50 60:box
+torus y1 y2 '#'
 @end verbatim
 
+@pfig{torus, Example of Torus()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node 2D samples, 3D samples, 1D samples, Examples
+@section 2D samples
+
+This section is devoted to visualization of 2D data arrays. 2D means the data which depend on 2 indexes (parameters) like matrix z(i,j)=z(x(i),y(j)), i=1...n, j=1...m or in parametric form @{x(i,j),y(i,j),z(i,j)@}. Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare2d'
+new a 50 40 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 50 40 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Surf sample::
+* SurfC sample::
+* SurfA sample::
+* Mesh sample::
+* Fall sample::
+* Belt sample::
+* Boxs sample::
+* Tile sample::
+* TileS sample::
+* Dens sample::
+* Cont sample::
+* ContF sample::
+* ContD sample::
+* ContV sample::
+* Axial sample::
+* Grad sample::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf sample, SurfC sample, , 2D samples
+@subsection Surf sample
+
+Command @ref{surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0:title 'Surf plot (default)':rotate 50 60:light on:box:surf a
+
+subplot 2 2 1:title '"\#" style; meshnum 10':rotate 50 60:box
+surf a '#'; meshnum 10
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+surf a '.'
+
+new x 50 40 '0.8*sin(pi*x)*sin(pi*(y+1)/2)'
+new y 50 40 '0.8*cos(pi*x)*sin(pi*(y+1)/2)'
+new z 50 40 '0.8*cos(pi*(y+1)/2)'
+subplot 2 2 3:title 'parametric form':rotate 50 60:box
+surf x y z 'BbwrR'
+@end verbatim
+
+@pfig{surf, Example of Surf()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node SurfC sample, SurfA sample, Surf sample, 2D samples
+@subsection SurfC sample
+
+Command @ref{surfc} is similar to @ref{surf} but its coloring is determined by another data. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'SurfC plot':rotate 50 60:light on:box
+surfc a b
+@end verbatim
+
+@pfig{surfc, Example of SurfC()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node SurfA sample, Mesh sample, SurfC sample, 2D samples
+@subsection SurfA sample
+
+Command @ref{surfa} is similar to @ref{surf} but its transparency is determined by another data. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'SurfC plot':rotate 50 60:light on:alpha on:box
+surfa a b
+@end verbatim
+
+@pfig{surfa, Example of SurfA()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Mesh sample, Fall sample, SurfA sample, 2D samples
+@subsection Mesh sample
+
+Command @ref{mesh} draw wired surface. You can use @ref{meshnum} for changing number of lines to be drawn. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Mesh plot':rotate 50 60:box
+mesh a
+@end verbatim
+
+@pfig{mesh, Example of Mesh()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Fall sample, Belt sample, Mesh sample, 2D samples
+@subsection Fall sample
+
+Command @ref{fall} draw waterfall surface. You can use @ref{meshnum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Fall plot':rotate 50 60:box
+fall a
+@end verbatim
+
+@pfig{fall, Example of Fall()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Belt sample, Boxs sample, Fall sample, 2D samples
+@subsection Belt sample
+
+Command @ref{belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Belt plot':rotate 50 60:box
+belt a
+@end verbatim
+
+@pfig{belt, Example of Belt()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Boxs sample, Tile sample, Fall sample, 2D samples
+@subsection Boxs sample
+
+Command @ref{boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
+@verbatim
+call 'prepare2d'
+origin 0 0 0
+subplot 2 2 0:title 'Boxs plot (default)':rotate 40 60:light on:box
+boxs a
+
+subplot 2 2 1:title '"\@" style':rotate 50 60:box
+boxs a '@'
+
+subplot 2 2 2:title '"\#" style':rotate 50 60:box
+boxs a '#'
+
+subplot 2 2 3:title 'compare with Tile':rotate 50 60:box
+tile a
+@end verbatim
+
+@pfig{boxs, Example of Boxs()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Tile sample, TileS sample, Boxs sample, 2D samples
+@subsection Tile sample
+
+Command @ref{tile} draw surface by tiles. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Tiles plot':box
+tile a
+@end verbatim
+
+@pfig{tile, Example of Tile()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node TileS sample, Dens sample, Tile sample, 2D samples
+@subsection TileS sample
+
+Command @ref{tiles} is similar to @ref{tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Tiles plot':box
+tiles a b
+@end verbatim
+
+@pfig{tiles, Example of TileS()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens sample, Cont sample, TileS sample, 2D samples
+@subsection Dens sample
+
+Command @ref{dens} draw density plot for surface. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0 '':title 'Dens plot (default)':box
+dens a
+
+subplot 2 2 1:title '3d variant':rotate 50 60:box
+dens a
+
+subplot 2 2 2 '':title '"\#" style; meshnum 10':box
+dens a '#'; meshnum 10
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+dens a1
+@end verbatim
+
+@pfig{dens, Example of Dens()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont sample, ContF sample, Dens sample, 2D samples
+@subsection Cont sample
+
+Command @ref{cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'Cont plot (default)':rotate 50 60:box
+cont a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+cont v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+cont a '_'
+
+subplot 2 2 3 '':title '"t" style':box
+cont a 't'
+@end verbatim
+
+@pfig{cont, Example of Cont()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF sample, ContD sample, Cont sample, 2D samples
+@subsection ContF sample
+
+Command @ref{contf} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContF plot (default)':rotate 50 60:box
+contf a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contf v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contf a '_'
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+contf a1
+@end verbatim
+
+@pfig{contf, Example of ContF()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContD sample, ContV sample, ContF sample, 2D samples
+@subsection ContD sample
+
+Command @ref{contd} is similar to @code{ContF} but with manual contour colors. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContD plot (default)':rotate 50 60:box
+contd a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contd v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contd a '_'
+
+new a1 30 40 3 '0.6*sin(2*pi*x+pi*(z+1)/2)*sin(3*pi*y+pi*z) +\
+ 0.4*cos(3*pi*(x*y)+pi*(z+1)^2/2)'
+subplot 2 2 3:title 'several slices':rotate 50 60:box
+contd a1
+@end verbatim
+
+@pfig{contd, Example of ContD()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContV sample, Axial sample, ContD sample, 2D samples
+@subsection ContV sample
+
+Command @ref{contv} draw vertical cylinders (belts) at contour lines. The sample code is:
+@verbatim
+call 'prepare2d'
+list v -0.5 -0.15 0 0.15 0.5
+subplot 2 2 0:title 'ContV plot (default)':rotate 50 60:box
+contv a
+
+subplot 2 2 1:title 'manual levels':rotate 50 60:box
+contv v a
+
+subplot 2 2 2:title '"\_" style':rotate 50 60:box
+contv a '_'
+
+subplot 2 2 3:title 'ContV and ContF':rotate 50 60:light on:box
+contv a:contf a:cont a 'k'
+@end verbatim
+
+@pfig{contv, Example of ContV()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Axial sample, Grad sample, ContV sample, 2D samples
+@subsection Axial sample
+
+Command @ref{axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
+@verbatim
+light on:alpha on:call 'prepare2d'
+subplot 2 2 0:title 'Axial plot (default)':rotate 50 60:box
+axial a
+
+subplot 2 2 1:title '"x" style;\".\" style':light on:rotate 50 60:box
+axial a 'x.'
+
+subplot 2 2 2:title '"z" style':light on:rotate 50 60:box
+axial a 'z'
+
+subplot 2 2 3:title '"\#" style':light on:rotate 50 60:box
+axial a '#'
+@end verbatim
+
+@pfig{axial, Example of Axial()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Grad sample, , Axial sample, 2D samples
+@subsection Grad sample
+
+Command @ref{grad} draw gradient lines for matrix. The sample code is:
+@verbatim
+call 'prepare2d'
+subplot 1 1 0 '':title 'Grad plot':box
+grad a:dens a '{u8}w{q8}'
+@end verbatim
+
+@pfig{grad, Example of Grad()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node 3D samples, Vector field samples, 2D samples, Examples
+@section 3D samples
+
+This section is devoted to visualization of 3D data arrays. 3D means the data which depend on 3 indexes (parameters) like tensor a(i,j,k)=a(x(i),y(j),x(k)), i=1...n, j=1...m, k=1...l or in parametric form @{x(i,j,k),y(i,j,k),z(i,j,k),a(i,j,k)@}. Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare3d'
+new c 61 50 40 '-2*(x^2+y^2+z^4-z^2)+0.2'
+new d 61 50 40 '1-2*tanh((x+y)*(x+y))'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Surf3 sample::
+* Surf3C sample::
+* Surf3A sample::
+* Cloud sample::
+* Dens3 sample::
+* Cont3 sample::
+* ContF3 sample::
+* Dens projection sample::
+* Cont projection sample::
+* ContF projection sample::
+* TriPlot and QuadPlot::
+* Dots sample::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3 sample, Surf3C sample, , 3D samples
+@subsection Surf3 sample
+
+Command @ref{surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
+@verbatim
+call 'prepare3d'
+light on:alpha on
+subplot 2 2 1:title 'Surf3 plot':rotate 50 60:box
+surf3 c
+
+subplot 2 2 1:title '"\#" style':rotate 50 60:box
+surf3 c '#'
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+surf3 c '.'
+@end verbatim
+
+@pfig{surf3, Example of Surf3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3C sample, Surf3A sample, Surf3 sample, 3D samples
+@subsection Surf3C sample
+
+Command @ref{surf3c} is similar to @ref{surf3} but its coloring is determined by another data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Surf3 plot':rotate 50 60:light on:alpha on:box
+surf3c c d
+@end verbatim
+
+@pfig{surf3c, Example of Surf3C()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Surf3A sample, Cloud sample, Surf3C sample, 3D samples
+@subsection Surf3A sample
+
+Command @ref{surf3a} is similar to @ref{surf3} but its transparency is determined by another data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Surf3 plot':rotate 50 60:light on:alpha on:box
+surf3a c d
+@end verbatim
+
+@pfig{surf3a, Example of Surf3A()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cloud sample, Dens3 sample, Surf3A sample, 3D samples
+@subsection Cloud sample
+
+Command @ref{cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
+@verbatim
+call 'prepare3d'
+subplot 2 2 0:title 'Cloud plot':rotate 50 60:alpha on:box
+cloud c 'wyrRk'
+
+subplot 2 2 1:title '"!" style':rotate 50 60:box
+cloud c '!wyrRk'
+
+subplot 2 2 2:title '"." style':rotate 50 60:box
+cloud c '.wyrRk'
+
+subplot 2 2 3:title 'meshnum 10':rotate 50 60:box
+cloud c 'wyrRk'; meshnum 10
+@end verbatim
+
+@pfig{cloud, Example of Cloud()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens3 sample, Cont3 sample, Cloud sample, 3D samples
+@subsection Dens3 sample
+
+Command @ref{dens3} draw just usual density plot but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Dens3 sample':rotate 50 60:alpha on:alphadef 0.7
+origin 0 0 0:box:axis '_xyz'
+dens3 c 'x':dens3 c ':y':dens3 c 'z'
+@end verbatim
+
+@pfig{densa, Example of Dens3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont3 sample, ContF3 sample, Dens3 sample, 3D samples
+@subsection Cont3 sample
+
+Command @ref{cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont3 sample':rotate 50 60:box
+cont3 c 'x':cont3 c:cont3 c 'z'
+@end verbatim
+
+@pfig{conta, Example of Cont3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF3 sample, Dens projection sample, Cont3 sample, 3D samples
+@subsection ContF3 sample
+
+Command @ref{contf3} draw just usual filled contours but at slices of 3D data. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont3 sample':rotate 50 60:box:light on
+contf3 c 'x':contf3 c:contf3 c 'z'
+cont3 c 'xk':cont3 c 'k':cont3 c 'zk'
+@end verbatim
+
+@pfig{contfa, Example of ContF3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dens projection sample, Cont projection sample, ContF3 sample, 3D samples
+@subsection Dens projection sample
+
+Functions @ref{DensXYZ} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Dens[XYZ] sample':rotate 50 60:box
+densx {sum c 'x'} '' -1
+densy {sum c 'y'} '' 1
+densz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{dens_xyz, {Example of DensX(), DensY(), DensZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Cont projection sample, ContF projection sample, Dens projection sample, 3D samples
+@subsection Cont projection sample
+
+Functions @ref{ContXYZ} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'Cont[XYZ] sample':rotate 50 60:box
+contx {sum c 'x'} '' -1
+conty {sum c 'y'} '' 1
+contz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{cont_xyz, {Example of ContX(), ContY(), ContZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ContF projection sample, TriPlot and QuadPlot, Cont projection sample, 3D samples
+@subsection ContF projection sample
+
+Functions @code{ContFXYZ} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+@verbatim
+call 'prepare3d'
+title 'ContF[XYZ] sample':rotate 50 60:box
+contfx {sum c 'x'} '' -1
+contfy {sum c 'y'} '' 1
+contfz {sum c 'z'} '' -1
+@end verbatim
+
+@pfig{contf_xyz, {Example of ContFX(), ContFY(), ContFZ()}}
+
+@c ------------------------------------------------------------------
+@c @external
+@node TriPlot and QuadPlot, Axial sample, ContF projection sample, 3D samples
+@subsection TriPlot and QuadPlot
+
+Command @ref{triplot} and @ref{quadplot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
+@verbatim
+list q 0 1 2 3 | 4 5 6 7 | 0 2 4 6 | 1 3 5 7 | 0 4 1 5 | 2 6 3 7
+list xq -1 1 -1 1 -1 1 -1 1
+list yq -1 -1 1 1 -1 -1 1 1
+list zq -1 -1 -1 -1 1 1 1 1
+light on
+subplot 2 1 0:title 'QuadPlot sample':rotate 50 60
+quadplot q xq yq zq 'yr'
+quadplot q xq yq zq '#k'
+
+list t 0 1 2 | 0 1 3 | 0 2 3 | 1 2 3
+list xt -1 1 0 0
+list yt -1 -1 1 0
+list zt -1 -1 -1 1
+subplot 2 1 1:title 'TriPlot sample':rotate 50 60
+triplot t xt yt zt 'b'
+triplot t xt yt zt '#k'
+@end verbatim
+
+@pfig{triplot, Example of TriPlot() and QuadPlot()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dots sample, , TriPlot and QuadPlot, 3D samples
+@subsection Dots sample
+
+Command @ref{dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+@verbatim
+new t 1000 'pi*(rnd-0.5)':new f 1000 '2*pi*rnd'
+copy x 0.9*cos(t)*cos(f)
+copy y 0.9*cos(t)*sin(f)
+copy z 0.6*sin(t)
+title 'Dots sample':rotate 50 60:box
+dots x y z
+@end verbatim
+
+@pfig{dots, Example of Dots()}
+
+@c ------------------------------------------------------------------
+@external
+@node Vector field samples, Hints, 3D samples, Examples
+@section Vector field samples
+
+Vector field visualization (especially in 3d case) is more or less complex task. MathGL provides 3 general types of plots: vector field itself (@code{Vect}), flow threads (@code{Flow}), and flow pipes with radius proportional to field amplitude (@code{Pipe}).
+
+However, the plot may look tangly -- there are too many overlapping lines. I may suggest 2 ways to solve this problem. The first one is to change @code{SetMeshNum} for decreasing the number of hachures. The second way is to use the flow thread chart @code{Flow}, or possible many flow thread from manual position (@code{FlowP}). Unfortunately, I don't know any other methods to visualize 3d vector field. If you know any, e-mail me and I shall add it to MathGL.
+
+Most of samples will use the same data for plotting. So, I put its initialization in separate function
+@verbatim
+func 'prepare2v'
+new a 20 30 '0.6*sin(pi*(x+1))*sin(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+new b 20 30 '0.6*cos(pi*(x+1))*cos(1.5*pi*(y+1))+0.4*cos(0.75*pi*(x+1)*(y+1))'
+return
+
+func 'prepare3v'
+define $1 pow(x*x+y*y+(z-0.3)*(z-0.3)+0.03,1.5)
+define $2 pow(x*x+y*y+(z+0.3)*(z+0.3)+0.03,1.5)
+new ex 10 10 10 '0.2*x/$1-0.2*x/$2'
+new ey 10 10 10 '0.2*y/$1-0.2*y/$2'
+new ez 10 10 10 '0.2*(z-0.3)/$1-0.2*(z+0.3)/$2'
+return
+@end verbatim
+Basically, you can put this text after the script. Note, that you need to terminate main script by @ref{stop} command before defining a function.
+
+@menu
+* Vect sample::
+* Vect3 sample::
+* Traj sample::
+* Flow sample::
+* Pipe sample::
+* Dew sample::
+@end menu
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Vect sample, Vect3 sample, , Vector field samples
+@subsection Vect sample
+
+Command @ref{vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 3 2 0 '':title 'Vect plot (default)':box
+vect a b
+
+subplot 3 2 1 '':title '"." style; "=" style':box
+vect a b '.='
+
+subplot 3 2 2 '':title '"f" style':box
+vect a b 'f'
+
+subplot 3 2 3 '':title '">" style':box
+vect a b '>'
+
+subplot 3 2 4 '':title '"<" style':box
+vect a b '<'
+
+call 'prepare3v'
+subplot 3 2 5:title '3d variant':rotate 50 60:box
+vect ex ey ez
+@end verbatim
+
+@pfig{vect, Example of Vect()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Vect3 sample, Traj sample, Vect sample, Vector field samples
+@subsection Vect3 sample
+
+Command @ref{vect3} draw just usual vector field plot but at slices of 3D data. The sample code is:
+@verbatim
+origin 0 0 0:call 'prepare3v'
+subplot 2 1 0:title 'Vect3 sample':rotate 50 60
+box:axis '_xyz'
+vect3 ex ey ez 'x':vect3 ex ey ez:vect3 ex ey ez 'z'
+
+subplot 2 1 1:title '"f" style':rotate 50 60
+box:axis '_xyz'
+vect3 ex ey ez 'fx':vect3 ex ey ez 'f':vect3 ex ey ez 'fz'
+grid3 ex 'Wx':grid3 ex 'W':grid3 ex 'Wz'
+@end verbatim
+
+@pfig{vecta, Example of Vect3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Traj sample, Flow sample, Vect3 sample, Vector field samples
+@subsection Traj sample
+
+Command @ref{traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
+@verbatim
+call 'prepare1d'
+subplot 1 1 0 '':title 'Traj plot':box
+plot x1 y:traj x1 y y1 y2
+@end verbatim
+
+@pfig{traj, Example of Traj()}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Flow sample, Pipe sample, Traj sample, Vector field samples
+@subsection Flow sample
+
+Command @ref{flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 2 2 0 '':title 'Flow plot (default)':box
+flow a b
+
+subplot 2 2 1 '':title '"v" style':box
+flow a b 'v'
+
+subplot 2 2 2 '':title 'from edges only':box
+flow a b '#'
+
+call 'prepare3v'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+flow ex ey ez
+@end verbatim
+
+@pfig{flow, Example of Flow()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Pipe sample, Dew sample, Flow sample, Vector field samples
+@subsection Pipe sample
+
+Command @ref{pipe} is similar to @ref{flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 2 2 0 '':title 'Pipe plot (default)':light on:box
+pipe a b
+
+subplot 2 2 1 '':title '"i" style':box
+pipe a b 'i'
+
+subplot 2 2 2 '':title 'from edges only':box
+pipe a b '#'
+
+call 'prepare3v'
+subplot 2 2 3:title '3d variant':rotate 50 60:box
+pipe ex ey ez '' 0.1
+@end verbatim
+
+@pfig{pipe, Example of Pipe()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Dew sample, , Pipe sample, Vector field samples
+@subsection Dew sample
+
+Command @ref{dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
+@verbatim
+call 'prepare2v'
+subplot 1 1 0 '':title 'Dew plot':light on:box
+dew a b
+@end verbatim
+
+@pfig{dew, Example of Dew()}
+
+
+@c ------------------------------------------------------------------
+@external
+@node Hints, FAQ, Vector field samples, Examples
+@section Hints
+
+In this section I've included some small hints and advices for the improving of the quality of plots and for the demonstration of some non-trivial features of MathGL library. In contrast to previous examples I showed mostly the idea but not the whole drawing function.
+
+@menu
+* ``Compound'' graphics::
+* Transparency and lighting::
+* Types of transparency::
+* Axis projection::
+* Adding fog::
+* Several light sources::
+* Using primitives::
+* STFA sample::
+* Mapping visualization::
+* Making histogram::
+* Nonlinear fitting sample::
+* PDE solving hints::
+* MGL parser using::
+* Using options::
+* ``Templates''::
+* Stereo image::
+* Reduce memory usage::
+@end menu
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Compound'' graphics, Transparency and lighting, , Hints
+@subsection ``Compound'' graphics
+
+As I noted above, MathGL functions (except the special one, like Clf()) do  not erase the previous plotting but just add the new one. It allows one to draw ``compound'' plots easily. For example, popular Matlab command @code{surfc} can be emulated in MathGL by 2 calls:
+@verbatim
+  Surf(a);
+  Cont(a, "_");     // draw contours at bottom
+@end verbatim
+Here @var{a} is 2-dimensional data for the plotting, @code{-1} is the value of z-coordinate at which the contour should be plotted (at the bottom in this example). Analogously, one can draw density plot instead of contour lines and so on.
+
+Another nice plot is contour lines plotted directly on the surface:
+@verbatim
+  Light(true);       // switch on light for the surface
+  Surf(a, "BbcyrR"); // select 'jet' colormap for the surface
+  Cont(a, "y");      // and yellow color for contours
+@end verbatim
+The possible difficulties arise in black&white case, when the color of the surface can be close to the color of a contour line. In that case I may suggest the following code:
+@verbatim
+  Light(true);   // switch on light for the surface
+  Surf(a, "kw"); // select 'gray' colormap for the surface
+  CAxis(-1,0);   // first draw for darker surface colors
+  Cont(a, "w");  // white contours
+  CAxis(0,1);    // now draw for brighter surface colors
+  Cont(a, "k");  // black contours
+  CAxis(-1,1);   // return color range to original state
+@end verbatim
+The idea is to divide the color range on 2 parts (dark and bright) and to select the contrasting color for contour lines for each of part.
+
+Similarly, one can plot flow thread over density plot of vector field amplitude (this is another amusing plot from Matlab) and so on. The list of compound graphics can be prolonged but I hope that the general idea is clear.
+
+Just for illustration I put here following sample code:
+@verbatim
+call 'prepare2v'
+call 'prepare3d'
+new v 10:fill v -0.5 1:copy d sqrt(a^2+b^2)
+subplot 2 2 0:title 'Surf + Cont':rotate 50 60:light on:box
+surf a:cont a 'y'
+
+subplot 2 2 1 '':title 'Flow + Dens':light off:box
+flow a b 'br':dens d
+
+subplot 2 2 2:title 'Mesh + Cont':rotate 50 60:box
+mesh a:cont a '_'
+
+subplot 2 2 3:title 'Surf3 + ContF3':rotate 50 60:light on
+box:contf3 v c 'z' 0:contf3 v c 'x':contf3 v c
+cut 0 -1 -1 1 0 1.1
+contf3 v c 'z' c.nz-1:surf3 c -0.5
+@end verbatim
+
+@pfig{combined, Example of ``combined'' plots}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Transparency and lighting, Types of transparency, ``Compound'' graphics, Hints
+@subsection Transparency and lighting
+
+Here I want to show how transparency and lighting both and separately change the look of a surface. So, there is code and picture for that:
+@verbatim
+call 'prepare2d'
+subplot 2 2 0:title 'default':rotate 50 60:box
+surf a
+
+subplot 2 2 1:title 'light on':rotate 50 60:box
+light on:surf a
+
+subplot 2 2 3:title 'light on; alpha on':rotate 50 60:box
+alpha on:surf a
+
+subplot 2 2 2:title 'alpha on':rotate 50 60:box
+light off:surf a
+@end verbatim
+
+@pfig{alpha, Example of transparency and lightings}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Types of transparency, Axis projection, Transparency and lighting, Hints
+@subsection Types of transparency
+
+MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of command @ref{alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+
+The value of transparency can be different from surface to surface. To do it just use @code{SetAlphaDef} before the drawing of the surface, or use option @code{alpha} (see @ref{Command options}). If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent.
+
+Also you can change the way how the light goes through overlapped surfaces. The function @code{SetTranspType} defines it. By default the usual transparency is used (@samp{0}) -- surfaces below is less visible than the upper ones. A ``glass-like'' transparency (@samp{1}) has a different look -- each surface just decreases the background light (the surfaces are commutable in this case).
+
+A ``neon-like'' transparency (@samp{2}) has more interesting look. In this case a surface is the light source (like a lamp on the dark background) and just adds some intensity to the color. At this, the library sets automatically the black color for the background and changes the default line color to white.
+
+As example I shall show several plots for different types of transparency. The code is the same except the values of @code{SetTranspType} function:
+@verbatim
+call 'prepare2d'
+alpha on:light on
+transptype 0:clf
+subplot 2 2 0:rotate 50 60:surf a:box
+subplot 2 2 1:rotate 50 60:dens a:box
+subplot 2 2 2:rotate 50 60:cont a:box
+subplot 2 2 3:rotate 50 60:axial a:box
+@end verbatim
+
+@pfig{type0, Example of @code{SetTranspType(0)}.}
+@pfig{type1, Example of @code{SetTranspType(1)}.}
+@pfig{type2, Example of @code{SetTranspType(2)}.}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Axis projection, Adding fog, Ternary axis, Hints
+@subsection Axis projection
+
+You can easily make 3D plot and draw its x-,y-,z-projections (like in CAD) by using @ref{ternary} function with arguments: 4 for Cartesian, 5 for Ternary and 6 for Quaternary coordinates. The sample code is:
+@verbatim
+ranges 0 1 0 1 0 1
+new x 50 '0.25*(1+cos(2*pi*x))'
+new y 50 '0.25*(1+sin(2*pi*x))'
+new z 50 'x'
+new a 20 30 '30*x*y*(1-x-y)^2*(x+y<1)'
+new rx 10 'rnd':new ry 10:fill ry '(1-v)*rnd' rx
+light on
+
+title 'Projection sample':ternary 4:rotate 50 60
+box:axis:grid
+plot x y z 'r2':surf a '#'
+xlabel 'X':ylabel 'Y':zlabel 'Z'
+@end verbatim
+
+@pfig{projection, Example of axis projections}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Adding fog, Several light sources, Axis projection, Hints
+@subsection Adding fog
+
+MathGL can add a fog to the image. Its switching on is rather simple -- just use @ref{fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Fog sample':rotate 50 60:light on
+fog 1
+box:surf a
+@end verbatim
+
+@pfig{fog, Example of @code{Fog()}.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Several light sources, Using primitives, Adding fog, Hints
+@subsection Several light sources
+
+In contrast to the most of other programs, MathGL supports several (up to 10) light sources. Moreover, the color each of them can be different: white (this is usual), yellow, red, cyan, green and so on. The use of several light sources may be interesting for the highlighting of some peculiarities of the plot or just to make an amusing picture. Note, each light source can be switched on/off individually. The sample code is:
+@verbatim
+call 'prepare2d'
+title 'Several light sources':rotate 50 60:light on
+light 1 0 1 0 'c':light 2 1 0 0 'y':light 3 0 -1 0 'm'
+box:surf a 'h'
+@end verbatim
+
+@pfig{several_light, Example of several light sources.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Using primitives, STFA sample, Several light sources, Hints
+@subsection Using primitives
+
+MathGL provide a set of functions for drawing primitives (see @ref{Primitives}). Primitives are low level object, which used by most of plotting functions. Picture below demonstrate some of commonly used primitives.
+@verbatim
+subplot 2 2 0 '':title 'Line, Curve, Rhomb, Ellipse' '' -1.5
+line -1 -1 -0.5 1 'qAI'
+curve -0.6 -1 1 1 0 1 1 1 'rA'
+ball 0 -0.5 '*':ball 1 -0.1 '*'
+rhomb 0 0.4 1 0.9 0.2 'b#'
+rhomb 0 0 1 0.4 0.2 'cg@'
+ellipse 0 -0.5 1 -0.1 0.2 'u#'
+ellipse 0 -1 1 -0.6 0.2 'm@'
+
+light on
+subplot 2 2 1:title 'Face[xyz]':rotate 50 60:box
+facex 1 0 -1 1 1 'r':facey -1 -1 -1 1 1 'g':facez 1 -1 -1 -1 1 'b'
+face -1 -1 1 -1 1 1 1 -1 0 1 1 1 'm'
+
+subplot 2 2 3 '':title 'Cone'
+cone -0.7 -0.3 0 -0.7 0.7 0.5 0.2 0.1 'b':text -0.7 -0.7 'no edges\n(default)'
+cone 0 -0.3 0 0 0.7 0.5 0.2 0.1 'g@':text 0 -0.7 'with edges\n('\@' style)'
+cone 0.7 -0.3 0 0.7 0.7 0.5 0.2 0.1 'ry':text 0.7 -0.7 '"arrow" with\n{}gradient'
+
+subplot 2 2 2 '':title 'Sphere and Drop'
+line -0.9 0 1 0.9 0 1
+text -0.9 -0.7 'sh=0':drop -0.9 0 0 1 0.5 'r' 0:ball -0.9 0 1 'k'
+text -0.3 -0.7 'sh=0.33':drop -0.3 0 0 1 0.5 'r' 0.33:ball -0.3 0 1 'k'
+text 0.3 -0.7 'sh=0.67':drop 0.3 0 0 1 0.5 'r' 0.67:ball 0.3 0 1 'k'
+text 0.9 -0.7 'sh=1':drop 0.9 0 0 1 0.5 'r' 1:ball 0.9 0 1 'k'
+@end verbatim
+
+@pfig{primitives, Primitives in MathGL.}
+
+Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @ref{drop}. The sample code is:
+@verbatim
+alpha on:light on
+subplot 2 2 0 '':title 'Methane, CH_4':rotate 60 120
+sphere 0 0 0 0.25 'k':drop 0 0 0 0 0 1 0.35 'h' 1 2:sphere 0 0 0.7 0.25 'g'
+drop 0 0 0 -0.94 0 -0.33 0.35 'h' 1 2:sphere -0.66 0 -0.23 0.25 'g'
+drop 0 0 0 0.47 0.82 -0.33 0.35 'h' 1 2:sphere 0.33 0.57 -0.23 0.25 'g'
+drop 0 0 0 0.47 -0.82 -0.33 0.35 'h' 1 2:sphere 0.33 -0.57 -0.23 0.25 'g'
+
+subplot 2 2 1 '':title 'Water, H{_2}O':rotate 60 100
+sphere 0 0 0 0.25 'r':drop 0 0 0 0.3 0.5 0 0.3 'm' 1 2:sphere 0.3 0.5 0 0.25 'g'
+drop 0 0 0 0.3 -0.5 0 0.3 'm' 1 2:sphere 0.3 -0.5 0 0.25 'g'
+
+subplot 2 2 2 '':title 'Oxygen, O_2':rotate 60 120
+drop 0 0.5 0 0 -0.3 0 0.3 'm' 1 2:sphere 0 0.5 0 0.25 'r'
+drop 0 -0.5 0 0 0.3 0 0.3 'm' 1 2:sphere 0 -0.5 0 0.25 'r'
+
+subplot 2 2 3 '':title 'Ammonia, NH_3':rotate 60 120
+sphere 0 0 0 0.25 'b':drop 0 0 0 0.33 0.57 0 0.32 'n' 1 2
+sphere 0.33 0.57 0 0.25 'g':drop 0 0 0 0.33 -0.57 0 0.32 'n' 1 2
+sphere 0.33 -0.57 0 0.25 'g':drop 0 0 0 -0.65 0 0 0.32 'n' 1 2
+sphere -0.65 0 0 0.25 'g'
+@end verbatim
+
+@pfig{molecule, Example of molecules drawing.}
+
+Moreover, some of special plots can be more easily produced by primitives rather than by specialized function. For example, Venn diagram can be produced by @code{Error} plot:
+@verbatim
+list x -0.3 0 0.3:list y 0.3 -0.3 0.3:list e 0.7 0.7 0.7
+title 'Venn-like diagram':alpha on
+error x y e e '!rgb@#o'
+@end verbatim
+You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @ref{circle} function:
+@verbatim
+title 'Venn-like diagram':alpha on
+circle -0.3 0.3 0.7 'rr@'
+circle 0 -0.3 0.7 'gg@'
+circle 0.3 0.3 0.7 'bb@'
+@end verbatim
+Of course, the first variant is more suitable if you need to plot a lot of circles. But for few ones the usage of primitives looks easy.
+
+@pfig{venn, Example of Venn diagram.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node STFA sample, Mapping visualization, Using primitives, Hints
+@subsection STFA sample
+
+Short-time Fourier Analysis (@ref{stfa}) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
+
+MathGL can find and draw STFA result. Just to show this feature I give following sample. Initial data arrays is 1D arrays with step-like frequency. Exactly this you can see at bottom on the STFA plot. The sample code is:
+@verbatim
+new a 2000:new b 2000
+fill a 'cos(50*pi*x)*(x<-.5)+cos(100*pi*x)*(x<0)*(x>-.5)+\
+cos(200*pi*x)*(x<.5)*(x>0)+cos(400*pi*x)*(x>.5)'
+
+subplot 1 2 0 '<_':title 'Initial signal'
+plot a:axis:xlabel '\i t'
+
+subplot 1 2 1 '<_':title 'STFA plot'
+stfa a b 64:axis:ylabel '\omega' 0:xlabel '\i t'
+@end verbatim
+
+@pfig{stfa, Example of STFA().}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Mapping visualization, Making histogram, STFA sample, Hints
+@subsection Mapping visualization
+
+Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @ref{surfc}, @ref{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+
+I tried to make such plot in @ref{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+
+The sample code for mapping visualization is:
+@verbatim
+new a 50 40 'x':new b 50 40 'y':zrange -2 2:text 0 0 '\to'
+subplot 2 1 0:text 0 1.1 '\{x, y\}' '' -2:box
+map a b 'brgk' 0 0
+
+subplot 2 1 1:box
+text 0 1.1 '\{\frac{x^3+y^3}{2}, \frac{x-y}{2}\}' '' -2
+fill a '(x^3+y^3)/2':fill b '(x-y)/2':map a b 'brgk' 0 0
+@end verbatim
+
+@pfig{map, Example of Map().}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Making histogram, Nonlinear fitting sample, Mapping visualization, Hints
+@subsection Making histogram
+
+Using the @ref{hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @ref{hist} usage:
+@verbatim
+new x 10000 '2*rnd-1':new y 10000 '2*rnd-1':copy z exp(-6*(x^2+y^2))
+hist xx x z:norm xx 0 1:hist yy y z:norm yy 0 1
+multiplot 3 3 3 2 2 '':ranges -1 1 -1 1 0 1:box:dots x y z 'wyrRk'
+multiplot 3 3 0 2 1 '':ranges -1 1 0 1:box:bars xx
+multiplot 3 3 5 1 2 '':ranges 0 1 -1 1:box:barh yy
+subplot 3 3 2:text 0.5 0.5 'Hist and\n{}MultiPlot\n{}sample' 'a' -3
+@end verbatim
+
+@pfig{hist, Example of Hist().}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node Nonlinear fitting sample, PDE solving hints, Making histogram, Hints
+@subsection Nonlinear fitting hints
+
+Nonlinear fitting is rather simple. All that you need is the data to fit, the approximation formula and the list of coefficients to fit (better with its initial guess values). Let me demonstrate it on the following simple example. First, let us use sin function with some random noise:
+@verbatim
+new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'
+new in 100 '0.3+sin(2*pi*x)'
+@end verbatim
+and plot it to see that data we will fit
+@verbatim
+title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '
+@end verbatim
+
+The next step is the fitting itself. For that let me specify an initial values @var{ini} for coefficients @samp{abc} and do the fitting for approximation formula @samp{a+b*sin(c*x)}
+@verbatim
+list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini
+@end verbatim
+Now display it
+@verbatim
+plot res 'r':plot in 'b'
+text -0.9 -1.3 'fitted:' 'r:L'
+putsfit 0 -1.8 'y = ' 'r'
+text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'b'
+@end verbatim
+
+NOTE! the fitting results may have strong dependence on initial values for coefficients due to algorithm features. The problem is that in general case there are several local "optimums" for coefficients and the program returns only first found one! There are no guaranties that it will be the best. Try for example to set @code{ini[3] = @{0, 0, 0@}} in the code above.
+
+The full sample code for nonlinear fitting is:
+@verbatim
+new rnd 100 '0.4*rnd+0.1+sin(2*pi*x)'
+new in 100 '0.3+sin(2*pi*x)'
+list ini 1 1 3:fit res rnd 'a+b*sin(c*x)' 'abc' ini
+title 'Fitting sample':yrange -2 2:box:axis:plot rnd '. '
+plot res 'r':plot in 'b'
+text -0.9 -1.3 'fitted:' 'r:L'
+putsfit 0 -1.8 'y = ' 'r'
+text 0 2.2 'initial: y = 0.3+sin(2\pi x)' 'b'
+@end verbatim
+
+@pfig{fit, Example of nonlinear fitting.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node PDE solving hints, MGL parser using, Nonlinear fitting sample, Hints
+@subsection PDE solving hints
+
+Solving of Partial Differential Equations (PDE, including beam tracing) and ray tracing (or finding particle trajectory) are more or less common task. So, MathGL have several functions for that. There are @code{mglRay()} for ray tracing, @code{mglPDE()} for PDE solving, @code{mglQO2d()} for beam tracing in 2D case (see @ref{Global functions}). Note, that these functions take ``Hamiltonian'' or equations as string values. And I don't plan now to allow one to use user-defined functions. There are 2 reasons: the complexity of corresponding interface; and the basic nature of used methods which are good for samples but may not good for serious scientific calculations.
+
+The ray tracing can be done by @code{mglRay()} function. Really ray tracing equation is Hamiltonian equation for 3D space. So, the function can be also used for finding a particle trajectory (i.e. solve Hamiltonian ODE) for 1D, 2D or 3D cases. The function have a set of arguments. First of all, it is Hamiltonian which defined the media (or the equation) you are planning to use. The Hamiltonian is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z}, time @samp{t} (for particle dynamics) and momentums @samp{p}=@math{p_x}, @samp{q}=@math{p_y}, @samp{v}=@math{p_z}. Next, you have to define the initial conditions for coordinates and momentums at @samp{t}=0 and set the integrations step (default is 0.1) and its duration (default is 10). The Runge-Kutta method of 4-th order is used for integration.
+@verbatim
+  const char *ham = "p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)";
+  mglData r = mglRay(ham, mglPoint(-0.7, -1), mglPoint(0, 0.5), 0.02, 2);
+@end verbatim
+This example calculate the reflection from linear layer (media with Hamiltonian @samp{p^2+q^2-x-1}=@math{p_x^2+p_y^2-x-1}). This is parabolic curve. The resulting array have 7 columns which contain data for @{x,y,z,p,q,v,t@}.
+
+The solution of PDE is a bit more complicated. As previous you have to specify the equation as pseudo-differential operator @math{\hat H(x, \nabla)} which is called sometime as ``Hamiltonian'' (for example, in beam tracing). As previously, it is defined by string which may depend on coordinates @samp{x}, @samp{y}, @samp{z} (but not time!), momentums @samp{p}=@math{(d/dx)/i k_0}, @samp{q}=@math{(d/dy)/i k_0} and field amplitude @samp{u}=@math{|u|}. The evolutionary coordinate is @samp{z} in all cases. So that, the equation look like @math{du/dz = ik_0 H(x,y,\hat p, \hat q, |u|)[u]}. Dependence on field amplitude @samp{u}=@math{|u|} allows one to solve nonlinear problems too. For example, for nonlinear Shrodinger equation you may set @code{ham="p^2 + q^2 - u^2"}. Also you may specify imaginary part for wave absorption, like @code{ham = "p^2 + i*x*(x>0)"}, but only if dependence on variable @samp{i} is linear (i.e. @math{H = Hre+i*Him}).
+
+Next step is specifying the initial conditions at @samp{z}=@code{Min.z}. The function need 2 arrays for real and for imaginary part. Note, that coordinates x,y,z are supposed to be in specified range [Min, Max]. So, the data arrays should have corresponding scales. Finally, you may set the integration step and parameter k0=@math{k_0}. Also keep in mind, that internally the 2 times large box is used (for suppressing numerical reflection from boundaries) and the equation should well defined even in this extended range.
+
+Final comment is concerning the possible form of pseudo-differential operator @math{H}. At this moment, simplified form of operator @math{H} is supported -- all ``mixed'' terms (like @samp{x*p}->x*d/dx) are excluded. For example, in 2D case this operator is effectively @math{H = f(p,z) + g(x,z,u)}. However commutable combinations (like @samp{x*q}->x*d/dy) are allowed for 3D case.
+
+So, for example let solve the equation for beam deflected from linear layer and absorbed later. The operator will have the form @samp{"p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)"} that correspond to equation @math{ik_0 \partial_z u + \Delta u + x \cdot u + i (x+z)/2 \cdot u = 0}. This is typical equation for Electron Cyclotron (EC) absorption in magnetized plasmas. For initial conditions let me select the beam with plane phase front @math{exp(-48*(x+0.7)^2)}. The corresponding code looks like this:
+@verbatim
+new re 128 'exp(-48*(x+0.7)^2)':new im 128
+pde a 'p^2+q^2-x-1+i*0.5*(z+x)*(z>-x)' re im 0.01 30
+transpose a
+subplot 1 1 0 '<_':title 'PDE solver'
+axis:xlabel '\i x':ylabel '\i z'
+crange 0 1:dens a 'wyrRk'
+fplot '-x' 'k|'
+text 0 0.95 'Equation: ik_0\partial_zu + \Delta u + x\cdot u +\
+ i \frac{x+z}{2}\cdot u = 0\n{}absorption: (x+z)/2 for x+z>0'
+@end verbatim
+
+@pfig{pde, Example of PDE solving.}
+
+The last example is example of beam tracing. Beam tracing equation is special kind of PDE equation written in coordinates accompanied to a ray. Generally this is the same parameters and limitation as for PDE solving but the coordinates are defined by the ray and by parameter of grid width @var{w} in direction transverse the ray. So, you don't need to specify the range of coordinates. @strong{BUT} there is limitation. The accompanied coordinates are well defined only for smooth enough rays, i.e. then the ray curvature @math{K} (which is defined as @math{1/K^2 = (|\ddot r|^2 |\dot r|^2 - (\ddot r, \dot r)^2)/|\dot r|^6}) is much large then the grid width: @math{K>>w}. So, you may receive incorrect results if this condition will be broken.
+
+You may use following code for obtaining the same solution as in previous example:
+@verbatim
+define $1 'p^2+q^2-x-1+i*0.5*(y+x)*(y>-x)'
+subplot 1 1 0 '<_':title 'Beam and ray tracing'
+ray r $1 -0.7 -1 0 0 0.5 0 0.02 2:plot r(0) r(1) 'k'
+axis:xlabel '\i x':ylabel '\i z'
+new re 128 'exp(-48*x^2)':new im 128
+new xx 1:new yy 1
+qo2d a $1 re im r 1 30 xx yy
+crange 0 1:dens xx yy a 'wyrRk':fplot '-x' 'k|'
+text 0 0.85 'absorption: (x+y)/2 for x+y>0'
+text 0.7 -0.05 'central ray'
+@end verbatim
+
+@pfig{qo2d, Example of beam tracing.}
+
+
+@c ------------------------------------------------------------------
+@c @external
+@node MGL parser using, Using options, PDE solving hints, Hints
+@subsection MGL parser using
+
+MGL scripts can contain loops, conditions and user-defined functions. Below I show very simple example of its usage:
+@verbatim
+title 'MGL parser sample'
+call 'sample'
+stop
+
+func 'sample'
+new dat 100 'sin(2*pi*(x+1))'
+plot dat; xrange 0 1
+box:axis:xlabel 'x':ylabel 'y'
+for $0 -1 1 0.1
+if $0<0
+line 0 0 -1 $0 'r'
+else
+line 0 0 -1 $0 'r'
+endif
+next
+@end verbatim
+
+@pfig{parser, Example of MGL script parsing.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Using options, ``Templates'', MGL parser using, Hints
+@subsection Using options
+
+@ref{Command options} allow the easy setup of the selected plot by changing global settings only for this plot. Often, options are used for specifying the range of automatic variables (coordinates). However, options allows easily change plot transparency, numbers of line or faces to be drawn, or add legend entries. The sample function for options usage is:
+@verbatim
+new a 31 41 '-pi*x*exp(-(y+1)^2-4*x^2)'
+alpha on:light on
+subplot 2 2 0:title 'Options for coordinates':rotate 40 60:box
+surf a 'r';yrange 0 1
+surf a 'b';yrange 0 -1
+
+subplot 2 2 1:title 'Option "meshnum"':rotate 40 60:box
+mesh a 'r'; yrange 0 1
+mesh a 'b';yrange 0 -1; meshnum 5
+
+subplot 2 2 2:title 'Option "alpha"':rotate 40 60:box
+surf a 'r';yrange 0 1; alpha 0.7
+surf a 'b';yrange 0 -1; alpha 0.3
+
+subplot 2 2 3 '<_':title 'Option "legend"'
+fplot 'x^3' 'r'; legend 'y = x^3'
+fplot 'cos(pi*x)' 'b'; legend 'y = cos \pi x'
+box:axis:legend 2
+@end verbatim
+
+@pfig{mirror, Example of options usage.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Templates'', Nonlinear fitting sample, Using options, Hints
+@subsection ``Templates''
+
+As I have noted before, the change of settings will influence only for the further plotting commands. This allows one to create ``template'' function which will contain settings and primitive drawing for often used plots. Correspondingly one may call this template-function for drawing simplification.
+
+For example, let one has a set of points (experimental or numerical) and wants to compare it with theoretical law (for example, with exponent law @math{\exp(-x/2), x \in [0, 20]}). The template-function for this task is:
+@verbatim
+void template(mglGraph *gr)
+{
+  mglData  law(100);      // create the law
+  law.Modify("exp(-10*x)");
+  gr->SetRanges(0,20, 0.0001,1);
+  gr->SetFunc(0,"lg(y)",0);
+  gr->Plot(law,"r2");
+  gr->Puts(mglPoint(10,0.2),"Theoretical law: e^x","r:L");
+  gr->Label('x',"x val."); gr->Label('y',"y val.");
+  gr->Axis(); gr->Grid("xy","g;"); gr->Box();
+}
+@end verbatim
+At this, one will only write a few lines for data drawing:
+@verbatim
+  template(gr);     // apply settings and default drawing from template
+  mglData dat("fname.dat"); // load the data
+  // and draw it (suppose that data file have 2 columns)
+  gr->Plot(dat.SubData(0),dat.SubData(1),"bx ");
+@end verbatim
+A template-function can also contain settings for font, transparency, lightning, color scheme and so on.
+
+I understand that this is obvious thing for any professional programmer, but I several times receive suggestion about ``templates'' ... So, I decide to point out it here.
+
+@c ------------------------------------------------------------------
+@c @external
+@node Stereo image, Reduce memory usage, ``Templates'', Hints
+@subsection Stereo image
+
+One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this:
+@verbatim
+call 'prepare2d'
+light on
+subplot 2 1 0:rotate 50 60+1:box:surf a
+subplot 2 1 1:rotate 50 60-1:box:surf a
+@end verbatim
+
+@pfig{stereo, Example of stereo image.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Reduce memory usage, , Stereo image, Hints
+@subsection Reduce memory usage
+
+By default MathGL save all primitives in memory, rearrange it and only later draw them on bitmaps. Usually, this speed up drawing, but may require a lot of memory for plots which contain a lot of faces (like @ref{cloud}, @ref{dew}). You can use @ref{quality} function for setting to use direct drawing on bitmap and bypassing keeping any primitives in memory. This function also allow you to decrease the quality of the resulting image but increase the speed of the drawing.
+
+The code for lower memory usage looks like this:
+@verbatim
+quality 6  # firstly, set to draw directly on bitmap
+for $1 0 1000
+  sphere 2*rnd-1 2*rnd-1 0.05
+next
+@end verbatim
+
+@c ==================================================================
+
+@external
+@node FAQ, , Hints, Examples
+@section FAQ
+
+@table @strong
+@item The plot does not appear
+Check that points of the plot are located inside the bounding box and resize the bounding box using @ref{ranges} function. Check that the data have correct dimensions for selected type of plot. Sometimes the light reflection from flat surfaces (like, @ref{dens}) can look as if the plot were absent.
+
+@item I can not find some special kind of plot.
+Most ``new'' types of plots can be created by using the existing drawing functions. For example, the surface of curve rotation can be created by a special function @ref{torus}, or as a parametrically specified surface by @ref{surf}. See also, @ref{Hints}. If you can not find a specific type of plot, please e-mail me and this plot will appear in the next version of MathGL library.
+
+@item How can I print in Russian/Spanish/Arabic/Japanese, and so on?
+The standard way is to use Unicode encoding for the text output. But the MathGL library also has interface for 8-bit (char *) strings with internal conversion to Unicode. This conversion depends on the current locale OS. You may change it by @code{setlocale()} function. For example, for Russian text in CP1251 encoding you may use @code{setlocale(LC_CTYPE, "ru_RU.cp1251");} (under MS Windows the name of locale may differ -- @code{setlocale(LC_CTYPE, "russian_russia.1251")}). I strongly recommend not to use the constant @code{LC_ALL} in the conversion. Since it also changes the number format, it may lead to mistakes in formula writing and reading of the text in data files. For example, the program will await a @samp{,} as a decimal point but the user will enter @samp{.}.
+
+@item How can I exclude a point or a region of plot from the drawing?
+There are 3 general ways. First, the point with @code{nan} value as one of the coordinates (including color/alpha range) will never be plotted. Second, special functions define the condition when the points should be omitted (see @ref{Cutting}). Last, you may change the transparency of a part of the plot by the help of functions @ref{surfa}, @ref{surf3a} (see @ref{Dual plotting}). In last case the transparency is switched on smoothly.
+
+@item How many people write this library?
+Most of the library was written by one person. This is a result of nearly a year of work (mostly in the evening and on holidays): I spent half a year to write the kernel and half a year to a year on extending, improving the library and writing documentation. This process continues now :). The build system (cmake files) was written mostly by D.Kulagin, and the export to PRC/IDTF was written mostly by M.Vidassov.
+
+@item How can I display a bitmap on the figure?
+You can import data by command @ref{import} and display it by @ref{dens} function. For example, for black-and-white bitmap you can use the code: @code{import bmp 'fname.png' 'wk':dens  bmp 'wk'}.
+
+@item How I can change the font family?
+First, you should download new font files from @uref{http://mathgl.sourceforge.net/download.html, here} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. Next, you should load the font files into by the following command: @code{loadfont 'fontname'}. Here @var{fontname} is the base font name like @samp{STIX}. Use @code{loadfont ''} to start using the default font.
+
+@item How can I draw tick out of a bounding box?
+Just set a negative value in @ref{ticklen}. For example, use @code{ticklen -0.1}.
+
+@item How can I prevent text rotation?
+Just use @code{rotatetext off}.
+
+@end table
+
+@external
+

diff --git a/texinfo/example_en.texi b/texinfo/example_en.texi
index 1a3bbf270a66dbd113771996860415c5aee84d27..68a832277e5645b061b23ee3944958a092f97a52 100644 (file)
--- a/texinfo/example_en.texi
+++ b/texinfo/example_en.texi
@@ -106,7 +106,7 @@ Let me consider the aforesaid in more detail.
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using MathGL window, Drawing to file, , Basic usage
 @subsection Using MathGL window
 @cindex window
@@ -167,7 +167,7 @@ int sample(HMGL gr, void *)
 int main(int argc,char **argv)
 {
   HMGL gr;
-  gr = mgl_create_graph_qt(sample,"MathGL examples",0);
+  gr = mgl_create_graph_qt(sample,"MathGL examples",0,0);
   return mgl_qt_run();
 /* generally I should call mgl_delete_graph() here,
  * but I omit it in main() function. */
@@ -189,7 +189,7 @@ The rotation, shift, zooming, switching on/off transparency and lighting can be
 In this example function @code{sample} rotates axes (@code{Rotate()}, @pxref{Subplots and rotation}) and draws the bounding box (@code{Box()}). Drawing is placed in separate function since it will be used on demand when window canvas needs to be redrawn.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Drawing to file, Animation, Using MathGL window, Basic usage
 @subsection Drawing to file
 
@@ -230,7 +230,7 @@ int main(int ,char **)
 The difference from the previous one is using other function @code{WriteEPS()} for EPS format instead of function @code{WritePNG()}. Also, there is no switching on of the plot transparency @code{Alpha} since EPS format does not support it.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Animation, Drawing in memory, Drawing to file, Basic usage
 @subsection Animation
 
@@ -363,7 +363,7 @@ Created files can be converted to movie by help of a lot of programs. For exampl
 Finally, you can use @code{mglconv} tool for doing the same with MGL scripts (@pxref{Utilities}).
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Drawing in memory, Using QMathGL, Animation, Basic usage
 @subsection Drawing in memory
 
@@ -421,7 +421,7 @@ void MyWidget::paintEvent(QPaintEvent *)
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using QMathGL, MathGL and PyQt, Drawing in memory, Basic usage
 @subsection Using QMathGL
 
@@ -459,7 +459,7 @@ int main(int argc,char **argv)
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node MathGL and PyQt, , Using QMathGL, Basic usage
 @subsection MathGL and PyQt
 
@@ -551,11 +551,11 @@ Now I show several non-obvious features of MathGL: several subplots in a single
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Subplots, Axis and ticks, , Advanced usage
 @subsection Subplots
 
-Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @code{SubPlot}, @code{InPlot}, @code{Title}, @code{Aspect} and @code{Rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @code{SubPlot}, @code{InPlot} and @code{MultiPlot}). Secondly, you can add the title of plot by @code{Title} function. After that one may rotate the plot (function @code{Rotate}). Finally, one may change aspects of axes (function @code{Aspect}). The following code illustrates the aforesaid it:
+Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @ref{subplot}, @ref{inplot}, @ref{title}, @ref{aspect} and @ref{rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @ref{subplot}, @ref{inplot} and @ref{multiplot}). Secondly, you can add the title of plot by @ref{title} function. After that one may rotate the plot (function @ref{rotate}). Finally, one may change aspects of axes (function @ref{aspect}). The following code illustrates the aforesaid it:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -604,13 +604,13 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Axis and ticks, Curvilinear coordinates, Subplots, Advanced usage
 @subsection Axis and ticks
 
 MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The ranges of axes and their origin (the point of intersection) are determined by functions @code{SetRange()}, @code{SetRanges()}, @code{SetOrigin()} (see @ref{Ranges (bounding box)}). Ticks on axis are specified by function @code{SetTicks}, @code{SetTicksVal}, @code{SetTicksTime} (see @ref{Ticks}). But usually
 
-Function @code{Axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Function @code{Grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
+Function @ref{axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Function @ref{grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -646,6 +646,15 @@ int sample(mglGraph *gr)
 
 Note, that MathGL can draw not only single axis (which is default). But also several axis on the plot (see right plots). The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes I setup the first axis and draw everything concerning it. Then I setup the second axis and draw things for the second axis. Generally, the similar idea allows one to draw rather complicated plot of 4 axis with different ranges (see bottom left plot).
 
+At this inverted axis can be created by 2 methods. First one is used in this sample -- just specify minimal axis value to be large than maximal one. This method work well for 2D axis, but can wrongly place labels in 3D case. Second method is more general and work in 3D case too -- just use @ref{aspect} function with negative arguments. For example, following code will produce exactly the same result for 2D case, but 2nd variant will look better in 3D.
+@verbatim
+// variant 1
+gr->SetRanges(0,10,4,0);  gr->Axis();
+
+// variant 2
+gr->SetRanges(0,10,0,4);  gr->Aspect(1,-1);   gr->Axis();
+@end verbatim
+
 @pfig{axis, Example of axis.}
 
 Another MathGL feature is fine ticks tunning. By default (if it is not changed by @code{SetTicks} function), MathGL try to adjust ticks positioning, so that they looks most human readable. At this, MathGL try to extract common factor for too large or too small axis ranges, as well as for too narrow ranges. Last one is non-common notation and can be disabled by @code{SetTuneTicks} function.
@@ -677,7 +686,7 @@ int sample(mglGraph *gr)
 
 @pfig{ticks, Features of axis ticks.}
 
-The last sample I want to show in this subsection is Log-axis. From MathGL's point of vew, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
+The last sample I want to show in this subsection is Log-axis. From MathGL's point of view, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -709,7 +718,7 @@ int sample(mglGraph *gr)
 You can see that MathGL automatically switch to log-ticks as we define log-axis formula (in difference from v.1.*). Moreover, it switch to log-ticks for any formula if axis range will be large enough (see right bottom plot). Another interesting feature is that you not necessary define usual log-axis (i.e. when coordinates are positive), but you can define ``minus-log'' axis when coordinate is negative (see left bottom plot).
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Curvilinear coordinates, Colorbars, Axis and ticks, Advanced usage
 @subsection Curvilinear coordinates
 
@@ -746,11 +755,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Colorbars, Bounding box, Curvilinear coordinates, Advanced usage
 @subsection Colorbars
 
-MathGL handle colorbar as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
+MathGL handle @ref{colorbar} as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
 
 But of course, there are differences -- colorbars usually located out of bounding box. At this, colorbars can be at subplot boundaries (by default), or at bounding box (if symbol @samp{I} is specified). Colorbars can handle sharp colors. And they can be located at arbitrary position too. The sample code, which demonstrate colorbar features is:
 @verbatim
@@ -770,11 +779,16 @@ int sample(mglGraph *gr)
   gr->Colorbar(v,"<");  gr->Colorbar(v,">");
   gr->Colorbar(v,"_");  gr->Colorbar(v,"^");
 
-  gr->SubPlot(2,2,3); gr->Title("log-scale");
+  gr->SubPlot(2,2,3);   gr->Title(" ");
+  gr->Puts(mglPoint(-0.5,1.55),"Color positions",":C",-2);
+  gr->Colorbar("bwr>",0.25,0);  gr->Puts(mglPoint(-0.9,1.2),"Default");
+  gr->Colorbar("b{w,0.3}r>",0.5,0); gr->Puts(mglPoint(-0.1,1.2),"Manual");
+
+  gr->Puts(mglPoint(1,1.55),"log-scale",":C",-2);
   gr->SetRange('c',0.01,1e3);
-  gr->Colorbar(">",0.5,0);  gr->Puts(mglPoint(0,1.2),"Normal scale");
+  gr->Colorbar(">",0.75,0);  gr->Puts(mglPoint(0.65,1.2),"Normal scale");
   gr->SetFunc("","","","lg(c)");
-  gr->Colorbar(">");    gr->Puts(mglPoint(1.3,1.2),"Log scale");
+  gr->Colorbar(">");    gr->Puts(mglPoint(1.35,1.2),"Log scale");
   return 0;
 }
 @end verbatim
@@ -783,11 +797,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Bounding box, Ternary axis, Colorbars, Advanced usage
 @subsection Bounding box
 
-Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @code{Box()} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @code{Box()} features is:
+Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @ref{box} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @ref{box} features is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -807,13 +821,13 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Ternary axis, Text features, Bounding box, Advanced usage
 @subsection Ternary axis
 
 There are another unusual axis types which are supported by MathGL. These are ternary and quaternary axis. Ternary axis is special axis of 3 coordinates @var{a}, @var{b}, @var{c} which satisfy relation @var{a}+@var{b}+@var{c}=1. Correspondingly, quaternary axis is special axis of 4 coordinates @var{a}, @var{b}, @var{c}, @var{d} which satisfy relation @var{a}+@var{b}+@var{c}+@var{d}=1.
 
-Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @code{Ternary} function for switching to ternary/quaternary coordinates. The sample code is:
+Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @ref{ternary} function for switching to ternary/quaternary coordinates. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -860,7 +874,7 @@ int sample(mglGraph *gr)
 @pfig{ternary, Example of colorbars}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Text features, Legend sample, Ternary axis, Advanced usage
 @subsection Text features
 
@@ -906,16 +920,38 @@ int sample(mglGraph *gr)
 
 @pfig{text, Example of text printing}
 
+You can change font faces by loading font files by function @ref{loadfont}. Note, that this is long-run procedure. Font faces can be downloaded from @uref{http://mathgl.sourceforge.net/download.html, MathGL website} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  double h=1.1, d=0.25;
+  gr->LoadFont("STIX");     gr->Puts(mglPoint(0,h), "default font (STIX)");
+  gr->LoadFont("adventor"); gr->Puts(mglPoint(0,h-d), "adventor font");
+  gr->LoadFont("bonum");    gr->Puts(mglPoint(0,h-2*d), "bonum font");
+  gr->LoadFont("chorus");   gr->Puts(mglPoint(0,h-3*d), "chorus font");
+  gr->LoadFont("cursor");   gr->Puts(mglPoint(0,h-4*d), "cursor font");
+  gr->LoadFont("heros");    gr->Puts(mglPoint(0,h-5*d), "heros font");
+  gr->LoadFont("heroscn");  gr->Puts(mglPoint(0,h-6*d), "heroscn font");
+  gr->LoadFont("pagella");  gr->Puts(mglPoint(0,h-7*d), "pagella font");
+  gr->LoadFont("schola");   gr->Puts(mglPoint(0,h-8*d), "schola font");
+  gr->LoadFont("termes");   gr->Puts(mglPoint(0,h-9*d), "termes font");
+  return 0;
+}
+@end verbatim
+
+@pfig{fonts, Example of font faces}
+
+
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Legend sample, Cutting sample, Text features, Advanced usage
 @subsection Legend sample
 
-Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @code{AddLegend} function (see @ref{Legend}); or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @code{ClearLegend} function allow you to remove all saved legend entries.
+Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @ref{addlegend} function; or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @ref{clearlegend} function allow you to remove all saved legend entries.
 
 There are 2 features. If plot style is empty then text will be printed without indent. If you want to plot the text with indent but without plot sample then you need to use space @samp{ } as plot style. Such style @samp{ } will draw a plot sample (line with marker(s)) which is invisible line (i.e. nothing) and print the text with indent as usual one.
 
-Function @code{Legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
+Function @ref{legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -934,8 +970,9 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,2,"");  gr->Title("coloring");  gr->Box();
   gr->Legend(0,"r#"); gr->Legend(1,"Wb#");  gr->Legend(2,"ygr#");
 
-  gr->SubPlot(2,2,3,"");  gr->Title("manual position");
-  gr->Box();  gr->Legend(0.5,0.5);
+  gr->SubPlot(2,2,3,"");  gr->Title("manual position"); gr->Box();
+  gr->Legend(0.5,1);  gr->Puts(mglPoint(0.5,0.55),"at x=0.5, y=1","a");
+  gr->Legend(1,"#-"); gr->Puts(mglPoint(0.75,0.25),"Horizontal legend","a");
   return 0;
 }
 @end verbatim
@@ -943,7 +980,7 @@ int sample(mglGraph *gr)
 @pfig{legend, Example of legend}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cutting sample, , Legend sample, Advanced usage
 @subsection Cutting sample
 
@@ -1004,8 +1041,8 @@ Class @code{mglData} contains all functions for the data handling in MathGL (@px
 @end menu
 
 @c ------------------------------------------------------------------
-@external
-@node Array creation, Change data, , Data handling
+@c @external
+@node Array creation, Linking array, , Data handling
 @subsection Array creation
 
 There are many ways in MathGL how data arrays can be created and filled.
@@ -1082,7 +1119,7 @@ or by using @code{Modify()} function
 The only non-obvious thing here is using multidimensional arrays in C/C++, i.e. arrays defined like @code{mreal dat[40][30];}. Since, formally these elements @code{dat[i]} can address the memory in arbitrary place you should use the proper function to convert such arrays to @code{mglData} object. For C++ this is functions like @code{mglData::Set(mreal **dat, int N1, int N2);}. For C this is functions like @code{mgl_data_set_mreal2(HMDT d, const mreal **dat, int N1, int N2);}. At this, you should keep in mind that @code{nx=N2} and @code{ny=N1} after conversion.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Linking array, Change data, Array creation, Data handling
 @subsection Linking array
 
@@ -1100,7 +1137,7 @@ Creating the link is rather simple -- just the same as using @code{Set} function
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Change data, , Linking array, Data handling
 @subsection Change data
 
@@ -1128,7 +1165,7 @@ int sample(mglGraph *gr)
 
 @pfig{dat_diff, Example of data differentiation and integration}
 
-Data smoothing (function @code{Smooth()}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
+Data smoothing (function @ref{smooth}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
 
 MathGL also have some amazing functions which is not so important for data processing as useful for data plotting. There are functions for finding envelope (useful for plotting rapidly oscillating data), for data sewing (useful to removing jumps on the phase), for data resizing (interpolation). Let me demonstrate it:
 @verbatim
@@ -1170,10 +1207,58 @@ int sample(mglGraph *gr)
 }
 @end verbatim
 
-@pfig{dat_extra, Example of data smoothing}
+@pfig{dat_extra, Example of data manipulation}
+
+Also one can create new data arrays on base of the existing one: extract slice, row or column of data (@ref{subdata}), summarize along a direction(s) (@ref{sum}), find distribution of data elements (@ref{hist}) and so on.
+
+@anchor{Solve sample}
+Another interesting feature of MathGL is interpolation and root-finding. There are several functions for linear and cubic spline interpolation (see @ref{Interpolation}). Also there is a function @ref{evaluate} which do interpolation of data array for values of each data element of index data. It look as indirect access to the data elements.
+
+This function have inverse function @ref{solve} which find array of indexes at which data array is equal to given value (i.e. work as root finding). But @ref{solve} function have the issue -- usually multidimensional data (2d and 3d ones) have an infinite number of indexes which give some value. This is contour lines for 2d data, or isosurface(s) for 3d data. So, @ref{solve} function will return index only in given direction, assuming that other index(es) are the same as equidistant index(es) of original data. If data have multiple roots then second (and later) branches can be found by consecutive call(s) of @ref{solve} function.  Let me demonstrate this on the following sample.
+
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetRange('z',0,1);
+  mglData x(20,30), y(20,30), z(20,30), xx,yy,zz;
+  gr->Fill(x,"(x+2)/3*cos(pi*y)");
+  gr->Fill(y,"(x+2)/3*sin(pi*y)");
+  gr->Fill(z,"exp(-6*x^2-2*sin(pi*y)^2)");
+
+  gr->SubPlot(2,1,0); gr->Title("Cartesian space");   gr->Rotate(30,-40);
+  gr->Axis("xyzU");   gr->Box();  gr->Label('x',"x"); gr->Label('y',"y");
+  gr->SetOrigin(1,1); gr->Grid("xy");
+  gr->Mesh(x,y,z);
+
+  // section along 'x' direction
+  mglData u = x.Solve(0.5,'x');
+  mglData v(u.nx);  v.Fill(0,1);
+  xx = x.Evaluate(u,v);   yy = y.Evaluate(u,v);   zz = z.Evaluate(u,v);
+  gr->Plot(xx,yy,zz,"k2o");
+
+  // 1st section along 'y' direction
+  mglData u1 = x.Solve(-0.5,'y');
+  mglData v1(u1.nx);  v1.Fill(0,1);
+  xx = x.Evaluate(v1,u1); yy = y.Evaluate(v1,u1); zz = z.Evaluate(v1,u1);
+  gr->Plot(xx,yy,zz,"b2^");
 
-Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@code{SubData()}), summarize along a direction(s) (@code{Sum()}), find distribution of data elements (@code{Hist()}) and so on.
+  // 2nd section along 'y' direction
+  mglData u2 = x.Solve(-0.5,'y',u1);
+  xx = x.Evaluate(v1,u2); yy = y.Evaluate(v1,u2); zz = z.Evaluate(v1,u2);
+  gr->Plot(xx,yy,zz,"r2v");
 
+  gr->SubPlot(2,1,1); gr->Title("Accompanied space");
+  gr->SetRanges(0,1,0,1); gr->SetOrigin(0,0);
+  gr->Axis(); gr->Box();  gr->Label('x',"i"); gr->Label('y',"j");
+  gr->Grid(z,"h");
+
+  gr->Plot(u,v,"k2o");    gr->Line(mglPoint(0.4,0.5),mglPoint(0.8,0.5),"kA");
+  gr->Plot(v1,u1,"b2^");  gr->Line(mglPoint(0.5,0.15),mglPoint(0.5,0.3),"bA");
+  gr->Plot(v1,u2,"r2v");  gr->Line(mglPoint(0.5,0.7),mglPoint(0.5,0.85),"rA");
+}
+@end verbatim
+
+@pfig{solve, Example of data interpolation and root finding}
 
 @c ------------------------------------------------------------------
 @external
@@ -1186,7 +1271,7 @@ Note, that the call of drawing function adds something to picture but does not c
 
 Let start for plots for 1D data. Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. The textual argument allow you specify styles of line and marks (see @ref{Line styles}). If this parameter is @code{NULL} or empty then solid line with color from palette is used (see @ref{Palette and colors}).
 
-Below I shall show the features of 1D plotting on base of @code{Plot()} function (see @ref{plot}). Let us start from sinus plot:
+Below I shall show the features of 1D plotting on base of @ref{plot} function. Let us start from sinus plot:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1194,7 +1279,7 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,0);
   gr->Plot(y0);        gr->Box();
 @end verbatim
-Style of line is not specified in @code{Plot()} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
+Style of line is not specified in @ref{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
 @verbatim
   gr->SubPlot(2,2,1);
   mglData y1(50,2);
@@ -1207,7 +1292,7 @@ As previously I did not specify the style of lines. As a result, MathGL again us
   mglData x(50);       x.Modify("cos(pi*2*x-pi)");
   gr->Plot(x,y0,"Y+");
 @end verbatim
-Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @code{Plot()} and @code{SubData())} functions. Let us draw ellipse by orange dash line:
+Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @ref{plot} and @ref{subdata} functions. Let us draw ellipse by orange dash line:
 @verbatim
   gr->Plot(y1.SubData(-1,0),y1.SubData(-1,1),"q|");
 @end verbatim
@@ -1218,7 +1303,7 @@ Drawing in 3D space is mostly the same. Let us draw spiral with default line sty
   mglData z(50);       z.Modify("2*x-1");
   gr->Plot(x,y0,z);    gr->Box();
 @end verbatim
-Functions @code{Plot()} and @code{SubData())} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
+Functions @ref{plot} and @ref{subdata} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
 @verbatim
   mglData y2(10,3);    y2.Modify("cos(pi*(2*x-1+y))");
   y2.Modify("2*x-1",2);
@@ -1232,7 +1317,7 @@ Note that line style is empty @samp{ } here. Usage of other 1D plotting function
 }
 @end verbatim
 
-Surfaces @code{Surf()} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
+Surfaces @ref{surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
 
 Now I shall show the example of a surface drawing. At first let us switch lightning on
 @verbatim
@@ -1276,7 +1361,7 @@ Note, that it may entail a confusion. However, if one will use density plot then
 }
 @end verbatim
 
-Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@code{Grid()} or @code{Mesh()} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @code{Axial()}) this flag switches the  face drawing off. Figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
+Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@ref{grid} or @ref{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @ref{axial}) this flag switches the  face drawing off and figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1372,6 +1457,7 @@ void mgls_prepare1d(HMDT y, HMDT y1=0, HMDT y2=0, HMDT x1=0, HMDT x2=0)
 * Mark sample::
 * TextMark sample::
 * Label sample::
+* Table sample::
 * Tube sample::
 * Tape sample::
 * Torus sample::
@@ -1379,11 +1465,11 @@ void mgls_prepare1d(HMDT y, HMDT y1=0, HMDT y2=0, HMDT x1=0, HMDT x2=0)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Plot sample, Radar sample, , 1D samples
 @subsection Plot sample
 
-@code{Plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
+Function @ref{plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1410,11 +1496,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Radar sample, Step sample, Plot sample, 1D samples
 @subsection Radar sample
 
-@code{Radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
+Function @ref{radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1428,11 +1514,11 @@ int sample(mglGraph *gr)
 @pfig{radar, Example of Radar()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Step sample, Tens sample, Radar sample, 1D samples
 @subsection Step sample
 
-@code{Step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
+Function @ref{step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1455,11 +1541,11 @@ int sample(mglGraph *gr)
 @pfig{step, Example of Step()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tens sample, Area sample, Step sample, 1D samples
 @subsection Tens sample
 
-@code{Tens} is variant of @code{Plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
+Function @ref{tens} is variant of @ref{plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1481,11 +1567,11 @@ int sample(mglGraph *gr)
 @pfig{tens, Example of Tens()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Area sample, Region sample, Tens sample, 1D samples
 @subsection Area sample
 
-@code{Area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
+Function @ref{area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1511,11 +1597,11 @@ int sample(mglGraph *gr)
 @pfig{area, Example of Area()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Region sample, Stem sample, Area sample, 1D samples
 @subsection Region sample
 
-@code{Region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
+Function @ref{region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1539,11 +1625,11 @@ int sample(mglGraph *gr)
 @pfig{region, Example of Region()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Stem sample, Bars sample, Region sample, 1D samples
 @subsection Stem sample
 
-@code{Stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
+Function @ref{stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1565,11 +1651,11 @@ int sample(mglGraph *gr)
 @pfig{stem, Example of Stem()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Bars sample, Barh sample, Stem sample, 1D samples
 @subsection Bars sample
 
-@code{Bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
+Function @ref{bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1603,11 +1689,11 @@ int sample(mglGraph *gr)
 @pfig{bars, Example of Bars()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Barh sample, Cones sample, Bars sample, 1D samples
 @subsection Barh sample
 
-@code{Barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
+Function @ref{barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1632,11 +1718,11 @@ int sample(mglGraph *gr)
 @pfig{barh, Example of Barh()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cones sample, Chart sample, Bars sample, 1D samples
 @subsection Cones sample
 
-@code{Cones} is similar to @code{Bars} but draw cones. The sample code is:
+Function @ref{cones} is similar to @code{Bars} but draw cones. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1661,11 +1747,11 @@ int sample(mglGraph *gr)
 @pfig{cones, Example of Cones()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Chart sample, BoxPlot sample, Cones sample, 1D samples
 @subsection Chart sample
 
-@code{Chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
+Function @ref{chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1690,11 +1776,11 @@ int sample(mglGraph *gr)
 @pfig{chart, Example of Chart()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node BoxPlot sample, Candle sample, Chart sample, 1D samples
 @subsection BoxPlot sample
 
-@code{BoxPlot} draw box-and-whisker diagram. The sample code is:
+Function @ref{boxplot} draw box-and-whisker diagram. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1708,11 +1794,11 @@ int sample(mglGraph *gr)
 @pfig{boxplot, Example of BoxPlot()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Candle sample, Error sample, BoxPlot sample, 1D samples
 @subsection Candle sample
 
-@code{Candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
+Function @ref{candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1728,11 +1814,11 @@ int sample(mglGraph *gr)
 @pfig{candle, Example of Candle()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Error sample, Mark sample, Candle sample, 1D samples
 @subsection Error sample
 
-@code{Error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
+Function @ref{error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1768,11 +1854,11 @@ int sample(mglGraph *gr)
 @pfig{error, Example of Error()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mark sample, TextMark sample, Error sample, 1D samples
 @subsection Mark sample
 
-@code{Mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
+Function @ref{mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1786,11 +1872,11 @@ int sample(mglGraph *gr)
 @pfig{mark, Example of Mark()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TextMark sample, Label sample, Mark sample, 1D samples
 @subsection TextMark sample
 
-@code{TextMark} like @code{Mark} but draw text instead of markers. The sample code is:
+Function @ref{textmark} like @code{Mark} but draw text instead of markers. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1804,11 +1890,11 @@ int sample(mglGraph *gr)
 @pfig{textmark, Example of TextMark()}
 
 @c ------------------------------------------------------------------
-@external
-@node Label sample, Tube sample, TextMark sample, 1D samples
+@c @external
+@node Label sample, Table sample, TextMark sample, 1D samples
 @subsection Label sample
 
-@code{Label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
+Function @ref{label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1821,13 +1907,37 @@ int sample(mglGraph *gr)
 
 @pfig{label, Example of Label()}
 
+@c ------------------------------------------------------------------
+@c @external
+@node Table sample, Tube sample, Label sample, 1D samples
+@subsection Table sample
+
+Function @ref{table} draw table with data values. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  mglData ys(10,3); ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+  gr->SubPlot(2,2,0);  gr->Title("Table plot");
+  gr->Table(ys,"y_1\ny_2\ny_3");   gr->Box();
+  gr->SubPlot(2,2,1);  gr->Title("no borders, colored");
+  gr->Table(ys,"y_1\ny_2\ny_3","r|");
+  gr->SubPlot(2,2,2);  gr->Title("no font decrease");
+  gr->Table(ys,"y_1\ny_2\ny_3","#");
+  gr->SubPlot(2,2,3);  gr->Title("manual width, position");
+  gr->Table(0.5, 0.95, ys,"y_1\ny_2\ny_3","#", "value 0.7");  gr->Box();
+  return 0;
+}
+@end verbatim
+
+@pfig{table, Example of Table()}
+
 
 @c ------------------------------------------------------------------
-@external
-@node Tube sample, Tape sample, Label sample, 1D samples
+@c @external
+@node Tube sample, Tape sample, Table sample, 1D samples
 @subsection Tube sample
 
-@code{Tube} draw tube with variable radius. The sample code is:
+Function @ref{tube} draw tube with variable radius. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1853,11 +1963,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tape sample, Torus sample, Tube sample, 1D samples
 @subsection Tape sample
 
-@code{Tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
+Function @ref{tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1887,11 +1997,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Torus sample, , Tape sample, 1D samples
 @subsection Torus sample
 
-@code{Torus} draw surface of the curve rotation. The sample code is:
+Function @ref{torus} draw surface of the curve rotation. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1974,11 +2084,11 @@ void mgls_prepare2d(HMDT a, HMDT b=0, HMDT v=0)
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf sample, SurfC sample, , 2D samples
 @subsection Surf sample
 
-@code{Surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
+Function @ref{surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1989,8 +2099,8 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,1); gr->Title("'\\#' style; meshnum 10");
   gr->Rotate(50,60);  gr->Box();  gr->Surf(a,"#","meshnum 10");
 
-  gr->SubPlot(2,2,2); gr->Title("'|' style");
-  gr->Rotate(50,60);  gr->Box();  gr->Surf(a,"|");
+  gr->SubPlot(2,2,2); gr->Title("'.' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf(a,".");
 
   gr->SubPlot(2,2,3); gr->Title("parametric form");
   mglData x(50,40),y(50,40),z(50,40);
@@ -2005,11 +2115,11 @@ int sample(mglGraph *gr)
 @pfig{surf, Example of Surf()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node SurfC sample, SurfA sample, Surf sample, 2D samples
 @subsection SurfC sample
 
-@code{SurfC} is similar to @code{Surf} but its coloring is determined by another data. The sample code is:
+Function @ref{surfc} is similar to @ref{surf} but its coloring is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2023,11 +2133,11 @@ int sample(mglGraph *gr)
 @pfig{surfc, Example of SurfC()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node SurfA sample, Mesh sample, SurfC sample, 2D samples
 @subsection SurfA sample
 
-@code{SurfA} is similar to @code{Surf} but its transparency is determined by another data. The sample code is:
+Function @ref{surfa} is similar to @ref{surf} but its transparency is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2043,11 +2153,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mesh sample, Fall sample, SurfA sample, 2D samples
 @subsection Mesh sample
 
-@code{Mesh} draw wired surface. You can use @code{SetMeshNum} for changing number of lines to be drawn. The sample code is:
+Function @ref{mesh} draw wired surface. You can use @ref{meshnum} for changing number of lines to be drawn. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2061,11 +2171,11 @@ int sample(mglGraph *gr)
 @pfig{mesh, Example of Mesh()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Fall sample, Belt sample, Mesh sample, 2D samples
 @subsection Fall sample
 
-@code{Fall} draw waterfall surface. You can use @code{SetMeshNum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
+Function @ref{fall} draw waterfall surface. You can use @ref{meshnum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2079,11 +2189,11 @@ int sample(mglGraph *gr)
 @pfig{fall, Example of Fall()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Belt sample, Boxs sample, Fall sample, 2D samples
 @subsection Belt sample
 
-@code{Belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
+Function @ref{belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2097,11 +2207,11 @@ int sample(mglGraph *gr)
 @pfig{belt, Example of Belt()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Boxs sample, Tile sample, Fall sample, 2D samples
 @subsection Boxs sample
 
-@code{Boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
+Function @ref{boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2125,11 +2235,11 @@ int sample(mglGraph *gr)
 @pfig{boxs, Example of Boxs()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tile sample, TileS sample, Boxs sample, 2D samples
 @subsection Tile sample
 
-@code{Tile} draw surface by tiles. The sample code is:
+Function @ref{tile} draw surface by tiles. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2143,11 +2253,11 @@ int sample(mglGraph *gr)
 @pfig{tile, Example of Tile()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TileS sample, Dens sample, Tile sample, 2D samples
 @subsection TileS sample
 
-@code{TileS} is similar to @code{Tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
+Function @ref{tiles} is similar to @ref{tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2162,11 +2272,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens sample, Cont sample, TileS sample, 2D samples
 @subsection Dens sample
 
-@code{Dens} draw density plot for surface. The sample code is:
+Function @ref{dens} draw density plot for surface. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2190,11 +2300,11 @@ int sample(mglGraph *gr)
 @pfig{dens, Example of Dens()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont sample, ContF sample, Dens sample, 2D samples
 @subsection Cont sample
 
-@code{Cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
+Function @ref{cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2217,11 +2327,11 @@ int sample(mglGraph *gr)
 @pfig{cont, Example of Cont()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF sample, ContD sample, Cont sample, 2D samples
 @subsection ContF sample
 
-@code{ContF} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
+Function @ref{contf} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2246,11 +2356,11 @@ int sample(mglGraph *gr)
 @pfig{contf, Example of ContF()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContD sample, ContV sample, ContF sample, 2D samples
 @subsection ContD sample
 
-@code{ContD} is similar to @code{ContF} but with manual contour colors. The sample code is:
+Function @ref{contd} is similar to @code{ContF} but with manual contour colors. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2275,11 +2385,11 @@ int sample(mglGraph *gr)
 @pfig{contd, Example of ContD()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContV sample, Axial sample, ContD sample, 2D samples
 @subsection ContV sample
 
-@code{ContV} draw vertical cylinders (belts) at contour lines. The sample code is:
+Function @ref{contv} draw vertical cylinders (belts) at contour lines. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2304,11 +2414,11 @@ int sample(mglGraph *gr)
 @pfig{contv, Example of ContV()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Axial sample, Grad sample, ContV sample, 2D samples
 @subsection Axial sample
 
-@code{Axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
+Function @ref{axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2317,8 +2427,8 @@ int sample(mglGraph *gr)
   gr->Light(true);  gr->Alpha(true);  gr->Rotate(50,60);
   gr->Box();  gr->Axial(a);
 
-  gr->SubPlot(2,2,1); gr->Title("'x' style"); gr->Rotate(50,60);
-  gr->Box();  gr->Axial(a,"x");
+  gr->SubPlot(2,2,1); gr->Title("'x' style;'.' style"); gr->Rotate(50,60);
+  gr->Box();  gr->Axial(a,"x.");
 
   gr->SubPlot(2,2,2); gr->Title("'z' style"); gr->Rotate(50,60);
   gr->Box();  gr->Axial(a,"z");
@@ -2332,11 +2442,11 @@ int sample(mglGraph *gr)
 @pfig{axial, Example of Axial()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Grad sample, , Axial sample, 2D samples
 @subsection Grad sample
 
-@code{Grad} draw gradient lines for matrix. The sample code is:
+Function @ref{grad} draw gradient lines for matrix. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2403,18 +2513,24 @@ void mgls_prepare3d(HMDT a, HMDT b=0)
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3 sample, Surf3C sample, , 3D samples
 @subsection Surf3 sample
 
-@code{Surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
+Function @ref{surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
   mglData c;  mgls_prepare3d(&c);
-  gr->Title("Surf3 plot");  gr->Rotate(50,60);
-  gr->Light(true);  gr->Alpha(true);
-  gr->Box();  gr->Surf3(c);
+  gr->Light(true);    gr->Alpha(true);
+  gr->SubPlot(2,2,0); gr->Title("Surf3 plot (default)");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c);
+
+  gr->SubPlot(2,2,1); gr->Title("'\\#' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c,"#");
+
+  gr->SubPlot(2,2,2); gr->Title("'.' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c,".");
   return 0;
 }
 @end verbatim
@@ -2422,11 +2538,11 @@ int sample(mglGraph *gr)
 @pfig{surf3, Example of Surf3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3C sample, Surf3A sample, Surf3 sample, 3D samples
 @subsection Surf3C sample
 
-@code{Surf3C} is similar to @code{Surf3} but its coloring is determined by another data. The sample code is:
+Function @ref{surf3c} is similar to @ref{surf3} but its coloring is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2441,11 +2557,11 @@ int sample(mglGraph *gr)
 @pfig{surf3c, Example of Surf3C()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3A sample, Cloud sample, Surf3C sample, 3D samples
 @subsection Surf3A sample
 
-@code{Surf3A} is similar to @code{Surf3} but its transparency is determined by another data. The sample code is:
+Function @ref{surf3a} is similar to @ref{surf3} but its transparency is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2460,11 +2576,11 @@ int sample(mglGraph *gr)
 @pfig{surf3a, Example of Surf3A()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cloud sample, Dens3 sample, Surf3A sample, 3D samples
 @subsection Cloud sample
 
-@code{Cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
+Function @ref{cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2488,11 +2604,11 @@ int sample(mglGraph *gr)
 @pfig{cloud, Example of Cloud()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens3 sample, Cont3 sample, Cloud sample, 3D samples
 @subsection Dens3 sample
 
-@code{Dens3} draw just usual density plot but at slices of 3D data. The sample code is:
+Function @ref{dens3} draw just usual density plot but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2508,11 +2624,11 @@ int sample(mglGraph *gr)
 @pfig{densa, Example of Dens3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont3 sample, ContF3 sample, Dens3 sample, 3D samples
 @subsection Cont3 sample
 
-@code{Cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
+Function @ref{cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2528,11 +2644,11 @@ int sample(mglGraph *gr)
 @pfig{conta, Example of Cont3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF3 sample, Dens projection sample, Cont3 sample, 3D samples
 @subsection ContF3 sample
 
-@code{ContF3} draw just usual filled contours but at slices of 3D data. The sample code is:
+Function @ref{contf3} draw just usual filled contours but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2549,11 +2665,11 @@ int sample(mglGraph *gr)
 @pfig{contfa, Example of ContF3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens projection sample, Cont projection sample, ContF3 sample, 3D samples
 @subsection Dens projection sample
 
-@code{Dens[XYZ]} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @ref{DensXYZ} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2568,11 +2684,11 @@ int sample(mglGraph *gr)
 @pfig{dens_xyz, {Example of DensX(), DensY(), DensZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont projection sample, ContF projection sample, Dens projection sample, 3D samples
 @subsection Cont projection sample
 
-@code{Cont[XYZ]} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @ref{ContXYZ} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2587,11 +2703,11 @@ int sample(mglGraph *gr)
 @pfig{cont_xyz, {Example of ContX(), ContY(), ContZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF projection sample, TriPlot and QuadPlot, Cont projection sample, 3D samples
 @subsection ContF projection sample
 
-@code{Dens[XYZ]} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @code{ContFXYZ} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2606,11 +2722,11 @@ int sample(mglGraph *gr)
 @pfig{contf_xyz, {Example of ContFX(), ContFY(), ContFZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TriPlot and QuadPlot, Axial sample, ContF projection sample, 3D samples
 @subsection TriPlot and QuadPlot
 
-@code{TriPlot} and @code{QuadPlot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
+Function @ref{triplot} and @ref{quadplot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2635,11 +2751,11 @@ int sample(mglGraph *gr)
 @pfig{triplot, Example of TriPlot() and QuadPlot()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dots sample, , TriPlot and QuadPlot, 3D samples
 @subsection Dots sample
 
-@code{Dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+Function @ref{dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2702,7 +2818,7 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 @end verbatim
 or using C functions
 @verbatim
-void mgls_prepare2v(mglData *a, mglData *b)
+void mgls_prepare2v(HMDT a, HMDT b)
 {
   register long i,j,n=20,m=30,i0;
   if(a) mgl_data_create(a,n,m,1);
@@ -2715,7 +2831,7 @@ void mgls_prepare2v(mglData *a, mglData *b)
     if(b) mgl_data_set_value(b, 0.6*cos(2*M_PI*x)*cos(3*M_PI*y)+0.4*cos(3*M_PI*x*y), i,j,0);
   }
 }
-void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
+void mgls_prepare3v(HMDT ex, HMDT ey, HMDT ez)
 {
   register long i,j,k,n=10,i0;
   if(!ex || !ey || !ez) return;
@@ -2737,6 +2853,7 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 
 @menu
 * Vect sample::
+* Vect3 sample::
 * Traj sample::
 * Flow sample::
 * Pipe sample::
@@ -2745,11 +2862,11 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 
 
 @c ------------------------------------------------------------------
-@external
-@node Vect sample, Traj sample, , Vector field samples
+@c @external
+@node Vect sample, Vect3 sample, , Vector field samples
 @subsection Vect sample
 
-@code{Vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+Function @ref{vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2779,11 +2896,35 @@ int sample(mglGraph *gr)
 @pfig{vect, Example of Vect()}
 
 @c ------------------------------------------------------------------
-@external
-@node Traj sample, Flow sample, Vect sample, Vector field samples
+@c @external
+@node Vect3 sample, Traj sample, Vect sample, Vector field samples
+@subsection Vect3 sample
+
+Function @ref{vect3} draw just usual vector field plot but at slices of 3D data. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  mglData ex,ey,ez; mgls_prepare3v(&ex,&ey,&ez);
+  gr->SubPlot(2,1,0); gr->Title("Vect3 sample");    gr->SetOrigin(0,0,0);
+  gr->Rotate(50,60);    gr->Axis("_xyz");   gr->Box();
+  gr->Vect3(ex,ey,ez,"x");  gr->Vect3(ex,ey,ez);    gr->Vect3(ex,ey,ez,"z");
+
+  gr->SubPlot(2,1,1);   gr->Title("'f' style");
+  gr->Rotate(50,60);    gr->Axis("_xyz");   gr->Box();
+  gr->Vect3(ex,ey,ez,"fx"); gr->Vect3(ex,ey,ez,"f");gr->Vect3(ex,ey,ez,"fz");
+  gr->Grid3(ex,"Wx");   gr->Grid3(ex,"W");  gr->Grid3(ex,"Wz");
+  return 0;
+}
+@end verbatim
+
+@pfig{vecta, Example of Vect3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Traj sample, Flow sample, Vect3 sample, Vector field samples
 @subsection Traj sample
 
-@code{Traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
+Function @ref{traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2798,11 +2939,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Flow sample, Pipe sample, Traj sample, Vector field samples
 @subsection Flow sample
 
-@code{Flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+Function @ref{flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2826,11 +2967,11 @@ int sample(mglGraph *gr)
 @pfig{flow, Example of Flow()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Pipe sample, Dew sample, Flow sample, Vector field samples
 @subsection Pipe sample
 
-@code{Pipe} is similar to @code{Flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+Function @ref{pipe} is similar to @ref{flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2854,11 +2995,11 @@ int sample(mglGraph *gr)
 @pfig{pipe, Example of Pipe()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dew sample, , Pipe sample, Vector field samples
 @subsection Dew sample
 
-@code{Dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
+Function @ref{dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2883,6 +3024,7 @@ In this section I've included some small hints and advices for the improving of
 * ``Compound'' graphics::
 * Transparency and lighting::
 * Types of transparency::
+* Axis projection::
 * Adding fog::
 * Several light sources::
 * Using primitives::
@@ -2892,12 +3034,14 @@ In this section I've included some small hints and advices for the improving of
 * Nonlinear fitting sample::
 * PDE solving hints::
 * MGL parser using::
+* Using options::
 * ``Templates''::
 * Stereo image::
+* Reduce memory usage::
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ``Compound'' graphics, Transparency and lighting, , Hints
 @subsection ``Compound'' graphics
 
@@ -2957,7 +3101,7 @@ int sample(mglGraph *gr)
 @pfig{combined, Example of ``combined'' plots}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Transparency and lighting, Types of transparency, ``Compound'' graphics, Hints
 @subsection Transparency and lighting
 
@@ -2972,10 +3116,10 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,1); gr->Title("light on");  gr->Rotate(50,60);
   gr->Box();  gr->Light(true);  gr->Surf(a);
 
-  gr->SubPlot(2,2,2); gr->Title("alpha on; light on");  gr->Rotate(50,60);
+  gr->SubPlot(2,2,3); gr->Title("alpha on; light on");  gr->Rotate(50,60);
   gr->Box();  gr->Alpha(true);  gr->Surf(a);
 
-  gr->SubPlot(2,2,3); gr->Title("alpha on");  gr->Rotate(50,60);
+  gr->SubPlot(2,2,2); gr->Title("alpha on");  gr->Rotate(50,60);
   gr->Box();  gr->Light(false); gr->Surf(a);
   return 0;
 }
@@ -2984,11 +3128,11 @@ int sample(mglGraph *gr)
 @pfig{alpha, Example of transparency and lightings}
 
 @c ------------------------------------------------------------------
-@external
-@node Types of transparency, Adding fog, Transparency and lighting, Hints
+@c @external
+@node Types of transparency, Axis projection, Transparency and lighting, Hints
 @subsection Types of transparency
 
-MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @code{Alpha()}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @ref{alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
 
 The value of transparency can be different from surface to surface. To do it just use @code{SetAlphaDef} before the drawing of the surface, or use option @code{alpha} (see @ref{Command options}). If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent.
 
@@ -3017,11 +3161,41 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
-@node Adding fog, Several light sources, Types of transparency, Hints
+@c @external
+@node Axis projection, Adding fog, Ternary axis, Hints
+@subsection Axis projection
+
+You can easily make 3D plot and draw its x-,y-,z-projections (like in CAD) by using @ref{ternary} function with arguments: 4 for Cartesian, 5 for Ternary and 6 for Quaternary coordinates. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetRanges(0,1,0,1,0,1);
+  mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);
+  a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");
+  x.Modify("0.25*(1+cos(2*pi*x))");
+  y.Modify("0.25*(1+sin(2*pi*x))");
+  rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);
+  z.Modify("x");
+
+  gr->Title("Projection sample");
+  gr->Ternary(4);
+  gr->Rotate(50,60);      gr->Light(true);
+  gr->Plot(x,y,z,"r2");   gr->Surf(a,"#");
+  gr->Axis(); gr->Grid(); gr->Box();
+  gr->Label('x',"X",1);   gr->Label('y',"Y",1);   gr->Label('z',"Z",1);
+}
+@end verbatim
+
+@pfig{projection, Example of axis projections}
+@pfig{projection5, Example of ternary axis projections}
+@c @pfig{projection6, Example of quaternary axis projections}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Adding fog, Several light sources, Axis projection, Hints
 @subsection Adding fog
 
-MathGL can add a fog to the image. Its switching on is rather simple -- just use @code{Fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
+MathGL can add a fog to the image. Its switching on is rather simple -- just use @ref{fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3036,7 +3210,7 @@ int sample(mglGraph *gr)
 @pfig{fog, Example of @code{Fog()}.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Several light sources, Using primitives, Adding fog, Hints
 @subsection Several light sources
 
@@ -3058,7 +3232,7 @@ int sample(mglGraph *gr)
 @pfig{several_light, Example of several light sources.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using primitives, STFA sample, Several light sources, Hints
 @subsection Using primitives
 
@@ -3066,7 +3240,7 @@ MathGL provide a set of functions for drawing primitives (see @ref{Primitives}).
 
 @pfig{primitives, Primitives in MathGL.}
 
-Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @code{Drop}. The sample code is:
+Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @ref{drop}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3143,7 +3317,7 @@ int sample(mglGraph *gr)
   return 0;
 }
 @end verbatim
-You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @code{Circle} function:
+You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @ref{circle} function:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3159,11 +3333,11 @@ Of course, the first variant is more suitable if you need to plot a lot of circl
 @pfig{venn, Example of Venn diagram.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node STFA sample, Mapping visualization, Using primitives, Hints
 @subsection STFA sample
 
-Short-time Fourier Analysis (STFA) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
+Short-time Fourier Analysis (@ref{stfa}) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
 
 MathGL can find and draw STFA result. Just to show this feature I give following sample. Initial data arrays is 1D arrays with step-like frequency. Exactly this you can see at bottom on the STFA plot. The sample code is:
 @verbatim
@@ -3189,13 +3363,13 @@ int sample(mglGraph *gr)
 @pfig{stfa, Example of STFA().}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mapping visualization, Making histogram, STFA sample, Hints
 @subsection Mapping visualization
 
-Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @code{SurfC}, @code{SurfA}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @ref{surfc}, @ref{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
 
-I tried to make such plot in @code{Map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+I tried to make such plot in @ref{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
 
 The sample code for mapping visualization is:
 @verbatim
@@ -3222,11 +3396,11 @@ int sample(mglGraph *gr)
 @pfig{map, Example of Map().}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Making histogram, Nonlinear fitting sample, Mapping visualization, Hints
 @subsection Making histogram
 
-Using the @code{Hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @code{Hist} usage:
+Using the @ref{hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @ref{hist} usage:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3250,7 +3424,7 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Nonlinear fitting sample, PDE solving hints, Making histogram, Hints
 @subsection Nonlinear fitting hints
 
@@ -3308,7 +3482,7 @@ int sample(mglGraph *gr)
 @pfig{fit, Example of nonlinear fitting.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node PDE solving hints, MGL parser using, Nonlinear fitting sample, Hints
 @subsection PDE solving hints
 
@@ -3376,8 +3550,8 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
-@node MGL parser using, ``Templates'', PDE solving hints, Hints
+@c @external
+@node MGL parser using, Using options, PDE solving hints, Hints
 @subsection MGL parser using
 
 Sometimes you may prefer to use MGL scripts in yours code. It is simpler (especially in comparison with C/Fortran interfaces) and provide faster way to plot the data with annotations, labels and so on. Class @code{mglParse} (@pxref{mglParse class} parse MGL scripts in C++. It have also the corresponding interface for C/Fortran.
@@ -3401,7 +3575,9 @@ int sample(mglGraph *gr)
   // and continue after that
   parser->Execute(gr, "xlabel 'x'\nylabel 'y'\nbox");
   // also you may use cycles or conditions in script
-  parser->Execute(gr, "for $0 -1 1 0.1\nline 0 0 -1 $0 'r'\nnext");
+  parser->Execute(gr, "for $0 -1 1 0.1\nif $0<0\n"
+    "line 0 0 -1 $0 'r':else:line 0 0 -1 $0 'g'\n"
+    "endif\nnext");
   delete parser;
   return 0;
 }
@@ -3410,19 +3586,21 @@ The code in C/Fortran looks practically the same:
 @verbatim
 int sample(HMGL gr)
 {
-  mgl_title(gr, "MGL parser sample")
-  mreal a[100];   // let a_i = sin(4*pi*x), x=0...1
+  mgl_title(gr, "MGL parser sample", "", -2);
+  double a[100];   // let a_i = sin(4*pi*x), x=0...1
   int i;
   for(i=0;i<100;i++)  a[i]=sin(4*M_PI*i/99);
   HMPR parser = mgl_create_parser();
-  HMDT d = mgl_add_var(parser, "dat");
-  mgl_data_set_mreal(d,a,100,1,1);    // set data to variable
+  HMDT d = mgl_parser_add_var(parser, "dat");
+  mgl_data_set_double(d,a,100,1,1);    // set data to variable
   mgl_parse_text(gr, parser, "plot dat; xrange 0 1\nbox\naxis");
   // you may break script at any line do something
   // and continue after that
   mgl_parse_text(gr, parser, "xlabel 'x'\nylabel 'y'");
   // also you may use cycles or conditions in script
-  mgl_parse_text(gr, parser, "for $0 -1 1 0.1\nline 0 0 -1 $0 'r'\nnext");
+  mgl_parse_text(gr, parser, "for $0 -1 1 0.1\nif $0<0\n"
+    "line 0 0 -1 $0 'r':else:line 0 0 -1 $0 'g'\n"
+    "endif\nnext");
   mgl_write_png(gr, "test.png", "");  // don't forgot to save picture
   return 0;
 }
@@ -3431,8 +3609,41 @@ int sample(HMGL gr)
 @pfig{parser, Example of MGL script parsing.}
 
 @c ------------------------------------------------------------------
-@external
-@node ``Templates'', Nonlinear fitting sample, MGL parser using, Hints
+@c @external
+@node Using options, ``Templates'', MGL parser using, Hints
+@subsection Using options
+
+@ref{Command options} allow the easy setup of the selected plot by changing global settings only for this plot. Often, options are used for specifying the range of automatic variables (coordinates). However, options allows easily change plot transparency, numbers of line or faces to be drawn, or add legend entries. The sample function for options usage is:
+@verbatim
+void template(mglGraph *gr)
+{
+  mglData a(31,41);
+  gr->Fill(a,"-pi*x*exp(-(y+1)^2-4*x^2)");
+
+  gr->SubPlot(2,2,0);  gr->Title("Options for coordinates");
+  gr->Alpha(true);     gr->Light(true);
+  gr->Rotate(40,60);    gr->Box();
+  gr->Surf(a,"r","yrange 0 1"); gr->Surf(a,"b","yrange 0 -1");
+  if(mini)     return;
+  gr->SubPlot(2,2,1);   gr->Title("Option 'meshnum'");
+  gr->Rotate(40,60);    gr->Box();
+  gr->Mesh(a,"r","yrange 0 1"); gr->Mesh(a,"b","yrange 0 -1; meshnum 5");
+  gr->SubPlot(2,2,2);   gr->Title("Option 'alpha'");
+  gr->Rotate(40,60);    gr->Box();
+  gr->Surf(a,"r","yrange 0 1; alpha 0.7");
+  gr->Surf(a,"b","yrange 0 -1; alpha 0.3");
+  gr->SubPlot(2,2,3,"<_");  gr->Title("Option 'legend'");
+  gr->FPlot("x^3","r","legend 'y = x^3'");
+  gr->FPlot("cos(pi*x)","b","legend 'y = cos \\pi x'");
+  gr->Box();    gr->Axis(); gr->Legend(2,"");
+}
+@end verbatim
+
+@pfig{mirror, Example of options usage.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Templates'', Nonlinear fitting sample, Using options, Hints
 @subsection ``Templates''
 
 As I have noted before, the change of settings will influence only for the further plotting commands. This allows one to create ``template'' function which will contain settings and primitive drawing for often used plots. Correspondingly one may call this template-function for drawing simplification.
@@ -3463,8 +3674,8 @@ A template-function can also contain settings for font, transparency, lightning,
 I understand that this is obvious thing for any professional programmer, but I several times receive suggestion about ``templates'' ... So, I decide to point out it here.
 
 @c ------------------------------------------------------------------
-@external
-@node Stereo image, , ``Templates'', Hints
+@c @external
+@node Stereo image, Reduce memory usage, ``Templates'', Hints
 @subsection Stereo image
 
 One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this:
@@ -3485,16 +3696,35 @@ int sample(mglGraph *gr)
 
 @pfig{stereo, Example of stereo image.}
 
+@c ------------------------------------------------------------------
+@c @external
+@node Reduce memory usage, , Stereo image, Hints
+@subsection Reduce memory usage
+
+By default MathGL save all primitives in memory, rearrange it and only later draw them on bitmaps. Usually, this speed up drawing, but may require a lot of memory for plots which contain a lot of faces (like @ref{cloud}, @ref{dew}). You can use @ref{quality} function for setting to use direct drawing on bitmap and bypassing keeping any primitives in memory. This function also allow you to decrease the quality of the resulting image but increase the speed of the drawing.
+
+The code for lowest memory usage looks like this:
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetQuality(6);   // firstly, set to draw directly on bitmap
+  for(i=0;i<1000;i++)
+    gr->Sphere(mglPoint(mgl_rnd()*2-1,mgl_rnd()*2-1),0.05);
+  return 0;
+}
+@end verbatim
+
+@c ==================================================================
 @external
 @node FAQ, , Hints, Examples
 @section FAQ
 
 @table @strong
 @item The plot does not appear
-Check that points of the plot are located inside the bounding box and resize the bounding box using @code{SetRange()}/@code{SetRanges()} function. Check that the data have correct dimensions for selected type of plot. Be sure that  @code{Finish()} is called after the plotting functions (or be sure that the plot is saved to a file). Sometimes the light reflection from flat surfaces (like, @code{Dens()}) can look as if the plot were absent.
+Check that points of the plot are located inside the bounding box and resize the bounding box using @ref{ranges} function. Check that the data have correct dimensions for selected type of plot. Be sure that  @code{Finish()} is called after the plotting functions (or be sure that the plot is saved to a file). Sometimes the light reflection from flat surfaces (like, @ref{dens}) can look as if the plot were absent.
 
 @item I can not find some special kind of plot.
-Most ``new'' types of plots can be created by using the existing drawing functions. For example, the surface of curve rotation can be created by a special function @code{Torus()}, or as a parametrically specified surface by @code{Surf()}. See also, @ref{Hints}. If you can not find a specific type of plot, please e-mail me and this plot will appear in the next version of MathGL library.
+Most ``new'' types of plots can be created by using the existing drawing functions. For example, the surface of curve rotation can be created by a special function @ref{torus}, or as a parametrically specified surface by @ref{surf}. See also, @ref{Hints}. If you can not find a specific type of plot, please e-mail me and this plot will appear in the next version of MathGL library.
 
 @item Should I know some graphical libraries (like OpenGL) before using the MathGL library?
 No. The MathGL library is self-contained and does not require the knowledge of external libraries.
@@ -3509,15 +3739,19 @@ You can use MathGL as is with @code{gfortran} because it uses by default the AT&
 
 @emph{AT&T function} -- @code{void mgl_fplot_(uintptr_t *graph, const char *fy, const char *stl, int *n, int ly, int ls);}
 
+Fortran users also should add C++ library by the option @code{-lstdc++}. If library was built with @code{enable-double=ON} (this default for v.2.1 and later) then all real numbers must be @code{real*8}. You can make it automatic if use option @code{-fdefault-real-8}.
+
 @item How can I print in Russian/Spanish/Arabic/Japanese, and so on?
 The standard way is to use Unicode encoding for the text output. But the MathGL library also has interface for 8-bit (char *) strings with internal conversion to Unicode. This conversion depends on the current locale OS. You may change it by @code{setlocale()} function. For example, for Russian text in CP1251 encoding you may use @code{setlocale(LC_CTYPE, "ru_RU.cp1251");} (under MS Windows the name of locale may differ -- @code{setlocale(LC_CTYPE, "russian_russia.1251")}). I strongly recommend not to use the constant @code{LC_ALL} in the conversion. Since it also changes the number format, it may lead to mistakes in formula writing and reading of the text in data files. For example, the program will await a @samp{,} as a decimal point but the user will enter @samp{.}.
 
 @item How can I exclude a point or a region of plot from the drawing?
-There are 3 general ways. First, the point with @code{NAN} value as one of the coordinates (including color/alpha range) will never be plotted. Second, special functions @code{SetCutBox}() and @code{CutOff}() define the condition when the points should be omitted (see @ref{Cutting}). Last, you may change the transparency of a part of the plot by the help of functions @code{SurfA()}, @code{Surf3A()} (see @ref{Dual plotting}). In last case the transparency is switched on smoothly.
+There are 3 general ways. First, the point with @code{NAN} value as one of the coordinates (including color/alpha range) will never be plotted. Second, special functions @code{SetCutBox}() and @code{CutOff}() define the condition when the points should be omitted (see @ref{Cutting}). Last, you may change the transparency of a part of the plot by the help of functions @ref{surfa}, @ref{surf3a} (see @ref{Dual plotting}). In last case the transparency is switched on smoothly.
 
 @item I use VisualStudio, CBuilder or some other compiler (not MinGW/gcc). How can I link the MathGL library?
 In version 2.0, main classes (@code{mglGraph} and @code{mglData}) contains only @code{inline} functions and are acceptable for any compiler with the same binary files. However, if you plan to use widget classes (QMathGL, Fl_MathGL, ...) or to access low-level features (mglBase, mglCanvas, ...) then you have to recompile MathGL by yours compiler.
 
+Note, that you have to make import library(-ies) *.lib for provided binary *.dll. This procedure depend on used compiler -- please read documentation for yours compiler. For VisualStudio, it can be done by command @code{lib.exe /DEF:libmgl.def /OUT:libmgl.lib}.
+
 @item How I can build MathGL under Windows?
 Generally, it is the same procedure as for Linux or MacOS -- see section @ref{Installation}. The simplest way is using the combination CMake+MinGW. Also you may need some extra libraries like GSL, PNG, JPEG and so on. All of them can be found at @url{http://gnuwin32.sourceforge.net/packages.html}. After installing all components, just run @uref{http://www.cmake.org/cmake/help/runningcmake.html, cmake-gui} configurator and build the MathGL itself.
 
@@ -3525,22 +3759,31 @@ Generally, it is the same procedure as for Linux or MacOS -- see section @ref{In
 Most of the library was written by one person. This is a result of nearly a year of work (mostly in the evening and on holidays): I spent half a year to write the kernel and half a year to a year on extending, improving the library and writing documentation. This process continues now :). The build system (cmake files) was written mostly by D.Kulagin, and the export to PRC/IDTF was written mostly by M.Vidassov.
 
 @item How can I display a bitmap on the figure?
-You can import data into a @code{mglData} instance and display it by @code{Dens()} function. For example, for black-and-white bitmap you can use the code: @code{mglData bmp; bmp.Import("fname.png","wk"); gr->Dens(bmp,"wk");}.
+You can import data into a @code{mglData} instance by function @ref{import} and display it by @ref{dens} function. For example, for black-and-white bitmap you can use the code: @code{mglData bmp; bmp.Import("fname.png","wk"); gr->Dens(bmp,"wk");}.
 
 @item How can I use MathGL in Qt, FLTK, wxWidgets etc.?
 There are special classes (widgets) for these libraries: QMathGL for Qt, Fl_MathGL for FLTK and so on. If you don't find the appropriate class then you can create your own widget that displays a bitmap using mglCanvas::GetRGB().
 
-@item How can I create U3D file (make 3D in PDF)?
-There are 2 steps: first you should create IDTF file, and later convert it to U3D. You can use @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=300628, U3D tools} for converting IDTF file to U3D. It needs @uref{http://libharu.org, libharu} 2.1.0 or later. For installation use @code{./bootstrap, ./configure, make, sudo make install}. It provides  IDTFConverter program for converting text files *.idtf to binary files *.u3d. The latter can be included into PDF.
+@item How can I create 3D in PDF?
+Just use @code{WritePRC}() method which also create PDF file if enable-pdf=ON at MathGL configure.
+
+@item How can I create TeX figure?
+Just use @code{WriteTEX}() method which create LaTeX files with figure itself @samp{@var{fname}.tex}, with MathGL colors @samp{mglcolors.tex} and main file @samp{mglmain.tex}. Last one can be used for viewing image by command like @code{pdflatex mglmain.tex}.
+
+@item Can I use MathGL in JavaScript?
+Yes, sample JavaScript file is located in texinfo/ folder of sources. You should provide JSON data with 3d image for it (can be created by @code{WriteJSON}() method). Script allows basic manipulation with plot: zoom, rotation, shift. Sample of JavaScript pictures can be found in @url{http://mathgl.sf.net/json.html}.
+
+
+
 
 @item How I can change the font family?
 First, you should download new font files from @uref{http://mathgl.sourceforge.net/download.html, here} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. Next, you should load the font files into mglGraph class instance @var{gr} by the following command: @code{gr->LoadFont(fontname,path);}. Here @var{fontname} is the base font name like @samp{STIX} and @var{path} sets the location of font files. Use @code{gr->RestoreFont();} to start using the default font.
 
 @item How can I draw tick out of a bounding box?
-Just set a negative value in @var{SetTickLen}. For example, use @code{gr->SetTickLen(-0.1);}.
+Just set a negative value in @ref{ticklen}. For example, use @code{gr->SetTickLen(-0.1);}.
 
 @item How can I prevent text rotation?
-Just use @code{SetRotatedText(false)}.
+Just use @code{SetRotatedText(false)}. Also you can use axis style @samp{U} for disable only tick labels rotation.
 
 @item What is @code{*.so}? What is @code{gcc}? How I can use @code{make}?
 They are standard GNU tools. There is special FAQ about its usage under Windows -- @uref{http://www.mingw.org/wiki/FAQ}.

diff --git a/texinfo/example_ru.texi b/texinfo/example_ru.texi
index e6fbb1a12097692b783d6dd8d39fc2e1eba6991e..b7d29011e494a6ee0f1e93d5a7335a28be9212f6 100644 (file)
--- a/texinfo/example_ru.texi
+++ b/texinfo/example_ru.texi
@@ -106,7 +106,7 @@ Let me consider the aforesaid in more detail.
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using MathGL window, Drawing to file, , Basic usage
 @subsection Using MathGL window
 @cindex window
@@ -167,7 +167,7 @@ int sample(HMGL gr, void *)
 int main(int argc,char **argv)
 {
   HMGL gr;
-  gr = mgl_create_graph_qt(sample,"MathGL examples",0);
+  gr = mgl_create_graph_qt(sample,"MathGL examples",0,0);
   return mgl_qt_run();
 /* generally I should call mgl_delete_graph() here,
  * but I omit it in main() function. */
@@ -189,7 +189,7 @@ The rotation, shift, zooming, switching on/off transparency and lighting can be
 In this example function @code{sample} rotates axes (@code{Rotate()}, @pxref{Subplots and rotation}) and draws the bounding box (@code{Box()}). Drawing is placed in separate function since it will be used on demand when window canvas needs to be redrawn.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Drawing to file, Animation, Using MathGL window, Basic usage
 @subsection Drawing to file
 
@@ -230,7 +230,7 @@ int main(int ,char **)
 The difference from the previous one is using other function @code{WriteEPS()} for EPS format instead of function @code{WritePNG()}. Also, there is no switching on of the plot transparency @code{Alpha} since EPS format does not support it.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Animation, Drawing in memory, Drawing to file, Basic usage
 @subsection Animation
 
@@ -363,7 +363,7 @@ Created files can be converted to movie by help of a lot of programs. For exampl
 Finally, you can use @code{mglconv} tool for doing the same with MGL scripts (@pxref{Utilities}).
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Drawing in memory, Using QMathGL, Animation, Basic usage
 @subsection Drawing in memory
 
@@ -421,7 +421,7 @@ void MyWidget::paintEvent(QPaintEvent *)
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using QMathGL, MathGL and PyQt, Drawing in memory, Basic usage
 @subsection Using QMathGL
 
@@ -459,7 +459,7 @@ int main(int argc,char **argv)
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node MathGL and PyQt, , Using QMathGL, Basic usage
 @subsection MathGL and PyQt
 
@@ -551,11 +551,11 @@ Now I show several non-obvious features of MathGL: several subplots in a single
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Subplots, Axis and ticks, , Advanced usage
 @subsection Subplots
 
-Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @code{SubPlot}, @code{InPlot}, @code{Title}, @code{Aspect} and @code{Rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @code{SubPlot}, @code{InPlot} and @code{MultiPlot}). Secondly, you can add the title of plot by @code{Title} function. After that one may rotate the plot (function @code{Rotate}). Finally, one may change aspects of axes (function @code{Aspect}). The following code illustrates the aforesaid it:
+Let me demonstrate possibilities of plot positioning and rotation. MathGL has a set of functions: @ref{subplot}, @ref{inplot}, @ref{title}, @ref{aspect} and @ref{rotate} and so on (see @ref{Subplots and rotation}). The order of their calling is strictly determined. First, one changes the position of plot in image area (functions @ref{subplot}, @ref{inplot} and @ref{multiplot}). Secondly, you can add the title of plot by @ref{title} function. After that one may rotate the plot (function @ref{rotate}). Finally, one may change aspects of axes (function @ref{aspect}). The following code illustrates the aforesaid it:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -604,13 +604,13 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Axis and ticks, Curvilinear coordinates, Subplots, Advanced usage
 @subsection Axis and ticks
 
 MathGL library can draw not only the bounding box but also the axes, grids, labels and so on. The ranges of axes and their origin (the point of intersection) are determined by functions @code{SetRange()}, @code{SetRanges()}, @code{SetOrigin()} (see @ref{Ranges (bounding box)}). Ticks on axis are specified by function @code{SetTicks}, @code{SetTicksVal}, @code{SetTicksTime} (see @ref{Ticks}). But usually
 
-Function @code{Axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Function @code{Grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
+Function @ref{axis} draws axes. Its textual string shows in which directions the axis or axes will be drawn (by default @code{"xyz"}, function draws axes in all directions). Function @ref{grid} draws grid perpendicularly to specified directions. Example of axes and grid drawing is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -646,6 +646,15 @@ int sample(mglGraph *gr)
 
 Note, that MathGL can draw not only single axis (which is default). But also several axis on the plot (see right plots). The idea is that the change of settings does not influence on the already drawn graphics. So, for 2-axes I setup the first axis and draw everything concerning it. Then I setup the second axis and draw things for the second axis. Generally, the similar idea allows one to draw rather complicated plot of 4 axis with different ranges (see bottom left plot).
 
+At this inverted axis can be created by 2 methods. First one is used in this sample -- just specify minimal axis value to be large than maximal one. This method work well for 2D axis, but can wrongly place labels in 3D case. Second method is more general and work in 3D case too -- just use @ref{aspect} function with negative arguments. For example, following code will produce exactly the same result for 2D case, but 2nd variant will look better in 3D.
+@verbatim
+// variant 1
+gr->SetRanges(0,10,4,0);  gr->Axis();
+
+// variant 2
+gr->SetRanges(0,10,0,4);  gr->Aspect(1,-1);   gr->Axis();
+@end verbatim
+
 @pfig{axis, Example of axis.}
 
 Another MathGL feature is fine ticks tunning. By default (if it is not changed by @code{SetTicks} function), MathGL try to adjust ticks positioning, so that they looks most human readable. At this, MathGL try to extract common factor for too large or too small axis ranges, as well as for too narrow ranges. Last one is non-common notation and can be disabled by @code{SetTuneTicks} function.
@@ -677,7 +686,7 @@ int sample(mglGraph *gr)
 
 @pfig{ticks, Features of axis ticks.}
 
-The last sample I want to show in this subsection is Log-axis. From MathGL's point of vew, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
+The last sample I want to show in this subsection is Log-axis. From MathGL's point of view, the log-axis is particular case of general curvilinear coordinates. So, we need first define new coordinates (see also @ref{Curvilinear coordinates}) by help of @code{SetFunc} or @code{SetCoor} functions. At this one should wary about proper axis range. So the code looks as following:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -709,7 +718,7 @@ int sample(mglGraph *gr)
 You can see that MathGL automatically switch to log-ticks as we define log-axis formula (in difference from v.1.*). Moreover, it switch to log-ticks for any formula if axis range will be large enough (see right bottom plot). Another interesting feature is that you not necessary define usual log-axis (i.e. when coordinates are positive), but you can define ``minus-log'' axis when coordinate is negative (see left bottom plot).
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Curvilinear coordinates, Colorbars, Axis and ticks, Advanced usage
 @subsection Curvilinear coordinates
 
@@ -746,11 +755,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Colorbars, Bounding box, Curvilinear coordinates, Advanced usage
 @subsection Colorbars
 
-MathGL handle colorbar as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
+MathGL handle @ref{colorbar} as special kind of axis. So, most of functions for axis and ticks setup will work for colorbar too. Colorbars can be in log-scale, and generally as arbitrary function scale; common factor of colorbar labels can be separated; and so on.
 
 But of course, there are differences -- colorbars usually located out of bounding box. At this, colorbars can be at subplot boundaries (by default), or at bounding box (if symbol @samp{I} is specified). Colorbars can handle sharp colors. And they can be located at arbitrary position too. The sample code, which demonstrate colorbar features is:
 @verbatim
@@ -770,11 +779,16 @@ int sample(mglGraph *gr)
   gr->Colorbar(v,"<");  gr->Colorbar(v,">");
   gr->Colorbar(v,"_");  gr->Colorbar(v,"^");
 
-  gr->SubPlot(2,2,3); gr->Title("log-scale");
+  gr->SubPlot(2,2,3);   gr->Title(" ");
+  gr->Puts(mglPoint(-0.5,1.55),"Color positions",":C",-2);
+  gr->Colorbar("bwr>",0.25,0);  gr->Puts(mglPoint(-0.9,1.2),"Default");
+  gr->Colorbar("b{w,0.3}r>",0.5,0); gr->Puts(mglPoint(-0.1,1.2),"Manual");
+
+  gr->Puts(mglPoint(1,1.55),"log-scale",":C",-2);
   gr->SetRange('c',0.01,1e3);
-  gr->Colorbar(">",0.5,0);  gr->Puts(mglPoint(0,1.2),"Normal scale");
+  gr->Colorbar(">",0.75,0);  gr->Puts(mglPoint(0.65,1.2),"Normal scale");
   gr->SetFunc("","","","lg(c)");
-  gr->Colorbar(">");    gr->Puts(mglPoint(1.3,1.2),"Log scale");
+  gr->Colorbar(">");    gr->Puts(mglPoint(1.35,1.2),"Log scale");
   return 0;
 }
 @end verbatim
@@ -783,11 +797,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Bounding box, Ternary axis, Colorbars, Advanced usage
 @subsection Bounding box
 
-Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @code{Box()} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @code{Box()} features is:
+Box around the plot is rather useful thing because it allows one to: see the plot boundaries, and better estimate points position since box contain another set of ticks. MathGL provide special function for drawing such box -- @ref{box} function. By default, it draw black or white box with ticks (color depend on transparency type, see @ref{Types of transparency}). However, you can change the color of box, or add drawing of rectangles at rear faces of box. Also you can disable ticks drawing, but I don't know why anybody will want it. The sample code, which demonstrate @ref{box} features is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -807,13 +821,13 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Ternary axis, Text features, Bounding box, Advanced usage
 @subsection Ternary axis
 
 There are another unusual axis types which are supported by MathGL. These are ternary and quaternary axis. Ternary axis is special axis of 3 coordinates @var{a}, @var{b}, @var{c} which satisfy relation @var{a}+@var{b}+@var{c}=1. Correspondingly, quaternary axis is special axis of 4 coordinates @var{a}, @var{b}, @var{c}, @var{d} which satisfy relation @var{a}+@var{b}+@var{c}+@var{d}=1.
 
-Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @code{Ternary} function for switching to ternary/quaternary coordinates. The sample code is:
+Generally speaking, only 2 of coordinates (3 for quaternary) are independent. So, MathGL just introduce some special transformation formulas which treat @var{a} as @samp{x}, @var{b} as @samp{y} (and @var{c} as @samp{z} for quaternary). As result, all plotting functions (curves, surfaces, contours and so on) work as usual, but in new axis. You should use @ref{ternary} function for switching to ternary/quaternary coordinates. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -860,7 +874,7 @@ int sample(mglGraph *gr)
 @pfig{ternary, Example of colorbars}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Text features, Legend sample, Ternary axis, Advanced usage
 @subsection Text features
 
@@ -906,16 +920,37 @@ int sample(mglGraph *gr)
 
 @pfig{text, Example of text printing}
 
+You can change font faces by loading font files by function @ref{loadfont}. Note, that this is long-run procedure. Font faces can be downloaded from @uref{http://mathgl.sourceforge.net/download.html, MathGL website} or from @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, here}. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  double h=1.1, d=0.25;
+  gr->LoadFont("STIX");     gr->Puts(mglPoint(0,h), "default font (STIX)");
+  gr->LoadFont("adventor"); gr->Puts(mglPoint(0,h-d), "adventor font");
+  gr->LoadFont("bonum");    gr->Puts(mglPoint(0,h-2*d), "bonum font");
+  gr->LoadFont("chorus");   gr->Puts(mglPoint(0,h-3*d), "chorus font");
+  gr->LoadFont("cursor");   gr->Puts(mglPoint(0,h-4*d), "cursor font");
+  gr->LoadFont("heros");    gr->Puts(mglPoint(0,h-5*d), "heros font");
+  gr->LoadFont("heroscn");  gr->Puts(mglPoint(0,h-6*d), "heroscn font");
+  gr->LoadFont("pagella");  gr->Puts(mglPoint(0,h-7*d), "pagella font");
+  gr->LoadFont("schola");   gr->Puts(mglPoint(0,h-8*d), "schola font");
+  gr->LoadFont("termes");   gr->Puts(mglPoint(0,h-9*d), "termes font");
+  return 0;
+}
+@end verbatim
+
+@pfig{fonts, Example of font faces}
+
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Legend sample, Cutting sample, Text features, Advanced usage
 @subsection Legend sample
 
-Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @code{AddLegend} function (see @ref{Legend}); or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @code{ClearLegend} function allow you to remove all saved legend entries.
+Legend is one of standard ways to show plot annotations. Basically you need to connect the plot style (line style, marker and color) with some text. In MathGL, you can do it by 2 methods: manually using @ref{addlegend} function; or use @samp{legend} option (see @ref{Command options}), which will use last plot style. In both cases, legend entries will be added into internal accumulator, which later used for legend drawing itself. @ref{clearlegend} function allow you to remove all saved legend entries.
 
 There are 2 features. If plot style is empty then text will be printed without indent. If you want to plot the text with indent but without plot sample then you need to use space @samp{ } as plot style. Such style @samp{ } will draw a plot sample (line with marker(s)) which is invisible line (i.e. nothing) and print the text with indent as usual one.
 
-Function @code{Legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
+Function @ref{legend} draw legend on the plot. The position of the legend can be selected automatic or manually. You can change the size and style of text labels, as well as setup the plot sample. The sample code demonstrating legend features is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -934,8 +969,9 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,2,"");  gr->Title("coloring");  gr->Box();
   gr->Legend(0,"r#"); gr->Legend(1,"Wb#");  gr->Legend(2,"ygr#");
 
-  gr->SubPlot(2,2,3,"");  gr->Title("manual position");
-  gr->Box();  gr->Legend(0.5,0.5);
+  gr->SubPlot(2,2,3,"");  gr->Title("manual position"); gr->Box();
+  gr->Legend(0.5,1);  gr->Puts(mglPoint(0.5,0.55),"at x=0.5, y=1","a");
+  gr->Legend(1,"#-"); gr->Puts(mglPoint(0.75,0.25),"Horizontal legend","a");
   return 0;
 }
 @end verbatim
@@ -943,7 +979,7 @@ int sample(mglGraph *gr)
 @pfig{legend, Example of legend}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cutting sample, , Legend sample, Advanced usage
 @subsection Cutting sample
 
@@ -1004,8 +1040,8 @@ Class @code{mglData} contains all functions for the data handling in MathGL (@px
 @end menu
 
 @c ------------------------------------------------------------------
-@external
-@node Array creation, Change data, , Data handling
+@c @external
+@node Array creation, Linking array, , Data handling
 @subsection Array creation
 
 There are many ways in MathGL how data arrays can be created and filled.
@@ -1082,7 +1118,7 @@ or by using @code{Modify()} function
 The only non-obvious thing here is using multidimensional arrays in C/C++, i.e. arrays defined like @code{mreal dat[40][30];}. Since, formally these elements @code{dat[i]} can address the memory in arbitrary place you should use the proper function to convert such arrays to @code{mglData} object. For C++ this is functions like @code{mglData::Set(mreal **dat, int N1, int N2);}. For C this is functions like @code{mgl_data_set_mreal2(HMDT d, const mreal **dat, int N1, int N2);}. At this, you should keep in mind that @code{nx=N2} and @code{ny=N1} after conversion.
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Linking array, Change data, Array creation, Data handling
 @subsection Linking array
 
@@ -1100,7 +1136,7 @@ Creating the link is rather simple -- just the same as using @code{Set} function
 @end verbatim
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Change data, , Linking array, Data handling
 @subsection Change data
 
@@ -1128,7 +1164,7 @@ int sample(mglGraph *gr)
 
 @pfig{dat_diff, Example of data differentiation and integration}
 
-Data smoothing (function @code{Smooth()}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
+Data smoothing (function @ref{smooth}) is more interesting and important. This function has single argument which define type of smoothing and its direction. Now 3 methods are supported: @samp{3} -- linear averaging by 3 points, @samp{5} -- linear averaging by 5 points, and default one -- quadratic averaging by 5 points.
 
 MathGL also have some amazing functions which is not so important for data processing as useful for data plotting. There are functions for finding envelope (useful for plotting rapidly oscillating data), for data sewing (useful to removing jumps on the phase), for data resizing (interpolation). Let me demonstrate it:
 @verbatim
@@ -1172,8 +1208,56 @@ int sample(mglGraph *gr)
 
 @pfig{dat_extra, Example of data smoothing}
 
-Finally one can create new data arrays on base of the existing one: extract slice, row or column of data (@code{SubData()}), summarize along a direction(s) (@code{Sum()}), find distribution of data elements (@code{Hist()}) and so on.
+Also one can create new data arrays on base of the existing one: extract slice, row or column of data (@ref{subdata}), summarize along a direction(s) (@ref{sum}), find distribution of data elements (@ref{hist}) and so on.
+
+@anchor{Solve sample}
+Another interesting feature of MathGL is interpolation and root-finding. There are several functions for linear and cubic spline interpolation (see @ref{Interpolation}). Also there is a function @ref{evaluate} which do interpolation of data array for values of each data element of index data. It look as indirect access to the data elements.
+
+This function have inverse function @ref{solve} which find array of indexes at which data array is equal to given value (i.e. work as root finding). But @ref{solve} function have the issue -- usually multidimensional data (2d and 3d ones) have an infinite number of indexes which give some value. This is contour lines for 2d data, or isosurface(s) for 3d data. So, @ref{solve} function will return index only in given direction, assuming that other index(es) are the same as equidistant index(es) of original data. If data have multiple roots then second (and later) branches can be found by consecutive call(s) of @ref{solve} function. Let me demonstrate this on the following sample.
+
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetRange('z',0,1);
+  mglData x(20,30), y(20,30), z(20,30), xx,yy,zz;
+  gr->Fill(x,"(x+2)/3*cos(pi*y)");
+  gr->Fill(y,"(x+2)/3*sin(pi*y)");
+  gr->Fill(z,"exp(-6*x^2-2*sin(pi*y)^2)");
+
+  gr->SubPlot(2,1,0); gr->Title("Cartesian space");   gr->Rotate(30,-40);
+  gr->Axis("xyzU");   gr->Box();  gr->Label('x',"x"); gr->Label('y',"y");
+  gr->SetOrigin(1,1); gr->Grid("xy");
+  gr->Mesh(x,y,z);
+
+  // section along 'x' direction
+  mglData u = x.Solve(0.5,'x');
+  mglData v(u.nx);  v.Fill(0,1);
+  xx = x.Evaluate(u,v);   yy = y.Evaluate(u,v);   zz = z.Evaluate(u,v);
+  gr->Plot(xx,yy,zz,"k2o");
+
+  // 1st section along 'y' direction
+  mglData u1 = x.Solve(-0.5,'y');
+  mglData v1(u1.nx);  v1.Fill(0,1);
+  xx = x.Evaluate(v1,u1); yy = y.Evaluate(v1,u1); zz = z.Evaluate(v1,u1);
+  gr->Plot(xx,yy,zz,"b2^");
+
+  // 2nd section along 'y' direction
+  mglData u2 = x.Solve(-0.5,'y',u1);
+  xx = x.Evaluate(v1,u2); yy = y.Evaluate(v1,u2); zz = z.Evaluate(v1,u2);
+  gr->Plot(xx,yy,zz,"r2v");
+
+  gr->SubPlot(2,1,1); gr->Title("Accompanied space");
+  gr->SetRanges(0,1,0,1); gr->SetOrigin(0,0);
+  gr->Axis(); gr->Box();  gr->Label('x',"i"); gr->Label('y',"j");
+  gr->Grid(z,"h");
 
+  gr->Plot(u,v,"k2o");    gr->Line(mglPoint(0.4,0.5),mglPoint(0.8,0.5),"kA");
+  gr->Plot(v1,u1,"b2^");  gr->Line(mglPoint(0.5,0.15),mglPoint(0.5,0.3),"bA");
+  gr->Plot(v1,u2,"r2v");  gr->Line(mglPoint(0.5,0.7),mglPoint(0.5,0.85),"rA");
+}
+@end verbatim
+
+@pfig{solve, Example of data interpolation and root finding}
 
 @c ------------------------------------------------------------------
 @external
@@ -1186,7 +1270,7 @@ Note, that the call of drawing function adds something to picture but does not c
 
 Let start for plots for 1D data. Term ``1D data'' means that data depend on single index (parameter) like curve in parametric form @{x(i),y(i),z(i)@}, i=1...n. The textual argument allow you specify styles of line and marks (see @ref{Line styles}). If this parameter is @code{NULL} or empty then solid line with color from palette is used (see @ref{Palette and colors}).
 
-Below I shall show the features of 1D plotting on base of @code{Plot()} function (see @ref{plot}). Let us start from sinus plot:
+Below I shall show the features of 1D plotting on base of @ref{plot} function. Let us start from sinus plot:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1194,7 +1278,7 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,0);
   gr->Plot(y0);        gr->Box();
 @end verbatim
-Style of line is not specified in @code{Plot()} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
+Style of line is not specified in @ref{plot} function. So MathGL uses the solid line with first color of palette (this is blue). Next subplot shows array @var{y1} with 2 rows:
 @verbatim
   gr->SubPlot(2,2,1);
   mglData y1(50,2);
@@ -1207,7 +1291,7 @@ As previously I did not specify the style of lines. As a result, MathGL again us
   mglData x(50);       x.Modify("cos(pi*2*x-pi)");
   gr->Plot(x,y0,"Y+");
 @end verbatim
-Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @code{Plot()} and @code{SubData())} functions. Let us draw ellipse by orange dash line:
+Note that solid line is used because I did not specify the type of line. The same picture can be achieved by @ref{plot} and @ref{subdata} functions. Let us draw ellipse by orange dash line:
 @verbatim
   gr->Plot(y1.SubData(-1,0),y1.SubData(-1,1),"q|");
 @end verbatim
@@ -1218,7 +1302,7 @@ Drawing in 3D space is mostly the same. Let us draw spiral with default line sty
   mglData z(50);       z.Modify("2*x-1");
   gr->Plot(x,y0,z);    gr->Box();
 @end verbatim
-Functions @code{Plot()} and @code{SubData())} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
+Functions @ref{plot} and @ref{subdata} make 3D curve plot but for single array. Use it to put circle marks on the previous plot:
 @verbatim
   mglData y2(10,3);    y2.Modify("cos(pi*(2*x-1+y))");
   y2.Modify("2*x-1",2);
@@ -1232,7 +1316,7 @@ Note that line style is empty @samp{ } here. Usage of other 1D plotting function
 }
 @end verbatim
 
-Surfaces @code{Surf()} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
+Surfaces @ref{surf} and other 2D plots (@pxref{2D plotting}) are drown the same simpler as 1D one. The difference is that the string parameter specifies not the line style but the color scheme of the plot (see @ref{Color scheme}). Here I draw attention on 4 most interesting color schemes. There is gray scheme where color is changed from black to white (string @samp{kw}) or from white to black (string @samp{wk}). Another scheme is useful for accentuation of negative (by blue color) and positive (by red color) regions on plot (string @samp{"BbwrR"}). Last one is the popular ``jet'' scheme (string @samp{"BbcyrR"}).
 
 Now I shall show the example of a surface drawing. At first let us switch lightning on
 @verbatim
@@ -1276,7 +1360,7 @@ Note, that it may entail a confusion. However, if one will use density plot then
 }
 @end verbatim
 
-Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@code{Grid()} or @code{Mesh()} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @code{Axial()}) this flag switches the  face drawing off. Figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
+Drawing of other 2D plots is analogous. The only peculiarity is the usage of flag @samp{#}. By default this flag switches on the drawing of a grid on plot (@ref{grid} or @ref{mesh} for plots in plain or in volume). However, for isosurfaces (including surfaces of rotation @ref{axial}) this flag switches the  face drawing off. Figure becomes wired. The following code gives example of flag @samp{#} using (compare with normal function drawing as in its description):
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1372,6 +1456,7 @@ void mgls_prepare1d(HMDT y, HMDT y1=0, HMDT y2=0, HMDT x1=0, HMDT x2=0)
 * Mark sample::
 * TextMark sample::
 * Label sample::
+* Table sample::
 * Tube sample::
 * Tape sample::
 * Torus sample::
@@ -1379,11 +1464,11 @@ void mgls_prepare1d(HMDT y, HMDT y1=0, HMDT y2=0, HMDT x1=0, HMDT x2=0)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Plot sample, Radar sample, , 1D samples
 @subsection Plot sample
 
-@code{Plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
+Function @ref{plot} is most standard way to visualize 1D data array. By default, @code{Plot} use colors from palette. However, you can specify manual color/palette, and even set to use new color for each points by using @samp{!} style. Another feature is @samp{ } style which draw only markers without line between points. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1410,11 +1495,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Radar sample, Step sample, Plot sample, 1D samples
 @subsection Radar sample
 
-@code{Radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
+Function @ref{radar} plot is variant of @code{Plot} one, which make plot in polar coordinates and draw radial rays in point directions. If you just need a plot in polar coordinates then I recommend to use @ref{Curvilinear coordinates} or @code{Plot} in parabolic form with @code{x=r*cos(fi); y=r*sin(fi);}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1428,11 +1513,11 @@ int sample(mglGraph *gr)
 @pfig{radar, Example of Radar()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Step sample, Tens sample, Radar sample, 1D samples
 @subsection Step sample
 
-@code{Step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
+Function @ref{step} plot data as stairs. It have the same options as @code{Plot}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1455,11 +1540,11 @@ int sample(mglGraph *gr)
 @pfig{step, Example of Step()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tens sample, Area sample, Step sample, 1D samples
 @subsection Tens sample
 
-@code{Tens} is variant of @code{Plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
+Function @ref{tens} is variant of @ref{plot} with smooth coloring along the curves. At this, color is determined as for surfaces (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1481,11 +1566,11 @@ int sample(mglGraph *gr)
 @pfig{tens, Example of Tens()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Area sample, Region sample, Tens sample, 1D samples
 @subsection Area sample
 
-@code{Area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
+Function @ref{area} fill the area between curve and axis plane. It support gradient filling if 2 colors per curve is specified. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1511,11 +1596,11 @@ int sample(mglGraph *gr)
 @pfig{area, Example of Area()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Region sample, Stem sample, Area sample, 1D samples
 @subsection Region sample
 
-@code{Region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
+Function @ref{region} fill the area between 2 curves. It support gradient filling if 2 colors per curve is specified. Also it can fill only the region y1<y<y2 if style @samp{i} is used. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1539,11 +1624,11 @@ int sample(mglGraph *gr)
 @pfig{region, Example of Region()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Stem sample, Bars sample, Region sample, 1D samples
 @subsection Stem sample
 
-@code{Stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
+Function @ref{stem} draw vertical bars. It is most attractive if markers are drawn too. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1565,11 +1650,11 @@ int sample(mglGraph *gr)
 @pfig{stem, Example of Stem()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Bars sample, Barh sample, Stem sample, 1D samples
 @subsection Bars sample
 
-@code{Bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
+Function @ref{bars} draw vertical bars. It have a lot of options: bar-above-bar (@samp{a} style), fall like (@samp{f} style), 2 colors for positive and negative values, wired bars (@samp{#} style), 3D variant. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1603,11 +1688,11 @@ int sample(mglGraph *gr)
 @pfig{bars, Example of Bars()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Barh sample, Cones sample, Bars sample, 1D samples
 @subsection Barh sample
 
-@code{Barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
+Function @ref{barh} is the similar to @code{Bars} but draw horizontal bars. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1632,11 +1717,11 @@ int sample(mglGraph *gr)
 @pfig{barh, Example of Barh()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cones sample, Chart sample, Bars sample, 1D samples
 @subsection Cones sample
 
-@code{Cones} is similar to @code{Bars} but draw cones. The sample code is:
+Function @ref{cones} is similar to @code{Bars} but draw cones. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1661,11 +1746,11 @@ int sample(mglGraph *gr)
 @pfig{cones, Example of Cones()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Chart sample, BoxPlot sample, Cones sample, 1D samples
 @subsection Chart sample
 
-@code{Chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
+Function @ref{chart} draw colored boxes with width proportional to data values. Use @samp{ } for empty box. Plot looks most attractive in polar coordinates -- well known pie chart. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1690,11 +1775,11 @@ int sample(mglGraph *gr)
 @pfig{chart, Example of Chart()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node BoxPlot sample, Candle sample, Chart sample, 1D samples
 @subsection BoxPlot sample
 
-@code{BoxPlot} draw box-and-whisker diagram. The sample code is:
+Function @ref{boxplot} draw box-and-whisker diagram. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1708,11 +1793,11 @@ int sample(mglGraph *gr)
 @pfig{boxplot, Example of BoxPlot()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Candle sample, Error sample, BoxPlot sample, 1D samples
 @subsection Candle sample
 
-@code{Candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
+Function @ref{candle} draw candlestick chart. This is a combination of a line-chart and a bar-chart, in that each bar represents the range of price movement over a given time interval. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1728,11 +1813,11 @@ int sample(mglGraph *gr)
 @pfig{candle, Example of Candle()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Error sample, Mark sample, Candle sample, 1D samples
 @subsection Error sample
 
-@code{Error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
+Function @ref{error} draw error boxes around the points. You can draw default boxes or semi-transparent symbol (like marker, see @ref{Line styles}). Also you can set individual color for each box. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1768,11 +1853,11 @@ int sample(mglGraph *gr)
 @pfig{error, Example of Error()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mark sample, TextMark sample, Error sample, 1D samples
 @subsection Mark sample
 
-@code{Mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
+Function @ref{mark} draw markers at points. It is mostly the same as @code{Plot} but marker size can be variable. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1786,11 +1871,11 @@ int sample(mglGraph *gr)
 @pfig{mark, Example of Mark()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TextMark sample, Label sample, Mark sample, 1D samples
 @subsection TextMark sample
 
-@code{TextMark} like @code{Mark} but draw text instead of markers. The sample code is:
+Function @ref{textmark} like @code{Mark} but draw text instead of markers. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1804,11 +1889,11 @@ int sample(mglGraph *gr)
 @pfig{textmark, Example of TextMark()}
 
 @c ------------------------------------------------------------------
-@external
-@node Label sample, Tube sample, TextMark sample, 1D samples
+@c @external
+@node Label sample, Table sample, TextMark sample, 1D samples
 @subsection Label sample
 
-@code{Label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
+Function @ref{label} print text at data points. The string may contain @samp{%x}, @samp{%y}, @samp{%z} for x-, y-, z-coordinates of points, @samp{%n} for point index. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1821,13 +1906,37 @@ int sample(mglGraph *gr)
 
 @pfig{label, Example of Label()}
 
+@c ------------------------------------------------------------------
+@c @external
+@node Table sample, Tube sample, Label sample, 1D samples
+@subsection Table sample
+
+Function @ref{table} draw table with data values. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  mglData ys(10,3); ys.Modify("0.8*sin(pi*(2*x+y/2))+0.2*rnd");
+  gr->SubPlot(2,2,0);  gr->Title("Table plot");
+  gr->Table(ys,"y_1\ny_2\ny_3");   gr->Box();
+  gr->SubPlot(2,2,1);  gr->Title("no borders, colored");
+  gr->Table(ys,"y_1\ny_2\ny_3","r|");
+  gr->SubPlot(2,2,2);  gr->Title("no font decrease");
+  gr->Table(ys,"y_1\ny_2\ny_3","#");
+  gr->SubPlot(2,2,3);  gr->Title("manual width, position");
+  gr->Table(0.5, 0.95, ys,"y_1\ny_2\ny_3","#", "value 0.7");  gr->Box();
+  return 0;
+}
+@end verbatim
+
+@pfig{table, Example of Table()}
+
 
 @c ------------------------------------------------------------------
-@external
-@node Tube sample, Tape sample, Label sample, 1D samples
+@c @external
+@node Tube sample, Tape sample, Table sample, 1D samples
 @subsection Tube sample
 
-@code{Tube} draw tube with variable radius. The sample code is:
+Function @ref{tube} draw tube with variable radius. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1853,11 +1962,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tape sample, Torus sample, Tube sample, 1D samples
 @subsection Tape sample
 
-@code{Tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
+Function @ref{tape} draw tapes which rotate around the curve as normal and binormal. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1887,11 +1996,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Torus sample, , Tape sample, 1D samples
 @subsection Torus sample
 
-@code{Torus} draw surface of the curve rotation. The sample code is:
+Function @ref{torus} draw surface of the curve rotation. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1974,11 +2083,11 @@ void mgls_prepare2d(HMDT a, HMDT b=0, HMDT v=0)
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf sample, SurfC sample, , 2D samples
 @subsection Surf sample
 
-@code{Surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
+Function @ref{surf} is most standard way to visualize 2D data array. @code{Surf} use color scheme for coloring (see @ref{Color scheme}). You can use @samp{#} style for drawing black meshes on the surface. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -1989,8 +2098,8 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,1); gr->Title("'\\#' style; meshnum 10");
   gr->Rotate(50,60);  gr->Box();  gr->Surf(a,"#","meshnum 10");
 
-  gr->SubPlot(2,2,2); gr->Title("'|' style");
-  gr->Rotate(50,60);  gr->Box();  gr->Surf(a,"|");
+  gr->SubPlot(2,2,2); gr->Title("'.' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf(a,".");
 
   gr->SubPlot(2,2,3); gr->Title("parametric form");
   mglData x(50,40),y(50,40),z(50,40);
@@ -2005,11 +2114,11 @@ int sample(mglGraph *gr)
 @pfig{surf, Example of Surf()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node SurfC sample, SurfA sample, Surf sample, 2D samples
 @subsection SurfC sample
 
-@code{SurfC} is similar to @code{Surf} but its coloring is determined by another data. The sample code is:
+Function @ref{surfc} is similar to @ref{surf} but its coloring is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2023,11 +2132,11 @@ int sample(mglGraph *gr)
 @pfig{surfc, Example of SurfC()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node SurfA sample, Mesh sample, SurfC sample, 2D samples
 @subsection SurfA sample
 
-@code{SurfA} is similar to @code{Surf} but its transparency is determined by another data. The sample code is:
+Function @ref{surfa} is similar to @ref{surf} but its transparency is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2043,11 +2152,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mesh sample, Fall sample, SurfA sample, 2D samples
 @subsection Mesh sample
 
-@code{Mesh} draw wired surface. You can use @code{SetMeshNum} for changing number of lines to be drawn. The sample code is:
+Function @ref{mesh} draw wired surface. You can use @ref{meshnum} for changing number of lines to be drawn. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2061,11 +2170,11 @@ int sample(mglGraph *gr)
 @pfig{mesh, Example of Mesh()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Fall sample, Belt sample, Mesh sample, 2D samples
 @subsection Fall sample
 
-@code{Fall} draw waterfall surface. You can use @code{SetMeshNum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
+Function @ref{fall} draw waterfall surface. You can use @ref{meshnum} for changing number of lines to be drawn. Also you can use @samp{x} style for drawing lines in other direction. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2079,11 +2188,11 @@ int sample(mglGraph *gr)
 @pfig{fall, Example of Fall()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Belt sample, Boxs sample, Fall sample, 2D samples
 @subsection Belt sample
 
-@code{Belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
+Function @ref{belt} draw surface by belts. You can use @samp{x} style for drawing lines in other direction. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2097,11 +2206,11 @@ int sample(mglGraph *gr)
 @pfig{belt, Example of Belt()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Boxs sample, Tile sample, Fall sample, 2D samples
 @subsection Boxs sample
 
-@code{Boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
+Function @ref{boxs} draw surface by boxes. You can use @samp{#} for drawing wire plot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2125,11 +2234,11 @@ int sample(mglGraph *gr)
 @pfig{boxs, Example of Boxs()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Tile sample, TileS sample, Boxs sample, 2D samples
 @subsection Tile sample
 
-@code{Tile} draw surface by tiles. The sample code is:
+Function @ref{tile} draw surface by tiles. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2143,11 +2252,11 @@ int sample(mglGraph *gr)
 @pfig{tile, Example of Tile()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TileS sample, Dens sample, Tile sample, 2D samples
 @subsection TileS sample
 
-@code{TileS} is similar to @code{Tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
+Function @ref{tiles} is similar to @code{Tile} but tile sizes is determined by another data. This allows one to simulate transparency of the plot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2162,11 +2271,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens sample, Cont sample, TileS sample, 2D samples
 @subsection Dens sample
 
-@code{Dens} draw density plot for surface. The sample code is:
+Function @ref{dens} draw density plot for surface. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2190,11 +2299,11 @@ int sample(mglGraph *gr)
 @pfig{dens, Example of Dens()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont sample, ContF sample, Dens sample, 2D samples
 @subsection Cont sample
 
-@code{Cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
+Function @ref{cont} draw contour lines for surface. You can select automatic (default) or manual levels for contours, print contour labels, draw it on the surface (default) or at plane (as @code{Dens}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2217,11 +2326,11 @@ int sample(mglGraph *gr)
 @pfig{cont, Example of Cont()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF sample, ContD sample, Cont sample, 2D samples
 @subsection ContF sample
 
-@code{ContF} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
+Function @ref{contf} draw filled contours.  You can select automatic (default) or manual levels for contours. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2246,11 +2355,11 @@ int sample(mglGraph *gr)
 @pfig{contf, Example of ContF()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContD sample, ContV sample, ContF sample, 2D samples
 @subsection ContD sample
 
-@code{ContD} is similar to @code{ContF} but with manual contour colors. The sample code is:
+Function @ref{contd} is similar to @code{ContF} but with manual contour colors. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2275,11 +2384,11 @@ int sample(mglGraph *gr)
 @pfig{contd, Example of ContD()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContV sample, Axial sample, ContD sample, 2D samples
 @subsection ContV sample
 
-@code{ContV} draw vertical cylinders (belts) at contour lines. The sample code is:
+Function @ref{contv} draw vertical cylinders (belts) at contour lines. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2304,11 +2413,11 @@ int sample(mglGraph *gr)
 @pfig{contv, Example of ContV()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Axial sample, Grad sample, ContV sample, 2D samples
 @subsection Axial sample
 
-@code{Axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
+Function @ref{axial} draw surfaces of rotation for contour lines. You can draw wire surfaces (@samp{#} style) or ones rotated in other directions (@samp{x}, @samp{z} styles). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2317,8 +2426,8 @@ int sample(mglGraph *gr)
   gr->Light(true);  gr->Alpha(true);  gr->Rotate(50,60);
   gr->Box();  gr->Axial(a);
 
-  gr->SubPlot(2,2,1); gr->Title("'x' style"); gr->Rotate(50,60);
-  gr->Box();  gr->Axial(a,"x");
+  gr->SubPlot(2,2,1); gr->Title("'x' style;'.' style"); gr->Rotate(50,60);
+  gr->Box();  gr->Axial(a,"x.");
 
   gr->SubPlot(2,2,2); gr->Title("'z' style"); gr->Rotate(50,60);
   gr->Box();  gr->Axial(a,"z");
@@ -2332,11 +2441,11 @@ int sample(mglGraph *gr)
 @pfig{axial, Example of Axial()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Grad sample, , Axial sample, 2D samples
 @subsection Grad sample
 
-@code{Grad} draw gradient lines for matrix. The sample code is:
+Function @ref{grad} draw gradient lines for matrix. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2403,18 +2512,24 @@ void mgls_prepare3d(HMDT a, HMDT b=0)
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3 sample, Surf3C sample, , 3D samples
 @subsection Surf3 sample
 
-@code{Surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
+Function @ref{surf3} is one of most suitable (for my opinion) functions to visualize 3D data. It draw the isosurface(s) -- surface(s) of constant amplitude (3D analogue of contour lines). You can draw wired isosurfaces if specify @samp{#} style. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
   mglData c;  mgls_prepare3d(&c);
-  gr->Title("Surf3 plot");  gr->Rotate(50,60);
-  gr->Light(true);  gr->Alpha(true);
-  gr->Box();  gr->Surf3(c);
+  gr->Light(true);    gr->Alpha(true);
+  gr->SubPlot(2,2,0); gr->Title("Surf3 plot (default)");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c);
+
+  gr->SubPlot(2,2,1); gr->Title("'\\#' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c,"#");
+
+  gr->SubPlot(2,2,2); gr->Title("'.' style");
+  gr->Rotate(50,60);  gr->Box();  gr->Surf3(c,".");
   return 0;
 }
 @end verbatim
@@ -2422,11 +2537,11 @@ int sample(mglGraph *gr)
 @pfig{surf3, Example of Surf3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3C sample, Surf3A sample, Surf3 sample, 3D samples
 @subsection Surf3C sample
 
-@code{Surf3C} is similar to @code{Surf3} but its coloring is determined by another data. The sample code is:
+Function @ref{surf3c} is similar to @ref{surf3} but its coloring is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2441,11 +2556,11 @@ int sample(mglGraph *gr)
 @pfig{surf3c, Example of Surf3C()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Surf3A sample, Cloud sample, Surf3C sample, 3D samples
 @subsection Surf3A sample
 
-@code{Surf3A} is similar to @code{Surf3} but its transparency is determined by another data. The sample code is:
+Function @ref{surf3a} is similar to @ref{surf3} but its transparency is determined by another data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2460,11 +2575,11 @@ int sample(mglGraph *gr)
 @pfig{surf3a, Example of Surf3A()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cloud sample, Dens3 sample, Surf3A sample, 3D samples
 @subsection Cloud sample
 
-@code{Cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
+Function @ref{cloud} draw cloud-like object which is less transparent for higher data values. Similar plot can be created using many (about 10-20) @code{Surf3A(a,a)} isosurfaces. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2488,11 +2603,11 @@ int sample(mglGraph *gr)
 @pfig{cloud, Example of Cloud()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens3 sample, Cont3 sample, Cloud sample, 3D samples
 @subsection Dens3 sample
 
-@code{Dens3} draw just usual density plot but at slices of 3D data. The sample code is:
+Function @ref{dens3} draw just usual density plot but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2508,11 +2623,11 @@ int sample(mglGraph *gr)
 @pfig{densa, Example of Dens3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont3 sample, ContF3 sample, Dens3 sample, 3D samples
 @subsection Cont3 sample
 
-@code{Cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
+Function @ref{cont3} draw just usual contour lines but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2528,11 +2643,11 @@ int sample(mglGraph *gr)
 @pfig{conta, Example of Cont3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF3 sample, Dens projection sample, Cont3 sample, 3D samples
 @subsection ContF3 sample
 
-@code{ContF3} draw just usual filled contours but at slices of 3D data. The sample code is:
+Function @ref{contf3} draw just usual filled contours but at slices of 3D data. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2549,11 +2664,11 @@ int sample(mglGraph *gr)
 @pfig{contfa, Example of ContF3()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dens projection sample, Cont projection sample, ContF3 sample, 3D samples
 @subsection Dens projection sample
 
-@code{Dens[XYZ]} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @ref{DensXYZ} draw density plot on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2568,11 +2683,11 @@ int sample(mglGraph *gr)
 @pfig{dens_xyz, {Example of DensX(), DensY(), DensZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Cont projection sample, ContF projection sample, Dens projection sample, 3D samples
 @subsection Cont projection sample
 
-@code{Cont[XYZ]} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @ref{ContXYZ} draw contour lines on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2587,11 +2702,11 @@ int sample(mglGraph *gr)
 @pfig{cont_xyz, {Example of ContX(), ContY(), ContZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ContF projection sample, TriPlot and QuadPlot, Cont projection sample, 3D samples
 @subsection ContF projection sample
 
-@code{Dens[XYZ]} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
+Functions @code{ContFXYZ} draw filled contours on plane perpendicular to corresponding axis. One of possible application is drawing projections of 3D field. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2606,11 +2721,11 @@ int sample(mglGraph *gr)
 @pfig{contf_xyz, {Example of ContFX(), ContFY(), ContFZ()}}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node TriPlot and QuadPlot, Axial sample, ContF projection sample, 3D samples
 @subsection TriPlot and QuadPlot
 
-@code{TriPlot} and @code{QuadPlot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
+Function @ref{triplot} and @ref{quadplot} draw set of triangles (or quadrangles for @code{QuadPlot}) for irregular data arrays. Note, that you have to provide not only vertexes, but also the indexes of triangles or quadrangles. I.e. perform triangulation by some other library. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2635,11 +2750,11 @@ int sample(mglGraph *gr)
 @pfig{triplot, Example of TriPlot() and QuadPlot()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dots sample, , TriPlot and QuadPlot, 3D samples
 @subsection Dots sample
 
-@code{Dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+Function @ref{dots} is another way to draw irregular points. @code{Dots} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2702,7 +2817,7 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 @end verbatim
 or using C functions
 @verbatim
-void mgls_prepare2v(mglData *a, mglData *b)
+void mgls_prepare2v(HMDT a, HMDT b)
 {
   register long i,j,n=20,m=30,i0;
   if(a) mgl_data_create(a,n,m,1);
@@ -2715,7 +2830,7 @@ void mgls_prepare2v(mglData *a, mglData *b)
     if(b) mgl_data_set_value(b, 0.6*cos(2*M_PI*x)*cos(3*M_PI*y)+0.4*cos(3*M_PI*x*y), i,j,0);
   }
 }
-void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
+void mgls_prepare3v(HMDT ex, HMDT ey, HMDT ez)
 {
   register long i,j,k,n=10,i0;
   if(!ex || !ey || !ez) return;
@@ -2737,6 +2852,7 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 
 @menu
 * Vect sample::
+* Vect3 sample::
 * Traj sample::
 * Flow sample::
 * Pipe sample::
@@ -2745,11 +2861,11 @@ void mgls_prepare3v(mglData *ex, mglData *ey, mglData *ez)
 
 
 @c ------------------------------------------------------------------
-@external
-@node Vect sample, Traj sample, , Vector field samples
+@c @external
+@node Vect sample, Vect3 sample, , Vector field samples
 @subsection Vect sample
 
-@code{Vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
+Function @ref{vect} is most standard way to visualize vector fields -- it draw a lot of arrows or hachures for each data cell. It have a lot of options which can be seen on the figure (and in the sample code). @code{Vect} use color scheme for coloring (see @ref{Color scheme}). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2779,11 +2895,35 @@ int sample(mglGraph *gr)
 @pfig{vect, Example of Vect()}
 
 @c ------------------------------------------------------------------
-@external
-@node Traj sample, Flow sample, Vect sample, Vector field samples
+@c @external
+@node Vect3 sample, Traj sample, Vect sample, Vector field samples
+@subsection Vect3 sample
+
+Function @ref{vect3} draw just usual vector field plot but at slices of 3D data. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  mglData ex,ey,ez; mgls_prepare3v(&ex,&ey,&ez);
+  gr->SubPlot(2,1,0); gr->Title("Vect3 sample");    gr->SetOrigin(0,0,0);
+  gr->Rotate(50,60);    gr->Axis("_xyz");   gr->Box();
+  gr->Vect3(ex,ey,ez,"x");  gr->Vect3(ex,ey,ez);    gr->Vect3(ex,ey,ez,"z");
+
+  gr->SubPlot(2,1,1);   gr->Title("'f' style");
+  gr->Rotate(50,60);    gr->Axis("_xyz");   gr->Box();
+  gr->Vect3(ex,ey,ez,"fx"); gr->Vect3(ex,ey,ez,"f");gr->Vect3(ex,ey,ez,"fz");
+  gr->Grid3(ex,"Wx");   gr->Grid3(ex,"W");  gr->Grid3(ex,"Wz");
+  return 0;
+}
+@end verbatim
+
+@pfig{vecta, Example of Vect3()}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Traj sample, Flow sample, Vect3 sample, Vector field samples
 @subsection Traj sample
 
-@code{Traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
+Function @ref{traj} is 1D analogue of @code{Vect}. It draw vectors from specified points. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2798,11 +2938,11 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Flow sample, Pipe sample, Traj sample, Vector field samples
 @subsection Flow sample
 
-@code{Flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+Function @ref{flow} is another standard way to visualize vector fields -- it draw lines (threads) which is tangent to local vector field direction. MathGL draw threads from edges of bounding box and from central slices. Sometimes it is not most appropriate variant -- you may want to use @code{FlowP} to specify manual position of threads. @code{Flow} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2826,11 +2966,11 @@ int sample(mglGraph *gr)
 @pfig{flow, Example of Flow()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Pipe sample, Dew sample, Flow sample, Vector field samples
 @subsection Pipe sample
 
-@code{Pipe} is similar to @code{Flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
+Function @ref{pipe} is similar to @ref{flow} but draw pipes (tubes) which radius is proportional to the amplitude of vector field. @code{Pipe} use color scheme for coloring (see @ref{Color scheme}). At this warm color corresponds to normal flow (like attractor), cold one corresponds to inverse flow (like source). The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2854,11 +2994,11 @@ int sample(mglGraph *gr)
 @pfig{pipe, Example of Pipe()}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Dew sample, , Pipe sample, Vector field samples
 @subsection Dew sample
 
-@code{Dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
+Function @ref{dew} is similar to @code{Vect} but use drops instead of arrows. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -2883,6 +3023,7 @@ In this section I've included some small hints and advices for the improving of
 * ``Compound'' graphics::
 * Transparency and lighting::
 * Types of transparency::
+* Axis projection::
 * Adding fog::
 * Several light sources::
 * Using primitives::
@@ -2892,12 +3033,14 @@ In this section I've included some small hints and advices for the improving of
 * Nonlinear fitting sample::
 * PDE solving hints::
 * MGL parser using::
+* Using options::
 * ``Templates''::
 * Stereo image::
+* Reduce memory usage::
 @end menu
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node ``Compound'' graphics, Transparency and lighting, , Hints
 @subsection ``Compound'' graphics
 
@@ -2957,7 +3100,7 @@ int sample(mglGraph *gr)
 @pfig{combined, Example of ``combined'' plots}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Transparency and lighting, Types of transparency, ``Compound'' graphics, Hints
 @subsection Transparency and lighting
 
@@ -2972,10 +3115,10 @@ int sample(mglGraph *gr)
   gr->SubPlot(2,2,1); gr->Title("light on");  gr->Rotate(50,60);
   gr->Box();  gr->Light(true);  gr->Surf(a);
 
-  gr->SubPlot(2,2,2); gr->Title("alpha on; light on");  gr->Rotate(50,60);
+  gr->SubPlot(2,2,3); gr->Title("alpha on; light on");  gr->Rotate(50,60);
   gr->Box();  gr->Alpha(true);  gr->Surf(a);
 
-  gr->SubPlot(2,2,3); gr->Title("alpha on");  gr->Rotate(50,60);
+  gr->SubPlot(2,2,2); gr->Title("alpha on");  gr->Rotate(50,60);
   gr->Box();  gr->Light(false); gr->Surf(a);
   return 0;
 }
@@ -2984,11 +3127,11 @@ int sample(mglGraph *gr)
 @pfig{alpha, Example of transparency and lightings}
 
 @c ------------------------------------------------------------------
-@external
-@node Types of transparency, Adding fog, Transparency and lighting, Hints
+@c @external
+@node Types of transparency, Axis projection, Transparency and lighting, Hints
 @subsection Types of transparency
 
-MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @code{Alpha()}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
+MathGL library has advanced features for setting and handling the surface transparency. The simplest way to add transparency is the using of function @ref{alpha}. As a result, all further surfaces (and isosurfaces, density plots and so on) become transparent. However, their  look can be additionally improved.
 
 The value of transparency can be different from surface to surface. To do it just use @code{SetAlphaDef} before the drawing of the surface, or use option @code{alpha} (see @ref{Command options}). If its value is close to 0 then the surface becomes more and more transparent. Contrary, if its value is close to 1 then the surface becomes practically non-transparent.
 
@@ -3017,11 +3160,41 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
-@node Adding fog, Several light sources, Types of transparency, Hints
+@c @external
+@node Axis projection, Adding fog, Ternary axis, Hints
+@subsection Axis projection
+
+You can easily make 3D plot and draw its x-,y-,z-projections (like in CAD) by using @ref{ternary} function with arguments: 4 for Cartesian, 5 for Ternary and 6 for Quaternary coordinates. The sample code is:
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetRanges(0,1,0,1,0,1);
+  mglData x(50),y(50),z(50),rx(10),ry(10), a(20,30);
+  a.Modify("30*x*y*(1-x-y)^2*(x+y<1)");
+  x.Modify("0.25*(1+cos(2*pi*x))");
+  y.Modify("0.25*(1+sin(2*pi*x))");
+  rx.Modify("rnd"); ry.Modify("(1-v)*rnd",rx);
+  z.Modify("x");
+
+  gr->Title("Projection sample");
+  gr->Ternary(4);
+  gr->Rotate(50,60);      gr->Light(true);
+  gr->Plot(x,y,z,"r2");   gr->Surf(a,"#");
+  gr->Axis(); gr->Grid(); gr->Box();
+  gr->Label('x',"X",1);   gr->Label('y',"Y",1);   gr->Label('z',"Z",1);
+}
+@end verbatim
+
+@pfig{projection, Example of axis projections}
+@pfig{projection5, Example of ternary axis projections}
+@c @pfig{projection6, Example of quaternary axis projections}
+
+@c ------------------------------------------------------------------
+@c @external
+@node Adding fog, Several light sources, Axis projection, Hints
 @subsection Adding fog
 
-MathGL can add a fog to the image. Its switching on is rather simple -- just use @code{Fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
+MathGL can add a fog to the image. Its switching on is rather simple -- just use @ref{fog} function. There is the only feature -- fog is applied for whole image. Not to particular subplot. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3036,7 +3209,7 @@ int sample(mglGraph *gr)
 @pfig{fog, Example of @code{Fog()}.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Several light sources, Using primitives, Adding fog, Hints
 @subsection Several light sources
 
@@ -3058,7 +3231,7 @@ int sample(mglGraph *gr)
 @pfig{several_light, Example of several light sources.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Using primitives, STFA sample, Several light sources, Hints
 @subsection Using primitives
 
@@ -3066,7 +3239,7 @@ MathGL provide a set of functions for drawing primitives (see @ref{Primitives}).
 
 @pfig{primitives, Primitives in MathGL.}
 
-Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @code{Drop}. The sample code is:
+Generally, you can create arbitrary new kind of plot using primitives. For example, MathGL don't provide any special functions for drawing molecules. However, you can do it using only one type of primitives @ref{drop}. The sample code is:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3143,7 +3316,7 @@ int sample(mglGraph *gr)
   return 0;
 }
 @end verbatim
-You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @code{Circle} function:
+You see that you have to specify and fill 3 data arrays. The same picture can be produced by just 3 calls of @ref{circle} function:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3159,11 +3332,11 @@ Of course, the first variant is more suitable if you need to plot a lot of circl
 @pfig{venn, Example of Venn diagram.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node STFA sample, Mapping visualization, Using primitives, Hints
 @subsection STFA sample
 
-Short-time Fourier Analysis (STFA) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
+Short-time Fourier Analysis (@ref{stfa}) is one of informative method for analyzing long rapidly oscillating 1D data arrays. It is used to determine the sinusoidal frequency and phase content of local sections of a signal as it changes over time.
 
 MathGL can find and draw STFA result. Just to show this feature I give following sample. Initial data arrays is 1D arrays with step-like frequency. Exactly this you can see at bottom on the STFA plot. The sample code is:
 @verbatim
@@ -3189,13 +3362,13 @@ int sample(mglGraph *gr)
 @pfig{stfa, Example of STFA().}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Mapping visualization, Making histogram, STFA sample, Hints
 @subsection Mapping visualization
 
-Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @code{SurfC}, @code{SurfA}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
+Sometime ago I worked with mapping and have a question about its visualization. Let me remember you that mapping is some transformation rule for one set of number to another one. The 1d mapping is just an ordinary function -- it takes a number and transforms it to another one. The 2d mapping (which I used) is a pair of functions which take 2 numbers and transform them to another 2 ones. Except general plots (like @ref{surfc}, @ref{surfa}) there is a special plot -- Arnold diagram. It shows the area which is the result of mapping of some initial area (usually square).
 
-I tried to make such plot in @code{Map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
+I tried to make such plot in @ref{map}. It shows the set of points or set of faces, which final position is the result of mapping. At this, the color gives information about their initial position and the height describes Jacobian value of the transformation. Unfortunately, it looks good only for the simplest mapping but for the  real multivalent quasi-chaotic mapping it produces a confusion. So, use it if you like :).
 
 The sample code for mapping visualization is:
 @verbatim
@@ -3222,11 +3395,11 @@ int sample(mglGraph *gr)
 @pfig{map, Example of Map().}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Making histogram, Nonlinear fitting sample, Mapping visualization, Hints
 @subsection Making histogram
 
-Using the @code{Hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @code{Hist} usage:
+Using the @ref{hist} function(s) for making regular distributions is one of useful fast methods to process and plot irregular data. @code{Hist} can be used to find some momentum of set of points by specifying weight function. It is possible to create not only 1D distributions but also 2D and 3D ones. Below I place the simplest sample code which demonstrate @ref{hist} usage:
 @verbatim
 int sample(mglGraph *gr)
 {
@@ -3250,7 +3423,7 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node Nonlinear fitting sample, PDE solving hints, Making histogram, Hints
 @subsection Nonlinear fitting hints
 
@@ -3308,7 +3481,7 @@ int sample(mglGraph *gr)
 @pfig{fit, Example of nonlinear fitting.}
 
 @c ------------------------------------------------------------------
-@external
+@c @external
 @node PDE solving hints, MGL parser using, Nonlinear fitting sample, Hints
 @subsection PDE solving hints
 
@@ -3376,8 +3549,8 @@ int sample(mglGraph *gr)
 
 
 @c ------------------------------------------------------------------
-@external
-@node MGL parser using, ``Templates'', PDE solving hints, Hints
+@c @external
+@node MGL parser using, Using options, PDE solving hints, Hints
 @subsection MGL parser using
 
 Sometimes you may prefer to use MGL scripts in yours code. It is simpler (especially in comparison with C/Fortran interfaces) and provide faster way to plot the data with annotations, labels and so on. Class @code{mglParse} (@pxref{mglParse class} parse MGL scripts in C++. It have also the corresponding interface for C/Fortran.
@@ -3410,19 +3583,21 @@ The code in C/Fortran looks practically the same:
 @verbatim
 int sample(HMGL gr)
 {
-  mgl_title(gr, "MGL parser sample")
-  mreal a[100];   // let a_i = sin(4*pi*x), x=0...1
+  mgl_title(gr, "MGL parser sample", "", -2);
+  double a[100];   // let a_i = sin(4*pi*x), x=0...1
   int i;
   for(i=0;i<100;i++)  a[i]=sin(4*M_PI*i/99);
   HMPR parser = mgl_create_parser();
-  HMDT d = mgl_add_var(parser, "dat");
-  mgl_data_set_mreal(d,a,100,1,1);    // set data to variable
+  HMDT d = mgl_parser_add_var(parser, "dat");
+  mgl_data_set_double(d,a,100,1,1);    // set data to variable
   mgl_parse_text(gr, parser, "plot dat; xrange 0 1\nbox\naxis");
   // you may break script at any line do something
   // and continue after that
   mgl_parse_text(gr, parser, "xlabel 'x'\nylabel 'y'");
   // also you may use cycles or conditions in script
-  mgl_parse_text(gr, parser, "for $0 -1 1 0.1\nline 0 0 -1 $0 'r'\nnext");
+  mgl_parse_text(gr, parser, "for $0 -1 1 0.1\nif $0<0\n"
+    "line 0 0 -1 $0 'r':else:line 0 0 -1 $0 'g'\n"
+    "endif\nnext");
   mgl_write_png(gr, "test.png", "");  // don't forgot to save picture
   return 0;
 }
@@ -3431,8 +3606,41 @@ int sample(HMGL gr)
 @pfig{parser, Example of MGL script parsing.}
 
 @c ------------------------------------------------------------------
-@external
-@node ``Templates'', Nonlinear fitting sample, MGL parser using, Hints
+@c @external
+@node Using options, ``Templates'', MGL parser using, Hints
+@subsection Using options
+
+@ref{Command options} allow the easy setup of the selected plot by changing global settings only for this plot. Often, options are used for specifying the range of automatic variables (coordinates). However, options allows easily change plot transparency, numbers of line or faces to be drawn, or add legend entries. The sample function for options usage is:
+@verbatim
+void template(mglGraph *gr)
+{
+  mglData a(31,41);
+  gr->Fill(a,"-pi*x*exp(-(y+1)^2-4*x^2)");
+
+  gr->SubPlot(2,2,0);  gr->Title("Options for coordinates");
+  gr->Alpha(true);     gr->Light(true);
+  gr->Rotate(40,60);    gr->Box();
+  gr->Surf(a,"r","yrange 0 1"); gr->Surf(a,"b","yrange 0 -1");
+  if(mini)     return;
+  gr->SubPlot(2,2,1);   gr->Title("Option 'meshnum'");
+  gr->Rotate(40,60);    gr->Box();
+  gr->Mesh(a,"r","yrange 0 1"); gr->Mesh(a,"b","yrange 0 -1; meshnum 5");
+  gr->SubPlot(2,2,2);   gr->Title("Option 'alpha'");
+  gr->Rotate(40,60);    gr->Box();
+  gr->Surf(a,"r","yrange 0 1; alpha 0.7");
+  gr->Surf(a,"b","yrange 0 -1; alpha 0.3");
+  gr->SubPlot(2,2,3,"<_");  gr->Title("Option 'legend'");
+  gr->FPlot("x^3","r","legend 'y = x^3'");
+  gr->FPlot("cos(pi*x)","b","legend 'y = cos \\pi x'");
+  gr->Box();    gr->Axis(); gr->Legend(2,"");
+}
+@end verbatim
+
+@pfig{mirror, Example of options usage.}
+
+@c ------------------------------------------------------------------
+@c @external
+@node ``Templates'', Nonlinear fitting sample, Using options, Hints
 @subsection ``Templates''
 
 As I have noted before, the change of settings will influence only for the further plotting commands. This allows one to create ``template'' function which will contain settings and primitive drawing for often used plots. Correspondingly one may call this template-function for drawing simplification.
@@ -3463,8 +3671,8 @@ A template-function can also contain settings for font, transparency, lightning,
 I understand that this is obvious thing for any professional programmer, but I several times receive suggestion about ``templates'' ... So, I decide to point out it here.
 
 @c ------------------------------------------------------------------
-@external
-@node Stereo image, , ``Templates'', Hints
+@c @external
+@node Stereo image, Reduce memory usage, ``Templates'', Hints
 @subsection Stereo image
 
 One can easily create stereo image in MathGL. Stereo image can be produced by making two subplots with slightly different rotation angles. The corresponding code looks like this:
@@ -3485,6 +3693,25 @@ int sample(mglGraph *gr)
 
 @pfig{stereo, Example of stereo image.}
 
+@c ------------------------------------------------------------------
+@c @external
+@node Reduce memory usage, , Stereo image, Hints
+@subsection Reduce memory usage
+
+By default MathGL save all primitives in memory, rearrange it and only later draw them on bitmaps. Usually, this speed up drawing, but may require a lot of memory for plots which contain a lot of faces (like @ref{cloud}, @ref{dew}). You can use @ref{quality} function for setting to use direct drawing on bitmap and bypassing keeping any primitives in memory. This function also allow you to decrease the quality of the resulting image but increase the speed of the drawing.
+
+The code for lowest memory usage looks like this:
+@verbatim
+int sample(mglGraph *gr)
+{
+  gr->SetQuality(6);   // firstly, set to draw directly on bitmap
+  for(i=0;i<1000;i++)
+    gr->Sphere(mglPoint(mgl_rnd()*2-1,mgl_rnd()*2-1),0.05);
+  return 0;
+}
+@end verbatim
+
+@c ==================================================================
 @external
 @node FAQ, , Hints, Examples
 @section FAQ -- TODO: UPDATE!!!
@@ -3509,6 +3736,8 @@ int sample(mglGraph *gr)
 
 @emph{AT&T функция} -- @code{void mgl_fplot_(uintptr_t *graph, const char *fy, const char *stl, int *n, int ly, int ls);}
 
+При использовании фортрана необходимо также включить библиотеку @code{-lstdc++}. Кроме того, если библиотека была собрана с опцией @code{enable-double=ON} (по умолчанию в версии 2.1 и более поздних), то все вещественные числа должны быть типа @code{real*8}. Это можно включить по умолчанию опцией @code{-fdefault-real-8}.
+
 @item У меня есть класс Foo и в нем метод рисования Foo::draw(mglGraph *gr). Как мне нарисовать что-то в окне FLTK, GLUT или Qt?
 Функции-члены класса в С++ имеют ``скрытый'' параметр -- указатель на экземпляр класса и их прямое использование невозможно. Решением будет определение интерфейсной функции:
 @example
@@ -3531,6 +3760,8 @@ gr->Window(argc,argv,foo_draw,"Title",this);
 @item Я использую VisualStudio, CBuilder или другой компилятор (не MinGW/gcc). Как мне подключить библиотеку MathGL?
 Начиная с версии 2.0, рекомендуемый к использованию класс mglGraph (заголовочный файл @code{#include <mgl2/mgl.h>}) содержbn только с @code{inline} функции и может использоваться с любым компилятором без перекомпиляции бинарной версии библиотеки. Однако, если Вы планируете использовать низкоуровневые возможности (т.е. классы mglBase, mglCanvas и т.д.), то Вам следует перекомпилировать библиотеку MathGL с использованием Вашего компилятора.
 
+Отмечу, что использование предоставляемых динамических библиотек *.dll требует создания библиотек импорта (import library *.lib). Эта процедура зависит от используемого компилятора -- обратитесь к документации по Вашему компилятору. Например для VisualStudio это можно сделать командой @code{lib.exe /DEF:libmgl.def /OUT:libmgl.lib}.
+
 @item Как мне собрать MathGL под Windows?
 Простейший путь -- использование комбинации CMake и MinGW. Также Вам может потребоваться дополнительные библиотеки, такие как GSL, PNG, JPEG и пр. Все они могут быть найдены на @url{http://gnuwin32.sourceforge.net/packages.html}. После установки всех компонент, просто запустите конфигуратор CMake и соберите MathGL командой make.
 
@@ -3602,8 +3833,16 @@ int main (int argc, char ** argv)
 @item Как использовать MathGL в Qt, FLTK, wxWidgets ...?
 Есть специальные классы (виджеты) для этих библиотек: QMathGL для Qt, Fl_MathGL для FLTK и т.д. Если Вы не нашли подходящий класс, то можете создать свой собственный виджет, рисующий растровое изображение из mglCanvas::GetBits().
 
-@item Как мне создать U3D файл (3D in PDF)?
-Процедура состоит из двух шагов: создания файла IDTF и его конвертация в U3D. Можно использовать @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=300628, U3D tools} для конвертации IDTF в U3D. Ему требуется библиотека @uref{http://libharu.org, libharu} 2.1.0 или более поздняя. Для установки используйте обычную процедуру @code{./bootstrap, ./configure, make, sudo make install}. В результате появится программа IDTFConverter для конвертации файлов *.idtf в бинарные файлы *.u3d. Последние можно включить в PDF.
+@item Как мне создать 3D в PDF?
+Используйте функцию @code{WritePRC}(), которая создаст PDF файл если MathGL был собран с enable-pdf=ON.
+
+@item Как мне создать TeX рисунок?
+Используйте функцию @code{WriteTEX}(), которая создаст LaTeX файлы с собственно рисунком @samp{@var{fname}.tex}, с цветами MathGL @samp{mglcolors.tex} и основной файл @samp{mglmain.tex}, который может использоваться для просмотра изображения и/или генерации PDF с помощью команды типа @code{pdflatex mglmain.tex}.
+
+@item Можно ли использовать MathGL в JavaScript?
+Да, пример JavaScript файла находится в папке texinfo/ исходных текстов. Для его работы необходимо предоставить JSON данные с 3d изображением (можно создать с помощью @code{WriteJSON}() функции). Скрипт позволяет выполнять базовые операции: приближение/удаление, вращение и сдвиг. Примеры использования JavaScript можно найти в @url{http://mathgl.sf.net/json.html}.
+
+
 
 @item Как сменить шрифт (семейство шрифтов)?
 Во-первых, надо загрузить файлы @uref{http://mathgl.sourceforge.net/download.html, отсюда} или @uref{http://sourceforge.net/project/showfiles.php?group_id=152187&package_id=267177, отсюда}. Далее, в экземпляре mglGraph загружаем шрифты: @code{gr->LoadFont(fontname,path);}. Здесь @var{fontname} -- базовое имя шрифта, например @samp{STIX}, и @var{path} -- путь к папке с файлами шрифтов. Вызовите @code{gr->RestoreFont();} для использования шрифта по умолчанию.

diff --git a/texinfo/formats_en.texi b/texinfo/formats_en.texi
new file mode 100644 (file)
index 0000000..413b433
--- /dev/null
+++ b/texinfo/formats_en.texi
@@ -0,0 +1,110 @@
+This appendix contain description of file formats used by MathGL.
+
+@menu
+* Font files::
+* MGLD format::
+* JSON format::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node Font files, MGLD format, , File formats
+@section Font files
+
+Starting from v.1.6 the MathGL library uses new font files. The font is defined in 4 files with suffixes @samp{*.vfm}, @samp{*_b.vfm}, @samp{*_i.vfm}, @samp{*_bi.vfm}. These files are text files containing the data for roman font, bold font, italic font and bold italic font. The files (or some symbols in the files) for bold, italic or bold italic fonts can be absent. In this case the roman glyph will be used for them. By analogy, if the bold italic font is absent but the bold font is present then bold glyph will be used for bold italic. You may create these font files by yourself from *.ttf, *.otf files with the help of program @code{font_tools}. This program can be found at MathGL home site.
+
+The format of font files (*.vfm -- vector font for MathGL) is the following.
+@enumerate
+@item
+First string contains human readable comment and is always ignored.
+@item
+Second string contains 3 numbers, delimited by space or tabulation. The order of numbers is the following: @var{numg} -- the number of glyphs in the file (integer), @var{fact} -- the factor for glyph sizing (mreal), @var{size} -- the size of buffer for glyph description (integer).
+@item
+After it @var{numg}-th strings with glyphs description are placed. Each string contains 6 positive numbers, delimited by space of tabulation. The order of numbers is the following: Unicode glyph ID, glyph width, number of lines in glyph, position of lines coordinates in the buffer (length is 2*number of lines), number of triangles in glyph, position of triangles coordinates in the buffer (length is 6*number of triangles).
+@item
+The end of file contains the buffer with point coordinates at lines or triangles vertexes. The size of buffer (the number of integer) is @var{size}.
+@end enumerate
+
+Each font file can be compressed by gzip.
+
+Note: the closing contour line  is done automatically (so the last segment may be absent). For starting new contour use a point with coordinates @code{@{0x3fff, 0x3fff@}}.
+
+
+@c ------------------------------------------------------------------
+@external
+@node MGLD format, JSON format, Font files, File formats
+@section MGLD format
+
+MGLD is textual file, which contain all required information for drawing 3D image, i.e. it contain vertexes with colors and normales, primitives with all properties, textures, and glyph descriptions. MGLD file can be imported or viewed separately, without parsing data files itself.
+
+MGLD file start from string
+@verbatim
+MGLD npnts nprim ntxtr nglfs # optional description
+@end verbatim
+which contain signature @samp{MGLD} and number of points @var{npnts}, number of primitives @var{nprim}, number of textures @var{ntxtr}, number of glyph descriptions @var{nglfs}, and optional description. Empty strings and string with @samp{#} are ignored.
+
+Next, file contain @var{npnts} strings with points coordinates and colors. The format of each string is
+@verbatim
+x y z c t ta u v w r g b a
+@end verbatim
+Here @var{x}, @var{y}, @var{z} are coordinates, @var{c}, @var{t} are color indexes in texture, @var{ta} is normalized @var{t} according to current alpha setting, @var{u}, @var{v}, @var{w} are coordinates of normal vector (can be @code{NAN} if disabled), @var{r}, @var{g}, @var{b}, @var{a} are RGBA color values.
+
+Next, file contain @var{nprim} strings with properties of primitives. The format of each string is
+@verbatim
+type n1 n2 n3 n4 id s w p
+@end verbatim
+Here @var{type} is kind of primitive (0 - mark, 1 - line, 2 - triangle, 3 - quadrangle, 4 - glyph), @var{n1}...@var{n4} is index of point for vertexes,  @var{id} is primitive identification number, @var{s} and @var{w} are size and width if applicable, @var{p} is scaling factor for glyphs.
+
+Next, file contain @var{ntxtr} strings with descriptions of textures. The format of each string is
+@verbatim
+smooth alpha colors
+@end verbatim
+Here @var{smooth} set to enable smoothing between colors, @var{alpha} set to use half-transparent texture, @var{colors} contain color scheme itself as it described in @ref{Color scheme}.
+
+Finally, file contain @var{nglfs} entries with description of each glyph used in the figure. The format of entries are
+@verbatim
+nT nL
+xA yA xB yB xC yC ...
+xP yP ...
+@end verbatim
+Here nT is the number of triangles; nL is the number of line vertexes; xA, yA, xB, yB, xC, yC are coordinates of triangles; and xP, yP, xQ, yQ are coordinates of lines. Line coordinate xP=0x3fff, yP=0x3fff denote line breaking.
+
+@c ------------------------------------------------------------------
+@external
+@node JSON format, , MGLD format, File formats
+@section JSON format
+
+MathGL can save points and primitives of 3D object. It contain a set of variables listed below.
+
+@table @samp
+@item width
+width of the image;
+@item height
+height of the image
+@item depth
+depth of the image, usually =sqrt(width*height);
+
+@item npnts
+number of points (vertexes);
+@item pnts
+array of coordinates of points (vertexes), each element is array in form [x, y, z];
+
+@item nprim
+number of primitives;
+@item prim
+array of primitives, each element is array in form [type, n1, n2, n3, n4, id, s, w, p, z, color]. 
+
+Here @var{type} is kind of primitive (0 - mark, 1 - line, 2 - triangle, 3 - quadrangle, 4 - glyph), @var{n1}...@var{n4} is index of point for vertexes and @var{n2} can be index of glyph coordinate, @var{s} and @var{w} are size and width if applicable, @var{z} is average z-coordinate, @var{id} is primitive identification number, @var{p} is scaling factor for glyphs.
+
+@item ncoor
+number of glyph positions
+@item coor
+array of glyph positions, each element is array in form [dx,dy]
+
+@item nglfs
+number of glyph descriptions
+@item glfs
+array of glyph descriptions, each element is array in form [nT, nL, [xA0, yA0, xB0, yB0, xC0, yC0, xA1, yA1, xB1, yB1, xC1, yC1 ...], [xP0, yP0, xP1, yP1 ...]]. Here nT is the number of triangles; nL is the number of line vertexes; xA, yA, xB, yB, xC, yC are coordinates of triangles; and xP, yP, xQ, yQ are coordinates of lines. Line coordinate xP=0x3fff, yP=0x3fff denote line breaking.
+
+@end table
+@external

diff --git a/texinfo/formats_ru.texi b/texinfo/formats_ru.texi
new file mode 100644 (file)
index 0000000..413b433
--- /dev/null
+++ b/texinfo/formats_ru.texi
@@ -0,0 +1,110 @@
+This appendix contain description of file formats used by MathGL.
+
+@menu
+* Font files::
+* MGLD format::
+* JSON format::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node Font files, MGLD format, , File formats
+@section Font files
+
+Starting from v.1.6 the MathGL library uses new font files. The font is defined in 4 files with suffixes @samp{*.vfm}, @samp{*_b.vfm}, @samp{*_i.vfm}, @samp{*_bi.vfm}. These files are text files containing the data for roman font, bold font, italic font and bold italic font. The files (or some symbols in the files) for bold, italic or bold italic fonts can be absent. In this case the roman glyph will be used for them. By analogy, if the bold italic font is absent but the bold font is present then bold glyph will be used for bold italic. You may create these font files by yourself from *.ttf, *.otf files with the help of program @code{font_tools}. This program can be found at MathGL home site.
+
+The format of font files (*.vfm -- vector font for MathGL) is the following.
+@enumerate
+@item
+First string contains human readable comment and is always ignored.
+@item
+Second string contains 3 numbers, delimited by space or tabulation. The order of numbers is the following: @var{numg} -- the number of glyphs in the file (integer), @var{fact} -- the factor for glyph sizing (mreal), @var{size} -- the size of buffer for glyph description (integer).
+@item
+After it @var{numg}-th strings with glyphs description are placed. Each string contains 6 positive numbers, delimited by space of tabulation. The order of numbers is the following: Unicode glyph ID, glyph width, number of lines in glyph, position of lines coordinates in the buffer (length is 2*number of lines), number of triangles in glyph, position of triangles coordinates in the buffer (length is 6*number of triangles).
+@item
+The end of file contains the buffer with point coordinates at lines or triangles vertexes. The size of buffer (the number of integer) is @var{size}.
+@end enumerate
+
+Each font file can be compressed by gzip.
+
+Note: the closing contour line  is done automatically (so the last segment may be absent). For starting new contour use a point with coordinates @code{@{0x3fff, 0x3fff@}}.
+
+
+@c ------------------------------------------------------------------
+@external
+@node MGLD format, JSON format, Font files, File formats
+@section MGLD format
+
+MGLD is textual file, which contain all required information for drawing 3D image, i.e. it contain vertexes with colors and normales, primitives with all properties, textures, and glyph descriptions. MGLD file can be imported or viewed separately, without parsing data files itself.
+
+MGLD file start from string
+@verbatim
+MGLD npnts nprim ntxtr nglfs # optional description
+@end verbatim
+which contain signature @samp{MGLD} and number of points @var{npnts}, number of primitives @var{nprim}, number of textures @var{ntxtr}, number of glyph descriptions @var{nglfs}, and optional description. Empty strings and string with @samp{#} are ignored.
+
+Next, file contain @var{npnts} strings with points coordinates and colors. The format of each string is
+@verbatim
+x y z c t ta u v w r g b a
+@end verbatim
+Here @var{x}, @var{y}, @var{z} are coordinates, @var{c}, @var{t} are color indexes in texture, @var{ta} is normalized @var{t} according to current alpha setting, @var{u}, @var{v}, @var{w} are coordinates of normal vector (can be @code{NAN} if disabled), @var{r}, @var{g}, @var{b}, @var{a} are RGBA color values.
+
+Next, file contain @var{nprim} strings with properties of primitives. The format of each string is
+@verbatim
+type n1 n2 n3 n4 id s w p
+@end verbatim
+Here @var{type} is kind of primitive (0 - mark, 1 - line, 2 - triangle, 3 - quadrangle, 4 - glyph), @var{n1}...@var{n4} is index of point for vertexes,  @var{id} is primitive identification number, @var{s} and @var{w} are size and width if applicable, @var{p} is scaling factor for glyphs.
+
+Next, file contain @var{ntxtr} strings with descriptions of textures. The format of each string is
+@verbatim
+smooth alpha colors
+@end verbatim
+Here @var{smooth} set to enable smoothing between colors, @var{alpha} set to use half-transparent texture, @var{colors} contain color scheme itself as it described in @ref{Color scheme}.
+
+Finally, file contain @var{nglfs} entries with description of each glyph used in the figure. The format of entries are
+@verbatim
+nT nL
+xA yA xB yB xC yC ...
+xP yP ...
+@end verbatim
+Here nT is the number of triangles; nL is the number of line vertexes; xA, yA, xB, yB, xC, yC are coordinates of triangles; and xP, yP, xQ, yQ are coordinates of lines. Line coordinate xP=0x3fff, yP=0x3fff denote line breaking.
+
+@c ------------------------------------------------------------------
+@external
+@node JSON format, , MGLD format, File formats
+@section JSON format
+
+MathGL can save points and primitives of 3D object. It contain a set of variables listed below.
+
+@table @samp
+@item width
+width of the image;
+@item height
+height of the image
+@item depth
+depth of the image, usually =sqrt(width*height);
+
+@item npnts
+number of points (vertexes);
+@item pnts
+array of coordinates of points (vertexes), each element is array in form [x, y, z];
+
+@item nprim
+number of primitives;
+@item prim
+array of primitives, each element is array in form [type, n1, n2, n3, n4, id, s, w, p, z, color]. 
+
+Here @var{type} is kind of primitive (0 - mark, 1 - line, 2 - triangle, 3 - quadrangle, 4 - glyph), @var{n1}...@var{n4} is index of point for vertexes and @var{n2} can be index of glyph coordinate, @var{s} and @var{w} are size and width if applicable, @var{z} is average z-coordinate, @var{id} is primitive identification number, @var{p} is scaling factor for glyphs.
+
+@item ncoor
+number of glyph positions
+@item coor
+array of glyph positions, each element is array in form [dx,dy]
+
+@item nglfs
+number of glyph descriptions
+@item glfs
+array of glyph descriptions, each element is array in form [nT, nL, [xA0, yA0, xB0, yB0, xC0, yC0, xA1, yA1, xB1, yB1, xC1, yC1 ...], [xP0, yP0, xP1, yP1 ...]]. Here nT is the number of triangles; nL is the number of line vertexes; xA, yA, xB, yB, xC, yC are coordinates of triangles; and xP, yP, xQ, yQ are coordinates of lines. Line coordinate xP=0x3fff, yP=0x3fff denote line breaking.
+
+@end table
+@external

diff --git a/texinfo/json.html b/texinfo/json.html
new file mode 100644 (file)
index 0000000..cfa8bd7
--- /dev/null
+++ b/texinfo/json.html
@@ -0,0 +1,121 @@
+<!DOCTYPE html>
+
+<html>
+
+<head>
+       <script type="text/javascript" src="mathgl.js"></script>
+</head>
+
+<body onload="main();">
+
+Select sample
+
+<select id="select" onchange="mglChange()">
+       <option value="alpha">alpha</option>
+       <option value="area">area</option>
+       <option value="aspect">aspect</option>
+       <option value="axial">axial</option>
+       <option value="axis">axis</option>
+       <option value="barh">barh</option>
+       <option value="bars">bars</option>
+       <option value="belt">belt</option>
+       <option value="box">box</option>
+       <option value="boxplot">boxplot</option>
+       <option value="boxs">boxs</option>
+       <option value="candle">candle</option>
+       <option value="chart">chart</option>
+       <option value="cloud">cloud</option>
+       <option value="colorbar">colorbar</option>
+       <option value="combined">combined</option>
+       <option value="cones">cones</option>
+       <option value="conta">conta</option>
+       <option value="contd">contd</option>
+       <option value="contfa">contfa</option>
+       <option value="contf">contf</option>
+       <option value="contf_xyz">contf_xyz</option>
+       <option value="cont">cont</option>
+       <option value="contv">contv</option>
+       <option value="cont_xyz">cont_xyz</option>
+       <option value="curvcoor">curvcoor</option>
+       <option value="cut">cut</option>
+       <option value="dat_diff">dat_diff</option>
+       <option value="dat_extra">dat_extra</option>
+       <option value="densa">densa</option>
+       <option value="dens">dens</option>
+       <option value="dens_xyz">dens_xyz</option>
+       <option value="dew">dew</option>
+       <option value="dots">dots</option>
+       <option value="error">error</option>
+       <option value="fall">fall</option>
+       <option value="fit">fit</option>
+       <option value="flow">flow</option>
+       <option value="fog">fog</option>
+       <option value="fonts">fonts</option>
+       <option value="grad">grad</option>
+       <option value="hist">hist</option>
+       <option value="inplot">inplot</option>
+       <option value="label">label</option>
+       <option value="legend">legend</option>
+       <option value="loglog">loglog</option>
+       <option value="map">map</option>
+       <option value="mark">mark</option>
+       <option value="mesh">mesh</option>
+       <option value="mirror">mirror</option>
+       <option value="molecule">molecule</option>
+       <option value="parser">parser</option>
+       <option value="pde">pde</option>
+       <option value="pipe">pipe</option>
+       <option value="plot">plot</option>
+       <option value="primitives">primitives</option>
+       <option value="projection5">projection5</option>
+       <option value="projection">projection</option>
+       <option value="qo2d">qo2d</option>
+       <option value="radar">radar</option>
+       <option value="region">region</option>
+       <option value="schemes">schemes</option>
+       <option value="several_light">several_light</option>
+       <option value="solve">solve</option>
+       <option value="stem">stem</option>
+       <option value="step">step</option>
+       <option value="stereo">stereo</option>
+       <option value="stfa">stfa</option>
+       <option value="style">style</option>
+       <option value="surf3a">surf3a</option>
+       <option value="surf3c">surf3c</option>
+       <option value="surf3">surf3</option>
+       <option value="surfa">surfa</option>
+       <option value="surfc">surfc</option>
+       <option value="surf">surf</option>
+       <option value="table">table</option>
+       <option value="tape">tape</option>
+       <option value="tens">tens</option>
+       <option value="ternary">ternary</option>
+       <option value="text">text</option>
+       <option value="textmark">textmark</option>
+       <option value="ticks">ticks</option>
+       <option value="tile">tile</option>
+       <option value="tiles">tiles</option>
+       <option value="torus">torus</option>
+       <option value="traj">traj</option>
+       <option value="triangulation">triangulation</option>
+       <option value="triplot">triplot</option>
+       <option value="tube">tube</option>
+       <option value="vecta">vecta</option>
+       <option value="vect">vect</option>
+       <option value="venn">venn</option>
+</select> 
+
+<p>You can use mouse with pressed left button for rotation; with pressed middle button for shift; mouse wheel for zoom in/out. Double click will restore original view.</p>
+<center>
+<canvas id="canvas" width="800" height="600"
+       style="border:1px solid #d3d3d3;" onmousemove="mglMouseMove()"
+       onmousedown="mglMouseDown()" onmouseup="mglMouseUp()"
+       onmouseout="mglMouseUp()" onmousewheel="mglMouseWheel()"
+       ondblclick="mglRestore()"></canvas>
+</center>
+
+<p id="time"></p>
+
+</body>
+
+</html>

diff --git a/texinfo/mathgl.js b/texinfo/mathgl.js
new file mode 100644 (file)
index 0000000..c431f7e
--- /dev/null
+++ b/texinfo/mathgl.js
@@ -0,0 +1,496 @@
+/***************************************************************************
+ * mathgl.js is part of Math Graphic Library
+ * Copyright (C) 2012 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU Library General Public License as       *
+ *   published by the Free Software Foundation; either version 3 of the    *
+ *   License, or (at your option) any later version.                       *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU Library General Public     *
+ *   License along with this program; if not, write to the                 *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+var obj;
+var ctx;
+var deg = Math.PI/180;  //0.017453293;
+
+var main = function()
+{
+       ctx = document.getElementById("canvas").getContext("2d");
+       ctx.lineCap="round";    // global setting
+
+//     mgl_init("json/test.json");
+       mgl_init("json/alpha.json");
+       var t1 = new Date();
+       mgl_draw_good(obj, ctx);
+//     draw_fast(obj, ctx);
+       var t2 = new Date();
+       document.getElementById("time").innerHTML = "Drawing time is "+(t2.getTime()-t1.getTime())+" ms. Number of primitives is "+obj.nprim+". Canvas size is "+obj.width+"*"+obj.height+" points.";
+};
+
+var mglChange = function()
+{
+       var name = document.getElementById("select").value;
+       mgl_init("json/"+name+".json");
+       var t1 = new Date();
+       ctx.clearRect(0,0,obj.width,obj.height);
+       mgl_draw_good(obj, ctx);
+//     draw_fast(obj, ctx);
+       var t2 = new Date();
+       document.getElementById("time").innerHTML = "Drawing time is "+(t2.getTime()-t1.getTime())+" ms. Number of primitives is "+obj.nprim;
+}
+
+// mouse handling functions
+var mglMouseUp = function()
+{      obj.button = 0; obj.good = 0;
+       ctx.clearRect(0,0,obj.width,obj.height);
+       mgl_draw_good(obj, ctx);        }
+var mglMouseDown = function()
+{
+       obj.good = 1;
+       obj.mouseX = window.event.clientX;
+       obj.mouseY = window.event.clientY;
+       obj.button = window.event.button+1;
+}
+var mglMouseMove = function()
+{
+       var x = window.event.clientX-obj.mouseX;
+       var y = window.event.clientY-obj.mouseY;
+       switch(obj.button)
+       {
+       case 1: // rotate
+               mgl_rotate_down(obj, y*90/obj.height);
+               mgl_rotate_left(obj, x*90/obj.width);   break;
+       case 2: // shift
+               mgl_shift_down(obj, y/obj.height);
+               mgl_shift_right(obj, x/obj.width);              break;
+       case 3: // zoom
+               mgl_zoom_in(obj, Math.pow(1.003,x));    break;
+        }
+       if(obj.button)
+       {
+               obj.mouseX += x;        obj.mouseY += y;
+               mgl_draw(obj, ctx);
+       }
+}
+var mglMouseWheel = function()
+{
+       var e = window.event;
+       var d = e.wheelDelta? e.wheelDelta:e.detail*(-120);
+
+/*     var x = window.event.clientX;
+       var y = obj.height-window.event.clientY;
+       mgl_shift_down(obj, -y/obj.height);
+       mgl_shift_right(obj, x/obj.width);*/
+
+       mgl_zoom_in(obj, Math.pow(1.002,d));
+       mgl_draw(obj, ctx);
+}
+var mglRestore = function()
+{
+       mgl_restore(obj);
+       ctx.clearRect(0,0,obj.width,obj.height);
+       mgl_draw_good(obj,ctx);
+}
+
+// The function load data and set up rotation/zoom state
+var mgl_init = function(name)
+{
+       // now obtain JSON data
+       var req = new XMLHttpRequest();
+       req.open( "GET", name, false );
+       req.send(null);
+       obj = JSON.parse(req.responseText);
+
+       // copy original data for transformation
+       obj.pp = new Array();
+       for(var i=0;i<obj.npnts;i++)    // copy original data for transformation
+               obj.pp[i] = [obj.pnts[i][0],obj.pnts[i][1],obj.pnts[i][2]];
+       // and set other variables
+       obj.pf = 0;             // perspective should be |pf|<1
+       obj.z  = [0,1, 0,1];    // current zoom/shift
+       obj.tet= 0;             // current tet-angle for rotation
+       obj.phi= 0;             // current phi-angle for rotation
+       obj.bet= 0;             // current beta-angle for rotation
+       obj.button = 0; // pressed mouse buttons (0-none, 1-left, 2-right)
+       obj.mouseX=0;
+       obj.mouseY=0;
+       obj.fast = 0;
+       obj.good = 0;
+}
+
+// Functions for rotation, shifting and zooming of the picture as whole
+// Basically it redefine obj properties by user-friendly manner
+var mgl_rotate_left = function(obj,val)        {       obj.tet += val; }
+var mgl_rotate_right = function(obj,val){      obj.tet -= val; }
+var mgl_rotate_up = function(obj,val)  {       obj.bet += val; }
+var mgl_rotate_down = function(obj,val)        {       obj.bet -= val; }
+var mgl_restore = function(obj)                // restore transformation state
+{      obj.tet=obj.phi=obj.bet=0;      obj.z=[0,1,0,1];        obj.pf=0;       }
+var mgl_perspective = function(obj,val) // add perspective, def.value=0.1
+{
+       var x = obj.pf/(1-obj.pf) + val;
+       obj.pf = x/(1+x);       // let use this formula for "smooth" changing
+}
+var mgl_zoom_in = function(obj,factor)         // zoom in picture
+{      if(factor)      mgl_zoom_out(obj,1/factor);     }
+var mgl_zoom_out = function(obj,factor)        // zoom out picture
+{
+       var d, c;
+       d=(obj.z[3]-obj.z[2])*factor/2; c=(obj.z[3]+obj.z[2])/2;
+       obj.z[2] = c-d; obj.z[3] = c+d;
+       d=(obj.z[1]-obj.z[0])*factor/2; c=(obj.z[1]+obj.z[0])/2;
+       obj.z[0] = c-d; obj.z[1] = c+d;
+}
+var mgl_shift_up = function(obj,val)   // shift up
+{      mgl_shift_down(obj,-val);       }
+var mgl_shift_down = function(obj,val) // shift down
+{
+       var d=val/(obj.z[3]-obj.z[2]);
+       obj.z[2] -= d; obj.z[3] -= d;
+}
+var mgl_shift_left = function(obj,val) // shift left
+{      mgl_shift_right(obj,-val);      }
+var mgl_shift_right = function(obj,val)        // shift right
+{
+       var d=val/(obj.z[1]-obj.z[0]);
+       obj.z[0] -= d; obj.z[1] -= d;
+}
+
+// This function make drawing itself
+var mgl_draw = function(obj, ctx)
+{
+       ctx.clearRect(0,0,obj.width,obj.height);
+       if(obj.good==0)
+       {
+               obj.good = 1;
+               setTimeout(function(){mgl_draw_good(obj, ctx);},300);
+       }
+       else if(obj.fast==0)
+       {
+               obj.fast = 1;
+               setTimeout(function(){mgl_draw_fast(obj, ctx);},0);
+       }
+/*     var t1 = new Date();
+       draw_good(obj, ctx);
+//     draw_fast(obj, ctx);
+       var t2 = new Date();
+       console.debug("execution time is ", t2.getTime()-t1.getTime());*/
+}
+
+
+// This function make fast drawing
+var mgl_draw_fast = function(obj, ctx, skip)
+{
+       if(obj.fast==0) return;
+       mgl_prepare(obj,skip);  // update coordinates
+       var i,n1;
+       for(var i=0;i<obj.nprim;i++)    // for each primitive
+       {
+               var n1 = obj.prim[i][1];
+               ctx.fillStyle = obj.prim[i][10];
+               ctx.fillRect(obj.pp[n1][0], obj.pp[n1][1], 1, 1);
+       }
+       obj.fast = 0;
+}
+
+// This function make high-quality drawing
+var mgl_draw_good = function(obj, ctx, skip)
+{
+       obj.fast = 0;
+       mgl_prepare(obj,skip);  // update coordinates
+       // NOTE: this valid only for current zoom/view. In general case it should be more complicated
+       var scl = Math.sqrt(obj.b[0]*obj.b[0]+obj.b[1]*obj.b[1]+obj.b[2]*obj.b[2]);
+       for(var i=0;i<obj.nprim;i++)    // for each primitive
+       {
+               var n1 = obj.prim[i][1], n2 = obj.prim[i][2];
+               var n3 = obj.prim[i][3], n4 = obj.prim[i][4];
+               ctx.strokeStyle = obj.prim[i][10];
+               ctx.fillStyle = obj.prim[i][10];
+               ctx.lineWidth = 1;
+               switch(obj.prim[i][0])          // draw it depending on its type
+               {
+               case 0: // marks
+//                     var d = 0.35*(obj.width>obj.height?obj.height:obj.width)*scl;
+                       ctx.lineWidth = obj.prim[i][7]*obj.prim[i][6]*50;
+                       mgl_draw_mark(ctx, obj.pp[n1][0], obj.pp[n1][1], n4, obj.prim[i][6], scl);
+                       break;
+               case 1: // lines
+                       ctx.beginPath();
+                       ctx.moveTo(obj.pp[n1][0],obj.pp[n1][1]);
+                       ctx.lineTo(obj.pp[n2][0],obj.pp[n2][1]);
+                       ctx.lineWidth = obj.prim[i][7];
+                       ctx.stroke();   break;
+               case 2: // triangles
+                       ctx.beginPath();
+                       ctx.moveTo(obj.pp[n1][0],obj.pp[n1][1]);
+                       ctx.lineTo(obj.pp[n2][0],obj.pp[n2][1]);
+                       ctx.lineTo(obj.pp[n3][0],obj.pp[n3][1]);
+                       ctx.closePath();        ctx.fill();     break;
+               case 3: // quadrangles
+                       ctx.beginPath();
+                       ctx.moveTo(obj.pp[n1][0],obj.pp[n1][1]);
+                       ctx.lineTo(obj.pp[n2][0],obj.pp[n2][1]);
+                       ctx.lineTo(obj.pp[n4][0],obj.pp[n4][1]);
+                       ctx.lineTo(obj.pp[n3][0],obj.pp[n3][1]);
+                       ctx.closePath();
+                       // NOTE: look as alpha is disabled for lines
+                       // So, next code should be only for the case alpha=false
+                       if(obj.prim[i][10].charAt(0)=='#')      ctx.stroke();
+                       ctx.fill();     break;
+               case 4: // glyphs
+                       var t=obj.prim[i][7]*deg;
+                       var xx=obj.coor[n2][2],yy=-obj.coor[n2][3],zz=obj.coor[n2][4];
+                       var xc = obj.b[0]*xx + obj.b[1]*yy + obj.b[2]*zz;
+                       var yc = obj.b[3]*xx + obj.b[4]*yy + obj.b[5]*zz;
+                       var zc = obj.b[6]*xx + obj.b[7]*yy + obj.b[8]*zz;
+                       var ll = xc*xc+yc*yc;
+                       if(ll < 1e-10)  break;
+                       if(ll<1e10)     t = Math.atan2(yc,xc);
+                       var c=Math.cos(t), s=Math.sin(t), d=obj.prim[i][6]/2;
+
+                       var b=[d*c, d*s, d*s, -d*c, obj.pp[n1][0],obj.pp[n1][1]];
+                       var x=obj.coor[n2][0]*scl, y=obj.coor[n2][1]*scl, f=obj.prim[i][8]*scl;
+                       if(n3&8)
+                       {
+                               if(!(n3&4))     mgl_line_glyph(ctx, x,y, f,1,b);
+                               mgl_line_glyph(ctx, x,y, f,0,b);
+                       }
+                       else
+                       {
+                               if(!(n3&4)) mgl_fill_glyph(ctx, x,y, f,obj.glfs[n4],b);
+                               mgl_wire_glyph(ctx, x,y, f,obj.glfs[n4],b);
+                       }
+                       break;
+               }
+       }
+       obj.good = 0;
+}
+
+// This function change coordinates according current transformations
+// Usually this Function is called internally by draw()
+var mgl_prepare = function(obj, skip)
+{
+       // fill transformation matrix
+       if(!skip)
+       {
+               var dx = 1/Math.abs(obj.z[1]-obj.z[0]);
+               var dy = 1/Math.abs(obj.z[3]-obj.z[2]);
+               var cx=Math.cos(obj.tet*deg), sx=Math.sin(obj.tet*deg); // tetx
+               var cy=Math.cos(obj.phi*deg), sy=Math.sin(obj.phi*deg); // tety
+               var cz=Math.cos(obj.bet*deg), sz=Math.sin(obj.bet*deg); // tetz
+               obj.b = [dx*cx*cy, -dx*cy*sx, dx*sy,
+                                       dy*(cx*sy*sz+cz*sx), dy*(cx*cz-sx*sy*sz), -dy*cy*sz,
+                                       sx*sz-cx*cz*sy, cx*sz+cz*sx*sy, cy*cz,
+                                       obj.width/2*(1+dx-obj.z[1]-obj.z[0])/dx,
+                                       obj.height/2*(1+dy-obj.z[3]-obj.z[2])/dy, obj.depth/2];
+       }
+       // now transform points for found transformation matrix
+       var b = obj.b, i;
+       for(i=0;i<obj.npnts;i++)
+       {
+               var x = obj.pnts[i][0]-obj.width/2;
+               var y = obj.pnts[i][1]-obj.height/2;
+               var z = obj.pnts[i][2]-obj.depth/2;
+               obj.pp[i] = [b[9]  + b[0]*x + b[1]*y + b[2]*z,
+                                        b[10] + b[3]*x + b[4]*y + b[5]*z,
+                                        b[11] + b[6]*x + b[7]*y + b[8]*z];
+       }
+       if(obj.pf)      for(var i=0;i<obj.npnts;i++)    // perspective
+       {       // NOTE: it is not supported for coordinate determining now
+               var d = (1-obj.pf)/(1-obj.pf*obj.pp[i][2]/obj.depth);
+               obj.pp[i][0] = d*obj.pp[i][0] + (1-d)/2*obj.width;
+               obj.pp[i][1] = d*obj.pp[i][1] + (1-d)/2*obj.height;
+       }
+       // fill z-coordinates for primitives
+       if(!obj.fast)
+       {
+               for(i=0;i<obj.nprim;i++)
+               {
+                       var n1 = obj.prim[i][1], n2 = obj.prim[i][2], n3 = obj.prim[i][3], n4 = obj.prim[i][4];
+                       switch(obj.prim[i][0])
+                       {
+                       case 1: // lines
+                               obj.prim[i][9] = (obj.pp[n1][2]+obj.pp[n2][2])/2;       break;
+                       case 2: // triangles
+                               obj.prim[i][9] = (obj.pp[n1][2]+obj.pp[n2][2]+obj.pp[n3][2])/3; break;
+                       case 3: // quadrangles
+                               obj.prim[i][9] = (obj.pp[n1][2]+obj.pp[n2][2]+obj.pp[n3][2]+obj.pp[n4][2])/4;   break;
+                       default:
+                               obj.prim[i][9] = obj.pp[n1][2]; break;
+                       }
+               }
+               obj.prim.sort(mgl_cmp); // more accurate sorting
+       }
+}
+
+var mgl_cmp = function(a,b)
+{
+       var tt = [0,2,4,5, 1,3,6, 7];
+       if(a[9]!=b[9])  return a[9] - b[9];
+       if(a[0]!=b[0])  return tt[b[0]]-tt[a[0]];
+       if(a[8]!=b[8])  return a[8] - b[8];
+       return a[3]-b[3];
+}
+
+// Function for drawing markers of type st with given size at position {x,y}
+// Usually this function is called internally, but it can be called by user as well
+var mgl_draw_mark = function(ctx,x,y,st,size,d)
+{
+       if(size<=0) {   st = 46;        size=1; }
+       var s = size*d;
+       ctx.beginPath();
+       switch(st)
+       {
+       case 111:       // 'o'
+               ctx.arc(x,y,s,0,Math.PI*2);      ctx.stroke();  break;
+       case 79:        // 'O'
+               ctx.arc(x,y,s,0,Math.PI*2);      ctx.fill();     break;
+       case 67:        // 'C'
+               ctx.arc(x,y,s,0,Math.PI*2);      ctx.stroke();
+               ctx.arc(x,y,0.1*s,0,Math.PI*2); ctx.fill();      break;
+       case 80:        // 'P'
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y-s);
+               ctx.lineTo(x+s,y+s);    ctx.lineTo(x-s,y+s);    ctx.lineTo(x-s,y-s);
+               ctx.moveTo(x-s,y);              ctx.lineTo(x+s,y);
+               ctx.moveTo(x,y-s);              ctx.lineTo(x,y+s);
+               ctx.stroke();   break;
+       case 43:        // '+'
+               ctx.moveTo(x-s,y);              ctx.lineTo(x+s,y);
+               ctx.moveTo(x,y-s);              ctx.lineTo(x,y+s);
+               ctx.stroke();   break;
+       case 88:        // 'X'
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y-s);
+               ctx.lineTo(x+s,y+s);    ctx.lineTo(x-s,y+s);    ctx.lineTo(x-s,y-s);
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y+s);
+               ctx.moveTo(x+s,y-s);    ctx.lineTo(x-s,y+s);
+               ctx.stroke();   break;
+       case 120:       // 'x'
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y+s);
+               ctx.moveTo(x+s,y-s);    ctx.lineTo(x-s,y+s);
+               ctx.stroke();   break;
+       case 115:       // 's'
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y-s);
+               ctx.lineTo(x+s,y+s);    ctx.lineTo(x-s,y+s);
+               ctx.closePath();                ctx.stroke();   break;
+       case 83:        // 'S'
+               ctx.moveTo(x-s,y-s);    ctx.lineTo(x+s,y-s);
+               ctx.lineTo(x+s,y+s);    ctx.lineTo(x-s,y+s);
+               ctx.closePath();                ctx.fill();      break;
+       case 100:       // 'd'
+               ctx.moveTo(x-s,y);              ctx.lineTo(x,y-s);
+               ctx.lineTo(x+s,y);              ctx.lineTo(x,y+s);
+               ctx.closePath();                ctx.stroke();   break;
+       case 68:        // 'D'
+               ctx.moveTo(x-s,y);              ctx.lineTo(x,y-s);
+               ctx.lineTo(x+s,y);              ctx.lineTo(x,y+s);
+               ctx.closePath();                ctx.fill();      break;
+       case 42:        // '*'
+               ctx.moveTo(x-s,y);              ctx.lineTo(x+s,y);
+               ctx.moveTo(x-0.6*s,y-0.8*s);    ctx.lineTo(x+0.6*s,y+0.8*s);
+               ctx.moveTo(x+0.6*s,y-0.8*s);    ctx.lineTo(x-0.6*s,y+0.8*s);
+               ctx.stroke();   break;
+       case 89:        // 'Y'
+               ctx.moveTo(x,y-s);              ctx.lineTo(x,y);
+               ctx.moveTo(x-0.8*s,y+0.6*s);    ctx.lineTo(x,y);
+               ctx.moveTo(x+0.8*s,y+0.6*s);    ctx.lineTo(x,y);
+               ctx.stroke();   break;
+       case 86:        // 'T'
+               ctx.moveTo(x-s,y-s/2);  ctx.lineTo(x+s,y-s/2);
+               ctx.lineTo(x,y+s);              ctx.closePath();
+               ctx.fill();      break;
+       case 118:       // '^'
+               ctx.moveTo(x-s,y-s/2);  ctx.lineTo(x+s,y-s/2);
+               ctx.lineTo(x,y+s);              ctx.closePath();
+               ctx.stroke();   break;
+       case 84:        // 'V'
+               ctx.moveTo(x-s,y+s/2);  ctx.lineTo(x+s,y+s/2);
+               ctx.lineTo(x,y-s);              ctx.closePath();
+               ctx.fill();      break;
+       case 94:        // 'v'
+               ctx.moveTo(x-s,y+s/2);  ctx.lineTo(x+s,y+s/2);
+               ctx.lineTo(x,y-s);              ctx.closePath();
+               ctx.stroke();   break;
+       case 76:        // 'L'
+               ctx.moveTo(x+s/2,y-s);  ctx.lineTo(x+s/2,y+s);
+               ctx.lineTo(x-s,y);              ctx.closePath();
+               ctx.fill();      break;
+       case 60:        // '<'
+               ctx.moveTo(x+s/2,y-s);  ctx.lineTo(x+s/2,y+s);
+               ctx.lineTo(x-s,y);              ctx.closePath();
+               ctx.stroke();   break;
+       case 82:        // 'R'
+               ctx.moveTo(x-s/2,y-s);  ctx.lineTo(x-s/2,y+s);
+               ctx.lineTo(x+s,y);              ctx.closePath();
+               ctx.fill();      break;
+       case 62:        // '>'
+               ctx.moveTo(x-s/2,y-s);  ctx.lineTo(x-s/2,y+s);
+               ctx.lineTo(x+s,y);              ctx.closePath();
+               ctx.stroke();   break;
+//     case 46:        // '.'
+       default:
+               ctx.rect(x,y,1,1); ctx.fill();   break;
+       }
+}
+
+// This function for internal use only!!!
+var mgl_fill_glyph = function(ctx, x,y, f,g,b)
+{
+       var xx,yy,j,xs,ys;
+       for(j=0;j<g[0];j++)
+       {
+               xx = x+f*g[2][6*j];     yy = y+f*g[2][6*j+1]; ctx.beginPath();
+               ctx.moveTo(b[4]+b[0]*xx+b[1]*yy, b[5]+b[2]*xx+b[3]*yy)
+               xx = x+f*g[2][6*j+2]; yy = y+f*g[2][6*j+3];
+               ctx.lineTo(b[4]+b[0]*xx+b[1]*yy, b[5]+b[2]*xx+b[3]*yy)
+               xx = x+f*g[2][6*j+4]; yy = y+f*g[2][6*j+5];
+               ctx.lineTo(b[4]+b[0]*xx+b[1]*yy, b[5]+b[2]*xx+b[3]*yy)
+               ctx.closePath();        ctx.fill();
+       }
+}
+// This function for internal use only!!!
+var mgl_wire_glyph = function(ctx, x,y, f,g,b)
+{
+       var xx,yy,j,xs,ys;
+       var np=1;       ctx.beginPath();
+       for(j=0;j<g[1];j++)
+       {
+               xx = g[3][2*j]; yy = g[3][2*j+1];
+               if(xx==16383 && yy==16383)
+               {
+                       ctx.closePath();        ctx.stroke();
+                       ctx.beginPath();        np = 1;
+               }
+               else if(np)
+               {
+                       xx = x+f*xx;    yy = y+f*yy;    np = 0;
+                       ctx.moveTo(b[4]+b[0]*xx+b[1]*yy, b[5]+b[2]*xx+b[3]*yy);
+               }
+               else
+               {
+                       xx = x+f*xx;    yy = y+f*yy;
+                       ctx.lineTo(b[4]+b[0]*xx+b[1]*yy, b[5]+b[2]*xx+b[3]*yy);
+               }
+       }
+       ctx.closePath();        ctx.stroke();
+}
+// This function for internal use only!!!
+var mgl_line_glyph = function(ctx, x,y, f,solid,b)
+{
+       var xx,yy,j,xs,ys;
+       var dy = 0.004;
+       ctx.moveTo(b[4]+b[0]*x+b[1]*(y-dy), b[5]+b[2]*x+b[3]*(y-dy));
+       ctx.lineTo(b[4]+b[0]*x+b[1]*(y+dy), b[5]+b[2]*x+b[3]*(y+dy));
+       ctx.lineTo(b[4]+b[0]*(x+f)+b[1]*(y+dy), b[5]+b[2]*(x+f)+b[3]*(y+dy));
+       ctx.lineTo(b[4]+b[0]*(x+f)+b[1]*(y-dy), b[5]+b[2]*(x+f)+b[3]*(y-dy));
+       ctx.closePath();
+       if(solid)       ctx.fill();
+       else            ctx.stroke();
+}

diff --git a/texinfo/mathgl_en.texi b/texinfo/mathgl_en.texi
index fdbf3faf464f8313e8f5a6b4144fbbe9407f7984..982afe447a13c5686e3a377fa03f957db49d7137 100644 (file)
--- a/texinfo/mathgl_en.texi
+++ b/texinfo/mathgl_en.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mathgl_en.info
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This manual is for MathGL (version @value{VERSION}), a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -47,21 +33,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This file documents the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -73,7 +45,10 @@ supports it in developing GNU and promoting software freedom.''
 * Widget classes::
 * Data processing::
 * MGL scripts::
+* UDAV::
 * Other classes::
+* Symbols and hot-keys::
+* File formats::
 * TeX-like symbols::
 * Copying This Manual::
 * Index::
@@ -90,6 +65,9 @@ supports it in developing GNU and promoting software freedom.''
 @center @image{../png/\fname\, 11cm, , \text\, .png}
 @c @center @image{../png/\fname\, 11cm, , \text\. See also @uref{../pdf/\fname\.pdf, U3D PDF} sample, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{../udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end ifhtml
 
 @ifnothtml
@@ -100,6 +78,9 @@ supports it in developing GNU and promoting software freedom.''
 @macro pfig {fname,text}
 @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end iftex
 
 @ifnottex
@@ -109,6 +90,9 @@ supports it in developing GNU and promoting software freedom.''
 @macro pfig {fname,text}
 @c @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@c @center @image{../udav/\fname\, 11cm, , \text\, .png}
+@end macro
 @end ifnottex
 @end ifnothtml
 
@@ -139,13 +123,24 @@ supports it in developing GNU and promoting software freedom.''
 @node Data processing, MGL scripts, Widget classes, Top
 @include data_en.texi
 
-@node MGL scripts, Other classes, Data processing, Top
+@node MGL scripts, UDAV, Data processing, Top
 @include parse_en.texi
 
-@node Other classes, TeX-like symbols, MGL scripts, Top
+@node UDAV, Other classes, MGL scripts, Top
+@include udav_en.texi
+
+@node Other classes, Symbols and hot-keys, UDAV, Top
 @include other_en.texi
 
-@node TeX-like symbols, Copying This Manual, Other classes, Top
+@node Symbols and hot-keys, File formats, Other classes, Top
+@appendix Symbols and hot-keys
+@include symbols_en.texi
+
+@node File formats, TeX-like symbols, Symbols and hot-keys, Top
+@appendix File formats
+@include formats_en.texi
+
+@node TeX-like symbols, Copying This Manual, File formats, Top
 @appendix TeX-like symbols
 @include appendix_en.texi
 

diff --git a/texinfo/mathgl_ru.texi b/texinfo/mathgl_ru.texi
index e2133b895a27d2a3763eb7e2bccc2caf081bcd63..1180134dc95f87f12f50eadd4f382cb5921e5951 100644 (file)
--- a/texinfo/mathgl_ru.texi
+++ b/texinfo/mathgl_ru.texi
@@ -2,7 +2,7 @@
 @setfilename mathgl_ru.info
 @c @documentlanguage ru
 @documentencoding UTF-8
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -10,21 +10,7 @@
 @copying
 Это документация для MathGL (версии @value{VERSION}) -- библиотеки классов и функций для построения научной графики. Пожалуйста сообщайте о любых ошибках в этом руководстве на @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2009 Алексей Балакин.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -49,21 +35,7 @@ supports it in developing GNU and promoting software freedom.''
 
 Это документация для MathGL (версии @value{VERSION}) -- библиотеки классов и функций для построения научной графики. Пожалуйста сообщайте о любых ошибках в этом руководстве на @email{mathgl.abalakin@@gmail.org}. Дополнительную информацию о MathGL можно найти на домашней странице проекта @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2009 Алексей Балакин.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -75,7 +47,10 @@ supports it in developing GNU and promoting software freedom.''
 * Widget classes::
 * Data processing::
 * MGL scripts::
+* UDAV::
 * Other classes::
+* Symbols and hot-keys::
+* File formats::
 * TeX-like symbols::
 * Copying This Manual::
 * Index::
@@ -92,6 +67,9 @@ supports it in developing GNU and promoting software freedom.''
 @center @image{../png/\fname\, 11cm, , \text\, .png}
 @c @center @image{../png/\fname\, 11cm, , \text\, .png}. See also @uref{../pdf/\fname\.pdf, U3D PDF} sample.
 @end macro
+@macro ufig {fname,width,text}
+@center @image{../udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end ifhtml
 
 @ifnothtml
@@ -102,6 +80,9 @@ supports it in developing GNU and promoting software freedom.''
 @macro pfig {fname,text}
 @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@center @image{udav/\fname\, \width\cm, , \text\, .png}
+@end macro
 @end iftex
 
 @ifnottex
@@ -111,6 +92,9 @@ supports it in developing GNU and promoting software freedom.''
 @macro pfig {fname,text}
 @c @center @image{png/\fname\, 11cm, , \text\, .png}
 @end macro
+@macro ufig {fname,width,text}
+@c @center @image{../udav/\fname\, 11cm, , \text\, .png}
+@end macro
 @end ifnottex
 @end ifnothtml
 
@@ -141,14 +125,25 @@ supports it in developing GNU and promoting software freedom.''
 @node Data processing, MGL scripts, Widget classes, Top
 @include data_ru.texi
 
-@node MGL scripts, Other classes, Data processing, Top
+@node MGL scripts, UDAV, Data processing, Top
 @include parse_ru.texi
 
-@node Other classes, TeX-like symbols, MGL scripts, Top
+@node UDAV, Other classes, MGL scripts, Top
+@include udav_ru.texi
+
+@node Other classes, Symbols and hot-keys, UDAV, Top
 @include other_ru.texi
 
-@node TeX-like symbols, Copying This Manual, Other classes, Top
-@appendix Символы TeX
+@node Symbols and hot-keys, File formats, Other classes, Top
+@appendix Symbols and hot-keys
+@include symbols_ru.texi
+
+@node File formats, TeX-like symbols, Symbols and hot-keys, Top
+@appendix File formats
+@include formats_ru.texi
+
+@node TeX-like symbols, Copying This Manual, File formats, Top
+@appendix TeX-like symbols
 @include appendix_ru.texi
 
 @node Copying This Manual, Index, TeX-like symbols, Top

diff --git a/texinfo/mgl_en.texi b/texinfo/mgl_en.texi
index 9b8e8a3df82fbcce29044df1ed3dbe4537d0359d..f45b88353848e2ec514786ea8037bfdc8717b454 100644 (file)
--- a/texinfo/mgl_en.texi
+++ b/texinfo/mgl_en.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mgl_en.info
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle MGL script language for version @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This manual is for MathGL (version @value{VERSION}), a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -47,31 +33,18 @@ supports it in developing GNU and promoting software freedom.''
 
 This file documents the MGL script language. It corresponds to release @value{VERSION} of the MathGL library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MGL and MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
 @menu
 @c * Overview::
-@c * Examples::
 * MGL scripts::
 * General concepts::
 * MathGL core::
 * Data processing::
+* Examples::
+* Symbols and hot-keys::
 * Copying This Manual::
 * Index::
 @end menu
@@ -81,10 +54,10 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro fig {fname,text}
-@center @image{../\fname\, 11cm, , \text\, .png}
+@center @image{\fname\, 11cm, , \text\, png}
 @end macro
 @macro pfig {fname,text}
-@center @image{../png/\fname\, 11cm, , \text\, .png}
+@center @image{png/\fname\, 11cm, , \text\, png}
 @c @center @image{../png/\fname\, 11cm, , \text\. See also @uref{../pdf/\fname\.pdf, U3D PDF} sample, .png}
 @end macro
 @end ifhtml
@@ -110,18 +83,13 @@ supports it in developing GNU and promoting software freedom.''
 @end ifnothtml
 
 @rmacro sref {arg}
+@xref{\arg\}, for sample code and picture.
 @end rmacro
 @macro tdref {nam}
 @end macro
 @set UDAV
 
 
-@c @node Overview, Examples, , Top
-@c @include overview_en.texi
-
-@c @node Examples, MGL scripts, Overview, Top
-@c @include ex_mgl_en.texi
-
 @node MGL scripts, General concepts, , Top
 @include parse_en.texi
 
@@ -131,10 +99,17 @@ supports it in developing GNU and promoting software freedom.''
 @node MathGL core, Data processing, General concepts, Top
 @include core_en.texi
 
-@node Data processing, Copying This Manual, MathGL core, Top
+@node Data processing, Examples, MathGL core, Top
 @include data_en.texi
 
-@node Copying This Manual, Index, Data processing, Top
+@node Examples, Symbols and hot-keys, Data processing, Top
+@include ex_mgl_en.texi
+
+@node Symbols and hot-keys, Copying This Manual, Examples, Top
+@appendix Symbols and hot-keys
+@include symbols_en.texi
+
+@node Copying This Manual, Index, Symbols and hot-keys, Top
 @appendix GNU Free Documentation License
 @include fdl.texi
 

diff --git a/texinfo/mgl_ru.texi b/texinfo/mgl_ru.texi
index 4bf75748c6e50c17e57796a28344e37889462e69..c7e0a91f178d0c34db29a2d6ce9943c6d646a979 100644 (file)
--- a/texinfo/mgl_ru.texi
+++ b/texinfo/mgl_ru.texi
@@ -2,7 +2,7 @@
 @setfilename mgl_ru.info
 @c @documentlanguage ru
 @documentencoding UTF-8
-@set VERSION 2.0.3
+@set VERSION 2.1
 @settitle Язык MGL для версии @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -10,21 +10,7 @@
 @copying
 Это документация для MathGL (версии @value{VERSION}) -- библиотеки классов и функций для построения научной графики. Пожалуйста сообщайте о любых ошибках в этом руководстве на @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2009 Алексей Балакин.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @dircategory MathGL documentation system
@@ -49,31 +35,18 @@ supports it in developing GNU and promoting software freedom.''
 
 Это документация для языка MGL (версии @value{VERSION}). Пожалуйста сообщайте о любых ошибках в этом руководстве на @email{mathgl.abalakin@@gmail.org}. Дополнительную информацию о MGL и MathGL можно найти на домашней странице проекта @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2010 Алексей Балакин.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
 @menu
 @c * Overview::
-@c * Examples::
 * MGL scripts::
 * General concepts::
 * MathGL core::
 * Data processing::
+* Examples::
+* Symbols and hot-keys::
 * Copying This Manual::
 * Index::
 @end menu
@@ -112,6 +85,7 @@ supports it in developing GNU and promoting software freedom.''
 @end ifnothtml
 
 @rmacro sref {arg}
+См. @ref{\arg\}, для примеров кода и графика.
 @end rmacro
 @macro tdref {nam}
 @end macro
@@ -120,9 +94,6 @@ supports it in developing GNU and promoting software freedom.''
 @c @node Overview, Examples, , Top
 @c @include overview_ru.texi
 
-@c @node Examples, MGL scripts, Overview, Top
-@c @include ex_mgl_ru.texi
-
 @node MGL scripts, General concepts, , Top
 @include parse_ru.texi
 
@@ -132,10 +103,17 @@ supports it in developing GNU and promoting software freedom.''
 @node MathGL core, Data processing, General concepts, Top
 @include core_ru.texi
 
-@node Data processing, Copying This Manual, MathGL core, Top
+@node Data processing, Examples, MathGL core, Top
 @include data_ru.texi
 
-@node Copying This Manual, Index, Data processing, Top
+@node Examples, Symbols and hot-keys, Data processing, Top
+@include ex_mgl_ru.texi
+
+@node Symbols and hot-keys, Copying This Manual, Examples, Top
+@appendix Symbols and hot-keys
+@include symbols_ru.texi
+
+@node Copying This Manual, Index, Symbols and hot-keys, Top
 @appendix GNU Free Documentation License
 @include fdl.texi
 

diff --git a/texinfo/other_en.texi b/texinfo/other_en.texi
index ccff6fa112faadfd138aedd695ef33ccd4e8c32e..90b6b4ad9ef2f6284215a942f0a43795d6b2e972 100644 (file)
--- a/texinfo/other_en.texi
+++ b/texinfo/other_en.texi
@@ -2,22 +2,21 @@
 @c ------------------------------------------------------------------
 @chapter Other classes
 
-There are only 5 end-user classes: @code{mglGraph} (see @ref{MathGL core}), @code{mglWindow} and @code{mglGLUT} (see @ref{Widget classes}), @code{mglData} (see @ref{Data processing}), @code{mglParse} (see @ref{MGL scripts}). Exactly these classes I recommend to use in most of user programs. All methods in all of these classes are inline and have exact C/Fortran analogue functions. This give compiler independent binary libraries for MathGL.
+There are few end-user classes: @code{mglGraph} (see @ref{MathGL core}), @code{mglWindow} and @code{mglGLUT} (see @ref{Widget classes}), @code{mglData} (see @ref{Data processing}), @code{mglParse} (see @ref{MGL scripts}). Exactly these classes I recommend to use in most of user programs. All methods in all of these classes are inline and have exact C/Fortran analogue functions. This give compiler independent binary libraries for MathGL.
 
 However, sometimes you may need to extend MathGL by writing yours own plotting functions or handling yours own data structures. In these cases you may need to use low-level API. This chapter describes it.
 
 @fig{classes, Class diagram for MathGL}
 
-The internal structure of MathGL is rather complicated. There are C++ classes @code{mglBase}, @code{mglCanvas}, ... for drawing primitives and positioning the plot (blue ones in the figure). There is a layer of C functions, which include interface for most important methods of these classes. Also most of plotting functions are implemented as C functions. After it, there are ``inline'' front-end classes which are created for user convenience (yellow ones in the figure). Also there are 2 classes which are widgets for FLTK and Qt libraries (green ones in the figure).
+The internal structure of MathGL is rather complicated. There are C++ classes @code{mglBase}, @code{mglCanvas}, ... for drawing primitives and positioning the plot (blue ones in the figure). There is a layer of C functions, which include interface for most important methods of these classes. Also most of plotting functions are implemented as C functions. After it, there are ``inline'' front-end classes which are created for user convenience (yellow ones in the figure). Also there are widgets for FLTK and Qt libraries (green ones in the figure).
 
 Below I show how this internal classes can be used.
 
 @menu
 * mglBase class::
 * mglDataA class::
-* mglColor class::              
-* mglPoint class::              
-* mglFont class::
+* mglColor class::
+* mglPoint class::
 @end menu
 
 
@@ -69,7 +68,7 @@ I use global setting for determining the number of points in circle approximatio
 @end verbatim
 Let try to determine plot specific flags. MathGL functions expect that most of flags will be sent in string. In our case it is symbol @samp{@@} which set to draw filled circle instead of border only (last will be default). Note, you have to handle @code{NULL} as string pointer.
 @verbatim
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
 @end verbatim
 Now, time for coloring. I use palette mechanism because circle have few colors: one for filling and another for border. @code{SetPenPal()} function parse input string and write resulting texture index in @var{pal}. Function return the character for marker, which can be specified in string @var{str}. Marker will be plotted at the center of circle. I'll show on next sample how you can use color schemes (smooth colors) too.
 @verbatim
@@ -159,7 +158,7 @@ In this case let allow negative radius too. Formally it is not the problem for p
   static int cgid=1;  gr->StartGroup("CircleCS",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
 @end verbatim
 Here is main difference. We need to create texture for color scheme specified by user
 @verbatim
@@ -249,7 +248,7 @@ void circle(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl, const
   static int cgid=1;  gr->StartGroup("Circle",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
   long pal=0;
   char mk=gr->SetPenPal(stl,&pal);
   mreal c=gr->NextColor(pal), d;
@@ -279,7 +278,7 @@ void circle_cs(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl, con
   static int cgid=1;  gr->StartGroup("CircleCS",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
   long ss = gr->AddTexture(stl);
   const char *pen=0;
   if(stl) pen = strchr(stl,':');
@@ -485,7 +484,7 @@ Return inverted color.
 
 @c ------------------------------------------------------------------
 @external
-@node mglPoint class, mglFont class, mglColor class, Other classes
+@node mglPoint class, , mglColor class, Other classes
 @section mglPoint class
 @cindex mglPoint
 
@@ -558,111 +557,5 @@ Return true if points are the same.
 Return true if points are different.
 @end deftypefn
 
-@c ------------------------------------------------------------------
-@external
-@node mglFont class, , mglPoint class, Other classes
-@section mglFont class
-@cindex mglFont
-
-Class for working with font: load, get metrics, parse and draw strings. This class is defined in @code{#include <mgl2/font.h>}. This class is accessible only from C++ (and only from GNU compilers in default binary files).
-
-The class is based on loading and drawing of vector Hershey font. There are two styles of specifying of the font type and aligning: by integer parameters or by string.
-
-The string can be any combination of characters: @samp{rbiLCRwou}. The font types are: @samp{r} -- roman font, @samp{i} -- italic style, @samp{b} -- bold style. By default roman font (that is @samp{} or @samp{r}) is used. The align types are: @samp{L} -- align left (default), @samp{C} -- align center, @samp{R} -- align right. Additional font effects are: @samp{w} -- wire, @samp{o} -- over-lined, @samp{u} -- underlined. Parsing of the string to special (TeX-like) commands will be done if variable @var{parse} is true (it's default). See also @pxref{Font styles}.
-
-The over way of font and alignment setting is the using of the integer constant. Integer font Id can be one of predefined constants: @code{MGL_FONT_ITAL, MGL_FONT_BOLD, MGL_FONT_BOLD_ITAL = MGL_FONT_ITAL+MGL_FONT_BOLD}. Default font is @code{MGL_FONT_ROMAN}. Also there are flags @code{MGL_FONT_ULINE, MGL_FONT_OLINE, MGL_FONT_WIRE} for additional font effects. Align parameter controls the text alignment: 0 -- align left, 1 -- align center, 2 -- align right.
-
-
-@menu
-* Format of font files::
-@end menu
-
-
-@deftypemethod mglFont @code{} mglFont (@code{const char *}name=@code{MGL_DEF_FONT_NAME}, @code{const char *}path=@code{NULL})
-Initialize the font and load data from file @var{name} (default name is "STIX" for Linux and MacOS) or if  @var{name}=@code{NULL} limited data from memory (default for Windows).
-@end deftypemethod
-@deftypemethod mglFont @code{bool} Load (@code{const char *} base, @code{const char *}path=@code{NULL})
-Load font from file @var{path}/@var{base} into the memory. The font may contain 4 files: @var{base}.vfm, @var{base}_b.vfm, @var{base}_i.vfm, @var{base}_bi.vfm. Appendix contain detailed description of font format.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Restore ()
-Restore default font.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Copy (@code{mglFont *}fnt)
-Copy data from other font instance.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Clear ()
-Clear memory by deleting the loaded font.
-@end deftypemethod
-@deftypemethod mglFont @code{unsigned} GetNumGlyph ()
-Return the number of glyphs in the font.
-@end deftypemethod
-@deftypemethod mglFont @code{bool} Ready ()
-Return true if font is loaded and ready for use.
-@end deftypemethod
-
-
-@deftypemethod mglFont @code{mreal} Height (@code{int} font)
-Gets height of text for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const char *}str, @code{int} font=@code{0}, @code{int} align=@code{0})
-Prints 8-bit text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const char *}str, @code{int} font=@code{0})
-Gets width of 8-bit text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const wchar_t *}str, @code{int} font=@code{0}, @code{int} align=@code{0})
-Prints Unicode text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const wchar_t *}str, @code{int} font=@code{0})
-Gets width of Unicode text string for font specified by integer constant.
-@end deftypemethod
-
-
-@deftypemethod mglFont @code{mreal} Height (@code{const char *}how)
-Gets height of text for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const char *}str, @code{const char *}how)
-Prints 8-bit text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const char *}str, @code{const char *}how)
-Gets width of 8-bit text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const wchar_t *}str, @code{const char *}how)
-Prints Unicode text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const wchar_t *}str, @code{const char *}how)
-Gets width of Unicode text string for font specified by string.
-@end deftypemethod
-
-@deftypecv {Parameter} mglFont @code{HMGL} gr
-Instance of mglGraph class which is used for character drawing.
-@end deftypecv
-@deftypecv {Parameter} mglFont @code{bool} parse
-Flag for switching on/off the parsing of TeX commands. Default value is @code{true}.
-@end deftypecv
-
-@c ------------------------------------------------------------------
-@external
-@node Format of font files, , , mglFont class
-@subsection Format of font files
-
-Starting from v.1.6 the MathGL library uses new font files. The font is defined in 4 files with suffixes @samp{*.vfm}, @samp{*_b.vfm}, @samp{*_i.vfm}, @samp{*_bi.vfm}. These files are text files containing the data for roman font, bold font, italic font and bold italic font. The files (or some symbols in the files) for bold, italic or bold italic fonts can be absent. In this case the roman glyph will be used for them. By analogy, if the bold italic font is absent but the bold font is present then bold glyph will be used for bold italic. You may create these font files by yourself from *.ttf, *.otf files with the help of program @code{font_tools}. This program can be found at MathGL home site.
-
-The format of font files (*.vfm -- vector font for MathGL) is the following.
-@enumerate
-@item
-First string contains human readable comment and is always ignored.
-@item
-Second string contains 3 numbers, delimited by space or tabulation. The order of numbers is the following: @var{numg} -- the number of glyphs in the file (integer), @var{fact} -- the factor for glyph sizing (mreal), @var{size} -- the size of buffer for glyph description (integer).
-@item
-After it @var{numg}-th strings with glyphs description are placed. Each string contains 6 positive numbers, delimited by space of tabulation. The order of numbers is the following: Unicode glyph ID, glyph width, number of lines in glyph, position of lines coordinates in the buffer (length is 2*number of lines), number of triangles in glyph, position of triangles coordinates in the buffer (length is 6*number of triangles).
-@item
-The end of file contains the buffer with point coordinates at lines or triangles vertexes. The size of buffer (the number of integer) is @var{size}.
-@end enumerate
-
-Each font file can be compressed by gzip.
-
-Note: the closing contour line  is done automatically (so the last segment may be absent). For starting new contour use a point with coordinates @code{@{0x3fff, 0x3fff@}}.
-
 @external
 

diff --git a/texinfo/other_ru.texi b/texinfo/other_ru.texi
index ccff6fa112faadfd138aedd695ef33ccd4e8c32e..aff14433f17311e245007d6c4af1ed132c60f3c5 100644 (file)
--- a/texinfo/other_ru.texi
+++ b/texinfo/other_ru.texi
@@ -2,22 +2,21 @@
 @c ------------------------------------------------------------------
 @chapter Other classes
 
-There are only 5 end-user classes: @code{mglGraph} (see @ref{MathGL core}), @code{mglWindow} and @code{mglGLUT} (see @ref{Widget classes}), @code{mglData} (see @ref{Data processing}), @code{mglParse} (see @ref{MGL scripts}). Exactly these classes I recommend to use in most of user programs. All methods in all of these classes are inline and have exact C/Fortran analogue functions. This give compiler independent binary libraries for MathGL.
+There are few end-user classes: @code{mglGraph} (see @ref{MathGL core}), @code{mglWindow} and @code{mglGLUT} (see @ref{Widget classes}), @code{mglData} (see @ref{Data processing}), @code{mglParse} (see @ref{MGL scripts}). Exactly these classes I recommend to use in most of user programs. All methods in all of these classes are inline and have exact C/Fortran analogue functions. This give compiler independent binary libraries for MathGL.
 
 However, sometimes you may need to extend MathGL by writing yours own plotting functions or handling yours own data structures. In these cases you may need to use low-level API. This chapter describes it.
 
 @fig{classes, Class diagram for MathGL}
 
-The internal structure of MathGL is rather complicated. There are C++ classes @code{mglBase}, @code{mglCanvas}, ... for drawing primitives and positioning the plot (blue ones in the figure). There is a layer of C functions, which include interface for most important methods of these classes. Also most of plotting functions are implemented as C functions. After it, there are ``inline'' front-end classes which are created for user convenience (yellow ones in the figure). Also there are 2 classes which are widgets for FLTK and Qt libraries (green ones in the figure).
+The internal structure of MathGL is rather complicated. There are C++ classes @code{mglBase}, @code{mglCanvas}, ... for drawing primitives and positioning the plot (blue ones in the figure). There is a layer of C functions, which include interface for most important methods of these classes. Also most of plotting functions are implemented as C functions. After it, there are ``inline'' front-end classes which are created for user convenience (yellow ones in the figure). Also there are widgets for FLTK, Qt and other libraries (green ones in the figure).
 
 Below I show how this internal classes can be used.
 
 @menu
 * mglBase class::
 * mglDataA class::
-* mglColor class::              
-* mglPoint class::              
-* mglFont class::
+* mglColor class::
+* mglPoint class::
 @end menu
 
 
@@ -69,7 +68,7 @@ I use global setting for determining the number of points in circle approximatio
 @end verbatim
 Let try to determine plot specific flags. MathGL functions expect that most of flags will be sent in string. In our case it is symbol @samp{@@} which set to draw filled circle instead of border only (last will be default). Note, you have to handle @code{NULL} as string pointer.
 @verbatim
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
 @end verbatim
 Now, time for coloring. I use palette mechanism because circle have few colors: one for filling and another for border. @code{SetPenPal()} function parse input string and write resulting texture index in @var{pal}. Function return the character for marker, which can be specified in string @var{str}. Marker will be plotted at the center of circle. I'll show on next sample how you can use color schemes (smooth colors) too.
 @verbatim
@@ -159,7 +158,7 @@ In this case let allow negative radius too. Formally it is not the problem for p
   static int cgid=1;  gr->StartGroup("CircleCS",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
 @end verbatim
 Here is main difference. We need to create texture for color scheme specified by user
 @verbatim
@@ -249,7 +248,7 @@ void circle(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl, const
   static int cgid=1;  gr->StartGroup("Circle",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
   long pal=0;
   char mk=gr->SetPenPal(stl,&pal);
   mreal c=gr->NextColor(pal), d;
@@ -279,7 +278,7 @@ void circle_cs(HMGL gr, mreal x, mreal y, mreal z, mreal r, const char *stl, con
   static int cgid=1;  gr->StartGroup("CircleCS",cgid++);
   gr->SaveState(opt);
   const int n = gr->MeshNum>1?gr->MeshNum : 41;
-  bool fill = stl && strchr(stl,'@');
+  bool fill = mglchr(stl,'@');
   long ss = gr->AddTexture(stl);
   const char *pen=0;
   if(stl) pen = strchr(stl,':');
@@ -485,7 +484,7 @@ Return inverted color.
 
 @c ------------------------------------------------------------------
 @external
-@node mglPoint class, mglFont class, mglColor class, Other classes
+@node mglPoint class, , mglColor class, Other classes
 @section mglPoint class
 @cindex mglPoint
 
@@ -558,111 +557,5 @@ Return true if points are the same.
 Return true if points are different.
 @end deftypefn
 
-@c ------------------------------------------------------------------
-@external
-@node mglFont class, , mglPoint class, Other classes
-@section mglFont class
-@cindex mglFont
-
-Class for working with font: load, get metrics, parse and draw strings. This class is defined in @code{#include <mgl2/font.h>}. This class is accessible only from C++ (and only from GNU compilers in default binary files).
-
-The class is based on loading and drawing of vector Hershey font. There are two styles of specifying of the font type and aligning: by integer parameters or by string.
-
-The string can be any combination of characters: @samp{rbiLCRwou}. The font types are: @samp{r} -- roman font, @samp{i} -- italic style, @samp{b} -- bold style. By default roman font (that is @samp{} or @samp{r}) is used. The align types are: @samp{L} -- align left (default), @samp{C} -- align center, @samp{R} -- align right. Additional font effects are: @samp{w} -- wire, @samp{o} -- over-lined, @samp{u} -- underlined. Parsing of the string to special (TeX-like) commands will be done if variable @var{parse} is true (it's default). See also @pxref{Font styles}.
-
-The over way of font and alignment setting is the using of the integer constant. Integer font Id can be one of predefined constants: @code{MGL_FONT_ITAL, MGL_FONT_BOLD, MGL_FONT_BOLD_ITAL = MGL_FONT_ITAL+MGL_FONT_BOLD}. Default font is @code{MGL_FONT_ROMAN}. Also there are flags @code{MGL_FONT_ULINE, MGL_FONT_OLINE, MGL_FONT_WIRE} for additional font effects. Align parameter controls the text alignment: 0 -- align left, 1 -- align center, 2 -- align right.
-
-
-@menu
-* Format of font files::
-@end menu
-
-
-@deftypemethod mglFont @code{} mglFont (@code{const char *}name=@code{MGL_DEF_FONT_NAME}, @code{const char *}path=@code{NULL})
-Initialize the font and load data from file @var{name} (default name is "STIX" for Linux and MacOS) or if  @var{name}=@code{NULL} limited data from memory (default for Windows).
-@end deftypemethod
-@deftypemethod mglFont @code{bool} Load (@code{const char *} base, @code{const char *}path=@code{NULL})
-Load font from file @var{path}/@var{base} into the memory. The font may contain 4 files: @var{base}.vfm, @var{base}_b.vfm, @var{base}_i.vfm, @var{base}_bi.vfm. Appendix contain detailed description of font format.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Restore ()
-Restore default font.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Copy (@code{mglFont *}fnt)
-Copy data from other font instance.
-@end deftypemethod
-@deftypemethod mglFont @code{void} Clear ()
-Clear memory by deleting the loaded font.
-@end deftypemethod
-@deftypemethod mglFont @code{unsigned} GetNumGlyph ()
-Return the number of glyphs in the font.
-@end deftypemethod
-@deftypemethod mglFont @code{bool} Ready ()
-Return true if font is loaded and ready for use.
-@end deftypemethod
-
-
-@deftypemethod mglFont @code{mreal} Height (@code{int} font)
-Gets height of text for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const char *}str, @code{int} font=@code{0}, @code{int} align=@code{0})
-Prints 8-bit text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const char *}str, @code{int} font=@code{0})
-Gets width of 8-bit text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const wchar_t *}str, @code{int} font=@code{0}, @code{int} align=@code{0})
-Prints Unicode text string for font specified by integer constant.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const wchar_t *}str, @code{int} font=@code{0})
-Gets width of Unicode text string for font specified by integer constant.
-@end deftypemethod
-
-
-@deftypemethod mglFont @code{mreal} Height (@code{const char *}how)
-Gets height of text for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const char *}str, @code{const char *}how)
-Prints 8-bit text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const char *}str, @code{const char *}how)
-Gets width of 8-bit text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Puts (@code{const wchar_t *}str, @code{const char *}how)
-Prints Unicode text string for font specified by string.
-@end deftypemethod
-@deftypemethod mglFont @code{mreal} Width (@code{const wchar_t *}str, @code{const char *}how)
-Gets width of Unicode text string for font specified by string.
-@end deftypemethod
-
-@deftypecv {Parameter} mglFont @code{HMGL} gr
-Instance of mglGraph class which is used for character drawing.
-@end deftypecv
-@deftypecv {Parameter} mglFont @code{bool} parse
-Flag for switching on/off the parsing of TeX commands. Default value is @code{true}.
-@end deftypecv
-
-@c ------------------------------------------------------------------
-@external
-@node Format of font files, , , mglFont class
-@subsection Format of font files
-
-Starting from v.1.6 the MathGL library uses new font files. The font is defined in 4 files with suffixes @samp{*.vfm}, @samp{*_b.vfm}, @samp{*_i.vfm}, @samp{*_bi.vfm}. These files are text files containing the data for roman font, bold font, italic font and bold italic font. The files (or some symbols in the files) for bold, italic or bold italic fonts can be absent. In this case the roman glyph will be used for them. By analogy, if the bold italic font is absent but the bold font is present then bold glyph will be used for bold italic. You may create these font files by yourself from *.ttf, *.otf files with the help of program @code{font_tools}. This program can be found at MathGL home site.
-
-The format of font files (*.vfm -- vector font for MathGL) is the following.
-@enumerate
-@item
-First string contains human readable comment and is always ignored.
-@item
-Second string contains 3 numbers, delimited by space or tabulation. The order of numbers is the following: @var{numg} -- the number of glyphs in the file (integer), @var{fact} -- the factor for glyph sizing (mreal), @var{size} -- the size of buffer for glyph description (integer).
-@item
-After it @var{numg}-th strings with glyphs description are placed. Each string contains 6 positive numbers, delimited by space of tabulation. The order of numbers is the following: Unicode glyph ID, glyph width, number of lines in glyph, position of lines coordinates in the buffer (length is 2*number of lines), number of triangles in glyph, position of triangles coordinates in the buffer (length is 6*number of triangles).
-@item
-The end of file contains the buffer with point coordinates at lines or triangles vertexes. The size of buffer (the number of integer) is @var{size}.
-@end enumerate
-
-Each font file can be compressed by gzip.
-
-Note: the closing contour line  is done automatically (so the last segment may be absent). For starting new contour use a point with coordinates @code{@{0x3fff, 0x3fff@}}.
-
 @external
 

diff --git a/texinfo/overview_en.texi b/texinfo/overview_en.texi
index 9fa4739aa8558483977dc770a68bd5f1e12fded7..22ff9f8788a3fa547ba6bb45fa28d6538f08102c 100644 (file)
--- a/texinfo/overview_en.texi
+++ b/texinfo/overview_en.texi
@@ -21,6 +21,7 @@ a library with large and growing set of graphics.
 * Quick guide::
 * Changes from v.1::
 * Utilities::
+* Thanks::
 @end menu
 
 @external
@@ -72,7 +73,7 @@ MathGL can be installed in 4 different ways.
 @item
 Compile from sources. The cmake build system is useded in the library. To run it, one should execute commands: @code{cmake .} twice, after it @code{make} and @code{make install} with root/sudo rights. Sometimes after installation you may need to update the library list -- just execute @code{ldconfig} with root/sudo rights.
 
-There are several additional options which are switched off by default. They are: @code{enable-fltk, enable-glut, enable-qt} for ebabling FLTK, GLUT and/or Qt windows; @code{enable-jpeg, enable-gif, enable-hdf5} and so on for enabling corresponding file formats; @code{enable-all} for enabling all additional features. For using @code{double} as base internal data type use option @code{enable-double}. For enabling language interfaces use @code{enable-python, enable-octave} or @code{enable-langall} for all languages. You can use WYSIWYG tool (@code{cmake-gui}) to view all of them, or type @code{cmake -D enable-all=on -D enable-langall=on .} in command line for enabling all features.
+There are several additional options which are switched off by default. They are: @code{enable-fltk, enable-glut, enable-qt} for ebabling FLTK, GLUT and/or Qt windows; @code{enable-jpeg, enable-gif, enable-hdf5} and so on for enabling corresponding file formats; @code{enable-all} for enabling all additional features. For using @code{double} as base internal data type use option @code{enable-double}. For enabling language interfaces use @code{enable-python, enable-octave} or @code{enable-all-swig} for all languages. You can use WYSIWYG tool (@code{cmake-gui}) to view all of them, or type @code{cmake -D enable-all=on -D enable-all-widgets=on -D enable-all-swig=on .} in command line for enabling all features.
 
 @item
 Use a precompiled binary. There are binaries for MinGW (platform Win32). For a precompiled variant one needs only to unpack the archive to the location of the compiler (i.e. mathgl/lib in mingw/lib, mathgl/include in mingw/include and so on) or in arbitrary other folder and setup paths in compiler. By default, precompiled versions include the support of GSL (www.gsl.org) and PNG. So, one needs to have these libraries installed on system (it can be found, for example, at @uref{http://gnuwin32.sourceforge.net/packages.html}).
@@ -81,7 +82,10 @@ Use a precompiled binary. There are binaries for MinGW (platform Win32). For a p
 Install precompiled versions from standard packages (RPM, deb, DevPak and so on).
 @end enumerate
 
-Note, you can download the latest sources (which can be not stable) from sourceforge.net SVN by command @code{svn co https://mathgl.svn.sourceforge.net/svnroot/mathgl mathgl} or just download MathGL 2.* sources by command @code{svn co https://mathgl.svn.sourceforge.net/svnroot/mathgl/mathgl-2x mathgl-2x} .
+Note, you can download the latest sources (which can be not stable) from sourceforge.net SVN by command 
+@verbatim
+svn checkout http://svn.code.sf.net/p/mathgl/code/mathgl-2x mathgl-code
+@end verbatim
 
 @c ------------------------------------------------------------------
 @external
@@ -128,7 +132,9 @@ Now picture is ready and we can save it in a file.
 
 To compile your program, you need to specify the linker option @code{-lmgl}.
 
-This is enough for a compilation of console program or with external (non-MathGL) window library. If you want to use FLTK or Qt windows provided by MathGL then you need to add the option @code{-lmgl-wnd}. Fortran users also should add C++ library by the option @code{-lstdc++}.
+This is enough for a compilation of console program or with external (non-MathGL) window library. If you want to use FLTK or Qt windows provided by MathGL then you need to add the option @code{-lmgl-wnd}.
+
+Fortran users also should add C++ library by the option @code{-lstdc++}. If library was built with @code{enable-double=ON} (this default for v.2.1 and later) then all real numbers must be real*8. You can make it automatic if use option @code{-fdefault-real-8}.
 
 @c ------------------------------------------------------------------
 @external
@@ -163,7 +169,7 @@ Add pipes support in utilities (@code{mglconv, mglview}).
 
 @c ------------------------------------------------------------------
 @external
-@node  Utilities, , Changes from v.1, Overview
+@node  Utilities, Thanks, Changes from v.1, Overview
 @section Utilities for parsing MGL
 
 MathGL library provides several tools for parsing MGL scripts. There is tools saving it to bitmap or vectorial images (@code{mglconv}). Tool @code{mglview} show MGL script and allow to rotate and setup the image. Another feature of @code{mglview} is loading *.mgld files (see @code{ExportMGLD()}) for quick viewing 3d pictures.
@@ -190,4 +196,25 @@ print help message.
 
 Additionally you can create animated GIF file or a set of JPEG files with names @samp{frameNNNN.jpg} (here @samp{NNNN} is frame index). Values of the parameter @code{$0} for making animation can be specified inside the script by comment @code{##a val} for each value @code{val} (one comment for one value) or by option(s) @samp{-A val}. Also you can specify a cycle for animation by comment @code{##c v1 v2 dv} or by option @code{-C v1:v2:dv}. In the case of found/specified animation parameters, tool will execute script several times -- once for each value of @code{$0}.
 
+
+@c ------------------------------------------------------------------
+@external
+@node Thanks, , Utilities, Overview
+@section Thanks
+
+@itemize @bullet
+@item
+My special thanks to my wife for the patience during the writing of this library and for the help in documentation writing and spelling.
+@item
+I'm thankful to my coauthors D. Kulagin and M. Vidassov for help in developing MathGL.
+@item
+I'm thankful to D. Eftaxiopoulos, V. Lipatov and S.M. Plis for making binary packages for Linux.
+@item
+I'm thankful to S. Skobelev, C. Mikhailenko, M. Veysman, A. Prokhorov, A. Korotkevich, V. Onuchin, S.M. Plis, R. Kiselev, A. Ivanov, N. Troickiy and V. Lipatov for fruitful comments.
+@item
+I'm thankful to sponsors M. Veysman (@uref{http://jiht.ru/en/about/structure.php?set_filter_structure=Y&structure_UF_DEPARTMENT=241&filter=Y&set_filter=Y, IHED RAS}) and A. Prokhorov (@url{www.datadvance.net, $DATADVANCE}).
+@end itemize
+
+Javascript interface was developed with support of @url{www.datadvance.net, $DATADVANCE} company.
+
 @external

diff --git a/texinfo/overview_ru.texi b/texinfo/overview_ru.texi
index f011658dfec01c625beab0ffe66851c945aefec5..17a1acc05adc3e3acfaaf8208351ee0d916ac199 100644 (file)
--- a/texinfo/overview_ru.texi
+++ b/texinfo/overview_ru.texi
@@ -21,6 +21,7 @@ MathGL это ...
 * Quick guide::
 * Changes from v.1::
 * Utilities::
+* Thanks::
 @end menu
 
 @external
@@ -72,7 +73,7 @@ MathGL это ...
 @item
 Скомпилировать библиотеку непосредственно из исходных файлов. С библиотекой поставляется файлы для системы сборки CMake. Для его запуска достаточно в командной строке выполнить 3 команды: сначала @code{cmake .} дважды, далее @code{make} и, наконец, с правами суперпользователя @code{make install}. Иногда после компиляции библиотеки может потребоваться обновление списка библиотека в системе -- выполните команду @code{ldconfig} с правами суперпользователя.
 
-Есть несколько дополнительных опций, которые по умолчанию отключены. К их числу относятся: @code{enable-fltk, enable-glut, enable-qt} для поддержки FLTK, GLUT и/или Qt окон; @code{enable-jpeg, enable-gif, enable-hdf5} для поддержки соответствующих форматов; @code{enable-all} для включения всех возможностей. Для использования типа @code{double} для внутреннего хранения данных используйте опцию @code{enable-double}. Для создания интерфейсов к другим языкам (кроме С/Фортран/MGL) используйте опции @code{enable-python, enable-octave} или @code{enable-langall} для всех поддерживаемых языков. Вы можете воспользоваться WYSIWYG утилитой (@code{cmake-gui}) для просмотра и изменения всех опций, или выполнить @code{cmake -D enable-all=on -D enable-langall=on .} в командной строке для включения всех опций.
+Есть несколько дополнительных опций, которые по умолчанию отключены. К их числу относятся: @code{enable-fltk, enable-glut, enable-qt} для поддержки FLTK, GLUT и/или Qt окон; @code{enable-jpeg, enable-gif, enable-hdf5} для поддержки соответствующих форматов; @code{enable-all} для включения всех возможностей. Для использования типа @code{double} для внутреннего хранения данных используйте опцию @code{enable-double}. Для создания интерфейсов к другим языкам (кроме С/Фортран/MGL) используйте опции @code{enable-python, enable-octave} или @code{enable-all-swig} для всех поддерживаемых языков. Вы можете воспользоваться WYSIWYG утилитой (@code{cmake-gui}) для просмотра и изменения всех опций, или выполнить @code{cmake -D enable-all=on -D enable-all-widgets=on -D enable-all-swig=on .} в командной строке для включения всех опций.
 
 @item
 Использовать предварительно скомпилированные файлы -- с библиотекой поставляются файлы для MinGW (платформа Win32). В скомпилированной версии достаточно распаковать заголовочные файлы в папку с заголовочными файлами и библиотеку libmgl.a в папку с библиотеками. По умолчанию, скомпилированная версия включают поддержку GSL (www.gsl.org), PNG, GIF и JPEG. Соответственно, при сборке программы эти библиотеки должны быть установлены (их можно найти на @uref{http://gnuwin32.sourceforge.net/packages.html}).
@@ -80,9 +81,12 @@ MathGL это ...
 Установить из стандартных пакетов (RPM, deb, DevPak и пр.).
 @end enumerate
 
-@c TODO Translate it!
+Последнюю версию (которая может быть не стабильна) можно загрузить с  sourceforge.net SVN с помощью команды
+@verbatim
+svn checkout http://svn.code.sf.net/p/mathgl/code/mathgl-2x mathgl-code
+@end verbatim
 
-Note, you can download the latest sources (which can be not stable) from sourceforge.net SVN by command @code{svn co https://mathgl.svn.sourceforge.net/svnroot/mathgl mathgl} or just download MathGL 2.* sources by command @code{svn co https://mathgl.svn.sourceforge.net/svnroot/mathgl/mathgl-2x mathgl-2x} .
+@c TODO Translate it!
 
 @c ------------------------------------------------------------------
 @external
@@ -129,7 +133,9 @@ Now picture is ready and we can save it in a file.
 
 To compile your program, you need to specify the linker option @code{-lmgl}.
 
-This is enough for a compilation of console program or with external (non-MathGL) window library. If you want to use FLTK or Qt windows provided by MathGL then you need to add the option @code{-lmgl-wnd}. Fortran users also should add C++ library by the option @code{-lstdc++}.
+This is enough for a compilation of console program or with external (non-MathGL) window library. If you want to use FLTK or Qt windows provided by MathGL then you need to add the option @code{-lmgl-wnd}.
+
+При использовании фортрана необходимо также включить библиотеку @code{-lstdc++}. Кроме того, если библиотека была собрана с опцией @code{enable-double=ON} (по умолчанию в версии 2.1 и более поздних), то все вещественные числа должны быть типа real*8. Это можно включить по умолчанию опцией @code{-fdefault-real-8}.
 
 @c ------------------------------------------------------------------
 @external
@@ -164,7 +170,7 @@ Add pipes support in utilities (@code{mglconv, mglview}).
 
 @c ------------------------------------------------------------------
 @external
-@node  Utilities, , Changes from v.1, Overview
+@node  Utilities, Thanks, Changes from v.1, Overview
 @section Utilities for parsing MGL
 
 MathGL library provides several tools for parsing MGL scripts. There is tools saving it to bitmap or vectorial images (@code{mglconv}). Tool @code{mglview} show MGL script and allow to rotate and setup the image. Another feature of @code{mglview} is loading *.mgld files (see @code{ExportMGLD()}) for quick viewing 3d pictures.
@@ -191,4 +197,27 @@ print help message.
 
 Additionally you can create animated GIF file or a set of JPEG files with names @samp{frameNNNN.jpg} (here @samp{NNNN} is frame index). Values of the parameter @code{$0} for making animation can be specified inside the script by comment @code{##a val} for each value @code{val} (one comment for one value) or by option(s) @samp{-A val}. Also you can specify a cycle for animation by comment @code{##c v1 v2 dv} or by option @code{-C v1:v2:dv}. In the case of found/specified animation parameters, tool will execute script several times -- once for each value of @code{$0}.
 
+
+@c ------------------------------------------------------------------
+@external
+@node Thanks, , Utilities, Overview
+@section Благодарности
+
+
+@itemize @bullet
+@item
+Моя специальная благодарность моей жене за терпение во время написания библиотеки.
+@item
+Я благодарен моим соавторам Д. Кулагину и М. Видассову за помощь в разработке MathGL.
+@item
+Я благодарен D. Eftaxiopoulos, В. Липатову и С. Плису за создание бинарных пакетов для Linux.
+@item
+Я благодарен С. Скобелеву, К. Михайленко, М. Вейсману, A. Прохорову, A. Короткевичу, В. Онучину, С. Плису, Р. Киселеву, A. Иванову, Н. Троицкому and В. Липатову за продуктивные предложения и обсуждения.
+@item
+Я благодарен спонсорам М. Вейсману (@url{http://www.jiht.ru/about/structure.php?set_filter_structure=Y&structure_UF_DEPARTMENT=241&filter=Y&set_filter=Y, ОИВТ РАН}) и A. Прохорову (@url{www.datadvance.net, $DATADVANCE}).
+@end itemize
+
+Javascript интерфейс был разработан при поддержке компании @url{www.datadvance.net, $DATADVANCE}.
+
+
 @external

diff --git a/texinfo/parse_en.texi b/texinfo/parse_en.texi
index cf3fb4f5cc5f598ec49f3952208993a210e5eb81..e5e4f43b4765082ac5c5ff464ee5a89338c4e63c 100644 (file)
--- a/texinfo/parse_en.texi
+++ b/texinfo/parse_en.texi
@@ -70,7 +70,7 @@ Command may have several set of possible arguments (for example, @code{plot ydat
 @node Program flow commands, MGL definition, MGL scripts
 @section Program flow commands
 
-Below I show commands to control program flow, like, conditions, loops, define script arguments and so on. Other commands can be found in chapters @ref{MathGL core} and @ref{Data processing}.
+Below I show commands to control program flow, like, conditions, loops, define script arguments and so on. Other commands can be found in chapters @ref{MathGL core} and @ref{Data processing}. Note, that some of program flow commands (like @ref{define}, @ref{ask}, @ref{call}, @ref{for}, @ref{func}) should be placed alone in the string.
 
 @cindex chdir
 @anchor{chdir}
@@ -209,46 +209,64 @@ Returns the pointer to internal object of type @code{HMPR}.
 @deftypefn {Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{const char *}text)
 @deftypefnx{Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{const wchar_t *}text)
 @deftypefnx {C function} @code{void} mgl_parse_text (@code{HMGL} gr, @code{HMPR} p, @code{const char *}text)
-@deftypefnx {C function} @code{void} mgl_parsew_text (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}text)
+@deftypefnx {C function} @code{void} mgl_parse_textw (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}text)
 Main function in the class. Function parse and execute line-by-line MGL script in array @var{text}. Lines are separated by newline symbol @samp{\n} as usual.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{FILE *}fp, @code{bool} print=@code{false})
-@deftypefnx {C function} @code{int} mgl_parse_file (@code{HMGL} gr, @code{HMPR} p, @code{FILE *}fp, @code{int} print)
+@deftypefnx {C function} @code{void} mgl_parse_file (@code{HMGL} gr, @code{HMPR} p, @code{FILE *}fp, @code{int} print)
 The same as previous but read script from the file @var{fp}. If @var{print}=@code{true} then all warnings and information will be printed in stdout.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{int} Parse (@code{mglGraph *}gr, @code{const char *}str, @code{long} pos=@code{0})
 @deftypefnx {Method on @code{mglParse}} @code{int} Parse (@code{mglGraph *}gr, @code{const wchar_t *}str, @code{long} pos=@code{0})
-@deftypefnx {C function} @code{int} mgl_parse (@code{HMGL} gr, @code{HMPR} p, @code{const char *}str, @code{int} pos)
-@deftypefnx {C function} @code{int} mgl_parsew (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}str, @code{int} pos)
+@deftypefnx {C function} @code{int} mgl_parse_line (@code{HMGL} gr, @code{HMPR} p, @code{const char *}str, @code{int} pos)
+@deftypefnx {C function} @code{int} mgl_parse_linew (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}str, @code{int} pos)
 Function parses the string @var{str} and executes it by  using @var{gr} as a graphics plotter. Returns the value depending on an error presence in the string @var{str}: 0 -- no error, 1 -- wrong command argument(s), 2 -- unknown command, 3 -- string is too long. Optional argument @var{pos} allows to save the string position in the document (or file) for using @code{for|next} command.
 @end deftypefn
 
+@deftypefn {Method on @code{mglParse}} @code{mglData} Calc (@code{const char *}formula)
+@deftypefnx {Method on @code{mglParse}} @code{mglData} Calc (@code{const wchar_t *}formula)
+@deftypefnx {C function} @code{HMDT} mgl_parser_calc (@code{HMPR} p, @code{const char *}formula)
+@deftypefnx {C function} @code{HMDT} mgl_parser_calcw (@code{HMPR} p, @code{const wchar_t *}formula)
+Function parses the string @var{formula} and return resulting data array. In difference to @code{AddVar()} or @code{FindVar()}, it is usual data array which should be deleted after usage.
+@end deftypefn
+
 
 @deftypefn {Method on @code{mglParse}} @code{void} AddParam (@code{int} n, @code{const char *}str)
 @deftypefnx {Method on @code{mglParse}} @code{void} AddParam (@code{int} n, @code{const wchar_t *}str)
-@deftypefnx {C function} @code{void} mgl_add_param (@code{HMPR} p, @code{int} id, @code{const char *}val)
-@deftypefnx {C function} @code{void} mgl_add_paramw (@code{HMPR} p, @code{int} id, @code{const wchar_t *}val)
+@deftypefnx {C function} @code{void} mgl_parser_add_param (@code{HMPR} p, @code{int} id, @code{const char *}val)
+@deftypefnx {C function} @code{void} mgl_parser_add_paramw (@code{HMPR} p, @code{int} id, @code{const wchar_t *}val)
 Function set the value of @var{n}-th parameter as string @var{str} (@var{n}=0, 1 ... 'z'-'a'+10). String @var{str} shouldn't contain @samp{$} symbol.
 @end deftypefn
 
-@deftypefn {Method on @code{mglParse}} @code{mglData *} FindVar (@code{const char *}name)
-@deftypefnx {C function} @code{HMDT} mgl_find_var  (@code{HMPR} p, @code{const char *}name)
+@deftypefn {Method on @code{mglParse}} @code{mglVar *} FindVar (@code{const char *}name)
+@deftypefnx {Method on @code{mglParse}} @code{mglVar *} FindVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_find_var  (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_find_varw  (@code{HMPR} p, @code{const wchar_t *}name)
 Function returns the pointer to variable with name @var{name} or zero if variable is absent. Use this function to put external data array to the script or get the data from the script. You must @strong{not delete} obtained data arrays!
 @end deftypefn
-@deftypefn {Method on @code{mglParse}} @code{mglData *} AddVar (@code{const char *}name)
-@deftypefnx {C function} @code{HMDT} mgl_add_var (@code{HMPR} p, @code{const char *}name)
+@deftypefn {Method on @code{mglParse}} @code{mglVar *} AddVar (@code{const char *}name)
+@deftypefnx {Method on @code{mglParse}} @code{mglVar *} AddVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_add_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_add_varw (@code{HMPR} p, @code{const wchar_t *}name)
 Function returns the pointer to variable with name @var{name}. If variable is absent then new variable is created with name @var{name}. Use this function to put external data array to the script or get the data from the script. You must @strong{not delete} obtained data arrays!
 @end deftypefn
 
 @deftypefn{Method on @code{mglParse} (C++)} @code{void} DeleteVar (@code{const char *}name)
-@deftypefnx {C function} @code{void} mgl_del_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx{Method on @code{mglParse} (C++)} @code{void} DeleteVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{void} mgl_parser_del_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{void} mgl_parser_del_varw (@code{HMPR} p, @code{const wchar_t *}name)
 Function delete the variable specified by its name or by its pointer.
 @end deftypefn
 
+@deftypefn{Method on @code{mglParse} (C++)} @code{void} DeleteAll ()
+@deftypefnx {C function} @code{void} mgl_parser_del_all (@code{HMPR} p)
+Function delete all variables in this parser.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{void} RestoreOnce ()
-@deftypefnx {C function} @code{void} mgl_restore_once (@code{HMPR} p)
+@deftypefnx {C function} @code{void} mgl_parser_restore_once (@code{HMPR} p)
 Restore Once flag.
 @end deftypefn
 
@@ -257,24 +275,39 @@ Restore Once flag.
 Allow to parse 'setsize' command or not.
 @end deftypefn
 
+@deftypefn {Method on @code{mglParse}} @code{void} AllowFileIO (@code{bool} a)
+@deftypefnx {C function} @code{void} mgl_parser_allow_file_io (@code{HMPR} p, @code{int} a)
+Allow reading/saving files or not.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{void} Stop ()
 @deftypefnx {C function} @code{void} mgl_parser_stop (@code{HMPR} p)
 Sends stop signal which terminate execution at next command.
 @end deftypefn
 
 
+@deftypefn {Method on @code{mglParse}} @code{long} GetCmdNum ()
+@deftypefnx {C function} @code{long} mgl_parser_cmd_num (@code{HMPR} p)
+Return the number of registered MGL commands.
+@end deftypefn
+
+@deftypefn {Method on @code{mglParse}} @code{const char *} GetCmdName (@code{long} id)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_name (@code{HMPR} p, @code{long} id)
+Return the name of command with given @var{id}.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{int} CmdType (@code{const char *}name)
-@deftypefnx {C function} @code{int} mgl_cmd_type (@code{HMPR} p, @code{const char *}name)
-Return the type of MGL command @var{name}. Type of commands are: 0 -- not the command, 1 - data plot, 2 - other plot, 3 - setup, 4 - data handle, 5 - create data, 6 - define subplot, 7 - program flow.
+@deftypefnx {C function} @code{int} mgl_parser_cmd_type (@code{HMPR} p, @code{const char *}name)
+Return the type of MGL command @var{name}. Type of commands are: 0 -- not the command, 1 - data plot, 2 - other plot, 3 - setup, 4 - data handle, 5 - data create, 6 - subplot, 7 - program, 8 - 1d plot, 9 - 2d plot, 10 - 3d plot, 11 - dd plot, 12 - vector plot, 13 - axis, 14 - primitives, 15 - axis setup, 16 - text/legend, 17 - data transform.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{const char *} CmdFormat (@code{const char *}name)
-@deftypefnx {C function} @code{const char *} mgl_cmd_frmt (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_frmt (@code{HMPR} p, @code{const char *}name)
 Return the format of arguments for MGL command @var{name}.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{const char *} CmdDesc (@code{const char *}name)
-@deftypefnx {C function} @code{const char *} mgl_cmd_desc (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_desc (@code{HMPR} p, @code{const char *}name)
 Return the description of MGL command @var{name}.
 @end deftypefn
 

diff --git a/texinfo/parse_ru.texi b/texinfo/parse_ru.texi
index ff53cd63e83b9db8c0ec9424226745154695a658..f01c781b2415eab8b4d27c55fb64d998d4386a7c 100644 (file)
--- a/texinfo/parse_ru.texi
+++ b/texinfo/parse_ru.texi
@@ -75,7 +75,7 @@ MathGL library supports the simplest scripts for data handling and plotting. The
 @node Program flow commands, MGL definition, MGL scripts
 @section Program flow commands
 
-Below I show commands to control program flow, like, conditions, loops, define script arguments and so on. Other commands can be found in chapters @ref{MathGL core} and @ref{Data processing}.
+Below I show commands to control program flow, like, conditions, loops, define script arguments and so on. Other commands can be found in chapters @ref{MathGL core} and @ref{Data processing}. Note, that some of program flow commands (like @ref{define}, @ref{ask}, @ref{call}, @ref{for}, @ref{func}) should be placed alone in the string.
 
 @cindex chdir
 @anchor{chdir}
@@ -214,46 +214,64 @@ Returns the pointer to internal object of type @code{HMPR}.
 @deftypefn {Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{const char *}text)
 @deftypefnx{Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{const wchar_t *}text)
 @deftypefnx {C function} @code{void} mgl_parse_text (@code{HMGL} gr, @code{HMPR} p, @code{const char *}text)
-@deftypefnx {C function} @code{void} mgl_parsew_text (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}text)
+@deftypefnx {C function} @code{void} mgl_parse_textw (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}text)
 Main function in the class. Function parse and execute line-by-line MGL script in array @var{text}. Lines are separated by newline symbol @samp{\n} as usual.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{void} Execute (@code{mglGraph *}gr, @code{FILE *}fp, @code{bool} print=@code{false})
-@deftypefnx {C function} @code{int} mgl_parse_file (@code{HMGL} gr, @code{HMPR} p, @code{FILE *}fp, @code{int} print)
+@deftypefnx {C function} @code{void} mgl_parse_file (@code{HMGL} gr, @code{HMPR} p, @code{FILE *}fp, @code{int} print)
 The same as previous but read script from the file @var{fp}. If @var{print}=@code{true} then all warnings and information will be printed in stdout.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{int} Parse (@code{mglGraph *}gr, @code{const char *}str, @code{long} pos=@code{0})
 @deftypefnx {Method on @code{mglParse}} @code{int} Parse (@code{mglGraph *}gr, @code{const wchar_t *}str, @code{long} pos=@code{0})
-@deftypefnx {C function} @code{int} mgl_parse (@code{HMGL} gr, @code{HMPR} p, @code{const char *}str, @code{int} pos)
-@deftypefnx {C function} @code{int} mgl_parsew (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}str, @code{int} pos)
+@deftypefnx {C function} @code{int} mgl_parse_line (@code{HMGL} gr, @code{HMPR} p, @code{const char *}str, @code{int} pos)
+@deftypefnx {C function} @code{int} mgl_parse_linew (@code{HMGL} gr, @code{HMPR} p, @code{const wchar_t *}str, @code{int} pos)
 Function parses the string @var{str} and executes it by  using @var{gr} as a graphics plotter. Returns the value depending on an error presence in the string @var{str}: 0 -- no error, 1 -- wrong command argument(s), 2 -- unknown command, 3 -- string is too long. Optional argument @var{pos} allows to save the string position in the document (or file) for using @code{for|next} command.
 @end deftypefn
 
+@deftypefn {Method on @code{mglParse}} @code{mglData} Calc (@code{const char *}formula)
+@deftypefnx {Method on @code{mglParse}} @code{mglData} Calc (@code{const wchar_t *}formula)
+@deftypefnx {C function} @code{HMDT} mgl_parser_calc (@code{HMPR} p, @code{const char *}formula)
+@deftypefnx {C function} @code{HMDT} mgl_parser_calcw (@code{HMPR} p, @code{const wchar_t *}formula)
+Function parses the string @var{formula} and return resulting data array. In difference to @code{AddVar()} or @code{FindVar()}, it is usual data array which should be deleted after usage.
+@end deftypefn
+
 
 @deftypefn {Method on @code{mglParse}} @code{void} AddParam (@code{int} n, @code{const char *}str)
 @deftypefnx {Method on @code{mglParse}} @code{void} AddParam (@code{int} n, @code{const wchar_t *}str)
-@deftypefnx {C function} @code{void} mgl_add_param (@code{HMPR} p, @code{int} id, @code{const char *}val)
-@deftypefnx {C function} @code{void} mgl_add_paramw (@code{HMPR} p, @code{int} id, @code{const wchar_t *}val)
+@deftypefnx {C function} @code{void} mgl_parser_add_param (@code{HMPR} p, @code{int} id, @code{const char *}val)
+@deftypefnx {C function} @code{void} mgl_parser_add_paramw (@code{HMPR} p, @code{int} id, @code{const wchar_t *}val)
 Function set the value of @var{n}-th parameter as string @var{str} (@var{n}=0, 1 ... 'z'-'a'+10). String @var{str} shouldn't contain @samp{$} symbol.
 @end deftypefn
 
-@deftypefn {Method on @code{mglParse}} @code{mglData *} FindVar (@code{const char *}name)
-@deftypefnx {C function} @code{HMDT} mgl_find_var  (@code{HMPR} p, @code{const char *}name)
+@deftypefn {Method on @code{mglParse}} @code{mglVar *} FindVar (@code{const char *}name)
+@deftypefnx {Method on @code{mglParse}} @code{mglVar *} FindVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_find_var  (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_find_varw  (@code{HMPR} p, @code{const wchar_t *}name)
 Function returns the pointer to variable with name @var{name} or zero if variable is absent. Use this function to put external data array to the script or get the data from the script. You must @strong{not delete} obtained data arrays!
 @end deftypefn
-@deftypefn {Method on @code{mglParse}} @code{mglData *} AddVar (@code{const char *}name)
-@deftypefnx {C function} @code{HMDT} mgl_add_var (@code{HMPR} p, @code{const char *}name)
+@deftypefn {Method on @code{mglParse}} @code{mglVar *} AddVar (@code{const char *}name)
+@deftypefnx {Method on @code{mglParse}} @code{mglVar *} AddVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_add_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{HMDT} mgl_parser_add_varw (@code{HMPR} p, @code{const wchar_t *}name)
 Function returns the pointer to variable with name @var{name}. If variable is absent then new variable is created with name @var{name}. Use this function to put external data array to the script or get the data from the script. You must @strong{not delete} obtained data arrays!
 @end deftypefn
 
 @deftypefn{Method on @code{mglParse} (C++)} @code{void} DeleteVar (@code{const char *}name)
-@deftypefnx {C function} @code{void} mgl_del_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx{Method on @code{mglParse} (C++)} @code{void} DeleteVar (@code{const wchar_t *}name)
+@deftypefnx {C function} @code{void} mgl_parser_del_var (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{void} mgl_parser_del_varw (@code{HMPR} p, @code{const wchar_t *}name)
 Function delete the variable specified by its name or by its pointer.
 @end deftypefn
 
+@deftypefn{Method on @code{mglParse} (C++)} @code{void} DeleteAll ()
+@deftypefnx {C function} @code{void} mgl_parser_del_all (@code{HMPR} p)
+Function delete all variables in this parser.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{void} RestoreOnce ()
-@deftypefnx {C function} @code{void} mgl_restore_once (@code{HMPR} p)
+@deftypefnx {C function} @code{void} mgl_parser_restore_once (@code{HMPR} p)
 Restore Once flag.
 @end deftypefn
 
@@ -262,24 +280,39 @@ Restore Once flag.
 Allow to parse 'setsize' command or not.
 @end deftypefn
 
+@deftypefn {Method on @code{mglParse}} @code{void} AllowFileIO (@code{bool} a)
+@deftypefnx {C function} @code{void} mgl_parser_allow_file_io (@code{HMPR} p, @code{int} a)
+Allow reading/saving files or not.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{void} Stop ()
 @deftypefnx {C function} @code{void} mgl_parser_stop (@code{HMPR} p)
 Sends stop signal which terminate execution at next command.
 @end deftypefn
 
 
+@deftypefn {Method on @code{mglParse}} @code{long} GetCmdNum ()
+@deftypefnx {C function} @code{long} mgl_parser_cmd_num (@code{HMPR} p)
+Return the number of registered MGL commands.
+@end deftypefn
+
+@deftypefn {Method on @code{mglParse}} @code{const char *} GetCmdName (@code{long} id)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_name (@code{HMPR} p, @code{long} id)
+Return the name of command with given @var{id}.
+@end deftypefn
+
 @deftypefn {Method on @code{mglParse}} @code{int} CmdType (@code{const char *}name)
-@deftypefnx {C function} @code{int} mgl_cmd_type (@code{HMPR} p, @code{const char *}name)
-Return the type of MGL command @var{name}. Type of commands are: 0 -- not the command, 1 - data plot, 2 - other plot, 3 - setup, 4 - data handle, 5 - create data, 6 - define subplot, 7 - program flow.
+@deftypefnx {C function} @code{int} mgl_parser_cmd_type (@code{HMPR} p, @code{const char *}name)
+Return the type of MGL command @var{name}. Type of commands are: 0 -- not the command, 1 - data plot, 2 - other plot, 3 - setup, 4 - data handle, 5 - data create, 6 - subplot, 7 - program, 8 - 1d plot, 9 - 2d plot, 10 - 3d plot, 11 - dd plot, 12 - vector plot, 13 - axis, 14 - primitives, 15 - axis setup, 16 - text/legend, 17 - data transform.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{const char *} CmdFormat (@code{const char *}name)
-@deftypefnx {C function} @code{const char *} mgl_cmd_frmt (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_frmt (@code{HMPR} p, @code{const char *}name)
 Return the format of arguments for MGL command @var{name}.
 @end deftypefn
 
 @deftypefn {Method on @code{mglParse}} @code{const char *} CmdDesc (@code{const char *}name)
-@deftypefnx {C function} @code{const char *} mgl_cmd_desc (@code{HMPR} p, @code{const char *}name)
+@deftypefnx {C function} @code{const char *} mgl_parser_cmd_desc (@code{HMPR} p, @code{const char *}name)
 Return the description of MGL command @var{name}.
 @end deftypefn
 

diff --git a/texinfo/symbols_en.texi b/texinfo/symbols_en.texi
new file mode 100644 (file)
index 0000000..97e9f3f
--- /dev/null
+++ b/texinfo/symbols_en.texi
@@ -0,0 +1,676 @@
+This appendix contain the full list of symbols (characters) used by MathGL for setting up plot. Also it contain sections for full list of hot-keys supported by mglview tool and by UDAV program.
+
+@menu
+* Symbols for styles::
+* Hot-keys for mglview::
+* Hot-keys for UDAV::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node Symbols for styles, Hot-keys for mglview, , Symbols and hot-keys
+@section Symbols for styles
+
+Below is full list of all characters (symbols) which MathGL use for setting up the plot.
+
+@table @samp
+@item space ' '
+empty line style (see @ref{Line styles});
+
+empty color in @ref{chart}.
+
+@item !
+set to use new color from palette for each point (not for each curve, as default) in @ref{1D plotting}.
+
+@item #
+set to use solid marks (see @ref{Line styles}) or solid @ref{error} boxes;
+
+set to draw wired plot for @ref{axial}, @ref{surf3}, @ref{surf3a}, @ref{surf3c}, @ref{triplot}, @ref{quadplot}, @ref{area}, @ref{bars}, @ref{barh}, @ref{tube}, @ref{tape}, @ref{cone}, @ref{boxs} and draw boundary only for @ref{circle}, @ref{ellipse}, @ref{rhomb};
+
+set to draw also mesh lines for @ref{surf}, @ref{surfc}, @ref{surfa}, @ref{dens}, @ref{densx}, @ref{densy}, @ref{densz}, @ref{dens3}, or boundary for @ref{chart}, @ref{facex}, @ref{facey}, @ref{facez}, @ref{rect};
+
+set to draw boundary and box for @ref{legend}, @ref{title}, or grid lines for @ref{table};
+
+set to draw grid for @ref{radar};
+
+set to start flow threads and pipes from edges only for @ref{flow}, @ref{pipe};
+
+set to use whole are for axis range in @ref{subplot}, @ref{inplot};
+
+change text color inside a string (see @ref{Font styles});
+
+start comment in @ref{MGL scripts} or in @ref{Command options}.
+
+@item $
+denote parameter of @ref{MGL scripts}.
+
+@item &
+operation in @ref{Textual formulas}.
+
+@item @quoteright{}
+denote string in @ref{MGL scripts} or in @ref{Command options}.
+
+@item *
+one of marks (see @ref{Line styles});
+
+operation in @ref{Textual formulas}.
+
+@item +
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+operation in @ref{Textual formulas}.
+
+@item ,
+separator for color positions (see @ref{Color styles}) or items in a list.
+
+@item -
+solid line style (see @ref{Line styles});
+
+place entries horizontally in @ref{legend};
+
+operation in @ref{Textual formulas}.
+
+@item .
+one of marks (see @ref{Line styles});
+
+set to draw hachures instead of arrows for @ref{vect}, @ref{vect3};
+
+set to use dots instead of faces for @ref{cloud}, @ref{torus}, @ref{axial}, @ref{surf3}, @ref{surf3a}, @ref{surf3c}, @ref{surf}, @ref{surfa}, @ref{surfc}, @ref{dens}, @ref{map};
+
+delimiter of fractional parts for numbers.
+
+@item /
+operation in @ref{Textual formulas}.
+
+@item :
+line dashing style (see @ref{Line styles});
+
+stop color scheme parsing (see @ref{Color scheme});
+
+range operation in @ref{MGL scripts}.
+
+@item ;
+line dashing style (see @ref{Line styles});
+
+end of an option in @ref{MGL scripts} or in @ref{Command options}.
+
+@item <
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+style of @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+
+@item >
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+style of @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+@item =
+line dashing style (see @ref{Line styles});
+
+set to use equidistant columns for @ref{table};
+
+set to use color gradient for @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+@item @@
+set to draw box around text for @ref{text} and similar functions;
+
+set to draw boundary and fill it for @ref{circle}, @ref{ellipse}, @ref{rhomb};
+
+set to fill faces for @ref{box};
+
+set to draw large semitransparent mark instead of error box for @ref{error};
+
+set to draw edges for @ref{cone};
+
+set to draw filled boxes for @ref{boxs};
+
+reduce text size inside a string (see @ref{Font styles}).
+
+@item ^
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+switch to upper index inside a string (see @ref{Font styles});
+
+operation in @ref{Textual formulas}.
+
+@item _
+empty arrow style (see @ref{Line styles});
+
+disable drawing of tick labels for @ref{axis};
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+set to draw contours at bottom for @ref{cont}, @ref{contf}, @ref{contd}, @ref{contv}, @ref{tricont};
+
+switch to lower index inside a string (see @ref{Font styles}).
+
+@item []
+contain symbols excluded from color scheme parsing (see @ref{Color scheme}).
+
+@item @{@}
+contain extended color specification (see @ref{Color styles});
+
+denote special operation in @ref{MGL scripts};
+
+denote 'meta-symbol' for LaTeX like string parsing (see @ref{Font styles}).
+
+@item |
+line dashing style (see @ref{Line styles});
+
+set to use sharp color scheme (see @ref{Color scheme});
+
+set to limit width by subplot width for @ref{table};
+
+delimiter in @ref{list} command;
+
+operation in @ref{Textual formulas}.
+
+@item \
+string continuation symbol on next line for @ref{MGL scripts}.
+
+@item 0,1,2,3,4,5,6,7,8,9
+line width (see @ref{Line styles});
+
+brightness of a color (see @ref{Color styles});
+
+kind of smoothing (for digits 1,3,5) in @ref{smooth};
+
+digits for a value.
+
+@item A,B,C,D,E,F,a,b,c,d,e,f
+can be hex-digit for color specification if placed inside @{@} (see @ref{Color styles}).
+
+@item A
+arrow style (see @ref{Line styles});
+
+set to use absolute position in whole picture for @ref{text}, @ref{colorbar}, @ref{legend}.
+
+@item a
+set to use absolute position in subplot for @ref{text};
+
+style of @ref{bars}, @ref{barh}.
+
+@item B
+dark blue color (see @ref{Color styles}).
+
+@item b
+blue color (see @ref{Color styles});
+
+bold font face if placed after @samp{:} (see @ref{Font styles}).
+
+@item C
+dark cyan color (see @ref{Color styles});
+
+align text to center if placed after @samp{:} (see @ref{Font styles}).
+
+@item c
+cyan color (see @ref{Color styles});
+
+name of color axis;
+
+cosine transform for @ref{transform}.
+
+@item D
+arrow style (see @ref{Line styles}).
+
+@item d
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes.
+
+@item E
+dark green-yellow color (see @ref{Color styles}).
+
+@item e
+green-yellow color (see @ref{Color styles}).
+
+@item f
+style of @ref{bars}, @ref{barh};
+
+style of @ref{vect}, @ref{vect3};
+
+Fourier transform for @ref{transform}.
+
+@item G
+dark green color (see @ref{Color styles}).
+
+@item g
+green color (see @ref{Color styles}).
+
+@item H
+dark gray color (see @ref{Color styles}).
+
+@item h
+gray color (see @ref{Color styles});
+
+Hankel transform for @ref{transform}.
+
+@item I
+arrow style (see @ref{Line styles});
+
+set @ref{colorbar} position near boundary.
+
+@item i
+line dashing style (see @ref{Line styles});
+
+italic font face if placed after @samp{:} (see @ref{Font styles}).
+
+set to use inverse values for @ref{cloud}, @ref{pipe}, @ref{dew};
+
+set to fill only area with y1<y<y2 for @ref{region};
+
+inverse Fourier transform for @ref{transform}.
+
+@item j
+line dashing style (see @ref{Line styles});
+
+@item K
+arrow style (see @ref{Line styles}).
+
+@item k
+black color (see @ref{Color styles}).
+
+@item L
+dark green-blue color (see @ref{Color styles});
+
+align text to left if placed after @samp{:} (see @ref{Font styles}).
+
+@item l
+green-blue color (see @ref{Color styles}).
+
+@item M
+dark magenta color (see @ref{Color styles}).
+
+@item m
+magenta color (see @ref{Color styles}).
+
+@item N
+dark sky-blue color (see @ref{Color styles}).
+
+@item n
+sky-blue color (see @ref{Color styles}).
+
+@item O
+arrow style (see @ref{Line styles}).
+
+@item o
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+over-line text if placed after @samp{:} (see @ref{Font styles}).
+
+@item P
+dark purple color (see @ref{Color styles}).
+
+@item p
+purple color (see @ref{Color styles}).
+
+@item Q
+dark orange or brown color (see @ref{Color styles}).
+
+@item q
+orange color (see @ref{Color styles}).
+
+@item R
+dark red color (see @ref{Color styles});
+
+align text to right if placed after @samp{:} (see @ref{Font styles}).
+
+@item r
+red color (see @ref{Color styles}).
+
+@item S
+arrow style (see @ref{Line styles});
+
+@item s
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+sine transform for @ref{transform}.
+
+@item T
+arrow style (see @ref{Line styles});
+
+place text under the curve for @ref{text}, @ref{cont}, @ref{cont3}.
+
+@item t
+set to draw text labels for @ref{cont}, @ref{cont3};
+
+name of t-axis (one of ternary axis);
+
+variable in @ref{Textual formulas}, which usually is varied in range [0,1].
+
+@item U
+dark blue-violet color (see @ref{Color styles});
+
+disable rotation of tick labels for @ref{axis}.
+
+@item u
+blue-violet color (see @ref{Color styles});
+
+under-line text if placed after @samp{:} (see @ref{Font styles});
+
+name of u-axis (one of ternary axis);
+
+variable in @ref{Textual formulas}, which usually denote array itself.
+
+@item V
+arrow style (see @ref{Line styles}).
+
+@item v
+one of marks (see @ref{Line styles});
+
+set to draw vectors on flow threads for @ref{flow}.
+
+@item W
+bright gray color (see @ref{Color styles}).
+
+@item w
+white color (see @ref{Color styles});
+
+wired text if placed after @samp{:} (see @ref{Font styles});
+
+name of w-axis (one of ternary axis);
+
+@item x
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+name of x-axis or x-direction or 1st dimension of a data array;
+
+start hex-color described if placed inside @{@} (see @ref{Color styles});
+
+style of @ref{tape}.
+
+@item Y
+dark yellow or gold color (see @ref{Color styles}).
+
+@item y
+yellow color (see @ref{Color styles});
+
+name of y-axis or y-direction or 2nd dimension of a data array.
+
+@item z
+
+name of z-axis or z-direction or 3d dimension of a data array;
+
+style of @ref{tape}.
+
+@end table
+
+
+@c ------------------------------------------------------------------
+@external
+@node Hot-keys for mglview, Hot-keys for UDAV, Symbols for styles, Symbols and hot-keys
+@section Hot-keys for mglview
+
+@multitable @columnfractions .3 .7
+@headitem Key @tab Description
+@item @key{Ctrl-P}
+@tab Open printer dialog and print graphics.
+
+@item @key{Ctrl-W}
+@tab Close window.
+
+@item @key{Ctrl-T}
+@tab Switch on/off transparency for the graphics.
+
+@item @key{Ctrl-L}
+@tab Switch on/off additional lightning for the graphics.
+
+@item @key{Ctrl-Space}
+@tab Restore default graphics rotation, zoom and perspective.
+
+@item @key{F5}
+@tab Execute script and redraw graphics.
+
+@item @key{F6}
+@tab Change canvas size to fill whole region.
+
+@item @key{Ctrl-F5}
+@tab Run slideshow. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-Comma}, @key{Ctrl-Period}
+@tab Show next/previous slide. If no parameter specified then the dialog with slideshow options will appear.
+
+
+@item @key{Ctrl-Shift-G}
+@tab Copy graphics to clipboard.
+
+
+
+@item @key{Alt-P}
+@tab Export as semitransparent PNG.
+
+@item @key{Alt-F}
+@tab Export as solid PNG.
+
+@item @key{Alt-J}
+@tab Export as JPEG.
+
+@item @key{Alt-E}
+@tab Export as vector EPS.
+
+@item @key{Alt-S}
+@tab Export as vector SVG.
+
+@item @key{Alt-L}
+@tab Export as LaTeX/Tikz image.
+
+@item @key{Alt-M}
+@tab Export as MGLD.
+
+@item @key{Alt-D}
+@tab Export as PRC/PDF.
+
+@item @key{Alt-O}
+@tab Export as OBJ.
+
+@c @item @key{Alt-X}
+@c @tab Export as X3D.
+@end multitable
+
+@c ------------------------------------------------------------------
+@external
+@node Hot-keys for UDAV, , Hot-keys for mglview, Symbols and hot-keys
+@section Hot-keys for UDAV
+
+@multitable @columnfractions .3 .7
+@headitem Key @tab Description
+@item @key{Ctrl-N}
+@tab Create new window with empty script. Note, all scripts share variables. So, second window can be used to see some additional information of existed variables.
+
+@item @key{Ctrl-O}
+@tab Open and execute/show script or data from file. You may switch off automatic exection in UDAV properties
+
+@item @key{Ctrl-S}
+@tab Save script to a file.
+
+@item @key{Ctrl-P}
+@tab Open printer dialog and print graphics.
+
+@item @key{Ctrl-Z}
+@tab Undo changes in script editor.
+
+@item @key{Ctrl-Shift-Z}
+@tab Redo changes in script editor.
+
+@item @key{Ctrl-X}
+@tab Cut selected text into clipboard.
+
+@item @key{Ctrl-C}
+@tab Copy selected text into clipboard.
+
+@item @key{Ctrl-V}
+@tab Paste selected text from clipboard.
+
+@item @key{Ctrl-A}
+@tab Select all text in editor.
+
+@item @key{Ctrl-F}
+@tab Show dialog for text finding.
+
+@item @key{F3}
+@tab Find next occurrence of the text.
+
+
+@item @key{Win-C} or @key{Meta-C}
+@tab Show dialog for new command and put it into the script.
+
+@item @key{Win-F} or @key{Meta-F}
+@tab Insert last fitted formula with found coefficients.
+
+@item @key{Win-S} or @key{Meta-S}
+@tab Show dialog for styles and put it into the script. Styles define the plot view (color scheme, marks, dashing and so on).
+
+@item @key{Win-O} or @key{Meta-O}
+@tab Show dialog for options and put it into the script. Options are used for additional setup the plot.
+
+@item @key{Win-N} or @key{Meta-N}
+@tab Replace selected expression by its numerical value.
+
+@item @key{Win-P} or @key{Meta-P}
+@tab Select file and insert its file name into the script.
+
+@item @key{Win-G} or @key{Meta-G}
+@tab Show dialog for plot setup and put resulting code into the script. This dialog setup axis, labels, lighting and other general things.
+
+
+
+@item @key{Ctrl-Shift-O}
+@tab Load data from file. Data will be deleted only at exit but UDAV will not ask to save it.
+
+@item @key{Ctrl-Shift-S}
+@tab Save data to a file.
+
+@item @key{Ctrl-Shift-C}
+@tab Copy range of numbers to clipboard.
+
+@item @key{Ctrl-Shift-V}
+@tab Paste range of numbers from clipboard.
+
+@item @key{Ctrl-Shift-N}
+@tab Recreate the data with new sizes and fill it by zeros.
+
+@item @key{Ctrl-Shift-R}
+@tab Resize (interpolate) the data to specified sizes.
+
+@item @key{Ctrl-Shift-T}
+@tab Transform data along dimension(s).
+
+@item @key{Ctrl-Shift-M}
+@tab Make another data.
+
+@item @key{Ctrl-Shift-H}
+@tab Find histogram of data.
+
+
+
+@item @key{Ctrl-T}
+@tab Switch on/off transparency for the graphics.
+
+@item @key{Ctrl-L}
+@tab Switch on/off additional lightning for the graphics.
+
+@item @key{Ctrl-G}
+@tab Switch on/off grid of absolute coordinates.
+
+@item @key{Ctrl-Space}
+@tab Restore default graphics rotation, zoom and perspective.
+
+@item @key{F5}
+@tab Execute script and redraw graphics.
+
+@item @key{F6}
+@tab Change canvas size to fill whole region.
+
+@item @key{F7}
+@tab Stop script execution.
+
+@item @key{F9}
+@tab Restore status for 'once' command and reload data.
+
+@item @key{Ctrl-F5}
+@tab Run slideshow. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-Comma}, @key{Ctrl-Period}
+@tab Show next/previous slide. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-W}
+@tab Open dialog with slideshow options.
+
+@item @key{Ctrl-Shift-G}
+@tab Copy graphics to clipboard.
+
+
+@item @key{F1}
+@tab Show help on MGL commands
+
+@item @key{F2}
+@tab Show/hide tool window with messages and information.
+
+@item @key{F4}
+@tab Show/hide calculator which evaluate and help to type textual formulas. Textual formulas may contain data variables too.
+
+
+@item @key{Meta-Shift-Up}, @key{Meta-Shift-Down}
+@tab Change view angle @math{\theta}.
+
+@item @key{Meta-Shift-Left}, @key{Meta-Shift-Right}
+@tab Change view angle @math{\phi}.
+
+@item @key{Alt-Minus}, @key{Alt-Equal}
+@tab Zoom in/out whole image.
+
+@item @key{Alt-Up}, @key{Alt-Down}, @key{Alt-Right}, @key{Alt-Left}
+@tab Shift whole image.
+
+@item @key{Alt-P}
+@tab Export as semitransparent PNG.
+
+@item @key{Alt-F}
+@tab Export as solid PNG.
+
+@item @key{Alt-J}
+@tab Export as JPEG.
+
+@item @key{Alt-E}
+@tab Export as vector EPS.
+
+@item @key{Alt-S}
+@tab Export as vector SVG.
+
+@item @key{Alt-L}
+@tab Export as LaTeX/Tikz image.
+
+@item @key{Alt-M}
+@tab Export as MGLD.
+
+@item @key{Alt-D}
+@tab Export as PRC/PDF.
+
+@item @key{Alt-O}
+@tab Export as OBJ.
+
+@c @item @key{Alt-X}
+@c @tab Export as X3D.
+
+@end multitable
+
+@external
\ No newline at end of file

diff --git a/texinfo/symbols_ru.texi b/texinfo/symbols_ru.texi
new file mode 100644 (file)
index 0000000..8492296
--- /dev/null
+++ b/texinfo/symbols_ru.texi
@@ -0,0 +1,676 @@
+This appendix contain the full list of symbols (characters) used by MathGL for setting up plot. Also it contain sections for full list of hot-keys supported by mglview tool and by UDAV program.
+
+@menu
+* Symbols for styles::
+* Hot-keys for mglview::
+* Hot-keys for UDAV::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node Symbols for styles, Hot-keys for mglview, , Symbols and hot-keys
+@section Symbols for styles
+
+Below is full list of all characters (symbols) which MathGL use for setting up the plot.
+
+@table @samp
+@item space ' '
+empty line style (see @ref{Line styles});
+
+empty color in @ref{chart}.
+
+@item !
+set to use new color from palette for each point (not for each curve, as default) in @ref{1D plotting}.
+
+@item #
+set to use solid marks (see @ref{Line styles}) or solid @ref{error} boxes;
+
+set to draw wired plot for @ref{axial}, @ref{surf3}, @ref{surf3a}, @ref{surf3c}, @ref{triplot}, @ref{quadplot}, @ref{area}, @ref{bars}, @ref{barh}, @ref{tube}, @ref{tape}, @ref{cone}, @ref{boxs} and draw boundary only for @ref{circle}, @ref{ellipse}, @ref{rhomb};
+
+set to draw also mesh lines for @ref{surf}, @ref{surfc}, @ref{surfa}, @ref{dens}, @ref{densx}, @ref{densy}, @ref{densz}, @ref{dens3}, or boundary for @ref{chart}, @ref{facex}, @ref{facey}, @ref{facez}, @ref{rect};
+
+set to draw boundary and box for @ref{legend}, @ref{title}, or grid lines for @ref{table};
+
+set to draw grid for @ref{radar};
+
+set to start flow threads and pipes from edges only for @ref{flow}, @ref{pipe};
+
+set to use whole are for axis range in @ref{subplot}, @ref{inplot};
+
+change text color inside a string (see @ref{Font styles});
+
+start comment in @ref{MGL scripts} or in @ref{Command options}.
+
+@item $
+denote parameter of @ref{MGL scripts}.
+
+@item &
+operation in @ref{Textual formulas}.
+
+@item @quoteright{}
+denote string in @ref{MGL scripts} or in @ref{Command options}.
+
+@item *
+one of marks (see @ref{Line styles});
+
+operation in @ref{Textual formulas}.
+
+@item +
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+operation in @ref{Textual formulas}.
+
+@item ,
+separator for color positions (see @ref{Color styles}) or items in a list.
+
+@item -
+solid line style (see @ref{Line styles});
+
+place entries horizontally in @ref{legend};
+
+operation in @ref{Textual formulas}.
+
+@item .
+one of marks (see @ref{Line styles});
+
+set to draw hachures instead of arrows for @ref{vect}, @ref{vect3};
+
+set to use dots instead of faces for @ref{cloud}, @ref{torus}, @ref{axial}, @ref{surf3}, @ref{surf3a}, @ref{surf3c}, @ref{surf}, @ref{surfa}, @ref{surfc}, @ref{dens}, @ref{map};
+
+delimiter of fractional parts for numbers.
+
+@item /
+operation in @ref{Textual formulas}.
+
+@item :
+line dashing style (see @ref{Line styles});
+
+stop color scheme parsing (see @ref{Color scheme});
+
+range operation in @ref{MGL scripts}.
+
+@item ;
+line dashing style (see @ref{Line styles});
+
+end of an option in @ref{MGL scripts} or in @ref{Command options}.
+
+@item <
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+style of @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+
+@item >
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+style of @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+@item =
+line dashing style (see @ref{Line styles});
+
+set to use equidistant columns for @ref{table};
+
+set to use color gradient for @ref{vect}, @ref{vect3};
+
+operation in @ref{Textual formulas}.
+
+@item @@
+set to draw box around text for @ref{text} and similar functions;
+
+set to draw boundary and fill it for @ref{circle}, @ref{ellipse}, @ref{rhomb};
+
+set to fill faces for @ref{box};
+
+set to draw large semitransparent mark instead of error box for @ref{error};
+
+set to draw edges for @ref{cone};
+
+set to draw filled boxes for @ref{boxs};
+
+reduce text size inside a string (see @ref{Font styles}).
+
+@item ^
+one of marks (see @ref{Line styles});
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+switch to upper index inside a string (see @ref{Font styles});
+
+operation in @ref{Textual formulas}.
+
+@item _
+empty arrow style (see @ref{Line styles});
+
+disable drawing of tick labels for @ref{axis};
+
+style of @ref{subplot} and @ref{inplot};
+
+set position of @ref{colorbar};
+
+set to draw contours at bottom for @ref{cont}, @ref{contf}, @ref{contd}, @ref{contv}, @ref{tricont};
+
+switch to lower index inside a string (see @ref{Font styles}).
+
+@item []
+contain symbols excluded from color scheme parsing (see @ref{Color scheme}).
+
+@item @{@}
+contain extended color specification (see @ref{Color styles});
+
+denote special operation in @ref{MGL scripts};
+
+denote 'meta-symbol' for LaTeX like string parsing (see @ref{Font styles}).
+
+@item |
+line dashing style (see @ref{Line styles});
+
+set to use sharp color scheme (see @ref{Color scheme});
+
+set to limit width by subplot width for @ref{table};
+
+delimiter in @ref{list} command;
+
+operation in @ref{Textual formulas}.
+
+@item \
+string continuation symbol on next line for @ref{MGL scripts}.
+
+@item 0,1,2,3,4,5,6,7,8,9
+line width (see @ref{Line styles});
+
+brightness of a color (see @ref{Color styles});
+
+kind of smoothing (for digits 1,3,5) in @ref{smooth};
+
+digits for a value.
+
+@item A,B,C,D,E,F,a,b,c,d,e,f
+can be hex-digit for color specification if placed inside @{@} (see @ref{Color styles}).
+
+@item A
+arrow style (see @ref{Line styles});
+
+set to use absolute position in whole picture for @ref{text}, @ref{colorbar}, @ref{legend}.
+
+@item a
+set to use absolute position in subplot for @ref{text};
+
+style of @ref{bars}, @ref{barh}.
+
+@item B
+dark blue color (see @ref{Color styles}).
+
+@item b
+blue color (see @ref{Color styles});
+
+bold font face if placed after @samp{:} (see @ref{Font styles}).
+
+@item C
+dark cyan color (see @ref{Color styles});
+
+align text to center if placed after @samp{:} (see @ref{Font styles}).
+
+@item c
+cyan color (see @ref{Color styles});
+
+name of color axis;
+
+cosine transform for @ref{transform}.
+
+@item D
+arrow style (see @ref{Line styles}).
+
+@item d
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes.
+
+@item E
+dark green-yellow color (see @ref{Color styles}).
+
+@item e
+green-yellow color (see @ref{Color styles}).
+
+@item f
+style of @ref{bars}, @ref{barh};
+
+style of @ref{vect}, @ref{vect3};
+
+Fourier transform for @ref{transform}.
+
+@item G
+dark green color (see @ref{Color styles}).
+
+@item g
+green color (see @ref{Color styles}).
+
+@item H
+dark gray color (see @ref{Color styles}).
+
+@item h
+gray color (see @ref{Color styles});
+
+Hankel transform for @ref{transform}.
+
+@item I
+arrow style (see @ref{Line styles});
+
+set @ref{colorbar} position near boundary.
+
+@item i
+line dashing style (see @ref{Line styles});
+
+italic font face if placed after @samp{:} (see @ref{Font styles}).
+
+set to use inverse values for @ref{cloud}, @ref{pipe}, @ref{dew};
+
+set to fill only area with y1<y<y2 for @ref{region};
+
+inverse Fourier transform for @ref{transform}.
+
+@item j
+line dashing style (see @ref{Line styles});
+
+@item K
+arrow style (see @ref{Line styles}).
+
+@item k
+black color (see @ref{Color styles}).
+
+@item L
+dark green-blue color (see @ref{Color styles});
+
+align text to left if placed after @samp{:} (see @ref{Font styles}).
+
+@item l
+green-blue color (see @ref{Color styles}).
+
+@item M
+dark magenta color (see @ref{Color styles}).
+
+@item m
+magenta color (see @ref{Color styles}).
+
+@item N
+dark sky-blue color (see @ref{Color styles}).
+
+@item n
+sky-blue color (see @ref{Color styles}).
+
+@item O
+arrow style (see @ref{Line styles}).
+
+@item o
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+over-line text if placed after @samp{:} (see @ref{Font styles}).
+
+@item P
+dark purple color (see @ref{Color styles}).
+
+@item p
+purple color (see @ref{Color styles}).
+
+@item Q
+dark orange or brown color (see @ref{Color styles}).
+
+@item q
+orange color (see @ref{Color styles}).
+
+@item R
+dark red color (see @ref{Color styles});
+
+align text to right if placed after @samp{:} (see @ref{Font styles}).
+
+@item r
+red color (see @ref{Color styles}).
+
+@item S
+arrow style (see @ref{Line styles});
+
+@item s
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+sine transform for @ref{transform}.
+
+@item T
+arrow style (see @ref{Line styles});
+
+place text under the curve for @ref{text}, @ref{cont}, @ref{cont3}.
+
+@item t
+set to draw text labels for @ref{cont}, @ref{cont3};
+
+name of t-axis (one of ternary axis);
+
+variable in @ref{Textual formulas}, which usually is varied in range [0,1].
+
+@item U
+dark blue-violet color (see @ref{Color styles});
+
+disable rotation of tick labels for @ref{axis}.
+
+@item u
+blue-violet color (see @ref{Color styles});
+
+under-line text if placed after @samp{:} (see @ref{Font styles});
+
+name of u-axis (one of ternary axis);
+
+variable in @ref{Textual formulas}, which usually denote array itself.
+
+@item V
+arrow style (see @ref{Line styles}).
+
+@item v
+one of marks (see @ref{Line styles});
+
+set to draw vectors on flow threads for @ref{flow}.
+
+@item W
+bright gray color (see @ref{Color styles}).
+
+@item w
+white color (see @ref{Color styles});
+
+wired text if placed after @samp{:} (see @ref{Font styles});
+
+name of w-axis (one of ternary axis);
+
+@item x
+one of marks (see @ref{Line styles}) or kind of @ref{error} boxes;
+
+name of x-axis or x-direction or 1st dimension of a data array;
+
+start hex-color described if placed inside @{@} (see @ref{Color styles});
+
+style of @ref{tape}.
+
+@item Y
+dark yellow or gold color (see @ref{Color styles}).
+
+@item y
+yellow color (see @ref{Color styles});
+
+name of y-axis or y-direction or 2nd dimension of a data array.
+
+@item z
+
+name of z-axis or z-direction or 3d dimension of a data array;
+
+style of @ref{tape}.
+
+@end table
+
+
+@c ------------------------------------------------------------------
+@external
+@node Hot-keys for mglview, Hot-keys for UDAV, Symbols for styles, Symbols and hot-keys
+@section Hot-keys for mglview
+
+@multitable @columnfractions .15 .25 .6
+@headitem Key @tab Description
+@item @key{Ctrl-P}
+@tab Open printer dialog and print graphics.
+
+@item @key{Ctrl-W}
+@tab Close window.
+
+@item @key{Ctrl-T}
+@tab Switch on/off transparency for the graphics.
+
+@item @key{Ctrl-L}
+@tab Switch on/off additional lightning for the graphics.
+
+@item @key{Ctrl-Space}
+@tab Restore default graphics rotation, zoom and perspective.
+
+@item @key{F5}
+@tab Execute script and redraw graphics.
+
+@item @key{F6}
+@tab Change canvas size to fill whole region.
+
+@item @key{Ctrl-F5}
+@tab Run slideshow. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-Comma}, @key{Ctrl-Period}
+@tab Show next/previous slide. If no parameter specified then the dialog with slideshow options will appear.
+
+
+@item @key{Ctrl-Shift-G}
+@tab Copy graphics to clipboard.
+
+
+
+@item @key{Alt-P}
+@tab Export as semitransparent PNG.
+
+@item @key{Alt-F}
+@tab Export as solid PNG.
+
+@item @key{Alt-J}
+@tab Export as JPEG.
+
+@item @key{Alt-E}
+@tab Export as vector EPS.
+
+@item @key{Alt-S}
+@tab Export as vector SVG.
+
+@item @key{Alt-L}
+@tab Export as LaTeX/Tikz image.
+
+@item @key{Alt-M}
+@tab Export as MGLD.
+
+@item @key{Alt-D}
+@tab Export as PRC/PDF.
+
+@item @key{Alt-O}
+@tab Export as OBJ.
+
+@c @item @key{Alt-X}
+@c @tab Export as X3D.
+@end multitable
+
+@c ------------------------------------------------------------------
+@external
+@node Hot-keys for UDAV, , Hot-keys for mglview, Symbols and hot-keys
+@section Hot-keys for UDAV
+
+@multitable @columnfractions .15 .25 .6
+@headitem Key @tab Description
+@item @key{Ctrl-N}
+@tab Create new window with empty script. Note, all scripts share variables. So, second window can be used to see some additional information of existed variables.
+
+@item @key{Ctrl-O}
+@tab Open and execute/show script or data from file. You may switch off automatic exection in UDAV properties
+
+@item @key{Ctrl-S}
+@tab Save script to a file.
+
+@item @key{Ctrl-P}
+@tab Open printer dialog and print graphics.
+
+@item @key{Ctrl-Z}
+@tab Undo changes in script editor.
+
+@item @key{Ctrl-Shift-Z}
+@tab Redo changes in script editor.
+
+@item @key{Ctrl-X}
+@tab Cut selected text into clipboard.
+
+@item @key{Ctrl-C}
+@tab Copy selected text into clipboard.
+
+@item @key{Ctrl-V}
+@tab Paste selected text from clipboard.
+
+@item @key{Ctrl-A}
+@tab Select all text in editor.
+
+@item @key{Ctrl-F}
+@tab Show dialog for text finding.
+
+@item @key{F3}
+@tab Find next occurrence of the text.
+
+
+@item @key{Win-C} or @key{Meta-C}
+@tab Show dialog for new command and put it into the script.
+
+@item @key{Win-F} or @key{Meta-F}
+@tab Insert last fitted formula with found coefficients.
+
+@item @key{Win-S} or @key{Meta-S}
+@tab Show dialog for styles and put it into the script. Styles define the plot view (color scheme, marks, dashing and so on).
+
+@item @key{Win-O} or @key{Meta-O}
+@tab Show dialog for options and put it into the script. Options are used for additional setup the plot.
+
+@item @key{Win-N} or @key{Meta-N}
+@tab Replace selected expression by its numerical value.
+
+@item @key{Win-P} or @key{Meta-P}
+@tab Select file and insert its file name into the script.
+
+@item @key{Win-G} or @key{Meta-G}
+@tab Show dialog for plot setup and put resulting code into the script. This dialog setup axis, labels, lighting and other general things.
+
+
+
+@item @key{Ctrl-Shift-O}
+@tab Load data from file. Data will be deleted only at exit but UDAV will not ask to save it.
+
+@item @key{Ctrl-Shift-S}
+@tab Save data to a file.
+
+@item @key{Ctrl-Shift-C}
+@tab Copy range of numbers to clipboard.
+
+@item @key{Ctrl-Shift-V}
+@tab Paste range of numbers from clipboard.
+
+@item @key{Ctrl-Shift-N}
+@tab Recreate the data with new sizes and fill it by zeros.
+
+@item @key{Ctrl-Shift-R}
+@tab Resize (interpolate) the data to specified sizes.
+
+@item @key{Ctrl-Shift-T}
+@tab Transform data along dimension(s).
+
+@item @key{Ctrl-Shift-M}
+@tab Make another data.
+
+@item @key{Ctrl-Shift-H}
+@tab Find histogram of data.
+
+
+
+@item @key{Ctrl-T}
+@tab Switch on/off transparency for the graphics.
+
+@item @key{Ctrl-L}
+@tab Switch on/off additional lightning for the graphics.
+
+@item @key{Ctrl-G}
+@tab Switch on/off grid of absolute coordinates.
+
+@item @key{Ctrl-Space}
+@tab Restore default graphics rotation, zoom and perspective.
+
+@item @key{F5}
+@tab Execute script and redraw graphics.
+
+@item @key{F6}
+@tab Change canvas size to fill whole region.
+
+@item @key{F7}
+@tab Stop script execution.
+
+@item @key{F9}
+@tab Restore status for 'once' command and reload data.
+
+@item @key{Ctrl-F5}
+@tab Run slideshow. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-Comma}, @key{Ctrl-Period}
+@tab Show next/previous slide. If no parameter specified then the dialog with slideshow options will appear.
+
+@item @key{Ctrl-W}
+@tab Open dialog with slideshow options.
+
+@item @key{Ctrl-Shift-G}
+@tab Copy graphics to clipboard.
+
+
+@item @key{F1}
+@tab Show help on MGL commands
+
+@item @key{F2}
+@tab Show/hide tool window with messages and information.
+
+@item @key{F4}
+@tab Show/hide calculator which evaluate and help to type textual formulas. Textual formulas may contain data variables too.
+
+
+@item @key{Meta-Shift-Up}, @key{Meta-Shift-Down}
+@tab Change view angle @math{\theta}.
+
+@item @key{Meta-Shift-Left}, @key{Meta-Shift-Right}
+@tab Change view angle @math{\phi}.
+
+@item @key{Alt-Minus}, @key{Alt-Equal}
+@tab Zoom in/out whole image.
+
+@item @key{Alt-Up}, @key{Alt-Down}, @key{Alt-Right}, @key{Alt-Left}
+@tab Shift whole image.
+
+@item @key{Alt-P}
+@tab Export as semitransparent PNG.
+
+@item @key{Alt-F}
+@tab Export as solid PNG.
+
+@item @key{Alt-J}
+@tab Export as JPEG.
+
+@item @key{Alt-E}
+@tab Export as vector EPS.
+
+@item @key{Alt-S}
+@tab Export as vector SVG.
+
+@item @key{Alt-L}
+@tab Export as LaTeX/Tikz image.
+
+@item @key{Alt-M}
+@tab Export as MGLD.
+
+@item @key{Alt-D}
+@tab Export as PRC/PDF.
+
+@item @key{Alt-O}
+@tab Export as OBJ.
+
+@c @item @key{Alt-X}
+@c @tab Export as X3D.
+
+@end multitable
+
+@external
\ No newline at end of file

diff --git a/texinfo/test.html b/texinfo/test.html
new file mode 100644 (file)
index 0000000..37da28c
--- /dev/null
+++ b/texinfo/test.html
@@ -0,0 +1,18 @@
+<!DOCTYPE html>
+
+<html>
+
+<head>
+  <script type="text/javascript" src="mathgl.js"></script>
+</head>
+
+<body onload="main();">
+  <center>
+    <canvas id="canvas" width="640" height="480"
+        style="border:1px solid #d3d3d3;" onmousemove="mglMouseMove()"
+         onmousedown="mglMouseDown()" onmouseup="mglMouseUp()"
+         onmouseout="mglMouseUp()" onmousewheel="mglMouseWheel()"></canvas>
+  </center>
+</body>
+
+</html>

diff --git a/texinfo/title.html b/texinfo/title.html
index f17e60fc0e4d8a14a8d9be73e65fe0ebd77b2275..ae5db3d76f791929fef1c4fd2fcde2818b0be6a0 100644 (file)
--- a/texinfo/title.html
+++ b/texinfo/title.html
@@ -5,6 +5,6 @@
   <title>MathGL 2.0</title>
 </head><body>
 
-<h1><a target="main" href="web_en/web_en_1.html"><img border="0" align="left" hspace="30" vspace="0" src="emblem_sm.png"></a> MathGL &ndash; library for scientific data visualization</h1>
+<h2><a target="main" href="web_en/web_en_1.html"><img border="0" align="left" hspace="30" vspace="0" src="emblem_sm.png"></a> MathGL &ndash; library for scientific data visualization</h2>
 
 </body>

diff --git a/texinfo/toc_en.html b/texinfo/toc_en.html
index 1a40aeac76e7f9815fee725697880ac913c55c1c..0e0ddd6b8c636a39f277b57a1006e86053e3a98e 100644 (file)
--- a/texinfo/toc_en.html
+++ b/texinfo/toc_en.html
@@ -9,9 +9,11 @@
 <a target="main" href="web_en/web_en_2.html"><b>News</b></a></p>
 <a target="main" href="web_en/web_en_3.html"><b>Features</b></a></p>
 <a target="main" href="web_en/web_en_4.html"><b>Pictures</b></a></p>
+<a target="main" href="json.html"><b>JS samples</b></a></p>
 <a target="main" href="web_en/web_en_5.html"><b>MGL scripts</b></a></p>
 <a target="main" href="web_en/web_en_6.html"><b>Download</b></a></p>
 <a target="main" href="doc_en/doc_en.html"><b>Documentation</b></a></p>
+<a target="main" href="json.html"><b>JavaScript</b></a></p>
 <a target="main" href="web_en/web_en_8.html"><b>Other projects</b></a></p>
 
 <hr style="width: 100%; height: 1px;">
@@ -29,4 +31,16 @@
   </td></tr>
 </table></p>
 
+<hr style="width: 100%; height: 1px;">
+<script type="text/javascript"><!--
+google_ad_client = "ca-pub-1128070552722622";
+/* Vertical small */
+google_ad_slot = "5501954624";
+google_ad_width = 120;
+google_ad_height = 240;
+//-->
+</script>
+<script type="text/javascript"
+src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+</script>
 </body>

diff --git a/texinfo/toc_fr.html b/texinfo/toc_fr.html
index 07d0e61351030dba762f0788383a24a78b109f43..64bf57cafecc80fda006df79c6b19e194f46f30a 100644 (file)
--- a/texinfo/toc_fr.html
+++ b/texinfo/toc_fr.html
@@ -9,9 +9,11 @@
 <a target="main" href="web_en/web_en_2.html"><b>News</b></a></p>
 <a target="main" href="web_en/web_en_3.html"><b>Features</b></a></p>
 <a target="main" href="web_en/web_en_4.html"><b>Pictures</b></a></p>
+<a target="main" href="json.html"><b>JS samples</b></a></p>
 <a target="main" href="web_en/web_en_5.html"><b>MGL scripts</b></a></p>
 <a target="main" href="web_en/web_en_6.html"><b>Download</b></a></p>
 <a target="main" href="doc_en/doc_en.html"><b>Documentation</b></a></p>
+<a target="main" href="json.html"><b>JavaScript</b></a></p>
 <a target="main" href="web_en/web_en_8.html"><b>Other projects</b></a></p>
 
 <hr style="width: 100%; height: 1px;">
@@ -29,4 +31,17 @@
   </td></tr>
 </table></p>
 
-</body>
\ No newline at end of file
+<hr style="width: 100%; height: 1px;">
+<script type="text/javascript"><!--
+google_ad_client = "ca-pub-1128070552722622";
+/* Vertical small */
+google_ad_slot = "5501954624";
+google_ad_width = 120;
+google_ad_height = 240;
+//-->
+</script>
+<script type="text/javascript"
+src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+</script>
+
+</body>

diff --git a/texinfo/toc_ru.html b/texinfo/toc_ru.html
index d685f5732a9da1bd5e6366fbefc920d55694e3fa..ad69d01af06b94553706d958b0d1b1cf27247f68 100644 (file)
--- a/texinfo/toc_ru.html
+++ b/texinfo/toc_ru.html
@@ -9,9 +9,11 @@
 <a target="main" href="web_ru/web_ru_2.html"><b>Новости</b></a></p>
 <a target="main" href="web_ru/web_ru_3.html"><b>Возможности</b></a></p>
 <a target="main" href="web_ru/web_ru_4.html"><b>Примеры</b></a></p>
+<a target="main" href="json.html"><b>JS примеры</b></a></p>
 <a target="main" href="web_ru/web_ru_5.html"><b>Скрипты MGL</b></a></p>
 <a target="main" href="web_ru/web_ru_6.html"><b>Загрузка</b></a></p>
 <a target="main" href="doc_ru/doc_ru.html"><b>Документация</b></a></p>
+<a target="main" href="json.html"><b>JavaScript</b></a></p>
 <a target="main" href="web_ru/web_ru_8.html"><b>Другие проекты</b></a></p>
 
 <hr style="width: 100%; height: 1px;">
@@ -29,4 +31,16 @@
   </td></tr>
 </table></p>
 
-</body>
\ No newline at end of file
+<hr style="width: 100%; height: 1px;">
+<script type="text/javascript"><!--
+google_ad_client = "ca-pub-1128070552722622";
+/* Vertical small */
+google_ad_slot = "5501954624";
+google_ad_width = 120;
+google_ad_height = 240;
+//-->
+</script>
+<script type="text/javascript"
+src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+</script>
+</body>

diff --git a/texinfo/udav/udav_arg.png b/texinfo/udav/udav_arg.png
new file mode 100644 (file)
index 0000000..460bdac
Binary files /dev/null and b/texinfo/udav/udav_arg.png differ

diff --git a/texinfo/udav/udav_calc.png b/texinfo/udav/udav_calc.png
new file mode 100644 (file)
index 0000000..b01f112
Binary files /dev/null and b/texinfo/udav/udav_calc.png differ

diff --git a/texinfo/udav/udav_cmd.png b/texinfo/udav/udav_cmd.png
new file mode 100644 (file)
index 0000000..d222c3e
Binary files /dev/null and b/texinfo/udav/udav_cmd.png differ

diff --git a/texinfo/udav/udav_data.png b/texinfo/udav/udav_data.png
new file mode 100644 (file)
index 0000000..686b1be
Binary files /dev/null and b/texinfo/udav/udav_data.png differ

diff --git a/texinfo/udav/udav_gen_set.png b/texinfo/udav/udav_gen_set.png
new file mode 100644 (file)
index 0000000..2ff2e38
Binary files /dev/null and b/texinfo/udav/udav_gen_set.png differ

diff --git a/texinfo/udav/udav_help.png b/texinfo/udav/udav_help.png
new file mode 100644 (file)
index 0000000..2f78ab9
Binary files /dev/null and b/texinfo/udav/udav_help.png differ

diff --git a/texinfo/udav/udav_light.png b/texinfo/udav/udav_light.png
new file mode 100644 (file)
index 0000000..0eb1a67
Binary files /dev/null and b/texinfo/udav/udav_light.png differ

diff --git a/texinfo/udav/udav_main.png b/texinfo/udav/udav_main.png
new file mode 100644 (file)
index 0000000..c93ae90
Binary files /dev/null and b/texinfo/udav/udav_main.png differ

diff --git a/texinfo/udav/udav_opt.png b/texinfo/udav/udav_opt.png
new file mode 100644 (file)
index 0000000..5e523d9
Binary files /dev/null and b/texinfo/udav/udav_opt.png differ

diff --git a/texinfo/udav/udav_pen.png b/texinfo/udav/udav_pen.png
new file mode 100644 (file)
index 0000000..e494e7a
Binary files /dev/null and b/texinfo/udav/udav_pen.png differ

diff --git a/texinfo/udav/udav_prop.png b/texinfo/udav/udav_prop.png
new file mode 100644 (file)
index 0000000..2235acf
Binary files /dev/null and b/texinfo/udav/udav_prop.png differ

diff --git a/texinfo/udav/udav_sch.png b/texinfo/udav/udav_sch.png
new file mode 100644 (file)
index 0000000..6b5984a
Binary files /dev/null and b/texinfo/udav/udav_sch.png differ

diff --git a/texinfo/udav/udav_txt.png b/texinfo/udav/udav_txt.png
new file mode 100644 (file)
index 0000000..7276dd6
Binary files /dev/null and b/texinfo/udav/udav_txt.png differ

diff --git a/texinfo/udav/udav_var.png b/texinfo/udav/udav_var.png
new file mode 100644 (file)
index 0000000..9c1507d
Binary files /dev/null and b/texinfo/udav/udav_var.png differ

diff --git a/texinfo/udav_en.texi b/texinfo/udav_en.texi
new file mode 100644 (file)
index 0000000..cb8472a
--- /dev/null
+++ b/texinfo/udav_en.texi
@@ -0,0 +1,132 @@
+@chapter UDAV
+
+UDAV (Universal Data Array Visualizator) is cross-platform program for data arrays visualization based on MathGL library. It support wide spectrum of graphics, simple script language and visual data handling and editing. It has window interface for data viewing, changing and plotting. Also it can execute MGL scripts, setup and rotate graphics and so on. UDAV hot-keys can be found in the appendix @ref{Hot-keys for UDAV}.
+
+@menu
+* UDAV overview::
+* UDAV dialogs::
+* UDAV hints::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV overview, UDAV dialogs, , UDAV
+@section UDAV overview
+
+UDAV have main window divided by 2 parts in general case and optional bottom panel(s). Left side contain tabs for MGL script and data arrays. Right side contain tabs with graphics itself, with list of variables and with help on MGL. Bottom side may contain the panel with MGL messages and warnings, and the panel with calculator.
+
+@ufig{udav_main,11, Main window}
+
+Main window is shown on the figure above. You can see the script (at left) with current line highlighted by light-yellow, and result of its execution at right. Each panel have its own set of toolbuttons.
+
+Editor toolbuttons allow: open and save script from/to file; undo and redo changes; cut, copy and paste selection; find/replace text; show dialogs for command arguments and for plot setup; show calculator at bottom.
+
+Graphics toolbuttons allow: enable/disable additional transparency and lighting; show grid of absolute coordinates; enable mouse rotation; restore image view; refresh graphics (execute the script); stop calculation; copy graphics into clipboard; add primitives (line, curve, box, rhombus, ellipse, mark, text) to the image; change view angles manually. Vertical toolbuttons allow: shift and zoom in/out of image as whole; show next and previous frame of animation, or start animation (if one present).
+
+Graphics panel support plot editing by mouse.
+@itemize
+@item
+Axis range can be changed by mouse wheel or by dragging image by middle mouse button. Right button show popup menu. Left button show the coordinates of mouse click. At this double click will highlight plot under mouse and jump to the corresponded string of the MGL script.
+@item
+Pressing "mouse rotation" toolbutton will change mouse actions: dragging by left button will rotate plot, middle button will shift the plot as whole, right button will zoom in/out plot as whole and add perspective, mouse wheel will zoom in/out plot as whole.
+@item
+Manual primitives can be added by pressing corresponding toolbutton. They can be shifted as whole at any time by mouse dragging. At this double click open dialog with its properties. If toolbutton "grid of absolute coordinates" is pressed then editing of active points for primitives is enabled.
+@end itemize
+
+@ufig{udav_help,11, Main window - help panel}
+
+Short command description and list of its arguments are shown at the status-bar, when you move cursor to the new line of code. You can press @key{F1} to see more detailed help on special panel.
+
+@ufig{udav_data,11, Main window - data viewing}
+
+Also you can look the current list of variables, its dimensions and its size in the memory (right side of above figure). Toolbuttons allow: create new variable, edit variable, delete variable, preview variable plot and its properties, refresh list of variables. Pressing on any column will sort table according its contents. Double click on a variable will open panel with data cells of the variable, where you can view/edit each cell independently or apply a set of transformations.
+
+@ufig{udav_calc,11, Main window - calculator and messages}
+
+Finally, pressing @key{F2} or @key{F4} you can show/hide windows with messages/warnings and with calculator. Double click on a warning in message window will jump to corresponding line in editor. Calculator allow you type expression by keyboard as well as by toolbuttons. It know about all current variables, so you can use them in formulas.
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV dialogs, UDAV hints, UDAV overview, UDAV
+@section UDAV dialogs
+
+There are a set of dialogs, which allow change/add a command, setup global plot properties, or setup UDAV itself.
+
+@ufig{udav_cmd,8, New command dialog}
+
+One of most interesting dialog (hotkey @key{Meta-C} or @key{Win-C}) is dialog which help to enter new command or change arguments of existed one. It allows consequently select the category of command, command name in category and appropriate set of command arguments. At this right side show detailed command description. Required argument(s) are denoted by bold text. Strings are placed in apostrophes, like @code{'txt'}. Buttons below table allow to call dialogs for changing style of command (if argument @code{'fmt'} is present in the list of command arguments); to set variable or expression for argument(s); to add options for command.
+
+@ufig{udav_pen,5, Style dialog - pen style}
+@ufig{udav_sch,5, Style dialog - color scheme}
+@ufig{udav_txt,5, Style dialog - text style}
+
+Dialog for changing style can be called independently, but usually is called from @emph{New command} dialog or by double click on primitive. It contain 3 tabs: one for pen style, one for color scheme, one for text style. You should select appropriate one. Resulting string of style and sample picture are shown at bottom of dialog.
+
+@ufig{udav_var,3, Variable dialog}
+
+Dialog for entering variable allow to select variable or expression which can be used as argument of a command. Here you can select the variable name; range of indexes in each directions; operation which will be applied (like, summation, finding minimal/maximal values and so on).
+
+@ufig{udav_opt,7.5, Variable dialog}
+
+Dialog for command options allow to change @ref{Command options}.
+
+@ufig{udav_gen_set,9, Dialog for general properties}
+@ufig{udav_light,9, Dialog for light properties}
+
+There is dialog for setting general plot properties, including tab for setting lighting properties. It can be called by called by hotkey @key{???} and put setup commands at the beginning of MGL script.
+
+@ufig{udav_arg,3.2, Dialog for script parameters}
+
+Also you can set or change script parameters (@samp{$0} ... @samp{$9}, see @ref{MGL definition}).
+
+@ufig{udav_prop,5, Dialog for UDAV settings}
+
+Finally, there is dialog for UDAV settings. It allow to change most of things in UDAV appearance and working, including colors of keywords and numbers, default font and image size, and so on (see figure above).
+
+There are also a set of dialogs for data handling, but they are too simple and clear. So, I will not put them here.
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV hints, , UDAV dialogs, UDAV
+@section UDAV hints
+
+@itemize
+@item
+You can shift axis range by pressing middle button and moving mouse. Also, you can zoom in/out axis range by using mouse wheel.
+@item
+You can rotate/shift/zoom whole plot by mouse. Just press 'Rotate' toolbutton, click image and hold a mouse button: left button for rotation, right button for zoom/perspective, middle button for shift.
+@item
+You may quickly draw the data from file. Just use: udav 'filename.dat' in command line.
+@item
+You can copy the current image to clipboard by pressing @key{Ctrl-Shift-C}. Later you can paste it directly into yours document or presentation.
+@item
+You can export image into a set of format (EPS, SVG, PNG, JPEG) by pressing right mouse button inside image and selecting 'Export as ...'.
+@item
+You can setup colors for script highlighting in Property dialog. Just select menu item 'Settings/Properties'.
+@item
+You can save the parameter of animation inside MGL script by using comment started from '##a ' or '##c ' for loops.
+@item
+New drawing never clears things drawn already. For example, you can make a surface with contour lines by calling commands 'surf' and 'cont' one after another (in any order).
+@item
+You can put several plots in the same image by help of commands 'subplot' or 'inplot'.
+@item
+All indexes (of data arrays, subplots and so on) are always start from 0.
+@item
+You can edit MGL file in any text editor. Also you can run it in console by help of commands: @code{mglconv}, @code{mglview}.
+@item
+You can use command 'once on|off' for marking the block which should be executed only once. For example, this can be the block of large data reading/creating/handling. Press @key{F9} (or menu item 'Graphics/Reload') to re-execute this block.
+@item
+You can use command 'stop' for terminating script parsing. It is useful if you don't want to execute a part of script.
+@item
+You can type arbitrary expression as input argument for data or number. In last case (for numbers), the first value of data array is used.
+@item
+There is powerful calculator with a lot of special functions. You can use buttons or keyboard to type the expression. Also you can use existed variables in the expression.
+@item
+The calculator can help you to put complex expression in the script. Just type the expression (which may depend on coordinates x,y,z and so on) and put it into the script.
+@item
+You can easily insert file or folder names, last fitted formula or numerical value of selection by using menu Edit|Insert.
+@item
+The special dialog (Edit|Insert|New Command) help you select the command, fill its arguments and put it into the script.
+@item
+You can put several plotting commands in the same line or in separate function, for highlighting all of them simultaneously.
+@end itemize

diff --git a/texinfo/udav_ru.texi b/texinfo/udav_ru.texi
new file mode 100644 (file)
index 0000000..cb8472a
--- /dev/null
+++ b/texinfo/udav_ru.texi
@@ -0,0 +1,132 @@
+@chapter UDAV
+
+UDAV (Universal Data Array Visualizator) is cross-platform program for data arrays visualization based on MathGL library. It support wide spectrum of graphics, simple script language and visual data handling and editing. It has window interface for data viewing, changing and plotting. Also it can execute MGL scripts, setup and rotate graphics and so on. UDAV hot-keys can be found in the appendix @ref{Hot-keys for UDAV}.
+
+@menu
+* UDAV overview::
+* UDAV dialogs::
+* UDAV hints::
+@end menu
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV overview, UDAV dialogs, , UDAV
+@section UDAV overview
+
+UDAV have main window divided by 2 parts in general case and optional bottom panel(s). Left side contain tabs for MGL script and data arrays. Right side contain tabs with graphics itself, with list of variables and with help on MGL. Bottom side may contain the panel with MGL messages and warnings, and the panel with calculator.
+
+@ufig{udav_main,11, Main window}
+
+Main window is shown on the figure above. You can see the script (at left) with current line highlighted by light-yellow, and result of its execution at right. Each panel have its own set of toolbuttons.
+
+Editor toolbuttons allow: open and save script from/to file; undo and redo changes; cut, copy and paste selection; find/replace text; show dialogs for command arguments and for plot setup; show calculator at bottom.
+
+Graphics toolbuttons allow: enable/disable additional transparency and lighting; show grid of absolute coordinates; enable mouse rotation; restore image view; refresh graphics (execute the script); stop calculation; copy graphics into clipboard; add primitives (line, curve, box, rhombus, ellipse, mark, text) to the image; change view angles manually. Vertical toolbuttons allow: shift and zoom in/out of image as whole; show next and previous frame of animation, or start animation (if one present).
+
+Graphics panel support plot editing by mouse.
+@itemize
+@item
+Axis range can be changed by mouse wheel or by dragging image by middle mouse button. Right button show popup menu. Left button show the coordinates of mouse click. At this double click will highlight plot under mouse and jump to the corresponded string of the MGL script.
+@item
+Pressing "mouse rotation" toolbutton will change mouse actions: dragging by left button will rotate plot, middle button will shift the plot as whole, right button will zoom in/out plot as whole and add perspective, mouse wheel will zoom in/out plot as whole.
+@item
+Manual primitives can be added by pressing corresponding toolbutton. They can be shifted as whole at any time by mouse dragging. At this double click open dialog with its properties. If toolbutton "grid of absolute coordinates" is pressed then editing of active points for primitives is enabled.
+@end itemize
+
+@ufig{udav_help,11, Main window - help panel}
+
+Short command description and list of its arguments are shown at the status-bar, when you move cursor to the new line of code. You can press @key{F1} to see more detailed help on special panel.
+
+@ufig{udav_data,11, Main window - data viewing}
+
+Also you can look the current list of variables, its dimensions and its size in the memory (right side of above figure). Toolbuttons allow: create new variable, edit variable, delete variable, preview variable plot and its properties, refresh list of variables. Pressing on any column will sort table according its contents. Double click on a variable will open panel with data cells of the variable, where you can view/edit each cell independently or apply a set of transformations.
+
+@ufig{udav_calc,11, Main window - calculator and messages}
+
+Finally, pressing @key{F2} or @key{F4} you can show/hide windows with messages/warnings and with calculator. Double click on a warning in message window will jump to corresponding line in editor. Calculator allow you type expression by keyboard as well as by toolbuttons. It know about all current variables, so you can use them in formulas.
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV dialogs, UDAV hints, UDAV overview, UDAV
+@section UDAV dialogs
+
+There are a set of dialogs, which allow change/add a command, setup global plot properties, or setup UDAV itself.
+
+@ufig{udav_cmd,8, New command dialog}
+
+One of most interesting dialog (hotkey @key{Meta-C} or @key{Win-C}) is dialog which help to enter new command or change arguments of existed one. It allows consequently select the category of command, command name in category and appropriate set of command arguments. At this right side show detailed command description. Required argument(s) are denoted by bold text. Strings are placed in apostrophes, like @code{'txt'}. Buttons below table allow to call dialogs for changing style of command (if argument @code{'fmt'} is present in the list of command arguments); to set variable or expression for argument(s); to add options for command.
+
+@ufig{udav_pen,5, Style dialog - pen style}
+@ufig{udav_sch,5, Style dialog - color scheme}
+@ufig{udav_txt,5, Style dialog - text style}
+
+Dialog for changing style can be called independently, but usually is called from @emph{New command} dialog or by double click on primitive. It contain 3 tabs: one for pen style, one for color scheme, one for text style. You should select appropriate one. Resulting string of style and sample picture are shown at bottom of dialog.
+
+@ufig{udav_var,3, Variable dialog}
+
+Dialog for entering variable allow to select variable or expression which can be used as argument of a command. Here you can select the variable name; range of indexes in each directions; operation which will be applied (like, summation, finding minimal/maximal values and so on).
+
+@ufig{udav_opt,7.5, Variable dialog}
+
+Dialog for command options allow to change @ref{Command options}.
+
+@ufig{udav_gen_set,9, Dialog for general properties}
+@ufig{udav_light,9, Dialog for light properties}
+
+There is dialog for setting general plot properties, including tab for setting lighting properties. It can be called by called by hotkey @key{???} and put setup commands at the beginning of MGL script.
+
+@ufig{udav_arg,3.2, Dialog for script parameters}
+
+Also you can set or change script parameters (@samp{$0} ... @samp{$9}, see @ref{MGL definition}).
+
+@ufig{udav_prop,5, Dialog for UDAV settings}
+
+Finally, there is dialog for UDAV settings. It allow to change most of things in UDAV appearance and working, including colors of keywords and numbers, default font and image size, and so on (see figure above).
+
+There are also a set of dialogs for data handling, but they are too simple and clear. So, I will not put them here.
+
+@c ------------------------------------------------------------------
+@external
+@node UDAV hints, , UDAV dialogs, UDAV
+@section UDAV hints
+
+@itemize
+@item
+You can shift axis range by pressing middle button and moving mouse. Also, you can zoom in/out axis range by using mouse wheel.
+@item
+You can rotate/shift/zoom whole plot by mouse. Just press 'Rotate' toolbutton, click image and hold a mouse button: left button for rotation, right button for zoom/perspective, middle button for shift.
+@item
+You may quickly draw the data from file. Just use: udav 'filename.dat' in command line.
+@item
+You can copy the current image to clipboard by pressing @key{Ctrl-Shift-C}. Later you can paste it directly into yours document or presentation.
+@item
+You can export image into a set of format (EPS, SVG, PNG, JPEG) by pressing right mouse button inside image and selecting 'Export as ...'.
+@item
+You can setup colors for script highlighting in Property dialog. Just select menu item 'Settings/Properties'.
+@item
+You can save the parameter of animation inside MGL script by using comment started from '##a ' or '##c ' for loops.
+@item
+New drawing never clears things drawn already. For example, you can make a surface with contour lines by calling commands 'surf' and 'cont' one after another (in any order).
+@item
+You can put several plots in the same image by help of commands 'subplot' or 'inplot'.
+@item
+All indexes (of data arrays, subplots and so on) are always start from 0.
+@item
+You can edit MGL file in any text editor. Also you can run it in console by help of commands: @code{mglconv}, @code{mglview}.
+@item
+You can use command 'once on|off' for marking the block which should be executed only once. For example, this can be the block of large data reading/creating/handling. Press @key{F9} (or menu item 'Graphics/Reload') to re-execute this block.
+@item
+You can use command 'stop' for terminating script parsing. It is useful if you don't want to execute a part of script.
+@item
+You can type arbitrary expression as input argument for data or number. In last case (for numbers), the first value of data array is used.
+@item
+There is powerful calculator with a lot of special functions. You can use buttons or keyboard to type the expression. Also you can use existed variables in the expression.
+@item
+The calculator can help you to put complex expression in the script. Just type the expression (which may depend on coordinates x,y,z and so on) and put it into the script.
+@item
+You can easily insert file or folder names, last fitted formula or numerical value of selection by using menu Edit|Insert.
+@item
+The special dialog (Edit|Insert|New Command) help you select the command, fill its arguments and put it into the script.
+@item
+You can put several plotting commands in the same line or in separate function, for highlighting all of them simultaneously.
+@end itemize

diff --git a/texinfo/version_hist.txt b/texinfo/version_hist.txt
deleted file mode 100644 (file)
index 92771aa..0000000
--- a/texinfo/version_hist.txt
+++ /dev/null
@@ -1,31 +0,0 @@
-2.0.b Released 23 August 2011
-
-1.11.2 Released 30 May 2011
-1.11.1 Released 28 March 2011
-1.11 Released 8 November 2010
-1.10.2.1 Released 27 March 2010
-1.10.2 Released 22 March 2010
-1.10.1 Released 8 March 2010
-1.10 Released 28 December 2009
-1.9 Released 8 July 2009
-1.8.1 Released 4 March 2009
-1.8 Released 27 November 2008
-1.7 Released 5 June 2008
-1.6.2 Released 5 April 2008
-1.6.1 Released 2 April 2008
-1.6 Released 17 March 2008
-1.5 Released 11 January 2008
-1.4.3.1 Released 24 December 2008
-1.4.3 Released 18 December 2008
-1.4.2 Released 27 November 2007
-1.4.1 Released 14 November 2007
-1.4 Released 30 October 2007
-1.3    Released 15 October 2007
-1.2.2  Released 26 September 2007
-1.2.1  Released 14 September 2007
-1.2    Released 10 September 2007
-1.1    Released 23 May 2007
-1.0    Released 2 April 2007
-0.9    Last beta version of the MathGL library. Released 2 March 2007
-0.8.1  Released 19 Febriary 2007
-0.8.0  First public release (24 January 2007)

diff --git a/texinfo/web_en.texi b/texinfo/web_en.texi
index b7452d352b70a44b56f54d20fd9278df84d96cb9..74e9fc737ec6a04e0f76b564b2c34928aff85b69 100644 (file)
--- a/texinfo/web_en.texi
+++ b/texinfo/web_en.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mgl_web_en.info
-@set VERSION 2.0.2
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This website demonstrates the Mathematical Graphic Library (MathGL) version @value{VERSION}, a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @titlepage
@@ -42,21 +28,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This website demonstrates the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -72,6 +44,19 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro external {}
+@comment  @html
+@comment  <script type="text/javascript"><!--
+@comment  google_ad_client = "ca-pub-1128070552722622";
+@comment  /* 728x90, создано 23.12.09 */
+@comment  google_ad_slot = "9958083480";
+@comment  google_ad_width = 728;
+@comment  google_ad_height = 90;
+@comment  //-->
+@comment  </script>
+@comment  <script type="text/javascript"
+@comment  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+@comment  </script>
+@comment  <br/>
 @html
 <!--LiveInternet counter--><script type="text/javascript"><!--
 document.write("<a href='http://www.liveinternet.ru/click' "+
@@ -91,6 +76,7 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 <a target=_blank href="http://sourceforge.net/donate/index.php?group_id=152187"><img src="http://images.sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project" /> </a>
 @end html
 @end macro
+
 @macro fig {plot,text}
 @uref{../\text\, @image{../small/\plot\-sm,3cm, , , .png}}
 @end macro
@@ -141,14 +127,20 @@ Generally MathGL is GPL library. However, you can use LGPL license for MathGL co
 
 @strong{Latest news}
 @itemize
-@item @emph{24 May 2012.}
-New version (v.@value{VERSION}) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are speeding up and minor bugfixes and improvements, which partially denoted @ref{News, here}.
-@item @emph{12 April 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted @ref{News, here}.
+@item @emph{13 December 2012.}
+New version (v.@value{VERSION}) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are new plots, advanced color schemes, @uref{../json.html, JavaScript drawing}, and many other improvements in both MathGL core and UDAV, which partially denoted @ref{News, here}. Note, there are @strong{incompatible with v.2.0.* changes} in the arguments of some functions.
+@item @emph{I'm sorry for making incompatible changes in v.2.1. It was done for introducing unified interface for all functions. I promise that I will not break API for v.2.* later, i.e. I'll only add new features or bug fixes.}
 @end itemize
 
 There is detailed @ref{News, news list}. Sourceforge project page @uref{http://sourceforge.net/projects/mathgl/, here}.
 
+@ifhtml
+@html
+<a href="http://www.datadvance.net"><img border="0" align="right" hspace="10" alt="$DATADVANCE" src="../datadvance.png"></a>
+@end html
+@end ifhtml
+Javascript interface was developed with support of @url{www.datadvance.net, $DATADVANCE} company.
+
 @external
 
 @node News, Features, Main, Top
@@ -157,49 +149,120 @@ There is detailed @ref{News, news list}. Sourceforge project page @uref{http://s
 @itemize
 
 @item
-@strong{24 May 2012.}
-New version (v.2.0.2) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are speeding up and minor bugfixes and improvements:
+@strong{13 December 2012.}
+New version (v.2.1) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are speeding up and many improvements and bugfixes:
 @itemize @bullet
 @item
-Add 'U' style for Axis() which disable ticks rotation.
+Add class mglDataC for complex data arrays.
 @item
-Improve speed of drawing
+Add Vect3() plot for drawing vectors on slice of 3d vector field. See @url{../doc_en/doc_en_17.html#Vect3-sample, sample}.
 @item
-Add reading 3d data files using mglData::ReadMat()
+Add Table() function for drawing table with data values. See @url{../doc_en/doc_en_14.html#Table-sample, sample}.
 @item
-Exclude unnecessary dependencies/inclusions
+Add ZoomAxis() for zooming/shifting axis range as whole.
 @item
-Improve build system: add multithreading; add install for Octave; separate enable-doc option from enable-all
+Add WriteJSON() function for exporting in JSON format suitable for later drawing by JavaScript
 @item
-Minor bugfixes
-@end itemize
+Add JavaScript code for visualizing JSON data. See @uref{../json.html, samples}.
+@item
+Add mgl.cgi tool which return PNG image for CGI request in form of MGL script.
+@item
+Add mglData::Solve() for finding x-value where dat(x)=val. See @url{../doc_en/doc_en_12.html#Solve-sample, sample}.
+@item
+Add mglData::Clean() for removing rows with duplicate values for given column.
+@item
+Add MGL commands 'errbox', 'face'
 
-@item 
-@strong{12 April 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted below.
-@itemize @bullet
 @item
-mglGraph class is single plotter class instead of mglGraphZB, mglGraphPS and so on.
+Color can be specified as its RGB[A] values, i.e. like @samp{@{xFFFFFF@}} or @samp{@{xFFFFFFFF@}}. See @url{../doc_en/doc_en_23.html#Line-styles, sample}.
+@item
+Color in color scheme  may have position in range [0,1]. Format is @samp{@{CN,pos@}} or @samp{@{xFFFFFF,pos@}}. See @url{../doc_en/doc_en_24.html#Color-scheme, sample}.
+@item
+Now pen width for marks is proportional to pen width of line multiplied by size of marks.
+@item
+Now you can use different font-faces in the plot simultaneously. See @url{../doc_en/doc_en_11.html#Text-features, sample}.
+@item
+Now Legend() automatically use several columns if it contain too many legend entries.
+@item
+Add style '-' for legend for drawing them horizontally. See @url{../doc_en/doc_en_11.html#Legend-sample, sample}.
+@item
+Vectors is drawn now even if only starting or ending points are placed in bounding box.
 @item
-Text style and text color positions are swapped. I.e. text style @samp{r:C} give red centered text, but not roman dark cyan text as for v.1.*.
+Strongly rewrite the algorithm of vector field plotting.
+
+@item
+Grid lines for NAN origin values are always located at far-away edges.
 @item
-ColumnPlot() indexing is reverted.
+Try correctly place axis and tick labels even for axis with inverse range (i.e. for v2<v1). Note, it work well for 2D axis. One should use Aspect() with negative values to do it correctly in general case.
 @item
-Move most of arguments of plotting functions into the string parameter and/or options.
+Axis style 'XYZ' draw corresponding axis with ticks labels on opposite side. This also influence on following Label() calls.
+@item
+Text is drawn for initially invisible axis (like z-axis) too.
+
 @item
-``Bright'' colors (like @{b8@}) can be used in color schemes and line styles.
+Frames now save 3D information if MGL_VECT_FRAME is set (by default).
+@item
+Add functions GetFrame(), DelFrame(), SetFrame(), ShowFrame() for replacing or showing data from given frame. It can be use to hide/show a set of plot(s) quickly. Work if MGL_VECT_FRAME is set on (by default is on).
+@item
+CalcXYZ() function now use data from z-buffer for better determining @{x,y,z@} coordinates.
+
 @item
-Intensively use pthread internally for parallelization of drawing and data processing.
+Add dialog for data arguments in "New command" dialog of UDAV. See @url{../doc_en/doc_en_71.html#UDAV-dialogs, UDAV dialogs}.
 @item
-Add tick labels rotation and skipping. Add ticks in time/date format.
+Value of arguments are saved while the kind of command is changed in "New command" dialog of UDAV.
 @item
-New kinds of plots (Tape(), Label(), Cones(), ContV()). Extend existing plots. New primitives (Circle(), Ellipse(), Rhomb(), ...). New plot positioning (MultiPlot(), GridPlot())
+Extend classification of commands in "New command" dialog of UDAV and make it automatic.
 @item
-Improve MGL scripts. Add 'ask' command and allow string concatenation from different lines.
+Mouse position at an object click now is displayed on the image itself.
 @item
-Export to LaTeX and to 3D formats (OBJ, OFF, STL).
+Add zoom in/out by mouse wheel.
 @item
-Add pipes support in utilities (@code{mglconv, mglview}).
+Add zoom in/out of axis range by mouse wheel, and shift of axis range by middle button.
+@item
+Text editor in UDAV now highlight current line.
+@item
+Completer can be switched off correctly now.
+@item
+Multi-line strings (i.e. separated by "\" symbol) are highlighted correctly now.
+@item
+Add option to enable/disable selected plot in UDAV.
+@item
+Rearrange hot-keys in UDAV and in QMathGL.
+
+@item
+Make code compilable by Borland compiler too.
+@item
+Improve output in OpenGL mode.
+@item
+Add fog at export in EPS/SVG formats.
+@item
+Add mglParse::AllowFileIO() for enable/disable I/O commands in MGL scripts.
+
+@item
+Export functions now can write in stdout if file name is "-".
+@item
+Picture drawing now use multi-threading for each stage.
+
+@item
+Functions mglData::Spline*, mglData::Linear* now can return gradient at the point.
+@item
+mglFourier now make true inverse transform.
+
+@item
+Add annotation for all pure C functions.
+@item
+Update list of built-in glyphs.
+@item
+Update samples.
+@item
+Update documentation.
+@item
+Different bugfixes.
+
+@item
+@strong{INCOMPATIBLE CHANGES:} in the arguments of functions: mgl_axis, mgl_axis_grid, mgl_label, mgl_labelw, mgl_legend_pos, mgl_legend; and in functions for MGL parsing.
+@item
+@strong{MINOR INCOMPATIBLE:} plotting functions now use double argument always.
 @end itemize
 
 @item 
@@ -252,7 +315,7 @@ two-dimensional plots: Mesh, Surf, Dens, Cont, ContF, Boxs, Axial, Fall, Belt, T
 three-dimensional plots: Surf3, Dens3, Cont3, ContF3, Cloud-like, including isosurfaces transparent (Surf3A) or colored (Surf3C) by another data (@ref{3D plotting});
 
 @item
-vector fields plots: vector fields Vect and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
+vector fields plots: vector fields Vect, Vect3 and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
 
 @item
 and so on. See also @ref{Extra samples}.
@@ -278,117 +341,120 @@ There are samples for @ref{1D plotting, 1D arrays}, @ref{2D plotting, 2D arrays}
 @anchor{1D plotting}
 @subsection Examples of graphics for 1d arrays
 
-@fig{plot, doc_en/doc_en_32.html#Plot-sample}
-@fig{radar, doc_en/doc_en_33.html#Radar-sample}
-@fig{step, doc_en/doc_en_34.html#Step-sample}
-@fig{tens, doc_en/doc_en_35.html#Tens-sample}
+@fig{plot, doc_en/doc_en_13.html#Plot-sample}
+@fig{radar,doc_en/doc_en_13.html#Radar-sample}
+@fig{step, doc_en/doc_en_13.html#Step-sample}
+@fig{tens, doc_en/doc_en_13.html#Tens-sample}
 
-@fig{area, doc_en/doc_en_36.html#Area-sample}
-@fig{region, doc_en/doc_en_37.html#Region-sample}
-@fig{stem, doc_en/doc_en_38.html#Stem-sample}
-@fig{torus, doc_en/doc_en_51.html#Torus-sample}
+@fig{area, doc_en/doc_en_13.html#Area-sample}
+@fig{region,doc_en/doc_en_13.html#Region-sample}
+@fig{stem, doc_en/doc_en_13.html#Stem-sample}
+@fig{torus,doc_en/doc_en_13.html#Torus-sample}
 
-@fig{bars, doc_en/doc_en_39.html#Bars-sample}
-@fig{barh, doc_en/doc_en_40.html#Barh-sample}
-@fig{cones, doc_en/doc_en_41.html#Cones-sample}
-@fig{chart, doc_en/doc_en_42.html#Chart-sample}
+@fig{bars, doc_en/doc_en_13.html#Bars-sample}
+@fig{barh, doc_en/doc_en_13.html#Barh-sample}
+@fig{cones,doc_en/doc_en_13.html#Cones-sample}
+@fig{chart,doc_en/doc_en_13.html#Chart-sample}
 
-@fig{boxplot, doc_en/doc_en_43.html#BoxPlot-sample}
-@fig{candle, doc_en/doc_en_44.html#Candle-sample}
-@fig{tube, doc_en/doc_en_49.html#Tube-sample}
-@fig{tape, doc_en/doc_en_50.html#Tape-sample}
+@fig{boxplot,doc_en/doc_en_13.html#BoxPlot-sample}
+@fig{candle, doc_en/doc_en_13.html#Candle-sample}
+@fig{tube, doc_en/doc_en_13.html#Tube-sample}
+@fig{tape, doc_en/doc_en_13.html#Tape-sample}
 
-@fig{error, doc_en/doc_en_45.html#Error-sample}
-@fig{mark, doc_en/doc_en_46.html#Mark-sample}
-@fig{textmark, doc_en/doc_en_47.html#TextMark-sample}
-@fig{label, doc_en/doc_en_48.html#Label-sample}
+@fig{error,doc_en/doc_en_13.html#Error-sample}
+@fig{mark, doc_en/doc_en_13.html#Mark-sample}
+@fig{textmark, doc_en/doc_en_13.html#TextMark-sample}
+@fig{label,doc_en/doc_en_13.html#Label-sample}
 
 @anchor{2D plotting}
 @subsection Examples of graphics for 2d arrays
 
-@fig{surf, doc_en/doc_en_53.html#Surf-sample}
-@fig{surfc, doc_en/doc_en_54.html#SurfC-sample}
-@fig{surfa, doc_en/doc_en_55.html#SurfA-sample}
-@fig{mesh, doc_en/doc_en_56.html#Mesh-sample}
+@fig{surf, doc_en/doc_en_14.html#Surf-sample}
+@fig{surfc,doc_en/doc_en_14.html#SurfC-sample}
+@fig{surfa,doc_en/doc_en_14.html#SurfA-sample}
+@fig{mesh, doc_en/doc_en_14.html#Mesh-sample}
 
-@fig{fall, doc_en/doc_en_57.html#Fall-sample}
-@fig{belt, doc_en/doc_en_58.html#Belt-sample}
-@fig{boxs, doc_en/doc_en_59.html#Boxs-sample}
-@fig{axial, doc_en/doc_en_67.html#Axial-sample}
+@fig{fall, doc_en/doc_en_14.html#Fall-sample}
+@fig{belt, doc_en/doc_en_14.html#Belt-sample}
+@fig{boxs, doc_en/doc_en_14.html#Boxs-sample}
+@fig{axial,doc_en/doc_en_14.html#Axial-sample}
 
-@fig{dens, doc_en/doc_en_62.html#Dens-sample}
-@fig{tile, doc_en/doc_en_60.html#Tile-sample}
-@fig{tiles, doc_en/doc_en_61.html#TileS-sample}
-@fig{grad, doc_en/doc_en_68.html#Grad-sample}
+@fig{dens, doc_en/doc_en_14.html#Dens-sample}
+@fig{tile, doc_en/doc_en_14.html#Tile-sample}
+@fig{tiles,doc_en/doc_en_14.html#TileS-sample}
+@fig{grad, doc_en/doc_en_14.html#Grad-sample}
 
-@fig{cont, doc_en/doc_en_63.html#Cont-sample}
-@fig{contf, doc_en/doc_en_64.html#ContF-sample}
-@fig{contd, doc_en/doc_en_65.html#ContD-sample}
-@fig{contv, doc_en/doc_en_66.html#ContV-sample}
+@fig{cont, doc_en/doc_en_14.html#Cont-sample}
+@fig{contf,doc_en/doc_en_14.html#ContF-sample}
+@fig{contd,doc_en/doc_en_14.html#ContD-sample}
+@fig{contv,doc_en/doc_en_14.html#ContV-sample}
 
 @anchor{3D plotting}
 @subsection Examples of graphics for 3d arrays
 
-@fig{surf3, doc_en/doc_en_70.html#Surf3-sample}
-@fig{surf3c, doc_en/doc_en_71.html#Surf3C-sample}
-@fig{surf3a, doc_en/doc_en_72.html#Surf3A-sample}
-@fig{cloud, doc_en/doc_en_73.html#Cloud-sample}
+@fig{surf3, doc_en/doc_en_15.html#Surf3-sample}
+@fig{surf3c,doc_en/doc_en_15.html#Surf3C-sample}
+@fig{surf3a,doc_en/doc_en_15.html#Surf3A-sample}
+@fig{cloud, doc_en/doc_en_15.html#Cloud-sample}
 
-@fig{densa, doc_en/doc_en_74.html#Dens3-sample}
-@fig{conta, doc_en/doc_en_75.html#Cont3-sample}
-@fig{contfa, doc_en/doc_en_76.html#ContF3-sample}
-@fig{dots, doc_en/doc_en_81.html#Dots-sample}
+@fig{densa, doc_en/doc_en_15.html#Dens3-sample}
+@fig{conta, doc_en/doc_en_15.html#Cont3-sample}
+@fig{contfa,doc_en/doc_en_15.html#ContF3-sample}
+@fig{dots,  doc_en/doc_en_15.html#Dots-sample}
 
-@fig{dens_xyz, doc_en/doc_en_77.html#Dens-projection-sample}
-@fig{cont_xyz, doc_en/doc_en_78.html#Cont-projection-sample}
-@fig{contf_xyz, doc_en/doc_en_79.html#ContF-projection-sample}
-@fig{triplot, doc_en/doc_en_80.html#TriPlot-and-QuadPlot}
+@fig{dens_xyz, doc_en/doc_en_15.html#Dens-projection-sample}
+@fig{cont_xyz, doc_en/doc_en_15.html#Cont-projection-sample}
+@fig{contf_xyz,doc_en/doc_en_15.html#ContF-projection-sample}
+@fig{triplot,  doc_en/doc_en_15.html#TriPlot-and-QuadPlot}
 
 @anchor{Vector fields}
 @subsection Examples of graphics for vector fields
 
-@fig{vect, doc_en/doc_en_83.html#Vect-sample}
-@fig{traj, doc_en/doc_en_84.html#Tra-sjample}
-@fig{flow, doc_en/doc_en_85.html#Flow-sample}
-@fig{pipe, doc_en/doc_en_86.html#Pipe-sample}
+@fig{vect, doc_en/doc_en_16.html#Vect-sample}
+@fig{vecta,doc_en/doc_en_16.html#Vect3-sample}
+@fig{flow, doc_en/doc_en_16.html#Flow-sample}
+@fig{pipe, doc_en/doc_en_16.html#Pipe-sample}
+
+@fig{traj, doc_en/doc_en_16.html#Traj-sample}
+@fig{dew, doc_en/doc_en_16.html#Dew-sample}
 
 @anchor{Extra samples}
 @subsection Examples of additional features
 
-@fig{inplot, doc_en/doc_en_17.html#Subplots}
-@fig{axis, doc_en/doc_en_18.html#Axis-and-ticks}
-@fig{ticks, doc_en/doc_en_18.html#Axis-and-ticks}
-@fig{loglog, doc_en/doc_en_18.html#Axis-and-ticks}
-
-@fig{curvcoor, doc_en/doc_en_19.html#Curvilinear-coordinates}
-@fig{colorbar, doc_en/doc_en_20.html#Colorbars}
-@fig{box, doc_en/doc_en_21.html#Bounding-box}
-@fig{ternary, doc_en/doc_en_22.html#Ternary-axis}
-
-@fig{text, doc_en/doc_en_23.html#Text-features}
-@fig{legend, doc_en/doc_en_24.html#Legend-sample}
-@fig{cut, doc_en/doc_en_25.html#Cutting-sample}
-@fig{alpha, doc_en/doc_en_90.html#Transparency-and-lighting}
-
-@fig{type0, doc_en/doc_en_91.html#Types-of-transparency}
-@fig{type1, doc_en/doc_en_91.html#Types-of-transparency}
-@fig{type2, doc_en/doc_en_91.html#Types-of-transparency}
-@fig{fog, doc_en/doc_en_92.html#Adding-fog}
-
-@fig{combined, doc_en/doc_en_89.html#g_t_0060_0060Compound_0027_0027-graphics}
-@fig{several_light, doc_en/doc_en_93.html#Several-light-sources}
-@fig{stereo, doc_en/doc_en_102.html#Stereo-image}
-@fig{primitives, doc_en/doc_en_94.html#Using-primitives}
-
-@fig{stfa, doc_en/doc_en_95.html#STFA-sample}
-@fig{dat_diff, doc_en/doc_en_29.html#Change-data}
-@fig{dat_extra, doc_en/doc_en_29.html#Change-data}
-@fig{map, doc_en/doc_en_96.html#Mapping-visualization}
-
-@fig{hist, doc_en/doc_en_97.html#Making-histogram}
-@fig{fit, doc_en/doc_en_98.html#Nonlinear-fitting-sample}
-@fig{pde, doc_en/doc_en_99.html#PDE-solving-hints}
-@fig{parser, doc_en/doc_en_100.html#MGL-parser-using}
+@fig{inplot, doc_en/doc_en_10.html#Subplots}
+@fig{axis, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{ticks, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{loglog, doc_en/doc_en_10.html#Axis-and-ticks}
+
+@fig{curvcoor, doc_en/doc_en_10.html#Curvilinear-coordinates}
+@fig{colorbar, doc_en/doc_en_10.html#Colorbars}
+@fig{box, doc_en/doc_en_10.html#Bounding-box}
+@fig{ternary, doc_en/doc_en_10.html#Ternary-axis}
+
+@fig{text, doc_en/doc_en_10.html#Text-features}
+@fig{legend, doc_en/doc_en_10.html#Legend-sample}
+@fig{cut, doc_en/doc_en_10.html#Cutting-sample}
+@fig{alpha, doc_en/doc_en_17.html#Transparency-and-lighting}
+
+@fig{type0, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type1, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type2, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{fog, doc_en/doc_en_17.html#Adding-fog}
+
+@fig{combined, doc_en/doc_en_17.html#g_t_0060_0060Compound_0027_0027-graphics}
+@fig{several_light, doc_en/doc_en_17.html#Several-light-sources}
+@fig{stereo, doc_en/doc_en_17.html#Stereo-image}
+@fig{primitives, doc_en/doc_en_17.html#Using-primitives}
+
+@fig{stfa, doc_en/doc_en_17.html#STFA-sample}
+@fig{dat_diff, doc_en/doc_en_11.html#Change-data}
+@fig{dat_extra, doc_en/doc_en_11.html#Change-data}
+@fig{map, doc_en/doc_en_17.html#Mapping-visualization}
+
+@fig{hist, doc_en/doc_en_17.html#Making-histogram}
+@fig{fit, doc_en/doc_en_17.html#Nonlinear-fitting-sample}
+@fig{pde, doc_en/doc_en_17.html#PDE-solving-hints}
+@fig{parser, doc_en/doc_en_17.html#MGL-parser-using}
 
 @external
 
@@ -431,7 +497,7 @@ Before the first using all variables must be defined with the help of commands,
 
 Command may have several set of possible arguments (for example, @code{plot ydat} and @code{plot xdat ydat}). All command arguments for a selected set must be specified. However, some arguments can have default values. These argument are printed in [], like @code{text ydat ['stl'='']} or @code{text x y 'txt' ['fnt'='' size=-1]}. At this, the record @code{[arg1 arg2 arg3 ...]} means @code{[arg1 [arg2 [arg3 ...]]]}, i.e. you can omit only tailing arguments if you agree with its default values. For example, @code{text x y 'txt' '' 1} or @code{text x y 'txt' ''} is correct, but @code{text x y 'txt' 1} is incorrect (argument @code{'fnt'} is missed).
 
-For more details see @uref{../doc_en/doc_en_166.html#MGL-scripts, MathGL documentation}
+For more details see @uref{../doc_en/doc_en_64.html#MGL-scripts, MathGL documentation}
 
 @external
 
@@ -449,6 +515,8 @@ You may download current version of MathGL for following configurations:
 @item
 @uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-mingw.i686.7z,Win32 LGPL} binaries for MinGW (build for i686, no GSL and HDF5 support)
 @item
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-win64.7z,Win64 LGPL} binaries for MSVS 2010 (no GSL and HDF5 support)
+@item
 @uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}-1.DevPack,DevPak} package for Dev-C++ or Code::Blocks (GPL version)
 @item
 @uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.eng.pdf,PDF} documentation in English

diff --git a/texinfo/web_fr.texi b/texinfo/web_fr.texi
index c229c2f4ce31d734ad2a7b1c640e1645cecb5080..74e9fc737ec6a04e0f76b564b2c34928aff85b69 100644 (file)
--- a/texinfo/web_fr.texi
+++ b/texinfo/web_fr.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mgl_web_en.info
-@set VERSION 2.0
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This website demonstrates the Mathematical Graphic Library (MathGL) version @value{VERSION}, a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @titlepage
@@ -42,21 +28,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This website demonstrates the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -72,6 +44,19 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro external {}
+@comment  @html
+@comment  <script type="text/javascript"><!--
+@comment  google_ad_client = "ca-pub-1128070552722622";
+@comment  /* 728x90, создано 23.12.09 */
+@comment  google_ad_slot = "9958083480";
+@comment  google_ad_width = 728;
+@comment  google_ad_height = 90;
+@comment  //-->
+@comment  </script>
+@comment  <script type="text/javascript"
+@comment  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+@comment  </script>
+@comment  <br/>
 @html
 <!--LiveInternet counter--><script type="text/javascript"><!--
 document.write("<a href='http://www.liveinternet.ru/click' "+
@@ -84,13 +69,14 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 " hours, number of visitors during 24 hours and during today' "+
 "border=0 width=88 height=31><\/a>")//--></script><!--/LiveInternet-->
 
-<a href="http://sourceforge.net"><img src="http://sflogo.sourceforge.net/sflogo.php?group_id=152187&amp;type=2" alt="SourceForge.net Logo" border="0" height="37" width="125"></a>
+<a target=_blank href="http://sourceforge.net"><img src="http://sflogo.sourceforge.net/sflogo.php?group_id=152187&amp;type=2" alt="SourceForge.net Logo" border="0" height="37" width="125"></a>
 
-<a href="http://www.thefreecountry.com/"> <img src="http://www.thefreecountry.com/images/tfc88x31green.gif" alt="thefreecountry.com: Free Programmers' Resources, Free Webmasters' Resources, Free Security Resources, Free Software" border="0" height="31" width="88"></a>
+<a target=_blank href="http://www.thefreecountry.com/"> <img src="http://www.thefreecountry.com/images/tfc88x31green.gif" alt="thefreecountry.com: Free Programmers' Resources, Free Webmasters' Resources, Free Security Resources, Free Software" border="0" height="31" width="88"></a>
 
-<a href="http://sourceforge.net/donate/index.php?group_id=152187"><img src="http://images.sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project" /> </a>
+<a target=_blank href="http://sourceforge.net/donate/index.php?group_id=152187"><img src="http://images.sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project" /> </a>
 @end html
 @end macro
+
 @macro fig {plot,text}
 @uref{../\text\, @image{../small/\plot\-sm,3cm, , , .png}}
 @end macro
@@ -123,7 +109,7 @@ a library for working in window and console modes and for easy embedding into ot
 a library with large and growing set of graphics.
 @end itemize
 
-At this version (1.11) MathGL has more than 35000 lines of code, more than 55 general types of graphics for 1d, 2d and 3d data arrays, including special ones for chemical and statistical graphics. It can export graphics to raster and vector (EPS or SVG) formats. It has Qt, FLTK, OpenGL interfaces and can be used even from console programs. It has functions for data processing and script MGL language for simplification of data plotting. Also it has several types of transparency and smoothed lightning, vector fonts and TeX-like symbol parsing, arbitrary curvilinear coordinate system and many over useful things. It can be used from code written on C++/C/Fortran/Python/Octave and many other languages. Finally it is platform independent and free (under GPL v.2.0 license).
+Now MathGL has more than 35000 lines of code, more than 55 general types of graphics for 1d, 2d and 3d data arrays, including special ones for chemical and statistical graphics. It can export graphics to raster and vector (EPS or SVG) formats. It has Qt, FLTK, OpenGL interfaces and can be used even from console programs. It has functions for data processing and script MGL language for simplification of data plotting. Also it has several types of transparency and smoothed lightning, vector fonts and TeX-like symbol parsing, arbitrary curvilinear coordinate system and many over useful things. It can be used from code written on C++/C/Fortran/Python/Octave and many other languages. Finally it is platform independent and free (under GPL v.2.0 license).
 
 There is a @uref{http://sourceforge.net/forum/?group_id=152187, forum} where you can ask a question or suggest an improvement. However the @uref{http://groups.google.com/group/mathgl, MathGL group} is preferable for quicker answer.
 
@@ -141,44 +127,142 @@ Generally MathGL is GPL library. However, you can use LGPL license for MathGL co
 
 @strong{Latest news}
 @itemize
-@item @emph{29 March 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted @ref{News, here}.
+@item @emph{13 December 2012.}
+New version (v.@value{VERSION}) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are new plots, advanced color schemes, @uref{../json.html, JavaScript drawing}, and many other improvements in both MathGL core and UDAV, which partially denoted @ref{News, here}. Note, there are @strong{incompatible with v.2.0.* changes} in the arguments of some functions.
+@item @emph{I'm sorry for making incompatible changes in v.2.1. It was done for introducing unified interface for all functions. I promise that I will not break API for v.2.* later, i.e. I'll only add new features or bug fixes.}
 @end itemize
 
 There is detailed @ref{News, news list}. Sourceforge project page @uref{http://sourceforge.net/projects/mathgl/, here}.
 
+@ifhtml
+@html
+<a href="http://www.datadvance.net"><img border="0" align="right" hspace="10" alt="$DATADVANCE" src="../datadvance.png"></a>
+@end html
+@end ifhtml
+Javascript interface was developed with support of @url{www.datadvance.net, $DATADVANCE} company.
+
 @external
 
 @node News, Features, Main, Top
 @section News
 
 @itemize
-@item 
-@strong{29 March 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted below.
+
+@item
+@strong{13 December 2012.}
+New version (v.2.1) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are speeding up and many improvements and bugfixes:
 @itemize @bullet
 @item
-mglGraph class is single plotter class instead of mglGraphZB, mglGraphPS and so on.
+Add class mglDataC for complex data arrays.
+@item
+Add Vect3() plot for drawing vectors on slice of 3d vector field. See @url{../doc_en/doc_en_17.html#Vect3-sample, sample}.
+@item
+Add Table() function for drawing table with data values. See @url{../doc_en/doc_en_14.html#Table-sample, sample}.
+@item
+Add ZoomAxis() for zooming/shifting axis range as whole.
+@item
+Add WriteJSON() function for exporting in JSON format suitable for later drawing by JavaScript
+@item
+Add JavaScript code for visualizing JSON data. See @uref{../json.html, samples}.
 @item
-Text style and text color positions are swapped. I.e. text style @samp{r:C} give red centered text, but not roman dark cyan text as for v.1.*.
+Add mgl.cgi tool which return PNG image for CGI request in form of MGL script.
 @item
-ColumnPlot() indexing is reverted.
+Add mglData::Solve() for finding x-value where dat(x)=val. See @url{../doc_en/doc_en_12.html#Solve-sample, sample}.
 @item
-Move most of arguments of plotting functions into the string parameter and/or options.
+Add mglData::Clean() for removing rows with duplicate values for given column.
 @item
-``Bright'' colors (like @{b8@}) can be used in color schemes and line styles.
+Add MGL commands 'errbox', 'face'
+
+@item
+Color can be specified as its RGB[A] values, i.e. like @samp{@{xFFFFFF@}} or @samp{@{xFFFFFFFF@}}. See @url{../doc_en/doc_en_23.html#Line-styles, sample}.
+@item
+Color in color scheme  may have position in range [0,1]. Format is @samp{@{CN,pos@}} or @samp{@{xFFFFFF,pos@}}. See @url{../doc_en/doc_en_24.html#Color-scheme, sample}.
+@item
+Now pen width for marks is proportional to pen width of line multiplied by size of marks.
+@item
+Now you can use different font-faces in the plot simultaneously. See @url{../doc_en/doc_en_11.html#Text-features, sample}.
+@item
+Now Legend() automatically use several columns if it contain too many legend entries.
+@item
+Add style '-' for legend for drawing them horizontally. See @url{../doc_en/doc_en_11.html#Legend-sample, sample}.
+@item
+Vectors is drawn now even if only starting or ending points are placed in bounding box.
 @item
-Intensively use pthread internally for parallelization of drawing and data processing.
+Strongly rewrite the algorithm of vector field plotting.
+
+@item
+Grid lines for NAN origin values are always located at far-away edges.
+@item
+Try correctly place axis and tick labels even for axis with inverse range (i.e. for v2<v1). Note, it work well for 2D axis. One should use Aspect() with negative values to do it correctly in general case.
+@item
+Axis style 'XYZ' draw corresponding axis with ticks labels on opposite side. This also influence on following Label() calls.
 @item
-Add tick labels rotation and skipping. Add ticks in time/date format.
+Text is drawn for initially invisible axis (like z-axis) too.
+
+@item
+Frames now save 3D information if MGL_VECT_FRAME is set (by default).
 @item
-New kinds of plots (Tape(), Label(), Cones(), ContV()). Extend existing plots. New primitives (Circle(), Ellipse(), Rhomb(), ...). New plot positioning (MultiPlot(), GridPlot())
+Add functions GetFrame(), DelFrame(), SetFrame(), ShowFrame() for replacing or showing data from given frame. It can be use to hide/show a set of plot(s) quickly. Work if MGL_VECT_FRAME is set on (by default is on).
+@item
+CalcXYZ() function now use data from z-buffer for better determining @{x,y,z@} coordinates.
+
 @item
-Improve MGL scripts. Add 'ask' command and allow string concatenation from different lines.
+Add dialog for data arguments in "New command" dialog of UDAV. See @url{../doc_en/doc_en_71.html#UDAV-dialogs, UDAV dialogs}.
 @item
-Export to LaTeX and to 3D formats (OBJ, OFF, STL).
+Value of arguments are saved while the kind of command is changed in "New command" dialog of UDAV.
 @item
-Add pipes support in utilities (@code{mglconv, mglview}).
+Extend classification of commands in "New command" dialog of UDAV and make it automatic.
+@item
+Mouse position at an object click now is displayed on the image itself.
+@item
+Add zoom in/out by mouse wheel.
+@item
+Add zoom in/out of axis range by mouse wheel, and shift of axis range by middle button.
+@item
+Text editor in UDAV now highlight current line.
+@item
+Completer can be switched off correctly now.
+@item
+Multi-line strings (i.e. separated by "\" symbol) are highlighted correctly now.
+@item
+Add option to enable/disable selected plot in UDAV.
+@item
+Rearrange hot-keys in UDAV and in QMathGL.
+
+@item
+Make code compilable by Borland compiler too.
+@item
+Improve output in OpenGL mode.
+@item
+Add fog at export in EPS/SVG formats.
+@item
+Add mglParse::AllowFileIO() for enable/disable I/O commands in MGL scripts.
+
+@item
+Export functions now can write in stdout if file name is "-".
+@item
+Picture drawing now use multi-threading for each stage.
+
+@item
+Functions mglData::Spline*, mglData::Linear* now can return gradient at the point.
+@item
+mglFourier now make true inverse transform.
+
+@item
+Add annotation for all pure C functions.
+@item
+Update list of built-in glyphs.
+@item
+Update samples.
+@item
+Update documentation.
+@item
+Different bugfixes.
+
+@item
+@strong{INCOMPATIBLE CHANGES:} in the arguments of functions: mgl_axis, mgl_axis_grid, mgl_label, mgl_labelw, mgl_legend_pos, mgl_legend; and in functions for MGL parsing.
+@item
+@strong{MINOR INCOMPATIBLE:} plotting functions now use double argument always.
 @end itemize
 
 @item 
@@ -231,7 +315,7 @@ two-dimensional plots: Mesh, Surf, Dens, Cont, ContF, Boxs, Axial, Fall, Belt, T
 three-dimensional plots: Surf3, Dens3, Cont3, ContF3, Cloud-like, including isosurfaces transparent (Surf3A) or colored (Surf3C) by another data (@ref{3D plotting});
 
 @item
-vector fields plots: vector fields Vect and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
+vector fields plots: vector fields Vect, Vect3 and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
 
 @item
 and so on. See also @ref{Extra samples}.
@@ -257,117 +341,120 @@ There are samples for @ref{1D plotting, 1D arrays}, @ref{2D plotting, 2D arrays}
 @anchor{1D plotting}
 @subsection Examples of graphics for 1d arrays
 
-@fig{plot, mathgl_en/mathgl_en_13.html#Plot-sample}
-@fig{radar, mathgl_en/mathgl_en_13.html#Radar-sample}
-@fig{step, mathgl_en/mathgl_en_13.html#Step-sample}
-@fig{tens, mathgl_en/mathgl_en_13.html#Tens-sample}
+@fig{plot, doc_en/doc_en_13.html#Plot-sample}
+@fig{radar,doc_en/doc_en_13.html#Radar-sample}
+@fig{step, doc_en/doc_en_13.html#Step-sample}
+@fig{tens, doc_en/doc_en_13.html#Tens-sample}
 
-@fig{area, mathgl_en/mathgl_en_13.html#Area-sample}
-@fig{region, mathgl_en/mathgl_en_13.html#Region-sample}
-@fig{stem, mathgl_en/mathgl_en_13.html#Stem-sample}
-@fig{torus, mathgl_en/mathgl_en_13.html#Torus-sample}
+@fig{area, doc_en/doc_en_13.html#Area-sample}
+@fig{region,doc_en/doc_en_13.html#Region-sample}
+@fig{stem, doc_en/doc_en_13.html#Stem-sample}
+@fig{torus,doc_en/doc_en_13.html#Torus-sample}
 
-@fig{bars, mathgl_en/mathgl_en_13.html#Bars-sample}
-@fig{barh, mathgl_en/mathgl_en_13.html#Barh-sample}
-@fig{cones, mathgl_en/mathgl_en_13.html#Cones-sample}
-@fig{chart, mathgl_en/mathgl_en_13.html#Chart-sample}
+@fig{bars, doc_en/doc_en_13.html#Bars-sample}
+@fig{barh, doc_en/doc_en_13.html#Barh-sample}
+@fig{cones,doc_en/doc_en_13.html#Cones-sample}
+@fig{chart,doc_en/doc_en_13.html#Chart-sample}
 
-@fig{boxplot, mathgl_en/mathgl_en_13.html#BoxPlot-sample}
-@fig{candle, mathgl_en/mathgl_en_13.html#Candle-sample}
-@fig{tube, mathgl_en/mathgl_en_13.html#Tube-sample}
-@fig{tape, mathgl_en/mathgl_en_13.html#Tape-sample}
+@fig{boxplot,doc_en/doc_en_13.html#BoxPlot-sample}
+@fig{candle, doc_en/doc_en_13.html#Candle-sample}
+@fig{tube, doc_en/doc_en_13.html#Tube-sample}
+@fig{tape, doc_en/doc_en_13.html#Tape-sample}
 
-@fig{error, mathgl_en/mathgl_en_13.html#Error-sample}
-@fig{mark, mathgl_en/mathgl_en_13.html#Mark-sample}
-@fig{textmark, mathgl_en/mathgl_en_13.html#TextMark-sample}
-@fig{label, mathgl_en/mathgl_en_13.html#Label-sample}
+@fig{error,doc_en/doc_en_13.html#Error-sample}
+@fig{mark, doc_en/doc_en_13.html#Mark-sample}
+@fig{textmark, doc_en/doc_en_13.html#TextMark-sample}
+@fig{label,doc_en/doc_en_13.html#Label-sample}
 
 @anchor{2D plotting}
 @subsection Examples of graphics for 2d arrays
 
-@fig{surf, mathgl_en/mathgl_en_14.html#Surf-sample}
-@fig{surfc, mathgl_en/mathgl_en_14.html#SurfC-sample}
-@fig{surfa, mathgl_en/mathgl_en_14.html#SurfA-sample}
-@fig{mesh, mathgl_en/mathgl_en_14.html#Mesh-sample}
+@fig{surf, doc_en/doc_en_14.html#Surf-sample}
+@fig{surfc,doc_en/doc_en_14.html#SurfC-sample}
+@fig{surfa,doc_en/doc_en_14.html#SurfA-sample}
+@fig{mesh, doc_en/doc_en_14.html#Mesh-sample}
 
-@fig{fall, mathgl_en/mathgl_en_14.html#Fall-sample}
-@fig{belt, mathgl_en/mathgl_en_14.html#Belt-sample}
-@fig{boxs, mathgl_en/mathgl_en_14.html#Boxs-sample}
-@fig{axial, mathgl_en/mathgl_en_14.html#Axial-sample}
+@fig{fall, doc_en/doc_en_14.html#Fall-sample}
+@fig{belt, doc_en/doc_en_14.html#Belt-sample}
+@fig{boxs, doc_en/doc_en_14.html#Boxs-sample}
+@fig{axial,doc_en/doc_en_14.html#Axial-sample}
 
-@fig{dens, mathgl_en/mathgl_en_14.html#Dens-sample}
-@fig{tile, mathgl_en/mathgl_en_14.html#Tile-sample}
-@fig{tiles, mathgl_en/mathgl_en_14.html#TileS-sample}
-@fig{grad, mathgl_en/mathgl_en_14.html#Grad-sample}
+@fig{dens, doc_en/doc_en_14.html#Dens-sample}
+@fig{tile, doc_en/doc_en_14.html#Tile-sample}
+@fig{tiles,doc_en/doc_en_14.html#TileS-sample}
+@fig{grad, doc_en/doc_en_14.html#Grad-sample}
 
-@fig{cont, mathgl_en/mathgl_en_14.html#Cont-sample}
-@fig{contf, mathgl_en/mathgl_en_14.html#ContF-sample}
-@fig{contd, mathgl_en/mathgl_en_14.html#ContD-sample}
-@fig{contv, mathgl_en/mathgl_en_14.html#ContV-sample}
+@fig{cont, doc_en/doc_en_14.html#Cont-sample}
+@fig{contf,doc_en/doc_en_14.html#ContF-sample}
+@fig{contd,doc_en/doc_en_14.html#ContD-sample}
+@fig{contv,doc_en/doc_en_14.html#ContV-sample}
 
 @anchor{3D plotting}
 @subsection Examples of graphics for 3d arrays
 
-@fig{surf3, mathgl_en/mathgl_en_15.html#Surf3-sample}
-@fig{surf3c, mathgl_en/mathgl_en_15.html#Surf3C-sample}
-@fig{surf3a, mathgl_en/mathgl_en_15.html#Surf3A-sample}
-@fig{cloud, mathgl_en/mathgl_en_15.html#Cloud-sample}
+@fig{surf3, doc_en/doc_en_15.html#Surf3-sample}
+@fig{surf3c,doc_en/doc_en_15.html#Surf3C-sample}
+@fig{surf3a,doc_en/doc_en_15.html#Surf3A-sample}
+@fig{cloud, doc_en/doc_en_15.html#Cloud-sample}
 
-@fig{densa, mathgl_en/mathgl_en_15.html#Dens3-sample}
-@fig{conta, mathgl_en/mathgl_en_15.html#Cont3-sample}
-@fig{contfa, mathgl_en/mathgl_en_15.html#ContF3-sample}
-@fig{dots, mathgl_en/mathgl_en_15.html#Dots-sample}
+@fig{densa, doc_en/doc_en_15.html#Dens3-sample}
+@fig{conta, doc_en/doc_en_15.html#Cont3-sample}
+@fig{contfa,doc_en/doc_en_15.html#ContF3-sample}
+@fig{dots,  doc_en/doc_en_15.html#Dots-sample}
 
-@fig{dens_xyz, mathgl_en/mathgl_en_15.html#Dens-projection-sample}
-@fig{cont_xyz, mathgl_en/mathgl_en_15.html#Cont-projection-sample}
-@fig{contf_xyz, mathgl_en/mathgl_en_15.html#ContF-projection-sample}
-@fig{triplot, mathgl_en/mathgl_en_15.html#TriPlot-and-QuadPlot}
+@fig{dens_xyz, doc_en/doc_en_15.html#Dens-projection-sample}
+@fig{cont_xyz, doc_en/doc_en_15.html#Cont-projection-sample}
+@fig{contf_xyz,doc_en/doc_en_15.html#ContF-projection-sample}
+@fig{triplot,  doc_en/doc_en_15.html#TriPlot-and-QuadPlot}
 
 @anchor{Vector fields}
 @subsection Examples of graphics for vector fields
 
-@fig{vect, mathgl_en/mathgl_en_16.html#Vect-sample}
-@fig{traj, mathgl_en/mathgl_en_16.html#Tra-sjample}
-@fig{flow, mathgl_en/mathgl_en_16.html#Flow-sample}
-@fig{pipe, mathgl_en/mathgl_en_16.html#Pipe-sample}
+@fig{vect, doc_en/doc_en_16.html#Vect-sample}
+@fig{vecta,doc_en/doc_en_16.html#Vect3-sample}
+@fig{flow, doc_en/doc_en_16.html#Flow-sample}
+@fig{pipe, doc_en/doc_en_16.html#Pipe-sample}
+
+@fig{traj, doc_en/doc_en_16.html#Traj-sample}
+@fig{dew, doc_en/doc_en_16.html#Dew-sample}
 
 @anchor{Extra samples}
 @subsection Examples of additional features
 
-@fig{inplot, mathgl_en/mathgl_en_10.html#Subplots}
-@fig{axis, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-@fig{ticks, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-@fig{loglog, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-
-@fig{curvcoor, mathgl_en/mathgl_en_10.html#Curvilinear-coordinates}
-@fig{colorbar, mathgl_en/mathgl_en_10.html#Colorbars}
-@fig{box, mathgl_en/mathgl_en_10.html#Bounding-box}
-@fig{ternary, mathgl_en/mathgl_en_10.html#Ternary-axis}
-
-@fig{text, mathgl_en/mathgl_en_10.html#Text-features}
-@fig{legend, mathgl_en/mathgl_en_10.html#Legend-sample}
-@fig{cut, mathgl_en/mathgl_en_10.html#Cutting-sample}
-@fig{alpha, mathgl_en/mathgl_en_17.html#Transparency-and-lighting}
-
-@fig{type0, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{type1, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{type2, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{fog, mathgl_en/mathgl_en_17.html#Adding-fog}
-
-@fig{combined, mathgl_en/mathgl_en_17.html#g_t_0060_0060Compound_0027_0027-graphics}
-@fig{several_light, mathgl_en/mathgl_en_17.html#Several-light-sources}
-@fig{stereo, mathgl_en/mathgl_en_17.html#Stereo-image}
-@fig{primitives, mathgl_en/mathgl_en_17.html#Using-primitives}
-
-@fig{stfa, mathgl_en/mathgl_en_17.html#STFA-sample}
-@fig{dat_diff, mathgl_en/mathgl_en_11.html#Change-data}
-@fig{dat_extra, mathgl_en/mathgl_en_11.html#Change-data}
-@fig{map, mathgl_en/mathgl_en_17.html#Mapping-visualization}
-
-@fig{hist, mathgl_en/mathgl_en_17.html#Making-histogram}
-@fig{fit, mathgl_en/mathgl_en_17.html#Nonlinear-fitting-sample}
-@fig{pde, mathgl_en/mathgl_en_17.html#PDE-solving-hints}
-@fig{parser, mathgl_en/mathgl_en_17.html#MGL-parser-using}
+@fig{inplot, doc_en/doc_en_10.html#Subplots}
+@fig{axis, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{ticks, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{loglog, doc_en/doc_en_10.html#Axis-and-ticks}
+
+@fig{curvcoor, doc_en/doc_en_10.html#Curvilinear-coordinates}
+@fig{colorbar, doc_en/doc_en_10.html#Colorbars}
+@fig{box, doc_en/doc_en_10.html#Bounding-box}
+@fig{ternary, doc_en/doc_en_10.html#Ternary-axis}
+
+@fig{text, doc_en/doc_en_10.html#Text-features}
+@fig{legend, doc_en/doc_en_10.html#Legend-sample}
+@fig{cut, doc_en/doc_en_10.html#Cutting-sample}
+@fig{alpha, doc_en/doc_en_17.html#Transparency-and-lighting}
+
+@fig{type0, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type1, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type2, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{fog, doc_en/doc_en_17.html#Adding-fog}
+
+@fig{combined, doc_en/doc_en_17.html#g_t_0060_0060Compound_0027_0027-graphics}
+@fig{several_light, doc_en/doc_en_17.html#Several-light-sources}
+@fig{stereo, doc_en/doc_en_17.html#Stereo-image}
+@fig{primitives, doc_en/doc_en_17.html#Using-primitives}
+
+@fig{stfa, doc_en/doc_en_17.html#STFA-sample}
+@fig{dat_diff, doc_en/doc_en_11.html#Change-data}
+@fig{dat_extra, doc_en/doc_en_11.html#Change-data}
+@fig{map, doc_en/doc_en_17.html#Mapping-visualization}
+
+@fig{hist, doc_en/doc_en_17.html#Making-histogram}
+@fig{fit, doc_en/doc_en_17.html#Nonlinear-fitting-sample}
+@fig{pde, doc_en/doc_en_17.html#PDE-solving-hints}
+@fig{parser, doc_en/doc_en_17.html#MGL-parser-using}
 
 @external
 
@@ -410,27 +497,31 @@ Before the first using all variables must be defined with the help of commands,
 
 Command may have several set of possible arguments (for example, @code{plot ydat} and @code{plot xdat ydat}). All command arguments for a selected set must be specified. However, some arguments can have default values. These argument are printed in [], like @code{text ydat ['stl'='']} or @code{text x y 'txt' ['fnt'='' size=-1]}. At this, the record @code{[arg1 arg2 arg3 ...]} means @code{[arg1 [arg2 [arg3 ...]]]}, i.e. you can omit only tailing arguments if you agree with its default values. For example, @code{text x y 'txt' '' 1} or @code{text x y 'txt' ''} is correct, but @code{text x y 'txt' 1} is incorrect (argument @code{'fnt'} is missed).
 
-For more details see @uref{../mathgl_en/mathgl_en_64.html#MGL-scripts, MathGL documentation}
+For more details see @uref{../doc_en/doc_en_64.html#MGL-scripts, MathGL documentation}
 
 @external
 
 @node Download, Other projects, MGL scripts, Top
 @section Download
 
-@strong{Stable version (v.2.0)}
+@strong{Stable version (v.@value{VERSION})}
 
 You may download current version of MathGL for following configurations:
 @itemize @bullet
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.tar.gz,source} file with cmake build system.
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.tar.gz,source} file with cmake build system.
+@item
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}-mingw.i686.7z,Win32 GPL} binaries for MinGW (build for i686)
+@item
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-mingw.i686.7z,Win32 LGPL} binaries for MinGW (build for i686, no GSL and HDF5 support)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0-mingw.i686.zip,Win32 GPL} binaries for MinGW (build for i686)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-win64.7z,Win64 LGPL} binaries for MSVS 2010 (no GSL and HDF5 support)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.LGPL-mingw.i686.zip,Win32 LGPL} binaries for MinGW (build for i686, no GSL and HDF5 support)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}-1.DevPack,DevPak} package for Dev-C++ or Code::Blocks (GPL version)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0-1.DevPack,DevPak} package for Dev-C++ or Code::Blocks (GPL version)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.eng.pdf,PDF} documentation in English
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.eng.pdf,PDF} documentation in English
+@uref{http://downloads.sourceforge.net/mathgl/mgl_scripts-@value{VERSION}.7z,utilities} with all required DLL files (build for i686)
 @c HTML documentation in English
 @c HTML documentation in Russian
 @c @item

diff --git a/texinfo/web_ru.texi b/texinfo/web_ru.texi
index c229c2f4ce31d734ad2a7b1c640e1645cecb5080..74e9fc737ec6a04e0f76b564b2c34928aff85b69 100644 (file)
--- a/texinfo/web_ru.texi
+++ b/texinfo/web_ru.texi
@@ -1,6 +1,6 @@
 \input texinfo
 @setfilename mgl_web_en.info
-@set VERSION 2.0
+@set VERSION 2.1
 @settitle MathGL @value{VERSION}
 @syncodeindex pg cp
 @comment %**end of header
@@ -8,21 +8,7 @@
 @copying
 This website demonstrates the Mathematical Graphic Library (MathGL) version @value{VERSION}, a collection of classes and routines for scientific plotting. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}.
 
-Copyright @copyright{} 2008 Alexey Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 @end copying
 
 @titlepage
@@ -42,21 +28,7 @@ supports it in developing GNU and promoting software freedom.''
 
 This website demonstrates the Mathematical Graphic Library (MathGL), a collection of classes and routines for scientific plotting. It corresponds to release @value{VERSION} of the library. Please report any errors in this manual to @email{mathgl.abalakin@@gmail.org}. More information about MathGL can be found at the project homepage, @uref{http://mathgl.sourceforge.net/}.
 
-Copyright @copyright{} 2008 Alexey A. Balakin.
-
-@quotation
-Permission is granted to copy, distribute and/or modify this document
-under the terms of the GNU Free Documentation License, Version 1.2 or
-any later version published by the Free Software Foundation; with no
-Invariant Sections, with the Front-Cover Texts being ``A GNU Manual,''
-and with the Back-Cover Texts as in (a) below.  A copy of the
-license is included in the section entitled ``GNU Free Documentation
-License.''
-
-(a) The FSF's Back-Cover Text is: ``You have the freedom to
-copy and modify this GNU manual.  Buying copies from the FSF
-supports it in developing GNU and promoting software freedom.''
-@end quotation
+@include copyright.texi
 
 @end ifnottex
 
@@ -72,6 +44,19 @@ supports it in developing GNU and promoting software freedom.''
 
 @ifhtml
 @macro external {}
+@comment  @html
+@comment  <script type="text/javascript"><!--
+@comment  google_ad_client = "ca-pub-1128070552722622";
+@comment  /* 728x90, создано 23.12.09 */
+@comment  google_ad_slot = "9958083480";
+@comment  google_ad_width = 728;
+@comment  google_ad_height = 90;
+@comment  //-->
+@comment  </script>
+@comment  <script type="text/javascript"
+@comment  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+@comment  </script>
+@comment  <br/>
 @html
 <!--LiveInternet counter--><script type="text/javascript"><!--
 document.write("<a href='http://www.liveinternet.ru/click' "+
@@ -84,13 +69,14 @@ screen.colorDepth:screen.pixelDepth))+";u"+escape(document.URL)+
 " hours, number of visitors during 24 hours and during today' "+
 "border=0 width=88 height=31><\/a>")//--></script><!--/LiveInternet-->
 
-<a href="http://sourceforge.net"><img src="http://sflogo.sourceforge.net/sflogo.php?group_id=152187&amp;type=2" alt="SourceForge.net Logo" border="0" height="37" width="125"></a>
+<a target=_blank href="http://sourceforge.net"><img src="http://sflogo.sourceforge.net/sflogo.php?group_id=152187&amp;type=2" alt="SourceForge.net Logo" border="0" height="37" width="125"></a>
 
-<a href="http://www.thefreecountry.com/"> <img src="http://www.thefreecountry.com/images/tfc88x31green.gif" alt="thefreecountry.com: Free Programmers' Resources, Free Webmasters' Resources, Free Security Resources, Free Software" border="0" height="31" width="88"></a>
+<a target=_blank href="http://www.thefreecountry.com/"> <img src="http://www.thefreecountry.com/images/tfc88x31green.gif" alt="thefreecountry.com: Free Programmers' Resources, Free Webmasters' Resources, Free Security Resources, Free Software" border="0" height="31" width="88"></a>
 
-<a href="http://sourceforge.net/donate/index.php?group_id=152187"><img src="http://images.sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project" /> </a>
+<a target=_blank href="http://sourceforge.net/donate/index.php?group_id=152187"><img src="http://images.sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project" /> </a>
 @end html
 @end macro
+
 @macro fig {plot,text}
 @uref{../\text\, @image{../small/\plot\-sm,3cm, , , .png}}
 @end macro
@@ -123,7 +109,7 @@ a library for working in window and console modes and for easy embedding into ot
 a library with large and growing set of graphics.
 @end itemize
 
-At this version (1.11) MathGL has more than 35000 lines of code, more than 55 general types of graphics for 1d, 2d and 3d data arrays, including special ones for chemical and statistical graphics. It can export graphics to raster and vector (EPS or SVG) formats. It has Qt, FLTK, OpenGL interfaces and can be used even from console programs. It has functions for data processing and script MGL language for simplification of data plotting. Also it has several types of transparency and smoothed lightning, vector fonts and TeX-like symbol parsing, arbitrary curvilinear coordinate system and many over useful things. It can be used from code written on C++/C/Fortran/Python/Octave and many other languages. Finally it is platform independent and free (under GPL v.2.0 license).
+Now MathGL has more than 35000 lines of code, more than 55 general types of graphics for 1d, 2d and 3d data arrays, including special ones for chemical and statistical graphics. It can export graphics to raster and vector (EPS or SVG) formats. It has Qt, FLTK, OpenGL interfaces and can be used even from console programs. It has functions for data processing and script MGL language for simplification of data plotting. Also it has several types of transparency and smoothed lightning, vector fonts and TeX-like symbol parsing, arbitrary curvilinear coordinate system and many over useful things. It can be used from code written on C++/C/Fortran/Python/Octave and many other languages. Finally it is platform independent and free (under GPL v.2.0 license).
 
 There is a @uref{http://sourceforge.net/forum/?group_id=152187, forum} where you can ask a question or suggest an improvement. However the @uref{http://groups.google.com/group/mathgl, MathGL group} is preferable for quicker answer.
 
@@ -141,44 +127,142 @@ Generally MathGL is GPL library. However, you can use LGPL license for MathGL co
 
 @strong{Latest news}
 @itemize
-@item @emph{29 March 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted @ref{News, here}.
+@item @emph{13 December 2012.}
+New version (v.@value{VERSION}) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are new plots, advanced color schemes, @uref{../json.html, JavaScript drawing}, and many other improvements in both MathGL core and UDAV, which partially denoted @ref{News, here}. Note, there are @strong{incompatible with v.2.0.* changes} in the arguments of some functions.
+@item @emph{I'm sorry for making incompatible changes in v.2.1. It was done for introducing unified interface for all functions. I promise that I will not break API for v.2.* later, i.e. I'll only add new features or bug fixes.}
 @end itemize
 
 There is detailed @ref{News, news list}. Sourceforge project page @uref{http://sourceforge.net/projects/mathgl/, here}.
 
+@ifhtml
+@html
+<a href="http://www.datadvance.net"><img border="0" align="right" hspace="10" alt="$DATADVANCE" src="../datadvance.png"></a>
+@end html
+@end ifhtml
+Javascript interface was developed with support of @url{www.datadvance.net, $DATADVANCE} company.
+
 @external
 
 @node News, Features, Main, Top
 @section News
 
 @itemize
-@item 
-@strong{29 March 2012.}
-New version (v.2.0) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are a lot of new features, which partially denoted below.
+
+@item
+@strong{13 December 2012.}
+New version (v.2.1) of @uref{http://sourceforge.net/projects/mathgl, MathGL} is released. There are speeding up and many improvements and bugfixes:
 @itemize @bullet
 @item
-mglGraph class is single plotter class instead of mglGraphZB, mglGraphPS and so on.
+Add class mglDataC for complex data arrays.
+@item
+Add Vect3() plot for drawing vectors on slice of 3d vector field. See @url{../doc_en/doc_en_17.html#Vect3-sample, sample}.
+@item
+Add Table() function for drawing table with data values. See @url{../doc_en/doc_en_14.html#Table-sample, sample}.
+@item
+Add ZoomAxis() for zooming/shifting axis range as whole.
+@item
+Add WriteJSON() function for exporting in JSON format suitable for later drawing by JavaScript
+@item
+Add JavaScript code for visualizing JSON data. See @uref{../json.html, samples}.
 @item
-Text style and text color positions are swapped. I.e. text style @samp{r:C} give red centered text, but not roman dark cyan text as for v.1.*.
+Add mgl.cgi tool which return PNG image for CGI request in form of MGL script.
 @item
-ColumnPlot() indexing is reverted.
+Add mglData::Solve() for finding x-value where dat(x)=val. See @url{../doc_en/doc_en_12.html#Solve-sample, sample}.
 @item
-Move most of arguments of plotting functions into the string parameter and/or options.
+Add mglData::Clean() for removing rows with duplicate values for given column.
 @item
-``Bright'' colors (like @{b8@}) can be used in color schemes and line styles.
+Add MGL commands 'errbox', 'face'
+
+@item
+Color can be specified as its RGB[A] values, i.e. like @samp{@{xFFFFFF@}} or @samp{@{xFFFFFFFF@}}. See @url{../doc_en/doc_en_23.html#Line-styles, sample}.
+@item
+Color in color scheme  may have position in range [0,1]. Format is @samp{@{CN,pos@}} or @samp{@{xFFFFFF,pos@}}. See @url{../doc_en/doc_en_24.html#Color-scheme, sample}.
+@item
+Now pen width for marks is proportional to pen width of line multiplied by size of marks.
+@item
+Now you can use different font-faces in the plot simultaneously. See @url{../doc_en/doc_en_11.html#Text-features, sample}.
+@item
+Now Legend() automatically use several columns if it contain too many legend entries.
+@item
+Add style '-' for legend for drawing them horizontally. See @url{../doc_en/doc_en_11.html#Legend-sample, sample}.
+@item
+Vectors is drawn now even if only starting or ending points are placed in bounding box.
 @item
-Intensively use pthread internally for parallelization of drawing and data processing.
+Strongly rewrite the algorithm of vector field plotting.
+
+@item
+Grid lines for NAN origin values are always located at far-away edges.
+@item
+Try correctly place axis and tick labels even for axis with inverse range (i.e. for v2<v1). Note, it work well for 2D axis. One should use Aspect() with negative values to do it correctly in general case.
+@item
+Axis style 'XYZ' draw corresponding axis with ticks labels on opposite side. This also influence on following Label() calls.
 @item
-Add tick labels rotation and skipping. Add ticks in time/date format.
+Text is drawn for initially invisible axis (like z-axis) too.
+
+@item
+Frames now save 3D information if MGL_VECT_FRAME is set (by default).
 @item
-New kinds of plots (Tape(), Label(), Cones(), ContV()). Extend existing plots. New primitives (Circle(), Ellipse(), Rhomb(), ...). New plot positioning (MultiPlot(), GridPlot())
+Add functions GetFrame(), DelFrame(), SetFrame(), ShowFrame() for replacing or showing data from given frame. It can be use to hide/show a set of plot(s) quickly. Work if MGL_VECT_FRAME is set on (by default is on).
+@item
+CalcXYZ() function now use data from z-buffer for better determining @{x,y,z@} coordinates.
+
 @item
-Improve MGL scripts. Add 'ask' command and allow string concatenation from different lines.
+Add dialog for data arguments in "New command" dialog of UDAV. See @url{../doc_en/doc_en_71.html#UDAV-dialogs, UDAV dialogs}.
 @item
-Export to LaTeX and to 3D formats (OBJ, OFF, STL).
+Value of arguments are saved while the kind of command is changed in "New command" dialog of UDAV.
 @item
-Add pipes support in utilities (@code{mglconv, mglview}).
+Extend classification of commands in "New command" dialog of UDAV and make it automatic.
+@item
+Mouse position at an object click now is displayed on the image itself.
+@item
+Add zoom in/out by mouse wheel.
+@item
+Add zoom in/out of axis range by mouse wheel, and shift of axis range by middle button.
+@item
+Text editor in UDAV now highlight current line.
+@item
+Completer can be switched off correctly now.
+@item
+Multi-line strings (i.e. separated by "\" symbol) are highlighted correctly now.
+@item
+Add option to enable/disable selected plot in UDAV.
+@item
+Rearrange hot-keys in UDAV and in QMathGL.
+
+@item
+Make code compilable by Borland compiler too.
+@item
+Improve output in OpenGL mode.
+@item
+Add fog at export in EPS/SVG formats.
+@item
+Add mglParse::AllowFileIO() for enable/disable I/O commands in MGL scripts.
+
+@item
+Export functions now can write in stdout if file name is "-".
+@item
+Picture drawing now use multi-threading for each stage.
+
+@item
+Functions mglData::Spline*, mglData::Linear* now can return gradient at the point.
+@item
+mglFourier now make true inverse transform.
+
+@item
+Add annotation for all pure C functions.
+@item
+Update list of built-in glyphs.
+@item
+Update samples.
+@item
+Update documentation.
+@item
+Different bugfixes.
+
+@item
+@strong{INCOMPATIBLE CHANGES:} in the arguments of functions: mgl_axis, mgl_axis_grid, mgl_label, mgl_labelw, mgl_legend_pos, mgl_legend; and in functions for MGL parsing.
+@item
+@strong{MINOR INCOMPATIBLE:} plotting functions now use double argument always.
 @end itemize
 
 @item 
@@ -231,7 +315,7 @@ two-dimensional plots: Mesh, Surf, Dens, Cont, ContF, Boxs, Axial, Fall, Belt, T
 three-dimensional plots: Surf3, Dens3, Cont3, ContF3, Cloud-like, including isosurfaces transparent (Surf3A) or colored (Surf3C) by another data (@ref{3D plotting});
 
 @item
-vector fields plots: vector fields Vect and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
+vector fields plots: vector fields Vect, Vect3 and Traj, flow threads Flow, flow pipes Pipe, mapping chart Map, and so on (@ref{Vector fields});
 
 @item
 and so on. See also @ref{Extra samples}.
@@ -257,117 +341,120 @@ There are samples for @ref{1D plotting, 1D arrays}, @ref{2D plotting, 2D arrays}
 @anchor{1D plotting}
 @subsection Examples of graphics for 1d arrays
 
-@fig{plot, mathgl_en/mathgl_en_13.html#Plot-sample}
-@fig{radar, mathgl_en/mathgl_en_13.html#Radar-sample}
-@fig{step, mathgl_en/mathgl_en_13.html#Step-sample}
-@fig{tens, mathgl_en/mathgl_en_13.html#Tens-sample}
+@fig{plot, doc_en/doc_en_13.html#Plot-sample}
+@fig{radar,doc_en/doc_en_13.html#Radar-sample}
+@fig{step, doc_en/doc_en_13.html#Step-sample}
+@fig{tens, doc_en/doc_en_13.html#Tens-sample}
 
-@fig{area, mathgl_en/mathgl_en_13.html#Area-sample}
-@fig{region, mathgl_en/mathgl_en_13.html#Region-sample}
-@fig{stem, mathgl_en/mathgl_en_13.html#Stem-sample}
-@fig{torus, mathgl_en/mathgl_en_13.html#Torus-sample}
+@fig{area, doc_en/doc_en_13.html#Area-sample}
+@fig{region,doc_en/doc_en_13.html#Region-sample}
+@fig{stem, doc_en/doc_en_13.html#Stem-sample}
+@fig{torus,doc_en/doc_en_13.html#Torus-sample}
 
-@fig{bars, mathgl_en/mathgl_en_13.html#Bars-sample}
-@fig{barh, mathgl_en/mathgl_en_13.html#Barh-sample}
-@fig{cones, mathgl_en/mathgl_en_13.html#Cones-sample}
-@fig{chart, mathgl_en/mathgl_en_13.html#Chart-sample}
+@fig{bars, doc_en/doc_en_13.html#Bars-sample}
+@fig{barh, doc_en/doc_en_13.html#Barh-sample}
+@fig{cones,doc_en/doc_en_13.html#Cones-sample}
+@fig{chart,doc_en/doc_en_13.html#Chart-sample}
 
-@fig{boxplot, mathgl_en/mathgl_en_13.html#BoxPlot-sample}
-@fig{candle, mathgl_en/mathgl_en_13.html#Candle-sample}
-@fig{tube, mathgl_en/mathgl_en_13.html#Tube-sample}
-@fig{tape, mathgl_en/mathgl_en_13.html#Tape-sample}
+@fig{boxplot,doc_en/doc_en_13.html#BoxPlot-sample}
+@fig{candle, doc_en/doc_en_13.html#Candle-sample}
+@fig{tube, doc_en/doc_en_13.html#Tube-sample}
+@fig{tape, doc_en/doc_en_13.html#Tape-sample}
 
-@fig{error, mathgl_en/mathgl_en_13.html#Error-sample}
-@fig{mark, mathgl_en/mathgl_en_13.html#Mark-sample}
-@fig{textmark, mathgl_en/mathgl_en_13.html#TextMark-sample}
-@fig{label, mathgl_en/mathgl_en_13.html#Label-sample}
+@fig{error,doc_en/doc_en_13.html#Error-sample}
+@fig{mark, doc_en/doc_en_13.html#Mark-sample}
+@fig{textmark, doc_en/doc_en_13.html#TextMark-sample}
+@fig{label,doc_en/doc_en_13.html#Label-sample}
 
 @anchor{2D plotting}
 @subsection Examples of graphics for 2d arrays
 
-@fig{surf, mathgl_en/mathgl_en_14.html#Surf-sample}
-@fig{surfc, mathgl_en/mathgl_en_14.html#SurfC-sample}
-@fig{surfa, mathgl_en/mathgl_en_14.html#SurfA-sample}
-@fig{mesh, mathgl_en/mathgl_en_14.html#Mesh-sample}
+@fig{surf, doc_en/doc_en_14.html#Surf-sample}
+@fig{surfc,doc_en/doc_en_14.html#SurfC-sample}
+@fig{surfa,doc_en/doc_en_14.html#SurfA-sample}
+@fig{mesh, doc_en/doc_en_14.html#Mesh-sample}
 
-@fig{fall, mathgl_en/mathgl_en_14.html#Fall-sample}
-@fig{belt, mathgl_en/mathgl_en_14.html#Belt-sample}
-@fig{boxs, mathgl_en/mathgl_en_14.html#Boxs-sample}
-@fig{axial, mathgl_en/mathgl_en_14.html#Axial-sample}
+@fig{fall, doc_en/doc_en_14.html#Fall-sample}
+@fig{belt, doc_en/doc_en_14.html#Belt-sample}
+@fig{boxs, doc_en/doc_en_14.html#Boxs-sample}
+@fig{axial,doc_en/doc_en_14.html#Axial-sample}
 
-@fig{dens, mathgl_en/mathgl_en_14.html#Dens-sample}
-@fig{tile, mathgl_en/mathgl_en_14.html#Tile-sample}
-@fig{tiles, mathgl_en/mathgl_en_14.html#TileS-sample}
-@fig{grad, mathgl_en/mathgl_en_14.html#Grad-sample}
+@fig{dens, doc_en/doc_en_14.html#Dens-sample}
+@fig{tile, doc_en/doc_en_14.html#Tile-sample}
+@fig{tiles,doc_en/doc_en_14.html#TileS-sample}
+@fig{grad, doc_en/doc_en_14.html#Grad-sample}
 
-@fig{cont, mathgl_en/mathgl_en_14.html#Cont-sample}
-@fig{contf, mathgl_en/mathgl_en_14.html#ContF-sample}
-@fig{contd, mathgl_en/mathgl_en_14.html#ContD-sample}
-@fig{contv, mathgl_en/mathgl_en_14.html#ContV-sample}
+@fig{cont, doc_en/doc_en_14.html#Cont-sample}
+@fig{contf,doc_en/doc_en_14.html#ContF-sample}
+@fig{contd,doc_en/doc_en_14.html#ContD-sample}
+@fig{contv,doc_en/doc_en_14.html#ContV-sample}
 
 @anchor{3D plotting}
 @subsection Examples of graphics for 3d arrays
 
-@fig{surf3, mathgl_en/mathgl_en_15.html#Surf3-sample}
-@fig{surf3c, mathgl_en/mathgl_en_15.html#Surf3C-sample}
-@fig{surf3a, mathgl_en/mathgl_en_15.html#Surf3A-sample}
-@fig{cloud, mathgl_en/mathgl_en_15.html#Cloud-sample}
+@fig{surf3, doc_en/doc_en_15.html#Surf3-sample}
+@fig{surf3c,doc_en/doc_en_15.html#Surf3C-sample}
+@fig{surf3a,doc_en/doc_en_15.html#Surf3A-sample}
+@fig{cloud, doc_en/doc_en_15.html#Cloud-sample}
 
-@fig{densa, mathgl_en/mathgl_en_15.html#Dens3-sample}
-@fig{conta, mathgl_en/mathgl_en_15.html#Cont3-sample}
-@fig{contfa, mathgl_en/mathgl_en_15.html#ContF3-sample}
-@fig{dots, mathgl_en/mathgl_en_15.html#Dots-sample}
+@fig{densa, doc_en/doc_en_15.html#Dens3-sample}
+@fig{conta, doc_en/doc_en_15.html#Cont3-sample}
+@fig{contfa,doc_en/doc_en_15.html#ContF3-sample}
+@fig{dots,  doc_en/doc_en_15.html#Dots-sample}
 
-@fig{dens_xyz, mathgl_en/mathgl_en_15.html#Dens-projection-sample}
-@fig{cont_xyz, mathgl_en/mathgl_en_15.html#Cont-projection-sample}
-@fig{contf_xyz, mathgl_en/mathgl_en_15.html#ContF-projection-sample}
-@fig{triplot, mathgl_en/mathgl_en_15.html#TriPlot-and-QuadPlot}
+@fig{dens_xyz, doc_en/doc_en_15.html#Dens-projection-sample}
+@fig{cont_xyz, doc_en/doc_en_15.html#Cont-projection-sample}
+@fig{contf_xyz,doc_en/doc_en_15.html#ContF-projection-sample}
+@fig{triplot,  doc_en/doc_en_15.html#TriPlot-and-QuadPlot}
 
 @anchor{Vector fields}
 @subsection Examples of graphics for vector fields
 
-@fig{vect, mathgl_en/mathgl_en_16.html#Vect-sample}
-@fig{traj, mathgl_en/mathgl_en_16.html#Tra-sjample}
-@fig{flow, mathgl_en/mathgl_en_16.html#Flow-sample}
-@fig{pipe, mathgl_en/mathgl_en_16.html#Pipe-sample}
+@fig{vect, doc_en/doc_en_16.html#Vect-sample}
+@fig{vecta,doc_en/doc_en_16.html#Vect3-sample}
+@fig{flow, doc_en/doc_en_16.html#Flow-sample}
+@fig{pipe, doc_en/doc_en_16.html#Pipe-sample}
+
+@fig{traj, doc_en/doc_en_16.html#Traj-sample}
+@fig{dew, doc_en/doc_en_16.html#Dew-sample}
 
 @anchor{Extra samples}
 @subsection Examples of additional features
 
-@fig{inplot, mathgl_en/mathgl_en_10.html#Subplots}
-@fig{axis, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-@fig{ticks, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-@fig{loglog, mathgl_en/mathgl_en_10.html#Axis-and-ticks}
-
-@fig{curvcoor, mathgl_en/mathgl_en_10.html#Curvilinear-coordinates}
-@fig{colorbar, mathgl_en/mathgl_en_10.html#Colorbars}
-@fig{box, mathgl_en/mathgl_en_10.html#Bounding-box}
-@fig{ternary, mathgl_en/mathgl_en_10.html#Ternary-axis}
-
-@fig{text, mathgl_en/mathgl_en_10.html#Text-features}
-@fig{legend, mathgl_en/mathgl_en_10.html#Legend-sample}
-@fig{cut, mathgl_en/mathgl_en_10.html#Cutting-sample}
-@fig{alpha, mathgl_en/mathgl_en_17.html#Transparency-and-lighting}
-
-@fig{type0, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{type1, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{type2, mathgl_en/mathgl_en_17.html#Types-of-transparency}
-@fig{fog, mathgl_en/mathgl_en_17.html#Adding-fog}
-
-@fig{combined, mathgl_en/mathgl_en_17.html#g_t_0060_0060Compound_0027_0027-graphics}
-@fig{several_light, mathgl_en/mathgl_en_17.html#Several-light-sources}
-@fig{stereo, mathgl_en/mathgl_en_17.html#Stereo-image}
-@fig{primitives, mathgl_en/mathgl_en_17.html#Using-primitives}
-
-@fig{stfa, mathgl_en/mathgl_en_17.html#STFA-sample}
-@fig{dat_diff, mathgl_en/mathgl_en_11.html#Change-data}
-@fig{dat_extra, mathgl_en/mathgl_en_11.html#Change-data}
-@fig{map, mathgl_en/mathgl_en_17.html#Mapping-visualization}
-
-@fig{hist, mathgl_en/mathgl_en_17.html#Making-histogram}
-@fig{fit, mathgl_en/mathgl_en_17.html#Nonlinear-fitting-sample}
-@fig{pde, mathgl_en/mathgl_en_17.html#PDE-solving-hints}
-@fig{parser, mathgl_en/mathgl_en_17.html#MGL-parser-using}
+@fig{inplot, doc_en/doc_en_10.html#Subplots}
+@fig{axis, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{ticks, doc_en/doc_en_10.html#Axis-and-ticks}
+@fig{loglog, doc_en/doc_en_10.html#Axis-and-ticks}
+
+@fig{curvcoor, doc_en/doc_en_10.html#Curvilinear-coordinates}
+@fig{colorbar, doc_en/doc_en_10.html#Colorbars}
+@fig{box, doc_en/doc_en_10.html#Bounding-box}
+@fig{ternary, doc_en/doc_en_10.html#Ternary-axis}
+
+@fig{text, doc_en/doc_en_10.html#Text-features}
+@fig{legend, doc_en/doc_en_10.html#Legend-sample}
+@fig{cut, doc_en/doc_en_10.html#Cutting-sample}
+@fig{alpha, doc_en/doc_en_17.html#Transparency-and-lighting}
+
+@fig{type0, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type1, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{type2, doc_en/doc_en_17.html#Types-of-transparency}
+@fig{fog, doc_en/doc_en_17.html#Adding-fog}
+
+@fig{combined, doc_en/doc_en_17.html#g_t_0060_0060Compound_0027_0027-graphics}
+@fig{several_light, doc_en/doc_en_17.html#Several-light-sources}
+@fig{stereo, doc_en/doc_en_17.html#Stereo-image}
+@fig{primitives, doc_en/doc_en_17.html#Using-primitives}
+
+@fig{stfa, doc_en/doc_en_17.html#STFA-sample}
+@fig{dat_diff, doc_en/doc_en_11.html#Change-data}
+@fig{dat_extra, doc_en/doc_en_11.html#Change-data}
+@fig{map, doc_en/doc_en_17.html#Mapping-visualization}
+
+@fig{hist, doc_en/doc_en_17.html#Making-histogram}
+@fig{fit, doc_en/doc_en_17.html#Nonlinear-fitting-sample}
+@fig{pde, doc_en/doc_en_17.html#PDE-solving-hints}
+@fig{parser, doc_en/doc_en_17.html#MGL-parser-using}
 
 @external
 
@@ -410,27 +497,31 @@ Before the first using all variables must be defined with the help of commands,
 
 Command may have several set of possible arguments (for example, @code{plot ydat} and @code{plot xdat ydat}). All command arguments for a selected set must be specified. However, some arguments can have default values. These argument are printed in [], like @code{text ydat ['stl'='']} or @code{text x y 'txt' ['fnt'='' size=-1]}. At this, the record @code{[arg1 arg2 arg3 ...]} means @code{[arg1 [arg2 [arg3 ...]]]}, i.e. you can omit only tailing arguments if you agree with its default values. For example, @code{text x y 'txt' '' 1} or @code{text x y 'txt' ''} is correct, but @code{text x y 'txt' 1} is incorrect (argument @code{'fnt'} is missed).
 
-For more details see @uref{../mathgl_en/mathgl_en_64.html#MGL-scripts, MathGL documentation}
+For more details see @uref{../doc_en/doc_en_64.html#MGL-scripts, MathGL documentation}
 
 @external
 
 @node Download, Other projects, MGL scripts, Top
 @section Download
 
-@strong{Stable version (v.2.0)}
+@strong{Stable version (v.@value{VERSION})}
 
 You may download current version of MathGL for following configurations:
 @itemize @bullet
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.tar.gz,source} file with cmake build system.
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.tar.gz,source} file with cmake build system.
+@item
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}-mingw.i686.7z,Win32 GPL} binaries for MinGW (build for i686)
+@item
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-mingw.i686.7z,Win32 LGPL} binaries for MinGW (build for i686, no GSL and HDF5 support)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0-mingw.i686.zip,Win32 GPL} binaries for MinGW (build for i686)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.LGPL-win64.7z,Win64 LGPL} binaries for MSVS 2010 (no GSL and HDF5 support)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.LGPL-mingw.i686.zip,Win32 LGPL} binaries for MinGW (build for i686, no GSL and HDF5 support)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}-1.DevPack,DevPak} package for Dev-C++ or Code::Blocks (GPL version)
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0-1.DevPack,DevPak} package for Dev-C++ or Code::Blocks (GPL version)
+@uref{http://downloads.sourceforge.net/mathgl/mathgl-@value{VERSION}.eng.pdf,PDF} documentation in English
 @item
-@uref{http://downloads.sourceforge.net/mathgl/mathgl-2.0.eng.pdf,PDF} documentation in English
+@uref{http://downloads.sourceforge.net/mathgl/mgl_scripts-@value{VERSION}.7z,utilities} with all required DLL files (build for i686)
 @c HTML documentation in English
 @c HTML documentation in Russian
 @c @item

diff --git a/texinfo/widget_en.texi b/texinfo/widget_en.texi
index b9527b4ba47b697cb316041a9122ce3056802d8f..2dd123638c8e8b797c35c6b0d9ac86c94a72a96c 100644 (file)
--- a/texinfo/widget_en.texi
+++ b/texinfo/widget_en.texi
@@ -36,7 +36,7 @@ You should inherit yours class from @code{mglDraw} and re-implement one or both
 @cindex window
 @c @cindex mglDraw
 
-This class is derived from mglGraph class (see @ref{MathGL core}). It is defined in @code{#include <mgl2/window.h>}. It provide methods for handling window with MathGL graphics.
+This class is derived from mglGraph class (see @ref{MathGL core}). It is defined in @code{#include <mgl2/window.h>}. It provide methods for handling window with MathGL graphics. Similar classes are exist for each widget library: @code{mglQT} in @code{#include <mgl2/qt.h>}, @code{mglFLTK} in @code{#include <mgl2/fltk.h>}, @code{mglWX} in @code{#include <mgl2/wx.h>}.
 
 @deftypefn {Constructor on @code{mglWindow}} {} mglWindow (@code{const char *}title=@code{"MathGL"})
 @deftypefnx {Constructor on @code{mglWindow}} {} mglWindow (@code{int} (*draw)(@code{HMGL} gr, @code{void *}p), @code{const char *}title=@code{"MathGL"}, @code{void *}par=@code{NULL}, @code{int} kind=@code{0}, @code{void} (*reload)(@code{HMGL} gr, @code{void *}p)=0)
@@ -376,8 +376,8 @@ Export current picture to OFF file.
 @c Export current picture to X3D file.
 @c @end deftypefn
 
-@deftypefn {Slot on @code{QMathGL}} @code{void} exportIDTF (@code{QString} fname=@code{""})
-Export current picture to IDTF file.
+@deftypefn {Slot on @code{QMathGL}} @code{void}setUsePrimitives (@code{bool} use)
+Enable using list of primitives for frames. This allows frames transformation/zoom but requires much more memory. Default value is @code{true}.
 @end deftypefn
 @deftypefn {Slot on @code{QMathGL}} @code{void} setMGLFont (@code{QString} path)
 Restore (@var{path}=@code{""}) or load font for graphics.

diff --git a/texinfo/widget_ru.texi b/texinfo/widget_ru.texi
index d4528eb3533512ecfca88a0818cd313de7f3ccd5..86a033e890a9f407c17de33475d946b3e0413dce 100644 (file)
--- a/texinfo/widget_ru.texi
+++ b/texinfo/widget_ru.texi
@@ -36,7 +36,7 @@ public:
 @cindex window
 @c @cindex mglDraw
 
-Этот класс производный от класса mglGraph (см. @ref{MathGL core}). Он определен в @code{#include <mgl2/window.h>}. Класс содержит методы для создания и управления окном, содержащим графику MathGL.
+Этот класс производный от класса mglGraph (см. @ref{MathGL core}). Он определен в @code{#include <mgl2/window.h>}. Класс содержит методы для создания и управления окном, содержащим графику MathGL. Похожий набор классов существует отдельно для каждой библиотеки виджетов: @code{mglQT} в @code{#include <mgl2/qt.h>}, @code{mglFLTK} в @code{#include <mgl2/fltk.h>}, @code{mglWX} в @code{#include <mgl2/wx.h>}.
 
 @deftypefn {Конструктор класса @code{mglWindow}} {} mglWindow (@code{const char *}title=@code{"MathGL"})
 @deftypefnx {Конструктор класса @code{mglWindow}} {} mglWindow (@code{int} (*draw)(@code{HMGL} gr, @code{void *}p), @code{const char *}title=@code{"MathGL"}, @code{void *}par=@code{NULL}, @code{int} kind=@code{0}, @code{void} (*reload)(@code{HMGL} gr, @code{void *}p)=0)
@@ -374,8 +374,8 @@ public:
 @c Сохраняет текущий рисунок в векторный X3D файл.
 @c @end deftypefn
 
-@deftypefn {Slot on @code{QMathGL}} @code{void} exportIDTF (@code{QString} fname=@code{""})
-СоÑ\85Ñ\80анÑ\8fеÑ\82 Ñ\82екÑ\83Ñ\89ий Ñ\80иÑ\81Ñ\83нок в векÑ\82оÑ\80нÑ\8bй IDTF Ñ\84айл.
+@deftypefn {Slot on @code{QMathGL}} @code{void}setUsePrimitives (@code{bool} use)
+РазÑ\80еÑ\88аеÑ\82 иÑ\81полÑ\8cзоваÑ\82Ñ\8c Ñ\81пиÑ\81ок пÑ\80имиÑ\82ивов длÑ\8f кадÑ\80ов. ЭÑ\82о позволÑ\8fеÑ\82 вÑ\80аÑ\89аÑ\82Ñ\8c/маÑ\81Ñ\88Ñ\82абиÑ\80оваÑ\82Ñ\8c кадÑ\80Ñ\8b, но Ñ\82Ñ\80ебÑ\83еÑ\82 знаÑ\87иÑ\82елÑ\8cно болÑ\8cÑ\88е памÑ\8fÑ\82и. Ð\9fо Ñ\83молÑ\87аниÑ\8e Ñ\80азÑ\80еÑ\88ено (=@code{true}).
 @end deftypefn
 @deftypefn {Slot on @code{QMathGL}} @code{void} setMGLFont (@code{QString} path)
 Восстанавливает (@var{path}=@code{""}) или загружает файлы шрифтов.

diff --git a/todo.txt b/todo.txt
deleted file mode 100644 (file)
index 607a5eb..0000000
--- a/todo.txt
+++ /dev/null
@@ -1,101 +0,0 @@
-http://ubuntuforums.org/showthread.php?t=1862084
-Device 0 (VID=0502 and PID=337d) is UNKNOWN.
-
-============= NEW  =============
-
-0. Check RunThr() in python/octave
-
-2. Use Hershey as built-in font ?!!
-3. Import/Export via GIF (as 3d data) ???
-4. Read DICOM files ???
-5. Export to JavaScript (WebGL)
-6. GTK and WX window/widgets
-7. Labels at TriCont()
-
-9. Save primitives for frames (not bitmap) ??? -- see MGL_USEDRWDAT
-10. Enable several fonts at the same picture
-11. Table(mreal x, mreal y, HCDT dat, char *xlabels, char *ylabels, char *stl) -- draw table with values (+ auto reduce font size?)
-
-12. Parallelization of drawing (MathGL level) -- bug with primitives drawing --> pixel.cpp
-14. Axis -- projection (ternary + quaternary)
-15. Examples of animation, u3d, x3d, js and so on
-
-17. curved text (in new sample) look not so good
-18. emulate fog in EPS/SVG
-
-20. Add mglDataC for complex data -- main diff is reading/saving data
-21. MGL testing system ???
-22. Export to X3D
-23. Try libtcc (TinyCC) as alternative to MGL -- in mgllab???
-24. Use OI & Z for determining {x,y,z} from {xs,ys}. Try to find closest.
-25. More accurate intersections in Region
-26. Add flag for drawing 3d arrows instead of 2d (S,D -- cube, T -- sq.pyramid, I -- square, O -- sphere???, A,K,V -- ???)
-
-28. Add extra texture in Error -- for handling transparency of "marks" ???
-29. Textual colors, like "{0xFF00FF}" ?!?
-30. Auto axis range for formulas, like AutoRange("y(x)") or AutoRange('x',"x(t)").
-31. Add Vect3 for vectors on slice
-
-33. Check feature:
-* dash for rect, ellipse boundary
-
-34. Hotkeys
-35. Check disabling completer in UDAV
-36. Add line numbers in editor.
-
-37. Center ticks labels + check gap for axis labels (at axis rotation)
-
-============= DOCS =============
-
-0. Option sample (_mirror)
-1. Add back-references from samples
-
-2. Text about UDAV
-3. Add FAQ about MPEG/GIF and PDF
-
-============= UDAV =============
-
-01. Dialog for data input
------------------------------------------------
-| [Data name |V|]                                    |
-| [x1]     [x2]                [func]          {ADD} |
-| [y1]     [y2]                [suf|V]         {ADD} |
-| [z1]     [z2]        [oper|V] [dir]  {ADD} |
-| Reuslt [                             ]                     |
-|                      {Cancel}        {OK}              |
------------------------------------------------
-Ranges can be inverted.
-Remove other setting if data name is changed.
-
-02. Double click -> jump to string + setup dialog (optionally)
-03. Dialog for InPlot(s):
-{SubPlot,MultiPlot}    -- enable rotate,aspect,title
-{ColumnPlot}           -- enable rotate,several
-{StickPlot}            -- enable several
-{InPlot}               -- enable rotate,aspect,title
-
-04. Group/ungroup if command in single line, separated by ':'
-05. Hide plot/group by putting "#h " at beginning of line
-06. Annotation of plot/group -- comment before it
-09. Data change via menu/toolbar -- save to internal script => enable undo + save initial array(?)
-10. Add primitives by mouse at beginning of script + change its size/position by mouse + "attraction" points
-11. Drag&drop plot/group between inplots
-12. Create default plot dependently of selected row/column/range in data table
-13. Show plot at creation stage (if option is enabled -- can be size_t process!!!)
-14. Rotate/perspective/lighting/... of primitive list (without script re-execution)
-
-15. QTreeWidgetItem -- ICON (if,for,once,subplot,...); Cmd text; LINE - POS in group/line. After editing/changing --> put text to editor.
-
-17. Setupable hot-keys ?!?
-18. Insert just filename (without path) by demand
-
-============= UNSURE ===========
-
-1. Problem with \calB and so on (\calH, ...) -- they are present only in italic font :(.
-2. create PWT fonts
-3. \dfrac for normal size and centering  (sample \big\big{\frac{1}{2}}) ???
-4. "Cut off" curves if text is printed inside it (for contour labels) ?!?
-5. String variables in MGL + readstr command.
-6. Pool of threads for speeding up ???
-7. Drops as mglPrim -- not accurate but smaller memory and faster
-8. Text aspect ratio in OpenGL mode

diff --git a/udav/CMakeLists.txt b/udav/CMakeLists.txt
index 70b1d9ec55b75db270538519bc60a3c4e9c93f6a..36ff0dd634bb36d8d910d7ca114f986ccc848434 100644 (file)
--- a/udav/CMakeLists.txt
+++ b/udav/CMakeLists.txt
@@ -4,11 +4,11 @@ if(MGL_HAVE_QT)
 set(udav_src anim_dlg.cpp find_dlg.cpp mem_pnl.cpp prop_dlg.cpp textedit.cpp args_dlg.cpp
        help_pnl.cpp newcmd_dlg.cpp text_pnl.cpp calc_dlg.cpp hint_dlg.cpp
        open_dlg.cpp qmglsyntax.cpp udav_wnd.cpp dat_pnl.cpp info_dlg.cpp opt_dlg.cpp setup_dlg.cpp
-       files_dlg.cpp plot_pnl.cpp style_dlg.cpp)
+       files_dlg.cpp plot_pnl.cpp style_dlg.cpp data_dlg.cpp tree_pnl.cpp)
 
 set(udav_moc_hdr anim_dlg.h files_dlg.h info_dlg.h opt_dlg.h qmglsyntax.h text_pnl.h args_dlg.h
        find_dlg.h mem_pnl.h plot_pnl.h setup_dlg.h udav_wnd.h calc_dlg.h help_pnl.h newcmd_dlg.h
-       prop_dlg.h style_dlg.h dat_pnl.h open_dlg.h textedit.h hint_dlg.h)
+       prop_dlg.h style_dlg.h dat_pnl.h open_dlg.h textedit.h hint_dlg.h data_dlg.h)
 
 set(udav_rc udav.qrc)
 
@@ -26,7 +26,7 @@ qt4_add_resources(udav_rc_src ${udav_rc} )
 #qt_wrap_cpp(udav udav_moc_src ${udav_moc_hdr} )
 qt4_wrap_cpp(udav_moc_src ${udav_moc_hdr} )
 add_executable(udav ${udav_src} ${udav_moc_src} ${udav_rc_src})
-target_link_libraries(udav mgl-wnd ${QT_LIBRARIES})
+target_link_libraries(udav mgl-qt ${QT_LIBRARIES})
 
 if(MGL_HAVE_PTHREAD)
        target_link_libraries(udav ${CMAKE_THREAD_LIBS_INIT})
@@ -36,8 +36,8 @@ install(
        TARGETS udav
        RUNTIME DESTINATION bin
 )
-install(FILES UDAV.desktop DESTINATION ${CMAKE_INSTALL_PREFIX}/share/applications/)
+install(FILES udav.desktop DESTINATION ${CMAKE_INSTALL_PREFIX}/share/applications/)
 install(FILES udav.png DESTINATION ${CMAKE_INSTALL_PREFIX}/share/pixmaps/)
-#install(FILES udav_ru.qm DESTINATION ${CMAKE_INSTALL_PREFIX}/share/udav/)
+install(FILES udav_ru.qm DESTINATION ${CMAKE_INSTALL_PREFIX}/share/udav/)
 
 endif(MGL_HAVE_QT)

diff --git a/udav/ReadMe b/udav/ReadMe
deleted file mode 100644 (file)
index 87d23f7..0000000
--- a/udav/ReadMe
+++ /dev/null
@@ -1,11 +0,0 @@
-READ THIS IN ORDER TO COMPILE THE Qt4 TEMPLATE
-----------------------------------------------
-
-Before compiling, check the Qt Options, go to 
-Project->Project Options->C++ Support and open the Qt Options tab.
-
-Check that the Qt installation directory is correct for the Qt version you've chosen.
-
-------------------
-Andreas Pakulat
-July 2006

diff --git a/udav/UDAV.desktop b/udav/UDAV.desktop
deleted file mode 100755 (executable)
index 3f28e31..0000000
--- a/udav/UDAV.desktop
+++ /dev/null
@@ -1,12 +0,0 @@
-[Desktop Entry]
-Encoding=UTF-8
-Version=1.0
-Type=Application
-Terminal=false
-Icon=udav.png
-Name=UDAV
-Exec=udav
-Comment=Data handling and plotting tool
-Comment[en_US]=Data handling and plotting tool
-Comment[ru_RU]=Обработка и отображение данных
-Categories=Education;Science;Math;

diff --git a/udav/anim_dlg.h b/udav/anim_dlg.h
index 28464044147db4746cbf506142912c46a49ba3b4..4a34682dbbbf44513687c4d056b7a6ffd5f1d7ce 100644 (file)
--- a/udav/anim_dlg.h
+++ b/udav/anim_dlg.h
@@ -33,7 +33,7 @@ Q_OBJECT
 public:
        bool gifOn, jpgOn;
        /// string with resulting animation parameters
-       const QString &getResult()      {       return res;     };
+       const QString &getResult()      {       return res;     }
        void setResult(const QString &s);
        void setResult(double a1,double a2,double da);
        AnimParam(QWidget *parent=0);

diff --git a/udav/args_dlg.cpp b/udav/args_dlg.cpp
index 69591da1714c73d9d1a8dbe70a3413c5a3a9cb5a..aa20c484145605136f92739bf45d48af41277189 100644 (file)
--- a/udav/args_dlg.cpp
+++ b/udav/args_dlg.cpp
@@ -21,9 +21,9 @@
 #include <QLayout>
 #include <QLineEdit>
 #include <QPushButton>
-#include <mgl2/parser.h>
+#include <mgl2/mgl.h>
 #include "args_dlg.h"
-extern mglParser parser;
+extern mglParse parser;
 //-----------------------------------------------------------------------------
 QDialog *createArgsDlg(QWidget *p)     {       return new ArgsDialog(p);       }
 //-----------------------------------------------------------------------------

diff --git a/udav/calc_dlg.cpp b/udav/calc_dlg.cpp
index 000ecbeb2931ed9722756fda0d3902a4db2b37e8..7ddcdf058ecb7ad3641ecf4795eb413979c6fd9a 100644 (file)
--- a/udav/calc_dlg.cpp
+++ b/udav/calc_dlg.cpp
@@ -24,9 +24,9 @@
 #include <QListView>
 #include <QComboBox>
 #include <QTextEdit>
-#include <mgl2/parser.h>
+#include <mgl2/mgl.h>
 #include "calc_dlg.h"
-extern mglParser parser;
+extern mglParse parser;
 mglData mglFormulaCalc(const wchar_t *string, mglParser *arg);
 //-----------------------------------------------------------------------------
 //
@@ -181,7 +181,7 @@ void CalcDialog::evaluate()
        wchar_t *txt=new wchar_t[sel.length()+1];
        sel.toWCharArray(txt);  txt[sel.length()]=0;
        setlocale(LC_NUMERIC, "C");
-       mglData res=mglFormulaCalc(txt, &parser);
+       mglData res=parser.Calc(txt);
        setlocale(LC_NUMERIC, "");
 //     result->setText(QString::fromWCharArray(txt));
        delete []txt;

diff --git a/udav/dat_pnl.cpp b/udav/dat_pnl.cpp
index 154f653be1be1349755cceae791c3fe8ce8dbf36..6724a7a293e4303a61542fab687d140cc095bc60 100644 (file)
--- a/udav/dat_pnl.cpp
+++ b/udav/dat_pnl.cpp
@@ -32,13 +32,16 @@
 #include <QInputDialog>
 #include <QToolButton>
 #include <QSpinBox>
-#include <mgl2/parser.h>
+#include <QComboBox>
+#include <QCheckBox>
+#include <QMessageBox>
+#include <mgl2/mgl.h>
 //-----------------------------------------------------------------------------
 #include "dat_pnl.h"
 #include "info_dlg.h"
 #include "xpm/table.xpm"
 //-----------------------------------------------------------------------------
-extern mglParser parser;
+extern mglParse parser;
 void updateDataItems();
 void addDataPanel(QWidget *wnd, QWidget *w, QString name);
 void deleteDat(void *o)                {       if(o)   delete ((DatPanel *)o); }
@@ -59,7 +62,7 @@ DatPanel::DatPanel(InfoDialog *inf, QWidget *parent) : QWidget(parent)
        ready = false;  infoDlg = inf;
        QBoxLayout *v,*h,*m;
 
-       menu = new QMenu(tr("&Data"),this);
+       menu = new QMenu(tr("Data"),this);
        v = new QVBoxLayout(this);
        h = new QHBoxLayout();  v->addLayout(h);        toolTop(h);
        h = new QHBoxLayout();  v->addLayout(h);
@@ -77,11 +80,11 @@ void DatPanel::refresh()
        bool rc = false;
        if(!var)        return;
        infoDlg->allowRefresh=false;
-       if(nx!=var->d.nx)       {       nx = var->d.nx; tab->setColumnCount(nx);rc=true;        }
-       if(ny!=var->d.ny)       {       ny = var->d.ny; tab->setRowCount(ny);   rc=true;        }
-       if(kz>=var->d.nz)       {       kz = 0;                 emit sliceChanged(0);   }
-       if(nz!=var->d.ny)       {       nz = var->d.nz; emit nzChanged(nz);             }
-       id = QString(var->d.id.c_str());
+       if(nx!=var->nx) {       nx = var->nx;   tab->setColumnCount(nx);        rc=true;        }
+       if(ny!=var->ny) {       ny = var->ny;   tab->setRowCount(ny);   rc=true;        }
+       if(kz>=var->nz) {       kz = 0;                 emit sliceChanged(0);   }
+       if(nz!=var->ny) {       nz = var->nz;   emit nzChanged(nz);             }
+       id = QString(var->id.c_str());
        if(nz==1 && ny>1 && !id.isEmpty())
        {
                QStringList head;
@@ -109,7 +112,7 @@ void DatPanel::refresh()
        }
        for(i=0;i<nx;i++)       for(j=0;j<ny;j++)
        {
-               f = var->d.GetVal(i,j,kz);
+               f = var->GetVal(i,j,kz);
                if(mgl_isnan(f))        s = "nan";
                else    s.sprintf("%g",f);
                tab->item(j,i)->setText(s);
@@ -158,48 +161,56 @@ void DatPanel::putValue(int r, int c)
        QString s = tab->item(r,c)->text().toLower();
        mreal f;
        f = s=="nan" ? NAN : s.toDouble();
-       if(f!=var->d.GetVal(c,r,kz))
+       if(f!=var->GetVal(c,r,kz))
        {
                if(mgl_isnan(f))        s="nan";        else    s.sprintf("%g", f);
                tab->item(r,c)->setText(s);
        }
-       var->d.SetVal(f,c,r,kz);
+       var->SetVal(f,c,r,kz);
        infoDlg->refresh();
 }
 //-----------------------------------------------------------------------------
-void DatPanel::imprt()
+void DatPanel::save()
 {
-       QString fn = QFileDialog::getOpenFileName(this, tr("UDAV - Import PNG"), "", tr("Data files (*.dat)\nAll files (*.*)"));
-       if(!fn.isEmpty())
+       QString fn = QFileDialog::getSaveFileName(this, tr("UDAV - Save/export data"), "",
+                               tr("Data files (*.dat)\nHDF5 files (*.h5 *.hdf)\nPNG files (*.png)\nAll files (*.*)"));
+       if(fn.isEmpty())        return;
+       QString ext = fn.section(".",-1);
+       if(ext=="png")
        {
                bool ok;
-               QString s = QInputDialog::getText(this, tr("UDAV - Export to PNG"), tr("Enter color scheme for picture.\nNote that data will be normalized in range [0,1]."), QLineEdit::Normal, "BbcyrR", &ok);
-               if(ok)  var->d.Import(fn.toAscii(), s.toAscii());
-               refresh();
+               QString s = QInputDialog::getText(this, tr("UDAV - Export to PNG"), tr("Enter color scheme for picture"), QLineEdit::Normal, "BbcyrR", &ok);
+               if(ok)  var->Export(fn.toAscii().constData(), s.toAscii().constData());
        }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::exprt()
-{
-       QString fn = QFileDialog::getOpenFileName(this, tr("UDAV - Import PNG"), "", tr("PNG files (*.png)\nAll files (*.*)"));
-       if(!fn.isEmpty())
+       else if(ext=="h5" || ext=="hdf")
        {
                bool ok;
-               QString s = QInputDialog::getText(this, tr("UDAV - Export to PNG"), tr("Enter color scheme for picture"), QLineEdit::Normal, "BbcyrR", &ok);
-               if(ok)  var->d.Export(fn.toAscii(), s.toAscii());
+               QString s = QInputDialog::getText(this, tr("UDAV - Save to HDF"), tr("Enter data name"), QLineEdit::Normal, QString::fromStdWString(var->s), &ok);
+               if(ok)  var->SaveHDF(fn.toAscii().constData(), s.toAscii().constData());
        }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::save()
-{
-       QString fn = QFileDialog::getSaveFileName(this, tr("UDAV - Save data"), "", tr("Data files (*.dat)\nAll files (*.*)"));
-       if(!fn.isEmpty())       var->d.Save(fn.toAscii());
+       else    var->Save(fn.toAscii().constData());
 }
 //-----------------------------------------------------------------------------
 void DatPanel::load()
 {
-       QString fn = QFileDialog::getOpenFileName(this, tr("UDAV - Load data"), "", tr("Data files (*.dat)\nAll files (*.*)"));
-       if(!fn.isEmpty())       {       var->d.Read(fn.toAscii());      refresh();      }
+       QString fn = QFileDialog::getOpenFileName(this, tr("UDAV - Load data"), "",
+                               tr("Data files (*.dat)\nHDF5 files (*.h5 *.hdf)\nPNG files (*.png)\nAll files (*.*)"));
+       if(fn.isEmpty())        return;
+       QString ext = fn.section(".",-1);
+       if(ext=="png")
+       {
+               bool ok;
+               QString s = QInputDialog::getText(this, tr("UDAV - Import PNG"), tr("Enter color scheme for picture"), QLineEdit::Normal, "BbcyrR", &ok);
+               if(ok)  var->Import(fn.toAscii().constData(), s.toAscii().constData());
+       }
+       else if(ext=="h5" || ext=="hdf")
+       {
+               bool ok;
+               QString s = QInputDialog::getText(this, tr("UDAV - Read from HDF"), tr("Enter data name"), QLineEdit::Normal, QString::fromStdWString(var->s), &ok);
+               if(ok)  var->ReadHDF(fn.toAscii().constData(), s.toAscii().constData());
+       }
+       else    var->Read(fn.toAscii().constData());
+       refresh();
 }
 //-----------------------------------------------------------------------------
 void DatPanel::copy()
@@ -232,7 +243,7 @@ void DatPanel::paste()
                {
                        t = s.section('\t',j,j,QString::SectionSkipEmpty);
                        if(t.isEmpty()) {       j=nx;   continue;       }
-                       var->d.SetVal(t.toDouble(),j+c,i+r,kz);
+                       var->SetVal(t.toDouble(),j+c,i+r,kz);
                }
        }
        refresh();
@@ -262,19 +273,12 @@ void DatPanel::list()     // TODO: in which script insert ???
        }*/
 }
 //-----------------------------------------------------------------------------
-void DatPanel::byformula()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Fill data"), tr("Enter formula for data filling.\nNote that variables x,y,z supposed to be in range [0,1]."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Modify(s.toAscii());     refresh();      }
-}
-//-----------------------------------------------------------------------------
 void DatPanel::inrange()
 {
        QString v1("-1"), v2("1"), dir("x");
        if(sizesDialog(tr("UDAV - Fill data"), tr("Enter range for data and direction of filling"), tr("From"), tr("To"), tr("Direction"), v1, v2, dir))
        {
-               var->d.Fill(v1.toDouble(), v2.toDouble(), dir[0].toLatin1());
+               var->Fill(v1.toDouble(), v2.toDouble(), dir[0].toLatin1());
                refresh();
        }
 }
@@ -284,7 +288,7 @@ void DatPanel::norm()
        QString v1("0"), v2("1"), how;
        if(sizesDialog(tr("UDAV - Normalize data"), tr("Enter range for final data"), tr("From"), tr("To"), tr("Symmetrical?"), v1, v2, how))
        {
-               var->d.Norm(v1.toDouble(), v2.toDouble(), (how=="on" || how.contains('s')));
+               var->Norm(v1.toDouble(), v2.toDouble(), (how=="on" || how.contains('s')));
                refresh();
        }
 }
@@ -294,7 +298,7 @@ void DatPanel::normsl()
        QString v1("0"), v2("1"), dir("z");
        if(sizesDialog(tr("UDAV - Normalize by slice"), tr("Enter range for final data"), tr("From"), tr("To"), tr("Direction"), v1, v2, dir))
        {
-               var->d.NormSl(v1.toDouble(), v2.toDouble(), dir[0].toLatin1());
+               var->NormSl(v1.toDouble(), v2.toDouble(), dir[0].toLatin1());
                refresh();
        }
 }
@@ -304,7 +308,7 @@ void DatPanel::create()
        QString mx, my("1"), mz("1");
        if(sizesDialog(tr("UDAV - Clear data"), tr("Enter new data sizes"), tr("X-size"), tr("Y-size"), tr("Z-size"), mx, my, mz))
        {
-               var->d.Create(mx.toInt(), my.toInt(), mz.toInt());
+               var->Create(mx.toInt(), my.toInt(), mz.toInt());
                refresh();      updateDataItems();
        }
 }
@@ -315,7 +319,7 @@ void DatPanel::reSize()
        mx.sprintf("%d",nx);    my.sprintf("%d",ny);    mz.sprintf("%d",nz);
        if(sizesDialog(tr("UDAV - Resize data"), tr("Enter new data sizes"), tr("X-size"), tr("Y-size"), tr("Z-size"), mx, my, mz))
        {
-               var->d = var->d.Resize(mx.toInt(), my.toInt(), mz.toInt());
+               var->Set(var->Resize(mx.toInt(), my.toInt(), mz.toInt()));
                refresh();      updateDataItems();
        }
 }
@@ -325,7 +329,7 @@ void DatPanel::squize()
        QString mx("1"), my("1"), mz("1");
        if(sizesDialog(tr("UDAV - Squeeze data"), tr("Enter step of saved points. For example, '1' save all, '2' save each 2nd point, '3' save each 3d and so on."), tr("X-direction"), tr("Y-direction"), tr("Z-direction"), mx, my, mz))
        {
-               var->d.Squeeze(mx.toInt(), my.toInt(), mz.toInt());
+               var->Squeeze(mx.toInt(), my.toInt(), mz.toInt());
                refresh();      updateDataItems();
        }
 }
@@ -335,7 +339,7 @@ void DatPanel::crop()
        QString n1("1"), n2("1"), dir;
        if(sizesDialog(tr("UDAV - Crop data"), tr("Enter range of saved date."), tr("From"), tr("To"), tr("Direction"), n1, n2, dir))
        {
-               var->d.Squeeze(n1.toInt(), n2.toInt(), dir[0].toLatin1());
+               var->Squeeze(n1.toInt(), n2.toInt(), dir[0].toLatin1());
                refresh();      updateDataItems();
        }
 }
@@ -346,136 +350,11 @@ void DatPanel::rearrange()
        mx.sprintf("%d",nx);    my.sprintf("%d",ny);    mz.sprintf("%d",nz);
        if(sizesDialog(tr("UDAV - Rearrange data"), tr("Enter new data sizes"), tr("X-size"), tr("Y-size"), tr("Z-size"), mx, my, mz))
        {
-               var->d.Rearrange(mx.toInt(), my.toInt(), mz.toInt());
+               var->Rearrange(mx.toInt(), my.toInt(), mz.toInt());
                refresh();      updateDataItems();
        }
 }
 //-----------------------------------------------------------------------------
-void DatPanel::transp()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Transpose data"), tr("Enter new order of dimensions.\nFor example, 'yx' or 'yxz' for transpose x-y, 'zyx' for transposing x-z and so on."), QLineEdit::Normal, "yx", &ok);
-       if(ok)  {       var->d.Transpose(s.toAscii());  refresh();      updateDataItems();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::smooth()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Smooth data"), tr("Enter direction(s) for smoothing.\nOptionally you may enter the kind of smoothing by 3 or by 5 points. For example 'xy3' - smooth only in x and y directions and use 3-points scheme."), QLineEdit::Normal, "xyz", &ok);
-       if(ok)  {       var->d.Smooth(s.toAscii().constData()); refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::cumsum()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Summarize data"), tr("Enter direction(s) for cumulative summation.\nFor example 'xy' - summate along x and y directions."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.CumSum(s.toAscii());     refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::integr()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Integrate data"), tr("Enter direction(s) for integration.\nFor example 'xy' - integrate along x and y directions."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Integral(s.toAscii());   refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::diff()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Differentiate data"), tr("Enter direction(s) for differentiation.\nFor example 'xy' - differentiate along x and y directions."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Diff(s.toAscii());               refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::diff2()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Laplace transform"), tr("Enter direction(s) for laplace transform.\nFor example 'xy' - do transform along x and y directions."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Diff2(s.toAscii());      refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::swap()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Swap data"), tr("Enter direction(s) for swapping (exchange left and right parts).\nFor example 'xy' - swap along x and y directions. Useful for Fourier spectrum."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Swap(s.toAscii());               refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::mirror()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Mirror data"), tr("Enter direction(s) for mirroring.\nFor example 'xy' - mirror along x and y directions."), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d.Swap(s.toAscii());       refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::sumof()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Sum along ..."), tr("Specify direction(s) of summation"), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Sum(val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::maxof()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Max along ..."), tr("Specify direction(s) of maximal values"), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Max(val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::minof()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Min along ..."), tr("Specify direction(s) of minimal values"), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Min(val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::momentx()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Momentum along 'x'"),
-               tr("Specify which momentum evaluate.\nThe momentum is res_i = sum_jk how(x_i,y_j,z_k) a_jk/ sum_jk a_jk.\nCoordinates x, y, z are data indexes normalized in range [0,1]."), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Momentum('x', val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::momenty()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Momentum along 'y'"),
-               tr("Specify which momentum evaluate.\nThe momentum is res_j = sum_ik how(x_i,y_j,z_k) a_ik/ sum_ik a_ik.\nCoordinates x, y, z are data indexes normalized in range [0,1]."), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Momentum('y', val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::momentz()
-{
-       QString name, val;
-       if(namesDialog(tr("UDAV - Momentum along 'z'"),
-               tr("Specify which momentum evaluate.\nThe momentum is res_k = sum_ij how(x_i,y_j,z_k) a_ij/ sum_ij a_ij.\nCoordinates x, y, z are data indexes normalized in range [0,1]."), name, val))
-       {
-               mglVar *v = parser.AddVar(name.toAscii());
-               v->d = var->d.Momentum('z', val.toAscii());
-               updateDataItems();
-       }
-}
-//-----------------------------------------------------------------------------
 void DatPanel::hist()
 {
        QLabel *l;
@@ -500,41 +379,13 @@ void DatPanel::hist()
        bool res = d->exec();
        if(res && !v1->text().isEmpty() && !v2->text().isEmpty() && !id->text().isEmpty())
        {
-               mglVar *vv = parser.AddVar(id->text().toAscii());
+               mglVar *vv = parser.AddVar(id->text().toAscii().constData());
                if(!vv) return;
-               vv->d = var->d.Hist(nm->value(), v1->text().toDouble(), v2->text().toDouble());
+               vv->Set(var->Hist(nm->value(), v1->text().toDouble(), v2->text().toDouble()));
                updateDataItems();
        }
 }
 //-----------------------------------------------------------------------------
-void DatPanel::addto()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Change data"), tr("Enter number for adding to data elements:"), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d += s.toDouble();         refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::subto()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Change data"), tr("Enter number for subtraction from data elements:"), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d -= s.toDouble();         refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::divto()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Change data"), tr("Enter number for division of data elements:"), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d /= s.toDouble();         refresh();      }
-}
-//-----------------------------------------------------------------------------
-void DatPanel::multo()
-{
-       bool ok;
-       QString s = QInputDialog::getText(this, tr("UDAV - Change data"), tr("Enter number for multiplication of data elements:"), QLineEdit::Normal, "", &ok);
-       if(ok)  {       var->d *= s.toDouble();         refresh();      }
-}
-//-----------------------------------------------------------------------------
 void DatPanel::first() {       setSlice(0);    }
 //-----------------------------------------------------------------------------
 void DatPanel::last()  {       setSlice(nz-1); }
@@ -584,18 +435,38 @@ bool DatPanel::sizesDialog(const QString &cap, const QString &lab, const QString
        return res;
 }
 //-----------------------------------------------------------------------------
-bool DatPanel::namesDialog(const QString &cap, const QString &lab, QString &name, QString &val)
+#include "xpm/plot.xpm"
+#include "xpm/size.xpm"
+#include "xpm/smth.xpm"
+#include "xpm/crop.xpm"
+#include "xpm/squize.xpm"
+#include "xpm/sum.xpm"
+#include "xpm/func.xpm"
+#include "xpm/swap.xpm"
+#include "xpm/hist.xpm"
+#include "xpm/oper_dir.xpm"
+#include "xpm/oper_of.xpm"
+//-----------------------------------------------------------------------------
+void DatPanel::newdat()
 {
        QLabel *l;
        QLineEdit *f1, *f2;
        QPushButton *b;
        QDialog *d = new QDialog(this);
-       d->setWindowTitle(cap);
+       d->setWindowTitle(tr("UDAV - make new data"));
        QVBoxLayout *v = new QVBoxLayout(d);
-       l = new QLabel(lab, d);         v->addWidget(l);
-       l = new QLabel(tr("NOTE: All fields must be filled!"), d);      v->addWidget(l);
-       f1 = new QLineEdit(val, d);     v->addWidget(f1);
-       l = new QLabel(tr("Enter the name for new variable"), d);       v->addWidget(l);
+       QComboBox *c = new QComboBox(d);        v->addWidget(c);
+       c->addItem(tr("Sum along direction(s)"));
+       c->addItem(tr("Min along direction(s)"));
+       c->addItem(tr("Max along direction(s)"));
+       c->addItem(tr("Momentum along 'x' for function"));
+       c->addItem(tr("Momentum along 'y' for function"));
+       c->addItem(tr("Momentum along 'z' for function"));
+       c->setCurrentIndex(0);
+
+       f1 = new QLineEdit("z",d);      v->addWidget(f1);
+       QCheckBox *cb = new QCheckBox(tr("Put into this data array"), d);       v->addWidget(cb);
+       l = new QLabel(tr("or enter name for new variable"), d);        v->addWidget(l);
        f2 = new QLineEdit(d);          v->addWidget(f2);
        QHBoxLayout *h = new QHBoxLayout();     v->addLayout(h);        h->addStretch(1);
        b = new QPushButton(tr("Cancel"), d);   h->addWidget(b);
@@ -605,28 +476,121 @@ bool DatPanel::namesDialog(const QString &cap, const QString &lab, QString &name
        b->setDefault(true);
        // now execute dialog and get values
        bool res = d->exec();
-       val = f1->text();       name = f2->text();
-       if(val.isEmpty() || name.isEmpty())     res = false;
-       delete d;
-       return res;
+       QString         val = f1->text(), mgl;
+       int k = c->currentIndex();
+       QString self = QString::fromStdWString(var->s);
+       if(res)
+       {
+               if(k<0)
+               {
+                       QMessageBox::warning(d, tr("UDAV - make new data"),
+                               tr("No action is selected. Do nothing."));
+                       return;
+               }
+               if(val.isEmpty())
+               {
+                       QMessageBox::warning(d, tr("UDAV - make new data"),
+                               tr("No direction/formula is entered. Do nothing."));
+                       return;
+               }
+               if(cb->isChecked())     k += 6;
+               QString name = f2->text();
+               switch(k)
+               {
+               case 0: mgl = "sum "+name+" "+self+" '"+val+"'";        break;
+               case 1: mgl = "min "+name+" "+self+" '"+val+"'";        break;
+               case 2: mgl = "max "+name+" "+self+" '"+val+"'";        break;
+               case 3: mgl = "momentum "+name+" "+self+" 'x' '"+val+"'";       break;
+               case 4: mgl = "momentum "+name+" "+self+" 'y' '"+val+"'";       break;
+               case 5: mgl = "momentum "+name+" "+self+" 'z' '"+val+"'";       break;
+               case 6: mgl = "copy "+self+" {sum "+self+" '"+val+"'}"; break;
+               case 7: mgl = "copy "+self+" {min "+self+" '"+val+"'}"; break;
+               case 8: mgl = "copy "+self+" {max "+self+" '"+val+"'}"; break;
+               case 9: mgl = "copy "+self+" {momentum "+self+" 'x' '"+val+"'}";        break;
+               case 10:        mgl = "copy "+self+" {momentum "+self+" 'y' '"+val+"'}";        break;
+               case 11:        mgl = "copy "+self+" {momentum "+self+" 'z' '"+val+"'}";        break;
+               }
+       }
+       if(!mgl.isEmpty())
+       {
+               mglGraph gr;
+               parser.Execute(&gr,mgl.toAscii().constData());
+               opers += mgl+"\n";
+               updateDataItems();
+       }
 }
 //-----------------------------------------------------------------------------
-#include "xpm/plot.xpm"
-#include "xpm/size.xpm"
-#include "xpm/smth.xpm"
-#include "xpm/oper_d.xpm"
-#include "xpm/oper_s.xpm"
-#include "xpm/oper_a.xpm"
-#include "xpm/oper_m.xpm"
-#include "xpm/crop.xpm"
-#include "xpm/tran.xpm"
-#include "xpm/integr.xpm"
-#include "xpm/diff.xpm"
-#include "xpm/diff2.xpm"
-#include "xpm/squize.xpm"
-#include "xpm/sum.xpm"
-#include "xpm/func.xpm"
-#include "xpm/swap.xpm"
+void DatPanel::oper()
+{
+       QLabel *l;
+       QLineEdit *f1;
+       QPushButton *b;
+       QDialog *d = new QDialog(this);
+       d->setWindowTitle(tr("UDAV - change data"));
+       QVBoxLayout *v = new QVBoxLayout(d);
+       QComboBox *c = new QComboBox(d);        v->addWidget(c);
+       c->addItem(tr("Fill data by formula"));
+       c->addItem(tr("Transpose data with new dimensions"));
+       c->addItem(tr("Smooth data along direction(s)"));
+       c->addItem(tr("Summarize data along direction(s)"));
+       c->addItem(tr("Integrate data along direction(s)"));
+       c->addItem(tr("Differentiate data along direction(s)"));
+       c->addItem(tr("Laplace transform along direction(s)"));
+       c->addItem(tr("Swap data along direction(s)"));
+       c->addItem(tr("Mirror data along direction(s)"));
+       c->addItem(tr("Sin-Fourier transform along direction(s)"));
+       c->addItem(tr("Cos-Fourier transform along direction(s)"));
+       c->addItem(tr("Hankel transform along direction(s)"));
+       c->addItem(tr("Sew data along direction(s)"));
+       c->addItem(tr("Find envelope along direction(s)"));
+       c->setCurrentIndex(0);
+
+       f1 = new QLineEdit("z",d);      v->addWidget(f1);
+       QHBoxLayout *h = new QHBoxLayout();     v->addLayout(h);        h->addStretch(1);
+       b = new QPushButton(tr("Cancel"), d);   h->addWidget(b);
+       connect(b, SIGNAL(clicked()), d, SLOT(reject()));
+       b = new QPushButton(tr("OK"), d);               h->addWidget(b);
+       connect(b, SIGNAL(clicked()), d, SLOT(accept()));
+       b->setDefault(true);
+       // now execute dialog and get values
+       bool res = d->exec();
+       QString         val = f1->text(), mgl;
+       int k = c->currentIndex();
+       QString self = QString::fromStdWString(var->s);
+       if(res)
+       {
+               if(k<0)
+               {
+                       QMessageBox::warning(d, tr("UDAV - make new data"),
+                               tr("No action is selected. Do nothing."));
+                       return;
+               }
+               switch(k)
+               {
+               case 0: mgl = "modify "+self+" '"+val+"'";      break;
+               case 1: mgl = "transpose "+self+" '"+val+"'";   break;
+               case 2: mgl = "smooth "+self+" '"+val+"'";      break;
+               case 3: mgl = "cumsum "+self+" '"+val+"'";      break;
+               case 4: mgl = "integrate "+self+" '"+val+"'";   break;
+               case 5: mgl = "diff "+self+" '"+val+"'";        break;
+               case 6: mgl = "diff2 "+self+" '"+val+"'";       break;
+               case 7: mgl = "swap "+self+" '"+val+"'";        break;
+               case 8: mgl = "mirror "+self+" '"+val+"'";      break;
+               case 9: mgl = "sinfft "+self+" '"+val+"'";      break;
+               case 10:        mgl = "cosfft "+self+" '"+val+"'";      break;
+               case 11:        mgl = "hankel "+self+" '"+val+"'";      break;
+               case 12:        mgl = "sew "+self+" '"+val+"'"; break;
+               case 13:        mgl = "envelop "+self+" '"+val+"'";     break;
+               }
+       }
+       if(!mgl.isEmpty())
+       {
+               mglGraph gr;
+               parser.Execute(&gr,mgl.toAscii().constData());
+               opers += mgl+"\n";
+               updateDataItems();
+       }
+}
 //-----------------------------------------------------------------------------
 void DatPanel::toolTop(QBoxLayout *l)
 {
@@ -635,65 +599,53 @@ void DatPanel::toolTop(QBoxLayout *l)
        QToolButton *bb;
 
        // file menu
-       o = menu->addMenu(tr("&File"));
-       a = new QAction(QPixmap(":/xpm/document-open.png"), tr("&Load data"), this);
+       o = menu->addMenu(tr("File"));
+       a = new QAction(QPixmap(":/xpm/document-open.png"), tr("Load data"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(load()));
-       a->setToolTip(tr("Load data from file. Data will be deleted only\nat exit but UDAV will not ask to save it."));
+       a->setToolTip(tr("Load data from file. Data will be deleted only\nat exit but UDAV will not ask to save it (Ctrl+Shift+O)."));
        a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_O);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/document-import.png"), tr("&Import PNG"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(imprt()));
-       a->setToolTip(tr("Import data from PNG picture with specified color scheme.\nData will be deleted only at exit but UDAV will not ask it saving."));
-       o->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(QPixmap(":/xpm/document-save.png"), tr("&Save data"), this);
+       a = new QAction(QPixmap(":/xpm/document-save.png"), tr("Save data"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(save()));
-       a->setToolTip(tr("Save data to tab-separeted file."));
+       a->setToolTip(tr("Save data to a file (Ctrl+Shift+S)."));
        a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_S);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/document-export.png"), tr("&Export PNG"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(exprt()));
-       a->setToolTip(tr("Export data to PNG picture. The colors defined by \nspecified color scheme. The same as in 'dens' command."));
-       o->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
 //     o->addSeparator();      bb->addSeparator();
-//     a = new QAction(QPixmap(insert_xpm), tr("Insert as &list"), this);
+//     a = new QAction(QPixmap(insert_xpm), tr("Insert as list"), this);
 //     connect(a, SIGNAL(triggered()), this, SLOT(list()));
 //     o->addAction(a);
 //     bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
 
-       a = new QAction(QPixmap(plot_xpm), tr("Plot &data"), this);
+       a = new QAction(QPixmap(plot_xpm), tr("Plot data"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(plot()));
        a->setToolTip(tr("Plot data in new script window. You may select the kind\nof plot, its style and so on."));
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("Copy &data"), this);
+       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("Copy data"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(copy()));
-       a->setToolTip(tr("Copy range of numbers to clipboard."));
-       o->addAction(a);
+       a->setToolTip(tr("Copy range of numbers to clipboard (Ctrl+Shift+C)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_C);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-paste.png"), tr("Paste &data"), this);
+       a = new QAction(QPixmap(":/xpm/edit-paste.png"), tr("Paste data"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(copy()));
-       a->setToolTip(tr("Paste range of numbers from clipboard."));
-       o->addAction(a);
+       a->setToolTip(tr("Paste range of numbers from clipboard (Ctrl+Shift+P)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_V);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
        // navigation menu
-       o = menu->addMenu(tr("&Navigate"));
-       a = new QAction(QPixmap(":/xpm/go-first.png"), tr("&First slice"), this);
+       o = menu->addMenu(tr("Navigate"));
+       a = new QAction(QPixmap(":/xpm/go-first.png"), tr("First slice"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(first()));
        a->setToolTip(tr("Go to the first data slice for 3D data."));
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/go-previous.png"), tr("&Prev. slice"), this);
+       a = new QAction(QPixmap(":/xpm/go-previous.png"), tr("Prev. slice"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(prev()));
        a->setToolTip(tr("Go to the previous data slice for 3D data."));
        o->addAction(a);
@@ -731,20 +683,20 @@ void DatPanel::toolLeft(QBoxLayout *l)
        QToolButton *bb;
 
        // size menu
-       o = menu->addMenu(tr("&Sizes"));
-       a = new QAction(QPixmap(":/xpm/document-new.png"), tr("&Create new"), this);
+       o = menu->addMenu(tr("Sizes"));
+       a = new QAction(QPixmap(":/xpm/document-new.png"), tr("Create new"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(create()));
-       a->setToolTip(tr("Recreate the data with new sizes and fill it by zeros (Ctrl+N)."));
-       a->setShortcut(Qt::CTRL+Qt::Key_N);     o->addAction(a);
+       a->setToolTip(tr("Recreate the data with new sizes and fill it by zeros (Ctrl+Shift+N)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_N);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(size_xpm), tr("&Resize"), this);
+       a = new QAction(QPixmap(size_xpm), tr("Resize"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(reSize()));
-       a->setToolTip(tr("Resize (interpolate) the data to specified sizes (Ctrl+R)."));
-       a->setShortcut(Qt::CTRL+Qt::Key_R);     o->addAction(a);
+       a->setToolTip(tr("Resize (interpolate) the data to specified sizes (Ctrl+Shift+R)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_R);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(squize_xpm), tr("&Squeeze"), this);
+       a = new QAction(QPixmap(squize_xpm), tr("Squeeze"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(squize()));
        a->setToolTip(tr("Keep only each n-th element of the data array."));
        o->addAction(a);
@@ -756,112 +708,46 @@ void DatPanel::toolLeft(QBoxLayout *l)
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(tran_xpm), tr("&Transpose"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(transp()));
-       a->setToolTip(tr("Transpose data dimensions, like x<->y or x<->z and so on."));
-       o->addAction(a);
+       a = new QAction(QPixmap(oper_of_xpm), tr("Transform"), this);
+       connect(a, SIGNAL(triggered()), this, SLOT(newdat()));
+       a->setToolTip(tr("Transform data along dimension(s) (Ctrl+Shift+T)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_T);   o->addAction(a);
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
+
+       a = new QAction(QPixmap(oper_dir_xpm), tr("Make new (Ctrl+Shift+M)"), this);
+       connect(a, SIGNAL(triggered()), this, SLOT(oper()));
+       a->setToolTip(tr("Make another data."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_M);   o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(tr("Re&arrange"), this);
+       a = new QAction(QPixmap(hist_xpm), tr("Histogram (Ctrl+Shift+H)"), this);
+       connect(a, SIGNAL(triggered()), this, SLOT(hist()));
+       a->setToolTip(tr("Find histogram of data."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_H);   o->addAction(a);
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
+       
+/*     a = new QAction(QPixmap(":/xpm/view-refresh.png"), tr("Refresh"), this);
+       connect(a, SIGNAL(triggered()), this, SLOT(refresh()));
+       a->setToolTip(tr("Refresh data values."));
+       o->addAction(a);
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);*/
+       
+/*     a = new QAction(tr("Rearrange"), this); // TODO: move in generalized dialog
        connect(a, SIGNAL(triggered()), this, SLOT(rearrange()));
        a->setToolTip(tr("Rearrange data sizes without changing data values."));
        o->addAction(a);
-
-       // modify menu
-       o = menu->addMenu(tr("&Modify"));
-       a = new QAction(QPixmap(func_xpm), tr("By &formula"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(byformula()));
-       a->setToolTip(tr("Change data values according to formula depended on 'x', 'y' and 'z'\nvariables. A set of special function is availible also."));
-       a->setShortcut(Qt::CTRL+Qt::Key_M);     o->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(tr("Fill in &range"), this);
+       a = new QAction(tr("Fill in range"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(inrange()));
        a->setToolTip(tr("Fill data equidistantly from one value to another."));
        o->addAction(a);
-       a = new QAction(tr("&Normalize"), this);
+       a = new QAction(tr("Normalize"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(norm()));
        a->setToolTip(tr("Normalize data so that its minimal\nand maximal values be in specified range."));
        o->addAction(a);
-       a = new QAction(tr("Norm. s&lices"), this);
+       a = new QAction(tr("Norm. slices"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(normsl()));
        a->setToolTip(tr("Normalize each data slice perpendicular to some direction\nso that its minimal and maximal values be in specified range."));
-       o->addAction(a);
-       a = new QAction(QPixmap(smth_xpm), tr("&Smooth data"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(smooth()));
-       a->setToolTip(tr("Smooth data by one of 4 methods along specified direction(s)."));
-       o->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       oo = menu->addMenu(tr("&Operators"));
-       a = new QAction(QPixmap(sum_xpm), tr("&Cum. sum"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(cumsum()));
-       a->setToolTip(tr("Summate data values along specified direction(s)."));
-       oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(QPixmap(integr_xpm), tr("&Integrate"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(integr()));
-       a->setToolTip(tr("Integrate data values along specified direction(s)."));
-       oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(QPixmap(diff_xpm), tr("&Differentiate"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(diff()));
-       a->setToolTip(tr("Differentiate data values along specified direction(s)."));
-       oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(QPixmap(diff2_xpm), tr("&Laplace"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(diff2()));
-       a->setToolTip(tr("Double differentiate data values along specified direction(s)."));
-       oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(QPixmap(swap_xpm), tr("&Swap"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(swap()));
-       a->setToolTip(tr("Swap left and right data part along specified direction(s).\nThis operation is useful for data after Fourier transform."));
-       oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
-
-       a = new QAction(tr("&Mirror"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(mirror()));
-       a->setToolTip(tr("Mirror left and right data part along specified direction(s).\nThis operation do like index change from 'i' to 'n-i'."));
-       oo->addAction(a);
-
-       oo = menu->addMenu(tr("&Algebraic"));
-       a = new QAction(QPixmap(oper_a_xpm), tr("&Add"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(addto()));
-       a->setToolTip(tr("Add a number to all data values."));
-       oo->addAction(a);
-       a = new QAction(QPixmap(oper_s_xpm), tr("&Subtract"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(subto()));
-       a->setToolTip(tr("Subtract a number to all data values."));
-       oo->addAction(a);
-       a = new QAction(QPixmap(oper_m_xpm), tr("&Multiply"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(multo()));
-       a->setToolTip(tr("Multiply all data values by a number."));
-       oo->addAction(a);
-       a = new QAction(QPixmap(oper_d_xpm), tr("&Divide"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(divto()));
-       a->setToolTip(tr("Divide all data values by a number."));
-       oo->addAction(a);
-
-       oo = menu->addMenu(tr("A&nother data"));
-       a = new QAction(tr("&Sum of"), this);   oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(sumof()));
-       a = new QAction(tr("M&in of"), this);   oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(minof()));
-       a = new QAction(tr("M&ax of"), this);   oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(maxof()));
-       a = new QAction(tr("Momentum along &x"), this); oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(momentx()));
-       a = new QAction(tr("Momentum along &y"), this); oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(momenty()));
-       a = new QAction(tr("Momentum along &z"), this); oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(momentz()));
-       a = new QAction(tr("&Histogram"), this);        oo->addAction(a);
-       connect(a, SIGNAL(triggered()), this, SLOT(hist()));
+       o->addAction(a);*/
 
        l->addStretch(1);
 }

diff --git a/udav/dat_pnl.h b/udav/dat_pnl.h
index b9be24ba306f85aa5c471dacb48aac9f0cd88a88..28d444f1974d19c155aa009c7112215dd4d9a3a1 100644 (file)
--- a/udav/dat_pnl.h
+++ b/udav/dat_pnl.h
@@ -39,11 +39,14 @@ public:
        DatPanel(InfoDialog *inf, QWidget *parent = 0);
        ~DatPanel();
 
-       void refresh(); ///< Refresh table with new data values
        void setVar(mglVar *v);
        inline long GetNz()     {       return nz;      }       ///< Get number of slices
        QString dataName();
 
+public slots:
+       QString dataOper()      {       return opers;   }
+       void refresh();         ///< Refresh table with new data values
+
 signals:
        void sliceChanged(int);
        void nzChanged(int);
@@ -54,14 +57,11 @@ private slots:
        // menu genereal
        void load();
        void save();
-       void imprt();
-       void exprt();
        void copy();
        void paste();
        void plot();
        void list();
        // menu fill
-       void byformula();
        void inrange();
        void norm();
        void normsl();
@@ -70,29 +70,12 @@ private slots:
        void reSize();
        void squize();
        void crop();
-       void transp();
        void rearrange();
        // menu change
-       void smooth();
-       void cumsum();
-       void integr();
-       void diff();
-       void diff2();
-       void swap();
-       void mirror();
-       // menu another ???
-       void sumof();
-       void maxof();
-       void minof();
-       void momentx();
-       void momenty();
-       void momentz();
+       void oper();
+       // menu another
+       void newdat();
        void hist();
-       // menu operations
-       void addto();
-       void subto();
-       void divto();
-       void multo();
        // menu navigation
        void first();
        void last();
@@ -104,6 +87,7 @@ private slots:
 private:
        int nx,ny,nz;   ///< Data sizes
        QString id;
+       QString opers;
        QTableWidget *tab;      ///< Table itself
        int kz;                 ///< Current z-slice
        mglVar *var;    ///< Variable with data
@@ -112,7 +96,6 @@ private:
        QSpinBox *sb;
 
        bool sizesDialog(const QString &cap, const QString &lab, const QString &desc1, const QString &desc2, const QString &desc3, QString &val1, QString &val2, QString &val3);
-       bool namesDialog(const QString &cap, const QString &lab, QString &name, QString &val);
        void toolTop(QBoxLayout *l);
        void toolLeft(QBoxLayout *l);
 };

diff --git a/udav/data_dlg.cpp b/udav/data_dlg.cpp
new file mode 100644 (file)
index 0000000..050307b
--- /dev/null
+++ b/udav/data_dlg.cpp
@@ -0,0 +1,145 @@
+/***************************************************************************
+ *   Copyright (C) 2008 by Alexey Balakin                                  *
+ *   mathgl.abalakin@gmail.com                                             *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+#include <QPushButton>
+#include <QComboBox>
+#include <QSpinBox>
+#include <QLayout>
+#include <QLabel>
+#include <QLineEdit>
+//-----------------------------------------------------------------------------
+#include <mgl2/mgl.h>
+mglData mglFormulaCalc(const wchar_t *string, mglParser *arg);
+extern mglParse parser;
+#include "data_dlg.h"
+//-----------------------------------------------------------------------------
+DataDialog::DataDialog(QWidget* parent): QDialog(parent)
+{
+       setWindowTitle(tr("UDAV - Insert style/scheme"));
+       QHBoxLayout *h;
+       QVBoxLayout *v;
+       QGridLayout *g;
+       QLabel *l;
+       QPushButton *b;
+
+       v = new QVBoxLayout(this);
+       h = new QHBoxLayout();  v->addLayout(h);
+       l = new QLabel(tr("Data name"), this);  h->addWidget(l);
+       name = new QComboBox(this);     h->addWidget(name);
+       
+       g = new QGridLayout();  v->addLayout(g);
+
+       l = new QLabel("x1", this);     g->addWidget(l, 0, 0);
+       x1 = new QSpinBox(this);        x1->setMinimum(-1);     g->addWidget(x1, 0, 1);
+       l = new QLabel("x2", this);     g->addWidget(l, 0, 2);
+       x2 = new QSpinBox(this);        x2->setMinimum(-1);     g->addWidget(x2, 0, 3);
+       
+       l = new QLabel("y1", this);     g->addWidget(l, 1, 0);
+       y1 = new QSpinBox(this);        y1->setMinimum(-1);     g->addWidget(y1, 1, 1);
+       l = new QLabel("y2", this);     g->addWidget(l, 1, 2);
+       y2 = new QSpinBox(this);        y2->setMinimum(-1);     g->addWidget(y2, 1, 3);
+       
+       l = new QLabel("z1", this);     g->addWidget(l, 2, 0);
+       z1 = new QSpinBox(this);        z1->setMinimum(-1);     g->addWidget(z1, 2, 1);
+       l = new QLabel("z2", this);     g->addWidget(l, 2, 2);
+       z2 = new QSpinBox(this);        z2->setMinimum(-1);     g->addWidget(z2, 2, 3);
+
+       x1->setValue(-1);       y1->setValue(-1);       z1->setValue(-1);
+       x2->setValue(-1);       y2->setValue(-1);       z2->setValue(-1);
+       
+       l = new QLabel(tr("Operation"));        g->addWidget(l, 3, 0);
+       oper = new QComboBox(this);             g->addWidget(oper, 3, 1);
+       oper->addItem(tr("none"));              oper->addItem(tr("sum"));
+       oper->addItem(tr("min"));       oper->addItem(tr("max"));
+       l = new QLabel("along", this);  g->addWidget(l, 3, 2);
+       dirs = new QComboBox(this);             g->addWidget(dirs, 3, 3);
+       dirs->addItem("xyz");
+       dirs->addItem("x");     dirs->addItem("y");     dirs->addItem("z");
+       dirs->addItem("xy");    dirs->addItem("xz");    dirs->addItem("yz");
+
+       connect(name, SIGNAL(currentIndexChanged(int)), this, SLOT(nameChanged()));
+       connect(x1, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(x2, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(y1, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(y2, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(z1, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(z2, SIGNAL(valueChanged(int)), this, SLOT(updateRes()));
+       connect(oper, SIGNAL(currentIndexChanged(int)), this, SLOT(updateRes()));
+       connect(dirs, SIGNAL(currentIndexChanged(int)), this, SLOT(updateRes()));
+
+       sizes = new QLabel(tr("Result"));       v->addWidget(sizes);
+       res = new QLineEdit(this);              v->addWidget(res);
+       connect(res, SIGNAL(textChanged(QString)), this, SLOT(userRes()));
+       
+       h = new QHBoxLayout();  v->addLayout(h);        h->addStretch(1);
+       b = new QPushButton(tr("Cancel"), this);        h->addWidget(b);
+       connect(b, SIGNAL(clicked()),this, SLOT(reject()));
+       b = new QPushButton(tr("OK"), this);            h->addWidget(b);
+       connect(b, SIGNAL(clicked()),this, SLOT(accept()));
+       b->setDefault(true);
+}
+//-----------------------------------------------------------------------------
+void DataDialog::nameChanged()
+{
+       QString var = name->currentText();
+       wchar_t *txt=new wchar_t[var.length()+1];
+       var.toWCharArray(txt);  txt[var.length()]=0;
+       mglData dat=parser.Calc(txt);   delete []txt;
+       x1->setMaximum(dat.nx-1);       x1->setValue(-1);
+       x2->setMaximum(dat.nx-1);       x2->setValue(-1);
+       y1->setMaximum(dat.ny-1);       y1->setValue(-1);
+       y2->setMaximum(dat.ny-1);       y2->setValue(-1);
+       z1->setMaximum(dat.nz-1);       z1->setValue(-1);
+       z2->setMaximum(dat.nz-1);       z2->setValue(-1);
+}
+//-----------------------------------------------------------------------------
+void DataDialog::updateRes()
+{
+       result = name->currentText();
+       int nx1 = x1->value(), nx2 = x2->value(), ny1 = y1->value(), ny2 = y2->value(), nz1 = z1->value(), nz2 = z2->value();
+       if(nx1>=0 || ny1>=0 || nz1>=0 || nx2>=0 || ny2>=0 || nz2>=0)
+               result += "(" + (nx1<0?"":QString::number(nx1)) + ":" + (nx2<0?"":QString::number(nx2)) + "," +
+                                               (ny1<0?"":QString::number(ny1)) + ":" + (ny2<0?"":QString::number(ny2)) + "," +
+                                               (nz1<0?"":QString::number(nz1)) + ":" + (nz2<0?"":QString::number(nz2)) + ")";
+       if(oper->currentIndex()>0)
+               result = "{" + oper->currentText() + " " + result + " '" + dirs->currentText() + "'}";
+       wchar_t *txt=new wchar_t[result.length()+1];
+       result.toWCharArray(txt);       txt[result.length()]=0;
+       mglData dat=parser.Calc(txt);   delete []txt;
+       sizes->setText(tr("Result (will have sizes ") + QString::number(dat.nx)+"*"+QString::number(dat.ny)+"*"+QString::number(dat.nz)+")"     );
+       res->setText(result);
+}
+//-----------------------------------------------------------------------------
+void DataDialog::updateNames()
+{
+       name->clear();
+       mglVar *v = parser.FindVar("");
+       QString s;
+       while(v)
+       {       name->addItem(QString::fromStdWString(v->s));           v = v->next;            }
+       
+}
+//-----------------------------------------------------------------------------
+void DataDialog::userRes()
+{
+       QString txt = res->text();
+       if(txt != result)
+       {       result = txt;   sizes->setText(tr("Result"));   }
+}
+//-----------------------------------------------------------------------------

diff --git a/udav/data_dlg.h b/udav/data_dlg.h
new file mode 100644 (file)
index 0000000..048da95
--- /dev/null
+++ b/udav/data_dlg.h
@@ -0,0 +1,55 @@
+/***************************************************************************
+ *   Copyright (C) 2008 by Alexey Balakin                                  *
+ *   mathgl.abalakin@gmail.com                                             *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+#ifndef DATADIALOG_H
+#define DATADIALOG_H
+//-----------------------------------------------------------------------------
+#include <qdialog.h>
+class QComboBox;
+class QLineEdit;
+class QSpinBox;
+class QLabel;
+class QShowEvent;
+//-----------------------------------------------------------------------------
+/// Selecting styles of command (like line style, color scheme, font style, axis style)
+class DataDialog : public QDialog
+{
+       Q_OBJECT
+public:
+       QString getData()       {       return result;  };
+       void updateNames();
+       DataDialog(QWidget *parent = 0);
+       ~DataDialog(){};
+protected:
+       virtual void showEvent(QShowEvent *ev)
+       {       updateNames();  QDialog::showEvent(ev); }
+private slots:
+       void nameChanged();
+       void updateRes();
+       void userRes();
+private:
+       QString result;
+       QComboBox *name, *suffix, *oper, *dirs;
+       QLineEdit *res, *func;
+       QSpinBox  *x1, *y1, *z1, *x2, *y2, *z2;
+       QLabel *sizes;
+};
+//-----------------------------------------------------------------------------
+#endif
+//-----------------------------------------------------------------------------

diff --git a/udav/find_dlg.cpp b/udav/find_dlg.cpp
index 3d029d500bd8df83d71c69a934a63b0a29bf3e4f..56bbaf1195ef1b442635d4b221478c4826b557fd 100644 (file)
--- a/udav/find_dlg.cpp
+++ b/udav/find_dlg.cpp
@@ -32,21 +32,21 @@ FindDialog::FindDialog(QWidget *parent) : QDialog(parent)
        setWindowTitle(tr("UDAV - Find"));
        QVBoxLayout *o = new QVBoxLayout;
        a = new QHBoxLayout;    o->addLayout(a);
-       lbl = new QLabel(tr("Find &what:"), this);                      a->addWidget(lbl);
+       lbl = new QLabel(tr("Find what:"), this);                       a->addWidget(lbl);
        line = new QLineEdit(this);     lbl->setBuddy(line);    a->addWidget(line);
        a = new QHBoxLayout;    o->addLayout(a);
-       lbl = new QLabel(tr("Replace &by:"), this);                     a->addWidget(lbl);
+       lbl = new QLabel(tr("Replace by:"), this);                      a->addWidget(lbl);
        text = new QLineEdit(this);     lbl->setBuddy(text);    a->addWidget(text);
 
-       caseUse = new QCheckBox(tr("Match &case"), this);       o->addWidget(caseUse);
-       backward = new QCheckBox(tr("Search &backward"), this); o->addWidget(backward);
+       caseUse = new QCheckBox(tr("Match case"), this);        o->addWidget(caseUse);
+       backward = new QCheckBox(tr("Search backward"), this);  o->addWidget(backward);
 
        a = new QHBoxLayout(this);      a->setMargin(11);
        a->setSpacing(6);                       a->addLayout(o);
        o = new QVBoxLayout;            a->addLayout(o);
-       find = new QPushButton(tr("&Find"), this);              o->addWidget(find);
+       find = new QPushButton(tr("Find"), this);               o->addWidget(find);
        find->setDefault(true); find->setEnabled(false);
-       repl= new QPushButton(tr("&Replace"), this);    o->addWidget(repl);
+       repl= new QPushButton(tr("Replace"), this);     o->addWidget(repl);
        repl->setEnabled(false);
        cancel = new QPushButton(tr("Close"), this);    o->addWidget(cancel);
        o->addStretch(1);

diff --git a/udav/help_pnl.cpp b/udav/help_pnl.cpp
index 6bedd9529b5f08a95d2507d646506ff1c3521d85..ed5f9b142c2d5a8f195785c12f3d0370befff878 100644 (file)
--- a/udav/help_pnl.cpp
+++ b/udav/help_pnl.cpp
@@ -52,7 +52,7 @@ HelpPanel::HelpPanel(QWidget *parent) : QWidget(parent)
        connect(entry, SIGNAL(returnPressed()), this, SLOT(showHelp()));
        b = new QPushButton(QPixmap(":/xpm/go-next.png"), tr("Forward"));
        connect(b, SIGNAL(clicked()), help, SLOT(forward()));   a->addWidget(b);
-//     b = new QPushButton(QPixmap(":/xpm/help-faq.png"), tr("&Examples"));
+//     b = new QPushButton(QPixmap(":/xpm/help-faq.png"), tr("Examples"));
 //     connect(b, SIGNAL(clicked()), this, SLOT(showExamples()));      a->addWidget(b);
        t = new QToolButton(this);      t->setIcon(QPixmap(":/xpm/zoom-in.png"));
        connect(t, SIGNAL(clicked()), this, SLOT(zoomIn()));    a->addWidget(t);

diff --git a/udav/hint_dlg.cpp b/udav/hint_dlg.cpp
index 2ed6d0a582495d937291b26668f0996cbdf31fce..59273eec169057559db5c9fe3f35ed7fbda851e1 100644 (file)
--- a/udav/hint_dlg.cpp
+++ b/udav/hint_dlg.cpp
@@ -25,23 +25,25 @@
 //-----------------------------------------------------------------------------
 #define qtr    HintDialog::tr
 QString hints[] = {
-       qtr("You can rotate plot by mouse. Just press 'Rotate' toolbutton, click image and hold a mouse button: left button for rotation, right button for zooming/perspective, middle button for shifting."),
+       qtr("You can shift axis range by pressing middle button and moving mouse. Also, you can zoom in/out axis range by using mouse wheel."),
+       qtr("You can rotate/shift/zoom whole plot by mouse. Just press 'Rotate' toolbutton, click image and hold a mouse button: left button for rotation, right button for zoom/perspective, middle button for shift."),
        qtr("You may quickly draw the data from file. Just use: udav 'filename.dat' in command line."),
        qtr("You can copy the current image to clipboard by pressing Ctrl-Shift-C. Later you can paste it directly into yours document or presentation."),
        qtr("You can export image into a set of format (EPS, SVG, PNG, JPEG) by pressing right mouse button inside image and selecting 'Export as ...'."),
-       qtr("You can setup colors for script highlighting in Property dialog. Just select menu item 'Edit/Properties'."),
-       qtr("You can save the parameter of animation inside MGL script by using comment started from '##a '."),
+       qtr("You can setup colors for script highlighting in Property dialog. Just select menu item 'Settings/Properties'."),
+       qtr("You can save the parameter of animation inside MGL script by using comment started from '##a ' or '##c ' for loops."),
        qtr("New drawing never clears things drawn already. For example, you can make a surface with contour lines by calling commands 'surf' and 'cont' one after another (in any order). "),
        qtr("You can put several plots in the same image by help of commands 'subplot' or 'inplot'."),
        qtr("All indexes (of data arrays, subplots and so on) are always start from 0."),
-       qtr("You can edit MGL file in any text editor. Also you can run it in console by help of commands: mgl2png, mgl2eps, mgl2svg and so on."),
+       qtr("You can edit MGL file in any text editor. Also you can run it in console by help of commands: mglconv, mglview."),
        qtr("You can use command 'once on|off' for marking the block which should be executed only once. For example, this can be the block of large data reading/creating/handling. Press F9 (or menu item 'Graphics/Reload') to re-execute this block."),
        qtr("You can use command 'stop' for terminating script parsing. It is useful if you don't want to execute a part of script."),
-       qtr("You can type arbitrary expression as input argument for data or number. In last case, the first value of data array is used."),
+       qtr("You can type arbitrary expression as input argument for data or number. In last case (for numbers), the first value of data array is used."),
        qtr("There is powerful calculator with a lot of special functions. You can use buttons or keyboard to type the expression. Also you can use existed variables in the expression."),
        qtr("The calculator can help you to put complex expression in the script. Just type the expression (which may depend on coordinates x,y,z and so on) and put it into the script."),
-       qtr("You can easely insert file or folder names, last fitted formula or numerical value of selection by using menu Edit|Insert."),
+       qtr("You can easily insert file or folder names, last fitted formula or numerical value of selection by using menu Edit|Insert."),
        qtr("The special dialog (Edit|Insert|New Command) help you select the command, fill its arguments and put it into the script."),
+       qtr("You can put several plotting commands in the same line or in separate function, for highlighting all of them simultaneously."),
        qtr("")
 };
 //-----------------------------------------------------------------------------
@@ -52,7 +54,7 @@ QString hints[] = {
 extern "C"{double mgl_rnd();}
 HintDialog::HintDialog(QWidget *parent) : QDialog(parent)
 {
-       for(numHints=0;!hints[numHints].isEmpty();numHints++){};
+       for(numHints=0;!hints[numHints].isEmpty();numHints++);
        cur = int(mgl_rnd()*numHints);
        setWindowTitle(tr("UDAV - Hint"));
        QHBoxLayout *a;
@@ -61,15 +63,15 @@ HintDialog::HintDialog(QWidget *parent) : QDialog(parent)
        text = new QTextEdit(this);     o->addWidget(text);
        text->setReadOnly(true);        text->setText(hints[cur]);
 
-       start = new QCheckBox(tr("&Show at startup"), this);    o->addWidget(start);
+       start = new QCheckBox(tr("Show at startup"), this);     o->addWidget(start);
        start->setChecked(true);
 
        a = new QHBoxLayout;    o->addLayout(a);
-       b = new QPushButton(tr("&Prev"), this);         a->addWidget(b);
+       b = new QPushButton(tr("Prev"), this);          a->addWidget(b);
        connect(b, SIGNAL(clicked()), this, SLOT(prevClicked()));
-       b = new QPushButton(tr("&Next"), this);         a->addWidget(b);
+       b = new QPushButton(tr("Next"), this);          a->addWidget(b);
        connect(b, SIGNAL(clicked()), this, SLOT(nextClicked()));
-       b = new QPushButton(tr("&Close"), this);        a->addWidget(b);
+       b = new QPushButton(tr("Close"), this); a->addWidget(b);
        connect(b, SIGNAL(clicked()),this, SLOT(close()));
 }
 //-----------------------------------------------------------------------------

diff --git a/udav/hint_dlg.h b/udav/hint_dlg.h
index 6b3e709283dc599bf74db2dc4419da684e5b3f15..338b222c95fe4069fdae613a75759af15ed14aba 100644 (file)
--- a/udav/hint_dlg.h
+++ b/udav/hint_dlg.h
@@ -31,7 +31,7 @@ class HintDialog : public QDialog
 Q_OBJECT
 public:
        HintDialog(QWidget *parent = 0);
-       ~HintDialog()   {};
+       ~HintDialog()   {}
 protected:
        void closeEvent(QCloseEvent *event);
 private slots:

diff --git a/udav/info_dlg.cpp b/udav/info_dlg.cpp
index 9377b492ede1a50b0cfb171e1b1ee2b5eace2701..1cc72c8c973b5e5ab5e90f22139305dc8e06b700 100644 (file)
--- a/udav/info_dlg.cpp
+++ b/udav/info_dlg.cpp
@@ -22,10 +22,9 @@
 #include <QComboBox>
 #include <QTextEdit>
 #include <QTabWidget>
-#include "mgl2/parser.h"
-#include "mgl2/qt.h"
+#include "mgl2/qmathgl.h"
 #include "info_dlg.h"
-extern mglParser parser;
+extern mglParse parser;
 //-----------------------------------------------------------------------------
 InfoDialog::InfoDialog(QWidget *parent) : QDialog(parent)
 {
@@ -43,7 +42,7 @@ InfoDialog::InfoDialog(QWidget *parent) : QDialog(parent)
        mgl->autoResize = true;         mgl->appName = tr("Data preview");
        mgl->setToolTip(tr("Data preview for current slice."));
 
-       draw = new mglDrawScript(&parser);      mgl->setDraw(draw);
+       draw = new mglDrawScript(parser.Self());        mgl->setDraw(draw);
 
        kind->addItem(tr("1D plot"));   kind->addItem(tr("2D plot"));
        kind->setCurrentIndex(0);       //      kind->addItem(tr("3D plot"));
@@ -76,7 +75,7 @@ void InfoDialog::refresh(bool force)
 void InfoDialog::setVar(mglVar *v)
 {
        var=v;
-       if(v)   kind->setCurrentIndex(v->d.ny>1 ? 1:0);
+       if(v)   kind->setCurrentIndex(v->ny>1 ? 1:0);
        refresh();
 }
 //-----------------------------------------------------------------------------

diff --git a/udav/info_dlg.h b/udav/info_dlg.h
index 715c7d3bb8bbc3fa579ba40eb8fe9bef27dd70af..34113f00cd59314b6130710f7fda4b91378172a7 100644 (file)
--- a/udav/info_dlg.h
+++ b/udav/info_dlg.h
@@ -35,9 +35,9 @@ class InfoDialog : public QDialog
 Q_OBJECT
 public:
        InfoDialog(QWidget *parent = 0);
-       ~InfoDialog();
+       virtual ~InfoDialog();
        void setVar(mglVar *v);
-       void setSlice(int k)    {       kz=k;   refresh();      };
+       void setSlice(int k)    {       kz=k;   refresh();      }
        bool allowRefresh;
 //     void setName(QString &name);
        void showEvent(QShowEvent *ev);

diff --git a/udav/mem_pnl.cpp b/udav/mem_pnl.cpp
index fe7c3d3a1b1ed96fda853696a87191d9975d593b..7d974cc53b39d8d233e327b5253e00e8a4254fe1 100644 (file)
--- a/udav/mem_pnl.cpp
+++ b/udav/mem_pnl.cpp
@@ -22,7 +22,7 @@
 #include <QToolButton>
 #include <QInputDialog>
 #include <QMessageBox>
-#include <mgl2/parser.h>
+#include <mgl2/mgl.h>
 //-----------------------------------------------------------------------------
 #include "mem_pnl.h"
 #include "info_dlg.h"
@@ -31,7 +31,7 @@
 #include "xpm/preview.xpm"
 //-----------------------------------------------------------------------------
 extern bool mglAutoSave;
-extern mglParser parser;
+extern mglParse parser;
 QWidget *newDataWnd(InfoDialog *inf, QWidget *wnd, mglVar *v);
 void refreshData(QWidget *w);
 //-----------------------------------------------------------------------------
@@ -98,7 +98,7 @@ void MemPanel::newTable()
        QString name = QInputDialog::getText(this, tr("UDAV - New variable"),
                                tr("Enter name for new variable"), QLineEdit::Normal, "", &ok);
        if(!ok || name.isEmpty())       return;
-       mglVar *v = parser.AddVar(name.toAscii());
+       mglVar *v = parser.AddVar(name.toAscii().constData());
        QWidget *t;
        if(v->o)        t = (QWidget *)v->o;
        else            t = newDataWnd(infoDlg,wnd,v);
@@ -111,7 +111,7 @@ void MemPanel::editData(int n)
        if(tab->rowCount()<1)   return;
        if(n<0) n = tab->currentRow();
        if(n<0) n = 0;
-       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii());
+       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii().constData());
        if(!v)  return;
        QWidget *t;
        if(v->o)        t = (QWidget *)v->o;
@@ -124,10 +124,9 @@ void MemPanel::delData()
        if(tab->rowCount()<1)   return;
        int     n = tab->currentRow();
        if(n<0) n = 0;
-       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii());
-       if(!v)  return;
-       if(v->o)        ((QWidget *)v->o)->close();
-       parser.DeleteVar(v);
+       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii().constData());
+       if(!v && v->o)  ((QWidget *)v->o)->close();
+       parser.DeleteVar(tab->item(n,0)->text().toAscii().constData());
        refresh();
 }
 //-----------------------------------------------------------------------------
@@ -136,8 +135,7 @@ void MemPanel::delAllData()
        if(QMessageBox::information(this, tr("UDAV - delete all data"),
                        tr("Do you want to delete all data?"), QMessageBox::No,
                        QMessageBox::Yes)!=QMessageBox::Yes)    return;
-       while(parser.DataList)  parser.DeleteVar(parser.DataList);
-       refresh();
+       parser.DeleteAll();     refresh();
 }
 //-----------------------------------------------------------------------------
 void MemPanel::infoData()
@@ -145,7 +143,7 @@ void MemPanel::infoData()
        if(tab->rowCount()<1)   return;
        int     n = tab->currentRow();
        if(n<0) n = 0;
-       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii());
+       mglVar *v = parser.FindVar(tab->item(n,0)->text().toAscii().constData());
        if(!v)  return;
        infoDlg->setVar(v);
        QString s = QString::fromStdWString(v->s);
@@ -156,11 +154,11 @@ void MemPanel::infoData()
 //-----------------------------------------------------------------------------
 void MemPanel::refresh()
 {
-       mglVar *v = parser.DataList;
+       mglVar *v = parser.FindVar("");
        int n = 0;
        while(v)        {       v = v->next;    n++;    }
        tab->setRowCount(n);
-       v = parser.DataList;    n = 0;
+       v = parser.FindVar(""); n = 0;
        QString s;
        QTableWidgetItem *it;
        Qt::ItemFlags flags=Qt::ItemIsSelectable|Qt::ItemIsEnabled;
@@ -169,11 +167,11 @@ void MemPanel::refresh()
                s = QString::fromStdWString(v->s);
                it = new QTableWidgetItem(s);
                tab->setItem(n,0,it);   it->setFlags(flags);
-               s.sprintf("%ld * %ld * %ld", v->d.nx, v->d.ny, v->d.nz);
+               s.sprintf("%ld * %ld * %ld", v->nx, v->ny, v->nz);
                it = new QTableWidgetItem(s);
                tab->setItem(n,1,it);   it->setFlags(flags);
                it->setTextAlignment(Qt::AlignHCenter|Qt::AlignVCenter);
-               s.sprintf("%12ld", v->d.nx*v->d.ny*v->d.nz*sizeof(mreal));
+               s.sprintf("%12ld", v->nx*v->ny*v->nz*sizeof(mreal));
                it = new QTableWidgetItem(s);
                tab->setItem(n,2,it);   it->setFlags(flags);
                it->setTextAlignment(Qt::AlignRight|Qt::AlignVCenter);

diff --git a/udav/newcmd_dlg.cpp b/udav/newcmd_dlg.cpp
index beb07873cb8d5f3182be6275ef673fd77de9997d..5cb0c3e00d5b7b9d398bde71e57cfd2e7b324922 100644 (file)
--- a/udav/newcmd_dlg.cpp
+++ b/udav/newcmd_dlg.cpp
@@ -26,12 +26,13 @@
 #include <QMessageBox>
 #include <QTextBrowser>
 #include <QToolButton>
-#include <mgl2/parser.h>
+#include <mgl2/mgl.h>
 
 #include "newcmd_dlg.h"
 #include "opt_dlg.h"
 #include "style_dlg.h"
-extern mglParser parser;
+#include "data_dlg.h"
+extern mglParse parser;
 extern QString pathHelp;
 //-----------------------------------------------------------------------------
 NewCmdDialog::NewCmdDialog(QWidget *p) : QDialog(p,Qt::WindowStaysOnTopHint)
@@ -43,6 +44,7 @@ NewCmdDialog::NewCmdDialog(QWidget *p) : QDialog(p,Qt::WindowStaysOnTopHint)
        QVBoxLayout *o = new QVBoxLayout;       m->addLayout(o);
        optDialog = new OptionDialog(this);
        stlDialog = new StyleDialog(this);
+       datDialog = new DataDialog(this);
        type = new QComboBox(this);             o->addWidget(type);
        type->setToolTip(tr("Groups of MGL commands"));
        name = new QComboBox(this);             o->addWidget(name);
@@ -62,6 +64,7 @@ NewCmdDialog::NewCmdDialog(QWidget *p) : QDialog(p,Qt::WindowStaysOnTopHint)
                                                "You can use '' for default format. See help at right\nfor default values."));
        QStringList sl; sl<<tr("Argument")<<tr("Value");
        args->setHorizontalHeaderLabels(sl);
+       connect(args,SIGNAL(cellDoubleClicked(int,int)), this, SLOT(insertData()));
 
        a = new QHBoxLayout;    o->addLayout(a);
        b = new QPushButton(tr("Add style"),this);      a->addWidget(b);
@@ -98,6 +101,7 @@ NewCmdDialog::NewCmdDialog(QWidget *p) : QDialog(p,Qt::WindowStaysOnTopHint)
        connect(name, SIGNAL(currentIndexChanged(int)),this,SLOT(nameChanged(int)));
        connect(kind, SIGNAL(currentIndexChanged(int)),this,SLOT(kindChanged(int)));
        type->setCurrentIndex(0);       typeChanged(0);
+       setWindowTitle(tr("New command"));
 }
 //-----------------------------------------------------------------------------
 void NewCmdDialog::zoomIn()
@@ -146,47 +150,39 @@ void NewCmdDialog::parseCmd(const QString &txt)
        }
 }
 //-----------------------------------------------------------------------------
-void NewCmdDialog::fillList()
+void NewCmdDialog::fillList()  // TODO update list !!!
 {
        types<<tr("1D plots")<<tr("2D plots")<<tr("3D plots")<<tr("Dual plots")
                        <<tr("Vector plots")<<tr("Other plots")<<tr("Text and legend")
-                       <<tr("Create data and I/O")<<tr("Data handling")<<tr("Data extraction")
-                       <<tr("Axis and colorbar")<<tr("General setup")<<tr("Axis setup")
-                       <<tr("Scale and rotate")<<tr("Program flow")<<tr("Nonlinear fitting")
-                       <<tr("Primitives");
-       cmds[0]<<"plot"<<"area"<<"bars"<<"barh"<<"boxplot"<<"chart"<<"error"<<"mark"
-                       <<"region"<<"stem"<<"step"<<"tens"<<"textmark"<<"torus"<<"tube";
-       cmds[1]<<"surf"<<"axial"<<"belt"<<"boxs"<<"cont"<<"contd"<<"contf"<<"dens"
-                       <<"fall"<<"grid2"<<"mesh"<<"tile"<<"grad";
-       cmds[2]<<"surf3"<<"cloud"<<"beam"<<"cont3"<<"conta"<<"contf3"<<"contfa"
-                       <<"dens3"<<"densa"<<"grid3"<<"grida";
-       cmds[3]<<"map"<<"stfa"<<"surfa"<<"surfc"<<"tile"<<"surf3a"<<"surf3c";
-       cmds[4]<<"flow"<<"pipe"<<"traj"<<"vect"<<"vectc"<<"vectl"<<"dew";
-       cmds[5]<<"contx"<<"conty"<<"contz"<<"contfx"<<"contfy"<<"contfz"<<"densx"
-                       <<"densy"<<"densz"<<"triplot"<<"tricont"<<"quadplot"<<"crust"<<"dots";
-       cmds[6]<<"text"<<"title"<<"fgets"<<"legend"<<"addlegend"<<"clearlegend" <<"legendbox";
-       cmds[7]<<"new"<<"var"<<"copy"<<"delete"<<"insert"<<"read"<<"readmat"<<"readall"
-                       <<"readhdf"<<"save"<<"savehdf"<<"export"<<"import"<<"info"<<"idset";
-       cmds[8]<<"fill"<<"fillsample"<<"modify"<<"put"<<"crop"<<"extend"<<"rearrange"<<"squeeze"
-                       <<"transpose"<<"cumsum"<<"diff"<<"diff2"<<"sinfft"<<"cosfft"<<"hankel"
-                       <<"envelop"<<"integrate"<<"mirror"<<"norm"<<"normsl"<<"sew"<<"smooth"
-                       <<"swap"<<"roll"<<"addto"<<"subto"<<"divto"<<"multo";
-       cmds[9]<<"combine"<<"evaluate"<<"max"<<"min"<<"hist"<<"jacobian"<<"momentum"
-                       <<"resize"<<"sum"<<"trace"<<"transform"<<"transforma"<<"stfad"<<"pde"
-                       <<"qo2d"<<"ray";
-       cmds[10]<<"axis"<<"box"<<"colorbar"<<"grid"<<"xlabel"<<"ylabel"<<"zlabel"<<"tlabel";
-       cmds[11]<<"alpha"<<"alphadef"<<"transparent"<<"transptype"<<"ambient"<<"light"
-                       <<"fog"<<"arrowsize"<<"barwidth"<<"linewidth"<<"marksize"<<"plotfactor"
-                       <<"zoom"<<"cut"<<"axialdir"<<"mesgnum"<<"font"<<"palette"<<"rotatetext";
-       cmds[12]<<"axis"<<"ranges"<<"caxis"<<"crange"<<"xrange"<<"yrange"<<"zrange"
-                       <<"origin"<<"ternary"<<"adjust"<<"ctick"<<"xtick"<<"ytick"<<"ztick"
-                       <<"ticklen"<<"tickstl";
-       cmds[13]<<"subplot"<<"inplot"<<"rotate"<<"aspect"<<"columnplot"<<"perspective";
-       cmds[14]<<"call"<<"func"<<"chdir"<<"define"<<"if"<<"elseif"<<"else"<<"endif"<<"for"
-                       <<"next"<<"once"<<"stop"<<"write"<<"setsize";
-       cmds[15]<<"fit"<<"fits"<<"putsfit";
-       cmds[16]<<"fplot"<<"fsurf"<<"ball"<<"cone"<<"curve"<<"drop"<<"facex"<<"facey"
-                       <<"facez"<<"line"<<"rect"<<"sphere";
+                       <<tr("Create data and I/O")<<tr("Data transform")<<tr("Data handling")
+                       <<tr("Axis and colorbar")<<tr("Axis setup")<<tr("General setup")
+                       <<tr("Scale and rotate")<<tr("Program flow")<<tr("Primitives");
+       // now fill it automatically from parser for all categories
+       long i, n = parser.GetCmdNum();
+       for(i=0;i<n;i++)
+       {
+               const char *name = parser.GetCmdName(i);
+               switch(parser.CmdType(name))
+               {
+               case 1: cmds[5]<<name;  break;
+               case 2: cmds[5]<<name;  break;
+               case 3: cmds[12]<<name; break;
+               case 4: cmds[9]<<name;  break;
+               case 5: cmds[7]<<name;  break;
+               case 6: cmds[13]<<name; break;
+               case 7: cmds[14]<<name; break;
+               case 8: cmds[0]<<name;  break;
+               case 9: cmds[1]<<name;  break;
+               case 10:        cmds[2]<<name;  break;
+               case 11:        cmds[3]<<name;  break;
+               case 12:        cmds[4]<<name;  break;
+               case 13:        cmds[10]<<name; break;
+               case 14:        cmds[15]<<name; break;
+               case 15:        cmds[11]<<name; break;
+               case 16:        cmds[6]<<name;  break;
+               case 17:        cmds[8]<<name;  break;
+               }
+       }
 }
 //-----------------------------------------------------------------------------
 void NewCmdDialog::typeChanged(int s)
@@ -218,14 +214,6 @@ void parse(QStringList &sl, const QString &s)
        if(!sp) sl<<s.mid(i1);
 }
 //-----------------------------------------------------------------------------
-mglCommand *getCmd(const QString &cmd)
-{
-       wchar_t *c = new wchar_t[cmd.length()+1];
-       cmd.toWCharArray(c);    c[cmd.length()]=0;
-       mglCommand *rts = parser.FindCommand(c);
-       delete []c;             return rts;
-}
-//-----------------------------------------------------------------------------
 void NewCmdDialog::nameChanged(int s)
 {
        QString n=name->itemText(s), par, a;
@@ -237,11 +225,10 @@ void NewCmdDialog::nameChanged(int s)
        // clear old
        kind->clear();  kinds.clear();  for(k=0;k<NUM_CH;k++)   argn[k].clear();
        // try to find the keyword
-       mglCommand *rts=getCmd(n);
-       if(!rts)        return;
-       info->setText(QString::fromAscii(rts->desc));
+       if(!parser.CmdType(n.toAscii().constData()))    return;
+       info->setText(QString::fromAscii(parser.CmdDesc(n.toAscii().constData())));
 
-       par = QString::fromAscii(rts->form);
+       par = QString::fromAscii(parser.CmdFormat(n.toAscii().constData()));
        int i0 = par.indexOf(' ');      // first space if present
        if(i0<0)        {       kind->addItem(par);     return; }       // no arguments
        // parse kind of arguments
@@ -254,6 +241,7 @@ void NewCmdDialog::nameChanged(int s)
                kinds<<n+" "+a;
                parse(argn[k],a);
        }
+       name->setCurrentIndex(s);
        kind->addItems(kinds);  kind->setCurrentIndex(0);
 }
 //-----------------------------------------------------------------------------
@@ -262,6 +250,9 @@ void NewCmdDialog::kindChanged(int s)
        if(s<0 || s>NUM_CH-1)   return;
        cmd="";
        int nn = argn[s].count();
+       QStringList lst;
+       for(int i=0;i<args->rowCount();i++)
+               lst<<args->item(i,0)->text()+"~ "+args->item(i,1)->text();
 //return;
        args->setRowCount(nn);  args->setColumnCount(2);
        QTableWidgetItem *it;
@@ -278,14 +269,31 @@ void NewCmdDialog::kindChanged(int s)
                args->item(i,0)->setText(a);    args->item(i,0)->setFont(f);
                args->item(i,0)->setFlags(Qt::ItemIsEnabled);
                args->item(i,1)->setFlags(Qt::ItemIsEditable|Qt::ItemIsEnabled);
+               for(int j=0;j<lst.count();j++)
+                       if(lst[j].section('~',0,0)==a)
+                               args->item(i,1)->setText(lst[j].section('~',1).trimmed());
        }
 }
 //-----------------------------------------------------------------------------
-void NewCmdDialog::insertData()        {}      // TODO !!!
-//-----------------------------------------------------------------------------
 void NewCmdDialog::insertOpt()
 {      if(optDialog->exec())   opt->setText(optDialog->getOption());   }
 //-----------------------------------------------------------------------------
+void NewCmdDialog::insertData()
+{
+       int row = args->currentRow();
+       if(row<0)
+       {
+               QMessageBox::warning(this,tr("New command"), tr("No argument is selected"));
+               return;
+       }
+       QString a = args->item(row,0)->text();
+       if(a[0].isUpper())
+       {
+               if(datDialog->exec())   args->item(row,1)->setText(datDialog->getData());
+       }
+       else            QMessageBox::warning(this,tr("New command"), tr("This argument is not data"));
+}
+//-----------------------------------------------------------------------------
 void NewCmdDialog::insertStl()
 {
        int s=kind->currentIndex();

diff --git a/udav/newcmd_dlg.h b/udav/newcmd_dlg.h
index d9608831512bb2b75cd1b4c3817841c732ada343..c8080e147d0aa813f398b6582b07be7b0fb79bd0 100644 (file)
--- a/udav/newcmd_dlg.h
+++ b/udav/newcmd_dlg.h
@@ -30,6 +30,7 @@ class QTableWidget;
 class QTextBrowser;
 class OptionDialog;
 class StyleDialog;
+class DataDialog;
 //-----------------------------------------------------------------------------
 class NewCmdDialog : public QDialog
 {
@@ -65,6 +66,7 @@ private:
        QStringList types, cmds[17], argn[NUM_CH], kinds;
        OptionDialog *optDialog;
        StyleDialog *stlDialog;
+       DataDialog *datDialog;
 
        void fillList();
 };

diff --git a/udav/open_dlg.cpp b/udav/open_dlg.cpp
index 7248ea71d8c0c3395f7e7d355795b14989276c15..8552f5f06e7fe88bb2e15b0fe7cc8c3f0c38bc04 100644 (file)
--- a/udav/open_dlg.cpp
+++ b/udav/open_dlg.cpp
@@ -26,10 +26,10 @@
 #include <QFileDialog>
 #include <QTextStream>
 #include <QRadioButton>
-#include <mgl2/parser.h>
+#include <mgl2/mgl.h>
 #include "open_dlg.h"
 int numDataOpened=0;
-extern mglParser parser;
+extern mglParse parser;
 QStringList dataScr;
 //-----------------------------------------------------------------------------
 QWidget *createDataOpenDlg(QWidget *p) {       return new DataOpenDialog(p);   }
@@ -115,35 +115,35 @@ void DataOpenDialog::prepareResult()
        code = "";      numDataOpened++;        data = name->text();
        // prepare unique value of name for next time
        char buf[32];   sprintf(buf,"mgl_%d",numDataOpened);    name->setText(buf);
-       mglVar *v = parser.AddVar(data.toAscii());
+       mglVar *v = parser.AddVar(data.toAscii().constData());
        bool dd=0;
        if(rA->isChecked())     //      auto sizes
        {
-               setlocale(LC_NUMERIC, "C");     v->d.Read(file.toAscii().constData());  setlocale(LC_NUMERIC, "");
-               if(v->d.nx==1)  {       v->d.nx = v->d.ny;      v->d.ny = v->d.nz;      }
+               setlocale(LC_NUMERIC, "C");     v->Read(file.toAscii().constData());    setlocale(LC_NUMERIC, "");
+               if(v->nx==1)    {       v->nx = v->ny;  v->ny = v->nz;  }
                code=QString("#read %1 '%2'\n").arg(data).arg(file);
        }
        else if(rM->isChecked())        //      manual sizes
        {
                int x=nx->text().toInt(), y=ny->text().toInt(), z=nz->text().toInt();
-               setlocale(LC_NUMERIC, "C");     v->d.Read(file.toAscii().constData(),x,y,z);    setlocale(LC_NUMERIC, "");
+               setlocale(LC_NUMERIC, "C");     v->Read(file.toAscii().constData(),x,y,z);      setlocale(LC_NUMERIC, "");
                code=QString("#read %1 '%2' %3 %4 %5\n").arg(data).arg(file).arg(x).arg(y).arg(z);
        }
        else if(r2->isChecked())        //      matrix
        {
-               setlocale(LC_NUMERIC, "C");     v->d.ReadMat(file.toAscii().constData());       setlocale(LC_NUMERIC, "");
+               setlocale(LC_NUMERIC, "C");     v->ReadMat(file.toAscii().constData()); setlocale(LC_NUMERIC, "");
                code=QString("#readmat %1 '%2'\n").arg(data).arg(file);         dd=1;
        }
        else if(r3->isChecked())        //      3d-data
        {
-               setlocale(LC_NUMERIC, "C");     v->d.ReadMat(file.toAscii().constData(),3);     setlocale(LC_NUMERIC, "");
+               setlocale(LC_NUMERIC, "C");     v->ReadMat(file.toAscii().constData(),3);       setlocale(LC_NUMERIC, "");
                code=QString("#readmat %1 '%2' 3\n").arg(data).arg(file);       dd=2;
        }
        if(scr->lineEdit()->text().isEmpty() || scr->lineEdit()->text()==tr("default"))
        {
-               if(v->d.nz>1 || dd==2)
+               if(v->nz>1 || dd==2)
                        code+=QString("rotate 40 60\ncrange %1:box\nsurf3 %1\n").arg(data);
-               else if(v->d.ny>1 || dd==1)
+               else if(v->ny>1 || dd==1)
                        code+=QString("rotate 40 60\ncrange %1:zrange %1:box\nsurf %1\n").arg(data);
                else    code+=QString("yrange %1:box\nplot %1\n").arg(data);
        }

diff --git a/udav/opt_dlg.cpp b/udav/opt_dlg.cpp
index 2ca30a6266619fe6463f52a5c15bb0564e6d36d0..32a2e7a679f441da7dba9f18da370b999bccaee2 100644 (file)
--- a/udav/opt_dlg.cpp
+++ b/udav/opt_dlg.cpp
@@ -46,18 +46,29 @@ OptionDialog::OptionDialog(QWidget *parent) : QDialog(parent)
        lbl = new QLabel(tr("C-range"),this);   g->addWidget(lbl,1,3);
        c1 = new QLineEdit(this);       g->addWidget(c1,1,4);
        c2 = new QLineEdit(this);       g->addWidget(c2,1,5);
-       g = new QGridLayout();          o->addLayout(g);
-       lbl = new QLabel(tr("Alpha"),this);             g->addWidget(lbl,0,0);
-       alpha = new QLineEdit(this);    g->addWidget(alpha,1,0);
-       lbl = new QLabel(tr("Ambient"),this);   g->addWidget(lbl,0,1);
-       amb = new QLineEdit(this);              g->addWidget(amb,1,1);
-       lbl = new QLabel(tr("Mesh num"),this);  g->addWidget(lbl,0,2);
-       mn = new QLineEdit(this);               g->addWidget(mn,1,2);
-       lbl = new QLabel(tr("Font size"),this); g->addWidget(lbl,0,3);
-       fs = new QLineEdit(this);               g->addWidget(fs,1,3);
-       lbl = new QLabel(tr("Cutting"),this);   g->addWidget(lbl,0,4);
-       cut = new QComboBox(this);              g->addWidget(cut,1,4);
-       cut->insertItem(0,tr("on"));    cut->insertItem(1,tr("off"));
+
+       lbl = new QLabel(tr("Alpha"),this);             g->addWidget(lbl,2,0);
+       alpha = new QLineEdit(this);    g->addWidget(alpha,2,1);
+       lbl = new QLabel(tr("Mesh num"),this);  g->addWidget(lbl,2,3);
+       mn = new QLineEdit(this);               g->addWidget(mn,2,4);
+
+       lbl = new QLabel(tr("Ambient"),this);   g->addWidget(lbl,3,0);
+       amb = new QLineEdit(this);              g->addWidget(amb,3,1);
+       lbl = new QLabel(tr("Diffuse"),this);   g->addWidget(lbl,3,3);
+       dif = new QLineEdit(this);              g->addWidget(dif,3,4);
+
+       lbl = new QLabel(tr("Cutting"),this);   g->addWidget(lbl,4,0);
+       cut = new QComboBox(this);              g->addWidget(cut,4,1);
+       cut->insertItem(0,tr("default"));       cut->insertItem(1,tr("on"));    cut->insertItem(2,tr("off"));
+       lbl = new QLabel(tr("Light"),this);     g->addWidget(lbl,4,3);
+       lig = new QComboBox(this);              g->addWidget(lig,4,4);
+       lig->insertItem(0,tr("default"));       lig->insertItem(1,tr("on"));    lig->insertItem(2,tr("off"));
+       
+       lbl = new QLabel(tr("Value"),this);     g->addWidget(lbl,5,0);
+       val = new QLineEdit(this);              g->addWidget(val,5,1);
+       lbl = new QLabel(tr("Size"),this);      g->addWidget(lbl,5,3);
+       fs = new QLineEdit(this);               g->addWidget(fs,5,4);
+       
        a = new QHBoxLayout();  o->addLayout(a);
        lbl = new QLabel(tr("Legend"),this);    a->addWidget(lbl);
        leg = new QLineEdit(this);      a->addWidget(leg);
@@ -103,12 +114,16 @@ void OptionDialog::prepareResult()
                QMessageBox::warning(this,tr("UDAV - command options"), tr("Both fields in crange must be filled"));
                return;
        }
-       if(!alpha->text().isEmpty())    result = result+"; alpha "+alpha->text();
+       if(!val->text().isEmpty())      result = result+"; value "+val->text();
+       if(!alpha->text().isEmpty())result = result+"; alpha "+alpha->text();
        if(!amb->text().isEmpty())      result = result+"; ambient "+amb->text();
+       if(!dif->text().isEmpty())      result = result+"; diffuse "+dif->text();
        if(!mn->text().isEmpty())       result = result+"; meshnum "+mn->text();
-       if(!fs->text().isEmpty())       result = result+"; fontsize "+fs->text();
-       if(cut->currentIndex()==0)      result = result+"; cut on";
-       if(cut->currentIndex()==1)      result = result+"; cut off";
+       if(!fs->text().isEmpty())       result = result+"; size "+fs->text();
+       if(cut->currentIndex()==1)      result = result+"; cut on";
+       if(cut->currentIndex()==2)      result = result+"; cut off";
+       if(lig->currentIndex()==1)      result = result+"; light on";
+       if(lig->currentIndex()==2)      result = result+"; light off";
        if(!leg->text().isEmpty())      result = result+"; legend '"+leg->text()+"'";
        accept();
 }

diff --git a/udav/opt_dlg.h b/udav/opt_dlg.h
index f992649c697996a3008e57d0178c429ec289a427..2e2595295219eafa40afb68191faf5699ffb3c42 100644 (file)
--- a/udav/opt_dlg.h
+++ b/udav/opt_dlg.h
@@ -39,8 +39,8 @@ private slots:
 private:
        QString result;
        QLineEdit *x1, *x2, *y1, *y2, *z1, *z2, *c1, *c2;
-       QLineEdit *alpha, *amb, *mn, *fs, *leg;
-       QComboBox *cut;
+       QLineEdit *alpha, *amb, *dif, *val, *mn, *fs, *leg;
+       QComboBox *cut, *lig;
 };
 //-----------------------------------------------------------------------------
 #endif

diff --git a/udav/plot_pnl.cpp b/udav/plot_pnl.cpp
index c6a9da42f1136fd6e3d5a2181d455f574dcf25d2..4f43e02905bdc934a7308ed4c3481cf5a77095a8 100644 (file)
--- a/udav/plot_pnl.cpp
+++ b/udav/plot_pnl.cpp
@@ -33,12 +33,13 @@
 #include <QTextEdit>
 
 #include <QMdiArea>
-#include <mgl2/parser.h>
-#include "mgl2/qt.h"
+#include "mgl2/qmathgl.h"
 #include "plot_pnl.h"
 #include "anim_dlg.h"
+#include "style_dlg.h"
 extern bool mglAutoSave;
-extern mglParser parser;
+extern bool mglHighlight;
+extern mglParse parser;
 int animDelay=500;
 void raisePanel(QWidget *w);
 //-----------------------------------------------------------------------------
@@ -46,16 +47,18 @@ PlotPanel::PlotPanel(QWidget *parent) : QWidget(parent)
 {
        gifOn = jpgOn = false;
        animDialog = new AnimParam(this);       animPos = -1;
+       stlDialog = new StyleDialog(this);
        printer = new QPrinter;         curPos = -1;
        timer = new QTimer(this);
        connect(timer, SIGNAL(timeout()), this, SLOT(next()));
        connect(animDialog, SIGNAL(putText(const QString &)), this, SLOT(animText(const QString &)));
 
-       menu = new QMenu(tr("&Graphics"),this);
+       menu = new QMenu(tr("Graphics"),this);
        popup = new QMenu(this);
        mgl = new QMathGL(this);
-       draw = new mglDrawScript(&parser);
-       mgl->setDraw(draw);
+       draw = new mglDrawScript(parser.Self());
+       mgl->getGraph()->set(MGL_SHOW_POS);     mgl->setDraw(draw);
+       connect(mgl,SIGNAL(askStyle(int)),this,SLOT(setStyle(int)));
 
        QBoxLayout *v,*h,*m;
        v = new QVBoxLayout(this);
@@ -70,11 +73,18 @@ PlotPanel::PlotPanel(QWidget *parent) : QWidget(parent)
 //-----------------------------------------------------------------------------
 PlotPanel::~PlotPanel()        {       delete printer; }
 //-----------------------------------------------------------------------------
-void PlotPanel::animText(const QString &txt)   {       animPutText(txt);       }
+void PlotPanel::setStyle(int id)
+{      if(stlDialog->exec())   mgl->setStyle(id, stlDialog->getStyle());       }
 //-----------------------------------------------------------------------------
-void PlotPanel::setCurPos(int pos)     {       curPos = pos;   execute();      }
+void PlotPanel::animText(const QString &txt)           {       animPutText(txt);       }
 //-----------------------------------------------------------------------------
-void PlotPanel::stop() {       parser.Stop = true;     mgl->stop();    }
+void PlotPanel::setCurPos(int pos)
+{
+       if(!mglHighlight)       pos = -1;
+       if(curPos!=pos) {       curPos = pos;   execute();      }
+}
+//-----------------------------------------------------------------------------
+void PlotPanel::stop() {       parser.Stop();  mgl->stop();    }
 //-----------------------------------------------------------------------------
 void PlotPanel::execute()
 {
@@ -82,8 +92,10 @@ void PlotPanel::execute()
        raisePanel(this);
        emit clearWarn();
        QTime t;        t.start();
+       mgl->getGraph()->FaceNum=0;
        draw->text=textMGL->toPlainText();
-       draw->line=curPos;      mgl->update();
+       draw->line=curPos;
+       mgl->update();
        setStatus(QString(tr("Drawing time %1 ms")).arg(t.elapsed()*1e-3));
        emit giveFocus();
 }
@@ -245,6 +257,13 @@ void PlotPanel::animParseText(const QString &txt)
 }
 //-----------------------------------------------------------------------------
 #include "xpm/wire.xpm"
+#include "xpm/text.xpm"
+#include "xpm/line.xpm"
+#include "xpm/curve.xpm"
+#include "xpm/mark_o.xpm"
+#include "xpm/mark_s.xpm"
+#include "xpm/mark_a.xpm"
+#include "xpm/mark_d.xpm"
 //-----------------------------------------------------------------------------
 void PlotPanel::toolTop(QBoxLayout *l)
 {
@@ -253,7 +272,7 @@ void PlotPanel::toolTop(QBoxLayout *l)
        QToolButton *bb;
 
        // graphics menu
-       a = new QAction(QPixmap(":/xpm/alpha.png"), tr("&Alpha"), this);
+       a = new QAction(QPixmap(":/xpm/alpha.png"), tr("Alpha"), this);
        a->setShortcut(Qt::CTRL+Qt::Key_T);     a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), mgl, SLOT(setAlpha(bool)));
        connect(mgl, SIGNAL(alphaChanged(bool)), a, SLOT(setOn(bool)));
@@ -261,7 +280,7 @@ void PlotPanel::toolTop(QBoxLayout *l)
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/weather-clear.png"), tr("&Light"), this);
+       a = new QAction(QPixmap(":/xpm/weather-clear.png"), tr("Light"), this);
        a->setShortcut(Qt::CTRL+Qt::Key_L);     a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), mgl, SLOT(setLight(bool)));
        connect(mgl, SIGNAL(lightChanged(bool)), a, SLOT(setOn(bool)));
@@ -269,21 +288,21 @@ void PlotPanel::toolTop(QBoxLayout *l)
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(wire_xpm), tr("&Grid"), this);
+       a = new QAction(QPixmap(wire_xpm), tr("Grid"), this);
        a->setShortcut(Qt::CTRL+Qt::Key_G);     a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), mgl, SLOT(setGrid(bool)));
-       a->setToolTip(tr("Switch on/off grid drawing for absolute coordinates (Ctrl+G)."));
+       a->setToolTip(tr("Switch on/off grid of absolute coordinates (Ctrl+G)."));
        o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/object-rotate-right.png"), tr("&Rotate by mouse"), this);
+       a = new QAction(QPixmap(":/xpm/object-rotate-right.png"), tr("Rotate by mouse"), this);
        a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), mgl, SLOT(setRotate(bool)));
        connect(mgl, SIGNAL(rotateChanged(bool)), a, SLOT(setOn(bool)));
        a->setToolTip(tr("Switch on/off mouse handling of the graphics\n(rotation, shifting, zooming and perspective)."));
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-/*     a = new QAction(QPixmap(":/xpm/zoom-fit-best.png"), tr("&Zoom by mouse"), this);
+/*     a = new QAction(QPixmap(":/xpm/zoom-fit-best.png"), tr("Zoom by mouse"), this);
        a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), mgl, SLOT(setZoom(bool)));
        connect(mgl, SIGNAL(zoomChanged(bool)), a, SLOT(setOn(bool)));
@@ -291,82 +310,124 @@ void PlotPanel::toolTop(QBoxLayout *l)
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);*/
 
        o->addSeparator();
-       a = new QAction(QPixmap(":/xpm/zoom-original.png"), tr("Res&tore"), this);
+       a = new QAction(QPixmap(":/xpm/zoom-original.png"), tr("Restore"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(restore()));
        a->setToolTip(tr("Restore default graphics rotation, zoom and perspective (Ctrl+Space)."));
        a->setShortcut(Qt::CTRL+Qt::Key_Space);
        o->addAction(a);        popup->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/view-refresh.png"), tr("Re&draw"), this);
+       a = new QAction(QPixmap(":/xpm/view-refresh.png"), tr("Redraw"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(execute()));
        a->setToolTip(tr("Execute script and redraw graphics (F5)."));
        a->setShortcut(Qt::Key_F5);
        o->addAction(a);        popup->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(tr("&Adjust size"), this);
+       a = new QAction(tr("Adjust size"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(adjust()));
        a->setToolTip(tr("Change canvas size to fill whole region (F6)."));
        a->setShortcut(Qt::Key_F6);             o->addAction(a);
 
-       a = new QAction(tr("Re&load"), this);
+       a = new QAction(tr("Reload"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(pressF9()));
        a->setToolTip(tr("Restore status for 'once' command and reload data (F9)."));
        a->setShortcut(Qt::Key_F9);     o->addAction(a);        popup->addAction(a);
 
-       a = new QAction(QPixmap(":/xpm/process-stop.png"), tr("&Stop"), this);
+       a = new QAction(QPixmap(":/xpm/process-stop.png"), tr("Stop"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(stop()));
        a->setToolTip(tr("Stop script execution (F7)."));
        a->setShortcut(Qt::Key_F7);     o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("&Copy plot"), this);
+       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("Copy plot"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(copy()));
-       a->setToolTip(tr("Copy graphics to clipboard (Ctrl+Shift+C)."));
-       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_C);
+       a->setToolTip(tr("Copy graphics to clipboard (Ctrl+Shift+G)."));
+       a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_G);
        o->addAction(a);        popup->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("&Copy click coor."), this);
+       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("Copy click coor."), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(copyClickCoor()));
        a->setToolTip(tr("Copy coordinates of last mouse click to clipboard."));
        o->addAction(a);        popup->addAction(a);
 
        l->addStretch(1);
+       oo = new QMenu(tr("Primitives ..."),this);
+       a = new QAction(QPixmap(line_xpm), tr("Add line"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addLine()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add line which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+
+       a = new QAction(QPixmap(curve_xpm), tr("Add curve"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addCurve()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add curve which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       a = new QAction(QPixmap(mark_s_xpm), tr("Add rect"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addRect()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add rectangle which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       a = new QAction(QPixmap(mark_d_xpm), tr("Add rhombus"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addRhomb()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add rhombus which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       a = new QAction(QPixmap(mark_o_xpm), tr("Add ellipse"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addEllipse()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add ellipse which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       a = new QAction(QPixmap(mark_a_xpm), tr("Add mark"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addMark()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add marker which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       a = new QAction(QPixmap(text_xpm), tr("Add text"), this);
+       connect(a, SIGNAL(triggered()), mgl, SLOT(addText()));
+       connect(mgl, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+       a->setToolTip(tr("Add text which properties can be changed later by mouse."));
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);        oo->addAction(a);
+       
+       o->addMenu(oo); l->addStretch(1);
 
        tet = new QSpinBox(this);       tet->setWrapping(true);
        l->addWidget(tet);      tet->setRange(-180, 180);       tet->setSingleStep(10);
        connect(tet, SIGNAL(valueChanged(int)), mgl, SLOT(setTet(int)));
        connect(mgl, SIGNAL(tetChanged(int)), tet, SLOT(setValue(int)));
        tet->setToolTip(tr("Set value of \\theta angle.\nYou can use keys (Shift+Meta+Up or Shift+Meta+Down)."));
-       a = new QAction(this);  a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Up);
-       connect(a, SIGNAL(triggered()), tet, SLOT(stepUp()));
-       a = new QAction(this);  a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Down);
-       connect(a, SIGNAL(triggered()), tet, SLOT(stepDown()));
 
        phi = new QSpinBox(this);       phi->setWrapping(true);
        l->addWidget(phi);      phi->setRange(-180, 180);       phi->setSingleStep(10);
        connect(phi, SIGNAL(valueChanged(int)), mgl, SLOT(setPhi(int)));
        connect(mgl, SIGNAL(phiChanged(int)), phi, SLOT(setValue(int)));
        phi->setToolTip(tr("Set value of \\phi angle.\nYou can use keys (Shift+Meta+Left or Shift+Meta+Right)."));
-       a = new QAction(this);  a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Right);
-       connect(a, SIGNAL(triggered()), phi, SLOT(stepUp()));
-       a = new QAction(this);  a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Left);
-       connect(a, SIGNAL(triggered()), phi, SLOT(stepDown()));
-
-       oo = new QMenu(tr("&Export as ..."),this);
-       oo->addAction(tr("PNG"), mgl, SLOT(exportPNG()),Qt::META+Qt::Key_P);
-       oo->addAction(tr("solid PNG"), mgl, SLOT(exportPNGs()),Qt::META+Qt::Key_F);
-       oo->addAction(tr("JPEG"), mgl, SLOT(exportJPG()),Qt::META+Qt::Key_J);
-       oo->addAction(tr("GIF"), mgl, SLOT(exportGIF()),Qt::META+Qt::Key_G);
+
+       oo = new QMenu(tr("Export as 2D ..."),this);
+       oo->addAction(tr("PNG"), mgl, SLOT(exportPNG()),Qt::ALT+Qt::Key_P);
+       oo->addAction(tr("solid PNG"), mgl, SLOT(exportPNGs()),Qt::ALT+Qt::Key_F);
+       oo->addAction(tr("JPEG"), mgl, SLOT(exportJPG()),Qt::ALT+Qt::Key_J);
        oo->addAction(tr("bitmap EPS"), mgl, SLOT(exportBPS()));
-       oo->addAction(tr("vector EPS"), mgl, SLOT(exportEPS()),Qt::META+Qt::Key_E);
-       oo->addAction(tr("SVG"), mgl, SLOT(exportSVG()),Qt::META+Qt::Key_S);
+       oo->addAction(tr("vector EPS"), mgl, SLOT(exportEPS()),Qt::ALT+Qt::Key_E);
+       oo->addAction(tr("SVG"), mgl, SLOT(exportSVG()),Qt::ALT+Qt::Key_S);
+       oo->addAction(tr("LaTeX"), mgl, SLOT(exportTEX()),Qt::ALT+Qt::Key_L);
 //     oo->addAction(tr("C++"), mgl, SLOT(exportCPP()));       // TODO: Add later
-//     oo->addAction(tr("IDTF"), mgl, SLOT(exportIDTF()));
-       o->addMenu(oo);
-       popup->addMenu(oo);
+       o->addMenu(oo);         popup->addMenu(oo);
+       oo = new QMenu(tr("Export as 3D ..."),this);
+       oo->addAction(tr("MGLD"), mgl, SLOT(exportMGLD()),Qt::ALT+Qt::Key_M);
+       oo->addAction(tr("PRC"), mgl, SLOT(exportPRC()),Qt::ALT+Qt::Key_D);
+       oo->addAction(tr("OBJ"), mgl, SLOT(exportOBJ()),Qt::ALT+Qt::Key_O);
+       oo->addAction(tr("STL"), mgl, SLOT(exportSTL()));
+       oo->addAction(tr("XYZ"), mgl, SLOT(exportXYZ()));
+//     oo->addAction(tr("X3D"), QMGL, SLOT(exportX3D()),Qt::ALT+Qt::Key_X);    // TODO: Add later
+       o->addMenu(oo);         popup->addMenu(oo);
 }
 //-----------------------------------------------------------------------------
 void PlotPanel::toolLeft(QBoxLayout *l)
@@ -376,85 +437,89 @@ void PlotPanel::toolLeft(QBoxLayout *l)
        QToolButton *bb;
 
        // zooming menu
-/*     oo = o->addMenu(tr("Zoom/move"));
-       a = new QAction(QPixmap(":/xpm/go-previous.png"), tr("Move &left"), this);
+       oo = o->addMenu(tr("Zoom/move"));
+       a = new QAction(QPixmap(":/xpm/go-previous.png"), tr("Move left"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(shiftLeft()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Left);
+       a->setShortcut(Qt::ALT+Qt::Key_Left);
        a->setToolTip(tr("Move graphics left by 1/3 of its width."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/go-up.png"), tr("Move &up"), this);
+       a = new QAction(QPixmap(":/xpm/go-up.png"), tr("Move up"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(shiftUp()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Up);
+       a->setShortcut(Qt::ALT+Qt::Key_Up);
        a->setToolTip(tr("Move graphics up by 1/3 of its height."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/zoom-in.png"), tr("Zoom &in"), this);
+       a = new QAction(QPixmap(":/xpm/zoom-in.png"), tr("Zoom in"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(zoomIn()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Equal);
+       a->setShortcut(Qt::ALT+Qt::Key_Equal);
        a->setToolTip(tr("Zoom in graphics."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/zoom-out.png"), tr("Zoom &out"), this);
+       a = new QAction(QPixmap(":/xpm/zoom-out.png"), tr("Zoom out"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(zoomOut()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Minus);
+       a->setShortcut(Qt::ALT+Qt::Key_Minus);
        a->setToolTip(tr("Zoom out graphics."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/go-down.png"), tr("Move &down"), this);
+       a = new QAction(QPixmap(":/xpm/go-down.png"), tr("Move down"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(shiftDown()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Down);
+       a->setShortcut(Qt::ALT+Qt::Key_Down);
        a->setToolTip(tr("Move graphics up down 1/3 of its height."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/go-next.png"), tr("Move &right"), this);
+       a = new QAction(QPixmap(":/xpm/go-next.png"), tr("Move right"), this);
        connect(a, SIGNAL(triggered()), mgl, SLOT(shiftRight()));
-       a->setShortcut(Qt::CTRL+Qt::META+Qt::Key_Right);
+       a->setShortcut(Qt::ALT+Qt::Key_Right);
        a->setToolTip(tr("Move graphics right by 1/3 of its width."));
        oo->addAction(a);
-       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);*/
+       bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
        // rotate menu
        oo = o->addMenu(tr("Rotate"));
-       a = new QAction(tr("Rotate up"), this); a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Up);
+       a = new QAction(tr("Rotate up"), this);
+       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Up);
        connect(a, SIGNAL(triggered()), tet, SLOT(stepUp()));   oo->addAction(a);
        a->setToolTip(tr("Increase \\theta angle by 10 degrees."));
-       a = new QAction(tr("Rotate down"), this);       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Down);
+       a = new QAction(tr("Rotate down"), this);
+       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Down);
        connect(a, SIGNAL(triggered()), tet, SLOT(stepDown())); oo->addAction(a);
        a->setToolTip(tr("Decrease \\theta angle by 10 degrees."));
-       a = new QAction(tr("Rotate left"), this);       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Right);
+       a = new QAction(tr("Rotate left"), this);
+       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Right);
        connect(a, SIGNAL(triggered()), phi, SLOT(stepUp()));   oo->addAction(a);
        a->setToolTip(tr("Increase \\phi angle by 10 degrees."));
-       a = new QAction(tr("Rotate right"), this);      a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Left);
+       a = new QAction(tr("Rotate right"), this);
+       a->setShortcut(Qt::SHIFT+Qt::META+Qt::Key_Left);
        connect(a, SIGNAL(triggered()), phi, SLOT(stepDown())); oo->addAction(a);
        a->setToolTip(tr("Decrease \\phi angle by 10 degrees."));
 
        // animation menu
-       oo = o->addMenu(tr("&Animation"));
-       a = new QAction(QPixmap(":/xpm/media-seek-forward.png"), tr("&Next slide"), this);
+       oo = o->addMenu(tr("Animation"));
+       a = new QAction(QPixmap(":/xpm/media-seek-forward.png"), tr("Next slide"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(nextSlide()));
-       a->setToolTip(tr("Show next slide (Meta+Right)."));
-       a->setShortcut(Qt::META+Qt::Key_Right); oo->addAction(a);
+       a->setShortcut(Qt::CTRL+Qt::Key_Period);
+       a->setToolTip(tr("Show next slide (Ctrl+.).")); oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/media-seek-backward.png"), tr("&Prev slide"), this);
+       a = new QAction(QPixmap(":/xpm/media-seek-backward.png"), tr("Prev slide"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(prevSlide()));
-       a->setToolTip(tr("Show previous slide (Meta+Left)."));
-       a->setShortcut(Qt::META+Qt::Key_Left);  oo->addAction(a);
+       a->setShortcut(Qt::CTRL+Qt::Key_Comma);
+       a->setToolTip(tr("Show previous slide (Ctrl+,)."));     oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/film-b.png"), tr("&Slideshow"), this);
+       a = new QAction(QPixmap(":/xpm/film-b.png"), tr("Slideshow"), this);
        a->setCheckable(true);
        connect(a, SIGNAL(toggled(bool)), this, SLOT(animStart(bool)));
        connect(this, SIGNAL(animSwitch(bool)),a,SLOT(setChecked(bool)));
        a->setToolTip(tr("Run slideshow (Ctrl+F5). If no parameter specified\nthen the dialog with slideshow options will appear."));
        a->setShortcut(Qt::CTRL+Qt::Key_F5);    oo->addAction(a);
-       oo->addAction(tr("Se&tup show"), this, SLOT(animSetup()), Qt::CTRL+Qt::Key_W);
+       oo->addAction(tr("Setup show"), this, SLOT(animSetup()), Qt::CTRL+Qt::Key_W);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
        l->addStretch(1);

diff --git a/udav/plot_pnl.h b/udav/plot_pnl.h
index 5aae87017bfdbbf62fac25aa30be5e127e7f4900..dc0479841fc7228e8fd7ff24d0cea449f17fdec3 100644 (file)
--- a/udav/plot_pnl.h
+++ b/udav/plot_pnl.h
@@ -35,6 +35,7 @@ class InfoDialog;
 class AnimParam;
 class DatPanel;
 class mglVar;
+class StyleDialog;
 //-----------------------------------------------------------------------------
 class PlotPanel : public QWidget
 {
@@ -72,6 +73,7 @@ private slots:
        void adjust();
        void pressF9();
        void stop();
+       void setStyle(int id);
 
 private:
        bool gifOn, jpgOn;
@@ -85,7 +87,8 @@ private:
        AnimParam *animDialog;
        QMenu *popup;
        QPrinter *printer;
-
+       StyleDialog *stlDialog;
+       
        void toolTop(QBoxLayout *l);
        void toolLeft(QBoxLayout *l);
 };

diff --git a/udav/prop_dlg.cpp b/udav/prop_dlg.cpp
index 37e1921d510e30eeca24bdc16f52a31175c7808a..18dc1510cc5fb6fe68d49610e104f8bd4f6d735c 100644 (file)
--- a/udav/prop_dlg.cpp
+++ b/udav/prop_dlg.cpp
@@ -37,7 +37,7 @@
 #include "plot_pnl.h"\r
 #include "text_pnl.h"\r
 //-----------------------------------------------------------------------------\r
-extern QColor mglColorScheme[9];\r
+extern QColor mglColorScheme[10];\r
 extern QString defFontFamily;\r
 extern int defFontSize;\r
 extern QString pathHelp;\r
@@ -47,6 +47,7 @@ extern bool mglAutoPure;
 extern bool mglCompleter;\r
 extern bool editPosBottom;\r
 extern bool loadInNewWnd;\r
+extern bool mglHighlight;\r
 int defWidth, defHeight;\r
 QString pathFont;\r
 QString lang[]={"","ru"};\r
@@ -71,7 +72,7 @@ PropDialog::PropDialog(QWidget *parent) : QDialog(parent)
        cc[2]=mglColorScheme[2];        cc[3]=mglColorScheme[3];\r
        cc[4]=mglColorScheme[4];        cc[5]=mglColorScheme[5];\r
        cc[6]=mglColorScheme[6];        cc[7]=mglColorScheme[7];\r
-       cc[8]=mglColorScheme[8];//      cc[5]=mglColorScheme[5];\r
+       cc[8]=mglColorScheme[8];        cc[9]=mglColorScheme[9];\r
        QPixmap pic(16,16);\r
        l = new QLabel(tr("Setup colors for:"), this);  v->addWidget(l, Qt::AlignHCenter);\r
        QGridLayout *g = new QGridLayout();             v->addLayout(g);\r
@@ -99,7 +100,10 @@ PropDialog::PropDialog(QWidget *parent) : QDialog(parent)
        pic.fill(cc[7]);        cb[7] = new QPushButton(pic, tr("FlowKey"), this);\r
        connect(cb[7], SIGNAL(clicked()),this, SLOT(setC7()));\r
        g->addWidget(cb[7], 2, 1);\r
-\r
+       pic.fill(cc[9]);        cb[9] = new QPushButton(pic, tr("CurrLine"), this);\r
+       connect(cb[9], SIGNAL(clicked()),this, SLOT(setC9()));\r
+       g->addWidget(cb[9], 2, 2);\r
+       \r
        l = new QLabel(tr("Path for help files"), this);        v->addWidget(l);\r
        h = new QHBoxLayout();          v->addLayout(h);\r
        hlp = new QLineEdit(pathHelp, this);    h->addWidget(hlp,1);\r
@@ -157,10 +161,12 @@ PropDialog::PropDialog(QWidget *parent) : QDialog(parent)
        save = new QCheckBox(tr("Automatically save before redrawing (F5)"), this);\r
        save->setChecked(mglAutoSave);  v->addWidget(save);\r
        pure = new QCheckBox(tr("Disable face drawing (faster) for mouse rotation/shift/zoom."), this);\r
-       pure->setChecked(mglAutoPure);  v->addWidget(pure);\r
+       pure->setChecked(mglAutoPure);  v->addWidget(pure);     pure->setEnabled(false);\r
        cmpl = new QCheckBox(tr("Enable keywords completition"), this);\r
        cmpl->setChecked(mglCompleter); v->addWidget(cmpl);\r
-\r
+       high = new QCheckBox(tr("Highlight current object(s)"), this);\r
+       high->setChecked(mglHighlight); v->addWidget(high);\r
+       \r
        h = new QHBoxLayout();          v->addLayout(h);\r
        h->addStretch(1);\r
        b = new QPushButton(tr("Cancel"), this);        h->addWidget(b);\r
@@ -189,7 +195,7 @@ void PropDialog::getPathF()
 //-----------------------------------------------------------------------------\r
 void PropDialog::setC(int k)\r
 {\r
-       if(k<0 || k>8)  return;\r
+       if(k<0 || k>9)  return;\r
        QColor c = QColorDialog::getColor(cc[k], this);\r
        if(c.isValid())\r
        {\r
@@ -211,6 +217,8 @@ void PropDialog::applyChanges()
        mglColorScheme[0]=cc[0];        mglColorScheme[1]=cc[1];\r
        mglColorScheme[2]=cc[2];        mglColorScheme[3]=cc[3];\r
        mglColorScheme[4]=cc[4];        mglColorScheme[5]=cc[5];\r
+       mglColorScheme[6]=cc[6];        mglColorScheme[7]=cc[7];\r
+       mglColorScheme[8]=cc[8];        mglColorScheme[9]=cc[9];\r
        mglAutoExecute = run->isChecked();\r
        editPosBottom = edt->isChecked();\r
        pathHelp = hlp->text(); pathFont = fnt->lineEdit()->text();\r
@@ -219,6 +227,7 @@ void PropDialog::applyChanges()
        defFontSize = defFont.pointSize();\r
        loadInNewWnd = load->isChecked();\r
        mglAutoSave = save->isChecked();\r
+       mglHighlight = high->isChecked();\r
        mglAutoPure = pure->isChecked();\r
        mglCompleter = cmpl->isChecked();\r
 \r
@@ -263,6 +272,6 @@ void PropDialog::applyChanges()
        settings.setValue("/defHeight", defHeight);\r
        settings.endGroup();\r
 \r
-       accept();\r
+       accept();       emit propUpdated();\r
 }\r
 //-----------------------------------------------------------------------------\r

diff --git a/udav/prop_dlg.h b/udav/prop_dlg.h
index 72743258c1f8b8def65f5b6a5c45d33be92d45aa..8f0e12641026d86e5203d4a13b0a11bfb1a06ce4 100644 (file)
--- a/udav/prop_dlg.h
+++ b/udav/prop_dlg.h
@@ -36,6 +36,7 @@ public:
        ~PropDialog();
 signals:
        void sizeChanged(int w, int h);
+       void propUpdated();
 private slots:
        void applyChanges();
        void setC0()    {       setC(0);        }
@@ -47,17 +48,18 @@ private slots:
        void setC6()    {       setC(6);        }
        void setC7()    {       setC(7);        }
        void setC8()    {       setC(8);        }
+       void setC9()    {       setC(9);        }
        void setF();
        void getPathH();
        void getPathF();
 private:
        void setC(int k);
        QLabel *lbl;
-       QPushButton *cb[9];
-       QCheckBox *run, *edt, *load, *save, *pure, *cmpl;
+       QPushButton *cb[10];
+       QCheckBox *run, *edt, *load, *save, *pure, *cmpl, *high;
        QLineEdit *hlp, *defW, *defH;
        QFont defFont;
-       QColor cc[9];
+       QColor cc[10];
        QComboBox *lng, *fnt;
 };
 //-----------------------------------------------------------------------------

diff --git a/udav/qmglsyntax.cpp b/udav/qmglsyntax.cpp
index 6d064a0abe88432410c3fc524c378b465bda0d5b..20efa2ba061a8eea9c05364289595827ceabd780 100644 (file)
--- a/udav/qmglsyntax.cpp
+++ b/udav/qmglsyntax.cpp
@@ -21,21 +21,34 @@
 #include <QLabel>\r
 #include <QLayout>\r
 #include "qmglsyntax.h"\r
-#include <mgl2/parser.h>\r
-mglParser parser;\r
+#include <mgl2/mgl.h>\r
+mglParse parser;\r
 int mgl_cmd_cmp(const void *a, const void *b);\r
 // comment string keyword option suffix number\r
-QColor mglColorScheme[9] = {QColor(0,127,0), QColor(255,0,0), QColor(0,0,127), QColor(127,0,0), QColor(127,0,0), QColor(0,0,255), QColor(127,0,127), QColor(0,127,127), QColor(0,0,127)};\r
+QColor mglColorScheme[10] = {QColor(0,127,0), QColor(255,0,0), QColor(0,0,127), QColor(127,0,0), QColor(127,0,0), QColor(0,0,255), QColor(127,0,127), QColor(0,127,127), QColor(0,0,127), QColor(255,255,204)};\r
 //-----------------------------------------------------------------------------\r
 QMGLSyntax::QMGLSyntax(QTextEdit *textEdit) : QSyntaxHighlighter(textEdit)     {}\r
 //-----------------------------------------------------------------------------\r
 void QMGLSyntax::highlightBlock(const QString &text)\r
 {\r
-       register int i, j, n, m = text.length(),s=0;\r
-       for(n=0;parser.Cmd[n].name[0];n++){};   // determine the number of symbols in parser\r
+       register int i, j, m = text.length(),s=0;\r
        bool arg = false, nl = true;\r
        QString num("+-.0123456789:");\r
-       for(i=0;i<m;i++)                                // highlight paragraph\r
+       i=0;\r
+       setCurrentBlockState(-1);\r
+       if(previousBlockState()==1)\r
+       {\r
+               bool cont=false;\r
+               j=i;    i++;\r
+               for(;i<m && text[i]!='\'';i++)\r
+               {\r
+                       if(text[i]>' ')         cont=false;\r
+                       if(text[i]=='\\')       cont=true;\r
+               }\r
+               setFormat(j,i-j+1,mglColorScheme[1]);\r
+               if(cont && i==m)        setCurrentBlockState(1);\r
+       }\r
+       for(;i<m;i++)                           // highlight paragraph\r
        {\r
                if(text[i]=='(')        s++;    if(text[i]==')')        s--;\r
                if(text[i]==' ' || text[i]=='\t')       continue;\r
@@ -43,31 +56,38 @@ void QMGLSyntax::highlightBlock(const QString &text)
                {       setFormat(i,m-i,mglColorScheme[0]);     break;  }\r
                else if(text[i]=='\'')  // string\r
                {\r
+                       bool cont=false;\r
                        j=i;    i++;\r
-                       for(;i<m && text[i]!='\'';i++){};\r
+                       for(;i<m && text[i]!='\'';i++)\r
+                       {\r
+                               if(text[i]>' ')         cont=false;\r
+                               if(text[i]=='\\')       cont=true;\r
+                       }\r
                        setFormat(j,i-j+1,mglColorScheme[1]);\r
+                       if(cont && i==m)        setCurrentBlockState(1);\r
                }\r
                else if(nl)                             // keyword\r
                {\r
-                       wchar_t *s = new wchar_t[m+1];\r
+                       char *s = new char[m+1];\r
                        for(j=i;j<text.length() && !text[j].isSpace() && text[j]!=':';j++)\r
                                s[j-i] = text[j].toLatin1();\r
                        s[j-i]=0;\r
-                       mglCommand *rts = parser.FindCommand(s);\r
-                       if(rts) setFormat(i,j-i+1,rts->type!=6 ? (rts->type==4 ? mglColorScheme[6] : mglColorScheme[2]) : mglColorScheme[7]);\r
+                       int type = parser.CmdType(s);\r
+                       if(type)        setFormat(i,j-i+1,type!=7 ? (type==5 ? mglColorScheme[6] : mglColorScheme[2]) : mglColorScheme[7]);\r
                        delete []s;\r
                }\r
                else if(text[i]==';')   {       arg = true;     nl = false;     continue;       }\r
                else if(text[i]==':' && s==0)   {       nl=true;        continue;       }\r
                else if(arg)                    // option\r
                {\r
-                       const char *o[]={"xrange","yrange","zrange","crange","alpha",\r
-                                                       "cut","ambient","meshnum","fontsize","alphadef",\r
-                                                       "marksize","legend","light"};\r
-                       int l[] = {6, 6, 6, 6, 5, 3, 7, 7, 8, 8, 8, 6, 5};\r
+                       const char *o[13]={"xrange","yrange","zrange","cut","meshnum","alpha","light","ambient","diffuse","size","legend","number","value"};\r
+                       unsigned l;\r
                        for(j=0;j<13;j++)\r
-                               if(text.indexOf(o[j],i)==i && (i+l[j]==text.length() || text[i+l[j]].isSpace()))\r
-                                       setFormat(i,l[j],mglColorScheme[3]);\r
+                       {\r
+                               l = strlen(o[j]);\r
+                               if(text.indexOf(o[j],i)==i && (i+l==text.length() || text[i+l].isSpace()))\r
+                                       setFormat(i,l,mglColorScheme[3]);\r
+                       }\r
                }\r
                else if(text[i]=='.' && i+1<text.length() && text[i+1].isLetter())      // suffix\r
                {\r

diff --git a/udav/style_dlg.cpp b/udav/style_dlg.cpp
index 4007cef6528886677979403bcede8f5998e49590..dcee734cab3c81cefc0988f891761159022ff239 100644 (file)
--- a/udav/style_dlg.cpp
+++ b/udav/style_dlg.cpp
@@ -101,6 +101,13 @@ StyleDialog::StyleDialog(QWidget *parent) : QDialog(parent)
        a2 = new QComboBox(p);  g->addWidget(a2, 1, 2); fillArrows(a2);\r
        l = new QLabel(tr("Color"), p); g->addWidget(l, 2, 0, Qt::AlignRight);\r
        cline=new QComboBox(p); g->addWidget(cline, 2, 1);      fillColors(cline);\r
+\r
+       nline = new QSlider(p);         g->addWidget(nline, 2, 2);\r
+       nline->setRange(1, 9);          nline->setValue(5);\r
+       nline->setTickPosition(QSlider::TicksAbove);\r
+       nline->setTickInterval(1);      nline->setPageStep(2);\r
+       nline->setOrientation(Qt::Horizontal);\r
+       \r
        l = new QLabel(tr("Marks"), p); g->addWidget(l, 3, 0, Qt::AlignRight);\r
        mark = new QComboBox(p);        g->addWidget(mark, 3, 1);       fillMarkers(mark);\r
        l = new QLabel(tr("Line width"), p);    g->addWidget(l, 4, 0, Qt::AlignRight);\r
@@ -111,6 +118,7 @@ StyleDialog::StyleDialog(QWidget *parent) : QDialog(parent)
        connect(dash,SIGNAL(activated(int)), this, SLOT(updatePic()));\r
        connect(mark,SIGNAL(activated(int)), this, SLOT(updatePic()));\r
        connect(cline,SIGNAL(activated(int)), this, SLOT(updatePic()));\r
+       connect(nline,SIGNAL(valueChanged(int)), this, SLOT(updatePic()));\r
        connect(width,SIGNAL(valueChanged(int)), this, SLOT(updatePic()));\r
        tab->addTab(p, tr("Line style"));\r
        // color scheme\r
@@ -132,7 +140,6 @@ StyleDialog::StyleDialog(QWidget *parent) : QDialog(parent)
                connect(cc[i],SIGNAL(activated(int)), this, SLOT(updatePic()));\r
                connect(nn[i],SIGNAL(valueChanged(int)), this, SLOT(updatePic()));\r
        }\r
-       coor = new QCheckBox(tr("Colors along coordinates"),p); v->addWidget(coor);\r
        swire = new QCheckBox(tr("Wire or mesh plot"),p);       v->addWidget(swire);\r
        g = new QGridLayout();  v->addLayout(g);\r
        l = new QLabel(tr("Axial direction"), p);       g->addWidget(l, 0, 0, Qt::AlignRight);\r
@@ -142,7 +149,6 @@ StyleDialog::StyleDialog(QWidget *parent) : QDialog(parent)
        axial->addItem("y");    axial->addItem("z");\r
        ctext = new QComboBox(p);       g->addWidget(ctext, 1, 1);\r
        ctext->addItem(tr("none"));     ctext->addItem(tr("under"));    ctext->addItem(tr("above"));\r
-       connect(coor,SIGNAL(toggled(bool)), this, SLOT(updatePic()));\r
        connect(axial,SIGNAL(activated(int)), this, SLOT(updatePic()));\r
        connect(ctext,SIGNAL(activated(int)), this, SLOT(updatePic()));\r
        connect(swire,SIGNAL(toggled(bool)), this, SLOT(updatePic()));\r
@@ -291,7 +297,7 @@ void fillMarkers(QComboBox *cb)
 //-----------------------------------------------------------------------------\r
 void StyleDialog::updatePic()\r
 {\r
-               static mglGraph gr(0,128,30);\r
+       static mglGraph gr(0,128,30);\r
        static bool f = true;\r
        mglData x(3), y(3), a(32,2);\r
        x.Fill(-1,1);   a.Fill(-1,1);\r
@@ -318,29 +324,38 @@ void StyleDialog::updatePic()
                i = dash->currentIndex();       if(i>0) result += dsh[i-1];\r
                i = mark->currentIndex();       if(i>0) result += mrk[i-1];\r
                if(i>11)        result += '#';\r
-               i = cline->currentIndex();      if(i>0) result += col[i-1];\r
+               i = cline->currentIndex();\r
+               if(i>0)\r
+               {\r
+                       j = nline->value();\r
+                       if(j!=5)        result += "{"+col[i-1]+char('0'+i)+"}";\r
+                       else            result += col[i-1];\r
+               }\r
                i = width->value();             if(i>1) result += char('0'+i);\r
-               gr.Plot(x,y,result.toAscii());\r
+               gr.Plot(x,y,result.toAscii().constData());\r
                break;\r
        case 1: // color sceheme\r
                for(j=0;j<7;j++)\r
                {\r
                        i = cc[j]->currentIndex();\r
                        if(i<1) break;\r
-                       result += col[i-1];\r
+                       QCharRef c = col[i-1];\r
                        i = nn[j]->value();\r
-                       if(i!=5)        result += char('0'+i);\r
+                       if(i!=5)        result += "{"+c+char('0'+i)+"}";\r
+                       else            result += c;\r
                }\r
-               if(coor->isChecked())   result += 'd';\r
                if(swire->isChecked())  result += '#';\r
                i = ctext->currentIndex();\r
                if(i==1)        result += 't';\r
                if(i==2)        result += 'T';\r
                i = axial->currentIndex();\r
                if(i>0) result = result+':'+char('x'+i-1);\r
-               gr.Surf(a,result.toAscii());\r
+               gr.Surf(a,result.toAscii().constData());\r
                break;\r
        case 2: // text style\r
+               i = cfont->currentIndex();\r
+               if(i>1) result += col[i-1];\r
+               result += ':';\r
                if(bold->isChecked())   result += 'b';\r
                if(ital->isChecked())   result += 'i';\r
                if(wire->isChecked())   result += 'w';\r
@@ -349,9 +364,7 @@ void StyleDialog::updatePic()
                if(rbL->isChecked())    result += 'L';\r
                if(rbC->isChecked())    result += 'C';\r
                if(rbR->isChecked())    result += 'R';\r
-               i = cfont->currentIndex();\r
-               if(i>0) result = result + ':' + col[i-1];\r
-               gr.Puts(mglPoint(0,-0.5),"Font test",result.toAscii(),-10);\r
+               gr.Puts(mglPoint(0,-0.5),"Font test",result.toAscii().constData(),-10);\r
                break;\r
        }\r
        result = "'" + result + "'";\r

diff --git a/udav/style_dlg.h b/udav/style_dlg.h
index a7c2ce31b1f82eec60205ef6312760b65d01cb36..fd7fe968f9960787d7baee865487ead9a555a54e 100644 (file)
--- a/udav/style_dlg.h
+++ b/udav/style_dlg.h
@@ -44,9 +44,9 @@ private slots:
 private:
        QString result;
        QComboBox *cc[8], *cline, *cfont;
-       QSlider *nn[8];
+       QSlider *nn[8], *nline;
        QComboBox *axial, *ctext, *a1, *a2, *dash, *mark;
-       QCheckBox *swire, *coor, *upd;
+       QCheckBox *swire, *upd;
        QCheckBox *ital, *bold, *wire, *uline, *oline;
        QSpinBox *width;
        QGroupBox *align;

diff --git a/udav/text_pnl.cpp b/udav/text_pnl.cpp
index e6fc108ddb86ce6653e3c60b8d058f47b8315d9b..a3c1c892820dc5dcb82724f2fdf46963de89dbaf 100644 (file)
--- a/udav/text_pnl.cpp
+++ b/udav/text_pnl.cpp
@@ -26,7 +26,7 @@
 #include <QBoxLayout>
 #include <QPrinter>
 #include <QMenu>
-#include <mgl2/parser.h>
+#include "mgl2/qmathgl.h"
 //-----------------------------------------------------------------------------
 #include "udav_wnd.h"
 #include "qmglsyntax.h"
@@ -43,7 +43,7 @@ FilesDialog *files_dlg=0;
 QString defFontFamily;
 int defFontSize;
 bool mglAutoExecute = true;
-extern mglParser parser;
+extern mglParse parser;
 extern bool mglCompleter;
 QWidget *createDataOpenDlg(QWidget *p);
 QString getOpenDataFile(QWidget *w, QString filename);
@@ -59,9 +59,8 @@ TextPanel::TextPanel(QWidget *parent) : QWidget(parent)
        dataOpenDlg = createDataOpenDlg(this);
        if(!files_dlg)  files_dlg= new FilesDialog;
 
-       register int i;
-       for(i=0;mgls_base_cmd[i].name[0];i++)
-               words<<QString::fromAscii(mgls_base_cmd[i].name);
+       register int i,n=parser.GetCmdNum();
+       for(i=0;i<n;i++)        words<<QString::fromAscii(parser.GetCmdName(i));
        completer = new QCompleter(words, this);
        completer->setCaseSensitivity(Qt::CaseInsensitive);
 
@@ -74,13 +73,13 @@ TextPanel::TextPanel(QWidget *parent) : QWidget(parent)
        new QMGLSyntax(edit);
        defFontFamily = edit->fontFamily();
        defFontSize = int(edit->fontPointSize());
-//     completer->setCompletionMode(QCompleter::PopupCompletion);
+       completer->setCompletionMode(QCompleter::PopupCompletion);
 //     edit->setCompleter(completer);
        edit->setLineWrapMode(QTextEdit::NoWrap);
        setCompleter(mglCompleter);
 
        QBoxLayout *v,*h;
-       menu = new QMenu(tr("&Edit"),this);
+       menu = new QMenu(tr("Edit"),this);
        v = new QVBoxLayout(this);
        h = new QHBoxLayout();  v->addLayout(h);
        toolTop(h);                             v->addWidget(edit);
@@ -98,10 +97,14 @@ mglData mglFormulaCalc(const wchar_t *string, mglParser *arg);
 void TextPanel::insNVal()
 {
        QString sel=edit->textCursor().selectedText();
-       if(sel.isEmpty())       return;
+       if(sel.isEmpty())
+       {
+               QMessageBox::warning(this,tr("UDAV"),tr("There is no selection to evaluate."));
+               return;
+       }
        wchar_t *txt=new wchar_t[sel.length()+1];
        sel.toWCharArray(txt);  txt[sel.length()]=0;
-       mglData res=mglFormulaCalc(txt, &parser);
+       mglData res=mglFormulaCalc(txt, parser.Self());
        delete []txt;
        edit->textCursor().insertText(QString::number(res.GetVal(0)));
 }
@@ -109,7 +112,11 @@ void TextPanel::insNVal()
 void TextPanel::insFitF()
 {
        QString str(graph->getFit());
-       if(str.isEmpty())       return;
+       if(str.isEmpty())
+       {
+               QMessageBox::warning(this,tr("UDAV"),tr("There is no fitted formula."));
+               return;
+       }
        edit->textCursor().insertText("'"+str+"'");
 }
 //-----------------------------------------------------------------------------
@@ -130,7 +137,7 @@ void TextPanel::insPath()
 void TextPanel::refreshData()
 {
        QStringList vars=words;
-       mglVar *v = parser.DataList;
+       mglVar *v = parser.FindVar("");
        while(v)
        {
                if(v->s.length()>2)     vars<<QString::fromStdWString(v->s);
@@ -140,7 +147,7 @@ void TextPanel::refreshData()
        completer = new QCompleter(vars, this);
        completer->setCaseSensitivity(Qt::CaseInsensitive);
        completer->setCompletionMode(QCompleter::PopupCompletion);
-       edit->setCompleter(completer);
+       setCompleter(mglCompleter);
 }
 //-----------------------------------------------------------------------------
 void TextPanel::printText()
@@ -238,8 +245,10 @@ void TextPanel::setCursorPosition(int n)
        edit->setFocus();
 }
 //-----------------------------------------------------------------------------
-void TextPanel::newCmd()
+void TextPanel::newCmd(int n)
 {
+       if(n>0) setCursorPosition(n-1);
+       else if(n==0)   return;
        newCmdDlg->parseCmd(edit->textCursor().block().text());
        newCmdDlg->show();
 }
@@ -276,7 +285,13 @@ void TextPanel::loadHDF5(const QString &fileName)
                        char *buf = new char[dims[0]+1];
                        H5Dread(hd, H5T_C_S1, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf);
                        buf[dims[0]]=0;         // to be sure :)
-                       edit->setText(buf);
+                       QString str = buf;
+                       if(str.contains("#----- End of QMathGL block -----\n"))
+                       {
+                               graph->mgl->primitives = str.section("#----- End of QMathGL block -----\n",0,0);
+                               str = str.section("#----- End of QMathGL block -----\n",1);
+                       }
+                       edit->setText(str);
                        graph->animParseText(edit->toPlainText());
                        setCurrentFile(fileName);
                        delete []buf;
@@ -297,11 +312,11 @@ void TextPanel::loadHDF5(const QString &fileName)
                                        case 2: nx=dims[1];     ny=dims[0];     break;
                                        case 3: nx=dims[2];     ny=dims[1];     nz=dims[0];     break;
                                }
-                               v->d.Create(nx, ny, nz);
+                               v->Create(nx, ny, nz);
 #if MGL_USE_DOUBLE
-                               H5Dread(hd, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, v->d.a);
+                               H5Dread(hd, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, v->a);
 #else
-                               H5Dread(hd, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, v->d.a);
+                               H5Dread(hd, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, v->a);
 #endif
                        }
                }
@@ -324,7 +339,10 @@ void TextPanel::saveHDF5(const QString &fileName)
                return;
        }
        {       // save script
-               QString txt = edit->toPlainText();
+               QString txt;
+               if(!graph->mgl->primitives.isEmpty())
+                       txt += graph->mgl->primitives + "#----- End of QMathGL block -----";
+               txt += edit->toPlainText();
                dims[0] = txt.length()+1;
                char *buf = new char[dims[0]+1];
                memcpy(buf, txt.toAscii().constData(), dims[0]);
@@ -335,21 +353,21 @@ void TextPanel::saveHDF5(const QString &fileName)
                H5Dclose(hd);   H5Sclose(hs);
                delete []buf;
        }
-       mglVar *v = parser.DataList;
+       mglVar *v = parser.FindVar("");
        char name[256];
        while(v)
        {
                wcstombs(name,v->s.c_str(),v->s.length()+1);
-               if(v->d.nz==1 && v->d.ny == 1)
-               {       rank = 1;       dims[0] = v->d.nx;      }
-               else if(v->d.nz==1)
-               {       rank = 2;       dims[0] = v->d.ny;      dims[1] = v->d.nx;      }
+               if(v->nz==1 && v->ny == 1)
+               {       rank = 1;       dims[0] = v->nx;        }
+               else if(v->nz==1)
+               {       rank = 2;       dims[0] = v->ny;        dims[1] = v->nx;        }
                else
-               {       rank = 3;       dims[0] = v->d.nz;      dims[1] = v->d.ny;      dims[2] = v->d.nx;      }
+               {       rank = 3;       dims[0] = v->nz;        dims[1] = v->ny;        dims[2] = v->nx;        }
                hs = H5Screate_simple(rank, dims, 0);
                hd = H5Dcreate(hf, name, H5T_IEEE_F32LE, hs, H5P_DEFAULT);
 
-               H5Dwrite(hd, H5T_NATIVE_FLOAT, hs, hs, H5P_DEFAULT, v->d.a);
+               H5Dwrite(hd, H5T_NATIVE_FLOAT, hs, hs, H5P_DEFAULT, v->a);
                H5Dclose(hd);   H5Sclose(hs);
                v = v->next;
        }
@@ -405,7 +423,12 @@ void TextPanel::load(const QString &fileName)
                                str = files_dlg->putFiles(str);
                        }
                }
-
+               if(str.contains("#----- End of QMathGL block -----\n"))
+               {
+                       graph->mgl->primitives = str.section("#----- End of QMathGL block -----\n",0,0);
+                       str = str.section("#----- End of QMathGL block -----\n",1);
+               }
+               
                if(narg>0)      setCurrentFile(fileName.left(fileName.length()-3)+"mgl");
                edit->setText(str);
                graph->animParseText(edit->toPlainText());
@@ -419,7 +442,10 @@ void TextPanel::save(const QString &fileName)
 {
        if(fileName.right(4)==".hdf" || fileName.right(3)==".h5")
        {       saveHDF5(fileName);     return; }
-       QString text = edit->toPlainText();
+       QString text;
+       if(!graph->mgl->primitives.isEmpty())
+               text += graph->mgl->primitives + "#----- End of QMathGL block -----\n";
+       text += edit->toPlainText();
        QFile f(fileName);
        if(!f.open(QIODevice::WriteOnly))
        {
@@ -452,13 +478,13 @@ void TextPanel::toolTop(QBoxLayout *l)
                bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(mw->asave);
        }
        // edit menu
-       a = new QAction(QPixmap(":/xpm/edit-undo.png"), tr("&Undo"), this);
+       a = new QAction(QPixmap(":/xpm/edit-undo.png"), tr("Undo"), this);
        connect(a, SIGNAL(triggered()), edit, SLOT(undo()));
        a->setToolTip(tr("Undo editor change (Ctrl+Z)."));
        a->setShortcut(Qt::CTRL+Qt::Key_Z);     o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-redo.png"), tr("&Redo"), this);
+       a = new QAction(QPixmap(":/xpm/edit-redo.png"), tr("Redo"), this);
        connect(a, SIGNAL(triggered()), edit, SLOT(redo()));
        a->setToolTip(tr("Redo editor change (Ctrl+Shift+Z)."));
        a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_Z);   o->addAction(a);
@@ -466,28 +492,28 @@ void TextPanel::toolTop(QBoxLayout *l)
 
        o->addSeparator();
        o->addAction(tr("Clear all"), edit, SLOT(clear()));
-       a = new QAction(QPixmap(":/xpm/edit-cut.png"), tr("Cu&t text"), this);
+       a = new QAction(QPixmap(":/xpm/edit-cut.png"), tr("Cut text"), this);
        connect(a, SIGNAL(triggered()), edit, SLOT(cut()));
        a->setToolTip(tr("Cut selected text to clipboard (Ctrl+X)."));
        a->setShortcut(Qt::CTRL+Qt::Key_X);     o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("&Copy text"), this);
+       a = new QAction(QPixmap(":/xpm/edit-copy.png"), tr("Copy text"), this);
        connect(a, SIGNAL(triggered()), edit, SLOT(copy()));
        a->setToolTip(tr("Copy selected text or data to clipboard (Ctrl+C)."));
        a->setShortcut(Qt::CTRL+Qt::Key_C);     o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(QPixmap(":/xpm/edit-paste.png"), tr("&Paste text"), this);
+       a = new QAction(QPixmap(":/xpm/edit-paste.png"), tr("Paste text"), this);
        connect(a, SIGNAL(triggered()), edit, SLOT(paste()));
        a->setToolTip(tr("Paste text or data from clipboard (Ctrl+V)."));
        a->setShortcut(Qt::CTRL+Qt::Key_V);     o->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       o->addAction(QPixmap(":/xpm/edit-select-all.png"), tr("Select &all"), edit, SLOT(selectAll()), Qt::CTRL+Qt::Key_A);
+       o->addAction(QPixmap(":/xpm/edit-select-all.png"), tr("Select all"), edit, SLOT(selectAll()), Qt::CTRL+Qt::Key_A);
        o->addSeparator();
 
-       a = new QAction(QPixmap(":/xpm/edit-find.png"), tr("&Find/Replace"), this);
+       a = new QAction(QPixmap(":/xpm/edit-find.png"), tr("Find/Replace"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(find()));
        a->setToolTip(tr("Show dialog for text finding (Ctrl+F)."));
        a->setShortcut(Qt::CTRL+Qt::Key_F);     o->addAction(a);
@@ -506,20 +532,20 @@ void TextPanel::toolTop(QBoxLayout *l)
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);
 
-       a = new QAction(tr("Fitted formula"), this);    a->setShortcut(Qt::META+Qt::Key_N);
-       connect(a, SIGNAL(triggered()), this, SLOT(insFitF()));
+       a = new QAction(tr("Fitted formula"), this);
+       a->setShortcut(Qt::META+Qt::Key_F);     connect(a, SIGNAL(triggered()), this, SLOT(insFitF()));
        a->setToolTip(tr("Insert last fitted formula with found coefficients."));
        oo->addAction(a);
        a = new QAction(QPixmap(style_xpm), tr("Plot style"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(addStyle()));
+       a->setShortcut(Qt::META+Qt::Key_S);     connect(a, SIGNAL(triggered()), this, SLOT(addStyle()));
        a->setToolTip(tr("Show dialog for styles and put it into the script.\nStyles define the plot view (color scheme, marks, dashing and so on)."));
        oo->addAction(a);
        a = new QAction(QPixmap(option_xpm), tr("Command options"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(addOptions()));
+       a->setShortcut(Qt::META+Qt::Key_O);     connect(a, SIGNAL(triggered()), this, SLOT(addOptions()));
        a->setToolTip(tr("Show dialog for options and put it into the script.\nOptions are used for additional setup the plot."));
        oo->addAction(a);
        a = new QAction(tr("Numeric value"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(insNVal()));
+       a->setShortcut(Qt::META+Qt::Key_N);     connect(a, SIGNAL(triggered()), this, SLOT(insNVal()));
        a->setToolTip(tr("Replace expression by its numerical value."));
        oo->addAction(a);
        a = new QAction(QPixmap(":/xpm/x-office-spreadsheet.png"), tr("File name"), this);
@@ -532,7 +558,7 @@ void TextPanel::toolTop(QBoxLayout *l)
        oo->addAction(a);
 
        a = new QAction(QPixmap(":/xpm/document-properties.png"), tr("Graphics setup"), this);
-       connect(a, SIGNAL(triggered()), this, SLOT(addSetup()));
+       a->setShortcut(Qt::META+Qt::Key_G);     connect(a, SIGNAL(triggered()), this, SLOT(addSetup()));
        a->setToolTip(tr("Show dialog for plot setup and put code into the script.\nThis dialog setup axis, labels, lighting and other general things."));
        oo->addAction(a);
        bb = new QToolButton(this);     l->addWidget(bb);       bb->setDefaultAction(a);

diff --git a/udav/text_pnl.h b/udav/text_pnl.h
index 9fe85da43a608ab4e5ed33275277527868082cc8..4fd373e5bf5de749033769013cc11f17135bc91d 100644 (file)
--- a/udav/text_pnl.h
+++ b/udav/text_pnl.h
@@ -73,7 +73,7 @@ public slots:
        void insFile();
        void insPath();
        void insFitF();
-       void newCmd();
+       void newCmd(int n=-1);
        void addSetup();
 
        void refreshData();

diff --git a/udav/textedit.cpp b/udav/textedit.cpp
index ca78fe7d39cf76cd52e7ab337d5b3621e0df432c..ff16d9572681e916809473fd1c4eee7ffbb74721 100644 (file)
--- a/udav/textedit.cpp
+++ b/udav/textedit.cpp
@@ -47,13 +47,36 @@
 #include <QModelIndex>
 #include <QAbstractItemModel>
 #include <QScrollBar>
+#include <QPainter>
+#include <QTextBlock>
+extern QColor mglColorScheme[10];
 //-----------------------------------------------------------------------------
-TextEdit::TextEdit(QWidget *parent) : QTextEdit(parent), c(0)  {}
+TextEdit::TextEdit(QWidget *parent) : QTextEdit(parent)
+{
+       c=0;
+       connect(this, SIGNAL(cursorPositionChanged()), this, SLOT(highlight()));
+}
+//-----------------------------------------------------------------------------
+void TextEdit::highlight()
+{
+       QList<QTextEdit::ExtraSelection> extraSelections;
+       if (!isReadOnly())
+       {
+               QTextEdit::ExtraSelection selection;
+               selection.format.setBackground(mglColorScheme[9]);
+               selection.format.setProperty(QTextFormat::FullWidthSelection, true);
+               selection.cursor = textCursor();
+               selection.cursor.clearSelection();
+               extraSelections.append(selection);
+       }
+       setExtraSelections(extraSelections);
+}
 //-----------------------------------------------------------------------------
 void TextEdit::setCompleter(QCompleter *completer)
 {
+       if(c && c!=completer)
+       {       QObject::disconnect(c); c->setWidget(0);        delete c;       c=0;    }
        if(!completer)  return;
-       if(c)   QObject::disconnect(c, 0, this, 0);
        c = completer;
        c->setWidget(this);
        c->setCompletionMode(QCompleter::PopupCompletion);
@@ -63,7 +86,7 @@ void TextEdit::setCompleter(QCompleter *completer)
 //-----------------------------------------------------------------------------
 void TextEdit::insertCompletion(const QString& completion)
 {
-       if (c->widget() != this)        return;
+       if (!c || c->widget() != this)  return;
        QTextCursor tc = textCursor();
        int extra = completion.length() - c->completionPrefix().length();
        tc.movePosition(QTextCursor::Left);

diff --git a/udav/textedit.h b/udav/textedit.h
index 21199d5c870bb732c6bd00742753397d672aac24..3f457702b0828d6c18af95fedd549e49ea7af7fd 100644 (file)
--- a/udav/textedit.h
+++ b/udav/textedit.h
@@ -37,31 +37,33 @@
 ** $QT_END_LICENSE$
 **
 ****************************************************************************/
-
 #ifndef TEXTEDIT_H
 #define TEXTEDIT_H
-
+//-----------------------------------------------------------------------------
 #include <QTextEdit>
-
+//-----------------------------------------------------------------------------
 class QCompleter;
-
+class Numb;
+//-----------------------------------------------------------------------------
 class TextEdit : public QTextEdit
 {      Q_OBJECT
 public:
        TextEdit(QWidget *parent = 0);
        void setCompleter(QCompleter *c);
        QCompleter *completer() const { return c;       }
-
+       
 protected:
        void keyPressEvent(QKeyEvent *e);
        void focusInEvent(QFocusEvent *e);
-
+       
 private slots:
        void insertCompletion(const QString &completion);
+       void highlight();
 
 private:
        QString textUnderCursor() const;
        QCompleter *c;
 };
-
+//-----------------------------------------------------------------------------
 #endif // TEXTEDIT_H
+//-----------------------------------------------------------------------------

diff --git a/udav/tree_pnl.cpp b/udav/tree_pnl.cpp
new file mode 100644 (file)
index 0000000..e69de29

diff --git a/udav/tree_pnl.h b/udav/tree_pnl.h
new file mode 100644 (file)
index 0000000..26a1186
--- /dev/null
+++ b/udav/tree_pnl.h
@@ -0,0 +1,57 @@
+/***************************************************************************
+ *   Copyright (C) 2008 by Alexey Balakin                                  *
+ *   mathgl.abalakin@gmail.com                                             *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+#ifndef TREE_PNL_H
+#define TREE_PNL_H
+//-----------------------------------------------------------------------------
+#include <QWidget>
+#include <QStringList>
+//-----------------------------------------------------------------------------
+class QMenu;
+class QBoxLayout;
+class OptionDialog;
+class NewCmdDialog;
+class PlotPanel;
+class TextEdit;
+//-----------------------------------------------------------------------------
+class TreePanel : public QWidget
+{
+Q_OBJECT
+public:
+       // NOTE: these 3 pointers have to be filled!!!
+       TextEdit *edit;         ///< script itself
+       PlotPanel *graph;       
+       NewCmdDialog *newCmdDlg;
+
+       TreePanel(QWidget *parent = 0);
+       ~TreePanel();
+
+public slots:
+       void refresh();                 ///< refresh tree according new script
+       void setPosition(int);  ///< select item for given line number
+       void hidePlot(int);             ///< hide plot for given item
+       void annotatePlot(int); ///< add annotation for given item
+       void newCmd();                  ///< add new command + refresh tree
+
+private:
+       void toolTop(QBoxLayout *l);
+};
+//-----------------------------------------------------------------------------
+#endif // TREE_PNL_H
+//-----------------------------------------------------------------------------

diff --git a/udav/udav.desktop b/udav/udav.desktop
new file mode 100755 (executable)
index 0000000..3f28e31
--- /dev/null
+++ b/udav/udav.desktop
@@ -0,0 +1,12 @@
+[Desktop Entry]
+Encoding=UTF-8
+Version=1.0
+Type=Application
+Terminal=false
+Icon=udav.png
+Name=UDAV
+Exec=udav
+Comment=Data handling and plotting tool
+Comment[en_US]=Data handling and plotting tool
+Comment[ru_RU]=Обработка и отображение данных
+Categories=Education;Science;Math;

diff --git a/udav/udav_wnd.cpp b/udav/udav_wnd.cpp
index f4a65042c136e9fa4ce31b999a6a81c9744bed56..fcdfc208225f9f9c57f1981a0a077daeb688c781 100644 (file)
--- a/udav/udav_wnd.cpp
+++ b/udav/udav_wnd.cpp
@@ -37,13 +37,13 @@
 #include <QCloseEvent>
 #include <QTextCodec>
 #include <QTranslator>
+#include <QVariant>
 //-----------------------------------------------------------------------------
 #if !defined(WIN32) && !defined(__APPLE__)
 #include <X11/Xlib.h>
 #endif
 //-----------------------------------------------------------------------------
-#include "mgl2/parser.h"
-#include "mgl2/qt.h"
+#include <mgl2/qmathgl.h>
 #include "udav_wnd.h"
 #include "text_pnl.h"
 #include "plot_pnl.h"
@@ -57,11 +57,12 @@ QStringList recentFiles;
 int MaxRecentFiles=5;
 bool editPosBottom = false;
 bool mglAutoSave = false;
+bool mglHighlight = true;
 bool mglAutoPure = true;
 bool mglCompleter = true;
 bool loadInNewWnd = false;
 QString pathHelp;
-extern mglParser parser;
+extern mglParse parser;
 extern QColor mglColorScheme[9];
 extern QString defFontFamily;
 extern int defFontSize;
@@ -109,9 +110,13 @@ int main(int argc, char **argv)
        settings.setPath(QSettings::IniFormat, QSettings::UserScope, "UDAV");
        settings.beginGroup("/UDAV");
        pathHelp = settings.value("/helpPath", MGL_DOC_DIR).toString();
+#if defined(WIN32)
+       if(pathHelp.isEmpty())  pathHelp = a.applicationDirPath()+"\\";
+#endif
        pathFont = settings.value("/userFont", "").toString();
        lang = settings.value("/udavLang", "").toString();
        bool showHint = settings.value("/showHint", true).toBool();
+       mglCompleter = settings.value("/completer",  true).toBool();
        settings.endGroup();
        if(pathHelp.isEmpty())  pathHelp=MGL_DOC_DIR;
 
@@ -129,7 +134,7 @@ int main(int argc, char **argv)
                QTextCodec *codec = QTextCodec::codecForLocale();
                mw->load(codec->toUnicode(argv[1]), true);
        }
-       mw->show();     parser.AllowSetSize = true;
+       mw->show();     parser.AllowSetSize(true);
        a.connect(&a, SIGNAL(lastWindowClosed()), &a, SLOT(quit()));
        if(showHint)    udavShowHint(mw);
        return a.exec();
@@ -143,9 +148,9 @@ int main(int argc, char **argv)
        {L"fplot",L"Plot curve by formula",L"fplot 'func' ['stl'='' num=100]", mgls_fplot, mglc_fplot},
        {L"fsurf",L"Plot surface by formula",L"fsurf 'func' ['stl'='' numx=100 numy=100]", mgls_fsurf, mglc_fsurf},
        {L"fgets",L"Print string from file",L"fgets x y {z} 'fname' [pos=0 'stl'='' size=-1.4]", mgls_fgets, mglc_fgets},
-{L"",0,0,0,0}};*/
+{L"",0,0,0,0}};
 //-----------------------------------------------------------------------------
-void udavAddCommands(const mglCommand *cmd)
+void udavAddCommands(const mglCommand *cmd)    // NOTE it work but I don't how I can use it
 {
        int i, mp, mc;
        // determine the number of symbols
@@ -157,7 +162,7 @@ void udavAddCommands(const mglCommand *cmd)
        qsort(buf, mp+mc, sizeof(mglCommand), mgl_cmd_cmp);
        if(parser.Cmd!=mgls_base_cmd)   delete []parser.Cmd;
        parser.Cmd = buf;
-}
+}*/
 //-----------------------------------------------------------------------------
 void udavLoadDefCommands()     {}      //{     udavAddCommands(udav_base_cmd); }
 //-----------------------------------------------------------------------------
@@ -174,6 +179,7 @@ MainWindow::MainWindow(QWidget *wp) : QMainWindow(wp)
        split = new QSplitter(this);
        ltab = new QTabWidget(split);
        ltab->setMovable(true); ltab->setTabPosition(QTabWidget::South);
+//     ltab->setTabsClosable(true);
        rtab = new QTabWidget(split);
        rtab->setMovable(true); rtab->setTabPosition(QTabWidget::South);
 
@@ -187,12 +193,12 @@ MainWindow::MainWindow(QWidget *wp) : QMainWindow(wp)
 
        calcWnd = new QDockWidget(tr("Calculator"),this);
 
-       aload = a = new QAction(QPixmap(":/xpm/document-open.png"), tr("&Open file"), this);
+       aload = a = new QAction(QPixmap(":/xpm/document-open.png"), tr("Open file"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(choose()));
        a->setToolTip(tr("Open and execute/show script or data from file (Ctrl+O).\nYou may switch off automatic exection in UDAV properties."));
        a->setShortcut(Qt::CTRL+Qt::Key_O);
 
-       asave = a = new QAction(QPixmap(":/xpm/document-save.png"), tr("&Save script"), this);
+       asave = a = new QAction(QPixmap(":/xpm/document-save.png"), tr("Save script"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(save()));
        a->setToolTip(tr("Save script to a file (Ctrl+S)"));
        a->setShortcut(Qt::CTRL+Qt::Key_S);
@@ -239,13 +245,15 @@ MainWindow::MainWindow(QWidget *wp) : QMainWindow(wp)
        connect(graph, SIGNAL(animPutText(const QString &)), edit, SLOT(animPutText(const QString &)));
        connect(graph,SIGNAL(giveFocus()),edit->edit,SLOT(setFocus()));
        connect(graph->mgl, SIGNAL(objChanged(int)), edit, SLOT(setCursorPosition(int)));
-       connect(graph->mgl, SIGNAL(posChanged(QString)), statusBar(), SLOT(showMessage(QString)));
+//     connect(graph->mgl, SIGNAL(posChanged(QString)), statusBar(), SLOT(showMessage(QString)));
        connect(graph->mgl, SIGNAL(refreshData()), this, SLOT(refresh()));
        connect(graph->mgl, SIGNAL(refreshData()), edit, SLOT(refreshData()));
+       connect(graph->mgl,SIGNAL(doubleClick(int)),edit,SLOT(newCmd(int)));
 
        connect(mess, SIGNAL(textChanged()), this, SLOT(warnChanged()));
 //     connect(mdi, SIGNAL(subWindowActivated(QMdiSubWindow *)), this, SLOT(subActivated(QMdiSubWindow *)));
        connect(propDlg, SIGNAL(sizeChanged(int,int)), graph->mgl, SLOT(imgSize(int,int)));
+//     connect(propDlg, SIGNAL(propUpdated()), edit->edit, SLOT(update()));    // TODO: update qmglsyntax
        connect(edit->edit,SIGNAL(textChanged()), this, SLOT(setAsterix()));
        connect(edit->edit, SIGNAL(cursorPositionChanged()), this, SLOT(editPosChanged()));
        connect(edit,SIGNAL(setCurrentFile(QString)),this,SLOT(setCurrentFile(QString)));
@@ -264,8 +272,8 @@ void MainWindow::makeMenu()
 
        // file menu
        {
-       o = menuBar()->addMenu(tr("&File"));
-       a = new QAction(QPixmap(":/xpm/document-new.png"), tr("&New script"), this);
+       o = menuBar()->addMenu(tr("File"));
+       a = new QAction(QPixmap(":/xpm/document-new.png"), tr("New script"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(newDoc()));
        a->setToolTip(tr("Create new empty script window (Ctrl+N)."));
        a->setShortcut(Qt::CTRL+Qt::Key_N);     o->addAction(a);
@@ -273,20 +281,20 @@ void MainWindow::makeMenu()
        o->addAction(aload);
        o->addAction(asave);
 
-       a = new QAction(tr("Save &As ..."), this);
+       a = new QAction(tr("Save as ..."), this);
        connect(a, SIGNAL(triggered()), this, SLOT(saveAs()));
        o->addAction(a);
 
        o->addSeparator();
-       o->addAction(tr("&Print script"), edit, SLOT(printText()));
-       a = new QAction(QPixmap(":/xpm/document-print.png"), tr("Print &graphics"), this);
+       o->addAction(tr("Print script"), edit, SLOT(printText()));
+       a = new QAction(QPixmap(":/xpm/document-print.png"), tr("Print graphics"), this);
        connect(a, SIGNAL(triggered()), graph->mgl, SLOT(print()));
-       a->setToolTip(tr("Open printer dialog and print graphics\t(Ctrl+P)"));
+       a->setToolTip(tr("Open printer dialog and print graphics (Ctrl+P)"));
        a->setShortcut(Qt::CTRL+Qt::Key_P);     o->addAction(a);
        o->addSeparator();
        fileMenu = o->addMenu(tr("Recent files"));
        o->addSeparator();
-       o->addAction(tr("&Quit"), qApp, SLOT(closeAllWindows()), Qt::CTRL+Qt::Key_Q);
+       o->addAction(tr("Quit"), qApp, SLOT(closeAllWindows()));
        }
 
        menuBar()->addMenu(edit->menu);
@@ -294,31 +302,27 @@ void MainWindow::makeMenu()
 
        // settings menu
        {
-       o = menuBar()->addMenu(tr("&Settings"));
+       o = menuBar()->addMenu(tr("Settings"));
        a = new QAction(QPixmap(":/xpm/preferences-system.png"), tr("Properties"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(properties()));
        a->setToolTip(tr("Show dialog for UDAV properties."));  o->addAction(a);
-       o->addAction(tr("Set ar&guments"), createArgsDlg(this), SLOT(exec()));
+       o->addAction(tr("Set arguments"), createArgsDlg(this), SLOT(exec()));
 
        o->addAction(acalc);
        o->addAction(ainfo);
        }
 
        menuBar()->addSeparator();
-       o = menuBar()->addMenu(tr("&Help"));
-       a = new QAction(QPixmap(":/xpm/help-contents.png"), tr("MGL &help"), this);
+       o = menuBar()->addMenu(tr("Help"));
+       a = new QAction(QPixmap(":/xpm/help-contents.png"), tr("MGL help"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(showHelp()));
        a->setToolTip(tr("Show help on MGL commands (F1)."));
        a->setShortcut(Qt::Key_F1);     o->addAction(a);
-//     a = new QAction(QPixmap(":/xpm/help-faq.png"), tr("&Examples"), this);
-//     connect(a, SIGNAL(triggered()), this, SLOT(showExamples()));
-//     a->setToolTip(tr("Show examples of MGL usage (Shift+F1)."));
-//     a->setShortcut(Qt::SHIFT+Qt::Key_F1);   o->addAction(a);
-       a = new QAction(QPixmap(":/xpm/help-faq.png"), tr("H&ints"), this);
+       a = new QAction(QPixmap(":/xpm/help-faq.png"), tr("Hints"), this);
        connect(a, SIGNAL(triggered()), this, SLOT(showHint()));
        a->setToolTip(tr("Show hints of MGL usage."));  o->addAction(a);
-       o->addAction(tr("&About"), this, SLOT(about()));
-       o->addAction(tr("About &Qt"), this, SLOT(aboutQt()));
+       o->addAction(tr("About"), this, SLOT(about()));
+       o->addAction(tr("About Qt"), this, SLOT(aboutQt()));
 }
 //-----------------------------------------------------------------------------
 void MainWindow::closeEvent(QCloseEvent* ce)
@@ -425,10 +429,9 @@ void MainWindow::editPosChanged()
        for(i=0;i<n;i++)        if(dlm.contains(text[i]))       break;
        text.truncate(i);
 
-       for(n=0;parser.Cmd[n].name[0];n++){};   // determine the number of symbols in parser
-       mglCommand tst, *rts;   tst.name = text.toAscii().data();
-       rts = (mglCommand *)bsearch(&tst, parser.Cmd, n, sizeof(mglCommand), mgl_cmd_cmp);
-       if(rts) setStatus(QString::fromAscii(rts->desc)+": "+QString::fromAscii(rts->form));
+       const char *desc = parser.CmdDesc(text.toAscii().constData());
+       const char *form = parser.CmdFormat(text.toAscii().constData());
+       if(form)        setStatus(QString::fromAscii(desc)+": "+QString::fromAscii(form));
        else    setStatus(tr("Not recognized"));
 }
 //-----------------------------------------------------------------------------
@@ -450,6 +453,7 @@ void MainWindow::messClicked()
                        int n = s.toInt()-1;    if(n<0) return;
                        edit->moveCursor(QTextCursor::Start);
                        for(int i=0;i<n;i++)    edit->moveCursor(QTextCursor::NextBlock);
+                       break;
                }
        }
        edit->setFocus();
@@ -465,8 +469,8 @@ void MainWindow::warnChanged()
 //-----------------------------------------------------------------------------
 void MainWindow::about()
 {
-       QString s = tr("UDAV v. 0.")+QString::number(UDAV_VERSION)+
-                               tr("\n(c) Alexey Balakin, 2008\nhttp://udav.sf.net/");
+       QString s = tr("UDAV v. 2.")+QString::number(MGL_VER2)+
+                               tr("\n(c) Alexey Balakin, 2008-2012\nhttp://mathgl.sf.net/");
        QMessageBox::about(this, tr("UDAV - about"), s);
 }
 //-----------------------------------------------------------------------------
@@ -497,8 +501,10 @@ void MainWindow::writeSettings()
        settings.setValue("/colACKeyword", mglColorScheme[6].name());
        settings.setValue("/colFCKeyword", mglColorScheme[7].name());
        settings.setValue("/colReserved", mglColorScheme[8].name());
+       settings.setValue("/colCurrLine", mglColorScheme[9].name());
        settings.setValue("/autoExec",  mglAutoExecute);
        settings.setValue("/autoSave",  mglAutoSave);
+       settings.setValue("/highlight",  mglHighlight);
        settings.setValue("/autoPure",  mglAutoPure);
        settings.setValue("/editAtTop", editPosBottom);
        settings.setValue("/fontFamily", defFontFamily);
@@ -533,7 +539,9 @@ void MainWindow::readSettings()
        mglColorScheme[6] = QColor(settings.value("/colACKeyword","#7F007F").toString());
        mglColorScheme[7] = QColor(settings.value("/colFCKeyword","#007F7F").toString());
        mglColorScheme[8] = QColor(settings.value("/colReserved", "#0000FF").toString());
+       mglColorScheme[9] = QColor(settings.value("/colCurrLine", "#FFFFCC").toString());
        mglAutoSave = settings.value("/autoSave",  false).toBool();
+       mglHighlight = settings.value("/highlight",  true).toBool();
        mglAutoPure = settings.value("/autoPure",  true).toBool();
        mglAutoExecute = settings.value("/autoExec",  true).toBool();
        editPosBottom = settings.value("/editAtTop", false).toBool();
@@ -554,12 +562,12 @@ void MainWindow::readSettings()
 }
 //-----------------------------------------------------------------------------
 void MainWindow::setStatus(const QString &txt)
-{      statusBar()->showMessage(txt, 2000);    }
+{      statusBar()->showMessage(txt, 5000);    }
 //-----------------------------------------------------------------------------
 void MainWindow::setCurrentFile(const QString &fileName)
 {
        filename = fileName;
-       graph->mgl->getGraph()->PlotId = (const char *)fileName.toAscii();
+       graph->mgl->getGraph()->PlotId = fileName.toAscii().constData();
        edit->setModified(false);
        if(filename.isEmpty())
                setWindowTitle(tr("untitled - UDAV"));
@@ -646,7 +654,7 @@ void MainWindow::choose()
 void MainWindow::load(const QString &fileName, bool noNewWnd)
 {
        // save current path
-       QFileInfo fi(fileName);
+       QFileInfo fi(fileName);         filename = fileName;
        QSettings settings("udav","UDAV");
        settings.setPath(QSettings::IniFormat, QSettings::UserScope, "UDAV");
        settings.beginGroup("/UDAV");

diff --git a/udav/udav_wnd.h b/udav/udav_wnd.h
index 3758cdbcff988b3573db887bd0c2b6354d8d9a43..1091d7d6f26910658f4747f64ea614de6d216000 100644 (file)
--- a/udav/udav_wnd.h
+++ b/udav/udav_wnd.h
@@ -22,10 +22,6 @@
 //-----------------------------------------------------------------------------
 #include <QMainWindow>
 //-----------------------------------------------------------------------------
-#ifndef UDAV_VERSION
-#define UDAV_VERSION   7
-#endif
-//-----------------------------------------------------------------------------
 #ifndef MGL_DOC_DIR
 #ifdef WIN32
 #define MGL_DOC_DIR ""

diff --git a/utils/CMakeLists.txt b/utils/CMakeLists.txt
index 271ca76df43e5d6d9b87b196c0cfbc9f862db9fc..ab067316b1518a57cdca014e0d3a93f12a51fa79 100644 (file)
--- a/utils/CMakeLists.txt
+++ b/utils/CMakeLists.txt
@@ -1,23 +1,3 @@
-if(MGL_HAVE_GSL)
-#      target_link_libraries(mgl ${GSL_LIB} ${GSL_CBLAS_LIB} )
-       include_directories(${GSL_INCLUDE_DIR})
-endif(MGL_HAVE_GSL)
-
-if(MGL_HAVE_FLTK)
-       include_directories(${FLTK_INCLUDE_DIR})
-       set(mgl_wnd_src ${mgl_wnd_src} fltk.cpp)
-endif(MGL_HAVE_FLTK)
-if(MGL_HAVE_WX)
-       include(${wxWidgets_USE_FILE})
-       set(mgl_wnd_src ${mgl_wnd_src} wx.cpp)
-endif(MGL_HAVE_WX)
-if(MGL_HAVE_QT)
-       include(${QT_USE_FILE})
-       qt_wrap_cpp(mgl-qt MGL_MOC_FILES ../include/mgl2/qt.h)
-       set(mgl_wnd_src ${mgl_wnd_src} qt.cpp ${MGL_MOC_FILES})
-endif(MGL_HAVE_QT)
-
-
 
 add_executable(mglconv mglconv.cpp)
 target_link_libraries(mglconv mgl)
@@ -26,11 +6,19 @@ install(
        RUNTIME DESTINATION bin
 )
 
-if(MGL_HAVE_FLTK OR MGL_HAVE_QT)
-add_executable(mglview mglview.cpp)
-target_link_libraries(mglview mgl-wnd)
+add_executable(mgl.cgi mglcgi.cpp)
+target_link_libraries(mgl.cgi mgl)
 install(
-       TARGETS mglview
+       TARGETS mgl.cgi
        RUNTIME DESTINATION bin
 )
-endif(MGL_HAVE_FLTK OR MGL_HAVE_QT)
+
+if(MGL_HAVE_QT)
+       include(${QT_USE_FILE})
+       add_executable(mglview mglview.cpp)
+       target_link_libraries(mglview mgl-qt)
+       install(
+               TARGETS mglview
+               RUNTIME DESTINATION bin
+       )
+endif(MGL_HAVE_QT)

diff --git a/utils/mglcgi.cpp b/utils/mglcgi.cpp
new file mode 100644 (file)
index 0000000..4f08553
--- /dev/null
+++ b/utils/mglcgi.cpp
@@ -0,0 +1,89 @@
+/***************************************************************************
+ * mglcgi.cpp is part of Math Graphic Library
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+#include <locale.h>
+#include <unistd.h>
+#include "mgl2/mgl.h"
+//-----------------------------------------------------------------------------
+int mgl_hex(char ch)
+{
+       int res=-1;
+       if(ch>='0' && ch<='9')  res = ch-'0';
+       if(ch>='a' && ch<='f')  res = ch-'a'+10;
+       if(ch>='A' && ch<='F')  res = ch-'A'+10;
+       return res;
+}
+//-----------------------------------------------------------------------------
+/// Parse CGI string buf and return usual string as val for given name.
+/// The size of val should be the same as size of buf.
+void mgl_get_value(const char *buf, const char *name, char *val)
+{
+       const char *pos = strstr(buf,name);
+       memset(val,0,strlen(buf)+1);
+       if(pos && (pos==buf || pos[-1]=='&'))
+       {
+               pos+=4; // shift for "mgl="
+               register size_t i,j,l=strlen(pos);
+               for(i=j=0;i<l;i++,j++)
+               {
+                       register char ch=pos[i];
+                       if(ch=='&')     break;
+                       else if(ch=='+')        val[j]=' ';
+                       else if(ch=='%' && i+2<l)
+                       {       val[j] = 16*mgl_hex(pos[i+1]) + mgl_hex(pos[i+2]);      i+=2;   }
+                       else            val[j]=ch;
+               }
+       }
+}
+//-----------------------------------------------------------------------------
+int main(int argc, char *argv[])
+{
+       mglGraph gr;
+       mglParse p(true);
+
+       mgl_ask_func = 0;
+       // read script
+       setlocale(LC_CTYPE, "");
+
+       char *str, *buf;
+       const char *method = getenv("REQUEST_METHOD");
+       if(method && strcmp(method,"GET"))
+       {
+               long len=atol(getenv("CONTENT_LENGTH"));
+               buf = new char[len+1];
+               fread(buf,len,1,stdin);
+               buf[len]=0;
+       }
+       else            buf = getenv("QUERY_STRING");
+       str = new char[strlen(buf)+1];
+       mgl_get_value(buf,"mgl",str);
+
+       p.Execute(&gr,str);
+
+/*     printf("Content-Type: text/html\n\n");
+       printf("<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd\">\n");
+       printf("<html><head><meta content=\"text/html; charset=utf-8\" http-equiv=\"content-type\">\n");
+       printf("<title>MathGL - library for scientific graphics</title></head><body>\n<img>\n");
+       gr.WriteSVG("-");       fflush(stdout);
+       printf("</img></body></html>\n");*/
+
+       printf("Content-Type: image/png\n\n");  gr.WritePNG("-");
+       return 0;
+}
+//-----------------------------------------------------------------------------

diff --git a/utils/mglconv.cpp b/utils/mglconv.cpp
index 49ff395a6198255e0b4c16a26aba61f8879ff49c..2c8d54fc3f522d9ad115fdfd70acb066775baf11 100644 (file)
--- a/utils/mglconv.cpp
+++ b/utils/mglconv.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
- * mgl2png.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * mglconv.cpp is part of Math Graphic Library\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU General Public License as published by  *\r
@@ -84,7 +84,9 @@ int main(int argc, char *argv[])
        std::wstring str;\r
        setlocale(LC_CTYPE, "");\r
        FILE *fp = *iname?fopen(iname,"r"):stdin;\r
-       while(!feof(fp))        str.push_back(fgetwc(fp));\r
+       wchar_t cw;\r
+       while((cw=fgetwc(fp))!=WEOF)    str.push_back(cw);\r
+//     while(!feof(fp))        str.push_back(fgetwc(fp));\r
        if(*iname)      fclose(fp);\r
 \r
        for(i=0;;)      // collect exact values\r
@@ -125,6 +127,7 @@ int main(int argc, char *argv[])
                printf("%s\n",gr.Message());\r
                gr.WriteFrame(oname);\r
        }\r
+       if(!mglGlobalMess.empty())      printf("%s",mglGlobalMess.c_str());\r
        printf("Write output to %s\n",oname);\r
        return 0;\r
 }\r

diff --git a/utils/mglview.cpp b/utils/mglview.cpp
index 67f2d744ba0f1b52131ea1329294a840c26f6e57..40942949c2e4367eafd845e0cbd42f1fb4a7d07e 100644 (file)
--- a/utils/mglview.cpp
+++ b/utils/mglview.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mglview.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU General Public License as published by  *
@@ -19,14 +19,16 @@
  ***************************************************************************/
 #include <locale.h>
 #include <unistd.h>
-#include "mgl2/window.h"
-#include "mgl2/parser.h"
+
+#include "mgl2/mgl.h"
+#include "mgl2/qt.h"
 //-----------------------------------------------------------------------------
 std::wstring str;
 mglParse p(true);
 void mgl_error_print(const char *Message, void *par);
 void mgl_ask_fltk(const wchar_t *quest, wchar_t *res);
 void mgl_ask_qt(const wchar_t *quest, wchar_t *res);
+void mgl_ask_gets(const wchar_t *quest, wchar_t *res);
 //-----------------------------------------------------------------------------
 int show(mglGraph *gr)
 {
@@ -62,21 +64,22 @@ int main(int argc, char **argv)
        }
        if(ch=='h')     return 0;
 
-       mgl_ask_func = mgl_ask_gets;
-#if MGL_HAVE_QT
-       int kind=1;             mgl_ask_func = mgl_ask_qt;
-#else
-       int kind=0;             mgl_ask_func = mgl_ask_fltk;
-#endif
        bool mgld=(*iname && iname[strlen(iname)-1]=='d');
        if(!mgld)
        {
                setlocale(LC_CTYPE, "");
                FILE *fp = *iname?fopen(iname,"r"):stdin;
-               while(!feof(fp))        str.push_back(fgetwc(fp));
-               if(*iname)      fclose(fp);
+               if(fp)
+               {
+                       wchar_t ch;
+                       while((ch=fgetwc(fp))!=WEOF)    str.push_back(ch);
+                       fclose(fp);
+               }
        }
-       mglWindow gr(mgld?NULL:show, *iname?iname:"mglview", kind);
+
+       mgl_ask_func = mgl_ask_gets;
+       mgl_ask_func = mgl_ask_qt;
+       mglQT gr(mgld?NULL:show, *iname?iname:"mglview");
        if(mgld)
        {
                gr.Setup(false);
@@ -85,6 +88,7 @@ int main(int argc, char **argv)
                setlocale(LC_NUMERIC, "");
                gr.Update();
        }
+       if(!mglGlobalMess.empty())      printf("%s",mglGlobalMess.c_str());
        gr.Run();
        return 0;
 }

diff --git a/widgets/CMakeLists.txt b/widgets/CMakeLists.txt
index 69f9653cc3ddb0338dd4c508aa8c28cee5a71c76..91f2fd66689a88a9196a7510d3b5d081338c9a0e 100644 (file)
--- a/widgets/CMakeLists.txt
+++ b/widgets/CMakeLists.txt
@@ -1,36 +1,34 @@
-set(mgl_wnd_hdr ../include/mgl2/window.h ../include/mgl2/canvas_wnd.h)
-set(mgl_wnd_src window.cpp)
-#set(mgl_wnd_src )
-
-if(MGL_HAVE_GSL)
-#      target_link_libraries(mgl ${GSL_LIB} ${GSL_CBLAS_LIB} )
-       include_directories(${GSL_INCLUDE_DIR})
-endif(MGL_HAVE_GSL)
 
 if(MGL_HAVE_FLTK)
        include_directories(${FLTK_INCLUDE_DIR})
-       set(mgl_wnd_src ${mgl_wnd_src} fltk.cpp)
-       set(mgl_wnd_hdr ${mgl_wnd_hdr} ../include/mgl2/fltk.h)
+       add_library(mgl-fltk SHARED fltk.cpp ../include/mgl2/fltk.h)
+       add_library(mgl-fltk-static STATIC fltk.cpp ../include/mgl2/fltk.h)
+       set_target_properties(mgl-fltk-static PROPERTIES OUTPUT_NAME "mgl-fltk")
+       set_target_properties(mgl-fltk PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-fltk-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-fltk PROPERTIES SOVERSION 7.0.0)
+       target_link_libraries(mgl-fltk mgl)
+       target_link_libraries(mgl-fltk ${FLTK_LIBRARIES})
+
+       install(
+               TARGETS mgl-fltk mgl-fltk-static
+               RUNTIME DESTINATION bin
+               ARCHIVE DESTINATION lib
+               LIBRARY DESTINATION lib
+       )
 endif(MGL_HAVE_FLTK)
 
 if(MGL_HAVE_GLUT)
        include_directories(${GLUT_INCLUDE_DIR})
-       set(mgl_glut_src glut.cpp window.cpp)
-       set(mgl_glut_hdr ../include/mgl2/glut.h ../include/mgl2/window.h)
-
-       add_library(mgl-glut SHARED ${mgl_glut_src} ${mgl_glut_hdr})
-       add_library(mgl-glut-static STATIC ${mgl_glut_src} ${mgl_glut_hdr})
+       add_library(mgl-glut SHARED glut.cpp ../include/mgl2/glut.h)
+       add_library(mgl-glut-static STATIC glut.cpp ../include/mgl2/glut.h)
        set_target_properties(mgl-glut-static PROPERTIES OUTPUT_NAME "mgl-glut")
        set_target_properties(mgl-glut PROPERTIES CLEAN_DIRECT_OUTPUT 1)
        set_target_properties(mgl-glut-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
-       set_target_properties(mgl-glut PROPERTIES SOVERSION 6.0.0)
+       set_target_properties(mgl-glut PROPERTIES SOVERSION 7.0.0)
        target_link_libraries(mgl-glut mgl)
        target_link_libraries(mgl-glut ${GLUT_LIBRARIES} ${OPENGL_LIBRARIES})
 
-       if(MGL_HAVE_PTHREAD)
-               target_link_libraries(mgl-glut ${CMAKE_THREAD_LIBS_INIT})
-       endif(MGL_HAVE_PTHREAD)
-
        install(
                TARGETS mgl-glut mgl-glut-static
                RUNTIME DESTINATION bin
@@ -41,46 +39,71 @@ endif(MGL_HAVE_GLUT)
 
 if(MGL_HAVE_WX)
        include(${wxWidgets_USE_FILE})
-       set(mgl_wnd_src ${mgl_wnd_src} wx.cpp)
-       set(mgl_wnd_hdr ${mgl_wnd_hdr} ../include/mgl2/fltk.h)
+       add_library(mgl-wx SHARED wx.cpp ../include/mgl2/wx.h)
+       add_library(mgl-wx-static STATIC wx.cpp ../include/mgl2/wx.h)
+       set_target_properties(mgl-wx-static PROPERTIES OUTPUT_NAME "mgl-wx")
+       set_target_properties(mgl-wx PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-wx-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-wx PROPERTIES SOVERSION 7.0.0)
+       target_link_libraries(mgl-wx mgl)
+       target_link_libraries(mgl-wx ${wxWidgets_LIBRARIES})
+
+       install(
+               TARGETS mgl-wx mgl-wx-static
+               RUNTIME DESTINATION bin
+               ARCHIVE DESTINATION lib
+               LIBRARY DESTINATION lib
+       )
 endif(MGL_HAVE_WX)
 
 if(MGL_HAVE_QT)
        include(${QT_USE_FILE})
-#      qt_wrap_cpp(mgl-wnd MGL_MOC_FILES ../include/mgl2/qt.h)
-       qt4_wrap_cpp(MGL_MOC_FILES ../include/mgl2/qt.h)
-       set(mgl_wnd_src ${mgl_wnd_src} qt.cpp ${MGL_MOC_FILES})
-       set(mgl_wnd_hdr ${mgl_wnd_hdr} ../include/mgl2/qt.h)
+       qt4_wrap_cpp(MGL_MOC_FILES ../include/mgl2/qmathgl.h)
+       add_library(mgl-qt SHARED qt.cpp ${MGL_MOC_FILES} ../include/mgl2/qt.h ../include/mgl2/qmathgl.h)
+       add_library(mgl-qt-static STATIC qt.cpp ${MGL_MOC_FILES} ../include/mgl2/qt.h ../include/mgl2/qmathgl.h)
+       set_target_properties(mgl-qt-static PROPERTIES OUTPUT_NAME "mgl-qt")
+       set_target_properties(mgl-qt PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-qt-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-qt PROPERTIES SOVERSION 7.0.0)
+       target_link_libraries(mgl-qt mgl)
+       target_link_libraries(mgl-qt ${QT_LIBRARIES})
+
+       install(
+               TARGETS mgl-qt mgl-qt-static
+               RUNTIME DESTINATION bin
+               ARCHIVE DESTINATION lib
+               LIBRARY DESTINATION lib
+       )
 endif(MGL_HAVE_QT)
 
-add_library(mgl-wnd SHARED ${mgl_wnd_src} ${mgl_wnd_hdr})
-add_library(mgl-wnd-static STATIC ${mgl_wnd_src} ${mgl_wnd_hdr})
-set_target_properties(mgl-wnd-static PROPERTIES OUTPUT_NAME "mgl-wnd")
-set_target_properties(mgl-wnd PROPERTIES CLEAN_DIRECT_OUTPUT 1)
-set_target_properties(mgl-wnd-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
-set_target_properties(mgl-wnd PROPERTIES SOVERSION 6.0.0)
-target_link_libraries(mgl-wnd mgl)
 
+#if(MGL_HAVE_QT AND MGL_HAVE_WX AND MGL_HAVE_FLTK)
+if(MGL_HAVE_QT AND MGL_HAVE_FLTK)
+       include_directories(${FLTK_INCLUDE_DIR})
+#      include(${wxWidgets_USE_FILE})
+       include(${QT_USE_FILE})
 
-if(MGL_HAVE_PTHREAD)
-       target_link_libraries(mgl-wnd ${CMAKE_THREAD_LIBS_INIT})
-endif(MGL_HAVE_PTHREAD)
+#      set(MGL_WND_SRC wx.cpp ../include/mgl2/wx.h qt.cpp ../include/mgl2/qt.h ../include/mgl2/qmathgl.h fltk.cpp ../include/mgl2/fltk.h)
+       set(MGL_WND_SRC qt.cpp ../include/mgl2/qt.h ../include/mgl2/qmathgl.h fltk.cpp ../include/mgl2/fltk.h)
 
-if(MGL_HAVE_FLTK)
-       target_link_libraries(mgl-wnd ${FLTK_LIBRARIES})
-endif(MGL_HAVE_FLTK)
+       add_library(mgl-wnd SHARED ${MGL_WND_SRC} ${MGL_MOC_FILES})
+       add_library(mgl-wnd-static STATIC ${MGL_WND_SRC} ${MGL_MOC_FILES})
 
-if(MGL_HAVE_WX)
-       target_link_libraries(mgl-wnd ${wxWidgets_LIBRARIES})
-endif(MGL_HAVE_WX)
+       set_target_properties(mgl-wnd-static PROPERTIES OUTPUT_NAME "mgl-wnd")
+       set_target_properties(mgl-wnd PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-wnd-static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
+       set_target_properties(mgl-wnd PROPERTIES SOVERSION 7.0.0)
 
-if(MGL_HAVE_QT)
+       target_link_libraries(mgl-wnd mgl)
        target_link_libraries(mgl-wnd ${QT_LIBRARIES})
-endif(MGL_HAVE_QT)
+#      target_link_libraries(mgl-wnd ${wxWidgets_LIBRARIES})
+       target_link_libraries(mgl-wnd ${FLTK_LIBRARIES})
 
-install(
-       TARGETS mgl-wnd mgl-wnd-static
-       RUNTIME DESTINATION bin
-       ARCHIVE DESTINATION lib
-       LIBRARY DESTINATION lib
-)
+       install(
+               TARGETS mgl-wnd mgl-wnd-static
+               RUNTIME DESTINATION bin
+               ARCHIVE DESTINATION lib
+               LIBRARY DESTINATION lib
+       )
+#endif(MGL_HAVE_QT AND MGL_HAVE_WX AND MGL_HAVE_FLTK)
+endif(MGL_HAVE_QT AND MGL_HAVE_FLTK)

diff --git a/widgets/fltk.cpp b/widgets/fltk.cpp
index 3d22f35dc68b6885acc2cde66bffedf094f6939d..963bcbf9ec583747a2d281402e0a8540f6117369 100644 (file)
--- a/widgets/fltk.cpp
+++ b/widgets/fltk.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mgl_fltk.cpp is part of Math Graphic Library
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -33,6 +33,7 @@
 #endif
 #endif
 //-----------------------------------------------------------------------------
+#include "mgl2/canvas_wnd.h"
 #include "mgl2/fltk.h"
 //-----------------------------------------------------------------------------
 #include "xpm/alpha_on.xpm"
@@ -55,24 +56,56 @@
 #include "xpm/zoom_out.xpm"
 #include "xpm/rotate.xpm"
 #include "xpm/ok.xpm"
+#include "xpm/wire.xpm"
 //-----------------------------------------------------------------------------
 Fl_Pixmap xpm_a1(alpha_xpm), xpm_a2(alpha_on_xpm);
 Fl_Pixmap xpm_l1(light_on_xpm), xpm_l2(light_xpm);
 Fl_Pixmap xpm_z1(zoom_in_xpm), xpm_z2(zoom_on_xpm);
 Fl_Pixmap xpm_s1(show_sl_xpm), xpm_s2(show_on_xpm);
 Fl_Pixmap xpm_r1(rotate_xpm), xpm_r2(rotate_on_xpm);
+Fl_Pixmap xpm_wire(wire_xpm);
+//-----------------------------------------------------------------------------
+/// Class allows the window creation for displaying plot bitmap with the help of FLTK library
+/** NOTE!!! All frames are saved in memory. So animation with many frames require a lot memory and CPU time (for example, for mouse rotation).*/
+class mglCanvasFL : public mglCanvasWnd
+{
+public:
+using mglCanvasWnd::Window;
+       Fl_Window *Wnd;         ///< Pointer to window
+       Fl_MGLView *mgl;        ///< Pointer to MGL widget with buttons
+
+       mglCanvasFL();
+       ~mglCanvasFL();
+
+       /// Create a window for plotting. Now implemeted only for GLUT.
+       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p), const char *title,
+                                               void *par=NULL, void (*reload)(void *p)=NULL, bool maximize=false);
+       /// Switch on/off transparency (do not overwrite switches in user drawing function)
+       void ToggleAlpha();
+       /// Switch on/off lighting (do not overwrite switches in user drawing function)
+       void ToggleLight();
+       void ToggleRotate();    ///< Switch on/off rotation by mouse
+       void ToggleZoom();              ///< Switch on/off zooming by mouse
+       void ToggleNo();                ///< Switch off all zooming and rotation
+       void Update();                  ///< Update picture by calling user drawing function
+       void Adjust();                  ///< Adjust size of bitmap to window size
+       void GotoFrame(int d);  ///< Show arbitrary frame (use relative step)
+       void Animation();       ///< Run animation (I'm too lasy to change it)
+};
 //-----------------------------------------------------------------------------
 void mgl_ask_fltk(const wchar_t *quest, wchar_t *res)
 {
        static char buf[1024];
 #if FL_MINOR_VERSION>=3
        fl_utf8fromwc(buf, 1024, quest, wcslen(quest)+1);
-       const char *str = fl_input(buf,"");
-       fl_utf8towc(str, strlen(str)+1, res, 1024);
+       const char *str = fl_input("%s",buf,"");
+       if(str) fl_utf8towc(str, strlen(str)+1, res, 1024);
+       else            *res=0;
 #else
        wcstombs(buf,quest,wcslen(quest)+1);
-       const char *str = fl_input(buf,"");
-       mbstowcs(res,str, strlen(str)+1);
+       const char *str = fl_input("%s",buf,"");
+       if(str) mbstowcs(res,str, strlen(str)+1);
+       else            *res=0;
 #endif
 }
 //-----------------------------------------------------------------------------
@@ -80,7 +113,7 @@ void mgl_ask_fltk(const wchar_t *quest, wchar_t *res)
 //             class Fl_MathGL
 //
 //-----------------------------------------------------------------------------
-Fl_MathGL::Fl_MathGL(int xx, int yy, int ww, int hh, char *lbl) : Fl_Widget(xx,yy,ww,hh,lbl)
+Fl_MathGL::Fl_MathGL(int xx, int yy, int ww, int hh, const char *lbl) : Fl_Widget(xx,yy,ww,hh,lbl)
 {
        gr = new mglCanvas;
        tet=phi=x1=y1=0;        x2=y2=1;
@@ -90,16 +123,19 @@ Fl_MathGL::Fl_MathGL(int xx, int yy, int ww, int hh, char *lbl) : Fl_Widget(xx,y
        draw_par = 0;   draw_func = 0;  draw_cl = 0;
 }
 //-----------------------------------------------------------------------------
-Fl_MathGL::~Fl_MathGL()        {}
+Fl_MathGL::~Fl_MathGL()        {       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);   }
 //-----------------------------------------------------------------------------
-void Fl_MathGL::set_graph(mglCanvas *GR)
+void Fl_MathGL::set_graph(HMGL GR)
 {
-       if(!GR) return;
-       delete gr;      gr=GR;
+       mglCanvas *gg = dynamic_cast<mglCanvas *>(GR);
+       if(!gg) return;
+       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);
+       gr=gg;  mgl_use_graph(gg,1);
 }
 //-----------------------------------------------------------------------------
 void Fl_MathGL::draw()
 {
+       // TODO: add active points drawing here (from Qt)
        const unsigned char *g = gr ? gr->GetBits() : 0;
        int i, hh=gr->GetHeight(), ww=gr->GetWidth();
        if(g)   fl_draw_image(g, x(), y(), ww, hh, 3);
@@ -127,9 +163,14 @@ void Fl_MathGL::update()
                gr->Alpha(flag&1);      gr->Light(flag&2);
                if(tet_val)     tet = tet_val->value();
                if(phi_val)     phi = phi_val->value();
-               gr->Zoom(x1,y1,x2,y2);  gr->View(phi,tet);
+               gr->Zoom(x1,y1,x2,y2);  gr->View(phi,0,tet);
+               setlocale(LC_NUMERIC, "C");
+               // use frames for quickly redrawing while adding/changing primitives
+               if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4))    gr->NewFrame();
                if(draw_func)   draw_func(gr, draw_par);        // drawing itself
                else    if(draw_cl)     {       mglGraph g(gr); draw_cl->Draw(&g);      }
+               if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4))    gr->EndFrame();
+               setlocale(LC_NUMERIC, "");
                const char *buf = gr->Mess.c_str();
                if(*buf)        fl_message("%s",buf);
        }
@@ -226,7 +267,7 @@ int Fl_MathGL::handle(int code)
        else if(code==FL_DRAG)
        {
                xe=Fl::event_x();       ye=Fl::event_y();
-               mreal ff = 240./sqrt(w()*h());
+               mreal ff = 240./sqrt(mreal(w()*h()));
                if(rotate)
                {
                        phi += (x0-xe)*ff;
@@ -297,8 +338,8 @@ void Fl_MGLView::setoff(int &val, Fl_Button *b, const char *txt)
        //update();
 }
 //-----------------------------------------------------------------------------
-void mgl_wire_cb(Fl_Widget*, void* v)
-{      if(v)   ((Fl_MGLView*)v)->toggle_wire();        }
+void mgl_grid_cb(Fl_Widget*, void* v)
+{      if(v)   ((Fl_MGLView*)v)->toggle_grid();        }
 //-------------------------------------------------------------------------
 void mgl_alpha_cb(Fl_Widget*, void* v) // alpha?xpm_a2:xpm_a1
 {      if(v)   ((Fl_MGLView*)v)->toggle_alpha();       }
@@ -335,7 +376,7 @@ void mglCanvasFL::ToggleRotate()    {       Fl::lock();     mgl_rotate_cb(0,mgl);   Fl::unlock(
 void Fl_MGLView::update()
 {
        FMGL->set_state(zoom_bt->value(), rotate_bt->value());
-       FMGL->set_flag(alpha + 2*light + 4*wire);
+       FMGL->set_flag(alpha + 2*light + 4*grid);
        FMGL->update();
 }
 void mgl_draw_cb(Fl_Widget*, void* v)
@@ -534,112 +575,89 @@ Fl_Menu_Item pop_graph[20] = {
        { 0,0,0,0,0,0,0,0,0 }
 };
 //-----------------------------------------------------------------------------
-Fl_Menu_Item mgl_menuitems[] = {
-       { gettext("Export"), 0, 0, 0, FL_SUBMENU,0,0,0,0 },
-               { gettext(".. as PNG"), FL_ALT + 'p', mgl_export_png_cb,0,0,0,0,0,0 },
-               { gettext(".. as PNG (solid)"), FL_ALT + 'f', mgl_export_pngn_cb,0,0,0,0,0,0 },
-               { gettext(".. as JPEG"),        FL_ALT + 'j', mgl_export_jpeg_cb,0,0,0,0,0,0 },
-               { gettext(".. as SVG"), FL_ALT + 's', mgl_export_svg_cb,0,0,0,0,0,0 },
-               { gettext(".. as vector EPS"),  FL_ALT + 'e', mgl_export_eps_cb,0,0,0,0,0,0 },
-               { gettext(".. as bitmap EPS"),  0, mgl_export_bps_cb, 0, FL_MENU_DIVIDER,0,0,0,0 },
-//             { gettext("Exit"),                      FL_ALT + 'x', quit_cb,0,0,0,0,0,0 },
-               { 0,0,0,0,0,0,0,0,0 },
-       { gettext("Graphics"), 0, 0, 0, FL_SUBMENU,0,0,0,0 },
-               { gettext("Alpha"),                     FL_ALT + 'a', mgl_alpha_cb, 0, FL_MENU_TOGGLE,0,0,0,0 },
-               { gettext("Light"),                     FL_ALT + 'l', mgl_light_cb, 0, FL_MENU_TOGGLE,0,0,0,0 },
-               { gettext("Copy graphics"),     0, 0, 0, FL_MENU_INACTIVE|FL_MENU_DIVIDER,0,0,0,0},
-               { gettext("Normal view"),       FL_ALT + ' ', mgl_norm_cb,0,0,0,0,0,0 },
-               { gettext("Redraw plot"),FL_F + 5, mgl_draw_cb,0,0,0,0,0,0 },
-               { gettext("Adjust size"),       FL_F + 6, mgl_adjust_cb,0,0,0,0,0,0 },
-               { gettext("Reload data"),       0, mgl_oncemore_cb,0,0,0,0,0,0 },
-               { 0,0,0,0,0,0,0,0,0 },
-       { gettext("Animate"), 0, 0, 0, FL_SUBMENU,0,0,0,0 },
-               { gettext("Slideshow"), FL_CTRL + FL_F + 5, mgl_sshow_cb, 0, FL_MENU_TOGGLE,0,0,0,0 },
-               { gettext("Next frame"),0, mgl_snext_cb,0,0,0,0,0,0 },
-               { gettext("Prev frame"),0, mgl_sprev_cb,0,0,0,0,0,0 },
-               { 0,0,0,0,0,0,0,0,0 },
-       { 0,0,0,0,0,0,0,0,0 }
-};
-//-----------------------------------------------------------------------------
-Fl_MGLView::Fl_MGLView(int xx, int yy, int ww, int hh, char *lbl) : Fl_Window(xx,yy,ww,hh,lbl)
+Fl_MGLView::Fl_MGLView(int xx, int yy, int ww, int hh, const char *lbl) : Fl_Window(xx,yy,ww,hh,lbl)
 {
-       alpha = light = sshow = 0;      menu = 0;
+       grid = alpha = light = sshow = 0;       menu = 0;
        next = prev = reload = NULL;    delay = NULL;
 
-       Fl_Group *g = new Fl_Group(0,30,410,30);
        Fl_Button *o;
+       Fl_Group *g = new Fl_Group(0,30,435,30);
 
-       alpha_bt = new Fl_Button(0, 31, 25, 25);        alpha_bt->type(FL_TOGGLE_BUTTON);
+       alpha_bt = new Fl_Button(0, 1, 25, 25); alpha_bt->type(FL_TOGGLE_BUTTON);
        alpha_bt->image(xpm_a1);        alpha_bt->callback(mgl_alpha_cb,this);
        alpha_bt->tooltip(gettext("Switch on/off transparency in the picture"));
-       alpha_bt->box(FL_PLASTIC_UP_BOX);                       alpha_bt->down_box(FL_PLASTIC_DOWN_BOX);
-       light_bt = new Fl_Button(25, 31, 25, 25);       light_bt->type(FL_TOGGLE_BUTTON);
+//     alpha_bt->box(FL_PLASTIC_UP_BOX);               alpha_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       light_bt = new Fl_Button(25, 1, 25, 25);        light_bt->type(FL_TOGGLE_BUTTON);
        light_bt->image(xpm_l1);        light_bt->callback(mgl_light_cb,this);
        light_bt->tooltip(gettext("Switch on/off lightning in the picture"));
-       light_bt->box(FL_PLASTIC_UP_BOX);                       light_bt->down_box(FL_PLASTIC_DOWN_BOX);
-
-       rotate_bt = new Fl_Button(55, 31, 25, 25);      rotate_bt->type(FL_TOGGLE_BUTTON);
+//     light_bt->box(FL_PLASTIC_UP_BOX);               light_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       grid_bt = new Fl_Button(50, 1, 25, 25); grid_bt->type(FL_TOGGLE_BUTTON);
+       grid_bt->image(xpm_wire);       grid_bt->callback(mgl_grid_cb,this);
+       grid_bt->tooltip(gettext("Switch on/off grid drawing"));
+       //      grid_bt->box(FL_PLASTIC_UP_BOX);                grid_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       
+       rotate_bt = new Fl_Button(80, 1, 25, 25);rotate_bt->type(FL_TOGGLE_BUTTON);
        rotate_bt->image(xpm_r1);       rotate_bt->callback(mgl_rotate_cb,this);
        rotate_bt->tooltip(gettext("Rotate picture by holding left mouse button"));
-       rotate_bt->box(FL_PLASTIC_UP_BOX);                      rotate_bt->down_box(FL_PLASTIC_DOWN_BOX);
-       zoom_bt = new Fl_Button(80, 31, 25, 25);        zoom_bt->type(FL_TOGGLE_BUTTON);
+//     rotate_bt->box(FL_PLASTIC_UP_BOX);              rotate_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       zoom_bt = new Fl_Button(105, 1, 25, 25);        zoom_bt->type(FL_TOGGLE_BUTTON);
        zoom_bt->image(xpm_z1); zoom_bt->callback(mgl_zoom_cb,this);
        zoom_bt->tooltip(gettext("Zoom in selected region of the picture"));
-       zoom_bt->box(FL_PLASTIC_UP_BOX);                        zoom_bt->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(105, 31, 25, 25);             o->tooltip(gettext("Return picture to normal zoom"));
+//     zoom_bt->box(FL_PLASTIC_UP_BOX);                        zoom_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(130, 1, 25, 25);              o->tooltip(gettext("Return picture to normal zoom"));
        o->image(new Fl_Pixmap(zoom_out_xpm));  o->callback(mgl_norm_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
 
-       o = new Fl_Button(135, 31, 25, 25);     o->tooltip(gettext("Refresh the picture"));
+       o = new Fl_Button(160, 1, 25, 25);      o->tooltip(gettext("Refresh the picture"));
        o->image(new Fl_Pixmap(ok_xpm));        o->callback(mgl_draw_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
 
        Fl_Counter *tet, *phi;
-       tet = new Fl_Counter(170, 31, 90, 25, 0);       tet->callback(mgl_draw_cb,this);
-       phi = new Fl_Counter(265, 31, 90, 25, 0);       phi->callback(mgl_draw_cb,this);
+       tet = new Fl_Counter(195, 1, 90, 25, 0);        tet->callback(mgl_draw_cb,this);
+       phi = new Fl_Counter(290, 1, 90, 25, 0);        phi->callback(mgl_draw_cb,this);
        tet->lstep(10); tet->step(1);   tet->range(-180,180);
        tet->tooltip(gettext("Theta angle (tilt z-axis)"));
        phi->lstep(10); phi->step(1);   phi->range(-180,180);
        phi->tooltip(gettext("Phi angle (rotate in x*y plane)"));
-       tet->box(FL_PLASTIC_UP_BOX);    phi->box(FL_PLASTIC_UP_BOX);
+//     tet->box(FL_PLASTIC_UP_BOX);    phi->box(FL_PLASTIC_UP_BOX);
        g->end();       g->resizable(0);
 
-       g = new Fl_Group(0,60,30,260);
-       o = new Fl_Button(1, 60, 25, 25);               o->tooltip(gettext("Shift the picture up"));
+       g = new Fl_Group(0,30,30,260);
+       o = new Fl_Button(1, 30, 25, 25);               o->tooltip(gettext("Shift the picture up"));
        o->image(new Fl_Pixmap(up_1_xpm));              o->callback(mgl_su_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 85, 25, 25);               o->tooltip(gettext("Shift the picture left"));
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 55, 25, 25);               o->tooltip(gettext("Shift the picture left"));
        o->image(new Fl_Pixmap(left_1_xpm));    o->callback(mgl_sl_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 110, 25, 25);              o->tooltip(gettext("Zoom in the picture"));
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 80, 25, 25);               o->tooltip(gettext("Zoom in the picture"));
        o->image(new Fl_Pixmap(zoom_1_xpm));    o->callback(mgl_sz_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 135, 25, 25);              o->tooltip(gettext("Zoom out the picture"));
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 105, 25, 25);              o->tooltip(gettext("Zoom out the picture"));
        o->image(new Fl_Pixmap(norm_1_xpm));    o->callback(mgl_so_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 160, 25, 25);              o->tooltip(gettext("Shift the picture right"));
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 130, 25, 25);              o->tooltip(gettext("Shift the picture right"));
        o->image(new Fl_Pixmap(right_1_xpm));   o->callback(mgl_sr_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 185, 25, 25);              o->tooltip(gettext("Shift the picture down"));
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 155, 25, 25);              o->tooltip(gettext("Shift the picture down"));
        o->image(new Fl_Pixmap(down_1_xpm));    o->callback(mgl_sd_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
 
-       o = new Fl_Button(1, 215, 25, 25);              o->tooltip(gettext("Show previous frame in slideshow"));
+       o = new Fl_Button(1, 185, 25, 25);              o->tooltip(gettext("Show previous frame in slideshow"));
        o->image(new Fl_Pixmap(prev_sl_xpm));   o->callback(mgl_sprev_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
-       anim_bt = new Fl_Button(1, 240, 25, 25);        anim_bt->type(FL_TOGGLE_BUTTON);
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+       anim_bt = new Fl_Button(1, 210, 25, 25);        anim_bt->type(FL_TOGGLE_BUTTON);
        anim_bt->image(xpm_s1); anim_bt->callback(mgl_sshow_cb,this);
        anim_bt->tooltip(gettext("Run/Stop slideshow (graphics animation)"));
-       anim_bt->box(FL_PLASTIC_UP_BOX);                anim_bt->down_box(FL_PLASTIC_DOWN_BOX);
-       o = new Fl_Button(1, 265, 25, 25);              o->tooltip(gettext("Show next frame in slideshow"));
+//     anim_bt->box(FL_PLASTIC_UP_BOX);                anim_bt->down_box(FL_PLASTIC_DOWN_BOX);
+       o = new Fl_Button(1, 235, 25, 25);              o->tooltip(gettext("Show next frame in slideshow"));
        o->image(new Fl_Pixmap(next_sl_xpm));   o->callback(mgl_snext_cb,this);
-       o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
+//     o->box(FL_PLASTIC_UP_BOX);      o->down_box(FL_PLASTIC_DOWN_BOX);
 
        g->end();       g->resizable(0);
 
-       scroll = new Fl_Scroll(30, 60, 800, 600);
+       scroll = new Fl_Scroll(30, 30, 800, 600);
        //scroll->begin();
-       FMGL = new Fl_MathGL(30, 60, 800, 600);
+       FMGL = new Fl_MathGL(30, 30, 800, 600);
        FMGL->tet_val = tet;
        FMGL->phi_val = phi;
        FMGL->set_popup(pop_graph,FMGL,this);
@@ -668,18 +686,45 @@ void mgl_fl_prev(void *v) {       ((mglCanvasWnd*)v)->PrevFrame();        }       ///< Callback fun
 void mgl_fl_reload(void *v)    {       ((mglCanvasWnd*)v)->ReLoad();   }               ///< Callback function for reloading
 mreal mgl_fl_delay(void *v)    {       return ((mglCanvasWnd*)v)->GetDelay();  }       ///< Callback function for delay
 //-----------------------------------------------------------------------------
+void mgl_makemenu_fltk(Fl_Menu_ *m, Fl_MGLView *w)
+{
+       m->add("Graphics/Alpha", "^t", mgl_alpha_cb, w, FL_MENU_TOGGLE);
+       m->add("Graphics/Light", "^l", mgl_light_cb, w, FL_MENU_TOGGLE);
+       m->add("Graphics/Grid", "^g", mgl_grid_cb, w, FL_MENU_TOGGLE|FL_MENU_DIVIDER);
+
+       m->add("Graphics/Restore", "^ ", mgl_norm_cb, w);
+       m->add("Graphics/Redraw", "f5", mgl_draw_cb, w);
+       m->add("Graphics/Adjust size", "f6", mgl_adjust_cb, w);
+       m->add("Graphics/Reload data", "f9", mgl_oncemore_cb, w);
+       //TODO  m->add("Graphics/Stop", "f7", mgl_stop_cb, w);
+       //TODO  m->add("Graphics/Copy graphics","+^c", mgl_copyimg_cb, w);
+       
+       m->add("Graphics/Export/as PNG", "#p", mgl_export_png_cb, w);
+       m->add("Graphics/Export/as solid PNG", "#f", mgl_export_pngn_cb, w);
+       m->add("Graphics/Export/as JPEG", "#j", mgl_export_jpeg_cb, w);
+       m->add("Graphics/Export/as SVG", "#s", mgl_export_svg_cb, w);
+       m->add("Graphics/Export/as vector EPS", "#e", mgl_export_eps_cb, w);
+       m->add("Graphics/Export/as bitmap EPS", "", mgl_export_bps_cb, w);
+
+       m->add("Graphics/Animation/Slideshow", "^f5", mgl_sshow_cb, w, FL_MENU_TOGGLE);
+       m->add("Graphics/Animation/Next frame", "#<", mgl_snext_cb, w);
+       m->add("Graphics/Animation/Prev frame", "#>", mgl_sprev_cb, w);
+       //TODO  m->add("Graphics/Animation/Setup", "", mgl_ssetup_cb, w);
+}
+//-----------------------------------------------------------------------------
 void mglCanvasFL::Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p), const char *title, void *par, void (*reload)(void *p), bool maximize)
 {
        Fl::lock();
        SetDrawFunc(draw, par, reload);
        if(Wnd) {       Wnd->label(title);      Wnd->show();    return; }
 
-       Wnd = new Fl_Double_Window(0,0,830,660,title);
+       Wnd = new Fl_Double_Window(830,660,title);
 
-       mgl = new Fl_MGLView(0,0,830,660);              mgl->par = this;
+       mgl = new Fl_MGLView(0,30,830,630);             mgl->par = this;
 
        mgl->menu = new Fl_Menu_Bar(0, 0, 830, 30);
-       mgl->menu->copy(mgl_menuitems, this);
+       mgl_makemenu_fltk(mgl->menu, mgl);
+
        mgl->next = mgl_fl_next;        mgl->reload = mgl_fl_reload;
        mgl->prev = mgl_fl_prev;        mgl->delay= mgl_fl_delay;
        mgl->FMGL->set_graph(this);
@@ -709,3 +754,24 @@ HMGL mgl_create_graph_fltk(int (*draw)(HMGL gr, void *p), const char *title, voi
 }
 int mgl_fltk_run()             {       return Fl::run();       }
 //-----------------------------------------------------------------------------
+uintptr_t mgl_create_graph_fltk_(const char *title, int l)
+{
+       char *s = new char[l+1];        memcpy(s,title,l);      s[l]=0;
+       uintptr_t t = uintptr_t(mgl_create_graph_fltk(0,s,0,0));
+       delete []s;     return t;
+}
+int mgl_fltk_run_()    {       return mgl_fltk_run();  }
+//-----------------------------------------------------------------------------
+void *mgl_fltk_tmp(void *)
+{      mgl_fltk_run(); return 0;       }
+//-----------------------------------------------------------------------------
+int mgl_fltk_thr()             // NOTE: Qt couldn't be running in non-primary thread
+{
+#if MGL_HAVE_PTHREAD
+       static pthread_t thr;
+       pthread_create(&thr,0,mgl_fltk_tmp,0);
+       pthread_detach(thr);
+#endif
+       return 0;       // stupid, but I don't want keep result returned by Fl::Run()
+}
+//-----------------------------------------------------------------------------

diff --git a/widgets/glut.cpp b/widgets/glut.cpp
index b01922deb9187021ac651fdf87142c70af097498..175af4827ad6dbfdc1a8c2d69626f574290025c0 100644 (file)
--- a/widgets/glut.cpp
+++ b/widgets/glut.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************\r
  * mgl_glut.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
  *                                                                         *\r
  *   This program is free software; you can redistribute it and/or modify  *\r
  *   it under the terms of the GNU Library General Public License as       *\r
@@ -36,9 +36,53 @@
 \r
 #include "mgl2/glut.h"\r
 \r
-mglCanvasGLUT *_mgl_glwnd;\r
 void _mgl_key_up(unsigned char ch,int ,int );\r
 //-----------------------------------------------------------------------------\r
+/// Class allows the window creation under OpenGL with the help of GLUT library\r
+class mglCanvasGLUT : public mglCanvasGL\r
+{\r
+friend void _mgl_display();\r
+friend void _mgl_key_up(unsigned char ch,int ,int );\r
+friend void _mgl_timer(int);\r
+public:\r
+       mreal Delay;    ///< Delay for animation in seconds\r
+       bool AutoClf;           ///< Clear canvas between drawing\r
+\r
+       mglCanvasGLUT();\r
+       mglCanvasGLUT(int (*draw)(mglGraph *gr, void *p), const char *title, void *par=NULL,\r
+                               void (*reload)(int next, void *p)=NULL, bool maximize=false);\r
+       virtual ~mglCanvasGLUT();\r
+       // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ��������� ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
+       /// Create a window for plotting. Now implemeted only for GLUT.\r
+       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p),\r
+                                               const char *title,void *par=NULL,\r
+                                               void (*reload)(void *p)=NULL, bool maximize=false);\r
+       void Window(int argc, char **argv, int (*draw)(mglGraph *gr),\r
+                               const char *title, bool maximize=false)\r
+       {       Window(argc,argv,draw?mgl_draw_graph:0,title,(void*)draw,0,maximize);   }\r
+       /// Create a window for plotting based on class mglDraw.\r
+       void Window(int argc, char **argv, const char *title, mglDraw *draw, bool maximize=false)\r
+       {       Window(argc, argv, draw?mgl_draw_class:0, title, draw, mgl_reload_class, maximize);     }\r
+       /// Switch on/off transparency (do not overwrite switches in user drawing function)\r
+       void ToggleAlpha()      {       _mgl_key_up('r',0,0);   }\r
+       /// Switch on/off lighting (do not overwrite switches in user drawing function)\r
+       void ToggleLight()      {       _mgl_key_up('f',0,0);   }\r
+       void ToggleNo()         {       _mgl_key_up('n',0,0);   }       ///< Switch off all zooming and rotation\r
+       void Update()           {       _mgl_key_up(' ',0,0);   }       ///< Update picture by calling user drawing function\r
+       void ReLoad(bool o)     {       _mgl_key_up(o?']':'[',0,0);     }       ///< Reload user data and update picture\r
+       void NextFrame()        {       _mgl_key_up('.',0,0);   }       ///< Show next frame (if one)\r
+       void PrevFrame()        {       _mgl_key_up(',',0,0);   }       ///< Show previous frame (if one)\r
+       void Animation()        {       _mgl_key_up('m',0,0);   }       ///< Run slideshow (animation) of frames\r
+private:\r
+       void (*LoadFunc)(void *par);\r
+       void *FuncPar;          ///< Parameters for drawing function mglCanvas::DrawFunc.\r
+       /// Drawing function for window procedure. It should return the number of frames.\r
+       int (*DrawFunc)(mglBase *gr, void *par);\r
+       int NumFig;             ///< Number of figures in the list. If 0 then no list and mglCanvas::DrawFunc will called for each drawing.\r
+       int curr_fig;   ///< Current figure in the list.\r
+       int tt;                 ///< Temporal variable\r
+} *_mgl_glwnd;\r
+//-----------------------------------------------------------------------------\r
 void _mgl_timer(int)\r
 {\r
        if(!_mgl_glwnd) return;\r
@@ -77,11 +121,11 @@ void _mgl_key_up(unsigned char ch,int ,int )
        }\r
        if(ch=='w')     _mgl_glwnd->View(-10,0,0);\r
        if(ch=='s')     _mgl_glwnd->View(10,0,0);\r
-       if(ch=='a')     _mgl_glwnd->View(0,-10,0);\r
-       if(ch=='d')     _mgl_glwnd->View(0,10,0);\r
-       if(ch=='q')     _mgl_glwnd->View(0,0,-10);\r
-       if(ch=='e')     _mgl_glwnd->View(0,0,10);\r
-       if(ch=='n')     _mgl_glwnd->Identity();\r
+       if(ch=='a')     _mgl_glwnd->View(0,0,-10);\r
+       if(ch=='d')     _mgl_glwnd->View(0,0,10);\r
+       if(ch=='q')     _mgl_glwnd->View(0,-10,0);\r
+       if(ch=='e')     _mgl_glwnd->View(0,10,0);\r
+       if(ch=='n')     _mgl_glwnd->Restore();\r
        if(ch==',')\r
                _mgl_glwnd->curr_fig = _mgl_glwnd->curr_fig == 1 ? _mgl_glwnd->NumFig : _mgl_glwnd->curr_fig-1;\r
        if(ch=='.')\r
@@ -190,15 +234,3 @@ HMGL mgl_create_graph_glut(int (*draw)(HMGL gr, void *p), const char *title, voi
 //-----------------------------------------------------------------------------\r
 mglCanvasGLUT::mglCanvasGLUT() : mglCanvasGL() {}\r
 //-----------------------------------------------------------------------------\r
-#if MGL_HAVE_FLTK\r
-HMGL mgl_create_graph_fltk(int (*)(HMGL gr, void *p), const char *, void *, void (*)(void *p))\r
-{      return NULL;    }\r
-int mgl_fltk_run(){return 0;}\r
-#endif\r
-//-----------------------------------------------------------------------------\r
-#if MGL_HAVE_QT\r
-HMGL mgl_create_graph_qt(int (*)(HMGL gr, void *p), const char *, void *, void (*)(void *p))\r
-{      return NULL;    }\r
-int mgl_qt_run(){return 0;}\r
-#endif\r
-//-----------------------------------------------------------------------------\r

diff --git a/widgets/qt.cpp b/widgets/qt.cpp
index a65c241ae9a2c4fd93360eb980f7302bac711b54..1c9f83349821ef10b4134a19682d5621d05f59af 100644 (file)
--- a/widgets/qt.cpp
+++ b/widgets/qt.cpp
@@ -1,6 +1,6 @@
 /***************************************************************************
  * mgl_qt.cpp is part of Math Graphic Library                              *
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *
  *                                                                         *
  *   This program is free software; you can redistribute it and/or modify  *
  *   it under the terms of the GNU Library General Public License as       *
@@ -36,29 +36,48 @@
 #include <QPrintDialog>
 #include <QFileDialog>
 #include <QInputDialog>
+#include <limits.h>
+
+#include "mgl2/canvas_wnd.h"
+#include "mgl2/qmathgl.h"
 #include "mgl2/qt.h"
 //-----------------------------------------------------------------------------
+#define MGL_MAX_LINES  (INT_MAX-1000)
 #if !defined(WIN32) && !defined(__APPLE__)
 #include <X11/Xlib.h>
 #endif
 //-----------------------------------------------------------------------------
-#include "xpm/fileprint.xpm"
-#include "xpm/copy.xpm"
-#include "xpm/left_1.xpm"
-#include "xpm/right_1.xpm"
-#include "xpm/down_1.xpm"
-#include "xpm/norm_1.xpm"
-#include "xpm/zoom_1.xpm"
-#include "xpm/up_1.xpm"
-#include "xpm/alpha.xpm"
-#include "xpm/light.xpm"
-#include "xpm/zoom_in.xpm"
-#include "xpm/zoom_out.xpm"
-#include "xpm/rotate.xpm"
-#include "xpm/ok.xpm"
-#include "xpm/show_sl.xpm"
-#include "xpm/next_sl.xpm"
-#include "xpm/prev_sl.xpm"
+/// Base class for windows containing MathGL graphics
+class mglCanvasQT : public mglCanvasWnd
+{
+public:
+using mglCanvasWnd::Window;
+       int sshow;              ///< Current state of animation switch (toggle button)
+       QMathGL *QMGL;  ///< Control which draw graphics
+       QMainWindow *Wnd;       ///< Pointer to window
+
+       mglCanvasQT();
+
+       /// Create a window for plotting. Now implemeted only for GLUT.
+       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p),const char *title,
+                                               void *par=NULL, void (*reload)(void *p)=NULL, bool maximize=false);
+       /// Switch on/off transparency (do not overwrite switches in user drawing function)
+       void ToggleAlpha();
+       /// Switch on/off lighting (do not overwrite switches in user drawing function)
+       void ToggleLight();
+       void ToggleRotate();///< Switch on/off rotation by mouse
+       void ToggleZoom();      ///< Switch on/off zooming by mouse
+       void ToggleNo();        ///< Switch off all zooming and rotation
+       void Update();          ///< Update picture by calling user drawing function
+       void Adjust();          ///< Adjust size of bitmap to window size
+       void GotoFrame(int d);  ///< Show arbitrary frame (use relative step)
+       void Animation();               ///< Run slideshow (animation) of frames
+
+protected:
+       QScrollArea *scroll;    ///< Scrolling area
+       QMenu *popup;                   ///< Popup menu
+       QSpinBox *tet, *phi;    ///< Spin box for angles
+};
 //-----------------------------------------------------------------------------
 void mgl_ask_qt(const wchar_t *quest, wchar_t *res)
 {      QInputDialog::getText(QApplication::activeWindow(), "MathGL",
@@ -72,18 +91,33 @@ QMathGL::QMathGL(QWidget *parent, Qt::WindowFlags f) : QWidget(parent, f)
 {
        autoResize = false;     draw_par = 0;   draw_func = 0;
        gr = new mglCanvas;             appName = "MathGL";
-       popup = 0;              grBuf = 0;      draw = 0;
+       popup = 0;      grBuf = 0;      draw = 0;
        phi = tet = per = 0;
-       x1 = y1 = 0;    x2 = y2 = 1;
+       x1 = y1 = ax1 = ay1 = 0;        x2 = y2 = ax2 = ay2 = 1;
        alpha = light = zoom = rotate = grid = false;
        resize(600, 400);       gr->set(MGL_CLF_ON_UPD);
        timer = new QTimer(this);
+       enableWheel = enableMouse = true;
 //     resize(graph->GetWidth(), graph->GetHeight());
 //     mglConvertFromGraph(pic, graph, &grBuf);
        connect(timer, SIGNAL(timeout()), this, SLOT(nextSlide()));
 }
 //-----------------------------------------------------------------------------
-QMathGL::~QMathGL()    {       delete gr;      if(grBuf)       delete []grBuf; }
+QMathGL::~QMathGL()
+{
+       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);
+       if(grBuf)       delete []grBuf;
+}
+//-----------------------------------------------------------------------------
+double QMathGL::getRatio()     {       return double(gr->GetWidth())/gr->GetHeight();  }
+//-----------------------------------------------------------------------------
+void QMathGL::setGraph(HMGL GR)        ///< Set grapher object
+{
+       mglCanvas *gg = dynamic_cast<mglCanvas *>(GR);
+       if(!gg) return;
+       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);
+       gr=gg;  mgl_use_graph(gg,1);
+}
 //-----------------------------------------------------------------------------
 void QMathGL::paintEvent(QPaintEvent *)
 {
@@ -95,7 +129,7 @@ void QMathGL::paintEvent(QPaintEvent *)
                paint.drawText(0,12,mousePos);
        if(grid)
        {
-               int i, h=pic.height(), w=pic.width();
+               long i, d, h=pic.height(), w=pic.width();
                paint.setPen(QColor(192,192,192));
                for(i=1;i<10;i++)
                {
@@ -104,6 +138,16 @@ void QMathGL::paintEvent(QPaintEvent *)
                        paint.drawText(i*w/10,h,QString::number(i*0.1));
                        paint.drawLine(i*w/10,0,i*w/10,h);
                }
+               paint.setPen(QColor(0,0,0));
+               d = (h>w?w:h)/100;
+               if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4))
+                       for(i=0;i<(long)gr->Act.size();i++)
+                       {
+                               const mglActivePos &p=gr->Act[i];
+                               QRect rf(p.x-d/2,p.y-d/2-1,d,d);
+                               paint.drawRect(rf);
+                               paint.fillRect(rf,QBrush(QColor(127,255,63)));
+                       }
        }
        paint.end();
 }
@@ -134,7 +178,7 @@ void QMathGL::setLight(bool l)
 {      if(light!=l)    {       light = l;      emit lightChanged(l);   update();       }       }
 //-----------------------------------------------------------------------------
 void QMathGL::setGrid(bool g)
-{      if(grid!=g)     {       grid = g;       emit gridChanged(g);    refresh();      }       }
+{      if(grid!=g)     {       grid = g;       emit gridChanged(g);    refresh();      }       }
 //-----------------------------------------------------------------------------
 void QMathGL::setRotate(bool r)
 {
@@ -150,39 +194,44 @@ void QMathGL::setZoom(bool z)
 }
 //-----------------------------------------------------------------------------
 void QMathGL::shiftDown()
-{      mreal d=(y2-y1)/3;      y1+=d;  y2+=d;  refresh();      }
+{      mreal d=(y2-y1)/4;      y1+=d;  y2+=d;  refresh();      }
 //-----------------------------------------------------------------------------
 void QMathGL::shiftUp()
-{      mreal d=(y2-y1)/3;      y1-=d;  y2-=d;  refresh();      }
+{      mreal d=(y2-y1)/4;      y1-=d;  y2-=d;  refresh();      }
 //-----------------------------------------------------------------------------
 void QMathGL::shiftRight()
-{      mreal d=(x2-x1)/3;      x1-=d;  x2-=d;  refresh();      }
+{      mreal d=(x2-x1)/4;      x1-=d;  x2-=d;  refresh();      }
 //-----------------------------------------------------------------------------
 void QMathGL::shiftLeft()
-{      mreal d=(x2-x1)/3;      x1+=d;  x2+=d;  refresh();      }
+{      mreal d=(x2-x1)/4;      x1+=d;  x2+=d;  refresh();      }
 //-----------------------------------------------------------------------------
 void QMathGL::zoomIn()
 {
-       mreal d;
-       d = (y2-y1)/4;  y1 += d;        y2 -= d;
-       d = (x2-x1)/4;  x1 += d;        x2 -= d;
+       mreal d,c;
+       d = (y2-y1)/4;  c = (y2+y1)/2;  y1 = c-d;       y2 = c+d;
+       d = (x2-x1)/4;  c = (x2+x1)/2;  x1 = c-d;       x2 = c+d;
        refresh();
 }
 //-----------------------------------------------------------------------------
 void QMathGL::zoomOut()
 {
-       mreal d;
-       d = (y2-y1)/2;  y1 -= d;        y2 += d;
-       d = (x2-x1)/2;  x1 -= d;        x2 += d;
+       mreal d,c;
+       d = (y2-y1);    c = (y2+y1)/2;  y1 = c-d;       y2 = c+d;
+       d = (x2-x1);    c = (x2+x1)/2;  x1 = c-d;       x2 = c+d;
        refresh();
 }
 //-----------------------------------------------------------------------------
 void QMathGL::restore()
 {
        setPhi(0);      setTet(0);      setPer(0);
-       x1=y1=0;        x2=y2=1;        zoom=rotate=false;
+       x1=y1=0;        x2=y2=1;                zoom=rotate=false;
        emit zoomChanged(false);        emit rotateChanged(false);
-       refresh();
+       if(ax1!=0 || ay1!=0 || ax2!=1 || ay2!=1)
+       {
+               ax1=ay1=0;              ax2=ay2=1;
+               gr->ZoomAxis(); update();
+       }
+       else refresh();
 }
 //-----------------------------------------------------------------------------
 void QMathGL::stop()   {       gr->Stop=true;  }       //{     thr->terminate();       }
@@ -199,16 +248,19 @@ void QMathGL::update()
 
        if(draw_func || draw)
        {
+               gr->ResetFrames();      // remove previous frames
                if(gr->get(MGL_CLF_ON_UPD))     gr->DefaultPlotParam();
                gr->Alpha(alpha);       gr->Light(light);
                if(!isHidden()) QApplication::setOverrideCursor(QCursor(Qt::WaitCursor));
-               setlocale(LC_NUMERIC, "C");     // NOTE: I'm not sure what I should selocale manually???
+               setlocale(LC_NUMERIC, "C");
+               // use frames for quickly redrawing while adding/changing primitives
+               if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4))    gr->NewFrame();
                if(draw_func)   draw_func(gr, draw_par);
                else if(draw)   {       mglGraph g(gr); draw->Draw(&g); }
+               if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4))    gr->EndFrame();
                setlocale(LC_NUMERIC, "");
                if(!isHidden()) QApplication::restoreOverrideCursor();
                emit refreshData();
-
                emit showWarn(gr->Mess.c_str());
                mousePos="";
        }
@@ -217,7 +269,30 @@ void QMathGL::update()
 //-----------------------------------------------------------------------------
 void QMathGL::refresh()
 {
-       gr->Zoom(x1,y1,x2,y2);  gr->View(phi,tet);      gr->Perspective(per);
+//     printf("%ld,%d\n",gr->GetPrmNum(),gr->GetNumFrame());   fflush(stdout);
+       if(gr->get(MGL_VECT_FRAME) && !(gr->GetQuality()&4) && gr->GetNumFrame()>0)
+       {
+               if(draw_func || draw)
+               {
+                       gr->Clf();      gr->GetFrame(gr->GetNumFrame()-1);
+                       mglParse pr;
+                       long i, n=primitives.count('\n');
+                       mglGraph gg(gr);
+                       setlocale(LC_NUMERIC, "C");
+                       gg.Push();      gg.SubPlot(1,1,0,"#");
+                       mglPoint x1=gr->Min, x2=gr->Max;
+                       gg.SetRanges(mglPoint(-1,-1,-1),mglPoint(1,1,1));
+                       for(i=0;i<n;i++)
+                       {
+                               gr->SetObjId(i+MGL_MAX_LINES);
+                               QString tst = primitives.section('\n',i,i);
+                               pr.Parse(&gg,primitives.section('\n',i,i).toAscii().constData(),i+MGL_MAX_LINES);
+                       }
+                       gg.SetRanges(x1,x2);    gg.Pop();       setlocale(LC_NUMERIC, "");
+                       
+               }
+               gr->Zoom(x1,y1,x2,y2);  gr->View(phi,0,tet);    gr->Perspective(per);
+       }
        mglConvertFromGraph(pic, gr, &grBuf);
        if(pic.size()!=size())  setSize(pic.width(), pic.height());
        repaint();
@@ -230,20 +305,23 @@ void QMathGL::mousePressEvent(QMouseEvent *ev)
                mglPoint p = gr->CalcXYZ(ev->x(), ev->y());
                mglCanvasWnd *g=dynamic_cast<mglCanvasWnd *>(gr);
                if(g)   g->LastMousePos = p;
-               mousePos.sprintf("x=%g, y=%g, z=%g",p.x,p.y,p.z);
-               repaint();
-
                if(g && g->ClickFunc)   g->ClickFunc(draw_par);
                emit mouseClick(p.x,p.y,p.z);
+               int id = gr->GetObjId(ev->x(),ev->y());
+               if(id<MGL_MAX_LINES)    emit objChanged(id-1);
+               
+               p = gr->CalcXYZ(ev->x(), ev->y(), true);
+               if(mgl_isnan(p.x))      mousePos = "";
+               else    mousePos.sprintf("x=%g, y=%g, z=%g",p.x,p.y,p.z);
                emit posChanged(mousePos);
-               emit objChanged(gr->GetObjId(ev->x(),ev->y())-1);
+               repaint();
        }
        xe=x0=ev->x();  ye=y0=ev->y();  ev->accept();
 }
 //-----------------------------------------------------------------------------
 void QMathGL::mouseReleaseEvent(QMouseEvent *ev)
 {
-       if(ev->button()&Qt::LeftButton)
+       if(ev->button()&Qt::LeftButton && enableMouse)
        {
                if(zoom)
                {
@@ -265,6 +343,7 @@ void QMathGL::mouseReleaseEvent(QMouseEvent *ev)
 //-----------------------------------------------------------------------------
 void QMathGL::mouseMoveEvent(QMouseEvent *ev)
 {
+       if(!enableMouse)        {       ev->ignore();   return; }
        xe=ev->x();     ye=ev->y();
        if(rotate)
        {
@@ -298,10 +377,163 @@ void QMathGL::mouseMoveEvent(QMouseEvent *ev)
                x0 = xe;        y0 = ye;
                refresh();
        }
-       if(zoom)        refresh();
+       else if(zoom)   refresh();
+       else if(ev->buttons()&Qt::MidButton)    // shift axis
+       {
+               mreal ff = 1./sqrt(mreal(width()*height()));
+               mreal dx = (x0-xe)*ff*(ax2-ax1), dy = (y0-ye)*ff*(ay2-ay1);
+               ax1 += dx;      ax2 += dx;      ay1 -= dy;      ay2 -= dy;
+               gr->ZoomAxis(mglPoint(ax1,ay1),mglPoint(ax2,ay2));
+               update();       x0 = xe;        y0 = ye;
+       }
+       else if(ev->buttons()&Qt::LeftButton)   // move primitives
+       {
+               long h=pic.height(), w=pic.width(), d=(h>w?w:h)/100;
+               long pos = mgl_is_active(gr,x0,y0,d);
+               long id = long(gr->GetObjId(x0,y0))-MGL_MAX_LINES;
+               if(grid && pos>=0)      // this active point
+               {
+                       const mglActivePos &p = gr->Act[pos];
+                       id = long(p.id)-MGL_MAX_LINES;
+                       if(id>=0)       // this is our primitive
+                       {
+                               // try "attract" mouse
+                               register size_t i;
+                               register int tt;
+                               for(i=0;i<=10;i++)
+                               {
+                                       tt = i*(w/10);  if(abs(xe-tt)<2*d)      xe = tt;
+                                       tt = i*(h/10);  if(abs(ye-tt)<2*d)      ye = tt;
+                               }
+                               for(i=0;i<gr->Act.size();i++)
+                               {
+                                       const mglActivePos &q = gr->Act[i];
+                                       if(abs(xe-q.x)<2*d && abs(ye-q.y)<2*d)  {       xe=q.x; ye=q.y; }
+                               }
+                               // now move point
+                               QString tst = primitives.section('\n',id,id), cmd=tst.section(' ',0,0), res;
+                               float dx = 2*(xe-x0)/float(w), dy = 2*(y0-ye)/float(h);
+                               float xx=tst.section(' ',1,1).toFloat(), yy=tst.section(' ',2,2).toFloat();
+                               if(p.n==0)
+                                       res = cmd+" "+QString::number(xx+dx)+" "+QString::number(yy+dy)+" "+tst.section(' ',3);
+                               else if(cmd=="rect")
+                               {
+                                       float x_=tst.section(' ',3,3).toFloat(), y_=tst.section(' ',4,4).toFloat();
+                                       if(p.n==1)      {       xx+=dx; y_+=dy; }
+                                       if(p.n==2)      {       x_+=dx; yy+=dy; }
+                                       if(p.n==3)      {       x_+=dx; y_+=dy; }
+                                       res = "rect "+QString::number(xx)+" "+QString::number(yy)+" "+
+                                               QString::number(x_)+" "+QString::number(y_)+" "+tst.section(' ',5);
+                               }
+                               // TODO parse circle if I'll add it
+                               else if(p.n==1)
+                               {
+                                       xx=tst.section(' ',3,3).toFloat();      yy=tst.section(' ',4,4).toFloat();
+                                       res = tst.section(' ',0,2)+" "+QString::number(xx+dx)+" "+QString::number(yy+dy)+" "+tst.section(' ',5);
+                               }
+                               else if(cmd=="rhomb" || cmd=="ellipse")
+                               {
+                                       float x_=tst.section(' ',3,3).toFloat()-xx, y_=tst.section(' ',4,4).toFloat()-yy, dr=0;
+                                       if(x_*x_+y_*y_>0)
+                                       {
+                                               dr = (dx*x_+dy*y_)/(x_*x_+y_*y_);
+                                               dr = hypot(dx-dr*x_,dy-dr*y_);
+                                       }
+                                       else    dr = hypot(dx,dy);
+                                       res = tst.section(' ',0,4)+" "+QString::number(tst.section(' ',5,5).toFloat()+dr)+" "+tst.section(' ',6);
+                               }
+                               else if(p.n==2)
+                               {
+                                       xx=tst.section(' ',5,5).toFloat();      yy=tst.section(' ',6,6).toFloat();
+                                       res = tst.section(' ',0,4)+" "+QString::number(xx+dx)+" "+QString::number(yy+dy)+" "+tst.section(' ',7);
+                               }
+                               else if(p.n==3)
+                               {
+                                       xx=tst.section(' ',7,7).toFloat();      yy=tst.section(' ',8,8).toFloat();
+                                       if(cmd=="curve")        {       dx*=-1; dy*=-1; }
+                                       res = tst.section(' ',0,6)+" "+QString::number(xx+dx)+" "+QString::number(yy+dy)+" "+tst.section(' ',9);
+                               }
+                               if(id>0)        res = primitives.section('\n',0,id-1) + "\n" + res;
+                               primitives = res + "\n" + primitives.section('\n',id+1);
+                               refresh();      x0 = xe;        y0 = ye;
+                       }
+               }
+               else if(id>=0)  // this is primitive
+               {
+                       QString tst = primitives.section('\n',id,id), cmd=tst.section(' ',0,0), res;
+                       float dx = 2*(xe-x0)/float(w), dy = 2*(y0-ye)/float(h);
+                       float x1=tst.section(' ',1,1).toFloat(), y1=tst.section(' ',2,2).toFloat(),x2,y2;
+                       if(cmd=="ball" || cmd=="text")
+                               res = cmd+" "+QString::number(x1+dx)+" "+QString::number(y1+dy)+" "+tst.section(' ',3);
+                       else if(cmd=="curve")
+                       {
+                               x2=tst.section(' ',5,5).toFloat();      y2=tst.section(' ',6,6).toFloat();
+                               res = cmd+" "+QString::number(x1+dx)+" "+QString::number(y1+dy)+" "+tst.section(' ',3,4)+
+                                               " "+QString::number(x2+dx)+" "+QString::number(y2+dy)+" "+tst.section(' ',7);
+                       }
+                       else
+                       {
+                               x2=tst.section(' ',3,3).toFloat();      y2=tst.section(' ',4,4).toFloat();
+                               res = cmd+" "+QString::number(x1+dx)+" "+QString::number(y1+dy)+" "+
+                                               QString::number(x2+dx)+" "+QString::number(y2+dy)+" "+tst.section(' ',5);
+                       }
+                       if(id>0)        res = primitives.section('\n',0,id-1) + "\n" + res;
+                       primitives = res + "\n" + primitives.section('\n',id+1);
+                       refresh();      x0 = xe;        y0 = ye;
+               }
+       }
        ev->accept();
 }
 //-----------------------------------------------------------------------------
+void QMathGL::mouseDoubleClickEvent(QMouseEvent *ev)
+{
+       long h=pic.height(), w=pic.width(), d=(h>w?w:h)/100;
+       long pos = mgl_is_active(gr,x0,y0,d);
+       long id = long(gr->GetObjId(x0,y0));
+       if(grid && pos>=0)      // this active point -> delete primitive
+       {
+               const mglActivePos &p = gr->Act[pos];
+               id = long(p.id)-MGL_MAX_LINES;
+               QString res;
+               if(id>0)        res = primitives.section('\n',0,id-1) + "\n";
+               if(id>=0)       primitives = res + primitives.section('\n',id+1);
+               refresh();      x0 = xe;        y0 = ye;
+       }
+       else if(id>=MGL_MAX_LINES)      // option for primitives
+               emit askStyle(id-MGL_MAX_LINES);
+       else    emit doubleClick(id);
+       ev->accept();
+}
+//-----------------------------------------------------------------------------
+void QMathGL::setStyle(int id, QString stl)
+{
+       QString tst = primitives.section('\n',id,id), res;
+       res = tst.section(' ',0,-2) + " " + stl;
+       if(id>0)        res = primitives.section('\n',0,id-1) + "\n" + res;
+       primitives = res + "\n" + primitives.section('\n',id+1);
+       refresh();      x0 = xe;        y0 = ye;
+}
+//-----------------------------------------------------------------------------
+void QMathGL::wheelEvent(QWheelEvent *ev)
+{
+       if(!enableWheel)        {       ev->ignore();   return; }
+       if(rotate)      // zoom
+       {
+               mreal d,c,f=exp(0.001*ev->delta())/2;
+               d = (y2-y1)*f;  c = (y2+y1)/2;  y1 = c-d;       y2 = c+d;
+               d = (x2-x1)*f;  c = (x2+x1)/2;  x1 = c-d;       x2 = c+d;
+               refresh();      ev->accept();
+       }
+       else            // zoom axis
+       {
+               mreal d,c,f=exp(0.001*ev->delta())/2;
+               d = (ay2-ay1)*f;        c = (ay2+ay1)/2;        ay1 = c-d;      ay2 = c+d;
+               d = (ax2-ax1)*f;        c = (ax2+ax1)/2;        ax1 = c-d;      ax2 = c+d;
+               gr->ZoomAxis(mglPoint(ax1,ay1),mglPoint(ax2,ay2));
+               update();       ev->accept();
+       }
+}
+//-----------------------------------------------------------------------------
 void QMathGL::imgSize(int w, int h)
 {      if(w>0 && h>0)  {       gr->SetSize(w,h);       update();       }       }
 //-----------------------------------------------------------------------------
@@ -316,28 +548,28 @@ void QMathGL::exportGIF(QString fname)
 {
        if(fname.isEmpty())     fname = gr->PlotId.c_str();
        if(fname.isEmpty())     QMessageBox::critical(this, appName, tr("No filename."),QMessageBox::Ok,0,0);
-       else    mgl_write_gif(gr,setExtension(fname,"png").toAscii(), appName.toAscii());
+       else    mgl_write_gif(gr,setExtension(fname,"png").toAscii().constData(), appName.toAscii().constData());
 }
 //-----------------------------------------------------------------------------
 void QMathGL::exportPNG(QString fname)
 {
        if(fname.isEmpty())     fname = gr->PlotId.c_str();
        if(fname.isEmpty())     QMessageBox::critical(this, appName, tr("No filename."),QMessageBox::Ok,0,0);
-       else    mgl_write_png(gr,setExtension(fname,"png").toAscii(), appName.toAscii());
+       else    mgl_write_png(gr,setExtension(fname,"png").toAscii().constData(), appName.toAscii().constData());
 }
 //-----------------------------------------------------------------------------
 void QMathGL::exportPNGs(QString fname)
 {
        if(fname.isEmpty())     fname = gr->PlotId.c_str();
        if(fname.isEmpty())     QMessageBox::critical(this, appName, tr("No filename."),QMessageBox::Ok,0,0);
-       else    mgl_write_png_solid(gr,setExtension(fname,"png").toAscii(), appName.toAscii());
+       else    mgl_write_png_solid(gr,setExtension(fname,"png").toAscii().constData(), appName.toAscii().constData());
 }
 //-----------------------------------------------------------------------------
 void QMathGL::exportJPG(QString fname)
 {
        if(fname.isEmpty())     fname = gr->PlotId.c_str();
        if(fname.isEmpty())     QMessageBox::critical(this, appName, tr("No filename."),QMessageBox::Ok,0,0);
-       else    mgl_write_jpg(gr,setExtension(fname,"jpg").toAscii(), appName.toAscii());
+       else    mgl_write_jpg(gr,setExtension(fname,"jpg").toAscii().constData(), appName.toAscii().constData());
 }
 //-----------------------------------------------------------------------------
 void QMathGL::exportBPS(QString fname)
@@ -347,7 +579,7 @@ void QMathGL::exportBPS(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_bps(gr,setExtension(fname,"eps").toAscii(), appName.toAscii());
+               mgl_write_bps(gr,setExtension(fname,"eps").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -359,7 +591,7 @@ void QMathGL::exportEPS(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_eps(gr,setExtension(fname,"eps").toAscii(), appName.toAscii());
+               mgl_write_eps(gr,setExtension(fname,"eps").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -371,7 +603,7 @@ void QMathGL::exportSVG(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_svg(gr,setExtension(fname,"svg").toAscii(), appName.toAscii());
+               mgl_write_svg(gr,setExtension(fname,"svg").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -383,7 +615,7 @@ void QMathGL::exportXYZ(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_xyz(gr,setExtension(fname,"xyz").toAscii(), appName.toAscii());
+               mgl_write_xyz(gr,setExtension(fname,"xyz").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -395,7 +627,7 @@ void QMathGL::exportTEX(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_tex(gr,setExtension(fname,"tex").toAscii(), appName.toAscii());
+               mgl_write_tex(gr,setExtension(fname,"tex").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -407,7 +639,7 @@ void QMathGL::exportOFF(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_off(gr,setExtension(fname,"off").toAscii(), appName.toAscii(),0);
+               mgl_write_off(gr,setExtension(fname,"off").toAscii().constData(), appName.toAscii().constData(),0);
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -419,7 +651,7 @@ void QMathGL::exportOBJ(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_obj(gr,setExtension(fname,"obj").toAscii(), appName.toAscii(),0);
+               mgl_write_obj(gr,setExtension(fname,"obj").toAscii().constData(), appName.toAscii().constData(),1);
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -431,7 +663,7 @@ void QMathGL::exportSTL(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_stl(gr,setExtension(fname,"stl").toAscii(), appName.toAscii());
+               mgl_write_stl(gr,setExtension(fname,"stl").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -443,7 +675,7 @@ void QMathGL::exportSTL(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_x3d(gr,setExtension(fname,"x3d").toAscii(), appName.toAscii());
+               mgl_write_x3d(gr,setExtension(fname,"x3d").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }*/
@@ -455,7 +687,7 @@ void QMathGL::exportTGA(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_tga(gr,setExtension(fname,"tga").toAscii(), appName.toAscii());
+               mgl_write_tga(gr,setExtension(fname,"tga").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -467,7 +699,19 @@ void QMathGL::exportPRC(QString fname)
        else
        {
                setlocale(LC_NUMERIC, "C");
-               mgl_write_prc(gr,setExtension(fname,"prc").toAscii(), appName.toAscii(),1);
+               mgl_write_prc(gr,setExtension(fname,"prc").toAscii().constData(), appName.toAscii().constData(),1);
+               setlocale(LC_NUMERIC, "");
+       }
+}
+//-----------------------------------------------------------------------------
+void QMathGL::exportMGLD(QString fname)
+{
+       if(fname.isEmpty())     fname = gr->PlotId.c_str();
+       if(fname.isEmpty())     QMessageBox::critical(this, appName, tr("No filename."),QMessageBox::Ok,0,0);
+       else
+       {
+               setlocale(LC_NUMERIC, "C");
+               mgl_export_mgld(gr,setExtension(fname,"mgld").toAscii().constData(), appName.toAscii().constData());
                setlocale(LC_NUMERIC, "");
        }
 }
@@ -497,8 +741,8 @@ void QMathGL::copyClickCoor()
 {      QApplication::clipboard()->setText(mousePos);   }
 //-----------------------------------------------------------------------------
 void QMathGL::setMGLFont(QString path)
-{      if(path.isEmpty())      gr->GetFont()->Restore();
-       else    gr->GetFont()->Load(path.toAscii());    }
+{      if(path.isEmpty())      gr->RestoreFont();
+       else    gr->LoadFont(path.toAscii().constData());       }
 //-----------------------------------------------------------------------------
 void QMathGL::setSize(int w, int h)
 {
@@ -560,6 +804,32 @@ void QMathGL::adjust()
        update();
 }
 //-----------------------------------------------------------------------------
+void QMathGL::addMark()
+{      primitives += "ball 0 0 'r*'\n";        refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addLine()
+{      primitives += "line -0.2 0 0.2 0 'r2'\n";       refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addRect()
+{      primitives += "rect -0.2 -0.2 0.2 0.2 'r'\n";   refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addCurve()
+{      primitives += "curve -0.2 0 0 0.5 0.2 0 0 0.5 'r2'\n";  refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addRhomb()
+{      primitives += "rhomb -0.2 0 0.2 0 0.1 'r'\n";   refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addEllipse()
+{      primitives += "ellipse -0.2 0 0.2 0 0.1 'r'\n"; refresh();      }
+//-----------------------------------------------------------------------------
+void QMathGL::addText(QString txt)
+{
+       if(txt.isEmpty())
+               txt = QInputDialog::getText(QApplication::activeWindow(), "MathGL", tr("Enter text"));
+       if(!txt.isEmpty())
+       {       primitives += "text 0 0 '"+txt+"' ''\n";        refresh();      }
+}
+//-----------------------------------------------------------------------------
 //
 //             class mglCanvasQT
 //
@@ -581,7 +851,7 @@ void mglCanvasQT::ToggleAlpha()     {       QMGL->setAlpha(!QMGL->getAlpha());      }
 //-----------------------------------------------------------------------------
 void mglCanvasQT::ToggleLight()        {       QMGL->setLight(!QMGL->getLight());      }
 //-----------------------------------------------------------------------------
-void mglCanvasQT::ToggleNo()   {       QMGL->restore();        }
+void mglCanvasQT::ToggleNo()           {       QMGL->restore();        }
 //-----------------------------------------------------------------------------
 void mglCanvasQT::ToggleZoom() {       QMGL->setZoom(!QMGL->getZoom());        }
 //-----------------------------------------------------------------------------
@@ -639,8 +909,33 @@ void mglCanvasQT::Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p
        else    Wnd->showMaximized();
 }
 //-----------------------------------------------------------------------------
+#include "xpm/fileprint.xpm"
+#include "xpm/copy.xpm"
+#include "xpm/left_1.xpm"
+#include "xpm/right_1.xpm"
+#include "xpm/down_1.xpm"
+#include "xpm/norm_1.xpm"
+#include "xpm/zoom_1.xpm"
+#include "xpm/up_1.xpm"
+#include "xpm/alpha.xpm"
+#include "xpm/light.xpm"
+#include "xpm/zoom_in.xpm"
+#include "xpm/zoom_out.xpm"
+#include "xpm/rotate.xpm"
+#include "xpm/ok.xpm"
+#include "xpm/show_sl.xpm"
+#include "xpm/next_sl.xpm"
+#include "xpm/prev_sl.xpm"
+#include "xpm/text.xpm"
+#include "xpm/line.xpm"
+#include "xpm/curve.xpm"
+#include "xpm/mark_o.xpm"
+#include "xpm/mark_s.xpm"
+#include "xpm/mark_a.xpm"
+#include "xpm/mark_d.xpm"
+//-----------------------------------------------------------------------------
 #define TR     QObject::tr
-QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi)
+QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *&tet, QSpinBox *&phi)
 {
        QAction *a;
        QMenu *o, *oo;
@@ -657,14 +952,15 @@ QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi
                oo->addAction(TR("bitmap EPS"), QMGL, SLOT(exportBPS()));
                oo->addAction(TR("vector EPS"), QMGL, SLOT(exportEPS()),Qt::ALT+Qt::Key_E);
                oo->addAction(TR("SVG"), QMGL, SLOT(exportSVG()),Qt::ALT+Qt::Key_S);
-               oo->addAction(TR("LaTeX"), QMGL, SLOT(exportTEX()));
+               oo->addAction(TR("LaTeX"), QMGL, SLOT(exportTEX()),Qt::ALT+Qt::Key_L);
                o->addMenu(oo);         popup->addMenu(oo);
                oo = new QMenu(TR("&Export as 3D ..."),Wnd);
-//             oo->addAction(TR("X3D"), QMGL, SLOT(exportX3D()));
-               oo->addAction(TR("XYZ"), QMGL, SLOT(exportXYZ()));
-               oo->addAction(TR("OBJ"), QMGL, SLOT(exportOBJ()));
+               oo->addAction(TR("MGLD"), QMGL, SLOT(exportMGLD()),Qt::ALT+Qt::Key_M);
+               oo->addAction(TR("PRC"), QMGL, SLOT(exportPRC()),Qt::ALT+Qt::Key_D);
+               oo->addAction(TR("OBJ"), QMGL, SLOT(exportOBJ()),Qt::ALT+Qt::Key_O);
                oo->addAction(TR("STL"), QMGL, SLOT(exportSTL()));
-//             oo->addAction(TR("IDTF"), QMGL, SLOT(exportIDTF()));
+               oo->addAction(TR("XYZ"), QMGL, SLOT(exportXYZ()));
+//             oo->addAction(TR("X3D"), QMGL, SLOT(exportX3D()),Qt::ALT+Qt::Key_X);
                o->addMenu(oo);         popup->addMenu(oo);
 
                o->addSeparator();
@@ -722,9 +1018,49 @@ QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi
                a->setShortcut(Qt::Key_F6);             o->addAction(a);
                a = new QAction(QPixmap(copy_xpm), TR("&Copy plot"), Wnd);
                Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(copy()));
-               a->setToolTip(TR("Copy graphics to clipboard (CTRl+C)."));
-               a->setShortcut(Qt::CTRL+Qt::Key_C);
+               a->setToolTip(TR("Copy graphics to clipboard (CTRl+Shift+G)."));
+               a->setShortcut(Qt::CTRL+Qt::SHIFT+Qt::Key_G);
                o->addAction(a);                bb->addAction(a);       popup->addAction(a);
+
+               bb->addSeparator();
+               oo = new QMenu(TR("Primitives ..."),Wnd);
+               a = new QAction(QPixmap(line_xpm), TR("Add line"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addLine()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add line which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(curve_xpm), TR("Add curve"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addCurve()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add curve which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(mark_s_xpm), TR("Add rect"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addRect()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add rectangle which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(mark_d_xpm), TR("Add rhombus"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addRhomb()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add rhombus which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(mark_o_xpm), TR("Add ellipse"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addEllipse()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add ellipse which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(mark_a_xpm), TR("Add mark"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addMark()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add marker which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               a = new QAction(QPixmap(text_xpm), TR("Add text"), Wnd);
+               Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(addText()));
+               Wnd->connect(QMGL, SIGNAL(usePrimChanged(bool)), a, SLOT(setVisible(bool)));
+               a->setToolTip(TR("Add text which properties can be changed later by mouse."));
+               bb->addAction(a);       oo->addAction(a);
+               o->addMenu(oo);
+
                bb->addSeparator();
                tet = new QSpinBox(Wnd);        tet->setWrapping(true);
                bb->addWidget(tet);     tet->setRange(-180, 180);       tet->setSingleStep(10);
@@ -777,7 +1113,7 @@ QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi
                a = new QAction(QPixmap(next_sl_xpm), TR("&Next slide"), Wnd);
                Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(nextSlide()));
                a->setToolTip(TR("Show next slide (Alt+Right)."));
-               a->setShortcut(Qt::ALT+Qt::Key_Right);  o->addAction(a);                bb->addAction(a);
+               a->setShortcut(Qt::CTRL+Qt::Key_Period);        o->addAction(a);                bb->addAction(a);
                a = new QAction(QPixmap(show_sl_xpm), TR("&Slideshow"), Wnd);
                a->setCheckable(true);
                Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(animation(bool)));
@@ -786,7 +1122,7 @@ QMenu *mglMakeMenu(QMainWindow *Wnd, QMathGL *QMGL, QSpinBox *tet, QSpinBox *phi
                a = new QAction(QPixmap(prev_sl_xpm), TR("&Prev slide"), Wnd);
                Wnd->connect(a, SIGNAL(triggered()), QMGL, SLOT(prevSlide()));
                a->setToolTip(TR("Show previous slide (Alt+Left)."));
-               a->setShortcut(Qt::ALT+Qt::Key_Left);   o->addAction(a);                bb->addAction(a);
+               a->setShortcut(Qt::CTRL+Qt::Key_Comma); o->addAction(a);                bb->addAction(a);
        }
 
        Wnd->menuBar()->addSeparator();
@@ -804,3 +1140,11 @@ HMGL mgl_create_graph_qt(int (*draw)(HMGL gr, void *p), const char *title, void
 }
 int mgl_qt_run()       {       return (qApp)?qApp->exec():-1;  }
 //-----------------------------------------------------------------------------
+uintptr_t mgl_create_graph_qt_(const char *title, int l)
+{
+       char *s = new char[l+1];        memcpy(s,title,l);      s[l]=0;
+       uintptr_t t = uintptr_t(mgl_create_graph_qt(0,s,0,0));
+       delete []s;     return t;
+}
+int mgl_qt_run_()      {       return mgl_qt_run();    }
+//-----------------------------------------------------------------------------

diff --git a/widgets/window.cpp b/widgets/window.cpp
deleted file mode 100644 (file)
index 0fe02eb..0000000
--- a/widgets/window.cpp
+++ /dev/null
@@ -1,248 +0,0 @@
-/***************************************************************************\r
- * window.cpp is part of Math Graphic Library\r
- * Copyright (C) 2007 Alexey Balakin <balakin@appl.sci-nnov.ru>            *\r
- *                                                                         *\r
- *   This program is free software; you can redistribute it and/or modify  *\r
- *   it under the terms of the GNU Library General Public License as       *\r
- *   published by the Free Software Foundation; either version 3 of the    *\r
- *   License, or (at your option) any later version.                       *\r
- *                                                                         *\r
- *   This program is distributed in the hope that it will be useful,       *\r
- *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
- *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
- *   GNU General Public License for more details.                          *\r
- *                                                                         *\r
- *   You should have received a copy of the GNU Library General Public     *\r
- *   License along with this program; if not, write to the                 *\r
- *   Free Software Foundation, Inc.,                                       *\r
- *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
- ***************************************************************************/\r
-#include "mgl2/canvas_wnd.h"\r
-//-----------------------------------------------------------------------------\r
-mglCanvasWnd::mglCanvasWnd() : mglCanvas()\r
-{\r
-       Setup();        LoadFunc=0;     FuncPar=0;      DrawFunc=0;     ClickFunc=0;\r
-       GG = 0;         NumFig = 0;     CurFig = -1;\r
-//     set(MGL_USEDRWDAT);     // TODO: experimental feature -- test later\r
-}\r
-//-----------------------------------------------------------------------------\r
-mglCanvasWnd::~mglCanvasWnd()  {       if(GG) free(GG);        }\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::SetCurFig(int c)    {       CurFig=c;       if(get(MGL_USEDRWDAT))  GetDrwDat(c);   }\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::ClearFrames()\r
-{\r
-       if(GG)  free(GG);       GG = 0;\r
-       CurFrameId = NumFig = CurFig = 0;\r
-       DrwDat.clear();\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::SetSize(int w,int h)\r
-{\r
-       ClearFrames();\r
-       mglCanvas::SetSize(w,h);\r
-//     if(Wnd) Wnd->size(w,h);\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::EndFrame()\r
-{\r
-       CurFig = CurFrameId-1;\r
-       if(!GG)\r
-       {\r
-               GG = (unsigned char *)malloc(3*Width*Height);\r
-               NumFig = 1;             CurFig = 0;\r
-       }\r
-       else if(CurFig>NumFig-1)\r
-       {\r
-               GG = (unsigned char *)realloc(GG,3*(NumFig+1)*Width*Height);\r
-               NumFig++;\r
-       }\r
-       mglCanvas::EndFrame();\r
-       memcpy(GG + CurFig*Width*Height*3,G,3*Width*Height);\r
-       CurFig++;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::SetDrawFunc(int (*draw)(mglBase *gr, void *p), void *par, void (*reload)(void *p))\r
-{\r
-       ClearFrames();\r
-       int n = draw ? draw(this,par) : 0;\r
-       if(n<NumFig && n>=0)    NumFig = n;\r
-       DrawFunc = draw;                FuncPar = par;\r
-       LoadFunc = reload;\r
-}\r
-//-----------------------------------------------------------------------------\r
-const unsigned char *mglCanvasWnd::GetBits()\r
-{\r
-       const unsigned char *g = mglCanvas::GetBits();\r
-       if(GG && NumFig>0 && CurFig<NumFig && CurFig>=0)\r
-               g = GG + CurFig*Width*Height*3;\r
-       return g;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mglCanvasWnd::ReLoad()\r
-{\r
-       if(LoadFunc)\r
-       {\r
-               LoadFunc(FuncPar);\r
-               // update number of slides\r
-               ClearFrames();\r
-               int n = DrawFunc ? DrawFunc(this,FuncPar) : 0;\r
-               if(n<NumFig && n>=0)    NumFig = n;\r
-               Update();\r
-       }\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mgl_wnd_toggle_alpha(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleAlpha();       }\r
-void mgl_wnd_toggle_light(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleLight();       }\r
-void mgl_wnd_toggle_zoom(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleZoom();        }\r
-void mgl_wnd_toggle_rotate(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleRotate();      }\r
-void mgl_wnd_toggle_no(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ToggleNo();  }\r
-void mgl_wnd_update(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Update();    }\r
-void mgl_wnd_reload(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ReLoad();    }\r
-void mgl_wnd_adjust(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Adjust();    }\r
-void mgl_wnd_next_frame(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->NextFrame(); }\r
-void mgl_wnd_prev_frame(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->PrevFrame(); }\r
-void mgl_wnd_animation(HMGL gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Animation(); }\r
-void mgl_setup_window(HMGL gr, int clf_upd, int showpos)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->Setup(clf_upd, showpos);     }\r
-void mgl_set_click_func(HMGL gr, void (*func)(void *p))\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);     if(g)   g->ClickFunc = func;    }\r
-void mgl_get_last_mouse_pos(HMGL gr, mreal *x, mreal *y, mreal *z)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);\r
-       mglPoint p;     if(g)   p=g->GetMousePos();\r
-       *x=p.x; *y=p.y; *z=p.z; }\r
-//-----------------------------------------------------------------------------\r
-void mgl_wnd_toggle_alpha_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ToggleAlpha();       }\r
-void mgl_wnd_toggle_light_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ToggleLight();       }\r
-void mgl_wnd_toggle_zoom_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ToggleZoom();        }\r
-void mgl_wnd_toggle_rotate_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ToggleRotate();      }\r
-void mgl_wnd_toggle_no_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ToggleNo();  }\r
-void mgl_wnd_update_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->Update();    }\r
-void mgl_wnd_reload_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->ReLoad();    }\r
-void mgl_wnd_adjust_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->Adjust();    }\r
-void mgl_wnd_next_frame_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->NextFrame(); }\r
-void mgl_wnd_prev_frame_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->PrevFrame(); }\r
-void mgl_wnd_animation_(uintptr_t *gr)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->Animation(); }\r
-void mgl_setup_window_(uintptr_t *gr, int *clf_upd, int *showpos)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       if(g)   g->Setup(*clf_upd, *showpos);   }\r
-void mgl_get_last_mouse_pos_(uintptr_t *gr, mreal *x, mreal *y, mreal *z)\r
-{      mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>((HMGL)(*gr));\r
-       mglPoint p;     if(g)   p=g->GetMousePos();\r
-       *x=p.x; *y=p.y; *z=p.z; }\r
-//-----------------------------------------------------------------------------\r
-#if MGL_HAVE_FLTK==0\r
-HMGL mgl_create_graph_fltk(int (*)(HMGL gr, void *p), const char *, void *, void (*)(void *p))\r
-{      return NULL;    }\r
-int mgl_fltk_run(){return 0;}\r
-#endif\r
-//-----------------------------------------------------------------------------\r
-uintptr_t mgl_create_graph_fltk_(const char *title, int l)\r
-{\r
-       char *s = new char[l+1];        memcpy(s,title,l);      s[l]=0;\r
-       uintptr_t t = uintptr_t(mgl_create_graph_fltk(0,s,0,0));\r
-       delete []s;     return t;\r
-}\r
-int mgl_fltk_run_()    {       return mgl_fltk_run();  }\r
-//-----------------------------------------------------------------------------\r
-void *mgl_fltk_tmp(void *)\r
-{      mgl_fltk_run(); return 0;       }\r
-//-----------------------------------------------------------------------------\r
-int mgl_fltk_thr()             // NOTE: Qt couldn't be running in non-primary thread\r
-{\r
-#if MGL_HAVE_PTHREAD\r
-       static pthread_t thr;\r
-       pthread_create(&thr,0,mgl_fltk_tmp,0);\r
-       pthread_detach(thr);\r
-#endif\r
-       return 0;       // stupid, but I don't want keep result returned by Fl::Run()\r
-}\r
-//-----------------------------------------------------------------------------\r
-\r
-#if MGL_HAVE_QT==0\r
-HMGL mgl_create_graph_qt(int (*)(HMGL gr, void *p), const char *, void *, void (*)(void *p))\r
-{      return NULL;    }\r
-int mgl_qt_run(){return 0;}\r
-#endif\r
-//-----------------------------------------------------------------------------\r
-uintptr_t mgl_create_graph_qt_(const char *title, int l)\r
-{\r
-       char *s = new char[l+1];        memcpy(s,title,l);      s[l]=0;\r
-       uintptr_t t = uintptr_t(mgl_create_graph_qt(0,s,0,0));\r
-       delete []s;     return t;\r
-}\r
-int mgl_qt_run_()      {       return mgl_qt_run();    }\r
-//-----------------------------------------------------------------------------\r
-//\r
-//     mglDraw class handling\r
-//\r
-//-----------------------------------------------------------------------------\r
-int mgl_draw_class(HMGL gr, void *p)   // so stupid way to save mglDraw class inheritance :(\r
-{\r
-       mglGraph g(gr); mglWindow *w = (mglWindow *)p;\r
-       return (w && w->dr) ? w->dr->Draw(&g) : 0;\r
-}\r
-void mgl_reload_class(void *p) // so stupid way to save mglDraw class inheritance :(\r
-{      mglWindow *w = (mglWindow *)p;  if(w && w->dr)  w->dr->Reload();}\r
-void mgl_click_class(void *p)  // so stupid way to save mglDraw class inheritance :(\r
-{      mglWindow *w = (mglWindow *)p;  if(w && w->dr)  w->dr->Click(); }\r
-//-----------------------------------------------------------------------------\r
-typedef int (*draw_func)(mglGraph *gr);\r
-int mgl_draw_graph(HMGL gr, void *p)\r
-{\r
-       mglGraph g(gr);\r
-       draw_func func = (draw_func)(p);\r
-       return func ? func(&g) : 0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void *mgl_draw_calc(void *p)\r
-{\r
-#if MGL_HAVE_PTHREAD\r
-       ((mglDraw *)p)->Calc();\r
-#endif\r
-       return 0;\r
-}\r
-//-----------------------------------------------------------------------------\r
-void mgl_draw_thr(void *p)\r
-{\r
-#if MGL_HAVE_PTHREAD\r
-       mglDraw *d = (mglDraw *)p;\r
-       if(!d || d->running)    return;\r
-       pthread_create(&(d->thr),0,mgl_draw_calc,d);\r
-       pthread_detach(d->thr);\r
-#endif\r
-}\r
-//-----------------------------------------------------------------------------\r

diff --git a/widgets/wx.cpp b/widgets/wx.cpp
new file mode 100644 (file)
index 0000000..17d3e55
--- /dev/null
+++ b/widgets/wx.cpp
@@ -0,0 +1,707 @@
+/***************************************************************************\r
+ * wx.cpp is part of Math Graphic Library                              *\r
+ * Copyright (C) 2007-2012 Alexey Balakin <mathgl.abalakin@gmail.ru>       *\r
+ *                                                                         *\r
+ *   This program is free software; you can redistribute it and/or modify  *\r
+ *   it under the terms of the GNU Library General Public License as       *\r
+ *   published by the Free Software Foundation; either version 3 of the    *\r
+ *   License, or (at your option) any later version.                       *\r
+ *                                                                         *\r
+ *   This program is distributed in the hope that it will be useful,       *\r
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *\r
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *\r
+ *   GNU General Public License for more details.                          *\r
+ *                                                                         *\r
+ *   You should have received a copy of the GNU Library General Public     *\r
+ *   License along with this program; if not, write to the                 *\r
+ *   Free Software Foundation, Inc.,                                       *\r
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *\r
+ ***************************************************************************/\r
+//-----------------------------------------------------------------------------\r
+#include <wx/dcclient.h>\r
+#include <wx/msgdlg.h>\r
+#include <wx/clipbrd.h>\r
+#include <wx/dataobj.h>\r
+#include <wx/menu.h>\r
+#include <wx/scrolwin.h>\r
+\r
+#include "mgl2/canvas_wnd.h"\r
+#include "mgl2/wx.h"\r
+//-----------------------------------------------------------------------------\r
+class mglCanvasWX : public mglCanvasWnd\r
+{\r
+friend class wxMathGL;\r
+public:\r
+       int sshow;                      ///< Current state of animation switch (toggle button)\r
+       wxMathGL *WMGL;         ///< Control which draw graphics\r
+       wxWindow *Wnd;          ///< Pointer to window\r
+\r
+       mglCanvasWX();\r
+       virtual ~mglCanvasWX();\r
+\r
+       /// Create a window for plotting. Now implemeted only for GLUT.\r
+       void Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p), const char *title,\r
+                               void *par=NULL, void (*reload)(void *p)=NULL, bool maximize=false);\r
+       /// Switch on/off transparency (do not overwrite switches in user drawing function)\r
+       void ToggleAlpha();\r
+       /// Switch on/off lighting (do not overwrite switches in user drawing function)\r
+       void ToggleLight();\r
+       void ToggleRotate();    ///< Switch on/off rotation by mouse\r
+       void ToggleZoom();              ///< Switch on/off zooming by mouse\r
+       void ToggleNo();                ///< Switch off all zooming and rotation\r
+       void Update();                  ///< Update picture by calling user drawing function\r
+       void Adjust();                  ///< Adjust size of bitmap to window size\r
+       void GotoFrame(int d);  ///< Show arbitrary frame (use relative step)\r
+       void Animation();       ///< Run animation (I'm too lasy to change it)\r
+\r
+protected:\r
+       wxScrolledWindow *scroll;       ///< Scrolling area\r
+       wxMenu *popup;                  ///< Popup menu\r
+//     wxSpinCtrl *tet, *phi;  ///< Spin box for angles // TODO\r
+\r
+       void MakeMenu();                ///< Create menu, toolbar and popup menu\r
+};\r
+//-----------------------------------------------------------------------------\r
+const wxString ScriptName(L"default");\r
+enum\r
+{\r
+       TIMER_ID=1000,\r
+       LAST_ID\r
+};\r
+BEGIN_EVENT_TABLE(wxMathGL, wxWindow)\r
+       EVT_TIMER       (TIMER_ID,      wxMathGL::OnNextSlide)\r
+       EVT_PAINT       (wxMathGL::OnPaint)\r
+       EVT_SIZE        (wxMathGL::OnSize)\r
+       EVT_LEFT_DOWN   (wxMathGL::OnMouseLeftDown)\r
+       EVT_RIGHT_DOWN  (wxMathGL::OnMouseDown)\r
+       EVT_MIDDLE_DOWN (wxMathGL::OnMouseDown)\r
+       EVT_LEFT_UP             (wxMathGL::OnMouseLeftUp)\r
+       EVT_RIGHT_UP    (wxMathGL::OnMouseRightUp)\r
+       EVT_MOTION              (wxMathGL::OnMouseMove)\r
+END_EVENT_TABLE()\r
+//-----------------------------------------------------------------------------\r
+//\r
+//             class wxMathGL\r
+//\r
+//-----------------------------------------------------------------------------\r
+wxMathGL::wxMathGL(wxWindow *parent, wxWindowID id, const wxPoint& pos, const wxSize& size, long style, const wxString& name) : wxWindow(parent,id,pos,size,style,name)\r
+{\r
+       AutoResize = false;     draw_par = 0;   draw_func = 0;\r
+       gr = new mglCanvas;\r
+       popup = 0;              //!grBuf = 0;\r
+       phi = tet = per = 0;\r
+       x1 = y1 = 0;    x2 = y2 = 1;\r
+       alpha = light = zoom = rotate = false;\r
+       SetSize(600, 400);\r
+       timer = new wxTimer(this,TIMER_ID);\r
+}\r
+//-----------------------------------------------------------------------------\r
+wxMathGL::~wxMathGL()  {       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);   }\r
+//-----------------------------------------------------------------------------\r
+double wxMathGL::GetRatio()    {       return double(gr->GetWidth())/gr->GetHeight();  };\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetGraph(HMGL GR)\r
+{\r
+       mglCanvas *gg = dynamic_cast<mglCanvas *>(GR);\r
+       if(!gg) return;\r
+       if(mgl_use_graph(gr,-1)<1)      mgl_delete_graph(gr);\r
+       gr=gg;  mgl_use_graph(gg,1);\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnPaint(wxPaintEvent& event)\r
+{\r
+       wxPaintDC dc(this);\r
+       dc.DrawBitmap(pic,0,0);\r
+//     if(zoom)        dc.DrawRectangle(x0,y0,xe-x0,ye-y0);\r
+       if(gr->get(MGL_SHOW_POS) && !MousePos.IsEmpty())\r
+               dc.DrawText(MousePos,0,12);\r
+       // TODO: add grid drawing here (from Qt)\r
+       // TODO: add active points drawing here (from Qt)\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnSize(wxSizeEvent& event)\r
+{\r
+       wxSize ev = event.GetSize();\r
+       if(gr->GetWidth()==ev.GetWidth() && gr->GetHeight()==ev.GetHeight())\r
+               return;\r
+       if(AutoResize && ev.GetWidth()>0 && ev.GetHeight()>0)\r
+       {       gr->SetSize(ev.GetWidth(), ev.GetHeight());     Update();       }\r
+       else    SetSize(gr->GetWidth(), gr->GetHeight());\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnNextSlide(wxTimerEvent& evt)  {       NextSlide();    }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetPer(int p)\r
+{      if(100*per!=p && p>=0 && p<100) {       per = 0.01*p;   Repaint();      }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetPhi(int p)\r
+{      if(phi!=p)      {       phi = p;        Repaint();      }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetTet(int t)\r
+{      if(tet!=t)      {       tet = t;        Repaint();      }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetAlpha(bool a)\r
+{      if(alpha!=a)    {       alpha = a;      Update();       }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetLight(bool l)\r
+{      if(light!=l)    {       light = l;      Update();       }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetZoom(bool z)\r
+{      if(zoom!=z)     {       zoom=z; rotate=false;   Repaint();      }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetRotate(bool r)\r
+{      if(rotate!=r)   {       zoom=false;     rotate=r;       Repaint();      }       }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ShiftDown()\r
+{      mreal d=(y2-y1)/3;      y1+=d;  y2+=d;  Repaint();      }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ShiftUp()\r
+{      mreal d=(y2-y1)/3;      y1-=d;  y2-=d;  Repaint();      }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ShiftRight()\r
+{      mreal d=(x2-x1)/3;      x1-=d;  x2-=d;  Repaint();      }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ShiftLeft()\r
+{      mreal d=(x2-x1)/3;      x1+=d;  x2+=d;  Repaint();      }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Restore()\r
+{\r
+       SetPhi(0);      SetTet(0);      SetPer(0);\r
+       x1=y1=0;        x2=y2=1;        zoom=rotate=false;\r
+       Repaint();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ZoomIn()\r
+{\r
+       mreal d;\r
+       d = (y2-y1)/4;  y1 += d;        y2 -= d;\r
+       d = (x2-x1)/4;  x1 += d;        x2 -= d;\r
+       Repaint();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ZoomOut()\r
+{\r
+       mreal d;\r
+       d = (y2-y1)/2;  y1 -= d;        y2 += d;\r
+       d = (x2-x1)/2;  x1 -= d;        x2 += d;\r
+       Repaint();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Update()\r
+{\r
+       if(draw_func || draw_cl)\r
+       {\r
+               if(gr->get(MGL_CLF_ON_UPD))     gr->DefaultPlotParam();\r
+               gr->ResetFrames();\r
+               gr->Alpha(alpha);       gr->Light(light);\r
+               if(draw_func)   draw_func(gr, draw_par);        // drawing itself\r
+               else    if(draw_cl)     {       mglGraph g(gr); draw_cl->Draw(&g);      }\r
+               const char *buf = gr->Mess.c_str();\r
+               if(*buf)\r
+               {\r
+                       wxMessageDialog dlg(this, wxString(buf,wxConvLocal), appName, wxOK);\r
+                       dlg.ShowModal();\r
+               }\r
+       }\r
+//     if(gr->GetWidth()!=w() || gr->GetHeight()!=h())\r
+//             size(gr->GetWidth(), gr->GetHeight());\r
+       MousePos.Empty();       Repaint();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void convertFromGraph(wxBitmap &pic, mglCanvas *gr, unsigned char **buf)\r
+{\r
+       const unsigned char *bb = gr->GetBits();\r
+       register long i,w=gr->GetWidth(), h=gr->GetHeight();\r
+       if(*buf)        delete [](*buf);\r
+       *buf = new unsigned char[4*w*h];\r
+       for(i=0;i<w*h;i++)\r
+       {\r
+               (*buf)[4*i]   = bb[3*i+2];\r
+               (*buf)[4*i+1] = bb[3*i+1];\r
+               (*buf)[4*i+2] = bb[3*i];\r
+               (*buf)[4*i+3] = 255;\r
+       }\r
+       wxImage img(w, h, *buf);\r
+       wxBitmap bmp(img,32);   pic = bmp;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Repaint()\r
+{\r
+       gr->Zoom(x1,y1,x2,y2);  gr->View(phi,0,tet);    gr->Perspective(per);\r
+       convertFromGraph(pic, gr, &grBuf);\r
+       wxSize sz=GetSize();\r
+       if(pic.GetWidth()!=sz.GetWidth() || pic.GetHeight()!=sz.GetHeight())\r
+               SetSize(pic.GetWidth(), pic.GetHeight());\r
+       Refresh();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnMouseLeftDown(wxMouseEvent &ev)\r
+{\r
+       long x=ev.GetX(), y=ev.GetY();\r
+       if(!zoom && !rotate)\r
+       {\r
+               mglPoint p = gr->CalcXYZ(x, y);\r
+               MousePos.Printf(wxT("x=%g, y=%g, z=%g"),p.x,p.y,p.z);\r
+               Refresh();\r
+//             emit mouseClick(p.x,p.y,p.z);\r
+       }\r
+       xe=x0=x;        ye=y0=y;        ev.Skip();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnMouseDown(wxMouseEvent &ev)\r
+{      xe=x0=ev.GetX();        ye=y0=ev.GetY();        ev.Skip();      }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnMouseLeftUp(wxMouseEvent &ev)\r
+{\r
+       if(zoom)\r
+       {\r
+               int w1=GetSize().GetWidth(),h1=GetSize().GetHeight();\r
+               mreal _x1,_x2,_y1,_y2;\r
+               _x1 = x1+(x2-x1)*(x0-GetPosition().x)/mreal(w1);\r
+               _y1 = y2-(y2-y1)*(ye-GetPosition().y)/mreal(h1);\r
+               _x2 = x1+(x2-x1)*(xe-GetPosition().x)/mreal(w1);\r
+               _y2 = y2-(y2-y1)*(y0-GetPosition().y)/mreal(h1);\r
+               x1=_x1;         x2=_x2;         y1=_y1;         y2=_y2;\r
+               if(x1>x2)       {       _x1=x1; x1=x2;  x2=_x1; }\r
+               if(y1>y2)       {       _x1=y1; y1=y2;  y2=_x1; }\r
+               x0 = xe;        y0 = ye;\r
+               Update();\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnMouseRightUp(wxMouseEvent &ev)\r
+{      if(popup && !rotate)    PopupMenu(popup, ev.GetPosition());     }\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::OnMouseMove(wxMouseEvent &ev)\r
+{\r
+       long w=GetSize().GetWidth(), h=GetSize().GetHeight();\r
+       xe=ev.GetX();   ye=ev.GetY();\r
+       if(rotate)\r
+       {\r
+               if(ev.ButtonDown(wxMOUSE_BTN_LEFT))     // rotate\r
+               {\r
+                       mreal ff = 240/sqrt(mreal(w*h));\r
+                       phi += int((x0-xe)*ff);\r
+                       tet += int((y0-ye)*ff);\r
+                       if(phi>180)     phi-=360;               if(phi<-180)    phi+=360;\r
+                       if(tet>180)     tet-=360;               if(tet<-180)    tet+=360;\r
+//                     Update();\r
+               }\r
+               if(ev.ButtonDown(wxMOUSE_BTN_RIGHT))    // zoom and perspective\r
+               {\r
+                       mreal ff = 2.*(y0-ye)/w, gg = 0.5*(xe-x0)/h;\r
+                       mreal cx = (x1+x2)/2, cy = (y1+y2)/2;\r
+                       x1 = cx+(x1-cx)*exp(-ff);       x2 = cx+(x2-cx)*exp(-ff);\r
+                       y1 = cy+(y1-cy)*exp(-ff);       y2 = cy+(y2-cy)*exp(-ff);\r
+                       per = per + gg;\r
+                       if(per<0)       per = 0;        if(per>=1)      per = 0.9999;\r
+//                     Update();\r
+               }\r
+               if(ev.ButtonDown(wxMOUSE_BTN_MIDDLE))   // shift\r
+               {\r
+                       mreal ff = 1./sqrt(mreal(w*h));\r
+                       mreal dx = (x0-xe)*ff*(x2-x1), dy = (y0-ye)*ff*(y2-y1);\r
+                       x1 += dx;       x2 += dx;       y1 -= dy;       y2 -= dy;\r
+               }\r
+               x0 = xe;        y0 = ye;\r
+               Update();\r
+       }\r
+//     if(zoom)        Update();\r
+       if(zoom)        Refresh(0);\r
+}\r
+//-----------------------------------------------------------------------------\r
+wxString mglSetExtension(wxString &fname, const char *ext)\r
+{\r
+       wxString oname;\r
+       if(fname.Right(4)!=wxChar('.')+wxString(ext,*wxConvCurrent))\r
+               oname = fname+wxChar('.')+wxString(ext,*wxConvCurrent);\r
+       return oname;\r
+}\r
+//-----------------------------------------------------------------------------\r
+// NOTE: this is replacement for wxString::char_str() which is for v.2.8 or later\r
+const char *mglw_str(const wxString &str)\r
+{\r
+       static char *buf=0;\r
+       if(buf) delete []buf;\r
+       long i, n=str.Len();\r
+       buf = new char[n+1];    buf[n]=0;\r
+       for(i=0;i<n;i++)        buf[i] = str.GetChar(i);\r
+       return buf;\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportPNG(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else    mgl_write_png(gr,mglw_str(mglSetExtension(fname,"png")), mglw_str(appName));\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportPNGs(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else    mgl_write_png_solid(gr,mglw_str(mglSetExtension(fname,"png")), mglw_str(appName));\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportJPG(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else    mgl_write_jpg(gr,mglw_str(mglSetExtension(fname,"jpg")), mglw_str(appName));\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportBPS(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else\r
+       {\r
+               setlocale(LC_ALL, "C");\r
+               mgl_write_bps(gr,mglw_str(mglSetExtension(fname,"eps")), mglw_str(appName));\r
+               setlocale(LC_ALL, "");\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportEPS(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else\r
+       {\r
+               setlocale(LC_ALL, "C");\r
+               mgl_write_eps(gr,mglw_str(mglSetExtension(fname,"eps")), mglw_str(appName));\r
+               setlocale(LC_ALL, "");\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::ExportSVG(wxString fname)\r
+{\r
+       if(fname.IsEmpty())     fname = ScriptName;\r
+       if(fname.IsEmpty())     wxMessageBox(appName, wxT("No filename."),wxOK|wxICON_ERROR ,this);\r
+       else\r
+       {\r
+               setlocale(LC_ALL, "C");\r
+               mgl_write_svg(gr,mglw_str(mglSetExtension(fname,"eps")), mglw_str(appName));\r
+               setlocale(LC_ALL, "");\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Copy()\r
+{\r
+       if (wxTheClipboard->Open())\r
+       {\r
+               wxTheClipboard->SetData( new wxBitmapDataObject(pic) );\r
+               wxTheClipboard->Close();\r
+       }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::SetSize(int w, int h)\r
+{      gr->SetSize(w,h);       wxWindow::SetSize(w, h);        Update();       };\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Adjust()\r
+{\r
+       wxSize sz=GetSize();\r
+       gr->SetSize(sz.GetWidth(),sz.GetHeight());\r
+       Repaint();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::NextSlide()\r
+{\r
+       mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);\r
+       if(g && g->GetNumFig()>1)       g->NextFrame();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::PrevSlide()\r
+{\r
+       mglCanvasWnd *g = dynamic_cast<mglCanvasWnd *>(gr);\r
+       if(g && g->GetNumFig()>1)       g->PrevFrame();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::Animation(bool st)\r
+{\r
+       if(st)  timer->Start(int(gr->GetDelay()*1000));\r
+       else    timer->Stop();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void wxMathGL::About()\r
+{\r
+       wxString s = wxT("MathGL v. 2.") + wxString::Format(wxT("%g"),MGL_VER2) +\r
+               wxT("\n(c) Alexey Balakin, 2007\nhttp://mathgl.sourceforge.net/");\r
+       wxMessageBox(s, wxT("MathGL - about"), wxOK|wxICON_INFORMATION, this);\r
+}\r
+//-----------------------------------------------------------------------------\r
+//\r
+//             class mglCanvasWX\r
+//\r
+//-----------------------------------------------------------------------------\r
+#include <wx/app.h>\r
+#include "xpm/fileprint.xpm"\r
+#include "xpm/copy.xpm"\r
+#include "xpm/left_1.xpm"\r
+#include "xpm/right_1.xpm"\r
+#include "xpm/down_1.xpm"\r
+#include "xpm/norm_1.xpm"\r
+#include "xpm/zoom_1.xpm"\r
+#include "xpm/up_1.xpm"\r
+#include "xpm/alpha.xpm"\r
+#include "xpm/light.xpm"\r
+#include "xpm/zoom_in.xpm"\r
+#include "xpm/zoom_out.xpm"\r
+#include "xpm/rotate.xpm"\r
+#include "xpm/ok.xpm"\r
+#include "xpm/show_sl.xpm"\r
+#include "xpm/next_sl.xpm"\r
+#include "xpm/prev_sl.xpm"\r
+//-----------------------------------------------------------------------------\r
+mglCanvasWX::mglCanvasWX() : mglCanvasWnd()    {       Wnd = 0;        }\r
+//-----------------------------------------------------------------------------\r
+mglCanvasWX::~mglCanvasWX()    {       if(Wnd) delete Wnd;     }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::ToggleAlpha()        {       WMGL->SetAlpha(!WMGL->GetAlpha());      }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::ToggleLight()        {       WMGL->SetLight(!WMGL->GetLight());      }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::ToggleNo()           {       WMGL->Restore();        }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::ToggleZoom() {       WMGL->SetZoom(!WMGL->GetZoom());        }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::ToggleRotate()       {       WMGL->SetRotate(!WMGL->GetRotate());}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::Update()             {       WMGL->Update(); }\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::Adjust()\r
+{\r
+       wxSize sz = scroll->GetSize();\r
+       SetSize(sz.GetWidth(), sz.GetHeight());\r
+       WMGL->SetSize(sz.GetWidth(), sz.GetHeight());\r
+       Update();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::GotoFrame(int d)\r
+{\r
+       int f = GetCurFig()+d;\r
+       if(f>=GetNumFig())      f = 0;\r
+       if(f<0) f = GetNumFig()-1;\r
+       if(GetNumFig()>0 && d)  {       SetCurFig(f);   WMGL->Repaint();        }\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::Animation()\r
+{\r
+/*     if(anim)\r
+       {\r
+               bool s = anim->isChecked();\r
+               anim->setChecked(!s);\r
+               WMGL->Animation(!s);\r
+       }*/\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::Window(int argc, char **argv, int (*draw)(mglBase *gr, void *p), const char *title, void *par, void (*reload)(void *p), bool maximize)\r
+{\r
+       SetDrawFunc(draw, par, reload);\r
+       popup = 0;\r
+       if(Wnd)\r
+       {\r
+               Wnd->SetLabel(wxString(title,wxConvLibc));\r
+               if(maximize)\r
+               {       Wnd->SetSize(Wnd->GetMaxSize());        }\r
+               else    Wnd->Show();\r
+               return;\r
+       }\r
+\r
+       if(!wxTheApp)   {       new wxApp;      wxTheApp->SetExitOnFrameDelete(true);   }\r
+\r
+       Wnd = new wxWindow;     Wnd->SetSize(650,480);\r
+       Wnd->SetLabel(wxString(title,wxConvLibc));\r
+\r
+       scroll = new wxScrolledWindow(Wnd);\r
+       WMGL = new wxMathGL(scroll);    MakeMenu();\r
+       WMGL->SetPopup(popup);  WMGL->SetGraph(this);\r
+       WMGL->SetDraw(draw, par);\r
+\r
+       WMGL->Update();\r
+       if(maximize)    Wnd->SetSize(Wnd->GetMaxSize());\r
+       Wnd->Show();\r
+}\r
+//-----------------------------------------------------------------------------\r
+void mglCanvasWX::MakeMenu()\r
+{\r
+/*     wxMenuBar *m = new wxMenuBar;\r
+       wxMenu *o, *oo;\r
+       \r
+       o = new wxMenu; m->Append(o, wxT("&File"));\r
+       oo= new wxMenu; o->AppendSubMenu(oo,wxT("&Export as ..."));\r
+       o->Append(wxID_EXIT, wxT("&Close"));\r
+       Wnd->Connect(wxID_EXIT, wxEVT_COMMAND_MENU_SELECTED, wxCommandEventHandler(wxWindow::Close));\r
+*/\r
+}\r
+/*void mglGraphQT::makeMenu()\r
+{\r
+       QAction *a;\r
+       QMenu *o, *oo;\r
+       QToolBar *bb;\r
+\r
+       popup = new QMenu(Wnd);\r
+       // file menu\r
+       {\r
+               o = Wnd->menuBar()->addMenu(TR("&File"));\r
+               oo = new QMenu(TR("&Export as ..."),Wnd);\r
+               oo->addAction(TR("PNG"), QMGL, SLOT(exportPNG()),Qt::ALT+Qt::Key_P);\r
+               oo->addAction(TR("solid PNG"), QMGL, SLOT(exportPNGs()),Qt::ALT+Qt::Key_F);\r
+               oo->addAction(TR("JPEG"), QMGL, SLOT(exportJPG()),Qt::ALT+Qt::Key_J);\r
+               oo->addAction(TR("bitmap EPS"), QMGL, SLOT(exportBPS()));\r
+               oo->addAction(TR("vector EPS"), QMGL, SLOT(exportEPS()),Qt::ALT+Qt::Key_E);\r
+               oo->addAction(TR("SVG"), QMGL, SLOT(exportSVG()),Qt::ALT+Qt::Key_S);\r
+               oo->addAction(TR("IDTF"), QMGL, SLOT(exportIDTF()));\r
+               o->addMenu(oo);\r
+               popup->addMenu(oo);\r
+\r
+               o->addSeparator();\r
+               a = new QAction(QPixmap(fileprint), TR("Print &graphics"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(print()));\r
+               a->setToolTip(TR("Open printer dialog and print graphics\t(CTRl+P)"));\r
+               a->setShortcut(Qt::CTRL+Qt::Key_P);     o->addAction(a);\r
+               o->addSeparator();\r
+               o->addAction(TR("&Close"), Wnd, SLOT(close()), Qt::CTRL+Qt::Key_W);\r
+       }\r
+       // graphics menu\r
+       {\r
+               bb = new QToolBar(TR("Graphics"),Wnd);\r
+               Wnd->addToolBar(Qt::TopToolBarArea, bb);\r
+               o = Wnd->menuBar()->addMenu(TR("&Graphics"));\r
+               a = new QAction(QPixmap(alpha_xpm), TR("&Alpha"), Wnd);\r
+               a->setShortcut(Qt::ALT+Qt::Key_T);      a->setCheckable(true);\r
+               Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(setAlpha(bool)));\r
+               Wnd->connect(QMGL, SIGNAL(alphaChanged(bool)), a, SLOT(setOn(bool)));\r
+               a->setToolTip(TR("Switch on/off TRansparency for the graphics (Alt+T)."));\r
+               o->addAction(a);                bb->addAction(a);\r
+               a = new QAction(QPixmap(light_xpm), TR("&Light"), Wnd);\r
+               a->setShortcut(Qt::ALT+Qt::Key_L);      a->setCheckable(true);\r
+               Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(setLight(bool)));\r
+               Wnd->connect(QMGL, SIGNAL(lightChanged(bool)), a, SLOT(setOn(bool)));\r
+               a->setToolTip(TR("Switch on/off lightning for the graphics (Alt+L)."));\r
+               o->addAction(a);                bb->addAction(a);\r
+               a = new QAction(QPixmap(rotate_xpm), TR("&Rotate by mouse"), Wnd);\r
+               a->setCheckable(true);\r
+               Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(setRotate(bool)));\r
+               Wnd->connect(QMGL, SIGNAL(rotateChanged(bool)), a, SLOT(setOn(bool)));\r
+               a->setToolTip(TR("Switch on/off mouse handling of the graphics\n(rotation, shifting, zooming and perspective)."));\r
+               bb->addAction(a);\r
+               a = new QAction(QPixmap(zoom_in_xpm), TR("&Zoom by mouse"), Wnd);\r
+               a->setCheckable(true);\r
+               Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(setZoom(bool)));\r
+               Wnd->connect(QMGL, SIGNAL(zoomChanged(bool)), a, SLOT(setOn(bool)));\r
+               a->setToolTip(TR("Switch on/off mouse zoom of selected region."));\r
+               bb->addAction(a);\r
+               o->addSeparator();\r
+               a = new QAction(QPixmap(zoom_out_xpm), TR("Res&tore"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(restore()));\r
+               a->setToolTip(TR("Restore default graphics rotation, zoom and perspective (Alt+Space)."));\r
+               a->setShortcut(Qt::ALT+Qt::Key_Space);\r
+               o->addAction(a);        bb->addAction(a);       popup->addAction(a);\r
+               bb->addSeparator();\r
+               a = new QAction(QPixmap(ok_xpm), TR("Re&draw"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(update()));\r
+               a->setToolTip(TR("Execute script and redraw graphics (F5)."));\r
+               a->setShortcut(Qt::Key_F5);\r
+               o->addAction(a);        bb->addAction(a);       popup->addAction(a);\r
+               a = new QAction(TR("&Adjust size"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(adjust()));\r
+               a->setToolTip(TR("Change canvas size to fill whole region (F6)."));\r
+               a->setShortcut(Qt::Key_F6);             o->addAction(a);\r
+               a = new QAction(QPixmap(copy_xpm), TR("&Copy plot"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(copy()));\r
+               a->setToolTip(TR("Copy graphics to clipboard (CTRl+C)."));\r
+               a->setShortcut(Qt::CTRL+Qt::Key_C);\r
+               o->addAction(a);                bb->addAction(a);       popup->addAction(a);\r
+               bb->addSeparator();\r
+               tet = new QSpinBox(Wnd);        tet->setWrapping(true);\r
+               bb->addWidget(tet);     tet->setRange(-180, 180);       tet->setSingleStep(10);\r
+               Wnd->connect(tet, SIGNAL(valueChanged(int)), QMGL, SLOT(setTet(int)));\r
+               Wnd->connect(QMGL, SIGNAL(tetChanged(int)), tet, SLOT(setValue(int)));\r
+               tet->setToolTip(TR("Set value of \\theta angle."));\r
+               bb->addSeparator();\r
+               phi = new QSpinBox(Wnd);        phi->setWrapping(true);\r
+               bb->addWidget(phi);     phi->setRange(-180, 180);       phi->setSingleStep(10);\r
+               Wnd->connect(phi, SIGNAL(valueChanged(int)), QMGL, SLOT(setPhi(int)));\r
+               Wnd->connect(QMGL, SIGNAL(phiChanged(int)), phi, SLOT(setValue(int)));\r
+               phi->setToolTip(TR("Set value of \\phi angle."));\r
+//     bb->addSeparator();\r
+       }\r
+       // zooming menu\r
+       {\r
+               oo = o->addMenu(TR("Zoom/move"));\r
+               bb = new QToolBar(TR("Zoom graphics"),Wnd);\r
+               Wnd->addToolBar(Qt::LeftToolBarArea, bb);\r
+               a = new QAction(QPixmap(left_1_xpm), TR("Move &left"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(shiftLeft()));\r
+               a->setToolTip(TR("Move graphics left by 1/3 of its width."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+               a = new QAction(QPixmap(up_1_xpm), TR("Move &up"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(shiftUp()));\r
+               a->setToolTip(TR("Move graphics up by 1/3 of its height."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+               a = new QAction(QPixmap(zoom_1_xpm), TR("Zoom &in"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(zoomIn()));\r
+               a->setToolTip(TR("Zoom in graphics."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+               a = new QAction(QPixmap(norm_1_xpm), TR("Zoom &out"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(zoomOut()));\r
+               a->setToolTip(TR("Zoom out graphics."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+               a = new QAction(QPixmap(down_1_xpm), TR("Move &down"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(shiftDown()));\r
+               a->setToolTip(TR("Move graphics up down 1/3 of its height."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+               a = new QAction(QPixmap(right_1_xpm), TR("Move &right"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(shiftRight()));\r
+               a->setToolTip(TR("Move graphics right by 1/3 of its width."));\r
+               bb->addAction(a);               oo->addAction(a);\r
+       }\r
+       // animation menu\r
+       {\r
+               o = Wnd->menuBar()->addMenu(TR("&Animation"));\r
+               bb = new QToolBar(TR("Animation"),Wnd);\r
+               Wnd->addToolBar(Qt::LeftToolBarArea, bb);\r
+               a = new QAction(QPixmap(next_sl_xpm), TR("&Next slide"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(nextSlide()));\r
+               a->setToolTip(TR("Show next slide (Alt+Right)."));\r
+               a->setShortcut(Qt::ALT+Qt::Key_Right);  o->addAction(a);                bb->addAction(a);\r
+               a = new QAction(QPixmap(show_sl_xpm), TR("&Slideshow"), Wnd);\r
+               a->setCheckable(true);  anim = a;\r
+               Wnd->connect(a, SIGNAL(toggled(bool)), QMGL, SLOT(animation(bool)));\r
+               a->setToolTip(TR("Run slideshow (CTRl+F5)."));\r
+               a->setShortcut(Qt::CTRL+Qt::Key_F5);    o->addAction(a);                bb->addAction(a);\r
+               a = new QAction(QPixmap(prev_sl_xpm), TR("&Prev slide"), Wnd);\r
+               Wnd->connect(a, SIGNAL(activated()), QMGL, SLOT(prevSlide()));\r
+               a->setToolTip(TR("Show previous slide (Alt+Left)."));\r
+               a->setShortcut(Qt::ALT+Qt::Key_Left);   o->addAction(a);                bb->addAction(a);\r
+       }\r
+\r
+       Wnd->menuBar()->addSeparator();\r
+       o = Wnd->menuBar()->addMenu(TR("&Help"));\r
+       o->addAction(TR("About"), QMGL, SLOT(about()));\r
+       o->addAction(TR("About &Qt"), QMGL, SLOT(aboutQt()));\r
+}*/\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+//-----------------------------------------------------------------------------\r
+HMGL mgl_create_graph_wx(int (*draw)(HMGL gr, void *p), const char *title, void *par, void (*load)(void *p))\r
+{\r
+       mglCanvasWX *g = new mglCanvasWX;\r
+       g->Window(0,0,draw,title,par,load);\r
+       return g;\r
+}\r
+int mgl_wx_run(){      return wxTheApp ? wxTheApp->MainLoop():0;       }\r
+//-----------------------------------------------------------------------------\r
+uintptr_t mgl_create_graph_wx_(const char *title, int l)\r
+{\r
+       char *s = new char[l+1];        memcpy(s,title,l);      s[l]=0;\r
+       uintptr_t t = uintptr_t(mgl_create_graph_wx(0,s,0,0));\r
+       delete []s;     return t;\r
+}\r
+int mgl_wx_run_()      {       return mgl_wx_run();    }\r
+//-----------------------------------------------------------------------------\r